diff --git a/README.md b/README.md index a096718..df6e6a4 100644 --- a/README.md +++ b/README.md @@ -64,6 +64,7 @@ dll is included, no need to install anything. ### Build on Windows +Work in progress In command prompt run: build.bat diff --git a/chicken/include/chicken-config.h b/chicken/include/chicken-config.h deleted file mode 100644 index 5bf32ac..0000000 --- a/chicken/include/chicken-config.h +++ /dev/null @@ -1,179 +0,0 @@ -/* GENERATED */ -#define HAVE_DIRENT_H 1 -#define HAVE_DLFCN_H 1 -#define HAVE_INTTYPES_H 1 -#define HAVE_LIMITS_H 1 -#define HAVE_LONG_LONG 1 -#define HAVE_MEMMOVE 1 -#define HAVE_MEMORY_H 1 -#define HAVE_SIGACTION 1 -#define HAVE_SIGSETJMP 1 -#define HAVE_SIGPROCMASK 1 -#define HAVE_STDINT_H 1 -#define HAVE_STDLIB_H 1 -#define HAVE_STRERROR 1 -#define HAVE_STRINGS_H 1 -#define HAVE_STRING_H 1 -#define HAVE_STRTOLL 1 -#define HAVE_STRTOQ 1 -#define HAVE_SYS_STAT_H 1 -#define HAVE_SYS_TYPES_H 1 -#define HAVE_SETENV 1 -#define HAVE_UNISTD_H 1 -#define HAVE_UNSIGNED_LONG_LONG 1 -#define STDC_HEADERS 1 -#define HAVE_ALLOCA 1 -#define HAVE_ALLOCA_H 1 -#define HAVE_ERRNO_H 1 -#define HAVE_SYSEXITS_H 1 -#define C_STACK_GROWS_DOWNWARD 1 -#define C_USE_STD_FEATURE_MACROS -#define C_CHICKEN_PROGRAM "chicken" -#ifndef C_INSTALL_CC -# define C_INSTALL_CC "gcc" -#endif -#ifndef C_INSTALL_CXX -# define C_INSTALL_CXX "g++" -#endif -#ifndef C_INSTALL_POSTINSTALL_PROGRAM -# define C_INSTALL_POSTINSTALL_PROGRAM "true" -#endif -#ifndef C_INSTALL_RC_COMPILER -# define C_INSTALL_RC_COMPILER "" -#endif -#ifndef C_INSTALL_CFLAGS -# define C_INSTALL_CFLAGS "-fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer" -#endif -#ifndef C_INSTALL_LDFLAGS -# define C_INSTALL_LDFLAGS " " -#endif -#ifndef C_INSTALL_PREFIX -# define C_INSTALL_PREFIX "/usr/local" -#endif -#ifndef C_INSTALL_SHARE_HOME -# define C_INSTALL_SHARE_HOME "/usr/local/share/chicken" -#endif -#ifndef C_INSTALL_BIN_HOME -# define C_INSTALL_BIN_HOME "/usr/local/bin" -#endif -#ifndef C_INSTALL_EGG_HOME -# define C_INSTALL_EGG_HOME "/usr/local/lib/chicken/12" -#endif -#ifndef C_INSTALL_LIB_HOME -# define C_INSTALL_LIB_HOME "/usr/local/lib" -#endif -#ifndef C_INSTALL_LIB_NAME -# define C_INSTALL_LIB_NAME "chicken" -#endif -#ifndef C_INSTALL_STATIC_LIB_HOME -# define C_INSTALL_STATIC_LIB_HOME "/usr/local/lib" -#endif -#ifndef C_INSTALL_INCLUDE_HOME -# define C_INSTALL_INCLUDE_HOME "/usr/local/include/chicken" -#endif -#ifndef C_INSTALL_MORE_LIBS -# define C_INSTALL_MORE_LIBS "-lm -ldl" -#endif -#ifndef C_INSTALL_MORE_STATIC_LIBS -# define C_INSTALL_MORE_STATIC_LIBS "-lm -ldl" -#endif -#ifndef C_STACK_GROWS_DOWNWARD -# define C_STACK_GROWS_DOWNWARD 1 -#endif -#ifndef C_TARGET_MORE_LIBS -# define C_TARGET_MORE_LIBS "-lm -ldl" -#endif -#ifndef C_TARGET_MORE_STATIC_LIBS -# define C_TARGET_MORE_STATIC_LIBS "-lm -ldl" -#endif -#ifndef C_TARGET_CC -# define C_TARGET_CC "gcc" -#endif -#ifndef C_TARGET_CXX -# define C_TARGET_CXX "g++" -#endif -#ifndef C_TARGET_RC_COMPILER -# define C_TARGET_RC_COMPILER "" -#endif -#ifndef C_TARGET_LIBRARIAN -# define C_TARGET_LIBRARIAN "ar" -#endif -#ifndef C_TARGET_INSTALL_PROGRAM -# define C_TARGET_INSTALL_PROGRAM "install" -#endif -#ifndef C_TARGET_CFLAGS -# define C_TARGET_CFLAGS "-fno-strict-aliasing -fwrapv -DHAVE_CHICKEN_CONFIG_H -DC_ENABLE_PTABLES -Os -fomit-frame-pointer" -#endif -#ifndef C_TARGET_LIBRARIAN_FLAGS -# define C_TARGET_LIBRARIAN_FLAGS "cru" -#endif -#ifndef C_TARGET_LDFLAGS -# define C_TARGET_LDFLAGS " " -#endif -#ifndef C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS -# define C_TARGET_INSTALL_PROGRAM_EXECUTABLE_OPTIONS "-m 755" -#endif -#ifndef C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS -# define C_TARGET_INSTALL_PROGRAM_FILE_OPTIONS "-m 644" -#endif -#ifndef C_TARGET_FEATURES -# define C_TARGET_FEATURES "" -#endif -#ifndef C_CROSS_CHICKEN -# define C_CROSS_CHICKEN 0 -#endif -#ifndef C_TARGET_PREFIX -# define C_TARGET_PREFIX "/usr/local" -#endif -#ifndef C_TARGET_BIN_HOME -# define C_TARGET_BIN_HOME "/usr/local/bin" -#endif -#ifndef C_TARGET_LIB_HOME -# define C_TARGET_LIB_HOME "/usr/local/lib" -#endif -#ifndef C_TARGET_LIB_NAME -# define C_TARGET_LIB_NAME "chicken" -#endif -#ifndef C_TARGET_RUN_LIB_HOME -# define C_TARGET_RUN_LIB_HOME "/usr/local/lib" -#endif -#ifndef C_TARGET_SHARE_HOME -# define C_TARGET_SHARE_HOME "/usr/local/share/chicken" -#endif -#ifndef C_TARGET_INCLUDE_HOME -# define C_TARGET_INCLUDE_HOME "/usr/local/include/chicken" -#endif -#ifndef C_TARGET_STATIC_LIB_HOME -# define C_TARGET_STATIC_LIB_HOME "/usr/local/lib" -#endif -#ifndef C_CHICKEN_PROGRAM -# define C_CHICKEN_PROGRAM "chicken" -#endif -#ifndef C_CSC_PROGRAM -# define C_CSC_PROGRAM "csc" -#endif -#ifndef C_CSI_PROGRAM -# define C_CSI_PROGRAM "csi" -#endif -#ifndef C_CHICKEN_DO_PROGRAM -# define C_CHICKEN_DO_PROGRAM "chicken-do" -#endif -#ifndef C_CHICKEN_INSTALL_PROGRAM -# define C_CHICKEN_INSTALL_PROGRAM "chicken-install" -#endif -#ifndef C_CHICKEN_UNINSTALL_PROGRAM -# define C_CHICKEN_UNINSTALL_PROGRAM "chicken-uninstall" -#endif -#ifndef C_CHICKEN_STATUS_PROGRAM -# define C_CHICKEN_STATUS_PROGRAM "chicken-status" -#endif -#ifndef C_WINDOWS_SHELL -# define C_WINDOWS_SHELL 0 -#endif -#ifndef C_BINARY_VERSION -# define C_BINARY_VERSION 12 -#endif -#ifndef C_USES_SONAME -# define C_USES_SONAME 1 -#endif -/* END OF FILE */ diff --git a/chicken/include/chicken.h b/chicken/include/chicken.h deleted file mode 100644 index ccdefe8..0000000 --- a/chicken/include/chicken.h +++ /dev/null @@ -1,3730 +0,0 @@ -/* chicken.h - General headerfile for compiler generated executables -; -; Copyright (c) 2008-2022, The CHICKEN Team -; Copyright (c) 2000-2007, Felix L. Winkelmann -; All rights reserved. -; -; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following -; conditions are met: -; -; Redistributions of source code must retain the above copyright notice, this list of conditions and the following -; disclaimer. -; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following -; disclaimer in the documentation and/or other materials provided with the distribution. -; Neither the name of the author nor the names of its contributors may be used to endorse or promote -; products derived from this software without specific prior written permission. -; -; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS -; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY -; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR -; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR -; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -; POSSIBILITY OF SUCH DAMAGE. -*/ - -/* Configuration: */ - -#ifndef ___CHICKEN -#define ___CHICKEN - -#define C_MAJOR_VERSION 6 -#define C_MINOR_VERSION 0 - -#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_CHICKEN_CONFIG_H) -# include "chicken-config.h" -#endif - -/* Some OSes really dislike feature macros for standard levels */ -#ifdef C_USE_STD_FEATURE_MACROS - -# ifndef _XOPEN_SOURCE -# define _XOPEN_SOURCE 700 -# endif - -# ifndef _BSD_SOURCE -# define _BSD_SOURCE -# endif - -# ifndef _NETBSD_SOURCE -# define _NETBSD_SOURCE -# endif - -# ifndef _SVID_SOURCE -# define _SVID_SOURCE -# endif - -/* - * glibc >= 2.20 synonym for _BSD_SOURCE & _SVID_SOURCE. - */ -# ifndef _DEFAULT_SOURCE -# define _DEFAULT_SOURCE -# endif - -#endif /* C_USE_STD_FEATURE_MACROS */ - -/* Kind of platform */ - -#if defined(__LP64__) || defined(_LP64) || defined(__MINGW64__) || defined(_WIN64) -# define C_SIXTY_FOUR -#endif - -#if defined(__APPLE__) && defined(__MACH__) -# define C_MACOSX -#endif - -#if defined(C_MACOSX) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__DragonFly__) || defined(__OpenBSD__) -# define C_XXXBSD -#endif - -#if /*defined(__GNUC__) &&*/ (defined(__linux__) || defined(C_XXXBSD) || defined(__HAIKU__)) -# define C_GNU_ENV -#endif - -#if defined(__MINGW32__) -/* - * XXX This should probably be renamed or changed because it's misleading. - * For example, Haiku is not a Unix either, but this doesn't get defined there. - */ -# define C_NONUNIX -#endif - -#if defined(__sun) && defined(__SVR4) -# define C_SOLARIS -#endif - -#if defined(__MINGW64__) || defined(_WIN64) -# define C_LLP -#endif - -/* Declare base Win32 version: we require Vista or later */ - -#ifdef __MINGW32__ -# define _WIN32_WINNT 0x0600 -#endif - - -/* Headers */ - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#if !defined(__STDC_NO_COMPLEX__) && !defined(__cplusplus) -# include -# define C_complex complex -#else -# define C_complex -#endif -#include -#include - - -/* Byteorder in machine word */ - -#if defined(__MINGW32__) -# include -#elif defined(__CYGWIN__) -# include -#elif defined(__linux__) -# include -#elif defined(C_XXXBSD) -# include -#elif defined(__hpux__) -# include -#elif defined(_AIX) -# include -#elif defined(__sun) -# include -#elif defined(__SVR4) -# include -#endif - -#if defined(__MINGW32__) -# include -#endif - -/* Much better with stack allocation API */ - -#ifdef HAVE_ALLOCA_H -# include -#elif !defined(alloca) /* predefined by HP cc +Olibcalls */ -void *alloca (); -#endif - - -/* CHICKEN Core C API */ - -#if defined(__BYTE_ORDER) && __BYTE_ORDER == __BIG_ENDIAN -# define C_BIG_ENDIAN -#elif defined(BYTE_ORDER) && defined(BIG_ENDIAN) && BYTE_ORDER == BIG_ENDIAN -# define C_BIG_ENDIAN -#elif defined(__BIG_ENDIAN__) -# define C_BIG_ENDIAN -#elif defined(__MIPSEL__) || defined(__MIPSEL) -# define C_LITTLE_ENDIAN -#elif defined(__sparc__) || defined(__POWERPC__) || defined(__MC68K__) || defined(__mips__) -# define C_BIG_ENDIAN -#endif - -#if defined(__BYTE_ORDER) && defined(__LITTLE_ENDIAN) && __BYTE_ORDER == __LITTLE_ENDIAN -# define C_LITTLE_ENDIAN -#elif defined(BYTE_ORDER) && defined(LITTLE_ENDIAN) && BYTE_ORDER == LITTLE_ENDIAN -# define C_LITTLE_ENDIAN -#elif defined(__LITTLE_ENDIAN__) -# define C_LITTLE_ENDIAN -#elif defined (__alpha__) || defined(_M_IX86) || defined(__i386__) || defined(__x86_64__) || defined(__ia64__) -# define C_LITTLE_ENDIAN -#endif - -/* Make sure some common C identifiers are availble w/ Windows */ - -/* Could be used by C++ source */ - -#ifdef __cplusplus -# define C_extern extern "C" -# define C_BEGIN_C_DECLS extern "C" { -# define C_END_C_DECLS } -#else -# define C_extern extern -# define C_BEGIN_C_DECLS -# define C_END_C_DECLS -#endif - - -/* Function declaration modes */ - -/* Visibility */ -#define C_varextern C_extern -#define C_fctimport -#define C_fctexport -#if defined(PIC) -# if defined(__CYGWIN__) || defined(__MINGW32__) -# ifndef C_BUILDING_LIBCHICKEN -# undef C_varextern -# define C_varextern C_extern __declspec(dllimport) -# endif -# endif -#endif - -/* Language specifics: */ -#if defined(__GNUC__) || defined(__INTEL_COMPILER) -#define HAVE_STATEMENT_EXPRESSIONS 1 -#endif - -#if !defined(__clang__) && !defined(__has_attribute) -/* Define so it won't error on other compilers with keywords like "noreturn" */ -#define __has_attribute(x) 0 -#endif - -#if defined(__GNUC__) || defined(__INTEL_COMPILER) -# define C_unlikely(x) __builtin_expect((x), 0) -# define C_likely(x) __builtin_expect((x), 1) -# ifndef __cplusplus -# define C_cblock ({ -# define C_cblockend }) -# if defined(__clang__) && !__has_attribute(noreturn) -# define C_noret -# else -# define C_noret __attribute__ ((noreturn)) -# endif -# define C_noret_decl(name) -# define C_aligned __attribute__ ((aligned)) -# endif -# if defined(__i386__) && !defined(__clang__) -# define C_regparm __attribute__ ((regparm(3))) -# endif -#else -# define C_unlikely(x) (x) -# define C_likely(x) (x) -#endif - -#ifndef C_cblock -# define C_cblock do{ -# define C_cblockend }while(0) -# define C_noret -# define C_noret_decl(name) -#endif - -#ifndef C_regparm -# define C_regparm -#endif - -#ifndef C_ccall -# define C_ccall -#endif - -#ifndef C_aligned -# define C_aligned -#endif - -/* Stack growth direction; used to compute stack addresses */ -#ifndef C_STACK_GROWS_DOWNWARD -# ifdef __hppa__ -# define C_STACK_GROWS_DOWNWARD 0 -# else -# define C_STACK_GROWS_DOWNWARD 1 -# endif -#endif - -/* Have a GUI? */ - -#if defined(C_GUI) || defined(C_PRIVATE_REPOSITORY) -# ifdef _WIN32 -# include -# ifndef WINAPI -# define WINAPI -# endif -# endif -#endif - -/* Needed for pre-emptive threading */ - -#define C_TIMER_INTERRUPTS - - -/* Constants: */ - -#define C_STACK_RESERVE 0x10000 -#define C_DEFAULT_MAX_PENDING_FINALIZERS 2048 - -#define C_IMMEDIATE_MARK_BITS 0x00000003 -#define C_IMMEDIATE_TYPE_BITS 0x0000000f - -#define C_BOOLEAN_BITS 0x00000006 -#define C_CHARACTER_BITS 0x0000000a -#define C_SPECIAL_BITS 0x0000000e - -#define C_SCHEME_FALSE ((C_word)(C_BOOLEAN_BITS | 0x00000000)) -#define C_SCHEME_TRUE ((C_word)(C_BOOLEAN_BITS | 0x00000010)) - -#define C_SCHEME_END_OF_LIST ((C_word)(C_SPECIAL_BITS | 0x00000000)) -#define C_SCHEME_UNDEFINED ((C_word)(C_SPECIAL_BITS | 0x00000010)) -#define C_SCHEME_UNBOUND ((C_word)(C_SPECIAL_BITS | 0x00000020)) -#define C_SCHEME_END_OF_FILE ((C_word)(C_SPECIAL_BITS | 0x00000030)) -#define C_SCHEME_BROKEN_WEAK_PTR ((C_word)(C_SPECIAL_BITS | 0x00000040)) - -#define C_FIXNUM_BIT 0x00000001 -#define C_FIXNUM_SHIFT 1 - -/* Character range is that of a UTF-8 codepoint, not representable range */ -#define C_CHAR_BIT_MASK 0x1fffff -#define C_CHAR_SHIFT 8 - -#ifdef C_SIXTY_FOUR -# define C_MOST_POSITIVE_FIXNUM 0x3fffffffffffffffL -# define C_WORD_SIZE 64 -# define C_HALF_WORD_SIZE 32 -#else -# define C_MOST_POSITIVE_FIXNUM 0x3fffffff -# define C_WORD_SIZE 32 -# define C_HALF_WORD_SIZE 16 -#endif - -/* Tunable performance-related constants */ -#ifndef C_KARATSUBA_THRESHOLD -/* This defines when we'll switch from schoolbook to Karatsuba - * multiplication. The smallest of the two numbers determines the - * switch. It is pretty high right now because it generates a bit - * more garbage and GC overhead dominates the algorithmic performance - * gains. If the GC is improved, this can be readjusted. - */ -# define C_KARATSUBA_THRESHOLD 70 -#endif -#ifndef C_BURNIKEL_ZIEGLER_THRESHOLD -/* This defines when to switch from schoolbook to Burnikel-Ziegler - * division. It creates even more garbage than Karatsuba :( - */ -# define C_BURNIKEL_ZIEGLER_THRESHOLD 300 -#endif -#ifndef C_RECURSIVE_TO_STRING_THRESHOLD -/* This threshold is in terms of the expected string length. */ -# define C_RECURSIVE_TO_STRING_THRESHOLD 750 -#endif - -/* These might fit better in runtime.c? */ -#define C_fitsinbignumhalfdigitp(n) (C_BIGNUM_DIGIT_HI_HALF(n) == 0) -#define C_BIGNUM_DIGIT_LENGTH C_WORD_SIZE -#define C_BIGNUM_HALF_DIGIT_LENGTH C_HALF_WORD_SIZE -#define C_BIGNUM_BITS_TO_DIGITS(n) \ - (((n) + (C_BIGNUM_DIGIT_LENGTH - 1)) / C_BIGNUM_DIGIT_LENGTH) -#define C_BIGNUM_DIGIT_LO_HALF(d) (C_uhword)(d) -#define C_BIGNUM_DIGIT_HI_HALF(d) (C_uhword)((d) >> C_BIGNUM_HALF_DIGIT_LENGTH) -#define C_BIGNUM_DIGIT_COMBINE(h,l) ((C_uword)(h) << C_BIGNUM_HALF_DIGIT_LENGTH|(C_uhword)(l)) - -#define C_MOST_POSITIVE_32_BIT_FIXNUM 0x3fffffff -#define C_MOST_NEGATIVE_FIXNUM (-C_MOST_POSITIVE_FIXNUM - 1) - -/* Block object layout: - - Bits: B = BYTEBLOC_BIT - S = SPECIALBLOCK_BIT - A = 8ALIGN_BIT - - Symbol = [ 1|3, Value, Name, Plist] Name = bytevector, 0-terminated - String = [ 2|4, Name, Count, Offset, Index] Name = bytevector, 0-terminated - Pair = [ 3|2, Car, Cdr] - Closure = [ S4|1+N, Ptr, Slot, ...] - Flonum = [AB5|8, IEEEDouble] - Bignum = [ 6|1, Bits] Bits = bytevector - Port = [ S7|15, Slots, ...] - Structure = [ 8|1+N, Tag, Slots, ...] - Pointer = [ S9|1, Ptr] - Locative = [ S0a|4*N, Slots, ...] - Taggedpointer = [ S0b|2, Ptr, Tag] - Ratnum = [ 0c|2, Num, Den] - Lambdainfo = [ B0d|N, Bytes, ...] - Cplxnum = [ 0e|2, Imag, Real] - -*/ - -#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) -# define C_PAIR_TYPE (0x0300000000000000L) -# define C_CLOSURE_TYPE (0x0400000000000000L | C_SPECIALBLOCK_BIT) -# define C_FLONUM_TYPE (0x0500000000000000L | C_BYTEBLOCK_BIT | C_8ALIGN_BIT) -# define C_BIGNUM_TYPE (0x0600000000000000L) /* Just the wrapper */ -# define C_PORT_TYPE (0x0700000000000000L | C_SPECIALBLOCK_BIT) -# define C_STRUCTURE_TYPE (0x0800000000000000L) -# define C_POINTER_TYPE (0x0900000000000000L | C_SPECIALBLOCK_BIT) -# define C_LOCATIVE_TYPE (0x0a00000000000000L | C_SPECIALBLOCK_BIT) -# define C_TAGGED_POINTER_TYPE (0x0b00000000000000L | C_SPECIALBLOCK_BIT) -# define C_RATNUM_TYPE (0x0c00000000000000L) -# define C_LAMBDA_INFO_TYPE (0x0d00000000000000L | C_BYTEBLOCK_BIT) -# define C_CPLXNUM_TYPE (0x0e00000000000000L) -/* unused (0x0f00000000000000L ...) */ -#else -# define C_INT_SIGN_BIT 0x80000000 -# define C_INT_TOP_BIT 0x40000000 -# define C_HEADER_BITS_MASK 0xff000000 -# define C_HEADER_TYPE_BITS 0x0f000000 -# define C_HEADER_SIZE_MASK 0x00ffffff -# define C_GC_FORWARDING_BIT 0x80000000 -# define C_BYTEBLOCK_BIT 0x40000000 -# define C_SPECIALBLOCK_BIT 0x20000000 -# define C_8ALIGN_BIT 0x10000000 - -# define C_SYMBOL_TYPE (0x01000000) -# define C_STRING_TYPE (0x02000000) -# define C_PAIR_TYPE (0x03000000) -# define C_CLOSURE_TYPE (0x04000000 | C_SPECIALBLOCK_BIT) -# ifdef C_DOUBLE_IS_32_BITS -# define C_FLONUM_TYPE (0x05000000 | C_BYTEBLOCK_BIT) -# else -# define C_FLONUM_TYPE (0x05000000 | C_BYTEBLOCK_BIT | C_8ALIGN_BIT) -# endif -# define C_BIGNUM_TYPE (0x06000000) /* Just the wrapper */ -# define C_PORT_TYPE (0x07000000 | C_SPECIALBLOCK_BIT) -# define C_STRUCTURE_TYPE (0x08000000) -# define C_POINTER_TYPE (0x09000000 | C_SPECIALBLOCK_BIT) -# define C_LOCATIVE_TYPE (0x0a000000 | C_SPECIALBLOCK_BIT) -# define C_TAGGED_POINTER_TYPE (0x0b000000 | C_SPECIALBLOCK_BIT) -# define C_RATNUM_TYPE (0x0c000000) -# define C_LAMBDA_INFO_TYPE (0x0d000000 | C_BYTEBLOCK_BIT) -# define C_CPLXNUM_TYPE (0x0e000000) -/* unused (0x0f000000 ...) */ -#endif -#define C_VECTOR_TYPE 0x00000000 -#define C_BYTEVECTOR_TYPE (C_VECTOR_TYPE | C_BYTEBLOCK_BIT | C_8ALIGN_BIT) - -#define C_SIZEOF_LIST(n) ((n) * 3 + 1) -#define C_SIZEOF_PAIR 3 -#define C_SIZEOF_STRING(n) (C_SIZEOF_BYTEVECTOR((n) * 4) + 1 + 5) -#define C_SIZEOF_SYMBOL 4 -#define C_SIZEOF_INTERNED_SYMBOL(n) (C_SIZEOF_SYMBOL + C_SIZEOF_PAIR + C_SIZEOF_STRING(n)) -#ifdef C_DOUBLE_IS_32_BITS -# define C_SIZEOF_FLONUM 2 -#else -# define C_SIZEOF_FLONUM 4 -#endif -#define C_SIZEOF_POINTER 2 -#define C_SIZEOF_TAGGED_POINTER 3 -#define C_SIZEOF_VECTOR(n) ((n) + 1) -#define C_SIZEOF_LOCATIVE 5 -#define C_SIZEOF_PORT 17 -#define C_SIZEOF_RATNUM 3 -#define C_SIZEOF_CPLXNUM 3 -#define C_SIZEOF_STRUCTURE(n) ((n)+1) -#define C_SIZEOF_CLOSURE(n) ((n)+1) -#define C_SIZEOF_BYTEVECTOR(n) (C_bytestowords(n) + 2) -#define C_SIZEOF_INTERNAL_BIGNUM_VECTOR(n) (C_SIZEOF_VECTOR((n)+1)) -#define C_internal_bignum_vector(b) (C_block_item(b,0)) - -/* This is for convenience and allows flexibility in representation */ -#define C_SIZEOF_FIX_BIGNUM C_SIZEOF_BIGNUM(1) -#define C_SIZEOF_BIGNUM_WRAPPER 2 -#define C_SIZEOF_BIGNUM(n) (C_SIZEOF_INTERNAL_BIGNUM_VECTOR(n)+C_SIZEOF_BIGNUM_WRAPPER) - -/* Fixed size types have pre-computed header tags */ -#define C_STRING_TAG (C_STRING_TYPE | 4) -#define C_PAIR_TAG (C_PAIR_TYPE | (C_SIZEOF_PAIR - 1)) -#define C_WEAK_PAIR_TAG (C_PAIR_TAG | C_SPECIALBLOCK_BIT) -#define C_POINTER_TAG (C_POINTER_TYPE | (C_SIZEOF_POINTER - 1)) -#define C_LOCATIVE_TAG (C_LOCATIVE_TYPE | (C_SIZEOF_LOCATIVE - 1)) -#define C_TAGGED_POINTER_TAG (C_TAGGED_POINTER_TYPE | (C_SIZEOF_TAGGED_POINTER - 1)) -#define C_SYMBOL_TAG (C_SYMBOL_TYPE | (C_SIZEOF_SYMBOL - 1)) -#define C_FLONUM_TAG (C_FLONUM_TYPE | sizeof(double)) -#define C_BIGNUM_TAG (C_BIGNUM_TYPE | 1) -#define C_RATNUM_TAG (C_RATNUM_TYPE | 2) -#define C_CPLXNUM_TAG (C_CPLXNUM_TYPE | 2) - -/* Locative subtypes */ -#define C_SLOT_LOCATIVE 0 -#define C_CHAR_LOCATIVE 1 -#define C_U8_LOCATIVE 2 -#define C_S8_LOCATIVE 3 -#define C_U16_LOCATIVE 4 -#define C_S16_LOCATIVE 5 -#define C_U32_LOCATIVE 6 -#define C_S32_LOCATIVE 7 -#define C_U64_LOCATIVE 8 -#define C_S64_LOCATIVE 9 -#define C_F32_LOCATIVE 10 -#define C_F64_LOCATIVE 11 - -#if defined (__MINGW32__) -# define C_s64 __int64 -# define C_u64 unsigned __int64 -#else -# define C_s64 int64_t -# define C_u64 uint64_t -#endif - -#ifdef C_SIXTY_FOUR -# ifdef C_LLP -# define C_word C_s64 -# define C_hword long -# else -# define C_word long -# define C_hword int -# endif -# define C_u32 uint32_t -# define C_s32 int32_t -#else -# define C_word int -# define C_hword short -# define C_u32 unsigned int -# define C_s32 int -#endif - -#define C_char char -#define C_uchar unsigned C_char -#define C_byte char -#define C_uword unsigned C_word -#define C_uhword unsigned C_hword -#define C_header C_uword - -/* if all else fails, use these: - #define UINT64_MAX (18446744073709551615ULL) - #define INT64_MAX (9223372036854775807LL) - #define INT64_MIN (-INT64_MAX - 1) - #define UINT32_MAX (4294967295U) - #define INT32_MAX (2147483647) - #define INT32_MIN (-INT32_MAX - 1) - #define UINT16_MAX (65535U) - #define INT16_MAX (32767) - #define INT16_MIN (-INT16_MAX - 1) - #define UINT8_MAX (255) - #define INT8_MAX (127) - #define INT8_MIN (-INT8_MAX - 1) -*/ - -#define C_U64_MAX UINT64_MAX -#define C_S64_MIN INT64_MIN -#define C_S64_MAX INT64_MAX - -#if defined(C_LLP) -# define C_wabs llabs -# define C_long C_s64 -# ifndef LONG_LONG_MAX -# define C_LONG_MAX LLONG_MAX -# define C_LONG_MIN LLONG_MIN -# else -# define C_LONG_MAX LONG_LONG_MAX -# define C_LONG_MIN LONG_LONG_MIN -# endif -#else -# define C_wabs labs -# define C_long long -# define C_LONG_MAX LONG_MAX -# define C_LONG_MIN LONG_MIN -#endif - -#define C_ulong unsigned C_long - -#ifdef __cplusplus -# define C_text(x) ((C_char *)(x)) -#else -# define C_text(x) (x) -#endif - -#define C_TIMER_INTERRUPT_NUMBER 255 - -#define C_BAD_ARGUMENT_COUNT_ERROR 1 -#define C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR 2 -#define C_BAD_ARGUMENT_TYPE_ERROR 3 -#define C_UNBOUND_VARIABLE_ERROR 4 -#define C_BAD_ARGUMENT_TYPE_NO_KEYWORD_ERROR 5 -#define C_OUT_OF_MEMORY_ERROR 6 -#define C_DIVISION_BY_ZERO_ERROR 7 -#define C_OUT_OF_BOUNDS_ERROR 8 -#define C_NOT_A_CLOSURE_ERROR 9 -#define C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR 10 -#define C_BAD_ARGUMENT_TYPE_CYCLIC_LIST_ERROR 11 -#define C_TOO_DEEP_RECURSION_ERROR 12 -#define C_CANT_REPRESENT_INEXACT_ERROR 13 -#define C_NOT_A_PROPER_LIST_ERROR 14 -#define C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR 15 -#define C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR 16 -#define C_BAD_ARGUMENT_TYPE_NO_STRING_ERROR 17 -#define C_BAD_ARGUMENT_TYPE_NO_PAIR_ERROR 18 -#define C_BAD_ARGUMENT_TYPE_NO_LIST_ERROR 19 -#define C_BAD_ARGUMENT_TYPE_NO_CHAR_ERROR 20 -#define C_BAD_ARGUMENT_TYPE_NO_VECTOR_ERROR 21 -#define C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR 22 -#define C_STACK_OVERFLOW_ERROR 23 -#define C_BAD_ARGUMENT_TYPE_BAD_STRUCT_ERROR 24 -#define C_BAD_ARGUMENT_TYPE_NO_BYTEVECTOR_ERROR 25 -#define C_LOST_LOCATIVE_ERROR 26 -#define C_BAD_ARGUMENT_TYPE_NO_BLOCK_ERROR 27 -#define C_BAD_ARGUMENT_TYPE_NO_NUMBER_VECTOR_ERROR 28 -#define C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR 29 -#define C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR 30 -#define C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR 31 -#define C_BAD_ARGUMENT_TYPE_NO_TAGGED_POINTER_ERROR 32 -#define C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR 33 -#define C_BAD_ARGUMENT_TYPE_NO_CLOSURE_ERROR 34 -#define C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR 35 -#define C_CIRCULAR_DATA_ERROR 36 -#define C_BAD_ARGUMENT_TYPE_NO_BOOLEAN_ERROR 37 -#define C_BAD_ARGUMENT_TYPE_NO_LOCATIVE_ERROR 38 -#define C_BAD_ARGUMENT_TYPE_NO_PORT_ERROR 39 -#define C_BAD_ARGUMENT_TYPE_PORT_DIRECTION_ERROR 40 -#define C_BAD_ARGUMENT_TYPE_PORT_NO_INPUT_ERROR 41 -#define C_BAD_ARGUMENT_TYPE_PORT_NO_OUTPUT_ERROR 42 -#define C_PORT_CLOSED_ERROR 43 -#define C_ASCIIZ_REPRESENTATION_ERROR 44 -#define C_MEMORY_VIOLATION_ERROR 45 -#define C_FLOATING_POINT_EXCEPTION_ERROR 46 -#define C_ILLEGAL_INSTRUCTION_ERROR 47 -#define C_BUS_ERROR 48 -#define C_BAD_ARGUMENT_TYPE_NO_EXACT_ERROR 49 -#define C_BAD_ARGUMENT_TYPE_NO_INEXACT_ERROR 50 -#define C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR 51 -#define C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR 52 -#define C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR 53 -#define C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION 54 -#define C_BAD_ARGUMENT_TYPE_COMPLEX_ABS 55 -#define C_REST_ARG_OUT_OF_BOUNDS_ERROR 56 -#define C_DECODING_ERROR 57 -#define C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR 58 - -/* 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(__riscv) -# if defined(__LP64__) || defined(_LP64) -# define C_MACHINE_TYPE "riscv64" -# else -# define C_MACHINE_TYPE "riscv" -# endif -#elif defined(__arm64__) || defined(__aarch64__) -# define C_MACHINE_TYPE "arm64" -#elif defined(__arm__) -# define C_MACHINE_TYPE "arm" -#else -# define C_MACHINE_TYPE "unknown" -#endif - -#if defined(__CYGWIN__) || defined(__MINGW32__) || defined(_WIN32) || defined(__WINNT__) -# define C_SOFTWARE_TYPE "windows" -#elif defined(__ANDROID__) -# define C_SOFTWARE_TYPE "android" -#elif defined(__unix__) || defined(C_XXXBSD) || defined(_AIX) -# define C_SOFTWARE_TYPE "unix" -#elif defined(ECOS) -# define C_SOFTWARE_TYPE "ecos" -#else -# define C_SOFTWARE_TYPE "unknown" -#endif - -#if defined(_WIN32) && !defined(__CYGWIN__) -# define C_WCHAR_FILENAMES -# define C_WCHAR wchar_t -#else -# define C_WCHAR C_char -#endif - -#if defined(__SUNPRO_C) -# define C_BUILD_PLATFORM "sun" -#elif defined(__clang__) -# define C_BUILD_PLATFORM "clang" -#elif defined(_AIX) -# define C_BUILD_PLATFORM "aix" -#elif defined(__GNUC__) -# define C_BUILD_PLATFORM "gnu" -#elif defined(__INTEL_COMPILER) -# define C_BUILD_PLATFORM "intel" -#else -# define C_BUILD_PLATFORM "unknown" -#endif - -#if defined(__linux__) -# define C_SOFTWARE_VERSION "linux" -#elif defined(__FreeBSD__) -# define C_SOFTWARE_VERSION "freebsd" -#elif defined(__NetBSD__) -# define C_SOFTWARE_VERSION "netbsd" -#elif defined(__OpenBSD__) -# define C_SOFTWARE_VERSION "openbsd" -#elif defined(C_MACOSX) -# define C_SOFTWARE_VERSION "macosx" -#elif defined(__hpux__) -# define C_SOFTWARE_VERSION "hpux" -#elif defined(__DragonFly__) -# define C_SOFTWARE_VERSION "dragonfly" -#elif defined(__HAIKU__) -# define C_SOFTWARE_VERSION "haiku" -#elif defined(__sun) -# if defined(__SVR4) -# define C_SOFTWARE_VERSION "solaris" -# else -# define C_SOFTWARE_VERSION "sunos" -# endif -#elif defined(_AIX) -# define C_SOFTWARE_VERSION "aix" -#elif defined(__GNU__) -# define C_SOFTWARE_VERSION "hurd" -#elif defined(__CYGWIN__) -# define C_SOFTWARE_VERSION "cygwin" -#elif defined(_WIN32) && !defined(__CYGWIN__) -# define C_SOFTWARE_VERSION "mingw" -#else -# define C_SOFTWARE_VERSION "unknown" -#endif - -/* There is no PATH_MAX in The Hurd. */ -#ifdef PATH_MAX -# define C_MAX_PATH PATH_MAX -#else -# define C_MAX_PATH 1024 -#endif - -#define C_RANDOM_STATE_SIZE (16 * sizeof(C_uword)) - -/* Types: */ - -typedef struct C_block_struct -{ - C_header header; - C_word data[]; -} C_SCHEME_BLOCK; - -typedef struct C_symbol_table_struct -{ - char *name; - unsigned int size; - unsigned int rand; - C_word *table; - struct C_symbol_table_struct *next; -} C_SYMBOL_TABLE; - -typedef struct C_gc_root_struct -{ - C_word value; - struct C_gc_root_struct *next, *prev; - int finalizable; -} C_GC_ROOT; - -typedef struct C_ptable_entry_struct -{ - C_char *id; - void *ptr; -} C_PTABLE_ENTRY; - -typedef void (C_ccall *C_proc)(C_word, C_word *) C_noret; - - -/* Macros: */ - -#define C_cpsproc(name) C_ccall void name(C_word c, C_word *av) C_noret - -#define CHICKEN_gc_root_ref(root) (((C_GC_ROOT *)(root))->value) -#define CHICKEN_gc_root_set(root, x) C_mutate(&((C_GC_ROOT *)(root))->value, (x)) - -#define CHICKEN_global_ref(root) C_u_i_car(((C_GC_ROOT *)(root))->value) -#define CHICKEN_global_set(root, x) C_mutate(&C_u_i_car(((C_GC_ROOT *)(root))->value), (x)) - -#define CHICKEN_default_toplevel ((void *)C_default_5fstub_toplevel) - -#define C__STR1(x) #x -#define C__STR2(x) C__STR1(x) - -#define C_align4(n) (((n) + 3) & ~3) -#define C_align8(n) (((n) + 7) & ~7) -#define C_align16(n) (((n) + 15) & ~15) - -#define C_aligned8(n) ((((C_word)(n)) & 7) == 0) - -#define C_buf_end(b) ((C_word *)((C_byte *)(b) + sizeof(b))) - -/* This is word-size dependent: */ -#ifdef C_SIXTY_FOUR -# define C_align(n) C_align8(n) -# define C_wordstobytes(n) ((C_uword)(n) << 3) -# define C_bytestowords(n) (((n) + 7) >> 3) -# define C_wordsperdouble(n) (n) -# define C_WORD_MIN LONG_MIN -# define C_WORD_MAX LONG_MAX -# define C_UWORD_MAX ULONG_MAX -#else -# define C_align(n) C_align4(n) -# define C_wordstobytes(n) ((C_uword)(n) << 2) -# define C_bytestowords(n) (((n) + 3) >> 2) -# define C_wordsperdouble(n) ((C_uword)(n) << 1) -# define C_WORD_MIN INT_MIN -# define C_WORD_MAX INT_MAX -# define C_UWORD_MAX UINT_MAX -#endif - -/* Clang and G++ support statement expressions, but only in a limited way */ -#if DEBUGBUILD && HAVE_STATEMENT_EXPRESSIONS && !defined(__cplusplus) -/* These are wrappers around the following idiom: - * assert(SOME_PRED(obj)); - * do_something_with(obj); - * This works around the fact obj may be an expression with side-effects. - * - * To make this work with nested expansions, we need semantics like - * (let ((x 1)) (let ((x x)) x)) => 1, but in C, int x = x; results in - * undefined behaviour because x refers to itself. As a workaround, - * we keep around a reference to the previous level (one scope up). - * After initialisation, "previous" is redefined to mean "current". - */ -# define C_VAL1(x) C__PREV_TMPST.n1 -# define C_VAL2(x) C__PREV_TMPST.n2 -# define C__CHECK_panic(a,s,f,l) \ - ((a) ? (void)0 : \ - C_panic_hook(C_text("Low-level type assertion " s " failed at " f ":" C__STR1(l)))) -# define C__CHECK_core(v,a,s,x) \ - ({ struct { \ - typeof(v) n1; \ - } C__TMPST = { .n1 = (v) }; \ - typeof(C__TMPST) C__PREV_TMPST=C__TMPST; \ - C__CHECK_panic(a,s,__FILE__,__LINE__); \ - x; }) -# define C__CHECK2_core(v1,v2,a,s,x) \ - ({ struct { \ - typeof(v1) n1; \ - typeof(v2) n2; \ - } C__TMPST = { .n1 = (v1), .n2 = (v2) }; \ - typeof(C__TMPST) C__PREV_TMPST=C__TMPST; \ - C__CHECK_panic(a,s,__FILE__,__LINE__); \ - x; }) -# define C_CHECK(v,a,x) C__CHECK_core(v,a,#a,x) -# define C_CHECK2(v1,v2,a,x) C__CHECK2_core(v1,v2,a,#a,x) -/* - * Convenience for using Scheme-predicates. - */ -# define C_CHECKp(v,a,x) C__CHECK_core(v,C_truep(a),#a"=#t",x) -# define C_CHECK2p(v1,v2,a,x) C__CHECK2_core(v1,v2,C_truep(a),#a"=#t",x) -#else -# define C_VAL1(x) (x) -# define C_VAL2(x) (x) -# define C_CHECK(v,a,x) (x) -# define C_CHECK2(v1,v2,a,x) (x) -# define C_CHECKp(v,a,x) (x) -# define C_CHECK2p(v1,v2,a,x) (x) -#endif - -#ifndef C_PROVIDE_LIBC_STUBS -# define C_FILEPTR FILE * - -# define C_stdin stdin -# define C_stdout stdout -# define C_stderr stderr - -# define C_memcpy memcpy -# define C_memcmp memcmp -# define C_strncpy strncpy -# define C_strcmp strcmp -# define C_strncmp strncmp -# define C_strlen strlen -# define C_memchr memchr -# define C_memset memset -# define C_memmove memmove -# define C_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 -# ifdef C_WCHAR_FILENAMES -# define C_fopen _wfopen -# define C_system _wsystem -# define C_access _waccess -# else -# define C_fopen fopen -# define C_system system -# define C_access access -# endif -# define C_fclose fclose -# define C_strpbrk strpbrk -# define C_strcspn strcspn -# define C_snprintf snprintf -# define C_printf printf -# define C_fprintf fprintf -# define C_vfprintf vfprintf -# define C_fflush fflush -# define C_getchar getchar -# define C_exit exit -# define C__exit _exit -# define C_dlopen dlopen -# define C_dlclose dlclose -# define C_dlsym dlsym -# define C_fwrite fwrite -# define C_fread fread -# define C_fputs fputs -# define C_fputc fputc -# define C_putchar putchar -# if (defined getc_unlocked || _POSIX_C_SOURCE >= 199506L) && !defined(__MINGW32__) -# define C_getc getc_unlocked -# else -# define C_getc getc -# endif -# define C_fgetc fgetc -# define C_fgets fgets -# define C_ungetc ungetc -# define C_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_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_sin sin -# define C_cos cos -# define C_tan tan -# define C_asin asin -# define C_acos acos -# define C_atan atan -# define C_sinh sinh -# define C_cosh cosh -# define C_tanh tanh -# define C_asinh asinh -# define C_acosh acosh -# define C_atanh atanh -# 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_getpid getpid -# define C_fma fma -#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_type(bh) (C_block_header(bh) & C_HEADER_TYPE_BITS) -#define C_header_size(bh) (C_block_header(bh) & C_HEADER_SIZE_MASK) -#define C_bignum_size(b) (C_bytestowords(C_header_size(C_internal_bignum_vector(b)))-1) -#define C_make_header(type, size) ((C_header)(((type) & C_HEADER_BITS_MASK) | ((size) & C_HEADER_SIZE_MASK))) -#define C_symbol_value(x) (C_block_item(x, 0)) -#define C_symbol_name(x) (C_block_item(x, 1)) -#define C_symbol_plist(x) (C_block_item(x, 2)) -#define C_save(x) (*(--C_temporary_stack) = (C_word)(x)) -#define C_rescue(x, i) (C_temporary_stack[ i ] = (x)) -#define C_restore (*(C_temporary_stack++)) -#define C_heaptop ((C_word **)(&C_fromspace_top)) -#define C_drop(n) (C_temporary_stack += (n)) -#define C_alloc(n) ((C_word *)C_alloca((n) * sizeof(C_word))) -#if (defined (__llvm__) && defined (__GNUC__)) || defined (__TINYC__) -# 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 -/* Not alloca(0) because: - * - LLVM allocates anyways - * - TCC always returns NULL - */ -# 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)))) -#define C_c_string(x) C_CHECK(x,(C_truep(C_bytevectorp(C_VAL1(x)))),(C_char *)C_data_pointer(C_VAL1(x))) - -#define C_c_pointer(x) ((void *)(x)) -#define C_c_pointer_nn(x) ((void *)C_block_item(x, 0)) -#define C_truep(x) ((x) != C_SCHEME_FALSE) -#define C_immediatep(x) ((x) & C_IMMEDIATE_MARK_BITS) -#define C_mk_bool(x) ((x) ? C_SCHEME_TRUE : C_SCHEME_FALSE) -#define C_mk_nbool(x) ((x) ? C_SCHEME_FALSE : C_SCHEME_TRUE) -#define C_port_file(p) C_CHECKp(p,C_portp(C_VAL1(p)),(C_FILEPTR)C_block_item(C_VAL1(p), 0)) -#define C_port_fileno(p) C_fix(C_fileno(C_port_file(p))) -#define C_data_pointer(b) C_CHECKp(b,C_blockp((C_word)C_VAL1(b)),(void *)(((C_SCHEME_BLOCK *)(C_VAL1(b)))->data)) -#define C_bignum_negativep(b) C_CHECKp(b,C_bignump(C_VAL1(b)),(C_block_item(C_internal_bignum_vector(C_VAL1(b)),0)!=0)) -#define C_bignum_digits(b) C_CHECKp(b,C_bignump(C_VAL1(b)),(((C_uword *)C_data_pointer(C_internal_bignum_vector(C_VAL1(b))))+1)) -#define C_fitsinbignumhalfdigitp(n)(C_BIGNUM_DIGIT_HI_HALF(n) == 0) -#define C_bignum_negated_fitsinfixnump(b) (C_bignum_size(b) == 1 && (C_bignum_negativep(b) ? C_ufitsinfixnump(*C_bignum_digits(b)) : !(*C_bignum_digits(b) & C_INT_SIGN_BIT) && C_fitsinfixnump(-(C_word)*C_bignum_digits(b)))) -#define C_bignum_mutate_size(b, s) (C_block_header(C_internal_bignum_vector(b)) = (C_BYTEVECTOR_TYPE | C_wordstobytes((s)+1))) -#define C_fitsinfixnump(n) (((n) & C_INT_SIGN_BIT) == (((C_uword)(n) & C_INT_TOP_BIT) << 1)) -#define C_ufitsinfixnump(n) (((n) & (C_INT_SIGN_BIT | (C_INT_SIGN_BIT >> 1))) == 0) -#define C_and(x, y) (C_truep(x) ? (y) : C_SCHEME_FALSE) -#define C_c_bytevector(x) ((unsigned char *)C_data_pointer(x)) -#define C_c_bytevector_or_null(x) ((unsigned char *)C_data_pointer_or_null(x)) -#define C_srfi_4_vector(x) C_data_pointer(C_block_item(x,1)) -#define C_c_s8vector(x) ((signed char *)C_srfi_4_vector(x)) -#define C_c_s8vector_or_null(x) ((signed char *)C_srfi_4_vector_or_null(x)) -#define C_c_u16vector(x) ((unsigned short *)C_srfi_4_vector(x)) -#define C_c_u16vector_or_null(x) ((unsigned short *)C_srfi_4_vector_or_null(x)) -#define C_c_s16vector(x) ((short *)C_srfi_4_vector(x)) -#define C_c_s16vector_or_null(x) ((short *)C_srfi_4_vector_or_null(x)) -#define C_c_u32vector(x) ((C_u32 *)C_srfi_4_vector(x)) -#define C_c_u32vector_or_null(x) ((C_u32 *)C_srfi_4_vector_or_null(x)) -#define C_c_s32vector(x) ((C_s32 *)C_srfi_4_vector(x)) -#define C_c_s32vector_or_null(x) ((C_s32 *)C_srfi_4_vector_or_null(x)) -#define C_c_u64vector(x) ((C_u64 *)C_srfi_4_vector(x)) -#define C_c_u64vector_or_null(x) ((C_u64 *)C_srfi_4_vector_or_null(x)) -#define C_c_s64vector(x) ((C_s64 *)C_srfi_4_vector(x)) -#define C_c_s64vector_or_null(x) ((C_s64 *)C_srfi_4_vector_or_null(x)) -#define C_c_f32vector(x) ((float *)C_srfi_4_vector(x)) -#define C_c_f32vector_or_null(x) ((float *)C_srfi_4_vector_or_null(x)) -#define C_c_f64vector(x) ((double *)C_srfi_4_vector(x)) -#define C_c_f64vector_or_null(x) ((double *)C_srfi_4_vector_or_null(x)) -#define C_c_pointer_vector(x) ((void **)C_data_pointer(C_block_item((x), 2))) - -#define C_isnan(f) isnan(f) -#define C_isinf(f) isinf(f) -#define C_isfinite(f) isfinite(f) - -#define C_stack_overflow_check C_stack_check1(C_stack_overflow(NULL)) - -/* TODO: The C_scratch_usage checks should probably be moved. Maybe - * we should add a core#allocate_scratch_inline which will insert - * C_demand/C_stack_probe-like checks to copy the result onto the - * stack or reclaim, but in a clever way so it's only done at the - * "end" of a C function. - */ -#if C_STACK_GROWS_DOWNWARD -# define C_demand(n) ((C_word)(C_stack_pointer - C_stack_limit) > ((n)+C_scratch_usage)) -# define C_stack_check1(err) if(!C_disable_overflow_check) { \ - do { C_byte *_sp = (C_byte*)(C_stack_pointer); \ - if(_sp < (C_byte *)C_stack_hard_limit && \ - ((C_byte *)C_stack_hard_limit - _sp) > C_STACK_RESERVE) \ - err; } \ - while(0);} - -#else -# define C_demand(n) ((C_word)(C_stack_limit - C_stack_pointer) > ((n)+C_scratch_usage)) -# define C_stack_check1(err) if(!C_disable_overflow_check) { \ - do { C_byte *_sp = (C_byte*)(C_stack_pointer); \ - if(_sp > (C_byte *)C_stack_hard_limit && \ - (_sp - (C_byte *)C_stack_hard_limit) > C_STACK_RESERVE) \ - err; } \ - while(0);} - -#endif - -#define C_zero_length_p(x) C_mk_bool(C_header_size(x) == 0) -#define C_boundp(x) C_mk_bool(C_block_item(x, 0) != C_SCHEME_UNBOUND) -#define C_unboundvaluep(x) C_mk_bool((x) == C_SCHEME_UNBOUND) -#define C_blockp(x) C_mk_bool(!C_immediatep(x)) -#define C_forwardedp(x) C_mk_bool((C_block_header(x) & C_GC_FORWARDING_BIT) != 0) -#define C_immp(x) C_mk_bool(C_immediatep(x)) -#define C_flonump(x) C_mk_bool(C_block_header(x) == C_FLONUM_TAG) -#define C_bignump(x) C_mk_bool(C_block_header(x) == C_BIGNUM_TAG) -#define C_stringp(x) C_mk_bool(C_header_bits(x) == C_STRING_TYPE) -#define C_symbolp(x) C_mk_bool(C_block_header(x) == C_SYMBOL_TAG) -#define C_pairp(x) C_mk_bool(C_header_type(x) == C_PAIR_TYPE) -#define C_weak_pairp(x) C_mk_bool(C_block_header(x) == C_WEAK_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_bwpp(x) C_mk_bool((x) == C_SCHEME_BROKEN_WEAK_PTR) -#define C_fixnump(x) C_mk_bool((x) & C_FIXNUM_BIT) -#define C_nfixnump(x) C_mk_nbool((x) & C_FIXNUM_BIT) -#define C_pointerp(x) C_mk_bool(C_block_header(x) == C_POINTER_TAG) -#define C_taggedpointerp(x) C_mk_bool(C_block_header(x) == C_TAGGED_POINTER_TAG) -#define C_lambdainfop(x) C_mk_bool(C_header_bits(x) == C_LAMBDA_INFO_TYPE) -#define C_anypointerp(x) C_mk_bool(C_block_header(x) == C_POINTER_TAG || C_block_header(x) == C_TAGGED_POINTER_TAG) -#define C_specialp(x) C_mk_bool(C_header_bits(x) & C_SPECIALBLOCK_BIT) -#define C_byteblockp(x) C_mk_bool(C_header_bits(x) & C_BYTEBLOCK_BIT) -#define C_sametypep(x, y) C_mk_bool(C_header_bits(x) == C_header_bits(y)) -#define C_eqp(x, y) C_mk_bool((x) == (y)) -#define C_vemptyp(x) C_mk_bool(C_header_size(x) == 0) -#define C_notvemptyp(x) C_mk_bool(C_header_size(x) > 0) - -#define C_port_typep(x, n) C_mk_bool((C_block_item(x, 1) & n) == n) -#define C_input_portp(x) C_and(C_portp(x), C_port_typep(x, 0x2)) -#define C_output_portp(x) C_and(C_portp(x), C_port_typep(x, 0x4)) - -#define C_port_openp(port, n) C_mk_bool((C_block_item(port, 8) & n) == n) -#define C_input_port_openp(port) C_port_openp(port, 0x2) -#define C_output_port_openp(port) C_port_openp(port, 0x4) - -#define C_slot(x, i) C_block_item(x, C_unfix(i)) -#define C_subbyte(x, i) C_fix(((C_byte *)C_data_pointer(x))[ C_unfix(i) ] & 0xff) -#define C_setsubbyte(x, i, n) ((((C_byte *)C_data_pointer(x))[ C_unfix(i) ] = C_unfix(n) & 0xff), C_SCHEME_UNDEFINED) - -#define C_fixnum_times(n1, n2) (C_fix(C_unfix(n1) * C_unfix(n2))) -#define C_u_fixnum_plus(n1, n2) (((n1) - C_FIXNUM_BIT) + (n2)) -#define C_fixnum_plus(n1, n2) (C_u_fixnum_plus(n1, n2) | C_FIXNUM_BIT) -#define C_u_fixnum_difference(n1, n2) ((n1) - (n2) + C_FIXNUM_BIT) -#define C_fixnum_difference(n1, n2) (C_u_fixnum_difference(n1, n2) | C_FIXNUM_BIT) -#define C_u_fixnum_divide(n1, n2) (C_fix(C_unfix(n1) / C_unfix(n2))) -#define C_u_fixnum_and(n1, n2) ((n1) & (n2)) -#define C_fixnum_and(n1, n2) (C_u_fixnum_and(n1, n2) | C_FIXNUM_BIT) -#define C_u_fixnum_or(n1, n2) ((n1) | (n2)) -#define C_fixnum_or(n1, n2) C_u_fixnum_or(n1, n2) -#define C_fixnum_xor(n1, n2) (((n1) ^ (n2)) | C_FIXNUM_BIT) -#define C_fixnum_not(n) ((~(n)) | C_FIXNUM_BIT) -#define C_fixnum_shift_left(n1, n2) (C_fix(((C_uword)C_unfix(n1) << (C_uword)C_unfix(n2)))) -#define C_fixnum_shift_right(n1, n2) (((n1) >> (C_uword)C_unfix(n2)) | C_FIXNUM_BIT) -#define C_u_fixnum_negate(n) (-(n) + 2 * C_FIXNUM_BIT) -#define C_fixnum_negate(n) (C_u_fixnum_negate(n) | C_FIXNUM_BIT) -#define C_fixnum_greaterp(n1, n2) (C_mk_bool((C_word)(n1) > (C_word)(n2))) -#define C_fixnum_lessp(n1, n2) (C_mk_bool((C_word)(n1) < (C_word)(n2))) -#define C_fixnum_greater_or_equal_p(n1, n2) (C_mk_bool((C_word)(n1) >= (C_word)(n2))) -#define C_fixnum_less_or_equal_p(n1, n2)(C_mk_bool((C_word)(n1) <= (C_word)(n2))) -#define C_u_fixnum_increase(n) ((n) + (1 << C_FIXNUM_SHIFT)) -#define C_fixnum_increase(n) (C_u_fixnum_increase(n) | C_FIXNUM_BIT) -#define C_u_fixnum_decrease(n) ((n) - (1 << C_FIXNUM_SHIFT)) -#define C_fixnum_decrease(n) (C_u_fixnum_decrease(n) | C_FIXNUM_BIT) -/* XXX TODO: This should probably be renamed C_u_fixnum_abs or something */ -#define C_fixnum_abs(n) C_fix(abs(C_unfix(n))) -#define C_a_i_fixnum_abs(ptr, n, x) (((x) & C_INT_SIGN_BIT) ? C_a_i_fixnum_negate((ptr), (n), (x)) : (x)) -#define C_i_fixnum_signum(x) ((x) == C_fix(0) ? (x) : (((x) & C_INT_SIGN_BIT) ? C_fix(-1) : C_fix(1))) -#define C_i_fixnum_length(x) C_fix(C_ilen(((x) & C_INT_SIGN_BIT) ? ~C_unfix(x) : C_unfix(x))) - -#define C_flonum_equalp(n1, n2) C_mk_bool(C_flonum_magnitude(n1) == C_flonum_magnitude(n2)) -#define C_flonum_greaterp(n1, n2) C_mk_bool(C_flonum_magnitude(n1) > C_flonum_magnitude(n2)) -#define C_flonum_lessp(n1, n2) C_mk_bool(C_flonum_magnitude(n1) < C_flonum_magnitude(n2)) -#define C_flonum_greater_or_equal_p(n1, n2) C_mk_bool(C_flonum_magnitude(n1) >= C_flonum_magnitude(n2)) -#define C_flonum_less_or_equal_p(n1, n2) C_mk_bool(C_flonum_magnitude(n1) <= C_flonum_magnitude(n2)) - -#define C_a_i_flonum_plus(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) + C_flonum_magnitude(n2)) -#define C_a_i_flonum_difference(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) - C_flonum_magnitude(n2)) -#define C_a_i_flonum_times(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) * C_flonum_magnitude(n2)) -#define C_a_i_flonum_multiply_add(ptr, c, n1, n2, n3) C_flonum(ptr, fma(C_flonum_magnitude(n1), C_flonum_magnitude(n2), C_flonum_magnitude(n3))) -#define C_a_i_flonum_quotient(ptr, c, n1, n2) C_flonum(ptr, C_flonum_magnitude(n1) / C_flonum_magnitude(n2)) -#define C_a_i_flonum_negate(ptr, c, n) C_flonum(ptr, -C_flonum_magnitude(n)) -#define C_a_u_i_flonum_signum(ptr, n, x) (C_flonum_magnitude(x) == 0.0 ? (x) : ((C_flonum_magnitude(x) < 0.0) ? C_flonum(ptr, -1.0) : C_flonum(ptr, 1.0))) - -#define C_a_i_address_to_pointer(ptr, c, addr) C_mpointer(ptr, (void *)C_num_to_unsigned_int(addr)) -#define C_a_i_pointer_to_address(ptr, c, pptr) C_unsigned_int_to_num(ptr, (unsigned int)C_c_pointer_nn(pptr)) - -#define C_display_fixnum(p, n) (C_fprintf(C_port_file(p), C_text("%d"), C_unfix(n)), C_SCHEME_UNDEFINED) -#define C_display_char(p, c) (C_utf_putc(C_character_code(c), C_port_file(p)), C_SCHEME_UNDEFINED) -#define C_display_string(p, s, start, len) \ - (C_fwrite(C_c_string(s) + C_unfix(start), sizeof(C_char), C_unfix(len), 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_bv_compare(x, y, n) C_mk_bool(C_memcmp(C_data_pointer(x), C_data_pointer(y), C_unfix(n)) == 0) -#define C_u_i_string_equal_p(x, y) C_utf_equal(x, y) -#define C_u_i_string_ci_equal_p(x, y) C_utf_equal_ci(x, y) - -#define C_u_i_substring_equal_p(x, y, s1, s2, len) \ - C_mk_bool(C_utf_compare(x, y, s1, s2, len) == C_fix(0)) -#define C_u_i_substring_ci_equal_p(x, y, s1, s2, len) \ - C_mk_bool(C_utf_compare_ci(x, y, s1, s2, len) == C_fix(0)) - -/* this does not use C_mutate: */ -#define C_copy_bytevector(b1, b2, len) (C_memcpy(C_data_pointer(b2), C_data_pointer(b1), C_unfix(len)), (b2)) -#define C_fill_bytevector(bv, code, start, len) \ - (C_memset(C_data_pointer(bv) + C_unfix(start), C_unfix(code), C_unfix(len)), \ - C_SCHEME_UNDEFINED) -#define C_subvector_copy(v1, v2, start1, end1, start2) \ - (C_memcpy_slots((C_char *)C_data_pointer(v2) + C_unfix(start2), \ - (C_char *)C_data_pointer(v1) + C_unfix(start1), \ - C_unfix(end1) - C_unfix(start1) ), C_SCHEME_UNDEFINED) -#define C_words(n) C_fix(C_bytestowords(C_unfix(n))) -#define C_bytes(n) C_fix(C_wordstobytes(C_unfix(n))) -#define C_rand(n) C_fix((C_word)(((double)C_fast_rand())/(32767 + 1.0) * C_unfix(n))) -#define C_block_size(x) C_fix(C_header_size(x)) -#define C_u_i_bignum_size(b) C_fix(C_bignum_size(b)) -#define C_a_u_i_big_to_flo(p, n, b) C_flonum(p, C_bignum_to_double(b)) -#define C_u_i_ratnum_num(r) C_block_item((r), 0) -#define C_u_i_ratnum_denom(r) C_block_item((r), 1) -#define C_u_i_cplxnum_real(c) C_block_item((c), 0) -#define C_u_i_cplxnum_imag(c) C_block_item((c), 1) -#define C_pointer_address(x) ((C_byte *)C_block_item((x), 0)) -#define C_block_address(ptr, n, x) C_a_unsigned_int_to_num(ptr, n, x) -#define C_offset_pointer(x, y) (C_pointer_address(x) + (y)) -#define C_do_apply(c, av) ((C_proc)(void *)C_block_item((av)[0], 0))((c), (av)) -#define C_kontinue(k, r) do { C_word avk[ 2 ]; avk[ 0 ] = (k); avk[ 1 ] = (r); ((C_proc)(void *)C_block_item((k),0))(2, avk); } while(0) -#define C_get_rest_arg(c, n, av, ka, cl)((n) >= (c) ? (C_rest_arg_out_of_bounds_error_2(C_fix(c), C_fix(n), C_fix(ka), (cl)), C_SCHEME_UNDEFINED) : (av)[(n)]) -#define C_rest_arg_out_of_bounds_error_value(c, n, ka) (C_rest_arg_out_of_bounds_error((c),(n),(ka)), C_SCHEME_UNDEFINED) -#define C_rest_nullp(c, n) (C_mk_bool((n) >= (c))) -#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_memmove(C_data_pointer(to), C_data_pointer(from), C_unfix(n)), C_SCHEME_UNDEFINED) -#define C_copy_memory_with_offset(to, from, start1, start2, n) \ - (C_memmove(C_data_pointer(to) + C_unfix(start1), C_data_pointer(from) + C_unfix(start2), 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_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_trace_info(l, x, y, z) C_emit_trace_info2(NULL, l, x, y, z) -#define C_emit_eval_trace_info(x, y, z) C_emit_trace_info2(C_text(""), C_SCHEME_FALSE, x, y, z) -#define C_emit_syntax_trace_info(x, y, z) C_emit_trace_info2(C_text(""), C_SCHEME_FALSE, 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_bytevector_to_lambdainfo(s) (C_block_header(s) = C_header_size(s) | C_LAMBDA_INFO_TYPE, C_SCHEME_UNDEFINED) - -#ifdef C_TIMER_INTERRUPTS -# define C_check_for_interrupt if(--C_timer_interrupt_counter <= 0) C_raise_interrupt(C_TIMER_INTERRUPT_NUMBER) -#else -# define C_check_for_interrupt -#endif - -#define C_set_initial_timer_interrupt_period(n) \ - (C_initial_timer_interrupt_period = C_unfix(n), C_SCHEME_UNDEFINED) - - -#ifdef HAVE_STATEMENT_EXPRESSIONS -# define C_a_i(a, n) ({C_word *tmp = *a; *a += (n); tmp;}) -# define C_a_i_cons(a, n, car, cdr) ({C_word tmp = (C_word)(*a); (*a)[0] = C_PAIR_TAG; *a += C_SIZEOF_PAIR; \ - C_set_block_item(tmp, 0, car); C_set_block_item(tmp, 1, cdr); tmp;}) -# define C_a_i_weak_cons(a, n, car, cdr) ({C_word tmp = (C_word)(*a); (*a)[0] = C_WEAK_PAIR_TAG; *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) -# define C_a_i_weak_cons(a, n, car, cdr) C_a_weak_pair(a, car, cdr) -#endif /* HAVE_STATEMENT_EXPRESSIONS */ - -#define C_a_i_flonum(ptr, c, n) C_flonum(ptr, n) -#define C_a_i_ratnum(ptr, c, n, d) C_ratnum(ptr, n, d) -#define C_a_i_cplxnum(ptr, c, r, i) C_cplxnum(ptr, r, i) -#define C_a_i_data_mpointer(ptr, n, x) C_mpointer(ptr, C_data_pointer(x)) -#define C_a_i_fix_to_flo(p, n, f) C_flonum(p, C_unfix(f)) -#define C_cast_to_flonum(n) ((double)(n)) -#define C_a_i_mpointer(ptr, n, x) C_mpointer(ptr, (x)) -#define C_a_u_i_pointer_inc(ptr, n, p, i) C_mpointer(ptr, (C_char *)(p) + C_unfix(i)) -#define C_pointer_eqp(x, y) C_mk_bool(C_c_pointer_nn(x) == C_c_pointer_nn(y)) -#define C_a_int_to_num(ptr, n, i) C_int_to_num(ptr, i) -#define C_a_unsigned_int_to_num(ptr, n, i) C_unsigned_int_to_num(ptr, i) -#define C_a_i_vector C_vector -#define C_list C_a_i_list -#define C_i_setslot(x, i, y) (C_mutate(&C_block_item(x, C_unfix(i)), y), C_SCHEME_UNDEFINED) -#define C_i_set_i_slot(x, i, y) (C_set_block_item(x, C_unfix(i), y), C_SCHEME_UNDEFINED) -#define C_u_i_set_car(p, x) (C_mutate(&C_u_i_car(p), x), C_SCHEME_UNDEFINED) -#define C_u_i_set_cdr(p, x) (C_mutate(&C_u_i_cdr(p), x), C_SCHEME_UNDEFINED) -#define C_a_i_putprop(p, c, x, y, z) C_putprop(p, x, y, z) - -#define C_i_not(x) (C_truep(x) ? C_SCHEME_FALSE : C_SCHEME_TRUE) -#define C_i_equalp(x, y) C_mk_bool(C_equalp((x), (y))) -#define C_i_fixnumevenp(x) C_mk_nbool((x) & 0x00000002) -#define C_i_fixnumoddp(x) C_mk_bool((x) & 0x00000002) -#define C_i_fixnum_negativep(x) C_mk_bool((x) & C_INT_SIGN_BIT) -#define C_i_fixnum_positivep(x) C_mk_bool(!((x) & C_INT_SIGN_BIT) && (x) != C_fix(0)) -#define C_i_nullp(x) C_mk_bool((x) == C_SCHEME_END_OF_LIST) -#define C_i_structurep(x, s) C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_STRUCTURE_TYPE && C_block_item(x, 0) == (s)) - -#define C_u_i_char_alphabeticp(x) C_mk_bool(C_utf_isalpha(C_character_code(x))) -#define C_u_i_char_numericp(x) C_mk_bool(C_utf_isdigit(C_character_code(x))) -#define C_u_i_char_whitespacep(x) C_mk_bool(C_utf_isspace(C_character_code(x))) -#define C_u_i_char_upper_casep(x) C_mk_bool(C_utf_isupper(C_character_code(x))) -#define C_u_i_char_lower_casep(x) C_mk_bool(C_utf_islower(C_character_code(x))) -#define C_u_i_digit_value(x) C_fix(C_utf_isdigit(C_character_code(x))) - -#define C_u_i_char_upcase(x) C_make_character(C_utf_char_upcase(C_character_code(x))) -#define C_u_i_char_downcase(x) C_make_character(C_utf_char_downcase(C_character_code(x))) -#define C_utf_length(bv) C_fix(C_utf_count((C_char *)C_data_pointer(bv), C_header_size(bv) - 1)) -#define C_utf_range_length(bv, from, to) C_fix(C_utf_count((C_char *)C_data_pointer(bv) + C_unfix(from), C_unfix(to) - C_unfix(from))) - -#define C_i_list_ref(lst, i) C_i_car(C_i_list_tail(lst, i)) -#define C_u_i_list_ref(lst, i) C_u_i_car(C_i_list_tail(lst, i)) - -#define C_u_i_car(x) (*C_CHECKp(x,C_pairp(C_VAL1(x)),&C_block_item(C_VAL1(x), 0))) -#define C_u_i_cdr(x) (*C_CHECKp(x,C_pairp(C_VAL1(x)),&C_block_item(C_VAL1(x), 1))) -#define C_u_i_caar(x) C_u_i_car( C_u_i_car( x ) ) -#define C_u_i_cadr(x) C_u_i_car( C_u_i_cdr( x ) ) -#define C_u_i_cdar(x) C_u_i_cdr( C_u_i_car( x ) ) -#define C_u_i_cddr(x) C_u_i_cdr( C_u_i_cdr( x ) ) -#define C_u_i_caaar(x) C_u_i_car( C_u_i_caar( x ) ) -#define C_u_i_caadr(x) C_u_i_car( C_u_i_cadr( x ) ) -#define C_u_i_cadar(x) C_u_i_car( C_u_i_cdar( x ) ) -#define C_u_i_caddr(x) C_u_i_car( C_u_i_cddr( x ) ) -#define C_u_i_cdaar(x) C_u_i_cdr( C_u_i_caar( x ) ) -#define C_u_i_cdadr(x) C_u_i_cdr( C_u_i_cadr( x ) ) -#define C_u_i_cddar(x) C_u_i_cdr( C_u_i_cdar( x ) ) -#define C_u_i_cdddr(x) C_u_i_cdr( C_u_i_cddr( x ) ) -#define C_u_i_caaaar(x) C_u_i_car( C_u_i_caaar( x ) ) -#define C_u_i_caaadr(x) C_u_i_car( C_u_i_caadr( x ) ) -#define C_u_i_caadar(x) C_u_i_car( C_u_i_cadar( x ) ) -#define C_u_i_caaddr(x) C_u_i_car( C_u_i_caddr( x ) ) -#define C_u_i_cadaar(x) C_u_i_car( C_u_i_cdaar( x ) ) -#define C_u_i_cadadr(x) C_u_i_car( C_u_i_cdadr( x ) ) -#define C_u_i_caddar(x) C_u_i_car( C_u_i_cddar( x ) ) -#define C_u_i_cadddr(x) C_u_i_car( C_u_i_cdddr( x ) ) -#define C_u_i_cdaaar(x) C_u_i_cdr( C_u_i_caaar( x ) ) -#define C_u_i_cdaadr(x) C_u_i_cdr( C_u_i_caadr( x ) ) -#define C_u_i_cdadar(x) C_u_i_cdr( C_u_i_cadar( x ) ) -#define C_u_i_cdaddr(x) C_u_i_cdr( C_u_i_caddr( x ) ) -#define C_u_i_cddaar(x) C_u_i_cdr( C_u_i_cdaar( x ) ) -#define C_u_i_cddadr(x) C_u_i_cdr( C_u_i_cdadr( x ) ) -#define C_u_i_cdddar(x) C_u_i_cdr( C_u_i_cddar( x ) ) -#define C_u_i_cddddr(x) C_u_i_cdr( C_u_i_cdddr( x ) ) - -#ifdef HAVE_STATEMENT_EXPRESSIONS -# define C_i_not_pair_p(x) ({C_word tmp = (x); C_mk_bool(C_immediatep(tmp) || C_header_type(tmp) != C_PAIR_TYPE);}) -#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) /* DEPRECATED */ -#define C_i_check_fixnum(x) C_i_check_fixnum_2(x, C_SCHEME_FALSE) -#define C_i_check_inexact(x) C_i_check_inexact_2(x, C_SCHEME_FALSE) -#define C_i_check_number(x) C_i_check_number_2(x, C_SCHEME_FALSE) -#define C_i_check_string(x) C_i_check_string_2(x, C_SCHEME_FALSE) -#define C_i_check_bytevector(x) C_i_check_bytevector_2(x, C_SCHEME_FALSE) -#define C_i_check_keyword(x) C_i_check_keyword_2(x, C_SCHEME_FALSE) -#define C_i_check_symbol(x) C_i_check_symbol_2(x, C_SCHEME_FALSE) -#define C_i_check_list(x) C_i_check_list_2(x, C_SCHEME_FALSE) -#define C_i_check_pair(x) C_i_check_pair_2(x, C_SCHEME_FALSE) -#define C_i_check_locative(x) C_i_check_locative_2(x, C_SCHEME_FALSE) -#define C_i_check_boolean(x) C_i_check_boolean_2(x, C_SCHEME_FALSE) -#define C_i_check_vector(x) C_i_check_vector_2(x, C_SCHEME_FALSE) -#define C_i_check_structure(x, st) C_i_check_structure_2(x, (st), C_SCHEME_FALSE) -#define C_i_check_char(x) C_i_check_char_2(x, C_SCHEME_FALSE) -#define C_i_check_port(x, in, op) C_i_check_port_2(x, in, op, C_SCHEME_FALSE) -#define C_i_check_range(i, f, t) C_i_check_range_2(i, f, t, C_SCHEME_FALSE) -#define C_i_check_range_including(i, f, t) C_i_check_range_including_2(i, f, t, C_SCHEME_FALSE) - -#define C_u_i_string_length(x) C_block_item((x), 1) -#define C_u_i_bytevector_length(x) C_block_size(x) - -#define C_u_i_8vector_length C_u_i_bytevector_length -#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(x) C_fix(C_header_size(C_block_item(x, 1))) -#define C_u_i_u16vector_length C_u_i_16vector_length -#define C_u_i_s16vector_length C_u_i_16vector_length -#define C_u_i_u32vector_length C_u_i_32vector_length -#define C_u_i_s32vector_length C_u_i_32vector_length -#define C_u_i_u64vector_length C_u_i_64vector_length -#define C_u_i_s64vector_length C_u_i_64vector_length -#define C_u_i_f32vector_length C_u_i_32vector_length -#define C_u_i_f64vector_length C_u_i_64vector_length - -#define C_u_i_bytevector_ref(x, i) C_fix(((unsigned char *)C_data_pointer(x))[ C_unfix(i) ]) -#define C_u_i_u8vector_ref C_u_i_bytevector_ref -#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_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) - -#define C_a_u_i_u32vector_ref(ptr, c, x, i) C_unsigned_int_to_num(ptr, ((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) -#define C_a_u_i_s32vector_ref(ptr, c, x, i) C_int_to_num(ptr, ((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) - -#define C_a_u_i_u64vector_ref(ptr, c, x, i) C_uint64_to_num(ptr, ((C_u64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) -#define C_a_u_i_s64vector_ref(ptr, c, x, i) C_int64_to_num(ptr, ((C_s64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ]) - -#define C_u_i_bytevector_set(x, i, v) ((((unsigned char *)C_data_pointer(x))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) -#define C_u_i_u8vector_set C_u_i_bytevector_set -#define C_i_u8vector_set C_i_bytevector_set -#define C_u_i_s8vector_set(x, i, v) ((((signed char *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) -#define C_u_i_u16vector_set(x, i, v) ((((unsigned short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) -#define C_u_i_s16vector_set(x, i, v) ((((short *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_unfix(v)), C_SCHEME_UNDEFINED) -#define C_u_i_u32vector_set(x, i, v) ((((C_u32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_unsigned_int(v)), C_SCHEME_UNDEFINED) -#define C_u_i_s32vector_set(x, i, v) ((((C_s32 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_int(v)), C_SCHEME_UNDEFINED) -#define C_u_i_u64vector_set(x, i, v) ((((C_u64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_uint64(v)), C_SCHEME_UNDEFINED) -#define C_u_i_s64vector_set(x, i, v) ((((C_s64 *)C_data_pointer(C_block_item((x), 1)))[ C_unfix(i) ] = C_num_to_int64(v)), C_SCHEME_UNDEFINED) - -/* DEPRECATED */ -#define C_u_i_bit_to_bool(x, i) C_mk_bool((C_unfix(x) & (1 << C_unfix(i))) != 0) - -#define C_u_i_pointer_u8_ref(ptr) C_fix(*((unsigned char *)C_block_item(ptr, 0))) -#define C_u_i_pointer_s8_ref(ptr) C_fix(*((signed char *)C_block_item(ptr, 0))) -#define C_u_i_pointer_u16_ref(ptr) C_fix(*((unsigned short *)C_block_item(ptr, 0))) -#define C_u_i_pointer_s16_ref(ptr) C_fix(*((short *)C_block_item(ptr, 0))) -#define C_a_u_i_pointer_u32_ref(ap, n, ptr) \ - C_unsigned_int_to_num(ap, *((C_u32 *)C_block_item(ptr, 0))) -#define C_a_u_i_pointer_s32_ref(ap, n, ptr) \ - C_int_to_num(ap, *((C_s32 *)C_block_item(ptr, 0))) -#define C_a_u_i_pointer_u64_ref(ap, n, ptr) \ - C_uint64_to_num(ap, *((C_u64 *)C_block_item(ptr, 0))) -#define C_a_u_i_pointer_s64_ref(ap, n, ptr) \ - C_int64_to_num(ap, *((C_s64 *)C_block_item(ptr, 0))) -#define C_a_u_i_pointer_f32_ref(ap, n, ptr) C_flonum(ap, *((float *)C_block_item(ptr, 0))) -#define C_a_u_i_pointer_f64_ref(ap, n, ptr) C_flonum(ap, *((double *)C_block_item(ptr, 0))) -#define C_u_i_pointer_u8_set(ptr, x) \ - (*((unsigned char *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_s8_set(ptr, x) \ - (*((signed char *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_u16_set(ptr, x) \ - (*((unsigned short *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_s16_set(ptr, x) \ - (*((short *)C_block_item(ptr, 0)) = C_unfix(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_u32_set(ptr, x) \ - (*((C_u32 *)C_block_item(ptr, 0)) = C_num_to_unsigned_int(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_s32_set(ptr, x) \ - (*((C_s32 *)C_block_item(ptr, 0)) = C_num_to_int(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_u64_set(ptr, x) \ - (*((C_u64 *)C_block_item(ptr, 0)) = C_num_to_uint64(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_s64_set(ptr, x) \ - (*((C_s64 *)C_block_item(ptr, 0)) = C_num_to_int64(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_f32_set(ptr, x) \ - (*((float *)C_block_item(ptr, 0)) = C_flonum_magnitude(x), C_SCHEME_UNDEFINED) -#define C_u_i_pointer_f64_set(ptr, x) \ - (*((double *)C_block_item(ptr, 0)) = C_flonum_magnitude(x), C_SCHEME_UNDEFINED) - -#ifdef C_BIG_ENDIAN -# ifdef C_SIXTY_FOUR -# define C_lihdr(x, y, z) ((C_LAMBDA_INFO_TYPE >> 56) & 0xff), \ - 0, 0, 0, 0, (x), (y), ((C_char)(z)) -# else -# define C_lihdr(x, y, z) ((C_LAMBDA_INFO_TYPE >> 24) & 0xff), \ - (x), (y), ((C_char)(z)) -# endif -#else -# ifdef C_SIXTY_FOUR -# define C_lihdr(x, y, z) ((C_char)(z)), (y), (x), 0, 0, 0, 0, \ - ((C_LAMBDA_INFO_TYPE >> 56) & 0xff) -# else -# define C_lihdr(x, y, z) ((C_char)(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_multiply_add(x, y, z) C_fma((x), (y), (z)) - -#define C_ub_i_flonum_equalp(n1, n2) C_mk_bool((n1) == (n2)) -#define C_ub_i_flonum_greaterp(n1, n2) C_mk_bool((n1) > (n2)) -#define C_ub_i_flonum_lessp(n1, n2) C_mk_bool((n1) < (n2)) -#define C_ub_i_flonum_greater_or_equal_p(n1, n2) C_mk_bool((n1) >= (n2)) -#define C_ub_i_flonum_less_or_equal_p(n1, n2) C_mk_bool((n1) <= (n2)) - -#define C_ub_i_flonum_nanp(x) C_mk_bool(C_isnan(x)) -#define C_ub_i_flonum_infinitep(x) C_mk_bool(C_isinf(x)) -#define C_ub_i_flonum_finitep(x) C_mk_bool(C_isfinite(x)) - -#define C_ub_i_pointer_inc(p, n) ((void *)((unsigned char *)(p) + (n))) -#define C_ub_i_pointer_eqp(p1, p2) C_mk_bool((p1) == (p2)) -#define C_ub_i_null_pointerp(p) C_mk_bool((p) == NULL) - -#define C_ub_i_pointer_u8_ref(p) (*((unsigned char *)(p))) -#define C_ub_i_pointer_s8_ref(p) (*((signed char *)(p))) -#define C_ub_i_pointer_u16_ref(p) (*((unsigned short *)(p))) -#define C_ub_i_pointer_s16_ref(p) (*((short *)(p))) -#define C_ub_i_pointer_u32_ref(p) (*((C_u32 *)(p))) -#define C_ub_i_pointer_s32_ref(p) (*((C_s32 *)(p))) -#define C_ub_i_pointer_u64_ref(p) (*((C_u64 *)(p))) -#define C_ub_i_pointer_s64_ref(p) (*((C_s64 *)(p))) -#define C_ub_i_pointer_f32_ref(p) (*((float *)(p))) -#define C_ub_i_pointer_f64_ref(p) (*((double *)(p))) -#define C_ub_i_pointer_u8_set(p, n) (*((unsigned char *)(p)) = (n)) -#define C_ub_i_pointer_s8_set(p, n) (*((signed char *)(p)) = (n)) -#define C_ub_i_pointer_u16_set(p, n) (*((unsigned short *)(p)) = (n)) -#define C_ub_i_pointer_s16_set(p, n) (*((short *)(p)) = (n)) -#define C_ub_i_pointer_u32_set(p, n) (*((C_u32 *)(p)) = (n)) -#define C_ub_i_pointer_s32_set(p, n) (*((C_s32 *)(p)) = (n)) -#define C_ub_i_pointer_u64_set(p, n) (*((C_u64 *)(p)) = (n)) -#define C_ub_i_pointer_s64_set(p, n) (*((C_s64 *)(p)) = (n)) -#define C_ub_i_pointer_f32_set(p, n) (*((float *)(p)) = (n)) -#define C_ub_i_pointer_f64_set(p, n) (*((double *)(p)) = (n)) - -#ifdef C_PRIVATE_REPOSITORY -# define C_private_repository() C_use_private_repository(C_executable_dirname()) -#else -# define C_private_repository() -#endif - -#ifdef C_GUI -# define C_set_gui_mode C_gui_mode = 1 -#else -# define C_set_gui_mode -#endif - -/** - * SEARCH_EXE_PATH is defined on platforms on which we must search for - * the current executable. Because this search is sensitive to things - * like CWD, PATH, and so on, it's done once at startup and saved in - * `C_main_exe`. - * - * On platforms where it's not defined, there's a simple way to - * retrieve a path to the current executable (such as reading - * "/proc//exe" or some similar trick). - */ -#ifdef SEARCH_EXE_PATH -# define C_set_main_exe(fname) C_main_exe = C_resolve_executable_pathname(fname) -#else -# define C_set_main_exe(fname) -#endif - -#if !defined(C_EMBEDDED) && !defined(C_SHARED) -# if defined(C_GUI) && defined(_WIN32) -# define C_main_entry_point \ - int WINAPI WinMain(HINSTANCE me, HINSTANCE you, LPSTR cmdline, int show) \ - { \ - C_gui_mode = 1; \ - C_set_main_exe(argv[0]); \ - C_private_repository(); \ - return CHICKEN_main(0, NULL, (void *)C_toplevel); \ - } -# else -# define C_main_entry_point \ - int main(int argc, char *argv[]) \ - { \ - C_set_gui_mode; \ - C_set_main_exe(argv[0]); \ - C_private_repository(); \ - return CHICKEN_main(argc, argv, (void*)C_toplevel); \ - } -# endif -#else -# define C_main_entry_point -#endif - -#define C_alloc_flonum C_word *___tmpflonum = C_alloc(WORDS_PER_FLONUM) -#define C_kontinue_flonum(k, n) C_kontinue((k), C_flonum(&___tmpflonum, (n))) - -#define C_a_i_flonum_truncate(ptr, n, x) C_flonum(ptr, C_trunc(C_flonum_magnitude(x))) -#define C_a_i_flonum_ceiling(ptr, n, x) C_flonum(ptr, C_ceil(C_flonum_magnitude(x))) -#define C_a_i_flonum_floor(ptr, n, x) C_flonum(ptr, C_floor(C_flonum_magnitude(x))) -#define C_a_i_flonum_round(ptr, n, x) C_flonum(ptr, C_round(C_flonum_magnitude(x))) - -#define C_a_u_i_f32vector_ref(ptr, n, b, i) C_flonum(ptr, ((float *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) -#define C_a_u_i_f64vector_ref(ptr, n, b, i) C_flonum(ptr, ((double *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) -#define C_u_i_f32vector_set(v, i, x) ((((float *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = C_flonum_magnitude(x)), C_SCHEME_UNDEFINED) -#define C_u_i_f64vector_set(v, i, x) ((((double *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = C_flonum_magnitude(x)), C_SCHEME_UNDEFINED) - -#define C_ub_i_f32vector_ref(b, i) (((float *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) -#define C_ub_i_f64vector_ref(b, i) (((double *)C_data_pointer(C_block_item((b), 1)))[ C_unfix(i) ]) -#define C_ub_i_f32vector_set(v, i, x) ((((float *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = (x)), 0) -#define C_ub_i_f64vector_set(v, i, x) ((((double *)C_data_pointer(C_block_item((v), 1)))[ C_unfix(i) ] = (x)), 0) - -#define C_a_i_flonum_sin(ptr, c, x) C_flonum(ptr, C_sin(C_flonum_magnitude(x))) -#define C_a_i_flonum_cos(ptr, c, x) C_flonum(ptr, C_cos(C_flonum_magnitude(x))) -#define C_a_i_flonum_tan(ptr, c, x) C_flonum(ptr, C_tan(C_flonum_magnitude(x))) -#define C_a_i_flonum_asin(ptr, c, x) C_flonum(ptr, C_asin(C_flonum_magnitude(x))) -#define C_a_i_flonum_acos(ptr, c, x) C_flonum(ptr, C_acos(C_flonum_magnitude(x))) -#define C_a_i_flonum_atan(ptr, c, x) C_flonum(ptr, C_atan(C_flonum_magnitude(x))) -#define C_a_i_flonum_atan2(ptr, c, x, y) C_flonum(ptr, C_atan2(C_flonum_magnitude(x), C_flonum_magnitude(y))) -#define C_a_i_flonum_sinh(ptr, c, x) C_flonum(ptr, C_sinh(C_flonum_magnitude(x))) -#define C_a_i_flonum_cosh(ptr, c, x) C_flonum(ptr, C_cosh(C_flonum_magnitude(x))) -#define C_a_i_flonum_tanh(ptr, c, x) C_flonum(ptr, C_tanh(C_flonum_magnitude(x))) -#define C_a_i_flonum_asinh(ptr, c, x) C_flonum(ptr, C_asinh(C_flonum_magnitude(x))) -#define C_a_i_flonum_acosh(ptr, c, x) C_flonum(ptr, C_acosh(C_flonum_magnitude(x))) -#define C_a_i_flonum_atanh(ptr, c, x) C_flonum(ptr, C_atanh(C_flonum_magnitude(x))) -#define C_a_i_flonum_exp(ptr, c, x) C_flonum(ptr, C_exp(C_flonum_magnitude(x))) -#define C_a_i_flonum_expt(ptr, c, x, y) C_flonum(ptr, C_pow(C_flonum_magnitude(x), C_flonum_magnitude(y))) -#define C_a_i_flonum_log(ptr, c, x) C_flonum(ptr, C_log(C_flonum_magnitude(x))) -#define C_a_i_flonum_sqrt(ptr, c, x) C_flonum(ptr, C_sqrt(C_flonum_magnitude(x))) -#define C_a_i_flonum_abs(ptr, c, x) C_flonum(ptr, C_fabs(C_flonum_magnitude(x))) -#define C_u_i_flonum_nanp(x) C_mk_bool(C_isnan(C_flonum_magnitude(x))) -#define C_u_i_flonum_infinitep(x) C_mk_bool(C_isinf(C_flonum_magnitude(x))) -#define C_u_i_flonum_finitep(x) C_mk_bool(C_isfinite(C_flonum_magnitude(x))) - -#define C_a_i_current_process_milliseconds(ptr, c, dummy) C_uint64_to_num(ptr, C_current_process_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) - -/* struct/union wrapping */ -#define C_a_extract_struct(a, t, x) ({t _r = (x); C_a_extract_struct_2(a, sizeof(t), &_r);}) -#define C_build_struct(t, x) ({t _a;_a = *((t *)C_data_pointer(x));_a;}) - -/* debug client interface */ - -typedef struct C_DEBUG_INFO { - int event; - int enabled; - C_char *loc; - C_char *val; -} C_DEBUG_INFO; - -#define C_DEBUG_CALL 1 -#define C_DEBUG_GLOBAL_ASSIGN 2 -#define C_DEBUG_GC 3 -#define C_DEBUG_ENTRY 4 -#define C_DEBUG_SIGNAL 5 -#define C_DEBUG_CONNECT 6 -#define C_DEBUG_LISTEN 7 -#define C_DEBUG_INTERRUPTED 8 - -#define C_debugger(cell, c, av) (C_debugger_hook != NULL ? C_debugger_hook(cell, c, av, C_text(__FILE__ ":" C__STR2(__LINE__))) : C_SCHEME_UNDEFINED) - -/* Variables: */ - -C_varextern time_t C_startup_time_seconds; -C_varextern C_word - *C_temporary_stack, - *C_temporary_stack_bottom, - *C_temporary_stack_limit, - *C_stack_limit, - *C_stack_hard_limit, - *C_scratchspace_start, - *C_scratchspace_top, - *C_scratchspace_limit, - C_scratch_usage; -C_varextern C_long - C_timer_interrupt_counter, - C_initial_timer_interrupt_period; -C_varextern C_byte - *C_fromspace_top, - *C_fromspace_limit; -#ifdef HAVE_SIGSETJMP -C_varextern sigjmp_buf C_restart; -#else -C_varextern jmp_buf C_restart; -#endif -C_varextern void *C_restart_address; -C_varextern int C_entry_point_status; -C_varextern int C_gui_mode; - -C_varextern void *C_restart_trampoline; -C_varextern void (*C_pre_gc_hook)(int mode); -C_varextern void (*C_post_gc_hook)(int mode, C_long ms); -C_varextern void (*C_panic_hook)(C_char *msg); -C_varextern C_word (*C_debugger_hook)(C_DEBUG_INFO *cell, C_word c, C_word *av, char *cloc); - -C_varextern int - C_abort_on_thread_exceptions, - C_interrupts_enabled, - C_disable_overflow_check, - C_heap_size_is_fixed, - C_max_pending_finalizers, - C_trace_buffer_size, - C_debugging, - C_main_argc; -C_varextern C_uword - C_heap_growth, - C_heap_shrinkage; -C_varextern char - **C_main_argv, -#ifdef SEARCH_EXE_PATH - *C_main_exe, -#endif - *C_dlerror; -C_varextern C_uword C_maximal_heap_size; -C_varextern int (*C_gc_mutation_hook)(C_word *slot, C_word val); -C_varextern void (*C_gc_trace_hook)(C_word *var, int mode); -C_varextern C_word (*C_get_unbound_variable_value_hook)(C_word sym); - - -/* Prototypes: */ - -C_BEGIN_C_DECLS - -C_fctexport void C_register_debug_info(C_DEBUG_INFO *); -C_fctexport int CHICKEN_main(int argc, char *argv[], void *toplevel); -C_fctexport int CHICKEN_initialize(int heap, int stack, int symbols, void *toplevel); -C_fctexport C_word CHICKEN_run(void *toplevel); -C_fctexport C_word CHICKEN_continue(C_word k); -C_fctexport void *CHICKEN_new_gc_root(); -C_fctexport void *CHICKEN_new_finalizable_gc_root(); -C_fctexport void *CHICKEN_new_gc_root_2(int finalizable); -C_fctexport void CHICKEN_delete_gc_root(void *root); -C_fctexport void *CHICKEN_global_lookup(char *name); -C_fctexport int CHICKEN_is_running(); -C_fctexport void CHICKEN_interrupt(); - -C_fctexport void C_check_nursery_minimum(C_word size); -C_fctexport int C_save_callback_continuation(C_word **ptr, C_word k); -C_fctexport C_word C_restore_callback_continuation(void); -C_fctexport C_word C_restore_callback_continuation2(int level); -C_fctexport C_word C_callback(C_word closure, int argc); -C_fctexport C_word C_callback_wrapper(void *proc, int argc); -C_fctexport void 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_toplevel_entry(C_char *name) C_regparm; -C_fctexport C_word C_a_i_provide(C_word **a, int c, C_word id) C_regparm; -C_fctexport C_word C_i_providedp(C_word id) C_regparm; -C_fctexport C_word C_enable_interrupts(void) C_regparm; -C_fctexport C_word C_disable_interrupts(void) C_regparm; -C_fctexport void C_set_or_change_heap_size(C_word heap, int reintern); -C_fctexport void C_do_resize_stack(C_word stack); -C_fctexport C_word C_resize_pending_finalizers(C_word size); -C_fctexport void C_initialize_lf(C_word *lf, int count); -C_fctexport void *C_register_lf(C_word *lf, int count); -C_fctexport void *C_register_lf2(C_word *lf, int count, C_PTABLE_ENTRY *ptable); -C_fctexport void C_unregister_lf(void *handle); -C_fctexport C_char *C_dump_trace(int start); -C_fctexport void C_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_string(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_static_string(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_static_bignum(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_static_bytevector(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_static_lambda_info(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_bytevector(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_pbytevector(int len, C_char *str) C_regparm; -C_fctexport C_word C_string2(C_word **ptr, C_char *str) C_regparm; -C_fctexport C_word C_string2_safe(C_word **ptr, int max, C_char *str) C_regparm; -C_fctexport C_word C_intern(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_intern_kw(C_word **ptr, int len, C_char *str) C_regparm; -C_fctexport C_word C_intern_in(C_word **ptr, int len, C_char *str, C_SYMBOL_TABLE *stable) C_regparm; -C_fctexport C_word C_h_intern(C_word *slot, int len, C_char *str) C_regparm; -C_fctexport C_word C_h_intern_kw(C_word *slot, int len, C_char *str) C_regparm; -C_fctexport C_word C_h_intern_in(C_word *slot, int len, C_char *str, C_SYMBOL_TABLE *stable) C_regparm; -C_fctexport C_word C_intern2(C_word **ptr, C_char *str) C_regparm; -C_fctexport C_word C_intern3(C_word **ptr, C_char *str, C_word value) C_regparm; -C_fctexport C_word C_build_rest(C_word **ptr, C_word c, C_word n, C_word *av) C_regparm; -C_fctexport void C_bad_memory(void) C_noret; -C_fctexport void C_bad_memory_2(void) C_noret; -C_fctexport void C_bad_argc(int c, int n) C_noret; -C_fctexport void C_bad_min_argc(int c, int n) C_noret; -C_fctexport void C_bad_argc_2(int c, int n, C_word closure) C_noret; -C_fctexport void C_bad_min_argc_2(int c, int n, C_word closure) C_noret; -C_fctexport void C_stack_overflow(C_char *loc) C_noret; -C_fctexport void C_unbound_error(C_word sym) C_noret; -C_fctexport void C_no_closure_error(C_word x) C_noret; -C_fctexport void C_div_by_zero_error(C_char *loc) C_noret; -C_fctexport void C_unimplemented(C_char *msg) C_noret; -C_fctexport void C_not_an_integer_error(C_char *loc, C_word x) C_noret; -C_fctexport void C_not_an_uinteger_error(C_char *loc, C_word x) C_noret; -C_fctexport void C_rest_arg_out_of_bounds_error(C_word c, C_word n, C_word ka) C_noret; -C_fctexport void C_rest_arg_out_of_bounds_error_2(C_word c, C_word n, C_word ka, C_word closure) C_noret; -C_fctexport C_word C_closure(C_word **ptr, int cells, C_word proc, ...); -C_fctexport C_word C_pair(C_word **ptr, C_word car, C_word cdr) C_regparm; -C_fctexport C_word C_number(C_word **ptr, double n) C_regparm; -C_fctexport C_word C_mpointer(C_word **ptr, void *mp) C_regparm; -C_fctexport C_word C_mpointer_or_false(C_word **ptr, void *mp) C_regparm; -C_fctexport C_word C_taggedmpointer(C_word **ptr, C_word tag, void *mp) C_regparm; -C_fctexport C_word C_taggedmpointer_or_false(C_word **ptr, C_word tag, void *mp) C_regparm; -C_fctexport C_word C_vector(C_word **ptr, int n, ...); -C_fctexport C_word C_structure(C_word **ptr, int n, ...); -C_fctexport C_word C_mutate_slot(C_word *slot, C_word val) C_regparm; -C_fctexport C_word C_mutate_scratch_slot(C_word *slot, C_word val) C_regparm; -C_fctexport C_word C_scratch_alloc(C_uword size) C_regparm; -C_fctexport C_word C_migrate_buffer_object(C_word **ptr, C_word *start, C_word *end, C_word obj) C_regparm; -C_fctexport void 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_rereclaim2(C_uword size, int relative_resize) C_regparm; -C_fctexport void C_unbound_variable(C_word sym); -C_fctexport void C_decoding_error(C_word str, C_word index); -C_fctexport C_word C_retrieve2(C_word val, char *name) C_regparm; -C_fctexport void *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_in_heapp(C_word x) C_regparm; -C_fctexport int C_in_fromspacep(C_word x) C_regparm; -C_fctexport int C_in_scratchspacep(C_word x) C_regparm; -C_fctexport void C_trace(C_char *name) C_regparm; -C_fctexport C_word C_emit_trace_info2(char *raw, C_word l, C_word x, C_word y, C_word t) C_regparm; -C_fctexport C_word C_u_i_bytevector_hash(C_word str, C_word start, C_word end, 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_equalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_set_gc_report(C_word flag) C_regparm; -C_fctexport C_word C_start_timer(void) C_regparm; -C_fctexport C_word C_exit_runtime(C_word code) C_noret; -C_fctexport C_word C_set_print_precision(C_word n) C_regparm; -C_fctexport C_word C_get_print_precision(void) C_regparm; -C_fctexport C_word C_read_char(C_word port) C_regparm; -C_fctexport C_word C_execute_shell_command(C_word string) C_regparm; -C_fctexport int C_check_fd_ready(int fd) C_regparm; -C_fctexport C_word C_char_ready_p(C_word port) C_regparm; -C_fctexport void C_raise_interrupt(int reason) C_regparm; -C_fctexport C_word C_establish_signal_handler(C_word signum, C_word reason) C_regparm; -C_fctexport C_word C_copy_block(C_word from, C_word to) C_regparm; -C_fctexport C_word C_evict_block(C_word from, C_word ptr) C_regparm; -C_fctexport void C_gc_protect(C_word **addr, int n) C_regparm; -C_fctexport void C_gc_unprotect(int n) C_regparm; -C_fctexport C_SYMBOL_TABLE *C_new_symbol_table(char *name, unsigned int size) C_regparm; -C_fctexport C_SYMBOL_TABLE *C_find_symbol_table(char *name) C_regparm; -C_fctexport C_word C_find_symbol(C_word str, C_SYMBOL_TABLE *stable) C_regparm; -C_fctexport C_word C_find_keyword(C_word str, C_SYMBOL_TABLE *stable) C_regparm; -C_fctexport C_word C_lookup_symbol(C_word sym) C_regparm; -C_fctexport void C_do_register_finalizer(C_word x, C_word proc); -C_fctexport int C_do_unregister_finalizer(C_word x); -C_fctexport C_word C_dbg_hook(C_word x); -C_fctexport void C_use_private_repository(C_char *path); -C_fctexport C_char *C_private_repository_path(); -C_fctexport C_char *C_executable_dirname(); -C_fctexport C_char *C_executable_pathname(); -C_fctexport C_char *C_resolve_executable_pathname(C_char *fname); -C_fctexport C_char *C_getenv(C_word var); -C_fctexport C_char *C_getenventry(int i); - -/* utf.c: */ -C_fctexport C_word C_utf_subchar(C_word s, C_word i) C_regparm; -C_fctexport C_word C_utf_setsubchar(C_word s, C_word i, C_word c) C_regparm; -C_fctexport C_word C_utf_compare(C_word s1, C_word s2, C_word start1, C_word start2, C_word len) C_regparm; -C_fctexport C_word C_utf_compare_ci(C_word s1, C_word s2, C_word start1, C_word start2, C_word len) C_regparm; -C_fctexport C_word C_utf_equal(C_word s1, C_word s2) C_regparm; -C_fctexport C_word C_utf_equal_ci(C_word s1, C_word s2) C_regparm; -C_fctexport C_word C_utf_copy(C_word from, C_word to, C_word start1, C_word end1, C_word start2) C_regparm; -C_fctexport C_word C_utf_position(C_word str, C_word start) C_regparm; -C_fctexport int C_utf_char_position(C_word bv, int pos) C_regparm; -C_fctexport C_word C_utf_range(C_word str, C_word start, C_word end) C_regparm; -C_fctexport int C_utf_count(C_char *str, int len) C_regparm; -C_fctexport int C_utf_fast_count(C_char *str, int len) C_regparm; -C_fctexport C_char * C_utf_encode(C_char *str, int chr) C_regparm; -C_fctexport C_word C_utf_decode_ptr(C_char *bv) C_regparm; -C_fctexport C_word C_utf_decode(C_word bv, C_word pos) C_regparm; -C_fctexport int C_utf_char_downcase(int c) C_regparm; -C_fctexport int C_utf_char_upcase(int c) C_regparm; -C_fctexport C_word C_utf_advance(C_word bv, C_word pos) C_regparm; -C_fctexport C_word C_utf_insert(C_word bv, C_word pos, C_word c) C_regparm; -C_fctexport C_word C_utf_bytes(C_word chr) C_regparm; -C_fctexport C_word C_utf_fill(C_word bv, C_word chr) C_regparm; -C_fctexport int C_utf_expect(int byte) C_regparm; -C_fctexport void C_utf_putc(int chr, C_FILEPTR fp) C_regparm; -C_fctexport C_word C_utf_fragment_counts(C_word bv, C_word pos, C_word len) C_regparm; -C_fctexport C_word C_utf_overwrite(C_word s, C_word i, C_word len, C_word bv, C_word c) C_regparm; -C_fctexport C_word C_utf_list_size(C_word lst) C_regparm; -C_fctexport int C_utf_isspace(int c) C_regparm; -C_fctexport int C_utf_isdigit(int c) C_regparm; -C_fctexport int C_utf_isalpha(int c) C_regparm; -C_fctexport int C_utf_isupper(int c) C_regparm; -C_fctexport int C_utf_islower(int c) C_regparm; -C_fctexport C_word C_utf_validate(C_word bv, C_word blen) C_regparm; -C_fctexport C_word C_latin_to_utf(C_word from, C_word to, C_word start, C_word len) C_regparm; -C_fctexport C_word C_utf_to_latin(C_word from, C_word to, C_word start, C_word len) C_regparm; -C_fctexport C_word C_utf_char_foldcase(C_word c) C_regparm; -C_fctexport C_word C_utf_string_foldcase(C_word from, C_word to, C_word len) C_regparm; -#ifdef C_WCHAR_FILENAMES -C_fctexport C_WCHAR *C_utf16(C_word bv, int cont) C_regparm; -C_fctexport C_char *C_utf8(C_WCHAR *str) C_regparm; -# define C_OS_FILENAME(bv, f) C_utf16(bv, f) -#else -# define C_OS_FILENAME(bv, f) C_c_string(bv) -#endif - -C_fctimport C_cpsproc(C_toplevel) C_noret; -C_fctimport C_cpsproc(C_invalid_procedure) C_noret; -C_fctexport C_cpsproc(C_stop_timer) C_noret; -C_fctexport C_cpsproc(C_signum) C_noret; -C_fctexport C_cpsproc(C_apply) C_noret; -C_fctexport C_cpsproc(C_call_cc) C_noret; -C_fctexport C_cpsproc(C_continuation_graft) C_noret; -C_fctexport C_cpsproc(C_values) C_noret; -C_fctexport C_cpsproc(C_apply_values) C_noret; -C_fctexport C_cpsproc(C_call_with_values) C_noret; -C_fctexport C_cpsproc(C_u_call_with_values) C_noret; -C_fctexport C_cpsproc(C_times) C_noret; -C_fctexport C_cpsproc(C_plus) C_noret; -C_fctexport C_cpsproc(C_minus) C_noret; -C_fctexport C_cpsproc(C_quotient_and_remainder) C_noret; -C_fctexport C_cpsproc(C_u_integer_quotient_and_remainder) C_noret; -C_fctexport C_cpsproc(C_bitwise_and) C_noret; -C_fctexport C_cpsproc(C_bitwise_ior) C_noret; -C_fctexport C_cpsproc(C_bitwise_xor) C_noret; - -C_fctexport C_cpsproc(C_nequalp) C_noret; -C_fctexport C_cpsproc(C_greaterp) C_noret; -C_fctexport C_cpsproc(C_lessp) C_noret; -C_fctexport C_cpsproc(C_greater_or_equal_p) C_noret; -C_fctexport C_cpsproc(C_less_or_equal_p) C_noret; -C_fctexport C_cpsproc(C_gc) C_noret; -C_fctexport C_cpsproc(C_open_file_port) C_noret; -C_fctexport C_cpsproc(C_allocate_vector) C_noret; -C_fctexport C_cpsproc(C_allocate_bytevector) C_noret; -C_fctexport C_cpsproc(C_string_to_symbol) C_noret; -C_fctexport C_cpsproc(C_string_to_keyword) C_noret; -C_fctexport C_cpsproc(C_build_symbol) C_noret; -C_fctexport C_cpsproc(C_number_to_string) C_noret; -C_fctexport C_cpsproc(C_fixnum_to_string) C_noret; -C_fctexport C_cpsproc(C_flonum_to_string) C_noret; -C_fctexport C_cpsproc(C_integer_to_string) C_noret; -C_fctexport C_cpsproc(C_make_structure) C_noret; -C_fctexport C_cpsproc(C_make_symbol) C_noret; -C_fctexport C_cpsproc(C_make_pointer) C_noret; -C_fctexport C_cpsproc(C_make_tagged_pointer) C_noret; -C_fctexport C_cpsproc(C_ensure_heap_reserve) C_noret; -C_fctexport C_cpsproc(C_return_to_host) C_noret; -C_fctexport C_cpsproc(C_get_symbol_table_info) C_noret; -C_fctexport C_cpsproc(C_get_memory_info) C_noret; -C_fctexport C_cpsproc(C_context_switch) C_noret; -C_fctexport C_cpsproc(C_peek_signed_integer) C_noret; -C_fctexport C_cpsproc(C_peek_unsigned_integer) C_noret; -C_fctexport C_cpsproc(C_peek_int64) C_noret; -C_fctexport C_cpsproc(C_peek_uint64) C_noret; -C_fctexport C_cpsproc(C_decode_seconds) C_noret; -C_fctexport C_cpsproc(C_software_type) C_noret; -C_fctexport C_cpsproc(C_machine_type) C_noret; -C_fctexport C_cpsproc(C_machine_byte_order) C_noret; -C_fctexport C_cpsproc(C_software_version) C_noret; -C_fctexport C_cpsproc(C_build_platform) C_noret; -C_fctexport C_cpsproc(C_register_finalizer) C_noret; -C_fctexport C_cpsproc(C_set_dlopen_flags) C_noret; -C_fctexport C_cpsproc(C_dload) C_noret; -C_fctexport C_cpsproc(C_become) C_noret; -C_fctexport C_cpsproc(C_call_with_cthulhu) C_noret; -C_fctexport C_cpsproc(C_copy_closure) C_noret; -C_fctexport C_cpsproc(C_dump_heap_state) C_noret; -C_fctexport C_cpsproc(C_filter_heap_objects) C_noret; - -C_fctexport time_t C_seconds(C_long *ms) C_regparm; -C_fctexport C_word C_bignum_simplify(C_word big) C_regparm; -C_fctexport C_word C_allocate_scratch_bignum(C_word **ptr, C_word size, C_word negp, C_word initp) C_regparm; -C_fctexport C_word C_bignum_rewrap(C_word **p, C_word big) C_regparm; -C_fctexport C_word C_i_dump_statistical_profile(); -C_fctexport C_word C_a_i_list(C_word **a, int c, ...); -C_fctexport C_word C_a_i_string(C_word **a, int c, ...); -C_fctexport C_word C_a_i_record(C_word **a, int c, ...); -C_fctexport C_word C_a_i_port(C_word **a, int c); -C_fctexport C_word C_a_i_bytevector(C_word **a, int c, C_word x) C_regparm; -C_fctexport C_word C_i_listp(C_word x) C_regparm; -C_fctexport C_word C_i_s8vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_u16vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_s16vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_u32vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_s32vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_u64vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_s64vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_f32vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_f64vectorp(C_word x) C_regparm; -C_fctexport C_word C_i_string_equal_p(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_string_ci_equal_p(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_set_car(C_word p, C_word x) C_regparm; -C_fctexport C_word C_i_set_cdr(C_word p, C_word x) C_regparm; -C_fctexport C_word C_i_vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_bytevector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_s8vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_u16vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_s16vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_u32vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_s32vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_u64vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_s64vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_f32vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_f64vector_set(C_word v, C_word i, C_word x) C_regparm; -C_fctexport C_word C_i_exactp(C_word x) C_regparm; -C_fctexport C_word C_i_inexactp(C_word x) C_regparm; -C_fctexport C_word C_i_nanp(C_word x) C_regparm; -C_fctexport C_word C_i_finitep(C_word x) C_regparm; -C_fctexport C_word C_i_infinitep(C_word x) C_regparm; -C_fctexport C_word C_i_zerop(C_word x) C_regparm; -C_fctexport C_word C_u_i_zerop(C_word x) C_regparm; /* DEPRECATED */ -C_fctexport C_word C_i_positivep(C_word x) C_regparm; -C_fctexport C_word C_i_integer_positivep(C_word x) C_regparm; -C_fctexport C_word C_i_negativep(C_word x) C_regparm; -C_fctexport C_word C_i_integer_negativep(C_word x) C_regparm; -C_fctexport C_word C_i_car(C_word x) C_regparm; -C_fctexport C_word C_i_cdr(C_word x) C_regparm; -C_fctexport C_word C_i_caar(C_word x) C_regparm; -C_fctexport C_word C_i_cadr(C_word x) C_regparm; -C_fctexport C_word C_i_cdar(C_word x) C_regparm; -C_fctexport C_word C_i_cddr(C_word x) C_regparm; -C_fctexport C_word C_i_caddr(C_word x) C_regparm; -C_fctexport C_word C_i_cdddr(C_word x) C_regparm; -C_fctexport C_word C_i_cadddr(C_word x) C_regparm; -C_fctexport C_word C_i_cddddr(C_word x) C_regparm; -C_fctexport C_word C_i_list_tail(C_word lst, C_word i) C_regparm; -C_fctexport C_word C_i_evenp(C_word x) C_regparm; -C_fctexport C_word C_i_integer_evenp(C_word x) C_regparm; -C_fctexport C_word C_i_oddp(C_word x) C_regparm; -C_fctexport C_word C_i_integer_oddp(C_word x) C_regparm; -C_fctexport C_word C_i_vector_ref(C_word v, C_word i) C_regparm; -C_fctexport C_word C_i_bytevector_ref(C_word v, C_word i) C_regparm; -C_fctexport C_word C_i_s8vector_ref(C_word v, C_word i) C_regparm; -C_fctexport C_word C_i_u16vector_ref(C_word v, C_word i) C_regparm; -C_fctexport C_word C_i_s16vector_ref(C_word v, C_word i) C_regparm; -C_fctexport C_word C_a_i_u32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; -C_fctexport C_word C_a_i_s32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; -C_fctexport C_word C_a_i_u64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; -C_fctexport C_word C_a_i_s64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; -C_fctexport C_word C_a_i_f32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; -C_fctexport C_word C_a_i_f64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) C_regparm; -C_fctexport C_word C_i_block_ref(C_word x, C_word i) C_regparm; -C_fctexport C_word C_i_string_set(C_word s, C_word i, C_word c) C_regparm; -C_fctexport C_word C_i_string_ref(C_word s, C_word i) C_regparm; -C_fctexport C_word C_i_vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_bytevector_length(C_word v) C_regparm; -C_fctexport C_word C_i_s8vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_u16vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_s16vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_u32vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_s32vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_u64vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_s64vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_f32vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_f64vector_length(C_word v) C_regparm; -C_fctexport C_word C_i_string_length(C_word s) C_regparm; -C_fctexport C_word C_i_assq(C_word x, C_word lst) C_regparm; -C_fctexport C_word C_i_assv(C_word x, C_word lst) C_regparm; -C_fctexport C_word C_i_assoc(C_word x, C_word lst) C_regparm; -C_fctexport C_word C_i_memq(C_word x, C_word lst) C_regparm; -C_fctexport C_word C_u_i_memq(C_word x, C_word lst) C_regparm; -C_fctexport C_word C_i_memv(C_word x, C_word lst) C_regparm; -C_fctexport C_word C_i_member(C_word x, C_word lst) C_regparm; -C_fctexport C_word C_i_length(C_word lst) C_regparm; -C_fctexport C_word C_u_i_length(C_word lst) C_regparm; -C_fctexport C_word C_i_check_closure_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_fixnum_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_exact_2(C_word x, C_word loc) C_regparm; /* DEPRECATED */ -C_fctexport C_word C_i_check_inexact_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_number_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_string_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_bytevector_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_symbol_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_keyword_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_list_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_pair_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_boolean_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_locative_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_vector_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_structure_2(C_word x, C_word st, C_word loc) C_regparm; -C_fctexport C_word C_i_check_char_2(C_word x, C_word loc) C_regparm; -C_fctexport C_word C_i_check_port_2(C_word x, C_word in, C_word op, C_word loc) C_regparm; -C_fctexport C_word C_i_check_range_2(C_word i, C_word f, C_word t, C_word loc) C_regparm; -C_fctexport C_word C_i_check_range_including_2(C_word i, C_word f, C_word t, C_word loc) C_regparm; -C_fctexport C_word C_i_bignum_cmp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_nequalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_integer_equalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_greaterp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_integer_greaterp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_lessp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_integer_lessp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_greater_or_equalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_integer_greater_or_equalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_less_or_equalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_integer_less_or_equalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_not_pair_p_2(C_word x) C_regparm; -C_fctexport C_word C_i_null_list_p(C_word x) C_regparm; -C_fctexport C_word C_i_string_null_p(C_word x) C_regparm; -C_fctexport C_word C_i_null_pointerp(C_word x) C_regparm; -C_fctexport C_word C_i_char_equalp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_char_greaterp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_char_lessp(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_char_greater_or_equal_p(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_char_less_or_equal_p(C_word x, C_word y) C_regparm; -C_fctexport C_word C_a_i_locative_ref(C_word **a, int c, C_word loc) C_regparm; -C_fctexport C_word C_i_locative_set(C_word loc, C_word x) C_regparm; -C_fctexport C_word C_i_locative_to_object(C_word loc) C_regparm; -C_fctexport C_word C_i_locative_index(C_word loc) C_regparm; -C_fctexport C_word 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_i_bit_to_bool(C_word n, C_word i) C_regparm; /* DEPRECATED */ -C_fctexport C_word C_i_integer_length(C_word x) C_regparm; -C_fctexport C_word C_a_i_exp(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_log(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_sin(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_cos(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_tan(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_asin(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_acos(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_atan(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_atan2(C_word **a, int c, C_word n1, C_word n2) C_regparm; -C_fctexport C_word C_a_i_sinh(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_cosh(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_tanh(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_asinh(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_acosh(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_atanh(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_sqrt(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_i_o_fixnum_plus(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_o_fixnum_difference(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_o_fixnum_times(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_o_fixnum_quotient(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_o_fixnum_and(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_o_fixnum_ior(C_word x, C_word y) C_regparm; -C_fctexport C_word C_i_o_fixnum_xor(C_word x, C_word y) C_regparm; -C_fctexport C_word C_a_i_flonum_round_proper(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_a_i_flonum_gcd(C_word **p, C_word n, C_word x, C_word y) C_regparm; - -C_fctexport C_word C_i_getprop(C_word sym, C_word prop, C_word def) C_regparm; -C_fctexport C_word C_putprop(C_word **a, C_word sym, C_word prop, C_word val) C_regparm; -C_fctexport C_word C_i_persist_symbol(C_word sym) C_regparm; -C_fctexport C_word C_i_unpersist_symbol(C_word sym) C_regparm; -C_fctexport C_word C_i_get_keyword(C_word key, C_word args, C_word def) C_regparm; -C_fctexport C_word C_i_process_sleep(C_word n) C_regparm; -C_fctexport C_u64 C_milliseconds(void) C_regparm; /* DEPRECATED */ -C_fctexport C_u64 C_current_process_milliseconds(void) C_regparm; -C_fctexport C_u64 C_cpu_milliseconds(void) C_regparm; -C_fctexport double C_bignum_to_double(C_word bignum) C_regparm; -C_fctexport C_word C_i_debug_modep(void) C_regparm; -C_fctexport C_word C_i_dump_heap_on_exitp(void) C_regparm; -C_fctexport C_word C_i_accumulated_gc_time(void) C_regparm; -C_fctexport C_word C_i_allocated_finalizer_count(void) C_regparm; -C_fctexport C_word C_i_live_finalizer_count(void) C_regparm; -C_fctexport C_word C_i_profilingp(void) C_regparm; -C_fctexport C_word C_i_tty_forcedp(void) C_regparm; -C_fctexport C_word C_i_setenv(C_word var, C_word val) C_regparm; - -C_fctexport C_word C_a_i_cpu_time(C_word **a, int c, C_word buf) C_regparm; -C_fctexport C_word C_a_i_exact_to_inexact(C_word **a, int c, C_word n) C_regparm; -C_fctexport C_word C_i_file_exists_p(C_word name, C_word file, C_word dir) C_regparm; - -C_fctexport C_word C_s_a_i_abs(C_word **ptr, C_word n, C_word x) C_regparm; -C_fctexport C_word C_s_a_i_negate(C_word **ptr, C_word n, C_word x) C_regparm; -C_fctexport C_word C_s_a_i_minus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_negate(C_word **ptr, C_word n, C_word x) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_minus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_plus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_plus(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_times(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_times(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_arithmetic_shift(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_gcd(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_quotient(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_quotient(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_remainder(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_remainder(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_modulo(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_u_i_integer_modulo(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_bitwise_and(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_bitwise_ior(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_bitwise_xor(C_word **ptr, C_word n, C_word x, C_word y) C_regparm; -C_fctexport C_word C_s_a_i_bitwise_not(C_word **ptr, C_word n, C_word x) C_regparm; -C_fctexport C_word C_s_a_i_digits_to_integer(C_word **ptr, C_word n, C_word str, C_word start, C_word end, C_word radix, C_word negp) C_regparm; -C_fctexport C_word C_s_a_u_i_flo_to_int(C_word **ptr, C_word n, C_word x) C_regparm; - - -C_fctexport C_word C_i_foreign_char_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_fixnum_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_flonum_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_cplxnum_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_block_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_struct_wrapper_argumentp(C_word t, C_word x) C_regparm; -C_fctexport C_word C_i_foreign_string_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_symbol_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_tagged_pointer_argumentp(C_word x, C_word t) C_regparm; -C_fctexport C_word C_i_foreign_pointer_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_scheme_or_c_pointer_argumentp(C_word x) C_regparm; -C_fctexport C_word C_i_foreign_ranged_integer_argumentp(C_word x, C_word bits) C_regparm; -C_fctexport C_word C_i_foreign_unsigned_ranged_integer_argumentp(C_word x, C_word bits) C_regparm; - -C_fctexport C_char *C_lookup_procedure_id(void *ptr); -C_fctexport void *C_lookup_procedure_ptr(C_char *id); - -C_fctexport int C_fast_rand(void); -C_fctexport void C_fast_srand(int seed); -C_fctexport C_word C_random_fixnum(C_word n) C_regparm; -C_fctexport C_word C_s_a_u_i_random_int(C_word **ptr, C_word n, C_word rn) C_regparm; -C_fctexport C_word C_a_i_random_real(C_word **ptr, C_word n) C_regparm; -C_fctexport C_word C_random_bytes(C_word buf, C_word size); -C_fctexport C_word C_set_random_seed(C_word buf, C_word n); - -#ifdef C_SIXTY_FOUR -C_fctexport C_cpsproc(C_peek_signed_integer_32); -C_fctexport C_cpsproc(C_peek_unsigned_integer_32); -#else -# define C_peek_signed_integer_32 C_peek_signed_integer -# define C_peek_unsigned_integer_32 C_peek_unsigned_integer -#endif - -C_fctexport C_word C_decode_literal(C_word **ptr, C_char *str) C_regparm; -C_fctexport C_word 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); - -C_fctexport C_word C_a_extract_struct_2(C_word **ptr, size_t sz, void *sp); - - -#ifndef HAVE_STATEMENT_EXPRESSIONS - -inline static C_word *C_a_i(C_word **a, int n) -{ - C_word *p = *a; - - *a += n; - return p; -} - -#endif - -inline static C_word -C_chop_bv(C_word bv) -{ - ((C_SCHEME_BLOCK *)bv)->header = C_make_header(C_BYTEVECTOR_TYPE, C_header_size(bv) - 1); - return bv; -} - -inline static C_word -C_mutate(C_word *slot, C_word val) -{ - if(!C_immediatep(val)) return C_mutate_slot(slot, val); - else return *slot = val; -} - -inline static C_word C_permanentp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && - !C_in_stackp(x) && - !C_in_heapp(x) && - !C_in_scratchspacep(x)); -} - -inline static C_word C_u_i_namespaced_symbolp(C_word x) -{ - C_word s = C_symbol_name(x); - return C_mk_bool(C_memchr(C_data_pointer(s), '#', C_header_size(s))); -} - -inline static C_word C_flonum(C_word **ptr, double n) -{ - C_word - *p = *ptr, - *p0; - -#ifndef C_SIXTY_FOUR -#ifndef C_DOUBLE_IS_32_BITS - /* Align double on 8-byte boundary: */ - if(C_aligned8(p)) ++p; -#endif -#endif - - p0 = p; - *(p++) = C_FLONUM_TAG; - *((double *)p) = n; - *ptr = p + sizeof(double) / sizeof(C_word); - return (C_word)p0; -} - - -inline static C_word C_u_i_zerop2(C_word x) -{ - return C_mk_bool(x == C_fix(0) || - (!C_immediatep(x) && - C_block_header(x) == C_FLONUM_TAG && - C_flonum_magnitude(x) == 0.0)); -} - - -inline static C_word C_string_to_pbytevector(C_word s) -{ - return C_pbytevector(C_header_size(s), (C_char *)C_data_pointer(s)); -} - - -inline static C_word C_a_i_record1(C_word **ptr, int n, C_word x1) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 1; - *(p++) = x1; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_record2(C_word **ptr, int n, C_word x1, C_word x2) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 2; - *(p++) = x1; - *(p++) = x2; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_record3(C_word **ptr, int n, C_word x1, C_word x2, C_word x3) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 3; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_record4(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 4; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_record5(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 5; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_record6(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 6; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *(p++) = x6; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_record7(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6, C_word x7) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 7; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *(p++) = x6; - *(p++) = x7; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_record8(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6, C_word x7, C_word x8) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | 8; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *(p++) = x6; - *(p++) = x7; - *(p++) = x8; - *ptr = p; - return (C_word)p0; -} - -inline static C_word C_cplxnum(C_word **ptr, C_word r, C_word i) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_CPLXNUM_TAG; - *(p++) = r; - *(p++) = i; - *ptr = p; - return (C_word)p0; -} - -inline static C_word C_inexact_cplxnum(C_word **ptr, double C_complex n) -{ -#if defined(__STDC_NO_COMPLEX__) || defined(__cplusplus) - C_unimplemented(C_text("native complex numbers")); - return 0; -#else - C_word r = C_flonum(ptr, creal(n)); - C_word i = C_flonum(ptr, cimag(n)); - C_word *p = *ptr, *p0 = p; - - *(p++) = C_CPLXNUM_TAG; - *(p++) = r; - *(p++) = i; - *ptr = p; - return (C_word)p0; -#endif -} - -inline static C_word C_ratnum(C_word **ptr, C_word n, C_word d) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_RATNUM_TAG; - *(p++) = n; - *(p++) = d; - *ptr = p; - return (C_word)p0; -} - -inline static C_word C_a_i_bignum_wrapper(C_word **ptr, C_word vec) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_BIGNUM_TAG; - *(p++) = vec; - *ptr = p; - return (C_word)p0; -} - -/* Silly (this is not normalized) but in some cases needed internally */ -inline static C_word C_bignum0(C_word **ptr) -{ - C_word *p = *ptr, p0 = (C_word)p; - - *(p++) = C_BYTEVECTOR_TYPE | C_wordstobytes(1); - *(p++) = 0; /* zero is always positive */ - *ptr = p; - - return C_a_i_bignum_wrapper(ptr, p0); -} - -inline static C_word C_bignum1(C_word **ptr, int negp, C_uword d1) -{ - C_word *p = *ptr, p0 = (C_word)p; - - *(p++) = C_BYTEVECTOR_TYPE | C_wordstobytes(2); - *(p++) = negp; - *(p++) = d1; - *ptr = p; - - return C_a_i_bignum_wrapper(ptr, p0); -} - -/* Here d1, d2, ... are low to high (ie, little endian)! */ -inline static C_word C_bignum2(C_word **ptr, int negp, C_uword d1, C_uword d2) -{ - C_word *p = *ptr, p0 = (C_word)p; - - *(p++) = C_BYTEVECTOR_TYPE | C_wordstobytes(3); - *(p++) = negp; - *(p++) = d1; - *(p++) = d2; - *ptr = p; - - return C_a_i_bignum_wrapper(ptr, p0); -} - -inline static C_word C_i_bignump(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_BIGNUM_TAG); -} - -inline static double C_complex C_c_cplxnum(C_word x) -{ -#if defined(__STDC_NO_COMPLEX__) || defined(__cplusplus) - C_unimplemented(C_text("native complex numbers")); - return 0; -#else - if(x & C_FIXNUM_BIT) return (double)C_unfix(x); - else if(C_block_header(x) == C_CPLXNUM_TAG) - return C_flonum_magnitude(C_u_i_cplxnum_real(x)) + I * - C_flonum_magnitude(C_u_i_cplxnum_imag(x)); - else return C_flonum_magnitude(x); -#endif -} - -inline static double C_c_double(C_word x) -{ - if(x & C_FIXNUM_BIT) return (double)C_unfix(x); - else return C_flonum_magnitude(x); -} - -inline static C_word C_a_u_i_int_to_flo(C_word **ptr, int n, C_word x) -{ - if(x & C_FIXNUM_BIT) return C_a_i_fix_to_flo(ptr, n, x); - else return C_a_u_i_big_to_flo(ptr, n, x); -} - -inline static C_word C_num_to_int(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return C_unfix(x); - } else { -#if DEBUGBUILD /* removes a warning with clang */ - (void)C_CHECKp(x,C_bignump(C_VAL1(x)),0); -#endif - if (C_bignum_negativep(x)) return -(C_word)C_bignum_digits(x)[0]; - else return (C_word)C_bignum_digits(x)[0]; /* should never be larger */ - } -} - - -inline static C_s64 C_num_to_int64(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return (C_s64)C_unfix(x); - } else { - C_s64 num = C_bignum_digits(x)[0]; -#ifndef C_SIXTY_FOUR - if (C_bignum_size(x) > 1) num |= (C_s64)(((C_u64)C_bignum_digits(x)[1]) << 32); -#endif - if (C_bignum_negativep(x)) return -num; - else return num; - } -} - - -inline static C_u64 C_num_to_uint64(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return (C_u64)C_unfix(x); - } else { - C_s64 num = C_bignum_digits(x)[0]; -#ifndef C_SIXTY_FOUR - if (C_bignum_size(x) > 1) num |= ((C_u64)C_bignum_digits(x)[1]) << 32; -#endif - return num; - } -} - - -inline static C_uword C_num_to_unsigned_int(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return (C_uword)C_unfix(x); - } else { - return C_bignum_digits(x)[0]; /* should never be larger */ - } -} - - -inline static C_word C_int_to_num(C_word **ptr, C_word n) -{ - if(C_fitsinfixnump(n)) return C_fix(n); - else return C_bignum1(ptr, n < 0, C_wabs(n)); -} - - -inline static C_word C_unsigned_int_to_num(C_word **ptr, C_uword n) -{ - if(C_ufitsinfixnump(n)) return C_fix(n); - else return C_bignum1(ptr, 0, n); -} - -inline static C_word C_int64_to_num(C_word **ptr, C_s64 n) -{ -#ifdef C_SIXTY_FOUR - if(C_fitsinfixnump(n)) { - return C_fix(n); - } else { - C_u64 un = n < 0 ? -n : n; - return C_bignum1(ptr, n < 0, un); - } -#else - C_u64 un = n < 0 ? -n : n; - C_word res = C_bignum2(ptr, n < 0, (C_uword)un, (C_uword)(un >> 32)); - return C_bignum_simplify(res); -#endif -} - -inline static C_word C_uint64_to_num(C_word **ptr, C_u64 n) -{ - if(C_ufitsinfixnump(n)) { - return C_fix(n); - } else { -#ifdef C_SIXTY_FOUR - return C_bignum1(ptr, 0, n); -#else - C_word res = C_bignum2(ptr, 0, (C_uword)n, (C_uword)(n >> 32)); - return C_bignum_simplify(res); -#endif - } -} - -inline static C_word C_long_to_num(C_word **ptr, C_long n) -{ - if(C_fitsinfixnump(n)) { - return C_fix(n); - } else { - return C_bignum1(ptr, n < 0, C_wabs(n)); - } -} - -inline static C_word C_unsigned_long_to_num(C_word **ptr, C_ulong n) -{ - if(C_ufitsinfixnump(n)) { - return C_fix(n); - } else { - return C_bignum1(ptr, 0, n); - } -} - - -inline static char *C_string_or_null(C_word x) -{ - return C_truep(x) ? C_c_string(x) : NULL; -} - - -inline static void *C_data_pointer_or_null(C_word x) -{ - return C_truep(x) ? C_data_pointer(x) : NULL; -} - - -inline static void *C_srfi_4_vector_or_null(C_word x) -{ - return C_truep(x) ? C_srfi_4_vector(x) : NULL; -} - - -inline static void *C_c_pointer_vector_or_null(C_word x) -{ - return C_truep(x) ? C_data_pointer(C_block_item(x, 2)) : NULL; -} - - -inline static void *C_c_pointer_or_null(C_word x) -{ - return C_truep(x) ? (void *)C_block_item(x, 0) : NULL; -} - - -inline static void *C_scheme_or_c_pointer(C_word x) -{ - return C_anypointerp(x) ? (void *)C_block_item(x, 0) : C_data_pointer(x); -} - - -inline static C_long C_num_to_long(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return (C_long)C_unfix(x); - } else { - if (C_bignum_negativep(x)) return -(C_long)C_bignum_digits(x)[0]; - else return (C_long)C_bignum_digits(x)[0]; - } -} - - -inline static C_ulong C_num_to_unsigned_long(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return (C_ulong)C_unfix(x); - } else { - return (C_ulong)C_bignum_digits(x)[0]; - } -} - - -inline static C_word C_ub_i_flonum_eqvp(double x, double y) -{ - /* This can distinguish between -0.0 and +0.0 */ - return x == y && signbit(x) == signbit(y); -} - -inline static C_word basic_eqvp(C_word x, C_word y) -{ - return (x == y || - - (!C_immediatep(x) && !C_immediatep(y) && - C_block_header(x) == C_block_header(y) && - - ((C_block_header(x) == C_FLONUM_TAG && - C_ub_i_flonum_eqvp(C_flonum_magnitude(x), - C_flonum_magnitude(y))) || - - (C_block_header(x) == C_BIGNUM_TAG && - C_block_header(y) == C_BIGNUM_TAG && - C_i_bignum_cmp(x, y) == C_fix(0))))); -} - -inline static C_word C_i_eqvp(C_word x, C_word y) -{ - return C_mk_bool(basic_eqvp(x, y) || - (!C_immediatep(x) && !C_immediatep(y) && - C_block_header(x) == C_block_header(y) && - (C_block_header(x) == C_RATNUM_TAG || - C_block_header(x) == C_CPLXNUM_TAG) && - basic_eqvp(C_block_item(x, 0), C_block_item(y, 0)) && - basic_eqvp(C_block_item(x, 1), C_block_item(y, 1)))); -} - -inline static C_word C_i_symbolp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && - C_block_header(x) == C_SYMBOL_TAG && - C_symbol_plist(x) != C_SCHEME_FALSE); -} - -inline static C_word C_i_keywordp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && - C_block_header(x) == C_SYMBOL_TAG && - C_symbol_plist(x) == C_SCHEME_FALSE); -} - -inline static int C_persistable_symbol(C_word x) -{ - /* Symbol is bound, or has a non-empty plist (but is not a keyword) */ - return ((C_truep(C_boundp(x)) || - C_symbol_plist(x) != C_SCHEME_END_OF_LIST) && - C_symbol_plist(x) != C_SCHEME_FALSE); -} - -inline static C_word C_i_pairp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_header_type(x) == C_PAIR_TYPE); -} - -inline static C_word C_i_weak_pairp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_WEAK_PAIR_TAG); -} - -inline static C_word C_i_stringp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_STRING_TYPE); -} - - -inline static C_word C_i_locativep(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_LOCATIVE_TAG); -} - - -inline static C_word C_i_vectorp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_VECTOR_TYPE); -} - -inline static C_word C_i_srfi_4_vectorp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && - C_header_bits(x) == C_STRUCTURE_TYPE && - (C_truep(C_i_s8vectorp(x)) || - C_truep(C_i_u16vectorp(x)) || - C_truep(C_i_s16vectorp(x)) || - C_truep(C_i_u32vectorp(x)) || - C_truep(C_i_s32vectorp(x)) || - C_truep(C_i_u64vectorp(x)) || - C_truep(C_i_s64vectorp(x)) || - C_truep(C_i_f32vectorp(x)) || - C_truep(C_i_f64vectorp(x)))); -} - -inline static C_word C_i_portp(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_PORT_TYPE); -} - - -inline static C_word C_i_closurep(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_header_bits(x) == C_CLOSURE_TYPE); -} - -inline static C_word C_i_numberp(C_word x) -{ - return C_mk_bool((x & C_FIXNUM_BIT) || - (!C_immediatep(x) && - (C_block_header(x) == C_FLONUM_TAG || - C_block_header(x) == C_BIGNUM_TAG || - C_block_header(x) == C_RATNUM_TAG || - C_block_header(x) == C_CPLXNUM_TAG))); -} - -/* All numbers are real, except for cplxnums */ -inline static C_word C_i_realp(C_word x) -{ - return C_mk_bool((x & C_FIXNUM_BIT) || - (!C_immediatep(x) && - (C_block_header(x) == C_FLONUM_TAG || - C_block_header(x) == C_BIGNUM_TAG || - C_block_header(x) == C_RATNUM_TAG))); -} - -/* All finite real numbers are rational */ -inline static C_word C_i_rationalp(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return C_SCHEME_TRUE; - } else if (C_immediatep(x)) { - return C_SCHEME_FALSE; - } else if(C_block_header(x) == C_FLONUM_TAG) { - double n = C_flonum_magnitude(x); - return C_mk_bool(!C_isinf(n) && !C_isnan(n)); - } else { - return C_mk_bool(C_block_header(x) == C_BIGNUM_TAG || - C_block_header(x) == C_RATNUM_TAG); - } -} - - -inline static C_word C_u_i_fpintegerp(C_word x) -{ - double dummy, val; - - val = C_flonum_magnitude(x); - - if(C_isnan(val) || C_isinf(val)) return C_SCHEME_FALSE; - - return C_mk_bool(C_modf(val, &dummy) == 0.0); -} - - -inline static int C_ub_i_fpintegerp(double x) -{ - double dummy; - - return C_modf(x, &dummy) == 0.0; -} - -inline static C_word C_i_exact_integerp(C_word x) -{ - return C_mk_bool((x) & C_FIXNUM_BIT || C_truep(C_i_bignump(x))); -} - -inline static C_word C_u_i_exactp(C_word x) -{ - if (C_truep(C_i_exact_integerp(x))) { - return C_SCHEME_TRUE; - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_SCHEME_TRUE; - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - x = C_u_i_cplxnum_real(x); - /* r and i are always the same exactness, and we assume they - * always store a number. - */ - return C_mk_bool(C_immediatep(x) || (C_block_header(x) != C_FLONUM_TAG)); - } else { - return C_SCHEME_FALSE; - } -} - -inline static C_word C_u_i_inexactp(C_word x) -{ - if (C_immediatep(x)) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_SCHEME_TRUE; - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - x = C_u_i_cplxnum_real(x); /* r and i are always the same exactness */ - return C_mk_bool(!C_immediatep(x) && (C_block_header(x) == C_FLONUM_TAG)); - } else { - return C_SCHEME_FALSE; - } -} - -inline static C_word C_i_integerp(C_word x) -{ - double dummy, val; - - if (x & C_FIXNUM_BIT || C_truep(C_i_bignump(x))) - return C_SCHEME_TRUE; - if (C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) - return C_SCHEME_FALSE; - - val = C_flonum_magnitude(x); - if(C_isnan(val) || C_isinf(val)) return C_SCHEME_FALSE; - - return C_mk_bool(C_modf(val, &dummy) == 0.0); -} - - -inline static C_word C_i_flonump(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_FLONUM_TAG); -} - -inline static C_word C_i_cplxnump(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_CPLXNUM_TAG); -} - -inline static C_word C_i_ratnump(C_word x) -{ - return C_mk_bool(!C_immediatep(x) && C_block_header(x) == C_RATNUM_TAG); -} - -/* TODO: Is this correctly named? Shouldn't it accept an argcount? */ -inline static C_word C_a_u_i_fix_to_big(C_word **ptr, C_word x) -{ - x = C_unfix(x); - if (x < 0) - return C_bignum1(ptr, 1, -x); - else if (x == 0) - return C_bignum0(ptr); - else - return C_bignum1(ptr, 0, x); -} - -inline static C_word C_i_fixnum_min(C_word x, C_word y) -{ - return ((C_word)x < (C_word)y) ? x : y; -} - - -inline static C_word C_i_fixnum_max(C_word x, C_word y) -{ - return ((C_word)x > (C_word)y) ? x : y; -} - -inline static C_word C_i_fixnum_gcd(C_word x, C_word y) -{ - x = (x & C_INT_SIGN_BIT) ? -C_unfix(x) : C_unfix(x); - y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); - - while(y != 0) { - C_word r = x % y; - x = y; - y = r; - } - return C_fix(x); -} - -inline static C_word C_fixnum_divide(C_word x, C_word y) -{ - if(y == C_fix(0)) C_div_by_zero_error(C_text("fx/")); - return C_u_fixnum_divide(x, y); -} - - -inline static C_word C_u_fixnum_modulo(C_word x, C_word y) -{ - y = C_unfix(y); - x = C_unfix(x) % y; - if ((y < 0 && x > 0) || (y > 0 && x < 0)) x += y; - return C_fix(x); -} - - -inline static C_word C_fixnum_modulo(C_word x, C_word y) -{ - if(y == C_fix(0)) { - C_div_by_zero_error(C_text("fxmod")); - } else { - return C_u_fixnum_modulo(x,y); - } -} - -/* XXX: Naming convention is inconsistent! There's C_fixnum_divide() - * but also C_a_i_flonum_quotient_checked() - */ -inline static C_word -C_a_i_fixnum_quotient_checked(C_word **ptr, int c, C_word x, C_word y) -{ - if (y == C_fix(0)) { - C_div_by_zero_error(C_text("fx/")); - } else if (x == C_fix(C_MOST_NEGATIVE_FIXNUM) && y == C_fix(-1)) { - return C_bignum1(ptr, 0, -C_MOST_NEGATIVE_FIXNUM); /* Special case */ - } else { - return C_u_fixnum_divide(x, y); /* Inconsistent, too: missing _i_ */ - } -} - -inline static C_word C_i_fixnum_remainder_checked(C_word x, C_word y) -{ - if (y == C_fix(0)) { - C_div_by_zero_error(C_text("fxrem")); - } else { - x = C_unfix(x); - y = C_unfix(y); - return C_fix(x - ((x / y) * y)); - } -} - -inline static C_word C_i_fixnum_arithmetic_shift(C_word n, C_word c) -{ - if(C_unfix(c) < 0) return C_fixnum_shift_right(n, C_u_fixnum_negate(c)); - else return C_fixnum_shift_left(n, c); -} - -inline static C_word C_a_i_fixnum_negate(C_word **ptr, C_word n, C_word x) -{ - /* Exceptional situation: this will cause an overflow to itself */ - if (x == C_fix(C_MOST_NEGATIVE_FIXNUM)) /* C_fitsinfixnump(x) */ - return C_bignum1(ptr, 0, -C_MOST_NEGATIVE_FIXNUM); - else - return C_fix(-C_unfix(x)); -} - -inline static C_word C_s_a_u_i_integer_abs(C_word **ptr, C_word n, C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_a_i_fixnum_abs(ptr, 1, x); - } else if (C_bignum_negativep(x)) { - return C_s_a_u_i_integer_negate(ptr, n, x); - } else { - return x; - } -} - -/* DEPRECATED */ -inline static C_word C_i_fixnum_bit_to_bool(C_word n, C_word i) -{ - if (i & C_INT_SIGN_BIT) { - C_not_an_uinteger_error(C_text("bit->boolean"), i); - } else { - i = C_unfix(i); - if (i >= C_WORD_SIZE) return C_mk_bool(n & C_INT_SIGN_BIT); - else return C_mk_bool((C_unfix(n) & (C_word)((C_uword)1 << i)) != 0); - } -} - -inline static C_word C_a_i_fixnum_difference(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word z = C_unfix(x) - C_unfix(y); - - if(!C_fitsinfixnump(z)) { - return C_bignum1(ptr, z < 0, C_wabs(z)); - } else { - return C_fix(z); - } -} - -inline static C_word C_a_i_fixnum_plus(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word z = C_unfix(x) + C_unfix(y); - - if(!C_fitsinfixnump(z)) { - return C_bignum1(ptr, z < 0, C_wabs(z)); - } else { - return C_fix(z); - } -} - -inline static C_word C_a_i_fixnum_times(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_uword negp, xhi, xlo, yhi, ylo, p, rhi, rlo; - - negp = ((x & C_INT_SIGN_BIT) ? !(y & C_INT_SIGN_BIT) : (y & C_INT_SIGN_BIT)); - x = (x & C_INT_SIGN_BIT) ? -C_unfix(x) : C_unfix(x); - y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); - - xhi = C_BIGNUM_DIGIT_HI_HALF(x); xlo = C_BIGNUM_DIGIT_LO_HALF(x); - yhi = C_BIGNUM_DIGIT_HI_HALF(y); ylo = C_BIGNUM_DIGIT_LO_HALF(y); - - /* This is simply bignum_digits_multiply unrolled for 2x2 halfdigits */ - p = xlo * ylo; - rlo = C_BIGNUM_DIGIT_LO_HALF(p); - - p = xhi * ylo + C_BIGNUM_DIGIT_HI_HALF(p); - rhi = C_BIGNUM_DIGIT_HI_HALF(p); - - p = xlo * yhi + C_BIGNUM_DIGIT_LO_HALF(p); - rlo = C_BIGNUM_DIGIT_COMBINE(C_BIGNUM_DIGIT_LO_HALF(p), rlo); - - rhi = xhi * yhi + C_BIGNUM_DIGIT_HI_HALF(p) + rhi; - - if (rhi) { - return C_bignum2(ptr, negp != 0, rlo, rhi); - } else if (negp ? - ((rlo & C_INT_SIGN_BIT) || !C_fitsinfixnump(-(C_word)rlo)) : - !C_ufitsinfixnump(rlo)) { - return C_bignum1(ptr, negp != 0, rlo); - } else { - return C_fix(negp ? -rlo : rlo); - } -} - -inline static C_word C_i_flonum_min(C_word x, C_word y) -{ - double - xf = C_flonum_magnitude(x), - yf = C_flonum_magnitude(y); - - return xf < yf ? x : y; -} - - -inline static C_word C_i_flonum_max(C_word x, C_word y) -{ - double - xf = C_flonum_magnitude(x), - yf = C_flonum_magnitude(y); - - return xf > yf ? x : y; -} - -inline static C_word C_u_i_integer_signum(C_word x) -{ - if (x & C_FIXNUM_BIT) return C_i_fixnum_signum(x); - else return (C_bignum_negativep(x) ? C_fix(-1) : C_fix(1)); -} - -inline static C_word -C_a_i_flonum_quotient_checked(C_word **ptr, int c, C_word n1, C_word n2) -{ - double n3 = C_flonum_magnitude(n2); - - if(n3 == 0.0) C_div_by_zero_error(C_text("fp/?")); - return C_flonum(ptr, C_flonum_magnitude(n1) / n3); -} - - -inline static double -C_ub_i_flonum_quotient_checked(double n1, double n2) -{ - if(n2 == 0.0) C_div_by_zero_error(C_text("fp/?")); - return n1 / n2; -} - -/* More weirdness: the other flonum_quotient macros and inline functions - * do not compute the quotient but the "plain" division! - */ -inline static C_word -C_a_i_flonum_actual_quotient_checked(C_word **ptr, int c, C_word x, C_word y) -{ - double dy = C_flonum_magnitude(y), r; - - if(dy == 0.0) { - C_div_by_zero_error(C_text("quotient")); - } else if (!C_truep(C_u_i_fpintegerp(x))) { - C_not_an_integer_error(C_text("quotient"), x); - } else if (!C_truep(C_u_i_fpintegerp(y))) { - C_not_an_integer_error(C_text("quotient"), y); - } else { - modf(C_flonum_magnitude(x) / dy, &r); - return C_flonum(ptr, r); - } -} - -inline static C_word -C_a_i_flonum_remainder_checked(C_word **ptr, int c, C_word x, C_word y) -{ - double dx = C_flonum_magnitude(x), - dy = C_flonum_magnitude(y), r; - - if(dy == 0.0) { - C_div_by_zero_error(C_text("remainder")); - } else if (!C_truep(C_u_i_fpintegerp(x))) { - C_not_an_integer_error(C_text("remainder"), x); - } else if (!C_truep(C_u_i_fpintegerp(y))) { - C_not_an_integer_error(C_text("remainder"), y); - } else { - modf(dx / dy, &r); - return C_flonum(ptr, dx - r * dy); - } -} - -inline static C_word -C_a_i_flonum_modulo_checked(C_word **ptr, int c, C_word x, C_word y) -{ - double dx = C_flonum_magnitude(x), - dy = C_flonum_magnitude(y), r; - - if(dy == 0.0) { - C_div_by_zero_error(C_text("modulo")); - } else if (!C_truep(C_u_i_fpintegerp(x))) { - C_not_an_integer_error(C_text("modulo"), x); - } else if (!C_truep(C_u_i_fpintegerp(y))) { - C_not_an_integer_error(C_text("modulo"), y); - } else { - modf(dx / dy, &r); - r = dx - r * dy; - if ((dy < 0 && r > 0) || (dy > 0 && r < 0)) r += y; - return C_flonum(ptr, r); - } -} - -inline static C_word C_i_safe_pointerp(C_word x) -{ - if(C_immediatep(x)) return C_SCHEME_FALSE; - - switch(C_block_header(x)) { - case C_POINTER_TAG: - case C_TAGGED_POINTER_TAG: - return C_SCHEME_TRUE; - } - - return C_SCHEME_FALSE; -} - - -inline static C_word C_u_i_assq(C_word x, C_word lst) -{ - C_word a; - - while(!C_immediatep(lst)) { - a = C_u_i_car(lst); - - if(C_u_i_car(a) == x) return a; - else lst = C_u_i_cdr(lst); - } - - return C_SCHEME_FALSE; -} - - -inline static C_word -C_fast_retrieve(C_word sym) -{ - C_word val = C_block_item(sym, 0); - - if(val == C_SCHEME_UNBOUND) - C_unbound_variable(sym); - - return val; -} - -inline static void * -C_fast_retrieve_proc(C_word closure) -{ - if(C_immediatep(closure) || C_header_bits(closure) != C_CLOSURE_TYPE) - return (void *)C_invalid_procedure; - else - return (void *)C_block_item(closure, 0); -} - - -inline static void * -C_fast_retrieve_symbol_proc(C_word sym) -{ - return C_fast_retrieve_proc(C_fast_retrieve(sym)); -} - - -inline static C_word C_a_i_vector1(C_word **ptr, int n, C_word x1) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 1; - *(p++) = x1; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_vector2(C_word **ptr, int n, C_word x1, C_word x2) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 2; - *(p++) = x1; - *(p++) = x2; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_vector3(C_word **ptr, int n, C_word x1, C_word x2, C_word x3) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 3; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_vector4(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 4; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_vector5(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 5; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_vector6(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 6; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *(p++) = x6; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_vector7(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6, C_word x7) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 7; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *(p++) = x6; - *(p++) = x7; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_vector8(C_word **ptr, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6, C_word x7, C_word x8) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_VECTOR_TYPE | 8; - *(p++) = x1; - *(p++) = x2; - *(p++) = x3; - *(p++) = x4; - *(p++) = x5; - *(p++) = x6; - *(p++) = x7; - *(p++) = x8; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_ustring(C_word **ptr, int n, C_word bv, C_word c) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_STRING_TAG; - *(p++) = bv; - *(p++) = c; - *(p++) = C_fix(0); - *(p++) = C_fix(0); - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_pair(C_word **ptr, C_word car, C_word cdr) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); - *(p++) = car; - *(p++) = cdr; - *ptr = p; - return (C_word)p0; -} - -inline static C_word C_a_weak_pair(C_word **ptr, C_word head, C_word tail) -{ - C_word *p = *ptr, *p0 = p; - - *(p++) = C_WEAK_PAIR_TAG; /* Changes to strong if sym is persisted */ - *(p++) = head; - *(p++) = tail; - *ptr = p; - return (C_word)p0; -} - - -inline static C_word C_a_i_list1(C_word **a, int n, C_word x1) -{ - return C_a_pair(a, x1, C_SCHEME_END_OF_LIST); -} - - -inline static C_word C_a_i_list2(C_word **a, int n, C_word x1, C_word x2) -{ - C_word x = C_a_pair(a, x2, C_SCHEME_END_OF_LIST); - - return C_a_pair(a, x1, x); -} - - -inline static C_word C_a_i_list3(C_word **a, int n, C_word x1, C_word x2, C_word x3) -{ - C_word x = C_a_pair(a, x3, C_SCHEME_END_OF_LIST); - - x = C_a_pair(a, x2, x); - return C_a_pair(a, x1, x); -} - - -inline static C_word C_a_i_list4(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4) -{ - C_word x = C_a_pair(a, x4, C_SCHEME_END_OF_LIST); - - x = C_a_pair(a, x3, x); - x = C_a_pair(a, x2, x); - return C_a_pair(a, x1, x); -} - - -inline static C_word C_a_i_list5(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5) -{ - C_word x = C_a_pair(a, x5, C_SCHEME_END_OF_LIST); - - x = C_a_pair(a, x4, x); - x = C_a_pair(a, x3, x); - x = C_a_pair(a, x2, x); - return C_a_pair(a, x1, x); -} - - -inline static C_word C_a_i_list6(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6) -{ - C_word x = C_a_pair(a, x6, C_SCHEME_END_OF_LIST); - - x = C_a_pair(a, x5, x); - x = C_a_pair(a, x4, x); - x = C_a_pair(a, x3, x); - x = C_a_pair(a, x2, x); - return C_a_pair(a, x1, x); -} - - -inline static C_word C_a_i_list7(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6, C_word x7) -{ - C_word x = C_a_pair(a, x7, C_SCHEME_END_OF_LIST); - - x = C_a_pair(a, x6, x); - x = C_a_pair(a, x5, x); - x = C_a_pair(a, x4, x); - x = C_a_pair(a, x3, x); - x = C_a_pair(a, x2, x); - return C_a_pair(a, x1, x); -} - - -inline static C_word C_a_i_list8(C_word **a, int n, C_word x1, C_word x2, C_word x3, C_word x4, - C_word x5, C_word x6, C_word x7, C_word x8) -{ - C_word x = C_a_pair(a, x8, C_SCHEME_END_OF_LIST); - - x = C_a_pair(a, x7, x); - x = C_a_pair(a, x6, x); - x = C_a_pair(a, x5, x); - x = C_a_pair(a, x4, x); - x = C_a_pair(a, x3, x); - x = C_a_pair(a, x2, x); - return C_a_pair(a, x1, x); -} - - -/* - * From Hacker's Delight by Henry S. Warren - * based on a modified nlz() from section 5-3 (fig. 5-7) - */ -inline static int C_ilen(C_uword x) -{ - C_uword y; - C_word n = 0; - -#ifdef C_SIXTY_FOUR - y = x >> 32; if (y != 0) { n += 32; x = y; } -#endif - y = x >> 16; if (y != 0) { n += 16; x = y; } - y = x >> 8; if (y != 0) { n += 8; x = y; } - y = x >> 4; if (y != 0) { n += 4; x = y; } - y = x >> 2; if (y != 0) { n += 2; x = y; } - y = x >> 1; if (y != 0) return n + 2; - return n + x; -} - -/* These strl* functions are based on public domain code by C.B. Falconer */ -#ifdef HAVE_STRLCPY -# define C_strlcpy strlcpy -#else -inline static size_t C_strlcpy(char *dst, const char *src, size_t sz) -{ - const char *start = src; - - if (sz--) { - while ((*dst++ = *src)) - if (sz--) src++; - else { - *(--dst) = '\0'; - break; - } - } - while (*src++) continue; - return src - start - 1; -} -#endif - -#ifdef HAVE_STRLCAT -# define C_strlcat strlcat -#else -inline static size_t C_strlcat(char *dst, const char *src, size_t sz) -{ - char *start = dst; - - while (*dst++) /* assumes sz >= strlen(dst) */ - if (sz) sz--; /* i.e. well formed string */ - dst--; - return dst - start + C_strlcpy(dst, src, sz); -} -#endif - -/* - * MinGW's stat() is less than ideal in a couple of ways, so we provide a - * wrapper that: - * - * 1. Strips all trailing slashes and retries on failure, since stat() will - * yield ENOENT when given two (on MSYS) or more (on MinGW and MSYS2). - * 2. Fails with ENOTDIR when given a path to a non-directory file that ends - * in a slash, since in this case MinGW's stat() will succeed but return a - * non-directory mode in buf.st_mode. - */ -#if defined(__MINGW32__) -inline static int C_stat(const C_WCHAR *path, struct _stat64i32 *buf) -{ - size_t len = wcslen(path); - C_WCHAR slash = len && wcschr(L"\\/", path[len - 1]), *str; - - if(_wstat(path, buf) == 0) - goto dircheck; - - if(slash && errno == ENOENT) { - C_memcpy((str = (C_WCHAR *)C_alloca((len + 1) * sizeof(C_WCHAR))), path, - (len + 1) * sizeof(C_WCHAR)); - while(len > 1 && wcschr(L"\\/", path[--len])) - str[len] = '\0'; - if(_wstat(str, buf) == 0) - goto dircheck; - } - - return -1; - -dircheck: - if(slash && !S_ISDIR(buf->st_mode)) { - errno = ENOTDIR; - return -1; - } - - return 0; -} -/* - * Haiku's stat() has a similar issue, where it will gladly succeed - * when given a path to a filename with a trailing slash. - */ -#elif defined(__HAIKU__) -inline static int C_stat(const char *path, struct stat *buf) -{ - size_t len = C_strlen(path); - char slash = len && path[len - 1] == '/'; - - if(stat(path, buf) != 0) { - return -1; - } - - if (slash && !S_ISDIR(buf->st_mode)) { - errno = ENOTDIR; - return -1; - } - - return 0; -} -#else -# define C_stat stat -#endif - -/* Safe realpath usage depends on a reliable PATH_MAX. */ -#ifdef PATH_MAX -# define C_realpath realpath -#else -inline static char *C_realpath(const char *path, char *resolved) -{ -# if _POSIX_C_SOURCE >= 200809L - char *p; - size_t n; - if((p = realpath(path, NULL)) == NULL) - return NULL; - n = C_strlcpy(resolved, p, C_MAX_PATH); - C_free(p); - if(n < C_MAX_PATH) - return resolved; -# endif - return NULL; -} -#endif - -C_END_C_DECLS - -#endif /* ___CHICKEN */ diff --git a/chicken/src/build-version.c b/chicken/src/build-version.c deleted file mode 100644 index c9d4160..0000000 --- a/chicken/src/build-version.c +++ /dev/null @@ -1,81 +0,0 @@ -/* Generated from build-version.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: build-version.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file build-version.c - unit: build-version -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); - -static C_word lf[7]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; - - -C_noret_decl(C_build_2dversion_toplevel) -C_extern void C_ccall C_build_2dversion_toplevel(C_word c,C_word *av) C_noret; - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_build_2dversion_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("build-version")); -C_check_nursery_minimum(C_calculate_demand(8,c,1)); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ -C_save_and_reclaim((void*)C_build_2dversion_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(28))){ -C_save(t1); -C_rereclaim2(28*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(8); -C_initialize_lf(lf,7); -lf[0]=C_h_intern(&lf[0],13, C_text("build-version")); -lf[1]=C_h_intern(&lf[1],14, C_text("##sys#build-id")); -lf[2]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\060\065\142\145\061\065\144\064\000")); -lf[3]=C_h_intern(&lf[3],18, C_text("##sys#build-branch")); -lf[4]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\050\110\105\101\104\040\144\145\164\141\143\150\145\144\040\141\164\040\066\056\060\056\060\160\162\145\061\051\000")); -lf[5]=C_h_intern(&lf[5],19, C_text("##sys#build-version")); -lf[6]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\066\056\060\056\060\160\162\145\061\000")); -C_register_lf2(lf,7,create_ptable());{} -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_mutate((C_word*)lf[1]+1 /* (set! ##sys#build-id ...) */,lf[2]); -t4=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#build-branch ...) */,lf[4]); -t5=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#build-version ...) */,lf[6]); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[2] = { -{C_text("toplevel:build_2dversion_2escm"),(void*)C_build_2dversion_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|safe globals: (##sys#build-version ##sys#build-branch ##sys#build-id) -o|removed binding forms: 3 -*/ -/* end of file */ diff --git a/chicken/src/chicken-syntax.c b/chicken/src/chicken-syntax.c deleted file mode 100644 index de444aa..0000000 --- a/chicken/src/chicken-syntax.c +++ /dev/null @@ -1,23497 +0,0 @@ -/* Generated from chicken-syntax.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: chicken-syntax.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file chicken-syntax.c - unit: chicken-syntax - uses: internal expand library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_internal_toplevel) -C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_expand_toplevel) -C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[301]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,12),40,116,97,107,101,32,108,115,116,32,110,41,0,0,0,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li2[] C_aligned={C_lihdr(0,0,11),40,103,101,110,118,97,114,115,32,110,41,0,0,0,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,110,32,112,114,101,118,32,110,111,100,101,41,0,0,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,7),40,97,54,48,48,54,41,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,51,51,55,53,32,103,51,51,56,55,32,103,51,51,56,56,41,0,0,0,0,0,0}; -static C_char li6[] C_aligned={C_lihdr(0,0,19),40,98,117,105,108,100,32,118,97,114,115,50,32,118,114,101,115,116,41,0,0,0,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,19),40,97,54,48,49,54,32,118,97,114,115,49,32,118,97,114,115,50,41,0,0,0,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,22),40,97,53,57,56,54,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,14),40,103,51,51,51,50,32,99,32,98,111,100,121,41,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,114,51,51,50,55,32,103,51,51,50,56,41,0,0,0,0,0,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,22),40,97,54,50,52,56,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,50,56,52,32,103,51,50,57,54,41,0,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,16),40,97,53,56,55,56,32,102,111,114,109,32,114,32,99,41}; -static C_char li14[] C_aligned={C_lihdr(0,0,16),40,97,54,51,49,56,32,102,111,114,109,32,114,32,99,41}; -static C_char li15[] C_aligned={C_lihdr(0,0,29),40,103,117,97,114,100,45,97,117,120,32,114,101,114,97,105,115,101,32,98,111,100,121,32,109,111,114,101,41,0,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,16),40,97,54,51,54,55,32,102,111,114,109,32,114,32,99,41}; -static C_char li17[] C_aligned={C_lihdr(0,0,16),40,97,54,55,53,53,32,102,111,114,109,32,114,32,99,41}; -static C_char li18[] C_aligned={C_lihdr(0,0,13),40,97,54,56,52,52,32,120,32,114,32,99,41,0,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,16),40,97,54,56,54,50,32,102,111,114,109,32,114,32,99,41}; -static C_char li20[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,120,115,32,118,97,114,115,32,98,115,32,118,97,108,115,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,16),40,97,54,57,50,55,32,102,111,114,109,32,114,32,99,41}; -static C_char li22[] C_aligned={C_lihdr(0,0,24),40,108,111,111,112,32,120,115,32,118,97,114,115,32,118,97,108,115,32,114,101,115,116,41}; -static C_char li23[] C_aligned={C_lihdr(0,0,16),40,97,55,49,50,50,32,102,111,114,109,32,114,32,99,41}; -static C_char li24[] C_aligned={C_lihdr(0,0,13),40,103,50,57,56,54,32,118,110,97,109,101,41,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,7),40,103,51,48,49,50,41,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,115,108,111,116,115,32,105,41,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,48,54,32,103,51,48,49,56,41,0,0,0,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,57,56,53,32,103,50,57,57,50,41,0,0,0,0,0,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,53,57,32,103,50,57,55,49,41,0,0,0,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,16),40,97,55,50,57,52,32,102,111,114,109,32,114,32,99,41}; -static C_char li31[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,97,114,103,115,32,118,97,114,100,101,102,115,41,0,0,0,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,16),40,97,55,56,48,54,32,102,111,114,109,32,114,32,99,41}; -static C_char li33[] C_aligned={C_lihdr(0,0,16),40,97,55,57,54,54,32,102,111,114,109,32,114,32,99,41}; -static C_char li34[] C_aligned={C_lihdr(0,0,36),40,114,101,99,117,114,32,118,97,114,115,32,100,101,102,97,117,108,116,101,114,115,32,110,111,110,45,100,101,102,97,117,108,116,115,41,0,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,45),40,109,97,107,101,45,105,102,45,116,114,101,101,32,118,97,114,115,32,100,101,102,97,117,108,116,101,114,115,32,98,111,100,121,45,112,114,111,99,32,114,101,115,116,41,0,0,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,23),40,112,114,101,102,105,120,45,115,121,109,32,112,114,101,102,105,120,32,115,121,109,41,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,9),40,103,50,56,48,51,32,118,41,0,0,0,0,0,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,11),40,103,50,56,54,48,32,118,97,114,41,0,0,0,0,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,42),40,114,101,99,117,114,32,118,97,114,115,32,100,101,102,97,117,108,116,101,114,45,110,97,109,101,115,32,100,101,102,115,32,110,101,120,116,45,103,117,121,41,0,0,0,0,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,53,52,32,103,50,56,54,54,41,0,0,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,50,53,32,103,50,56,51,55,41,0,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,57,55,32,103,50,56,48,57,41,0,0,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,54,55,32,103,50,55,55,57,41,0,0,0,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,16),40,97,56,48,52,51,32,102,111,114,109,32,114,32,99,41}; -static C_char li45[] C_aligned={C_lihdr(0,0,14),40,102,111,108,100,32,98,115,32,108,97,115,116,41,0,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,16),40,97,56,52,57,49,32,102,111,114,109,32,114,32,99,41}; -static C_char li47[] C_aligned={C_lihdr(0,0,24),40,113,117,111,116,105,102,121,45,112,114,111,99,50,54,54,55,32,120,115,32,105,100,41}; -static C_char li48[] C_aligned={C_lihdr(0,0,16),40,97,56,54,51,51,32,102,111,114,109,32,114,32,99,41}; -static C_char li49[] C_aligned={C_lihdr(0,0,16),40,97,56,55,51,55,32,102,111,114,109,32,114,32,99,41}; -static C_char li50[] C_aligned={C_lihdr(0,0,13),40,97,56,55,56,49,32,120,32,114,32,99,41,0,0,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,50,54,49,53,32,103,50,54,50,55,32,103,50,54,50,56,41,0,0,0,0,0,0}; -static C_char li52[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,54,55,32,103,50,53,55,57,41,0,0,0,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,13),40,97,56,56,53,52,32,97,32,95,32,95,41,0,0,0}; -static C_char li54[] C_aligned={C_lihdr(0,0,23),40,102,111,108,100,108,50,53,57,49,32,103,50,53,57,50,32,103,50,53,57,48,41,0}; -static C_char li55[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,51,56,32,103,50,53,53,48,41,0,0,0,0}; -static C_char li56[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,49,50,32,103,50,53,50,52,41,0,0,0,0}; -static C_char li57[] C_aligned={C_lihdr(0,0,16),40,97,56,56,48,51,32,102,111,114,109,32,114,32,99,41}; -static C_char li58[] C_aligned={C_lihdr(0,0,16),40,102,111,108,100,32,118,98,105,110,100,105,110,103,115,41}; -static C_char li59[] C_aligned={C_lihdr(0,0,16),40,97,57,48,54,49,32,102,111,114,109,32,114,32,99,41}; -static C_char li60[] C_aligned={C_lihdr(0,0,18),40,97,112,112,101,110,100,42,50,51,49,56,32,105,108,32,108,41,0,0,0,0,0,0}; -static C_char li61[] C_aligned={C_lihdr(0,0,17),40,109,97,112,42,50,51,49,57,32,112,114,111,99,32,108,41,0,0,0,0,0,0,0}; -static C_char li62[] C_aligned={C_lihdr(0,0,9),40,103,50,51,55,57,32,118,41,0,0,0,0,0,0,0}; -static C_char li63[] C_aligned={C_lihdr(0,0,10),40,108,111,111,107,117,112,32,118,41,0,0,0,0,0,0}; -static C_char li64[] C_aligned={C_lihdr(0,0,9),40,103,50,52,51,48,32,118,41,0,0,0,0,0,0,0}; -static C_char li65[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,50,52,32,103,50,52,51,54,41,0,0,0,0}; -static C_char li66[] C_aligned={C_lihdr(0,0,26),40,102,111,108,100,32,108,108,105,115,116,115,32,101,120,112,115,32,108,108,105,115,116,115,50,41,0,0,0,0,0,0}; -static C_char li67[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,53,57,32,103,50,52,55,49,41,0,0,0,0}; -static C_char li68[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,108,108,105,115,116,115,32,97,99,99,41,0,0,0,0,0,0,0}; -static C_char li69[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,55,51,32,103,50,51,56,53,41,0,0,0,0}; -static C_char li70[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,108,108,105,115,116,115,32,97,99,99,41,0,0,0,0,0,0,0}; -static C_char li71[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,51,53,32,103,50,51,52,55,41,0,0,0,0}; -static C_char li72[] C_aligned={C_lihdr(0,0,16),40,97,57,49,49,53,32,102,111,114,109,32,114,32,99,41}; -static C_char li73[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,55,52,32,103,50,50,56,54,41,0,0,0,0}; -static C_char li74[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,50,54,52,32,103,50,50,55,49,41,0,0,0,0,0,0,0}; -static C_char li75[] C_aligned={C_lihdr(0,0,22),40,97,57,54,50,57,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; -static C_char li76[] C_aligned={C_lihdr(0,0,16),40,97,57,53,57,50,32,102,111,114,109,32,114,32,99,41}; -static C_char li77[] C_aligned={C_lihdr(0,0,16),40,97,57,55,50,50,32,102,111,114,109,32,114,32,99,41}; -static C_char li78[] C_aligned={C_lihdr(0,0,16),40,97,57,55,52,51,32,102,111,114,109,32,114,32,99,41}; -static C_char li79[] C_aligned={C_lihdr(0,0,16),40,97,57,55,55,49,32,102,111,114,109,32,114,32,99,41}; -static C_char li80[] C_aligned={C_lihdr(0,0,7),40,97,57,56,49,48,41,0}; -static C_char li81[] C_aligned={C_lihdr(0,0,48),40,97,57,56,49,54,32,110,97,109,101,50,50,48,49,32,108,105,98,50,50,48,51,32,95,50,50,48,53,32,95,50,50,48,53,32,95,50,50,48,53,32,95,50,50,48,53,41}; -static C_char li82[] C_aligned={C_lihdr(0,0,9),40,103,50,49,56,57,32,120,41,0,0,0,0,0,0,0}; -static C_char li83[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,56,51,32,103,50,49,57,53,41,0,0,0,0}; -static C_char li84[] C_aligned={C_lihdr(0,0,13),40,97,57,55,57,53,32,120,32,114,32,99,41,0,0,0}; -static C_char li85[] C_aligned={C_lihdr(0,0,9),40,103,49,55,55,52,32,122,41,0,0,0,0,0,0,0}; -static C_char li86[] C_aligned={C_lihdr(0,0,7),40,103,49,56,48,50,41,0}; -static C_char li87[] C_aligned={C_lihdr(0,0,7),40,103,49,56,51,48,41,0}; -static C_char li88[] C_aligned={C_lihdr(0,0,14),40,103,49,57,53,51,32,115,32,116,101,109,112,41,0,0}; -static C_char li89[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,50,49,51,57,32,103,50,49,53,49,32,103,50,49,53,50,41,0,0,0,0,0,0}; -static C_char li90[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,50,49,48,51,32,103,50,49,49,53,32,103,50,49,49,54,41,0,0,0,0,0,0}; -static C_char li91[] C_aligned={C_lihdr(0,0,32),40,109,97,112,45,108,111,111,112,50,48,54,49,32,103,50,48,55,51,32,103,50,48,55,52,32,103,50,48,55,53,41}; -static C_char li92[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,50,48,50,53,32,103,50,48,51,55,32,103,50,48,51,56,41,0,0,0,0,0,0}; -static C_char li93[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,57,56,57,32,103,50,48,48,49,32,103,50,48,48,50,41,0,0,0,0,0,0}; -static C_char li94[] C_aligned={C_lihdr(0,0,32),40,109,97,112,45,108,111,111,112,49,57,52,55,32,103,49,57,53,57,32,103,49,57,54,48,32,103,49,57,54,49,41}; -static C_char li95[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,57,49,54,32,103,49,57,50,56,32,103,49,57,50,57,41,0,0,0,0,0,0}; -static C_char li96[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,56,56,53,32,103,49,56,57,55,32,103,49,56,57,56,41,0,0,0,0,0,0}; -static C_char li97[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,56,53,52,32,103,49,56,54,54,32,103,49,56,54,55,41,0,0,0,0,0,0}; -static C_char li98[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,56,50,52,32,103,49,56,51,54,41,0,0,0,0}; -static C_char li99[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,57,54,32,103,49,56,48,56,41,0,0,0,0}; -static C_char li100[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,54,56,32,103,49,55,56,48,41,0,0,0,0}; -static C_char li101[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,52,49,32,103,49,55,53,51,41,0,0,0,0}; -static C_char li102[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,49,52,32,103,49,55,50,54,41,0,0,0,0}; -static C_char li103[] C_aligned={C_lihdr(0,0,16),40,97,57,56,55,53,32,102,111,114,109,32,114,32,99,41}; -static C_char li104[] C_aligned={C_lihdr(0,0,7),40,103,49,52,49,55,41,0}; -static C_char li105[] C_aligned={C_lihdr(0,0,7),40,103,49,52,52,53,41,0}; -static C_char li106[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,54,54,56,32,103,49,54,56,48,32,103,49,54,56,49,41,0,0,0,0,0,0}; -static C_char li107[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,54,51,50,32,103,49,54,52,52,32,103,49,54,52,53,41,0,0,0,0,0,0}; -static C_char li108[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,53,57,54,32,103,49,54,48,56,32,103,49,54,48,57,41,0,0,0,0,0,0}; -static C_char li109[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,53,54,48,32,103,49,53,55,50,32,103,49,53,55,51,41,0,0,0,0,0,0}; -static C_char li110[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,53,50,54,32,103,49,53,51,56,32,103,49,53,51,57,41,0,0,0,0,0,0}; -static C_char li111[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,110,41}; -static C_char li112[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,52,54,57,32,103,49,52,56,49,32,103,49,52,56,50,41,0,0,0,0,0,0}; -static C_char li113[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,57,48,32,103,49,53,48,50,41,0,0,0,0}; -static C_char li114[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,51,57,32,103,49,52,53,49,41,0,0,0,0}; -static C_char li115[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,49,49,32,103,49,52,50,51,41,0,0,0,0}; -static C_char li116[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,56,52,32,103,49,51,57,54,41,0,0,0,0}; -static C_char li117[] C_aligned={C_lihdr(0,0,17),40,97,49,48,56,48,53,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li118[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,52,55,32,103,49,51,53,57,41,0,0,0,0}; -static C_char li119[] C_aligned={C_lihdr(0,0,17),40,97,49,49,52,53,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li120[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,49,48,32,103,49,51,50,50,41,0,0,0,0}; -static C_char li121[] C_aligned={C_lihdr(0,0,17),40,97,49,49,53,50,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li122[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,50,55,51,32,103,49,50,56,53,41,0,0,0,0}; -static C_char li123[] C_aligned={C_lihdr(0,0,17),40,97,49,49,53,56,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li124[] C_aligned={C_lihdr(0,0,17),40,97,49,49,54,53,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li125[] C_aligned={C_lihdr(0,0,17),40,97,49,49,54,55,52,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li126[] C_aligned={C_lihdr(0,0,17),40,97,49,49,54,56,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li127[] C_aligned={C_lihdr(0,0,12),40,103,49,49,55,52,32,115,108,111,116,41,0,0,0,0}; -static C_char li128[] C_aligned={C_lihdr(0,0,18),40,109,97,112,115,108,111,116,115,32,115,108,111,116,115,32,105,41,0,0,0,0,0,0}; -static C_char li129[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,54,56,32,103,49,49,56,48,41,0,0,0,0}; -static C_char li130[] C_aligned={C_lihdr(0,0,14),40,97,49,49,55,56,49,32,120,32,114,32,99,41,0,0}; -static C_char li131[] C_aligned={C_lihdr(0,0,17),40,97,49,50,49,55,54,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li132[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,49,49,48,48,32,108,32,108,101,110,41}; -static C_char li133[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,49,49,48,48,32,108,32,108,101,110,41}; -static C_char li134[] C_aligned={C_lihdr(0,0,29),40,97,49,50,49,57,51,32,105,110,112,117,116,32,114,101,110,97,109,101,32,99,111,109,112,97,114,101,41,0,0,0}; -static C_char li135[] C_aligned={C_lihdr(0,0,29),40,97,49,50,51,50,49,32,105,110,112,117,116,32,114,101,110,97,109,101,32,99,111,109,112,97,114,101,41,0,0,0}; -static C_char li136[] C_aligned={C_lihdr(0,0,17),40,97,49,50,52,49,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li137[] C_aligned={C_lihdr(0,0,14),40,97,49,50,52,52,55,32,120,32,114,32,99,41,0,0}; -static C_char li138[] C_aligned={C_lihdr(0,0,14),40,97,49,50,52,55,55,32,120,32,114,32,99,41,0,0}; -static C_char li139[] C_aligned={C_lihdr(0,0,14),40,97,49,50,52,57,52,32,120,32,114,32,99,41,0,0}; -static C_char li140[] C_aligned={C_lihdr(0,0,13),40,103,57,56,53,32,99,108,97,117,115,101,41,0,0,0}; -static C_char li141[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,55,57,32,103,57,57,49,41,0,0,0,0,0,0}; -static C_char li142[] C_aligned={C_lihdr(0,0,14),40,97,49,50,53,53,52,32,120,32,114,32,99,41,0,0}; -static C_char li143[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,57,50,53,32,103,57,51,55,32,103,57,51,56,41,0}; -static C_char li144[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,57,49,32,103,57,48,51,41,0,0,0,0,0,0}; -static C_char li145[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,50,32,97,110,97,109,101,115,32,105,41}; -static C_char li146[] C_aligned={C_lihdr(0,0,25),40,108,111,111,112,32,97,114,103,115,32,97,110,97,109,101,115,32,97,116,121,112,101,115,41,0,0,0,0,0,0,0}; -static C_char li147[] C_aligned={C_lihdr(0,0,14),40,97,49,50,54,55,55,32,120,32,114,32,99,41,0,0}; -static C_char li148[] C_aligned={C_lihdr(0,0,17),40,97,49,51,48,57,53,32,116,121,112,101,32,118,97,114,41,0,0,0,0,0,0,0}; -static C_char li149[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,50,52,32,103,56,51,54,41,0,0,0,0,0,0}; -static C_char li150[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,55,57,54,32,103,56,48,56,41,0,0,0,0,0,0}; -static C_char li151[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,55,52,57,32,108,32,108,101,110,41,0}; -static C_char li152[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,55,52,57,32,108,32,108,101,110,41,0}; -static C_char li153[] C_aligned={C_lihdr(0,0,29),40,97,49,51,48,50,55,32,105,110,112,117,116,32,114,101,110,97,109,101,32,99,111,109,112,97,114,101,41,0,0,0}; -static C_char li154[] C_aligned={C_lihdr(0,0,14),40,97,49,51,51,49,54,32,120,32,114,32,99,41,0,0}; -static C_char li155[] C_aligned={C_lihdr(0,0,8),40,97,49,51,51,55,52,41}; -static C_char li156[] C_aligned={C_lihdr(0,0,32),40,97,49,51,51,56,52,32,116,121,112,101,55,48,54,32,112,114,101,100,55,48,56,32,112,117,114,101,55,49,48,41}; -static C_char li157[] C_aligned={C_lihdr(0,0,14),40,97,49,51,51,53,52,32,120,32,114,32,99,41,0,0}; -static C_char li158[] C_aligned={C_lihdr(0,0,6),40,103,54,51,56,41,0,0}; -static C_char li159[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,51,50,32,103,54,52,52,41,0,0,0,0,0,0}; -static C_char li160[] C_aligned={C_lihdr(0,0,16),40,112,97,114,115,101,45,99,108,97,117,115,101,32,99,41}; -static C_char li161[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,54,51,32,103,54,55,53,41,0,0,0,0,0,0}; -static C_char li162[] C_aligned={C_lihdr(0,0,17),40,97,49,51,52,54,53,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li163[] C_aligned={C_lihdr(0,0,17),40,97,49,51,55,51,56,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li164[] 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_10007) -static void C_ccall f_10007(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_10059) -static void C_ccall f_10059(C_word c,C_word *av) C_noret; -C_noret_decl(f_10071) -static void C_ccall f_10071(C_word c,C_word *av) C_noret; -C_noret_decl(f_10083) -static void C_ccall f_10083(C_word c,C_word *av) C_noret; -C_noret_decl(f_10085) -static void f_10085(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10133) -static void f_10133(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10181) -static void f_10181(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_10188) -static void f_10188(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10258) -static C_word f_10258(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3); -C_noret_decl(f_10276) -static void C_ccall f_10276(C_word c,C_word *av) C_noret; -C_noret_decl(f_10280) -static void C_ccall f_10280(C_word c,C_word *av) C_noret; -C_noret_decl(f_10296) -static void C_ccall f_10296(C_word c,C_word *av) C_noret; -C_noret_decl(f_10300) -static void C_ccall f_10300(C_word c,C_word *av) C_noret; -C_noret_decl(f_10312) -static void C_ccall f_10312(C_word c,C_word *av) C_noret; -C_noret_decl(f_10322) -static void f_10322(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10370) -static void f_10370(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10418) -static void f_10418(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_10425) -static void f_10425(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10488) -static void f_10488(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10536) -static void f_10536(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10584) -static void f_10584(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10632) -static void f_10632(C_word t0,C_word t1,C_word t2) 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_10666) -static void f_10666(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10691) -static void C_ccall f_10691(C_word c,C_word *av) C_noret; -C_noret_decl(f_10700) -static void f_10700(C_word t0,C_word t1,C_word t2) 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_10734) -static void f_10734(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10768) -static void f_10768(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10804) -static void C_ccall f_10804(C_word c,C_word *av) C_noret; -C_noret_decl(f_10806) -static void C_ccall f_10806(C_word c,C_word *av) C_noret; -C_noret_decl(f_10810) -static void C_ccall f_10810(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_10828) -static void f_10828(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10836) -static void C_ccall f_10836(C_word c,C_word *av) C_noret; -C_noret_decl(f_10839) -static void C_ccall f_10839(C_word c,C_word *av) C_noret; -C_noret_decl(f_10843) -static void f_10843(C_word t0,C_word t1) 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_10854) -static void C_ccall f_10854(C_word c,C_word *av) C_noret; -C_noret_decl(f_10861) -static void C_ccall f_10861(C_word c,C_word *av) C_noret; -C_noret_decl(f_10885) -static void C_ccall f_10885(C_word c,C_word *av) C_noret; -C_noret_decl(f_10897) -static void C_ccall f_10897(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_10913) -static void C_ccall f_10913(C_word c,C_word *av) C_noret; -C_noret_decl(f_10923) -static void f_10923(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10971) -static void f_10971(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_11029) -static void C_ccall f_11029(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_11048) -static void C_ccall f_11048(C_word c,C_word *av) C_noret; -C_noret_decl(f_11060) -static void C_ccall f_11060(C_word c,C_word *av) C_noret; -C_noret_decl(f_11070) -static void f_11070(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_11118) -static void f_11118(C_word t0,C_word t1,C_word t2,C_word t3) 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_11183) -static void C_ccall f_11183(C_word c,C_word *av) C_noret; -C_noret_decl(f_11190) -static void C_ccall f_11190(C_word c,C_word *av) C_noret; -C_noret_decl(f_11199) -static void C_ccall f_11199(C_word c,C_word *av) C_noret; -C_noret_decl(f_11201) -static void f_11201(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_11251) -static void f_11251(C_word t0,C_word t1,C_word t2) 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_11271) -static void f_11271(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_11319) -static void f_11319(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11353) -static void f_11353(C_word t0,C_word t1,C_word t2) 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_11387) -static void f_11387(C_word t0,C_word t1,C_word t2) 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_11421) -static void f_11421(C_word t0,C_word t1,C_word t2) 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_11459) -static void C_ccall f_11459(C_word c,C_word *av) C_noret; -C_noret_decl(f_11463) -static void C_ccall f_11463(C_word c,C_word *av) C_noret; -C_noret_decl(f_11484) -static void C_ccall f_11484(C_word c,C_word *av) C_noret; -C_noret_decl(f_11486) -static void f_11486(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11522) -static void C_ccall f_11522(C_word c,C_word *av) C_noret; -C_noret_decl(f_11524) -static void C_ccall f_11524(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_11549) -static void C_ccall f_11549(C_word c,C_word *av) C_noret; -C_noret_decl(f_11551) -static void f_11551(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11587) -static void C_ccall f_11587(C_word c,C_word *av) C_noret; -C_noret_decl(f_11589) -static void C_ccall f_11589(C_word c,C_word *av) C_noret; -C_noret_decl(f_11593) -static void C_ccall f_11593(C_word c,C_word *av) C_noret; -C_noret_decl(f_11614) -static void C_ccall f_11614(C_word c,C_word *av) C_noret; -C_noret_decl(f_11616) -static void f_11616(C_word t0,C_word t1,C_word t2) 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_11654) -static void C_ccall f_11654(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_11673) -static void C_ccall f_11673(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_11687) -static void C_ccall f_11687(C_word c,C_word *av) C_noret; -C_noret_decl(f_11689) -static void C_ccall f_11689(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_11715) -static void C_ccall f_11715(C_word c,C_word *av) C_noret; -C_noret_decl(f_11780) -static void C_ccall f_11780(C_word c,C_word *av) C_noret; -C_noret_decl(f_11782) -static void C_ccall f_11782(C_word c,C_word *av) C_noret; -C_noret_decl(f_11786) -static void C_ccall f_11786(C_word c,C_word *av) C_noret; -C_noret_decl(f_11792) -static void C_ccall f_11792(C_word c,C_word *av) C_noret; -C_noret_decl(f_11795) -static void C_ccall f_11795(C_word c,C_word *av) C_noret; -C_noret_decl(f_11798) -static void C_ccall f_11798(C_word c,C_word *av) C_noret; -C_noret_decl(f_11804) -static void C_ccall f_11804(C_word c,C_word *av) C_noret; -C_noret_decl(f_11807) -static void C_ccall f_11807(C_word c,C_word *av) C_noret; -C_noret_decl(f_11810) -static void C_ccall f_11810(C_word c,C_word *av) C_noret; -C_noret_decl(f_11814) -static void f_11814(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11827) -static void f_11827(C_word t0,C_word t1) 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_11874) -static void C_ccall f_11874(C_word c,C_word *av) C_noret; -C_noret_decl(f_11905) -static void C_ccall f_11905(C_word c,C_word *av) C_noret; -C_noret_decl(f_11907) -static void f_11907(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_11923) -static void C_ccall f_11923(C_word c,C_word *av) C_noret; -C_noret_decl(f_11926) -static void C_ccall f_11926(C_word c,C_word *av) C_noret; -C_noret_decl(f_11929) -static void C_ccall f_11929(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_11955) -static void C_ccall f_11955(C_word c,C_word *av) C_noret; -C_noret_decl(f_11959) -static void f_11959(C_word t0,C_word t1) C_noret; -C_noret_decl(f_12052) -static void C_ccall f_12052(C_word c,C_word *av) C_noret; -C_noret_decl(f_12056) -static void C_ccall f_12056(C_word c,C_word *av) C_noret; -C_noret_decl(f_12071) -static void C_ccall f_12071(C_word c,C_word *av) C_noret; -C_noret_decl(f_12091) -static void C_ccall f_12091(C_word c,C_word *av) C_noret; -C_noret_decl(f_12097) -static void C_ccall f_12097(C_word c,C_word *av) C_noret; -C_noret_decl(f_12117) -static void C_ccall f_12117(C_word c,C_word *av) C_noret; -C_noret_decl(f_12125) -static void f_12125(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_12150) -static void C_ccall f_12150(C_word c,C_word *av) C_noret; -C_noret_decl(f_12160) -static void C_ccall f_12160(C_word c,C_word *av) C_noret; -C_noret_decl(f_12167) -static void C_ccall f_12167(C_word c,C_word *av) C_noret; -C_noret_decl(f_12171) -static void C_ccall f_12171(C_word c,C_word *av) C_noret; -C_noret_decl(f_12175) -static void C_ccall f_12175(C_word c,C_word *av) C_noret; -C_noret_decl(f_12177) -static void C_ccall f_12177(C_word c,C_word *av) C_noret; -C_noret_decl(f_12181) -static void C_ccall f_12181(C_word c,C_word *av) C_noret; -C_noret_decl(f_12192) -static void C_ccall f_12192(C_word c,C_word *av) C_noret; -C_noret_decl(f_12194) -static void C_ccall f_12194(C_word c,C_word *av) C_noret; -C_noret_decl(f_12204) -static void C_ccall f_12204(C_word c,C_word *av) C_noret; -C_noret_decl(f_12217) -static void C_ccall f_12217(C_word c,C_word *av) C_noret; -C_noret_decl(f_12233) -static void C_ccall f_12233(C_word c,C_word *av) C_noret; -C_noret_decl(f_12236) -static void C_ccall f_12236(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_12245) -static void C_ccall f_12245(C_word c,C_word *av) C_noret; -C_noret_decl(f_12254) -static void f_12254(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_12261) -static void C_ccall f_12261(C_word c,C_word *av) C_noret; -C_noret_decl(f_12275) -static void C_ccall f_12275(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_12291) -static void f_12291(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_12298) -static void C_ccall f_12298(C_word c,C_word *av) C_noret; -C_noret_decl(f_12312) -static void C_ccall f_12312(C_word c,C_word *av) C_noret; -C_noret_decl(f_12320) -static void C_ccall f_12320(C_word c,C_word *av) C_noret; -C_noret_decl(f_12322) -static void C_ccall f_12322(C_word c,C_word *av) C_noret; -C_noret_decl(f_12342) -static void C_ccall f_12342(C_word c,C_word *av) C_noret; -C_noret_decl(f_12356) -static void f_12356(C_word t0,C_word t1) C_noret; -C_noret_decl(f_12369) -static void C_ccall f_12369(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_12419) -static void C_ccall f_12419(C_word c,C_word *av) C_noret; -C_noret_decl(f_12423) -static void C_ccall f_12423(C_word c,C_word *av) C_noret; -C_noret_decl(f_12430) -static void C_ccall f_12430(C_word c,C_word *av) C_noret; -C_noret_decl(f_12438) -static void C_ccall f_12438(C_word c,C_word *av) C_noret; -C_noret_decl(f_12446) -static void C_ccall f_12446(C_word c,C_word *av) C_noret; -C_noret_decl(f_12448) -static void C_ccall f_12448(C_word c,C_word *av) C_noret; -C_noret_decl(f_12452) -static void C_ccall f_12452(C_word c,C_word *av) C_noret; -C_noret_decl(f_12455) -static void C_ccall f_12455(C_word c,C_word *av) C_noret; -C_noret_decl(f_12476) -static void C_ccall f_12476(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_12482) -static void C_ccall f_12482(C_word c,C_word *av) C_noret; -C_noret_decl(f_12493) -static void C_ccall f_12493(C_word c,C_word *av) C_noret; -C_noret_decl(f_12495) -static void C_ccall f_12495(C_word c,C_word *av) C_noret; -C_noret_decl(f_12499) -static void C_ccall f_12499(C_word c,C_word *av) C_noret; -C_noret_decl(f_12508) -static void C_ccall f_12508(C_word c,C_word *av) C_noret; -C_noret_decl(f_12511) -static void C_ccall f_12511(C_word c,C_word *av) C_noret; -C_noret_decl(f_12514) -static void C_ccall f_12514(C_word c,C_word *av) C_noret; -C_noret_decl(f_12537) -static void C_ccall f_12537(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_12555) -static void C_ccall f_12555(C_word c,C_word *av) C_noret; -C_noret_decl(f_12559) -static void C_ccall f_12559(C_word c,C_word *av) C_noret; -C_noret_decl(f_12565) -static void C_ccall f_12565(C_word c,C_word *av) C_noret; -C_noret_decl(f_12568) -static void C_ccall f_12568(C_word c,C_word *av) C_noret; -C_noret_decl(f_12592) -static void f_12592(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_12596) -static void C_ccall f_12596(C_word c,C_word *av) C_noret; -C_noret_decl(f_12603) -static void C_ccall f_12603(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_12632) -static void f_12632(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_12657) -static void C_ccall f_12657(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_12678) -static void C_ccall f_12678(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_12698) -static void C_ccall f_12698(C_word c,C_word *av) C_noret; -C_noret_decl(f_12701) -static void C_ccall f_12701(C_word c,C_word *av) C_noret; -C_noret_decl(f_12704) -static void C_ccall f_12704(C_word c,C_word *av) C_noret; -C_noret_decl(f_12712) -static void f_12712(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_12722) -static void C_ccall f_12722(C_word c,C_word *av) C_noret; -C_noret_decl(f_12725) -static void C_ccall f_12725(C_word c,C_word *av) C_noret; -C_noret_decl(f_12767) -static void C_ccall f_12767(C_word c,C_word *av) C_noret; -C_noret_decl(f_12769) -static void f_12769(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_12831) -static void f_12831(C_word t0,C_word t1) C_noret; -C_noret_decl(f_12852) -static void C_ccall f_12852(C_word c,C_word *av) C_noret; -C_noret_decl(f_12854) -static void f_12854(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_12879) -static void C_ccall f_12879(C_word c,C_word *av) C_noret; -C_noret_decl(f_12896) -static void C_ccall f_12896(C_word c,C_word *av) C_noret; -C_noret_decl(f_12898) -static void f_12898(C_word t0,C_word t1,C_word t2,C_word t3) 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_12952) -static void f_12952(C_word t0,C_word t1) 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_13026) -static void C_ccall f_13026(C_word c,C_word *av) C_noret; -C_noret_decl(f_13028) -static void C_ccall f_13028(C_word c,C_word *av) C_noret; -C_noret_decl(f_13038) -static void C_ccall f_13038(C_word c,C_word *av) C_noret; -C_noret_decl(f_13055) -static void C_ccall f_13055(C_word c,C_word *av) C_noret; -C_noret_decl(f_13076) -static void C_ccall f_13076(C_word c,C_word *av) 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_13094) -static void C_ccall f_13094(C_word c,C_word *av) C_noret; -C_noret_decl(f_13096) -static void C_ccall f_13096(C_word c,C_word *av) C_noret; -C_noret_decl(f_13112) -static void C_ccall f_13112(C_word c,C_word *av) C_noret; -C_noret_decl(f_13122) -static void f_13122(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13156) -static void f_13156(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13200) -static void C_ccall f_13200(C_word c,C_word *av) C_noret; -C_noret_decl(f_13203) -static void C_ccall f_13203(C_word c,C_word *av) C_noret; -C_noret_decl(f_13206) -static void C_ccall f_13206(C_word c,C_word *av) C_noret; -C_noret_decl(f_13212) -static void C_ccall f_13212(C_word c,C_word *av) C_noret; -C_noret_decl(f_13221) -static void f_13221(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_13228) -static void C_ccall f_13228(C_word c,C_word *av) C_noret; -C_noret_decl(f_13242) -static void C_ccall f_13242(C_word c,C_word *av) C_noret; -C_noret_decl(f_13249) -static void C_ccall f_13249(C_word c,C_word *av) C_noret; -C_noret_decl(f_13258) -static void f_13258(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_13265) -static void C_ccall f_13265(C_word c,C_word *av) C_noret; -C_noret_decl(f_13277) -static void f_13277(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13288) -static void C_ccall f_13288(C_word c,C_word *av) C_noret; -C_noret_decl(f_13315) -static void C_ccall f_13315(C_word c,C_word *av) C_noret; -C_noret_decl(f_13317) -static void C_ccall f_13317(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_13337) -static void C_ccall f_13337(C_word c,C_word *av) C_noret; -C_noret_decl(f_13353) -static void C_ccall f_13353(C_word c,C_word *av) C_noret; -C_noret_decl(f_13355) -static void C_ccall f_13355(C_word c,C_word *av) C_noret; -C_noret_decl(f_13359) -static void C_ccall f_13359(C_word c,C_word *av) C_noret; -C_noret_decl(f_13368) -static void C_ccall f_13368(C_word c,C_word *av) C_noret; -C_noret_decl(f_13375) -static void C_ccall f_13375(C_word c,C_word *av) C_noret; -C_noret_decl(f_13383) -static void C_ccall f_13383(C_word c,C_word *av) C_noret; -C_noret_decl(f_13385) -static void C_ccall f_13385(C_word c,C_word *av) C_noret; -C_noret_decl(f_13410) -static void C_ccall f_13410(C_word c,C_word *av) C_noret; -C_noret_decl(f_13414) -static void f_13414(C_word t0,C_word t1) 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_13466) -static void C_ccall f_13466(C_word c,C_word *av) C_noret; -C_noret_decl(f_13470) -static void C_ccall f_13470(C_word c,C_word *av) C_noret; -C_noret_decl(f_13473) -static void C_ccall f_13473(C_word c,C_word *av) C_noret; -C_noret_decl(f_13476) -static void C_ccall f_13476(C_word c,C_word *av) C_noret; -C_noret_decl(f_13479) -static void C_ccall f_13479(C_word c,C_word *av) C_noret; -C_noret_decl(f_13482) -static void C_ccall f_13482(C_word c,C_word *av) C_noret; -C_noret_decl(f_13485) -static void C_ccall f_13485(C_word c,C_word *av) C_noret; -C_noret_decl(f_13487) -static void f_13487(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13497) -static void f_13497(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13522) -static C_word f_13522(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_13536) -static void C_ccall f_13536(C_word c,C_word *av) C_noret; -C_noret_decl(f_13538) -static void f_13538(C_word t0,C_word t1,C_word t2) 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_13642) -static void C_ccall f_13642(C_word c,C_word *av) 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_13653) -static void C_ccall f_13653(C_word c,C_word *av) C_noret; -C_noret_decl(f_13673) -static void f_13673(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13698) -static void C_ccall f_13698(C_word c,C_word *av) C_noret; -C_noret_decl(f_13737) -static void C_ccall f_13737(C_word c,C_word *av) C_noret; -C_noret_decl(f_13739) -static void C_ccall f_13739(C_word c,C_word *av) C_noret; -C_noret_decl(f_13743) -static void C_ccall f_13743(C_word c,C_word *av) C_noret; -C_noret_decl(f_13746) -static void C_ccall f_13746(C_word c,C_word *av) C_noret; -C_noret_decl(f_13749) -static void C_ccall f_13749(C_word c,C_word *av) C_noret; -C_noret_decl(f_13760) -static void C_ccall f_13760(C_word c,C_word *av) C_noret; -C_noret_decl(f_4398) -static void C_ccall f_4398(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_4514) -static void f_4514(C_word t0,C_word t1,C_word t2) 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_4572) -static void f_4572(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_5686) -static void C_ccall f_5686(C_word c,C_word *av) C_noret; -C_noret_decl(f_5689) -static void C_ccall f_5689(C_word c,C_word *av) C_noret; -C_noret_decl(f_5692) -static void C_ccall f_5692(C_word c,C_word *av) C_noret; -C_noret_decl(f_5695) -static void C_ccall f_5695(C_word c,C_word *av) C_noret; -C_noret_decl(f_5699) -static void C_ccall f_5699(C_word c,C_word *av) C_noret; -C_noret_decl(f_5702) -static void C_ccall f_5702(C_word c,C_word *av) C_noret; -C_noret_decl(f_5705) -static void C_ccall f_5705(C_word c,C_word *av) C_noret; -C_noret_decl(f_5708) -static void C_ccall f_5708(C_word c,C_word *av) C_noret; -C_noret_decl(f_5711) -static void C_ccall f_5711(C_word c,C_word *av) C_noret; -C_noret_decl(f_5714) -static void C_ccall f_5714(C_word c,C_word *av) C_noret; -C_noret_decl(f_5717) -static void C_ccall f_5717(C_word c,C_word *av) C_noret; -C_noret_decl(f_5720) -static void C_ccall f_5720(C_word c,C_word *av) C_noret; -C_noret_decl(f_5724) -static void C_ccall f_5724(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_5730) -static void C_ccall f_5730(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_5736) -static void C_ccall f_5736(C_word c,C_word *av) C_noret; -C_noret_decl(f_5739) -static void C_ccall f_5739(C_word c,C_word *av) C_noret; -C_noret_decl(f_5742) -static void C_ccall f_5742(C_word c,C_word *av) C_noret; -C_noret_decl(f_5746) -static void C_ccall f_5746(C_word c,C_word *av) C_noret; -C_noret_decl(f_5749) -static void C_ccall f_5749(C_word c,C_word *av) C_noret; -C_noret_decl(f_5752) -static void C_ccall f_5752(C_word c,C_word *av) C_noret; -C_noret_decl(f_5755) -static void C_ccall f_5755(C_word c,C_word *av) C_noret; -C_noret_decl(f_5758) -static void C_ccall f_5758(C_word c,C_word *av) C_noret; -C_noret_decl(f_5761) -static void C_ccall f_5761(C_word c,C_word *av) C_noret; -C_noret_decl(f_5764) -static void C_ccall f_5764(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_5770) -static void C_ccall f_5770(C_word c,C_word *av) C_noret; -C_noret_decl(f_5773) -static void C_ccall f_5773(C_word c,C_word *av) C_noret; -C_noret_decl(f_5776) -static void C_ccall f_5776(C_word c,C_word *av) C_noret; -C_noret_decl(f_5779) -static void C_ccall f_5779(C_word c,C_word *av) C_noret; -C_noret_decl(f_5782) -static void C_ccall f_5782(C_word c,C_word *av) C_noret; -C_noret_decl(f_5785) -static void C_ccall f_5785(C_word c,C_word *av) C_noret; -C_noret_decl(f_5788) -static void C_ccall f_5788(C_word c,C_word *av) C_noret; -C_noret_decl(f_5792) -static void C_ccall f_5792(C_word c,C_word *av) C_noret; -C_noret_decl(f_5795) -static void C_ccall f_5795(C_word c,C_word *av) C_noret; -C_noret_decl(f_5798) -static void C_ccall f_5798(C_word c,C_word *av) C_noret; -C_noret_decl(f_5801) -static void C_ccall f_5801(C_word c,C_word *av) C_noret; -C_noret_decl(f_5804) -static void C_ccall f_5804(C_word c,C_word *av) C_noret; -C_noret_decl(f_5807) -static void C_ccall f_5807(C_word c,C_word *av) C_noret; -C_noret_decl(f_5810) -static void C_ccall f_5810(C_word c,C_word *av) C_noret; -C_noret_decl(f_5813) -static void C_ccall f_5813(C_word c,C_word *av) C_noret; -C_noret_decl(f_5816) -static void C_ccall f_5816(C_word c,C_word *av) C_noret; -C_noret_decl(f_5819) -static void C_ccall f_5819(C_word c,C_word *av) C_noret; -C_noret_decl(f_5822) -static void C_ccall f_5822(C_word c,C_word *av) C_noret; -C_noret_decl(f_5825) -static void C_ccall f_5825(C_word c,C_word *av) C_noret; -C_noret_decl(f_5828) -static void C_ccall f_5828(C_word c,C_word *av) C_noret; -C_noret_decl(f_5831) -static void C_ccall f_5831(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_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_5846) -static void C_ccall f_5846(C_word c,C_word *av) C_noret; -C_noret_decl(f_5850) -static void C_ccall f_5850(C_word c,C_word *av) C_noret; -C_noret_decl(f_5853) -static void C_ccall f_5853(C_word c,C_word *av) C_noret; -C_noret_decl(f_5856) -static void C_ccall f_5856(C_word c,C_word *av) C_noret; -C_noret_decl(f_5860) -static void C_ccall f_5860(C_word c,C_word *av) C_noret; -C_noret_decl(f_5863) -static void C_ccall f_5863(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_5877) -static void C_ccall f_5877(C_word c,C_word *av) C_noret; -C_noret_decl(f_5879) -static void C_ccall f_5879(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_5885) -static void f_5885(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_5891) -static void f_5891(C_word t0,C_word t1,C_word t2) 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_5909) -static void C_ccall f_5909(C_word c,C_word *av) C_noret; -C_noret_decl(f_5917) -static void C_ccall f_5917(C_word c,C_word *av) C_noret; -C_noret_decl(f_5920) -static void C_ccall f_5920(C_word c,C_word *av) C_noret; -C_noret_decl(f_5923) -static void C_ccall f_5923(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_5929) -static void C_ccall f_5929(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_5935) -static void C_ccall f_5935(C_word c,C_word *av) C_noret; -C_noret_decl(f_5938) -static void C_ccall f_5938(C_word c,C_word *av) C_noret; -C_noret_decl(f_5941) -static void C_ccall f_5941(C_word c,C_word *av) 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_5951) -static void C_ccall f_5951(C_word c,C_word *av) C_noret; -C_noret_decl(f_5967) -static void C_ccall f_5967(C_word c,C_word *av) C_noret; -C_noret_decl(f_5969) -static void f_5969(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_5977) -static void f_5977(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5987) -static void C_ccall f_5987(C_word c,C_word *av) C_noret; -C_noret_decl(f_5991) -static void C_ccall f_5991(C_word c,C_word *av) C_noret; -C_noret_decl(f_6001) -static void f_6001(C_word t0,C_word t1) 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_6007) -static void C_ccall f_6007(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_6017) -static void C_ccall f_6017(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_6043) -static void C_ccall f_6043(C_word c,C_word *av) C_noret; -C_noret_decl(f_6045) -static void f_6045(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_6093) -static void f_6093(C_word t0,C_word t1,C_word t2,C_word t3) 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_6157) -static void C_ccall f_6157(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_6222) -static void C_ccall f_6222(C_word c,C_word *av) C_noret; -C_noret_decl(f_6249) -static void C_ccall f_6249(C_word c,C_word *av) C_noret; -C_noret_decl(f_6259) -static void C_ccall f_6259(C_word c,C_word *av) C_noret; -C_noret_decl(f_6261) -static void f_6261(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6286) -static void C_ccall f_6286(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_6319) -static void C_ccall f_6319(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_6366) -static void C_ccall f_6366(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_6372) -static void C_ccall f_6372(C_word c,C_word *av) C_noret; -C_noret_decl(f_6375) -static void C_ccall f_6375(C_word c,C_word *av) C_noret; -C_noret_decl(f_6378) -static void C_ccall f_6378(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_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_6390) -static void C_ccall f_6390(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_6396) -static void C_ccall f_6396(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_6402) -static void C_ccall f_6402(C_word c,C_word *av) C_noret; -C_noret_decl(f_6405) -static void C_ccall f_6405(C_word c,C_word *av) C_noret; -C_noret_decl(f_6408) -static void C_ccall f_6408(C_word c,C_word *av) C_noret; -C_noret_decl(f_6411) -static void C_ccall f_6411(C_word c,C_word *av) C_noret; -C_noret_decl(f_6414) -static void C_ccall f_6414(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_6424) -static void f_6424(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_6431) -static void f_6431(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6444) -static void C_ccall f_6444(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_6466) -static void C_ccall f_6466(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_6527) -static void C_ccall f_6527(C_word c,C_word *av) C_noret; -C_noret_decl(f_6562) -static void C_ccall f_6562(C_word c,C_word *av) C_noret; -C_noret_decl(f_6628) -static void C_ccall f_6628(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_6754) -static void C_ccall f_6754(C_word c,C_word *av) C_noret; -C_noret_decl(f_6756) -static void C_ccall f_6756(C_word c,C_word *av) C_noret; -C_noret_decl(f_6760) -static void C_ccall f_6760(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_6774) -static void f_6774(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6797) -static void f_6797(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6816) -static void C_ccall f_6816(C_word c,C_word *av) C_noret; -C_noret_decl(f_6826) -static void C_ccall f_6826(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_6843) -static void C_ccall f_6843(C_word c,C_word *av) C_noret; -C_noret_decl(f_6845) -static void C_ccall f_6845(C_word c,C_word *av) C_noret; -C_noret_decl(f_6853) -static void C_ccall f_6853(C_word c,C_word *av) C_noret; -C_noret_decl(f_6861) -static void C_ccall f_6861(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_6867) -static void C_ccall f_6867(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_6928) -static void C_ccall f_6928(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_6935) -static void C_ccall f_6935(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_6941) -static void C_ccall f_6941(C_word c,C_word *av) C_noret; -C_noret_decl(f_6948) -static void f_6948(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_6958) -static void C_ccall f_6958(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_6967) -static void C_ccall f_6967(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_6994) -static void C_ccall f_6994(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_7027) -static void C_ccall f_7027(C_word c,C_word *av) C_noret; -C_noret_decl(f_7030) -static void C_ccall f_7030(C_word c,C_word *av) C_noret; -C_noret_decl(f_7047) -static void C_ccall f_7047(C_word c,C_word *av) C_noret; -C_noret_decl(f_7053) -static void C_ccall f_7053(C_word c,C_word *av) C_noret; -C_noret_decl(f_7070) -static void C_ccall f_7070(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_7121) -static void C_ccall f_7121(C_word c,C_word *av) C_noret; -C_noret_decl(f_7123) -static void C_ccall f_7123(C_word c,C_word *av) C_noret; -C_noret_decl(f_7127) -static void C_ccall f_7127(C_word c,C_word *av) C_noret; -C_noret_decl(f_7130) -static void C_ccall f_7130(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_7136) -static void C_ccall f_7136(C_word c,C_word *av) C_noret; -C_noret_decl(f_7143) -static void f_7143(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_7156) -static void C_ccall f_7156(C_word c,C_word *av) C_noret; -C_noret_decl(f_7162) -static void C_ccall f_7162(C_word c,C_word *av) C_noret; -C_noret_decl(f_7169) -static void C_ccall f_7169(C_word c,C_word *av) C_noret; -C_noret_decl(f_7185) -static void C_ccall f_7185(C_word c,C_word *av) C_noret; -C_noret_decl(f_7195) -static void C_ccall f_7195(C_word c,C_word *av) C_noret; -C_noret_decl(f_7218) -static void C_ccall f_7218(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_7238) -static void C_ccall f_7238(C_word c,C_word *av) C_noret; -C_noret_decl(f_7244) -static void C_ccall f_7244(C_word c,C_word *av) C_noret; -C_noret_decl(f_7293) -static void C_ccall f_7293(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_7299) -static void C_ccall f_7299(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_7308) -static void C_ccall f_7308(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_7323) -static void C_ccall f_7323(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_7329) -static void C_ccall f_7329(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_7338) -static void C_ccall f_7338(C_word c,C_word *av) 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_7350) -static void C_ccall f_7350(C_word c,C_word *av) C_noret; -C_noret_decl(f_7351) -static void f_7351(C_word t0,C_word t1,C_word t2) 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_7398) -static void C_ccall f_7398(C_word c,C_word *av) C_noret; -C_noret_decl(f_7400) -static void f_7400(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_7419) -static void f_7419(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7425) -static void f_7425(C_word t0,C_word t1) 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_7440) -static void f_7440(C_word t0,C_word t1) 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_7484) -static void C_ccall f_7484(C_word c,C_word *av) C_noret; -C_noret_decl(f_7514) -static void f_7514(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7525) -static void C_ccall f_7525(C_word c,C_word *av) C_noret; -C_noret_decl(f_7600) -static void C_ccall f_7600(C_word c,C_word *av) C_noret; -C_noret_decl(f_7667) -static C_word f_7667(C_word t0,C_word t1); -C_noret_decl(f_7680) -static void C_ccall f_7680(C_word c,C_word *av) C_noret; -C_noret_decl(f_7682) -static void f_7682(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7728) -static void f_7728(C_word t0,C_word t1,C_word t2) 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_7751) -static void f_7751(C_word t0,C_word t1,C_word t2) 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_7793) -static void C_ccall f_7793(C_word c,C_word *av) C_noret; -C_noret_decl(f_7797) -static void C_ccall f_7797(C_word c,C_word *av) C_noret; -C_noret_decl(f_7805) -static void C_ccall f_7805(C_word c,C_word *av) C_noret; -C_noret_decl(f_7807) -static void C_ccall f_7807(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_7823) -static void C_ccall f_7823(C_word c,C_word *av) C_noret; -C_noret_decl(f_7826) -static void C_ccall f_7826(C_word c,C_word *av) C_noret; -C_noret_decl(f_7829) -static void C_ccall f_7829(C_word c,C_word *av) C_noret; -C_noret_decl(f_7832) -static void C_ccall f_7832(C_word c,C_word *av) C_noret; -C_noret_decl(f_7843) -static void C_ccall f_7843(C_word c,C_word *av) C_noret; -C_noret_decl(f_7845) -static void f_7845(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_7871) -static void C_ccall f_7871(C_word c,C_word *av) C_noret; -C_noret_decl(f_7882) -static void C_ccall f_7882(C_word c,C_word *av) C_noret; -C_noret_decl(f_7965) -static void C_ccall f_7965(C_word c,C_word *av) C_noret; -C_noret_decl(f_7967) -static void C_ccall f_7967(C_word c,C_word *av) C_noret; -C_noret_decl(f_7971) -static void C_ccall f_7971(C_word c,C_word *av) C_noret; -C_noret_decl(f_7974) -static void C_ccall f_7974(C_word c,C_word *av) C_noret; -C_noret_decl(f_8004) -static void C_ccall f_8004(C_word c,C_word *av) C_noret; -C_noret_decl(f_8014) -static void C_ccall f_8014(C_word c,C_word *av) C_noret; -C_noret_decl(f_8042) -static void C_ccall f_8042(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_8067) -static void C_ccall f_8067(C_word c,C_word *av) C_noret; -C_noret_decl(f_8071) -static void C_ccall f_8071(C_word c,C_word *av) C_noret; -C_noret_decl(f_8075) -static void C_ccall f_8075(C_word c,C_word *av) C_noret; -C_noret_decl(f_8077) -static void f_8077(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_8098) -static void C_ccall f_8098(C_word c,C_word *av) C_noret; -C_noret_decl(f_8116) -static void C_ccall f_8116(C_word c,C_word *av) C_noret; -C_noret_decl(f_8124) -static void C_ccall f_8124(C_word c,C_word *av) C_noret; -C_noret_decl(f_8128) -static void C_ccall f_8128(C_word c,C_word *av) C_noret; -C_noret_decl(f_8138) -static void f_8138(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_8144) -static void f_8144(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_8184) -static void C_ccall f_8184(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_8216) -static void C_ccall f_8216(C_word c,C_word *av) C_noret; -C_noret_decl(f_8224) -static void C_ccall f_8224(C_word c,C_word *av) C_noret; -C_noret_decl(f_8228) -static void C_ccall f_8228(C_word c,C_word *av) C_noret; -C_noret_decl(f_8231) -static void C_ccall f_8231(C_word c,C_word *av) C_noret; -C_noret_decl(f_8234) -static void C_ccall f_8234(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_8244) -static void f_8244(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8252) -static void C_ccall f_8252(C_word c,C_word *av) C_noret; -C_noret_decl(f_8256) -static void C_ccall f_8256(C_word c,C_word *av) C_noret; -C_noret_decl(f_8260) -static void f_8260(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_8274) -static void C_ccall f_8274(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_8283) -static void C_ccall f_8283(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_8290) -static void f_8290(C_word t0,C_word t1,C_word t2) 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_8301) -static void C_ccall f_8301(C_word c,C_word *av) C_noret; -C_noret_decl(f_8304) -static void C_ccall f_8304(C_word c,C_word *av) C_noret; -C_noret_decl(f_8307) -static void C_ccall f_8307(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_8340) -static void f_8340(C_word t0,C_word t1,C_word t2) 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_8374) -static void f_8374(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8408) -static void f_8408(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8433) -static void C_ccall f_8433(C_word c,C_word *av) C_noret; -C_noret_decl(f_8442) -static void f_8442(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_8492) -static void C_ccall f_8492(C_word c,C_word *av) C_noret; -C_noret_decl(f_8496) -static void C_ccall f_8496(C_word c,C_word *av) C_noret; -C_noret_decl(f_8506) -static void f_8506(C_word t0,C_word t1,C_word t2,C_word t3) 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_8536) -static void C_ccall f_8536(C_word c,C_word *av) C_noret; -C_noret_decl(f_8551) -static void C_ccall f_8551(C_word c,C_word *av) C_noret; -C_noret_decl(f_8559) -static void C_ccall f_8559(C_word c,C_word *av) C_noret; -C_noret_decl(f_8568) -static void C_ccall f_8568(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_8593) -static void C_ccall f_8593(C_word c,C_word *av) C_noret; -C_noret_decl(f_8596) -static void C_ccall f_8596(C_word c,C_word *av) C_noret; -C_noret_decl(f_8612) -static void C_ccall f_8612(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_8634) -static void C_ccall f_8634(C_word c,C_word *av) C_noret; -C_noret_decl(f_8636) -static void C_ccall f_8636(C_word c,C_word *av) C_noret; -C_noret_decl(f_8640) -static void C_ccall f_8640(C_word c,C_word *av) C_noret; -C_noret_decl(f_8649) -static void f_8649(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8652) -static void C_ccall f_8652(C_word c,C_word *av) C_noret; -C_noret_decl(f_8661) -static void f_8661(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8677) -static void C_ccall f_8677(C_word c,C_word *av) C_noret; -C_noret_decl(f_8681) -static void C_ccall f_8681(C_word c,C_word *av) C_noret; -C_noret_decl(f_8724) -static void C_ccall f_8724(C_word c,C_word *av) C_noret; -C_noret_decl(f_8736) -static void C_ccall f_8736(C_word c,C_word *av) C_noret; -C_noret_decl(f_8738) -static void C_ccall f_8738(C_word c,C_word *av) C_noret; -C_noret_decl(f_8742) -static void C_ccall f_8742(C_word c,C_word *av) C_noret; -C_noret_decl(f_8745) -static void C_ccall f_8745(C_word c,C_word *av) C_noret; -C_noret_decl(f_8764) -static void C_ccall f_8764(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_8782) -static void C_ccall f_8782(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_8789) -static void C_ccall f_8789(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_8804) -static void C_ccall f_8804(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_8822) -static void C_ccall f_8822(C_word c,C_word *av) 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_8853) -static void C_ccall f_8853(C_word c,C_word *av) C_noret; -C_noret_decl(f_8855) -static void C_ccall f_8855(C_word c,C_word *av) C_noret; -C_noret_decl(f_8862) -static void C_ccall f_8862(C_word c,C_word *av) C_noret; -C_noret_decl(f_8868) -static void C_ccall f_8868(C_word c,C_word *av) C_noret; -C_noret_decl(f_8872) -static void C_ccall f_8872(C_word c,C_word *av) C_noret; -C_noret_decl(f_8882) -static void C_ccall f_8882(C_word c,C_word *av) C_noret; -C_noret_decl(f_8884) -static void f_8884(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8913) -static void C_ccall f_8913(C_word c,C_word *av) C_noret; -C_noret_decl(f_8932) -static void f_8932(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8966) -static void f_8966(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8984) -static void C_ccall f_8984(C_word c,C_word *av) C_noret; -C_noret_decl(f_8990) -static void f_8990(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9024) -static void f_9024(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9060) -static void C_ccall f_9060(C_word c,C_word *av) C_noret; -C_noret_decl(f_9062) -static void C_ccall f_9062(C_word c,C_word *av) C_noret; -C_noret_decl(f_9066) -static void C_ccall f_9066(C_word c,C_word *av) C_noret; -C_noret_decl(f_9074) -static void C_ccall f_9074(C_word c,C_word *av) C_noret; -C_noret_decl(f_9079) -static void f_9079(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9104) -static void C_ccall f_9104(C_word c,C_word *av) C_noret; -C_noret_decl(f_9114) -static void C_ccall f_9114(C_word c,C_word *av) C_noret; -C_noret_decl(f_9116) -static void C_ccall f_9116(C_word c,C_word *av) C_noret; -C_noret_decl(f_9120) -static void C_ccall f_9120(C_word c,C_word *av) C_noret; -C_noret_decl(f_9126) -static void C_ccall f_9126(C_word c,C_word *av) C_noret; -C_noret_decl(f_9147) -static void C_ccall f_9147(C_word c,C_word *av) C_noret; -C_noret_decl(f_9154) -static void C_ccall f_9154(C_word c,C_word *av) C_noret; -C_noret_decl(f_9177) -static void C_ccall f_9177(C_word c,C_word *av) C_noret; -C_noret_decl(f_9181) -static void C_ccall f_9181(C_word c,C_word *av) C_noret; -C_noret_decl(f_9202) -static void C_ccall f_9202(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_9209) -static void f_9209(C_word t0,C_word t1,C_word t2) 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_9221) -static void C_ccall f_9221(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_9228) -static void C_ccall f_9228(C_word c,C_word *av) C_noret; -C_noret_decl(f_9239) -static void C_ccall f_9239(C_word c,C_word *av) C_noret; -C_noret_decl(f_9254) -static void C_ccall f_9254(C_word c,C_word *av) C_noret; -C_noret_decl(f_9256) -static void f_9256(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_9275) -static void f_9275(C_word t0,C_word t1,C_word t2) 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_9289) -static void C_ccall f_9289(C_word c,C_word *av) C_noret; -C_noret_decl(f_9291) -static void f_9291(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9316) -static void C_ccall f_9316(C_word c,C_word *av) C_noret; -C_noret_decl(f_9340) -static void C_ccall f_9340(C_word c,C_word *av) C_noret; -C_noret_decl(f_9377) -static void C_ccall f_9377(C_word c,C_word *av) C_noret; -C_noret_decl(f_9405) -static void f_9405(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9439) -static void f_9439(C_word t0,C_word t1,C_word t2,C_word t3) 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_9477) -static void C_ccall f_9477(C_word c,C_word *av) C_noret; -C_noret_decl(f_9483) -static void f_9483(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9508) -static void C_ccall f_9508(C_word c,C_word *av) C_noret; -C_noret_decl(f_9517) -static void f_9517(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9530) -static void C_ccall f_9530(C_word c,C_word *av) C_noret; -C_noret_decl(f_9555) -static void f_9555(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9591) -static void C_ccall f_9591(C_word c,C_word *av) C_noret; -C_noret_decl(f_9593) -static void C_ccall f_9593(C_word c,C_word *av) C_noret; -C_noret_decl(f_9597) -static void C_ccall f_9597(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_9608) -static void C_ccall f_9608(C_word c,C_word *av) C_noret; -C_noret_decl(f_9616) -static void C_ccall f_9616(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_9636) -static void C_ccall f_9636(C_word c,C_word *av) C_noret; -C_noret_decl(f_9643) -static void C_ccall f_9643(C_word c,C_word *av) C_noret; -C_noret_decl(f_9649) -static void C_ccall f_9649(C_word c,C_word *av) C_noret; -C_noret_decl(f_9662) -static void f_9662(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9696) -static void f_9696(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9706) -static void C_ccall f_9706(C_word c,C_word *av) C_noret; -C_noret_decl(f_9721) -static void C_ccall f_9721(C_word c,C_word *av) C_noret; -C_noret_decl(f_9723) -static void C_ccall f_9723(C_word c,C_word *av) C_noret; -C_noret_decl(f_9727) -static void C_ccall f_9727(C_word c,C_word *av) C_noret; -C_noret_decl(f_9742) -static void C_ccall f_9742(C_word c,C_word *av) C_noret; -C_noret_decl(f_9744) -static void C_ccall f_9744(C_word c,C_word *av) C_noret; -C_noret_decl(f_9748) -static void C_ccall f_9748(C_word c,C_word *av) C_noret; -C_noret_decl(f_9770) -static void C_ccall f_9770(C_word c,C_word *av) C_noret; -C_noret_decl(f_9772) -static void C_ccall f_9772(C_word c,C_word *av) C_noret; -C_noret_decl(f_9776) -static void C_ccall f_9776(C_word c,C_word *av) C_noret; -C_noret_decl(f_9794) -static void C_ccall f_9794(C_word c,C_word *av) C_noret; -C_noret_decl(f_9796) -static void C_ccall f_9796(C_word c,C_word *av) C_noret; -C_noret_decl(f_9805) -static void f_9805(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9811) -static void C_ccall f_9811(C_word c,C_word *av) C_noret; -C_noret_decl(f_9817) -static void C_ccall f_9817(C_word c,C_word *av) C_noret; -C_noret_decl(f_9836) -static void C_ccall f_9836(C_word c,C_word *av) C_noret; -C_noret_decl(f_9838) -static void f_9838(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9863) -static void C_ccall f_9863(C_word c,C_word *av) 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_9876) -static void C_ccall f_9876(C_word c,C_word *av) C_noret; -C_noret_decl(f_9895) -static void C_ccall f_9895(C_word c,C_word *av) C_noret; -C_noret_decl(f_9903) -static void C_ccall f_9903(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_9918) -static void C_ccall f_9918(C_word c,C_word *av) C_noret; -C_noret_decl(f_9922) -static void f_9922(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9930) -static void C_ccall f_9930(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_9940) -static void f_9940(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9948) -static void C_ccall f_9948(C_word c,C_word *av) C_noret; -C_noret_decl(f_9951) -static void C_ccall f_9951(C_word c,C_word *av) C_noret; -C_noret_decl(f_9955) -static void f_9955(C_word t0,C_word t1) 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_9966) -static void C_ccall f_9966(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_9996) -static void C_ccall f_9996(C_word c,C_word *av) C_noret; -C_noret_decl(C_chicken_2dsyntax_toplevel) -C_extern void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_10085) -static void C_ccall trf_10085(C_word c,C_word *av) C_noret; -static void C_ccall trf_10085(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10085(t0,t1,t2,t3);} - -C_noret_decl(trf_10133) -static void C_ccall trf_10133(C_word c,C_word *av) C_noret; -static void C_ccall trf_10133(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10133(t0,t1,t2,t3);} - -C_noret_decl(trf_10181) -static void C_ccall trf_10181(C_word c,C_word *av) C_noret; -static void C_ccall trf_10181(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_10181(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_10188) -static void C_ccall trf_10188(C_word c,C_word *av) C_noret; -static void C_ccall trf_10188(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10188(t0,t1);} - -C_noret_decl(trf_10322) -static void C_ccall trf_10322(C_word c,C_word *av) C_noret; -static void C_ccall trf_10322(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10322(t0,t1,t2,t3);} - -C_noret_decl(trf_10370) -static void C_ccall trf_10370(C_word c,C_word *av) C_noret; -static void C_ccall trf_10370(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10370(t0,t1,t2,t3);} - -C_noret_decl(trf_10418) -static void C_ccall trf_10418(C_word c,C_word *av) C_noret; -static void C_ccall trf_10418(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_10418(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_10425) -static void C_ccall trf_10425(C_word c,C_word *av) C_noret; -static void C_ccall trf_10425(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10425(t0,t1);} - -C_noret_decl(trf_10488) -static void C_ccall trf_10488(C_word c,C_word *av) C_noret; -static void C_ccall trf_10488(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10488(t0,t1,t2,t3);} - -C_noret_decl(trf_10536) -static void C_ccall trf_10536(C_word c,C_word *av) C_noret; -static void C_ccall trf_10536(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10536(t0,t1,t2,t3);} - -C_noret_decl(trf_10584) -static void C_ccall trf_10584(C_word c,C_word *av) C_noret; -static void C_ccall trf_10584(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10584(t0,t1,t2,t3);} - -C_noret_decl(trf_10632) -static void C_ccall trf_10632(C_word c,C_word *av) C_noret; -static void C_ccall trf_10632(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10632(t0,t1,t2);} - -C_noret_decl(trf_10666) -static void C_ccall trf_10666(C_word c,C_word *av) C_noret; -static void C_ccall trf_10666(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10666(t0,t1,t2);} - -C_noret_decl(trf_10700) -static void C_ccall trf_10700(C_word c,C_word *av) C_noret; -static void C_ccall trf_10700(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10700(t0,t1,t2);} - -C_noret_decl(trf_10734) -static void C_ccall trf_10734(C_word c,C_word *av) C_noret; -static void C_ccall trf_10734(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10734(t0,t1,t2);} - -C_noret_decl(trf_10768) -static void C_ccall trf_10768(C_word c,C_word *av) C_noret; -static void C_ccall trf_10768(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10768(t0,t1,t2);} - -C_noret_decl(trf_10828) -static void C_ccall trf_10828(C_word c,C_word *av) C_noret; -static void C_ccall trf_10828(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10828(t0,t1);} - -C_noret_decl(trf_10843) -static void C_ccall trf_10843(C_word c,C_word *av) C_noret; -static void C_ccall trf_10843(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10843(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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10923(t0,t1,t2,t3);} - -C_noret_decl(trf_10971) -static void C_ccall trf_10971(C_word c,C_word *av) C_noret; -static void C_ccall trf_10971(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10971(t0,t1,t2,t3);} - -C_noret_decl(trf_11070) -static void C_ccall trf_11070(C_word c,C_word *av) C_noret; -static void C_ccall trf_11070(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11070(t0,t1,t2,t3);} - -C_noret_decl(trf_11118) -static void C_ccall trf_11118(C_word c,C_word *av) C_noret; -static void C_ccall trf_11118(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11118(t0,t1,t2,t3);} - -C_noret_decl(trf_11201) -static void C_ccall trf_11201(C_word c,C_word *av) C_noret; -static void C_ccall trf_11201(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11201(t0,t1,t2,t3);} - -C_noret_decl(trf_11251) -static void C_ccall trf_11251(C_word c,C_word *av) C_noret; -static void C_ccall trf_11251(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11251(t0,t1,t2);} - -C_noret_decl(trf_11271) -static void C_ccall trf_11271(C_word c,C_word *av) C_noret; -static void C_ccall trf_11271(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11271(t0,t1,t2,t3);} - -C_noret_decl(trf_11319) -static void C_ccall trf_11319(C_word c,C_word *av) C_noret; -static void C_ccall trf_11319(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11319(t0,t1,t2);} - -C_noret_decl(trf_11353) -static void C_ccall trf_11353(C_word c,C_word *av) C_noret; -static void C_ccall trf_11353(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11353(t0,t1,t2);} - -C_noret_decl(trf_11387) -static void C_ccall trf_11387(C_word c,C_word *av) C_noret; -static void C_ccall trf_11387(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11387(t0,t1,t2);} - -C_noret_decl(trf_11421) -static void C_ccall trf_11421(C_word c,C_word *av) C_noret; -static void C_ccall trf_11421(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11421(t0,t1,t2);} - -C_noret_decl(trf_11486) -static void C_ccall trf_11486(C_word c,C_word *av) C_noret; -static void C_ccall trf_11486(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11486(t0,t1,t2);} - -C_noret_decl(trf_11551) -static void C_ccall trf_11551(C_word c,C_word *av) C_noret; -static void C_ccall trf_11551(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11551(t0,t1,t2);} - -C_noret_decl(trf_11616) -static void C_ccall trf_11616(C_word c,C_word *av) C_noret; -static void C_ccall trf_11616(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11616(t0,t1,t2);} - -C_noret_decl(trf_11814) -static void C_ccall trf_11814(C_word c,C_word *av) C_noret; -static void C_ccall trf_11814(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11814(t0,t1,t2);} - -C_noret_decl(trf_11827) -static void C_ccall trf_11827(C_word c,C_word *av) C_noret; -static void C_ccall trf_11827(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11827(t0,t1);} - -C_noret_decl(trf_11907) -static void C_ccall trf_11907(C_word c,C_word *av) C_noret; -static void C_ccall trf_11907(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11907(t0,t1,t2,t3);} - -C_noret_decl(trf_11959) -static void C_ccall trf_11959(C_word c,C_word *av) C_noret; -static void C_ccall trf_11959(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11959(t0,t1);} - -C_noret_decl(trf_12125) -static void C_ccall trf_12125(C_word c,C_word *av) C_noret; -static void C_ccall trf_12125(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12125(t0,t1,t2);} - -C_noret_decl(trf_12254) -static void C_ccall trf_12254(C_word c,C_word *av) C_noret; -static void C_ccall trf_12254(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12254(t0,t1,t2,t3);} - -C_noret_decl(trf_12291) -static void C_ccall trf_12291(C_word c,C_word *av) C_noret; -static void C_ccall trf_12291(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12291(t0,t1,t2,t3);} - -C_noret_decl(trf_12356) -static void C_ccall trf_12356(C_word c,C_word *av) C_noret; -static void C_ccall trf_12356(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12356(t0,t1);} - -C_noret_decl(trf_12592) -static void C_ccall trf_12592(C_word c,C_word *av) C_noret; -static void C_ccall trf_12592(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12592(t0,t1,t2);} - -C_noret_decl(trf_12632) -static void C_ccall trf_12632(C_word c,C_word *av) C_noret; -static void C_ccall trf_12632(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12632(t0,t1,t2);} - -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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_12712(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_12769) -static void C_ccall trf_12769(C_word c,C_word *av) C_noret; -static void C_ccall trf_12769(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12769(t0,t1,t2,t3);} - -C_noret_decl(trf_12831) -static void C_ccall trf_12831(C_word c,C_word *av) C_noret; -static void C_ccall trf_12831(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12831(t0,t1);} - -C_noret_decl(trf_12854) -static void C_ccall trf_12854(C_word c,C_word *av) C_noret; -static void C_ccall trf_12854(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12854(t0,t1,t2);} - -C_noret_decl(trf_12898) -static void C_ccall trf_12898(C_word c,C_word *av) C_noret; -static void C_ccall trf_12898(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12898(t0,t1,t2,t3);} - -C_noret_decl(trf_12952) -static void C_ccall trf_12952(C_word c,C_word *av) C_noret; -static void C_ccall trf_12952(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12952(t0,t1);} - -C_noret_decl(trf_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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13122(t0,t1,t2);} - -C_noret_decl(trf_13156) -static void C_ccall trf_13156(C_word c,C_word *av) C_noret; -static void C_ccall trf_13156(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13156(t0,t1,t2);} - -C_noret_decl(trf_13221) -static void C_ccall trf_13221(C_word c,C_word *av) C_noret; -static void C_ccall trf_13221(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_13221(t0,t1,t2,t3);} - -C_noret_decl(trf_13258) -static void C_ccall trf_13258(C_word c,C_word *av) C_noret; -static void C_ccall trf_13258(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_13258(t0,t1,t2,t3);} - -C_noret_decl(trf_13277) -static void C_ccall trf_13277(C_word c,C_word *av) C_noret; -static void C_ccall trf_13277(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13277(t0,t1);} - -C_noret_decl(trf_13414) -static void C_ccall trf_13414(C_word c,C_word *av) C_noret; -static void C_ccall trf_13414(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13414(t0,t1);} - -C_noret_decl(trf_13487) -static void C_ccall trf_13487(C_word c,C_word *av) C_noret; -static void C_ccall trf_13487(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13487(t0,t1,t2);} - -C_noret_decl(trf_13497) -static void C_ccall trf_13497(C_word c,C_word *av) C_noret; -static void C_ccall trf_13497(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13497(t0,t1);} - -C_noret_decl(trf_13538) -static void C_ccall trf_13538(C_word c,C_word *av) C_noret; -static void C_ccall trf_13538(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13538(t0,t1,t2);} - -C_noret_decl(trf_13673) -static void C_ccall trf_13673(C_word c,C_word *av) C_noret; -static void C_ccall trf_13673(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13673(t0,t1,t2);} - -C_noret_decl(trf_4514) -static void C_ccall trf_4514(C_word c,C_word *av) C_noret; -static void C_ccall trf_4514(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_4514(t0,t1,t2);} - -C_noret_decl(trf_4572) -static void C_ccall trf_4572(C_word c,C_word *av) C_noret; -static void C_ccall trf_4572(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_4572(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_5885) -static void C_ccall trf_5885(C_word c,C_word *av) C_noret; -static void C_ccall trf_5885(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5885(t0,t1,t2);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5891(t0,t1,t2);} - -C_noret_decl(trf_5969) -static void C_ccall trf_5969(C_word c,C_word *av) C_noret; -static void C_ccall trf_5969(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5969(t0,t1,t2);} - -C_noret_decl(trf_5977) -static void C_ccall trf_5977(C_word c,C_word *av) C_noret; -static void C_ccall trf_5977(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5977(t0,t1,t2,t3);} - -C_noret_decl(trf_6001) -static void C_ccall trf_6001(C_word c,C_word *av) C_noret; -static void C_ccall trf_6001(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6001(t0,t1);} - -C_noret_decl(trf_6045) -static void C_ccall trf_6045(C_word c,C_word *av) C_noret; -static void C_ccall trf_6045(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6045(t0,t1,t2,t3);} - -C_noret_decl(trf_6093) -static void C_ccall trf_6093(C_word c,C_word *av) C_noret; -static void C_ccall trf_6093(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6093(t0,t1,t2,t3);} - -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_6424) -static void C_ccall trf_6424(C_word c,C_word *av) C_noret; -static void C_ccall trf_6424(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_6424(t0,t1,t2,t3,t4);} - -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[1]; -C_word t1=av[0]; -f_6431(t0,t1);} - -C_noret_decl(trf_6774) -static void C_ccall trf_6774(C_word c,C_word *av) C_noret; -static void C_ccall trf_6774(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6774(t0,t1);} - -C_noret_decl(trf_6797) -static void C_ccall trf_6797(C_word c,C_word *av) C_noret; -static void C_ccall trf_6797(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6797(t0,t1);} - -C_noret_decl(trf_6948) -static void C_ccall trf_6948(C_word c,C_word *av) C_noret; -static void C_ccall trf_6948(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_6948(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_7143) -static void C_ccall trf_7143(C_word c,C_word *av) C_noret; -static void C_ccall trf_7143(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_7143(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_7351) -static void C_ccall trf_7351(C_word c,C_word *av) C_noret; -static void C_ccall trf_7351(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7351(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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_7400(t0,t1,t2,t3);} - -C_noret_decl(trf_7419) -static void C_ccall trf_7419(C_word c,C_word *av) C_noret; -static void C_ccall trf_7419(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7419(t0,t1);} - -C_noret_decl(trf_7425) -static void C_ccall trf_7425(C_word c,C_word *av) C_noret; -static void C_ccall trf_7425(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7425(t0,t1);} - -C_noret_decl(trf_7440) -static void C_ccall trf_7440(C_word c,C_word *av) C_noret; -static void C_ccall trf_7440(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7440(t0,t1);} - -C_noret_decl(trf_7514) -static void C_ccall trf_7514(C_word c,C_word *av) C_noret; -static void C_ccall trf_7514(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7514(t0,t1);} - -C_noret_decl(trf_7682) -static void C_ccall trf_7682(C_word c,C_word *av) C_noret; -static void C_ccall trf_7682(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7682(t0,t1,t2);} - -C_noret_decl(trf_7728) -static void C_ccall trf_7728(C_word c,C_word *av) C_noret; -static void C_ccall trf_7728(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7728(t0,t1,t2);} - -C_noret_decl(trf_7751) -static void C_ccall trf_7751(C_word c,C_word *av) C_noret; -static void C_ccall trf_7751(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7751(t0,t1,t2);} - -C_noret_decl(trf_7845) -static void C_ccall trf_7845(C_word c,C_word *av) C_noret; -static void C_ccall trf_7845(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_7845(t0,t1,t2,t3);} - -C_noret_decl(trf_8077) -static void C_ccall trf_8077(C_word c,C_word *av) C_noret; -static void C_ccall trf_8077(C_word c,C_word *av){ -C_word t0=av[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_8077(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_8138) -static void C_ccall trf_8138(C_word c,C_word *av) C_noret; -static void C_ccall trf_8138(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_8138(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_8144) -static void C_ccall trf_8144(C_word c,C_word *av) C_noret; -static void C_ccall trf_8144(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_8144(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_8244) -static void C_ccall trf_8244(C_word c,C_word *av) C_noret; -static void C_ccall trf_8244(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8244(t0,t1,t2);} - -C_noret_decl(trf_8260) -static void C_ccall trf_8260(C_word c,C_word *av) C_noret; -static void C_ccall trf_8260(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8260(t0,t1,t2);} - -C_noret_decl(trf_8290) -static void C_ccall trf_8290(C_word c,C_word *av) C_noret; -static void C_ccall trf_8290(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8290(t0,t1,t2);} - -C_noret_decl(trf_8340) -static void C_ccall trf_8340(C_word c,C_word *av) C_noret; -static void C_ccall trf_8340(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8340(t0,t1,t2);} - -C_noret_decl(trf_8374) -static void C_ccall trf_8374(C_word c,C_word *av) C_noret; -static void C_ccall trf_8374(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8374(t0,t1,t2);} - -C_noret_decl(trf_8408) -static void C_ccall trf_8408(C_word c,C_word *av) C_noret; -static void C_ccall trf_8408(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8408(t0,t1,t2);} - -C_noret_decl(trf_8442) -static void C_ccall trf_8442(C_word c,C_word *av) C_noret; -static void C_ccall trf_8442(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8442(t0,t1,t2);} - -C_noret_decl(trf_8506) -static void C_ccall trf_8506(C_word c,C_word *av) C_noret; -static void C_ccall trf_8506(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8506(t0,t1,t2,t3);} - -C_noret_decl(trf_8649) -static void C_ccall trf_8649(C_word c,C_word *av) C_noret; -static void C_ccall trf_8649(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8649(t0,t1);} - -C_noret_decl(trf_8661) -static void C_ccall trf_8661(C_word c,C_word *av) C_noret; -static void C_ccall trf_8661(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8661(t0,t1);} - -C_noret_decl(trf_8884) -static void C_ccall trf_8884(C_word c,C_word *av) C_noret; -static void C_ccall trf_8884(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8884(t0,t1,t2,t3);} - -C_noret_decl(trf_8932) -static void C_ccall trf_8932(C_word c,C_word *av) C_noret; -static void C_ccall trf_8932(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8932(t0,t1,t2);} - -C_noret_decl(trf_8966) -static void C_ccall trf_8966(C_word c,C_word *av) C_noret; -static void C_ccall trf_8966(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8966(t0,t1,t2,t3);} - -C_noret_decl(trf_8990) -static void C_ccall trf_8990(C_word c,C_word *av) C_noret; -static void C_ccall trf_8990(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8990(t0,t1,t2);} - -C_noret_decl(trf_9024) -static void C_ccall trf_9024(C_word c,C_word *av) C_noret; -static void C_ccall trf_9024(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9024(t0,t1,t2);} - -C_noret_decl(trf_9079) -static void C_ccall trf_9079(C_word c,C_word *av) C_noret; -static void C_ccall trf_9079(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9079(t0,t1,t2);} - -C_noret_decl(trf_9209) -static void C_ccall trf_9209(C_word c,C_word *av) C_noret; -static void C_ccall trf_9209(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9209(t0,t1,t2);} - -C_noret_decl(trf_9256) -static void C_ccall trf_9256(C_word c,C_word *av) C_noret; -static void C_ccall trf_9256(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_9256(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_9275) -static void C_ccall trf_9275(C_word c,C_word *av) C_noret; -static void C_ccall trf_9275(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9275(t0,t1,t2);} - -C_noret_decl(trf_9291) -static void C_ccall trf_9291(C_word c,C_word *av) C_noret; -static void C_ccall trf_9291(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9291(t0,t1,t2);} - -C_noret_decl(trf_9405) -static void C_ccall trf_9405(C_word c,C_word *av) C_noret; -static void C_ccall trf_9405(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9405(t0,t1,t2);} - -C_noret_decl(trf_9439) -static void C_ccall trf_9439(C_word c,C_word *av) C_noret; -static void C_ccall trf_9439(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9439(t0,t1,t2,t3);} - -C_noret_decl(trf_9483) -static void C_ccall trf_9483(C_word c,C_word *av) C_noret; -static void C_ccall trf_9483(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9483(t0,t1,t2);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9517(t0,t1,t2,t3);} - -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_9662) -static void C_ccall trf_9662(C_word c,C_word *av) C_noret; -static void C_ccall trf_9662(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9662(t0,t1,t2);} - -C_noret_decl(trf_9696) -static void C_ccall trf_9696(C_word c,C_word *av) C_noret; -static void C_ccall trf_9696(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9696(t0,t1,t2);} - -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_9838) -static void C_ccall trf_9838(C_word c,C_word *av) C_noret; -static void C_ccall trf_9838(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9838(t0,t1,t2);} - -C_noret_decl(trf_9922) -static void C_ccall trf_9922(C_word c,C_word *av) C_noret; -static void C_ccall trf_9922(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9922(t0,t1,t2);} - -C_noret_decl(trf_9940) -static void C_ccall trf_9940(C_word c,C_word *av) C_noret; -static void C_ccall trf_9940(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9940(t0,t1);} - -C_noret_decl(trf_9955) -static void C_ccall trf_9955(C_word c,C_word *av) C_noret; -static void C_ccall trf_9955(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9955(t0,t1);} - -/* k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void C_ccall f_10007(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(51,c,5)))){ -C_save_and_reclaim((void *)f_10007,c,av);} -a=C_alloc(51); -t2=C_a_i_list(&a,4,lf[196],lf[197],C_SCHEME_TRUE,C_SCHEME_TRUE); -t3=C_a_i_list(&a,2,((C_word*)t0)[2],t2); -t4=C_a_i_list(&a,1,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_10258,a[2]=((C_word*)t0)[2],a[3]=((C_word)li88),tmp=(C_word)a,a+=4,tmp); -t10=C_i_check_list_2(((C_word*)t0)[3],lf[39]); -t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10276,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp); -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_10418,a[2]=t9,a[3]=t7,a[4]=t13,a[5]=t8,a[6]=((C_word)li94),tmp=(C_word)a,a+=7,tmp)); -t15=((C_word*)t13)[1]; -f_10418(t15,t11,((C_word*)t0)[9],((C_word*)t0)[8],((C_word*)t0)[3]);} - -/* k10053 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(28,c,4)))){ -C_save_and_reclaim((void *)f_10055,c,av);} -a=C_alloc(28); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10059,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],tmp=(C_word)a,a+=10,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|4,a[1]=(C_word)f_10071,a[2]=t2,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],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_10133,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li90),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_10133(t11,t7,((C_word*)t0)[11],((C_word*)t0)[9]);} - -/* k10057 in k10053 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_10059(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_10059,c,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[35],t2); -t4=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t3); -t5=C_a_i_list(&a,4,lf[198],((C_word*)t0)[3],((C_word*)t0)[4],t4); -t6=C_a_i_list(&a,3,lf[35],((C_word*)t0)[5],t5); -t7=C_a_i_list(&a,3,lf[35],((C_word*)t0)[6],t6); -t8=C_a_i_list(&a,3,lf[35],((C_word*)t0)[7],t7); -t9=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[9],t8); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* k10069 in k10053 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_10071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_10071,c,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_10083,a[2]=((C_word*)t0)[2],a[3]=t1,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_10085,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_10085(t10,t6,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k10081 in k10069 in k10053 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_10083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10083,c,av);} -/* chicken-syntax.scm:505: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop2139 in k10069 in k10053 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void f_10085(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_10085,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[199],t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop2103 in k10053 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void f_10133(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(15,0,3)))){ -C_save_and_reclaim_args((void *)trf_10133,4,t0,t1,t2,t3);} -a=C_alloc(15); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list(&a,4,t6,t7,C_SCHEME_FALSE,C_SCHEME_TRUE); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop2061 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void f_10181(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_10181,5,t0,t1,t2,t3,t4);} -a=C_alloc(9); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10188,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=t1,a[7]=t3,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_10188(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} -else{ -t6=t5; -f_10188(t6,C_SCHEME_FALSE);}} - -/* k10186 in map-loop2061 in k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void f_10188(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word 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_10188,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(0)); -t3=C_slot(((C_word*)t0)[3],C_fix(0)); -t4=C_a_i_list(&a,1,t2); -t5=C_a_i_list(&a,2,t3,t4); -t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); -t7=C_i_setslot(((C_word*)((C_word*)t0)[4])[1],C_fix(1),t6); -t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); -t9=((C_word*)((C_word*)t0)[5])[1]; -f_10181(t9,((C_word*)t0)[6],C_slot(((C_word*)t0)[2],C_fix(1)),C_slot(((C_word*)t0)[7],C_fix(1)),C_slot(((C_word*)t0)[3],C_fix(1)));} -else{ -t2=((C_word*)t0)[6];{ -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);}}} - -/* g1953 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static C_word f_10258(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[37],((C_word*)t0)[2],t4,t2); -return(C_a_i_list(&a,2,t3,t5));} - -/* k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_10276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_10276,c,av);} -a=C_alloc(31); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10280,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); -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_10296,a[2]=t2,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); -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_10370,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li93),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_10370(t11,t7,((C_word*)t0)[10],((C_word*)t0)[8]);} - -/* k10278 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void C_ccall f_10280(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(46,c,5)))){ -C_save_and_reclaim((void *)f_10280,c,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[35],t2); -t4=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t3); -t5=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[3]); -t6=C_a_i_cons(&a,2,lf[36],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|11,a[1]=(C_word)f_10055,a[2]=t4,a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); -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_10181,a[2]=t9,a[3]=t13,a[4]=t10,a[5]=((C_word)li91),tmp=(C_word)a,a+=6,tmp)); -t15=((C_word*)t13)[1]; -f_10181(t15,t11,((C_word*)t0)[11],((C_word*)t0)[9],((C_word*)t0)[10]);} - -/* k10294 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void C_ccall f_10296(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_10296,c,av);} -a=C_alloc(21); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10300,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10312,a[2]=((C_word*)t0)[3],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_10322,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_10322(t11,t7,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k10298 in k10294 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_10300(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10300,c,av);} -/* chicken-syntax.scm:505: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k10310 in k10294 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_10312(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_10312,c,av);} -a=C_alloc(12); -t2=C_a_i_list(&a,3,lf[199],((C_word*)t0)[2],C_SCHEME_FALSE); -t3=C_a_i_list(&a,1,t2); -/* chicken-syntax.scm:505: ##sys#append */ -t4=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* map-loop2025 in k10294 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void f_10322(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(15,0,3)))){ -C_save_and_reclaim_args((void *)trf_10322,4,t0,t1,t2,t3);} -a=C_alloc(15); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list(&a,4,t6,t7,C_SCHEME_FALSE,C_SCHEME_TRUE); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1989 in k10274 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void f_10370(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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(15,0,3)))){ -C_save_and_reclaim_args((void *)trf_10370,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[199],t7,t8); -t10=C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST); -t11=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t10); -t12=C_mutate(((C_word *)((C_word*)t0)[2])+1,t10); -t14=t1; -t15=C_slot(t2,C_fix(1)); -t16=C_slot(t3,C_fix(1)); -t1=t14; -t2=t15; -t3=t16; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1947 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void f_10418(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_10418,5,t0,t1,t2,t3,t4);} -a=C_alloc(10); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10425,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,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_10425(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} -else{ -t6=t5; -f_10425(t6,C_SCHEME_FALSE);}} - -/* k10423 in map-loop1947 in k10005 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void f_10425(C_word 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(33,0,4)))){ -C_save_and_reclaim_args((void *)trf_10425,2,t0,t1);} -a=C_alloc(33); -if(C_truep(t1)){ -t2=( -/* chicken-syntax.scm:520: g1953 */ - f_10258(C_a_i(&a,30),((C_word*)t0)[2],C_slot(((C_word*)t0)[3],C_fix(0)),C_slot(((C_word*)t0)[4],C_fix(0)),C_slot(((C_word*)t0)[5],C_fix(0))) -); -t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST); -t4=C_i_setslot(((C_word*)((C_word*)t0)[6])[1],C_fix(1),t3); -t5=C_mutate(((C_word *)((C_word*)t0)[6])+1,t3); -t6=((C_word*)((C_word*)t0)[7])[1]; -f_10418(t6,((C_word*)t0)[8],C_slot(((C_word*)t0)[3],C_fix(1)),C_slot(((C_word*)t0)[4],C_fix(1)),C_slot(((C_word*)t0)[5],C_fix(1)));} -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-loop1916 in k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void f_10488(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_10488,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1885 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void f_10536(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_10536,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1854 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void f_10584(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_10584,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1824 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void f_10632(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_10632,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10657,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); -/* chicken-syntax.scm:504: g1830 */ -t4=((C_word*)t0)[4]; -f_9955(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);}}} - -/* k10655 in map-loop1824 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10657,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_10632(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop1796 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void f_10666(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_10666,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10691,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); -/* chicken-syntax.scm:503: g1802 */ -t4=((C_word*)t0)[4]; -f_9940(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);}}} - -/* k10689 in map-loop1796 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_10691(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_10691,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_10666(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop1768 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void f_10700(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_10700,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10725,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); -/* chicken-syntax.scm:502: g1774 */ -t4=((C_word*)t0)[4]; -f_9922(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k10723 in map-loop1768 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_10725(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10725,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_10700(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop1741 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void f_10734(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_10734,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cadr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* map-loop1714 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void f_10768(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_10768,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k10802 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in ... */ -static void C_ccall f_10804(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10804,c,av);} -/* chicken-syntax.scm:456: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[202]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in ... */ -static void C_ccall f_10806(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_10806,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10810,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:460: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[202]; -av2[3]=t2; -av2[4]=lf[203]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -static void C_ccall f_10810(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_10810,c,av);} -a=C_alloc(19); -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_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(t2,lf[39]); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10824,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t2,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_11421,a[2]=t7,a[3]=t12,a[4]=t8,a[5]=((C_word)li116),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_11421(t14,t10,t2);} - -/* k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 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 t4; -C_word t5; -C_word t6; -C_word 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_10824,c,av);} -a=C_alloc(25); -t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=((C_word*)t4)[1]; -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10828,a[2]=((C_word*)t0)[2],a[3]=((C_word)li104),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10839,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],tmp=(C_word)a,a+=7,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11387,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,a[6]=((C_word)li115),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_11387(t11,t7,((C_word*)t0)[5]);} - -/* g1417 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void f_10828(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_10828,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10836,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:464: chicken.base#gensym */ -t3=*((C_word*)lf[33]+1);{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k10834 in g1417 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_10836(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10836,c,av);} -/* chicken-syntax.scm:464: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_10839(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_10839,c,av);} -a=C_alloc(25); -t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=((C_word*)t4)[1]; -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10843,a[2]=((C_word*)t0)[2],a[3]=((C_word)li105),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10854,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11353,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,a[6]=((C_word)li114),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_11353(t11,t7,((C_word*)t0)[6]);} - -/* g1445 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void f_10843(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_10843,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10851,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:465: chicken.base#gensym */ -t3=*((C_word*)lf[33]+1);{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k10849 in g1445 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_10851(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10851,c,av);} -/* chicken-syntax.scm:465: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_10854(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_10854,c,av);} -a=C_alloc(33); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10861,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],tmp=(C_word)a,a+=7,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_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t8=t7; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=((C_word*)t9)[1]; -t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11174,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[6],a[6]=t5,a[7]=t6,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_11319,a[2]=t9,a[3]=t13,a[4]=t10,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp)); -t15=((C_word*)t13)[1]; -f_11319(t15,t11,((C_word*)t0)[6]);} - -/* k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_10861(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_10861,c,av);} -a=C_alloc(26); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11029,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); -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)[4],lf[39]); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11044,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],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_11118,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_11118(t12,t8,((C_word*)t0)[5],((C_word*)t0)[4]);} - -/* k10883 in k11027 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_10885(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(27,c,1)))){ -C_save_and_reclaim((void *)f_10885,c,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[36],t2); -t4=C_a_i_list(&a,4,lf[198],((C_word*)t0)[2],((C_word*)t0)[3],t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[5],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k10895 in k11027 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_10897(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ -C_save_and_reclaim((void *)f_10897,c,av);} -a=C_alloc(20); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10901,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10913,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|5,a[1]=(C_word)f_10923,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_10923(t11,t7,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k10899 in k10895 in k11027 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -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,3)))){ -C_save_and_reclaim((void *)f_10901,c,av);} -/* chicken-syntax.scm:466: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k10911 in k10895 in k11027 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_10913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_10913,c,av);} -a=C_alloc(6); -t2=C_a_i_list(&a,1,lf[185]); -t3=C_a_i_list(&a,1,t2); -/* chicken-syntax.scm:466: ##sys#append */ -t4=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* map-loop1668 in k10895 in k11027 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void f_10923(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_10923,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[199],t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1632 in k11027 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void f_10971(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_10971,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[199],t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -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);}}} - -/* k11027 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void C_ccall f_11029(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(36,c,4)))){ -C_save_and_reclaim((void *)f_11029,c,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[36],t2); -t4=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); -t5=C_a_i_cons(&a,2,lf[36],t4); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10885,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -t7=C_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_10897,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],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_10971,a[2]=t9,a[3]=t13,a[4]=t10,a[5]=((C_word)li107),tmp=(C_word)a,a+=6,tmp)); -t15=((C_word*)t13)[1]; -f_10971(t15,t11,((C_word*)t0)[7],((C_word*)t0)[5]);} - -/* k11042 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void C_ccall f_11044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ -C_save_and_reclaim((void *)f_11044,c,av);} -a=C_alloc(20); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11048,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11060,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|5,a[1]=(C_word)f_11070,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li108),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_11070(t11,t7,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k11046 in k11042 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_11048(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11048,c,av);} -/* chicken-syntax.scm:466: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k11058 in k11042 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_11060(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_11060,c,av);} -a=C_alloc(6); -t2=C_a_i_list(&a,1,lf[185]); -t3=C_a_i_list(&a,1,t2); -/* chicken-syntax.scm:466: ##sys#append */ -t4=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* map-loop1596 in k11042 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void f_11070(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_11070,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[199],t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1560 in k10859 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void f_11118(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_11118,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[199],t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -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);}}} - -/* k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 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 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_11174,c,av);} -a=C_alloc(13); -t2=C_i_check_list_2(((C_word*)t0)[2],lf[39]); -t3=C_i_check_list_2(t1,lf[39]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11183,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_11271,a[2]=((C_word*)t0)[6],a[3]=t6,a[4]=((C_word*)t0)[7],a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_11271(t8,t4,((C_word*)t0)[2],t1);} - -/* k11181 in k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ -C_save_and_reclaim((void *)f_11183,c,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|6,a[1]=(C_word)f_11190,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -t7=C_u_i_length(((C_word*)t0)[4]); -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_11251,a[2]=t9,a[3]=((C_word)li111),tmp=(C_word)a,a+=4,tmp)); -t11=((C_word*)t9)[1]; -f_11251(t11,t6,t7);} - -/* k11188 in k11181 in k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_11190(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_11190,c,av);} -a=C_alloc(12); -t2=C_i_check_list_2(((C_word*)t0)[2],lf[39]); -t3=C_i_check_list_2(t1,lf[39]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11199,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_11201,a[2]=((C_word*)t0)[5],a[3]=t6,a[4]=((C_word*)t0)[6],a[5]=((C_word)li110),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_11201(t8,t4,((C_word*)t0)[2],t1);} - -/* k11197 in k11188 in k11181 in k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_11199(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11199,c,av);} -/* chicken-syntax.scm:466: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop1526 in k11188 in k11181 in k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void f_11201(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_11201,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -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 k11181 in k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void f_11251(C_word t0,C_word 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(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_11251,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_11265,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:472: loop */ -t6=t4; -t7=C_fixnum_difference(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* k11263 in loop in k11181 in k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 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; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11265,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,C_SCHEME_FALSE,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop1469 in k11172 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void f_11271(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_11271,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1490 in k10852 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void f_11319(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_11319,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cadr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* map-loop1439 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void f_11353(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_11353,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11378,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); -/* chicken-syntax.scm:465: g1445 */ -t4=((C_word*)t0)[4]; -f_10843(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);}}} - -/* k11376 in map-loop1439 in k10837 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11378,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_11353(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop1411 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void f_11387(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_11387,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11412,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); -/* chicken-syntax.scm:464: g1417 */ -t4=((C_word*)t0)[4]; -f_10828(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);}}} - -/* k11410 in map-loop1411 in k10822 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11412,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_11387(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop1384 in k10808 in a10805 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void f_11421(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_11421,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k11455 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11457,c,av);} -/* chicken-syntax.scm:447: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[204]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a11458 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in ... */ -static void C_ccall f_11459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_11459,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11463,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:451: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[204]; -av2[3]=t2; -av2[4]=lf[207]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k11461 in a11458 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in ... */ -static void C_ccall f_11463(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_11463,c,av);} -a=C_alloc(16); -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_cdr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[39]); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11484,a[2]=((C_word*)t0)[3],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_11486,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li118),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_11486(t12,t8,t6);} - -/* k11482 in k11461 in a11458 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -static void C_ccall f_11484(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11484,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[58],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop1347 in k11461 in a11458 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -static void f_11486(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_11486,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[205],t3,*((C_word*)lf[206]+1)); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k11520 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ -static void C_ccall f_11522(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11522,c,av);} -/* chicken-syntax.scm:439: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[208]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a11523 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ -static void C_ccall f_11524(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11524,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11528,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:443: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[208]; -av2[3]=t2; -av2[4]=lf[210]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k11526 in a11523 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in ... */ -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 t4; -C_word t5; -C_word 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_11528,c,av);} -a=C_alloc(16); -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_cdr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[39]); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11549,a[2]=((C_word*)t0)[3],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_11551,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li120),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_11551(t12,t8,t6);} - -/* k11547 in k11526 in a11523 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11549,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[58],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop1310 in k11526 in a11523 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in ... */ -static void f_11551(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_11551,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[209],t3,C_SCHEME_FALSE); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k11585 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ -static void C_ccall f_11587(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11587,c,av);} -/* chicken-syntax.scm:431: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[211]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a11588 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ -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=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_11589,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11593,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:435: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -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);}} - -/* k11591 in a11588 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ -static void C_ccall f_11593(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_11593,c,av);} -a=C_alloc(16); -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_cdr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[39]); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11614,a[2]=((C_word*)t0)[3],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_11616,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li122),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_11616(t12,t8,t6);} - -/* k11612 in k11591 in a11588 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in ... */ -static void C_ccall f_11614(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11614,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[58],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop1273 in k11591 in a11588 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in ... */ -static void f_11616(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_11616,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[205],t3,C_SCHEME_FALSE); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k11650 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in ... */ -static void C_ccall f_11652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11652,c,av);} -/* chicken-syntax.scm:423: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[213]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a11653 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in ... */ -static void C_ccall f_11654(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11654,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11658,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:428: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[213]; -av2[3]=t2; -av2[4]=lf[215]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k11656 in a11653 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ -C_save_and_reclaim((void *)f_11658,c,av);} -a=C_alloc(15); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,lf[214],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k11671 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in ... */ -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,4)))){ -C_save_and_reclaim((void *)f_11673,c,av);} -/* chicken-syntax.scm:417: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[216]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a11674 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in ... */ -static void C_ccall f_11675(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_11675,c,av);} -a=C_alloc(3); -t5=C_i_cdr(t2); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_cons(&a,2,lf[217],t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k11685 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11687,c,av);} -/* chicken-syntax.scm:398: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[218]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a11688 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in ... */ -static void C_ccall f_11689(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11689,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11693,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:403: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[218]; -av2[3]=t2; -av2[4]=lf[221]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k11691 in a11688 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in ... */ -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 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_11693,c,av);} -a=C_alloc(15); -t2=C_i_cddr(((C_word*)t0)[2]); -if(C_truep(C_i_nullp(t2))){ -t3=C_u_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[36],t4); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,3,lf[57],t5,lf[219]); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:407: ##sys#check-syntax */ -t4=*((C_word*)lf[40]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[218]; -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[220]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k11713 in k11691 in a11688 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in ... */ -static void C_ccall f_11715(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_11715,c,av);} -a=C_alloc(24); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_caddr(((C_word*)t0)[2]); -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_u_i_cdr(t4); -t6=C_u_i_cdr(t5); -t7=C_i_pairp(t2); -t8=(C_truep(t7)?C_i_nullp(C_u_i_cdr(t2)):C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=C_i_car(t2); -t10=C_a_i_list(&a,2,t9,t3); -t11=C_a_i_list(&a,1,t10); -t12=C_a_i_cons(&a,2,t11,t6); -t13=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t13; -av2[1]=C_a_i_cons(&a,2,lf[35],t12); -((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} -else{ -t9=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t3); -t10=C_a_i_cons(&a,2,t2,t6); -t11=C_a_i_cons(&a,2,lf[36],t10); -t12=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=C_a_i_list(&a,3,lf[57],t9,t11); -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} - -/* k11778 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in ... */ -static void C_ccall f_11780(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11780,c,av);} -/* chicken-syntax.scm:326: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[222]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in ... */ -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=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_11782,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11786,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:330: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[222]; -av2[3]=t2; -av2[4]=lf[232]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in ... */ -static void C_ccall f_11786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_11786,c,av);} -a=C_alloc(7); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11792,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:332: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[88]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in ... */ -static void C_ccall f_11792(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_11792,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11795,a[2]=((C_word*)t0)[2],a[3]=((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); -/* chicken-syntax.scm:333: scheme#symbol->string */ -t3=*((C_word*)lf[142]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in ... */ -static void C_ccall f_11795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_11795,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11798,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12160,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:334: ##sys#current-module */ -t4=*((C_word*)lf[131]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ -static void C_ccall f_11798(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_11798,c,av);} -a=C_alloc(9); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11804,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:339: r */ -t4=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[127]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ -static void C_ccall f_11804(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_11804,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11807,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],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:340: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[231]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in ... */ -static void C_ccall f_11807(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_11807,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11810,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); -/* chicken-syntax.scm:341: r */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[124]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in ... */ -static void C_ccall f_11810(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_11810,c,av);} -a=C_alloc(28); -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_11814,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li127),tmp=(C_word)a,a+=5,tmp); -t7=C_i_check_list_2(((C_word*)t0)[4],lf[39]); -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11874,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]=t1,a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); -t9=C_SCHEME_UNDEFINED; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12125,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li129),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_12125(t12,t8,((C_word*)t0)[4]);} - -/* g1174 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -static void f_11814(C_word t0,C_word t1,C_word 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_11814,3,t0,t1,t2);} -a=C_alloc(9); -if(C_truep(C_i_symbolp(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_11827,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_pairp(t2))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11842,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:346: c */ -t5=((C_word*)t0)[2];{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_u_i_car(t2); -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -/* chicken-syntax.scm:352: ##sys#syntax-error */ -t4=*((C_word*)lf[103]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[222]; -av2[3]=lf[223]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}} - -/* k11825 in g1174 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void f_11827(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_11827,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]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* chicken-syntax.scm:352: ##sys#syntax-error */ -t2=*((C_word*)lf[103]+1);{ -C_word av2[5]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[222]; -av2[3]=lf[223]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} - -/* k11840 in g1174 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11842,c,av);} -if(C_truep(t1)){ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){ -t2=C_i_cadr(((C_word*)t0)[2]); -if(C_truep(C_i_symbolp(t2))){ -t3=C_u_i_cdr(((C_word*)t0)[2]); -if(C_truep(C_i_nullp(C_u_i_cdr(t3)))){ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_cadr(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* chicken-syntax.scm:352: ##sys#syntax-error */ -t4=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[222]; -av2[3]=lf[223]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} -else{ -/* chicken-syntax.scm:352: ##sys#syntax-error */ -t3=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[222]; -av2[3]=lf[223]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} -else{ -t2=((C_word*)t0)[4]; -f_11827(t2,C_SCHEME_FALSE);}} -else{ -t2=((C_word*)t0)[4]; -f_11827(t2,C_SCHEME_FALSE);}} - -/* k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -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 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_11874,c,av);} -a=C_alloc(28); -t2=C_a_i_list(&a,2,lf[87],((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t2); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12097,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12117,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#string-append */ -t6=*((C_word*)lf[228]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[230]; -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k11903 in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_11905(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ -C_save_and_reclaim((void *)f_11905,c,av);} -a=C_alloc(12); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_cons(&a,2,lf[58],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void f_11907(C_word t0,C_word t1,C_word t2,C_word 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,2)))){ -C_save_and_reclaim_args((void *)trf_11907,4,t0,t1,t2,t3);} -a=C_alloc(11); -t4=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -t6=C_i_symbolp(t5); -t7=C_i_not(t6); -t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11923,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t2,a[7]=t7,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(t7)){ -/* chicken-syntax.scm:370: scheme#symbol->string */ -t9=*((C_word*)lf[142]+1);{ -C_word av2[3]; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_cadr(t5); -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} -else{ -/* chicken-syntax.scm:370: scheme#symbol->string */ -t9=*((C_word*)lf[142]+1);{ -C_word av2[3]; -av2[0]=t9; -av2[1]=t8; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}} - -/* k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_11923(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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,5)))){ -C_save_and_reclaim((void *)f_11923,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,tmp=(C_word)a,a+=12,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12056,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:371: scheme#string-append */ -t4=*((C_word*)lf[89]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[10]; -av2[3]=lf[226]; -av2[4]=t1; -av2[5]=lf[227]; -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} - -/* k11924 in k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void C_ccall f_11926(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_11926,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12052,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:372: scheme#string-append */ -t4=*((C_word*)lf[89]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[10]; -av2[3]=lf[225]; -av2[4]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k11927 in k11924 in k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_11929(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(79,c,2)))){ -C_save_and_reclaim((void *)f_11929,c,av);} -a=C_alloc(79); -t2=C_a_i_list(&a,2,lf[123],lf[224]); -t3=C_a_i_list(&a,2,lf[87],((C_word*)t0)[2]); -t4=C_a_i_list(&a,3,lf[117],lf[123],t3); -t5=C_a_i_list(&a,2,lf[85],t4); -t6=C_a_i_list(&a,4,lf[120],lf[123],((C_word*)t0)[3],lf[224]); -t7=C_a_i_list(&a,4,lf[36],t2,t5,t6); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11955,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11959,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]=t7,a[7]=((C_word*)t0)[9],a[8]=t1,a[9]=t8,tmp=(C_word)a,a+=10,tmp); -if(C_truep(((C_word*)t0)[7])){ -t10=t9; -f_11959(t10,C_SCHEME_END_OF_LIST);} -else{ -t10=C_a_i_list(&a,3,((C_word*)t0)[9],((C_word*)t0)[10],t7); -t11=t9; -f_11959(t11,C_a_i_list(&a,1,t10));}} - -/* k11941 in k11953 in k11927 in k11924 in k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11943,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11953 in k11927 in k11924 in k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_11955(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_11955,c,av);} -a=C_alloc(7); -t2=C_a_i_cons(&a,2,lf[58],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11943,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:396: mapslots */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_11907(t4,t3,C_slot(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));} - -/* k11957 in k11927 in k11924 in k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void f_11959(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_11959,2,t0,t1);} -a=C_alloc(66); -if(C_truep(((C_word*)t0)[2])){ -t2=C_a_i_list(&a,1,lf[123]); -t3=C_a_i_list(&a,2,lf[87],((C_word*)t0)[3]); -t4=C_a_i_list(&a,3,lf[117],lf[123],t3); -t5=C_a_i_list(&a,2,lf[85],t4); -t6=C_a_i_list(&a,3,lf[118],lf[123],((C_word*)t0)[4]); -t7=C_a_i_list(&a,4,lf[36],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:379: ##sys#append */ -t11=*((C_word*)lf[102]+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[123]); -t3=C_a_i_list(&a,2,lf[87],((C_word*)t0)[3]); -t4=C_a_i_list(&a,3,lf[117],lf[123],t3); -t5=C_a_i_list(&a,2,lf[85],t4); -t6=C_a_i_list(&a,3,lf[118],lf[123],((C_word*)t0)[4]); -t7=C_a_i_list(&a,4,lf[36],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:379: ##sys#append */ -t10=*((C_word*)lf[102]+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);}}} - -/* k12050 in k11924 in k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_12052(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12052,c,av);} -/* chicken-syntax.scm:372: scheme#string->symbol */ -t2=*((C_word*)lf[141]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k12054 in k11921 in mapslots in k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void C_ccall f_12056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12056,c,av);} -/* chicken-syntax.scm:371: scheme#string->symbol */ -t2=*((C_word*)lf[141]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k12069 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_12071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(52,c,4)))){ -C_save_and_reclaim((void *)f_12071,c,av);} -a=C_alloc(52); -t2=C_a_i_list(&a,1,lf[123]); -t3=C_a_i_list(&a,2,lf[87],((C_word*)t0)[2]); -t4=C_a_i_list(&a,3,lf[116],lf[123],t3); -t5=C_a_i_list(&a,3,lf[36],t2,t4); -t6=C_a_i_list(&a,3,((C_word*)t0)[3],t1,t5); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11905,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_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_11907,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[8],a[7]=((C_word)li128),tmp=(C_word)a,a+=8,tmp)); -t11=((C_word*)t9)[1]; -f_11907(t11,t7,((C_word*)t0)[9],C_fix(1));} - -/* k12089 in k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_12091(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12091,c,av);} -/* chicken-syntax.scm:363: scheme#string->symbol */ -t2=*((C_word*)lf[141]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k12095 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void C_ccall f_12097(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_12097,c,av);} -a=C_alloc(43); -t2=C_a_i_list(&a,2,lf[87],((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,lf[115],t3); -t5=C_a_i_list(&a,3,lf[36],((C_word*)t0)[3],t4); -t6=C_a_i_list(&a,3,((C_word*)t0)[4],t1,t5); -t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12071,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],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],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12091,a[2]=t7,tmp=(C_word)a,a+=3,tmp); -/* ##sys#string-append */ -t9=*((C_word*)lf[228]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=((C_word*)t0)[8]; -av2[3]=lf[229]; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} - -/* k12115 in k11872 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void C_ccall f_12117(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12117,c,av);} -/* chicken-syntax.scm:358: scheme#string->symbol */ -t2=*((C_word*)lf[141]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* map-loop1168 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -static void f_12125(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_12125,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12150,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); -/* chicken-syntax.scm:343: g1174 */ -t4=((C_word*)t0)[4]; -f_11814(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k12148 in map-loop1168 in k11808 in k11805 in k11802 in k11796 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void C_ccall f_12150(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_12150,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_12125(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k12158 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_12160,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12167,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_12171,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:336: ##sys#current-module */ -t4=*((C_word*)lf[131]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -f_11798(2,av2);}}} - -/* k12165 in k12158 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ -static void C_ccall f_12167(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12167,c,av);} -/* chicken-syntax.scm:335: chicken.base#symbol-append */ -t2=*((C_word*)lf[128]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[129]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k12169 in k12158 in k11793 in k11790 in k11784 in a11781 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ -static void C_ccall f_12171(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12171,c,av);} -/* chicken-syntax.scm:336: ##sys#module-name */ -t2=*((C_word*)lf[130]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k12173 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in ... */ -static void C_ccall f_12175(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12175,c,av);} -/* chicken-syntax.scm:318: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[233]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12176 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in ... */ -static void C_ccall f_12177(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12177,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12181,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:323: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[233]; -av2[3]=t2; -av2[4]=lf[235]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12179 in a12176 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in ... */ -static void C_ccall f_12181(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_12181,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[234],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k12190 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12192(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12192,c,av);} -/* chicken-syntax.scm:304: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[236]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12194(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(10,c,2)))){ -C_save_and_reclaim((void *)f_12194,c,av);} -a=C_alloc(10); -t5=C_i_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12204,a[2]=t5,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(t5))){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12233,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:306: chicken.internal.syntax-rules#safe-length */ -t8=*((C_word*)lf[242]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_i_car(t5); -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t7=t6;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -f_12204(2,av2);}}} - -/* k12202 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void C_ccall f_12204(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12204,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_i_car(((C_word*)t0)[2]); -t3=C_i_cdr(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12217,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:306: rename1103 */ -t5=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[237]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -/* chicken-syntax.scm:306: chicken.internal.syntax-rules#syntax-rules-mismatch */ -t2=*((C_word*)lf[238]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* k12215 in k12202 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in ... */ -static void C_ccall f_12217(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_12217,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void C_ccall f_12233(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12233,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12236,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_12282,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:306: ##sys#>= */ -t4=*((C_word*)lf[241]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k12234 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in ... */ -static void C_ccall f_12236(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_12236,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12239,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:306: chicken.internal.syntax-rules#safe-length */ -t3=*((C_word*)lf[242]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cdr(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_12204(2,av2);}}} - -/* k12237 in k12234 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_12239,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12245,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:306: ##sys#>= */ -t3=*((C_word*)lf[241]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k12243 in k12237 in k12234 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_12245,c,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_12254,a[2]=t4,a[3]=((C_word)li132),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_12254(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_12204(2,av2);}}} - -/* loop1100 in k12243 in k12237 in k12234 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in ... */ -static void f_12254(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_12254,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12261,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:306: ##sys#= */ -t5=*((C_word*)lf[240]+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);}} - -/* k12259 in loop1100 in k12243 in k12237 in k12234 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in ... */ -static void C_ccall f_12261(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_12261,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_i_cdr(((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12275,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:306: ##sys#+ */ -t4=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(-1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k12273 in k12259 in loop1100 in k12243 in k12237 in k12234 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in ... */ -static void C_ccall f_12275(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12275,c,av);} -/* chicken-syntax.scm:306: loop1100 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_12254(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k12280 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 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 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_12282,c,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_12291,a[2]=t4,a[3]=((C_word)li133),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_12291(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_12236(2,av2);}}} - -/* loop1100 in k12280 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in ... */ -static void f_12291(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_12291,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12298,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:306: ##sys#= */ -t5=*((C_word*)lf[240]+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);}} - -/* k12296 in loop1100 in k12280 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in ... */ -static void C_ccall f_12298(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_12298,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_i_cdr(((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12312,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:306: ##sys#+ */ -t4=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(-1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k12310 in k12296 in loop1100 in k12280 in k12231 in a12193 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 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,3)))){ -C_save_and_reclaim((void *)f_12312,c,av);} -/* chicken-syntax.scm:306: loop1100 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_12291(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k12318 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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,c,av);} -/* chicken-syntax.scm:296: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[243]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12321 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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(6,c,2)))){ -C_save_and_reclaim((void *)f_12322,c,av);} -a=C_alloc(6); -t5=C_i_cdr(t2); -t6=C_i_pairp(t5); -t7=(C_truep(t6)?C_eqp(C_i_cdr(t5),C_SCHEME_END_OF_LIST):C_SCHEME_FALSE); -if(C_truep(t7)){ -t8=C_i_car(t5); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12342,a[2]=t8,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:298: rename1068 */ -t10=t3;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[244]; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12356,a[2]=t5,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(t5))){ -t9=C_i_cdr(t5); -t10=C_i_pairp(t9); -t11=t8; -f_12356(t11,(C_truep(t10)?C_eqp(C_i_cdr(t9),C_SCHEME_END_OF_LIST):C_SCHEME_FALSE));} -else{ -t9=t8; -f_12356(t9,C_SCHEME_FALSE);}}} - -/* k12340 in a12321 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_12342,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST); -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k12354 in a12321 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12356(C_word 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_12356,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_i_car(((C_word*)t0)[2]); -t3=C_i_cdr(((C_word*)t0)[2]); -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12369,a[2]=t4,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:298: rename1068 */ -t6=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[244]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -/* chicken-syntax.scm:298: chicken.internal.syntax-rules#syntax-rules-mismatch */ -t2=*((C_word*)lf[238]+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);}}} - -/* k12367 in k12354 in a12321 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void C_ccall f_12369(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12369,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k12415 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12417(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12417,c,av);} -/* chicken-syntax.scm:285: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[245]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12418 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12419(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12419,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12423,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:289: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[245]; -av2[3]=t2; -av2[4]=lf[247]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12421 in a12418 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12423(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_12423,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12430,a[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:290: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[246]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12428 in k12421 in a12418 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_12430,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12438,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:291: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[127]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12436 in k12428 in k12421 in a12418 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void C_ccall f_12438(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12438,c,av);} -a=C_alloc(9); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,((C_word*)t0)[4],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k12444 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12446(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12446,c,av);} -/* chicken-syntax.scm:277: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[246]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12447 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12448(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=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_12448,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12452,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:281: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[246]; -av2[3]=t2; -av2[4]=lf[250]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12450 in a12447 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_12452,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12455,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[58],t3); -/* chicken-syntax.scm:282: ##sys#register-meta-expression */ -t5=*((C_word*)lf[249]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k12453 in k12450 in a12447 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12455(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12455,c,av);} -a=C_alloc(9); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,lf[58],t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,lf[248],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k12474 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12476(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12476,c,av);} -/* chicken-syntax.scm:269: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[251]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12477 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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=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_12478,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12482,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:274: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[251]; -av2[3]=t2; -av2[4]=lf[253]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12480 in a12477 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_12482,c,av);} -a=C_alloc(6); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,2,lf[252],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k12491 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12493(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12493,c,av);} -/* chicken-syntax.scm:244: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[254]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12494 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12495(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_12495,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12499,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:248: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[254]; -av2[3]=t2; -av2[4]=lf[262]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12497 in a12494 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_12499,c,av);} -a=C_alloc(5); -t2=C_i_memq(lf[255],*((C_word*)lf[256]+1)); -if(C_truep(C_i_not(t2))){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[257]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12508,a[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:251: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[88]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k12506 in k12497 in a12494 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12508(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_12508,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12511,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:252: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[261]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12509 in k12506 in k12497 in a12494 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12511(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_12511,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12514,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:253: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[88]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_caddr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12512 in k12509 in k12506 in k12497 in a12494 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12514(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_12514,c,av);} -a=C_alloc(18); -t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_a_i_list(&a,2,((C_word*)t0)[2],lf[258]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12537,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:259: chicken.compiler.scrutinizer#check-and-validate-type */ -t5=*((C_word*)lf[260]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t1; -av2[3]=lf[254]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k12535 in k12512 in k12509 in k12506 in k12497 in a12494 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ -C_save_and_reclaim((void *)f_12537,c,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[259],((C_word*)t0)[3],((C_word*)t0)[4],t2); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,lf[248],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k12551 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12553,c,av);} -/* chicken-syntax.scm:219: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[263]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12555(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12555,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12559,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:223: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[263]; -av2[3]=t2; -av2[4]=lf[265]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12559(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_12559,c,av);} -a=C_alloc(5); -t2=C_i_memq(lf[255],*((C_word*)lf[256]+1)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12565,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:225: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_12565,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12568,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); -/* chicken-syntax.scm:226: chicken.syntax#get-line-number */ -t3=*((C_word*)lf[92]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12566 in k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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_12568,c,av);} -a=C_alloc(33); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,((C_word*)t0)[3],t2); -t4=C_a_i_list(&a,1,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_12592,a[2]=((C_word*)t0)[4],a[3]=((C_word)li140),tmp=(C_word)a,a+=4,tmp); -t10=C_u_i_cdr(((C_word*)t0)[2]); -t11=C_u_i_cdr(t10); -t12=C_i_check_list_2(t11,lf[39]); -t13=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12630,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=t4,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|6,a[1]=(C_word)f_12632,a[2]=t7,a[3]=t15,a[4]=t9,a[5]=t8,a[6]=((C_word)li141),tmp=(C_word)a,a+=7,tmp)); -t17=((C_word*)t15)[1]; -f_12632(t17,t13,t11);} - -/* g985 in k12566 in k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12592(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_12592,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12596,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:232: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[88]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k12594 in g985 in k12566 in k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12596(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_12596,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12603,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_eqp(t1,lf[81]); -if(C_truep(t3)){ -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_a_i_cons(&a,2,lf[58],t4); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list2(&a,2,lf[81],t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[4])){ -/* chicken-syntax.scm:237: chicken.compiler.scrutinizer#check-and-validate-type */ -t4=*((C_word*)lf[260]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t1; -av2[3]=lf[263]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_a_i_cons(&a,2,lf[58],t4); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list2(&a,2,t1,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} - -/* k12601 in k12594 in g985 in k12566 in k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_12603,c,av);} -a=C_alloc(9); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,lf[58],t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list2(&a,2,t1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k12628 in k12566 in k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ -C_save_and_reclaim((void *)f_12630,c,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[264],t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[5],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* map-loop979 in k12566 in k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12632(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_12632,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12657,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); -/* chicken-syntax.scm:231: g985 */ -t4=((C_word*)t0)[4]; -f_12592(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k12655 in map-loop979 in k12566 in k12563 in k12557 in a12554 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12657(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12657,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_12632(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k12674 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12676(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12676,c,av);} -/* chicken-syntax.scm:159: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[266]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12678(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_12678,c,av);} -a=C_alloc(5); -t5=C_i_memq(lf[255],*((C_word*)lf[256]+1)); -if(C_truep(C_i_not(t5))){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=lf[267]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12688,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:165: ##sys#check-syntax */ -t7=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[266]; -av2[3]=t2; -av2[4]=lf[273]; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} - -/* k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 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_12688,c,av);} -a=C_alloc(8); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_car(t2); -t4=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12698,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); -/* chicken-syntax.scm:169: chicken.base#gensym */ -t6=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12698(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_12698,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12701,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -t3=C_i_cdddr(((C_word*)t0)[2]); -if(C_truep(C_i_pairp(t3))){ -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_u_i_cdr(t4); -/* chicken-syntax.scm:170: chicken.syntax#strip-syntax */ -t6=*((C_word*)lf[88]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t2; -av2[2]=C_u_i_car(t5); -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_12701(2,av2);}}} - -/* k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12701(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_12701,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12704,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],tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:171: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[127]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12704(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_12704,c,av);} -a=C_alloc(12); -t2=(C_truep(((C_word*)t0)[2])?C_i_cadddr(((C_word*)t0)[3]):C_i_caddr(((C_word*)t0)[3])); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_12712,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=((C_word)li146),tmp=(C_word)a,a+=10,tmp)); -t6=((C_word*)t4)[1]; -f_12712(t6,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} - -/* loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12712(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(10,0,4)))){ -C_save_and_reclaim_args((void *)trf_12712,5,t0,t1,t2,t3,t4);} -a=C_alloc(10); -if(C_truep(C_i_nullp(t2))){ -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12722,a[2]=((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]=t3,a[9]=t4,tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:175: scheme#reverse */ -t6=*((C_word*)lf[38]+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); -if(C_truep(C_i_symbolp(t5))){ -t6=C_u_i_cdr(t2); -t7=C_a_i_cons(&a,2,t5,t3); -t8=C_a_i_cons(&a,2,lf[271],t4); -/* chicken-syntax.scm:205: loop */ -t10=t1; -t11=t6; -t12=t7; -t13=t8; -t1=t10; -t2=t11; -t3=t12; -t4=t13; -goto loop;} -else{ -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12952,a[2]=t2,a[3]=t5,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[7],a[7]=t1,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -if(C_truep(C_i_listp(t5))){ -t7=C_eqp(C_fix(2),C_u_i_length(t5)); -t8=t6; -f_12952(t8,(C_truep(t7)?C_i_symbolp(C_i_car(t5)):C_SCHEME_FALSE));} -else{ -t7=t6; -f_12952(t7,C_SCHEME_FALSE);}}}} - -/* k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12722(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_12722,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12725,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:176: scheme#reverse */ -t3=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12725(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_12725,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12896,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_SCHEME_UNDEFINED; -t4=(*a=C_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_12898,a[2]=t4,a[3]=((C_word)li145),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_12898(t6,t2,((C_word*)t0)[9],C_fix(1));} - -/* k12765 in k12829 in k12894 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void C_ccall f_12767(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12767,c,av);} -a=C_alloc(30); -t2=C_a_i_list(&a,3,lf[35],t1,((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t2); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,4,lf[58],((C_word*)t0)[6],((C_word*)t0)[7],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* map-loop925 in k12829 in k12894 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void f_12769(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_12769,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[196],t7,C_SCHEME_TRUE,t6); -t9=C_a_i_list2(&a,2,t6,t8); -t10=C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST); -t11=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t10); -t12=C_mutate(((C_word *)((C_word*)t0)[2])+1,t10); -t14=t1; -t15=C_slot(t2,C_fix(1)); -t16=C_slot(t3,C_fix(1)); -t1=t14; -t2=t15; -t3=t16; -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);}}} - -/* k12829 in k12894 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12831(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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(60,0,4)))){ -C_save_and_reclaim_args((void *)trf_12831,2,t0,t1);} -a=C_alloc(60); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_list(&a,4,lf[268],((C_word*)t0)[3],((C_word*)t0)[4],t2); -t4=C_a_i_list(&a,2,lf[269],((C_word*)t0)[4]); -t5=C_a_i_list(&a,2,lf[270],((C_word*)t0)[4]); -t6=C_a_i_list(&a,3,lf[217],t4,t5); -t7=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); -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_12767,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t7,a[5]=((C_word*)t0)[8],a[6]=t3,a[7]=t6,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|5,a[1]=(C_word)f_12769,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li143),tmp=(C_word)a,a+=6,tmp)); -t16=((C_word*)t14)[1]; -f_12769(t16,t12,((C_word*)t0)[5],((C_word*)t0)[2]);} - -/* k12850 in k12894 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12852(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_12852,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2]; -f_12831(t2,C_a_i_list2(&a,2,t1,((C_word*)t0)[3]));} - -/* map-loop891 in k12894 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12854(C_word 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_12854,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12879,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_slot(t2,C_fix(0)); -t5=*((C_word*)lf[260]+1); -/* chicken-syntax.scm:190: g914 */ -t6=*((C_word*)lf[260]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[266]; -((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);}}} - -/* k12877 in map-loop891 in k12894 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void C_ccall f_12879(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12879,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_12854(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k12894 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_12896(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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(29,c,3)))){ -C_save_and_reclaim((void *)f_12896,c,av);} -a=C_alloc(29); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12831,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); -t4=(C_truep(((C_word*)t0)[9])?C_i_pairp(((C_word*)t0)[9]):C_SCHEME_FALSE); -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_i_check_list_2(((C_word*)t0)[9],lf[39]); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12852,a[2]=t3,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_12854,a[2]=t7,a[3]=t12,a[4]=t8,a[5]=((C_word)li144),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_12854(t14,t10,((C_word*)t0)[9]);} -else{ -t5=t3; -f_12831(t5,C_a_i_list1(&a,1,t2));}} - -/* loop2 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12898(C_word t0,C_word t1,C_word t2,C_word 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(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_12898,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12916,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:182: loop2 */ -t7=t5; -t8=C_i_cdr(t2); -t9=C_fixnum_plus(t3,C_fix(1)); -t1=t7; -t2=t8; -t3=t9; -goto loop;}} - -/* k12914 in loop2 in k12723 in k12720 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_12916,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12950 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_12952(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ -C_save_and_reclaim_args((void *)trf_12952,2,t0,t1);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_car(((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12969,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:211: chicken.compiler.scrutinizer#check-and-validate-type */ -t6=*((C_word*)lf[260]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -av2[3]=lf[266]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -/* chicken-syntax.scm:215: ##sys#syntax-error */ -t2=*((C_word*)lf[103]+1);{ -C_word av2[6]; -av2[0]=t2; -av2[1]=((C_word*)t0)[7]; -av2[2]=lf[266]; -av2[3]=lf[272]; -av2[4]=((C_word*)t0)[3]; -av2[5]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* k12967 in k12950 in loop in k12702 in k12699 in k12696 in k12686 in a12677 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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(3,c,4)))){ -C_save_and_reclaim((void *)f_12969,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* chicken-syntax.scm:207: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_12712(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2);} - -/* k13024 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13026(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13026,c,av);} -/* chicken-syntax.scm:153: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[274]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13028(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -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(10,c,2)))){ -C_save_and_reclaim((void *)f_13028,c,av);} -a=C_alloc(10); -t5=C_i_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13038,a[2]=t5,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(t5))){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13200,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:155: chicken.internal.syntax-rules#safe-length */ -t8=*((C_word*)lf[242]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_i_car(t5); -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t7=t6;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -f_13038(2,av2);}}} - -/* k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13038(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_13038,c,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[39]); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13055,a[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_13156,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li150),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_13156(t12,t8,t6);} -else{ -/* chicken-syntax.scm:155: chicken.internal.syntax-rules#syntax-rules-mismatch */ -t2=*((C_word*)lf[238]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* k13053 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 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_13055,c,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=C_i_car(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[39]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13076,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); -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_13122,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li149),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_13122(t12,t8,t6);} - -/* k13074 in k13053 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13076(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_13076,c,av);} -a=C_alloc(7); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13086,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:155: rename752 */ -t4=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[79]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k13084 in k13074 in k13053 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_13086,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13094,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|3,a[1]=(C_word)f_13096,a[2]=((C_word*)t0)[4],a[3]=((C_word)li148),tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:155: ##sys#map-n */ -t4=*((C_word*)lf[276]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t3; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k13092 in k13084 in k13074 in k13053 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_13094,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a13095 in k13084 in k13074 in k13053 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13096(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_13096,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13112,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:155: rename752 */ -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[275]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k13110 in a13095 in k13084 in k13074 in k13053 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13112(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ -C_save_and_reclaim((void *)f_13112,c,av);} -a=C_alloc(15); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=C_a_i_cons(&a,2,t1,t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[2],t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* map-loop824 in k13053 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13122(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -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_13122,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cdr(t3); -t5=C_i_car(t4); -t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); -t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); -t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); -t10=t1; -t11=C_slot(t2,C_fix(1)); -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-loop796 in k13036 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13156(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_13156,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13200(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_13200,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13203,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_13249,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:155: ##sys#>= */ -t4=*((C_word*)lf[241]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k13201 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13203(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13203,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:155: chicken.internal.syntax-rules#safe-length */ -t3=*((C_word*)lf[242]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cdr(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_13038(2,av2);}}} - -/* k13204 in k13201 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13206(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13206,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13212,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:155: ##sys#>= */ -t3=*((C_word*)lf[241]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k13210 in k13204 in k13201 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13212(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13212,c,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_13221,a[2]=t4,a[3]=((C_word)li151),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_13221(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_13038(2,av2);}}} - -/* loop749 in k13210 in k13204 in k13201 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13221(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_13221,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13228,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:155: ##sys#= */ -t5=*((C_word*)lf[240]+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);}} - -/* k13226 in loop749 in k13210 in k13204 in k13201 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13228(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_13228,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_i_cdr(((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13242,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:155: ##sys#+ */ -t4=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(-1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k13240 in k13226 in loop749 in k13210 in k13204 in k13201 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13242,c,av);} -/* chicken-syntax.scm:155: loop749 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13221(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k13247 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13249(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13249,c,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_13258,a[2]=t4,a[3]=((C_word)li152),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_13258(t6,((C_word*)t0)[3],t2,((C_word*)t0)[4]);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_13203(2,av2);}}} - -/* loop749 in k13247 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13258(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_13258,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13265,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:155: ##sys#= */ -t5=*((C_word*)lf[240]+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);}} - -/* k13263 in loop749 in k13247 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13265(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13265,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_eqp(((C_word*)t0)[3],C_SCHEME_END_OF_LIST); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_i_car(((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13277,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); -t5=C_i_pairp(t4); -t6=t3; -f_13277(t6,(C_truep(t5)?C_eqp(C_i_cdr(t4),C_SCHEME_END_OF_LIST):C_SCHEME_FALSE));} -else{ -t4=t3; -f_13277(t4,C_SCHEME_FALSE);}}} - -/* k13275 in k13263 in loop749 in k13247 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13277(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_13277,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13288,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:155: ##sys#+ */ -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_fix(-1); -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k13286 in k13275 in k13263 in loop749 in k13247 in k13198 in a13027 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13288(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13288,c,av);} -/* chicken-syntax.scm:155: loop749 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13258(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k13313 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13315(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13315,c,av);} -/* chicken-syntax.scm:142: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[275]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13316 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13317(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13317,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13321,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:146: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[275]; -av2[3]=t2; -av2[4]=lf[277]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k13319 in a13316 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_13321,c,av);} -a=C_alloc(4); -t2=C_i_memq(lf[255],*((C_word*)lf[256]+1)); -if(C_truep(C_i_not(t2))){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_caddr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13337,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:149: chicken.compiler.scrutinizer#check-and-validate-type */ -t4=*((C_word*)lf[260]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -av2[3]=lf[275]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k13335 in k13319 in a13316 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13337(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ -C_save_and_reclaim((void *)f_13337,c,av);} -a=C_alloc(12); -t2=C_i_caddr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,4,lf[196],t1,C_SCHEME_TRUE,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k13351 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13353(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13353,c,av);} -/* chicken-syntax.scm:119: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[278]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13355(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13355,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13359,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:123: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[278]; -av2[3]=t2; -av2[4]=lf[285]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k13357 in a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13359(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_13359,c,av);} -a=C_alloc(4); -t2=C_i_memq(lf[255],*((C_word*)lf[256]+1)); -if(C_truep(C_i_not(t2))){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[279]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13368,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:126: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[88]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_caddr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k13366 in k13357 in a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13368(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ -C_save_and_reclaim((void *)f_13368,c,av);} -a=C_alloc(11); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_u_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13375,a[2]=t1,a[3]=t3,a[4]=((C_word)li155),tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13385,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word)li156),tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:130: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a13374 in k13366 in k13357 in a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13375(C_word c,C_word *av){ -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_13375,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13383,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:133: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[88]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13381 in a13374 in k13366 in k13357 in a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13383,c,av);} -/* chicken-syntax.scm:131: chicken.compiler.scrutinizer#validate-type */ -t2=*((C_word*)lf[280]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a13384 in k13366 in k13357 in a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13385(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(30,c,5)))){ -C_save_and_reclaim((void *)f_13385,c,av);} -a=C_alloc(30); -if(C_truep(C_i_not(t2))){ -/* chicken-syntax.scm:135: ##sys#syntax-error */ -t5=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[278]; -av2[3]=lf[281]; -av2[4]=((C_word*)t0)[2]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} -else{ -t5=C_i_cdddr(((C_word*)t0)[4]); -t6=C_a_i_cons(&a,2,((C_word*)t0)[3],t5); -t7=C_a_i_cons(&a,2,((C_word*)t0)[2],t6); -t8=C_a_i_list(&a,2,lf[282],t7); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13410,a[2]=t8,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13414,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t9,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -t11=C_a_i_list(&a,2,lf[284],((C_word*)t0)[2]); -t12=t10; -f_13414(t12,C_a_i_list(&a,1,t11));} -else{ -t11=t10; -f_13414(t11,C_SCHEME_END_OF_LIST);}}} - -/* k13408 in a13384 in k13366 in k13357 in a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_13410,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[217],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k13412 in a13384 in k13366 in k13357 in a13354 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13414(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_13414,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[283],t2); -t4=C_a_i_list(&a,1,t3); -/* chicken-syntax.scm:137: ##sys#append */ -t5=*((C_word*)lf[102]+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:137: ##sys#append */ -t2=*((C_word*)lf[102]+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);}}} - -/* k13462 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13464,c,av);} -/* chicken-syntax.scm:77: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[288]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13466,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13470,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:82: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[288]; -av2[3]=t2; -av2[4]=lf[296]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13470(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_13470,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13473,a[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:83: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[295]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13473(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_13473,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13476,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); -/* chicken-syntax.scm:84: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[294]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13476(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_13476,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13479,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); -/* chicken-syntax.scm:85: r */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[293]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_13479,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13482,a[2]=((C_word*)t0)[2],a[3]=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); -/* chicken-syntax.scm:86: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[286]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_13482,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13485,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],tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:87: r */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[81]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13485(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ -C_save_and_reclaim((void *)f_13485,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13487,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)li160),tmp=(C_word)a,a+=8,tmp); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13617,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=t1,a[8]=((C_word*)t0)[8],a[9]=t2,tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:99: r */ -t4=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[292]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* parse-clause in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13487(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(23,0,2)))){ -C_save_and_reclaim_args((void *)trf_13487,3,t0,t1,t2);} -a=C_alloc(23); -t3=C_i_car(t2); -t4=C_i_symbolp(t3); -t5=(C_truep(t4)?C_u_i_car(t2):C_SCHEME_FALSE); -t6=(C_truep(t5)?C_i_cadr(t2):C_u_i_car(t2)); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13497,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]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -if(C_truep(t5)){ -t8=C_a_i_list(&a,2,t5,((C_word*)t0)[6]); -t9=C_a_i_list(&a,1,t8); -t10=C_i_cddr(t2); -t11=C_a_i_cons(&a,2,t9,t10); -t12=t7; -f_13497(t12,C_a_i_cons(&a,2,lf[35],t11));} -else{ -t8=C_u_i_cdr(t2); -t9=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t8); -t10=t7; -f_13497(t10,C_a_i_cons(&a,2,lf[35],t9));}} - -/* k13495 in parse-clause in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13497(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,0,3)))){ -C_save_and_reclaim_args((void *)trf_13497,2,t0,t1);} -a=C_alloc(25); -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -t2=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,((C_word*)t0)[4],t1); -((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_13522,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word)li158),tmp=(C_word)a,a+=5,tmp); -t7=C_i_check_list_2(((C_word*)t0)[2],lf[39]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13536,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=t1,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|6,a[1]=(C_word)f_13538,a[2]=t6,a[3]=t4,a[4]=t10,a[5]=t5,a[6]=((C_word)li159),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_13538(t12,t8,((C_word*)t0)[2]);}} - -/* g638 in k13495 in parse-clause in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static C_word f_13522(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[87],t1); -return(C_a_i_list(&a,3,((C_word*)t0)[2],t2,((C_word*)t0)[3]));} - -/* k13534 in k13495 in parse-clause in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13536(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_13536,c,av);} -a=C_alloc(12); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,t3,((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* map-loop632 in k13495 in parse-clause in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13538(C_word t0,C_word t1,C_word t2){ -C_word 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(18,0,2)))){ -C_save_and_reclaim_args((void *)trf_13538,3,t0,t1,t2);} -a=C_alloc(18); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* chicken-syntax.scm:96: g638 */ - f_13522(C_a_i(&a,15),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* k13615 in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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(65,c,3)))){ -C_save_and_reclaim((void *)f_13617,c,av);} -a=C_alloc(65); -t2=C_a_i_list(&a,2,lf[87],lf[73]); -t3=C_a_i_list(&a,3,lf[116],((C_word*)t0)[2],t2); -t4=C_a_i_list(&a,3,lf[289],((C_word*)t0)[2],C_fix(1)); -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=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_cddr(((C_word*)t0)[5]); -t13=C_i_check_list_2(t12,lf[39]); -t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13642,a[2]=t7,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,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); -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_13673,a[2]=t10,a[3]=t16,a[4]=((C_word*)t0)[9],a[5]=t11,a[6]=((C_word)li161),tmp=(C_word)a,a+=7,tmp)); -t18=((C_word*)t16)[1]; -f_13673(t18,t14,t12);} - -/* k13640 in k13615 in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13642(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_13642,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13649,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); -/* chicken-syntax.scm:104: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[291]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13647 in k13640 in k13615 in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 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_13649,c,av);} -a=C_alloc(23); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13653,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); -if(C_truep(C_i_assq(((C_word*)t0)[7],((C_word*)t0)[8]))){ -/* chicken-syntax.scm:104: ##sys#append */ -t3=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t3=C_a_i_list(&a,2,lf[290],((C_word*)t0)[6]); -t4=C_a_i_list(&a,2,((C_word*)t0)[7],t3); -t5=C_a_i_list(&a,1,t4); -/* chicken-syntax.scm:104: ##sys#append */ -t6=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k13651 in k13647 in k13640 in k13615 in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ -C_save_and_reclaim((void *)f_13653,c,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[35],((C_word*)t0)[3],t2); -t4=C_i_cadr(((C_word*)t0)[4]); -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,4,((C_word*)t0)[6],((C_word*)t0)[7],t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* map-loop663 in k13615 in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void f_13673(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_13673,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13698,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); -/* chicken-syntax.scm:103: g669 */ -t4=((C_word*)t0)[4]; -f_13487(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k13696 in map-loop663 in k13615 in k13483 in k13480 in k13477 in k13474 in k13471 in k13468 in a13465 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13698(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_13698,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_13673(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k13735 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13737(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13737,c,av);} -/* chicken-syntax.scm:56: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[292]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13738 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13739(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13739,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13743,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:61: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[292]; -av2[3]=t2; -av2[4]=lf[300]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k13741 in a13738 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13743(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_13743,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13746,a[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:62: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[299]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13744 in k13741 in a13738 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13746(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_13746,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13749,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); -/* chicken-syntax.scm:63: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[63]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13747 in k13744 in k13741 in a13738 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13749(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_13749,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13760,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); -/* chicken-syntax.scm:64: r */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[297]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13758 in k13747 in k13744 in k13741 in a13738 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_13760(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word 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(114,c,1)))){ -C_save_and_reclaim((void *)f_13760,c,av);} -a=C_alloc(114); -t2=C_a_i_list(&a,1,((C_word*)t0)[2]); -t3=C_i_cadr(((C_word*)t0)[3]); -t4=C_a_i_list(&a,1,t3); -t5=C_i_caddr(((C_word*)t0)[3]); -t6=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t5); -t7=C_a_i_list(&a,2,((C_word*)t0)[2],t6); -t8=C_a_i_list(&a,3,lf[36],t4,t7); -t9=C_u_i_cdr(((C_word*)t0)[3]); -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[36],t12); -t14=C_a_i_list(&a,3,lf[55],lf[56],((C_word*)t0)[4]); -t15=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t14); -t16=C_a_i_list(&a,2,((C_word*)t0)[2],t15); -t17=C_a_i_list(&a,3,lf[36],((C_word*)t0)[4],t16); -t18=C_a_i_list(&a,3,lf[57],t13,t17); -t19=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t18); -t20=C_a_i_list(&a,3,lf[298],t8,t19); -t21=C_a_i_list(&a,3,lf[36],t2,t20); -t22=C_a_i_list(&a,2,t1,t21); -t23=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t23; -av2[1]=C_a_i_list(&a,1,t22); -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} - -/* k4396 */ -static void C_ccall f_4398(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_4398,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4401,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_internal_toplevel(2,av2);}} - -/* k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_4401,c,av);} -a=C_alloc(11); -t2=C_a_i_provide(&a,1,lf[0]); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4404,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t3; -C_library_toplevel(2,av2);}} - -/* k4402 in k4399 in k4396 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_4404,c,av);} -a=C_alloc(6); -t2=C_mutate(&lf[1] /* (set! take ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4514,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5686,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:54: ##sys#macro-environment */ -t4=*((C_word*)lf[50]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* take in k4402 in k4399 in k4396 */ -static void f_4514(C_word t1,C_word t2,C_word 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_4514,3,t1,t2,t3);} -a=C_alloc(4); -if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(0)))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4532,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* mini-srfi-1.scm:56: take */ -t7=t5; -t8=C_u_i_cdr(t2); -t9=C_fixnum_difference(t3,C_fix(1)); -t1=t7; -t2=t8; -t3=t9; -goto loop;}} - -/* k4530 in take in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_4532,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop in k6013 in a6006 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in ... */ -static void f_4572(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(4,0,4)))){ -C_save_and_reclaim_args((void *)trf_4572,5,t0,t1,t2,t3,t4);} -a=C_alloc(4); -if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4586,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* mini-srfi-1.scm:67: scheme#reverse */ -t6=*((C_word*)lf[38]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=C_fixnum_difference(t2,C_fix(1)); -t6=C_i_car(t4); -t7=C_a_i_cons(&a,2,t6,t3); -/* mini-srfi-1.scm:68: loop */ -t9=t1; -t10=t5; -t11=t7; -t12=C_u_i_cdr(t4); -t1=t9; -t2=t10; -t3=t11; -t4=t12; -goto loop;}} - -/* k4584 in loop in k6013 in a6006 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in ... */ -static void C_ccall f_4586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_4586,c,av);} -/* mini-srfi-1.scm:67: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -C_values(4,av2);}} - -/* k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5686(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ -C_save_and_reclaim((void *)f_5686,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5689,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[297],lf[62]); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13737,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13739,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:59: ##sys#er-transformer */ -t7=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ -C_save_and_reclaim((void *)f_5689,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5692,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[286],lf[287]); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13464,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13466,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:80: ##sys#er-transformer */ -t7=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_5692,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5695,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:111: chicken.internal#macro-subset */ -t3=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[20]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5695(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5695,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#chicken.condition-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:117: ##sys#macro-environment */ -t4=*((C_word*)lf[50]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5699,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5702,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_13353,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13355,a[2]=((C_word)li157),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:121: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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(10,c,5)))){ -C_save_and_reclaim((void *)f_5702,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5705,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_13315,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13317,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:144: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5705(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5705,c,av);} -a=C_alloc(10); -t2=(*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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13026,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13028,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:155: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5708(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5708,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5711,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_12676,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12678,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:161: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5711,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5714,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_12553,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12555,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:221: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5714(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5714,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5717,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_12493,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12495,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:246: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_5717,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5720,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:262: chicken.internal#macro-subset */ -t3=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[20]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5720(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_5720,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#chicken.type-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5724,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:267: ##sys#macro-environment */ -t4=*((C_word*)lf[50]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5724(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5724,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5727,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_12476,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12478,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:272: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5727,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5730,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_12446,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12448,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:279: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5730(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_5730,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5733,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_12417,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12419,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:287: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5733,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5736,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_12320,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12322,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:298: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5736(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5736,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5739,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_12192,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12194,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:306: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 */ -static void C_ccall f_5739(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_5739,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5742,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:310: chicken.internal#macro-subset */ -t3=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[20]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in k4396 in ... */ -static void C_ccall f_5742(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5742,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#chicken.syntax-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5746,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:316: ##sys#macro-environment */ -t4=*((C_word*)lf[50]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 in k4399 in ... */ -static void C_ccall f_5746(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5746,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5749,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_12175,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12177,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:321: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in k4402 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(10,c,5)))){ -C_save_and_reclaim((void *)f_5749,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5752,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_11780,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11782,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:328: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in k5684 in ... */ -static void C_ccall f_5752(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5752,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5755,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_11687,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11689,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:401: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in k5687 in ... */ -static void C_ccall f_5755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5755,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5758,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_11673,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11675,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:419: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in k5690 in ... */ -static void C_ccall f_5758(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5758,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5761,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11652,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11654,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:426: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in k5693 in ... */ -static void C_ccall f_5761(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5761,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5764,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_11587,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11589,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:433: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in k5697 in ... */ -static void C_ccall f_5764(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_5764,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5767,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_11522,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11524,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:441: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in k5700 in ... */ -static void C_ccall f_5767(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5767,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5770,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_11457,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11459,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:449: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in k5703 in ... */ -static void C_ccall f_5770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5770,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5773,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_10804,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10806,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:458: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in k5706 in ... */ -static void C_ccall f_5773(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5773,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5776,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_9874,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9876,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:490: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -static void C_ccall f_5776(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5776,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5779,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_9794,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9796,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:545: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void C_ccall f_5779(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5779,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5782,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_9770,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9772,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:557: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_5782(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_5782,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5785,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_9742,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9744,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:565: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_5785(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_5785,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5788,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_9721,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9723,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:574: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_5788(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5788,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5792,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_9591,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9593,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:582: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5792,c,av);} -a=C_alloc(10); -t2=C_mutate((C_word*)lf[5]+1 /* (set! chicken.syntax#define-values-definition ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5795,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_9114,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9116,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:599: ##sys#er-transformer */ -t6=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_5795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5795,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5798,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9060,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9062,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:653: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_5798(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5798,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8802,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8804,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:668: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void C_ccall f_5801(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5801,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5804,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_8780,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8782,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:688: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void C_ccall f_5804(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ -C_save_and_reclaim((void *)f_5804,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5807,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[159],lf[160]); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8736,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8738,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:697: ##sys#er-transformer */ -t7=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void C_ccall f_5807(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_5807,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5810,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_8632,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8634,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:707: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_5810(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5810,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5813,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_8490,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8492,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:728: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void C_ccall f_5813(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ -C_save_and_reclaim((void *)f_5813,c,av);} -a=C_alloc(29); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5816,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[133],lf[134]); -t4=C_a_i_cons(&a,2,lf[23],lf[24]); -t5=C_a_i_cons(&a,2,lf[25],lf[26]); -t6=C_a_i_list(&a,3,t3,t4,t5); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8042,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8044,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:835: ##sys#er-transformer */ -t9=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t7; -av2[2]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_5816(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ -C_save_and_reclaim((void *)f_5816,c,av);} -a=C_alloc(29); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5819,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[133],lf[134]); -t4=C_a_i_cons(&a,2,lf[23],lf[24]); -t5=C_a_i_cons(&a,2,lf[25],lf[26]); -t6=C_a_i_list(&a,3,t3,t4,t5); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7965,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7967,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:924: ##sys#er-transformer */ -t9=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t7; -av2[2]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_5819(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ -C_save_and_reclaim((void *)f_5819,c,av);} -a=C_alloc(29); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[133],lf[134]); -t4=C_a_i_cons(&a,2,lf[23],lf[24]); -t5=C_a_i_cons(&a,2,lf[25],lf[26]); -t6=C_a_i_list(&a,3,t3,t4,t5); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7805,a[2]=t2,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7807,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:952: ##sys#er-transformer */ -t9=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t7; -av2[2]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_5822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5822,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5825,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_7293,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7295,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:984: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -static void C_ccall f_5825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ -C_save_and_reclaim((void *)f_5825,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5828,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[75],lf[100]); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7121,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7123,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1082: ##sys#er-transformer */ -t7=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 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 t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ -C_save_and_reclaim((void *)f_5828,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5831,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[75],lf[100]); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6926,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6928,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1115: ##sys#er-transformer */ -t7=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void C_ccall f_5831(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_5831,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5834,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_6861,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6863,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1156: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5834,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5837,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_6843,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6845,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1173: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -static void C_ccall f_5837(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5837,c,av);} -a=C_alloc(10); -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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6754,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6756,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1182: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 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; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5840,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5843,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_6366,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6368,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1205: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void C_ccall f_5843(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_5843,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5846,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1274: chicken.internal#macro-subset */ -t3=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[20]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void C_ccall f_5846(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5846,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[6]+1 /* (set! ##sys#chicken.base-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5850,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1280: ##sys#macro-environment */ -t4=*((C_word*)lf[50]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -static void C_ccall f_5850(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_5850,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5853,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_6317,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6319,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1284: ##sys#er-transformer */ -t5=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_5853(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_5853,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5856,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1296: chicken.internal#macro-subset */ -t3=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[20]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5856,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[7]+1 /* (set! ##sys#chicken.time-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5860,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1301: ##sys#macro-environment */ -t4=*((C_word*)lf[50]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(41,c,5)))){ -C_save_and_reclaim((void *)f_5860,c,av);} -a=C_alloc(41); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5863,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,lf[21],lf[22]); -t4=C_a_i_cons(&a,2,lf[23],lf[24]); -t5=C_a_i_cons(&a,2,lf[25],lf[26]); -t6=C_a_i_cons(&a,2,lf[27],lf[28]); -t7=C_a_i_cons(&a,2,lf[29],lf[30]); -t8=C_a_i_list(&a,5,t3,t4,t5,t6,t7); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5877,a[2]=t2,a[3]=t8,tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5879,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1310: ##sys#er-transformer */ -t11=*((C_word*)lf[49]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t11; -av2[1]=t9; -av2[2]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} - -/* k5861 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -static void C_ccall f_5863(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_5863,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5866,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1368: chicken.internal#macro-subset */ -t3=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[20]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5864 in k5861 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in ... */ -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(3,c,10)))){ -C_save_and_reclaim((void *)f_5866,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[8]+1 /* (set! ##sys#scheme.case-lambda-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5869,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1372: chicken.platform#register-feature! */ -t4=*((C_word*)lf[9]+1);{ -C_word *av2; -if(c >= 11) { - av2=av; -} else { - av2=C_alloc(11); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[10]; -av2[3]=lf[11]; -av2[4]=lf[12]; -av2[5]=lf[13]; -av2[6]=lf[14]; -av2[7]=lf[15]; -av2[8]=lf[16]; -av2[9]=lf[17]; -av2[10]=lf[18]; -((C_proc)(void*)(*((C_word*)t4+1)))(11,av2);}} - -/* k5867 in k5864 in k5861 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_5869,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k5875 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_5877,c,av);} -/* chicken-syntax.scm:1303: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[32]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -static void C_ccall f_5879(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_5879,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5883,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:1312: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[32]; -av2[3]=t2; -av2[4]=lf[48]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in ... */ -static void C_ccall f_5883(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_5883,c,av);} -a=C_alloc(26); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5885,a[2]=((C_word*)t0)[2],a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5920,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t5=t4; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=((C_word*)t6)[1]; -t8=C_i_cdr(((C_word*)t0)[3]); -t9=C_i_check_list_2(t8,lf[39]); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6259,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_6261,a[2]=t6,a[3]=t12,a[4]=t7,a[5]=((C_word)li12),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_6261(t14,t10,t8);} - -/* genvars in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in ... */ -static void f_5885(C_word 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_5885,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_5891,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word)li1),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_5891(t6,t1,C_fix(0));} - -/* loop in genvars in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in ... */ -static void f_5891(C_word t0,C_word t1,C_word 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_5891,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_5905,a[2]=t1,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_5917,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1317: chicken.base#gensym */ -t5=*((C_word*)lf[33]+1);{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k5903 in loop in genvars in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_5905,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5909,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1317: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_5891(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k5907 in k5903 in loop in genvars in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in ... */ -static void C_ccall f_5909(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_5909,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k5915 in loop in genvars in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in ... */ -static void C_ccall f_5917(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_5917,c,av);} -/* chicken-syntax.scm:1317: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in ... */ -static void C_ccall f_5920(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_5920,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5923,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); -/* chicken-syntax.scm:1323: genvars */ -t3=((C_word*)t0)[5]; -f_5885(t3,t2,t1);} - -/* k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_5923,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5926,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],tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:1324: r */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[46]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in ... */ -static void C_ccall f_5926(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_5926,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5929,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); -/* chicken-syntax.scm:1325: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[45]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in ... */ -static void C_ccall f_5929(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_5929,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5932,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:1326: r */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[21]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_5932,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5935,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:1327: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[27]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in ... */ -static void C_ccall f_5935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_5935,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5938,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp); -/* chicken-syntax.scm:1328: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[23]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in ... */ -static void C_ccall f_5938(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_5938,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5941,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,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:1329: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[25]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in ... */ -static void C_ccall f_5941(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_5941,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5944,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:1330: r */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[29]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in ... */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ -C_save_and_reclaim((void *)f_5944,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5951,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],tmp=(C_word)a,a+=14,tmp); -/* chicken-syntax.scm:1332: scheme#append */ -t3=*((C_word*)lf[44]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in ... */ -static void C_ccall f_5951(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(35,c,3)))){ -C_save_and_reclaim((void *)f_5951,c,av);} -a=C_alloc(35); -t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_a_i_list(&a,2,((C_word*)t0)[4],t2); -t4=C_a_i_list(&a,1,t3); -t5=C_u_i_cdr(((C_word*)t0)[5]); -t6=C_i_check_list_2(t5,lf[34]); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5967,a[2]=t4,a[3]=((C_word*)t0)[6],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_5969,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[11],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[12],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[13],a[11]=t9,a[12]=((C_word)li10),tmp=(C_word)a,a+=13,tmp)); -t11=((C_word*)t9)[1]; -f_5969(t11,t7,t5);} - -/* k5965 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in ... */ -static void C_ccall f_5967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ -C_save_and_reclaim((void *)f_5967,c,av);} -a=C_alloc(18); -t2=C_a_i_list(&a,3,lf[35],((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,lf[36],((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in ... */ -static void f_5969(C_word t0,C_word t1,C_word 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(17,0,4)))){ -C_save_and_reclaim_args((void *)trf_5969,3,t0,t1,t2);} -a=C_alloc(17); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5977,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word)li9),tmp=(C_word)a,a+=12,tmp); -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6222,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t7=t5; -t8=C_slot(t2,C_fix(1)); -t1=t7; -t2=t8; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=lf[43]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in ... */ -static void f_5977(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ -C_save_and_reclaim_args((void *)trf_5977,4,t0,t1,t2,t3);} -a=C_alloc(14); -t4=C_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5987,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)li8),tmp=(C_word)a,a+=14,tmp); -/* chicken-syntax.scm:1337: ##sys#decompose-lambda-list */ -t6=*((C_word*)lf[42]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in ... */ -static void C_ccall f_5987(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(17,c,4)))){ -C_save_and_reclaim((void *)f_5987,c,av);} -a=C_alloc(17); -t5=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_5991,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); -/* chicken-syntax.scm:1340: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[32]; -av2[3]=C_i_car(((C_word*)t0)[5]); -av2[4]=lf[41]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in ... */ -static void C_ccall f_5991(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ -C_save_and_reclaim((void *)f_5991,c,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_6001,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_6001(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_6001(t4,C_a_i_list(&a,3,((C_word*)t0)[16],((C_word*)t0)[15],t2));}} - -/* k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in ... */ -static void f_6001(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_6001,2,t0,t1);} -a=C_alloc(21); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6005,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6007,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li4),tmp=(C_word)a,a+=6,tmp); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6017,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)li7),tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:1347: ##sys#call-with-values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* k6003 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in ... */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ -C_save_and_reclaim((void *)f_6005,c,av);} -a=C_alloc(12); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,4,lf[37],((C_word*)t0)[3],t1,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a6006 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in ... */ -static void C_ccall f_6007(C_word c,C_word *av){ -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_6007,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6015,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1348: take */ -f_4514(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k6013 in a6006 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in ... */ -static void C_ccall f_6015(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ -C_save_and_reclaim((void *)f_6015,c,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_4572,a[2]=t3,a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_4572(t5,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);} - -/* a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 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=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_6017,c,av);} -a=C_alloc(16); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6021,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_6093,a[2]=((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)li6),tmp=(C_word)a,a+=9,tmp)); -t8=((C_word*)t6)[1]; -f_6093(t8,t4,t3,((C_word*)t0)[8]);} - -/* k6019 in a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in ... */ -static void C_ccall f_6021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ -C_save_and_reclaim((void *)f_6021,c,av);} -a=C_alloc(17); -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((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=C_i_check_list_2(((C_word*)t0)[2],lf[39]); -t7=C_i_check_list_2(((C_word*)t0)[4],lf[39]); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6043,a[2]=((C_word*)t0)[3],a[3]=t1,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_6045,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_6045(t12,t8,((C_word*)t0)[2],((C_word*)t0)[4]);}} - -/* k6041 in k6019 in a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_6043,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[35],t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop3375 in k6019 in a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in ... */ -static void f_6045(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_6045,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_list2(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* build in a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in ... */ -static void f_6093(C_word t0,C_word t1,C_word 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_6093,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[35],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=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_u_i_car(C_u_i_cdr(((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_u_i_cdr(((C_word*)t0)[3]); -t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_a_i_cons(&a,2,lf[35],t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} -else{ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6146,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_6194,a[2]=((C_word*)t0)[7],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1355: chicken.base#gensym */ -t6=*((C_word*)lf[33]+1);{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k6144 in build in a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in ... */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ -C_save_and_reclaim((void *)f_6146,c,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6157,a[2]=((C_word*)t0)[6],a[3]=t7,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){ -/* chicken-syntax.scm:1359: build */ -t9=((C_word*)((C_word*)t0)[7])[1]; -f_6093(t9,t8,C_u_i_cdr(((C_word*)t0)[2]),t1);} -else{ -/* chicken-syntax.scm:1360: build */ -t9=((C_word*)((C_word*)t0)[7])[1]; -f_6093(t9,t8,C_SCHEME_END_OF_LIST,t1);}} - -/* k6155 in k6144 in build in a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_6157,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k6192 in build in a6016 in k5999 in k5989 in a5986 in g3332 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6194,c,av);} -/* chicken-syntax.scm:1355: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k6220 in foldr3327 in k5949 in k5942 in k5939 in k5936 in k5933 in k5930 in k5927 in k5924 in k5921 in k5918 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6222,c,av);} -/* chicken-syntax.scm:1335: g3332 */ -t2=((C_word*)t0)[2]; -f_5977(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* a6248 in map-loop3284 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in ... */ -static void C_ccall f_6249(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_6249,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k6257 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in ... */ -static void C_ccall f_6259(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6259,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[47]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop3284 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in ... */ -static void f_6261(C_word t0,C_word 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_6261,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_6286,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_slot(t2,C_fix(0)); -t5=C_i_car(t4); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6249,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:1319: ##sys#decompose-lambda-list */ -t7=*((C_word*)lf[42]+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);}}} - -/* k6284 in map-loop3284 in k5881 in a5878 in k5858 in k5854 in k5851 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in ... */ -static void C_ccall f_6286(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_6286,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_6261(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k6315 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_6317(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6317,c,av);} -/* chicken-syntax.scm:1282: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[51]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a6318 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 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=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_6319,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6323,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1286: r */ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[59]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k6321 in a6318 in k5848 in k5844 in k5841 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in ... */ -static void C_ccall f_6323(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_6323,c,av);} -a=C_alloc(57); -t2=C_a_i_list(&a,1,lf[52]); -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[36],t4); -t6=C_a_i_list(&a,1,lf[53]); -t7=C_a_i_list(&a,2,lf[54],t6); -t8=C_a_i_list(&a,3,lf[55],lf[56],t1); -t9=C_a_i_list(&a,4,lf[36],t1,t7,t8); -t10=C_a_i_list(&a,3,lf[57],t5,t9); -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_a_i_list(&a,3,lf[58],t2,t10); -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} - -/* k6364 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6366,c,av);} -/* chicken-syntax.scm:1203: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[60]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -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=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_6368,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6372,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:1207: r */ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[82]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void C_ccall f_6372(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_6372,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6375,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],tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:1208: r */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[81]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -static void C_ccall f_6375(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_6375,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* chicken-syntax.scm:1209: r */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[80]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_6378(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_6378,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6381,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:1210: r */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[79]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_6381,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6384,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:1211: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[78]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_6384,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* chicken-syntax.scm:1212: r */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[77]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_6387,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6390,a[2]=((C_word*)t0)[2],a[3]=((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); -/* chicken-syntax.scm:1213: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[76]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_6390,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6393,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:1214: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[75]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in ... */ -static void C_ccall f_6393(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_6393,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6396,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); -/* chicken-syntax.scm:1215: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[74]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in ... */ -static void C_ccall f_6396(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_6396,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); -/* chicken-syntax.scm:1216: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[73]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in ... */ -static void C_ccall f_6399(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_6399,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6402,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,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); -/* chicken-syntax.scm:1217: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[72]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_6402,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6405,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],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); -/* chicken-syntax.scm:1218: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[71]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in ... */ -static void C_ccall f_6405(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ -C_save_and_reclaim((void *)f_6405,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6408,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,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); -/* chicken-syntax.scm:1219: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[70]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in ... */ -static void C_ccall f_6408(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ -C_save_and_reclaim((void *)f_6408,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_6411,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=t1,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); -/* chicken-syntax.scm:1220: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[69]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in ... */ -static void C_ccall f_6411(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,4)))){ -C_save_and_reclaim((void *)f_6411,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_6414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=t1,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); -/* chicken-syntax.scm:1221: ##sys#check-syntax */ -t3=*((C_word*)lf[40]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[60]; -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[68]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in k5823 in ... */ -static void C_ccall f_6414(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ -C_save_and_reclaim((void *)f_6414,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_6417,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],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); -/* chicken-syntax.scm:1222: scheme#caadr */ -t3=*((C_word*)lf[67]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in k5826 in ... */ -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 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(66,c,5)))){ -C_save_and_reclaim((void *)f_6417,c,av);} -a=C_alloc(66); -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_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_6424,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t8,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word)li15),tmp=(C_word)a,a+=12,tmp)); -t10=C_a_i_list(&a,1,((C_word*)t0)[11]); -t11=C_a_i_list(&a,1,((C_word*)t0)[12]); -t12=C_a_i_list(&a,1,((C_word*)t0)[13]); -t13=C_a_i_list(&a,2,t1,((C_word*)t0)[12]); -t14=C_a_i_list(&a,1,t13); -t15=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6728,a[2]=((C_word*)t0)[5],a[3]=t14,a[4]=((C_word*)t0)[14],a[5]=((C_word*)t0)[11],a[6]=t12,a[7]=t11,a[8]=t6,a[9]=((C_word*)t0)[15],a[10]=((C_word*)t0)[16],a[11]=t10,a[12]=((C_word*)t0)[17],tmp=(C_word)a,a+=13,tmp); -t16=C_a_i_list(&a,2,lf[66],((C_word*)t0)[12]); -t17=C_a_i_list(&a,3,((C_word*)t0)[14],C_SCHEME_END_OF_LIST,t16); -t18=C_a_i_list(&a,2,((C_word*)t0)[13],t17); -/* chicken-syntax.scm:1261: guard-aux */ -t19=((C_word*)t8)[1]; -f_6424(t19,t15,t18,C_i_car(t4),C_u_i_cdr(t4));} - -/* guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in ... */ -static void f_6424(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(18,0,3)))){ -C_save_and_reclaim_args((void *)trf_6424,5,t0,t1,t2,t3,t4);} -a=C_alloc(18); -t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6431,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]=t4,a[8]=t2,a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp); -if(C_truep(C_i_pairp(t3))){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6628,a[2]=t5,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1226: c */ -t7=((C_word*)t0)[8];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[10]; -av2[3]=C_u_i_car(t3); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -t6=t5; -f_6431(t6,C_SCHEME_FALSE);}} - -/* k6429 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in ... */ -static void f_6431(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_6431,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word av2[2]; -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);}} -else{ -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6444,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[4],tmp=(C_word)a,a+=12,tmp); -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){ -t3=C_i_cddr(((C_word*)t0)[2]); -if(C_truep(C_i_pairp(t3))){ -t4=C_u_i_cdr(((C_word*)t0)[2]); -/* chicken-syntax.scm:1230: c */ -t5=((C_word*)t0)[12];{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t2; -av2[2]=((C_word*)t0)[13]; -av2[3]=C_u_i_car(t4); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t4=t2;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_6444(2,av2);}}} -else{ -t3=t2;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_6444(2,av2);}}} -else{ -t3=t2;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_6444(2,av2);}}}} - -/* k6442 in k6429 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in ... */ -static void C_ccall f_6444(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_6444,c,av);} -a=C_alloc(21); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6447,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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-syntax.scm:1231: r */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[61]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=C_i_pairp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE); -if(C_truep(t3)){ -if(C_truep(C_i_nullp(((C_word*)t0)[6]))){ -t4=C_i_car(((C_word*)t0)[2]); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,3,((C_word*)t0)[10],t4,((C_word*)t0)[7]); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:1241: r */ -t5=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[61]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} -else{ -t4=C_i_pairp(((C_word*)t0)[2]); -t5=(C_truep(t4)?C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_i_car(((C_word*)t0)[2]); -t7=C_u_i_cdr(((C_word*)t0)[2]); -t8=C_a_i_cons(&a,2,((C_word*)t0)[11],t7); -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6562,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=t8,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_nullp(((C_word*)t0)[6]))){ -t10=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_a_i_list(&a,4,((C_word*)t0)[3],t6,t8,((C_word*)t0)[7]); -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -/* chicken-syntax.scm:1251: guard-aux */ -t10=((C_word*)((C_word*)t0)[8])[1]; -f_6424(t10,t9,((C_word*)t0)[7],C_i_car(((C_word*)t0)[6]),C_u_i_cdr(((C_word*)t0)[6]));}} -else{ -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} - -/* k6445 in k6442 in k6429 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 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 t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(44,c,4)))){ -C_save_and_reclaim((void *)f_6447,c,av);} -a=C_alloc(44); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,t1,t2); -t4=C_a_i_list(&a,1,t3); -t5=C_i_caddr(((C_word*)t0)[2]); -t6=C_a_i_list(&a,2,t5,t1); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6466,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,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_i_nullp(((C_word*)t0)[6]))){ -t8=C_a_i_list(&a,4,((C_word*)t0)[3],t1,t6,((C_word*)t0)[7]); -t9=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_a_i_list(&a,3,((C_word*)t0)[5],t4,t8); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -/* chicken-syntax.scm:1237: guard-aux */ -t8=((C_word*)((C_word*)t0)[8])[1]; -f_6424(t8,t7,((C_word*)t0)[7],C_i_car(((C_word*)t0)[6]),C_u_i_cdr(((C_word*)t0)[6]));}} - -/* k6464 in k6445 in k6442 in k6429 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ -C_save_and_reclaim((void *)f_6466,c,av);} -a=C_alloc(21); -t2=C_a_i_list(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1); -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k6510 in k6442 in k6429 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in ... */ -static void C_ccall f_6512(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6512,c,av);} -a=C_alloc(16); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,t1,t2); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6527,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:1245: guard-aux */ -t6=((C_word*)((C_word*)t0)[6])[1]; -f_6424(t6,t5,((C_word*)t0)[7],C_i_car(((C_word*)t0)[8]),C_u_i_cdr(((C_word*)t0)[8]));} - -/* k6525 in k6510 in k6442 in k6429 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ -C_save_and_reclaim((void *)f_6527,c,av);} -a=C_alloc(21); -t2=C_a_i_list(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[3],t1); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,((C_word*)t0)[5],((C_word*)t0)[6],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k6560 in k6442 in k6429 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in ... */ -static void C_ccall f_6562(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ -C_save_and_reclaim((void *)f_6562,c,av);} -a=C_alloc(12); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,4,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k6626 in guard-aux in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6628,c,av);} -t2=((C_word*)t0)[2]; -f_6431(t2,(C_truep(t1)?C_i_nullp(((C_word*)t0)[3]):C_SCHEME_FALSE));} - -/* k6726 in k6415 in k6412 in k6409 in k6406 in k6403 in k6400 in k6397 in k6394 in k6391 in k6388 in k6385 in k6382 in k6379 in k6376 in k6373 in k6370 in a6367 in k5838 in k5835 in k5832 in k5829 in ... */ -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 t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word 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(135,c,1)))){ -C_save_and_reclaim((void *)f_6728,c,av);} -a=C_alloc(135); -t2=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=C_a_i_list(&a,3,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t2); -t4=C_a_i_list(&a,2,((C_word*)t0)[5],t3); -t5=C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[6],t4); -t6=C_a_i_list(&a,2,lf[62],t5); -t7=C_a_i_list(&a,1,t6); -t8=C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[7],t7); -t9=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[8]); -t10=C_a_i_cons(&a,2,((C_word*)t0)[4],t9); -t11=C_a_i_list(&a,3,((C_word*)t0)[9],((C_word*)t0)[10],lf[63]); -t12=C_a_i_list(&a,3,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t11); -t13=C_a_i_list(&a,2,((C_word*)t0)[5],t12); -t14=C_a_i_list(&a,3,((C_word*)t0)[4],lf[63],t13); -t15=C_a_i_list(&a,3,lf[64],t10,t14); -t16=C_a_i_list(&a,3,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t15); -t17=C_a_i_list(&a,3,lf[65],t8,t16); -t18=C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[11],t17); -t19=C_a_i_list(&a,2,lf[62],t18); -t20=((C_word*)t0)[12];{ -C_word *av2=av; -av2[0]=t20; -av2[1]=C_a_i_list(&a,1,t19); -((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} - -/* k6752 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6754,c,av);} -/* chicken-syntax.scm:1180: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[83]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in ... */ -static void C_ccall f_6756(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_6756,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6760,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:1185: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[83]; -av2[3]=t2; -av2[4]=lf[94]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k6758 in a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 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 t5; -C_word 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_6760,c,av);} -a=C_alloc(9); -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_i_nullp(t4); -t6=(C_truep(t5)?lf[84]:C_i_car(t4)); -t7=t6; -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_6771,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t8,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:1189: r */ -t10=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[93]; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} - -/* k6769 in k6758 in a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void C_ccall f_6771(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_6771,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6774,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_i_stringp(((C_word*)((C_word*)t0)[5])[1]))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6826,a[2]=((C_word*)t0)[5],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1191: chicken.syntax#get-line-number */ -t4=*((C_word*)lf[92]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=t2; -f_6774(t3,C_SCHEME_UNDEFINED);}} - -/* k6772 in k6769 in k6758 in a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -static void f_6774(C_word t0,C_word 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(25,0,2)))){ -C_save_and_reclaim_args((void *)trf_6774,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=C_a_i_list(&a,2,lf[85],((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6797,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ -t6=C_u_i_cdr(((C_word*)t0)[5]); -t7=t5; -f_6797(t7,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[6])[1],t6));} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6816,a[2]=t5,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1200: chicken.syntax#strip-syntax */ -t7=*((C_word*)lf[88]+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);}}} - -/* k6795 in k6772 in k6769 in k6758 in a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void f_6797(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_6797,2,t0,t1);} -a=C_alloc(24); -t2=C_a_i_cons(&a,2,lf[86],t1); -t3=C_a_i_list(&a,4,lf[37],((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[35],((C_word*)t0)[5],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k6814 in k6772 in k6769 in k6758 in a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_6816(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ -C_save_and_reclaim((void *)f_6816,c,av);} -a=C_alloc(12); -t2=C_a_i_list(&a,2,lf[87],t1); -t3=C_a_i_list(&a,1,t2); -t4=((C_word*)t0)[2]; -f_6797(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t3));} - -/* k6824 in k6769 in k6758 in a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -static void C_ccall f_6826(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ -C_save_and_reclaim((void *)f_6826,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6833,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1192: string-append */ -t3=*((C_word*)lf[89]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[90]; -av2[3]=t1; -av2[4]=lf[91]; -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_6774(t2,C_SCHEME_FALSE);}} - -/* k6831 in k6824 in k6769 in k6758 in a6755 in k5835 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6833,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3]; -f_6774(t3,t2);} - -/* k6841 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -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,4)))){ -C_save_and_reclaim((void *)f_6843,c,av);} -/* chicken-syntax.scm:1170: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[95]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a6844 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -static void C_ccall f_6845(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_6845,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6853,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1175: r */ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[96]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k6851 in a6844 in k5832 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in ... */ -static void C_ccall f_6853(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_6853,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k6859 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_6861(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6861,c,av);} -/* chicken-syntax.scm:1154: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[97]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a6862 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 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=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_6863,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6867,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1158: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[97]; -av2[3]=t2; -av2[4]=lf[99]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k6865 in a6862 in k5829 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ -C_save_and_reclaim((void *)f_6867,c,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_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[36],t7); -t9=C_a_i_list(&a,2,t3,t8); -t10=C_a_i_list(&a,1,t9); -t11=C_u_i_car(t2); -t12=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=C_a_i_list(&a,3,lf[98],t10,t11); -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} -else{ -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_u_i_cdr(t3); -t5=C_a_i_cons(&a,2,t2,t4); -t6=C_a_i_list(&a,1,t5); -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_list(&a,3,lf[98],t6,t2); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* k6924 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6926,c,av);} -/* chicken-syntax.scm:1112: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[101]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void C_ccall f_6928(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_6928,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6932,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:1117: r */ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[75]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 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; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_6932,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6935,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); -/* chicken-syntax.scm:1118: r */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[107]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -static void C_ccall f_6935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_6935,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6938,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -/* chicken-syntax.scm:1119: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[106]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_6938,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6941,a[2]=((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],tmp=(C_word)a,a+=9,tmp); -t3=C_i_cdr(((C_word*)t0)[2]); -if(C_truep(C_i_nullp(t3))){ -/* chicken-syntax.scm:1121: ##sys#syntax-error */ -t4=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[101]; -av2[3]=lf[105]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_6941(2,av2);}}} - -/* k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void C_ccall f_6941(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,7)))){ -C_save_and_reclaim((void *)f_6941,c,av);} -a=C_alloc(12); -t2=C_u_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|9,a[1]=(C_word)f_6948,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*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li20),tmp=(C_word)a,a+=10,tmp)); -t6=((C_word*)t4)[1]; -f_6948(t6,((C_word*)t0)[8],t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} - -/* loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void f_6948(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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_6948,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_6958,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:1124: scheme#reverse */ -t8=*((C_word*)lf[38]+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_7027,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); -/* chicken-syntax.scm:1134: c */ -t8=((C_word*)t0)[6];{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} - -/* k6956 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_6958,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6961,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -/* chicken-syntax.scm:1125: scheme#reverse */ -t3=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6959 in k6956 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,2)))){ -C_save_and_reclaim((void *)f_6961,c,av);} -a=C_alloc(21); -if(C_truep(((C_word*)t0)[2])){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6967,a[2]=t1,a[3]=((C_word*)t0)[3],a[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_7004,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1127: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=C_i_car(t1); -t3=C_u_i_cdr(t1); -t4=C_a_i_cons(&a,2,t2,t3); -t5=C_a_i_list(&a,3,lf[36],((C_word*)t0)[6],t4); -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[5],t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k6965 in k6959 in k6956 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 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(7,c,3)))){ -C_save_and_reclaim((void *)f_6967,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:1128: ##sys#append */ -t3=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k6976 in k6965 in k6959 in k6956 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in ... */ -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 t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_6978,c,av);} -a=C_alloc(10); -t2=C_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6994,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); -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_a_i_list(&a,1,((C_word*)t0)[6]); -/* chicken-syntax.scm:1128: ##sys#append */ -t6=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t3; -av2[2]=t4; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k6992 in k6976 in k6965 in k6959 in k6956 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ -C_save_and_reclaim((void *)f_6994,c,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[36],((C_word*)t0)[4],t3); -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[6],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k7002 in k6959 in k6956 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 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,2)))){ -C_save_and_reclaim((void *)f_7004,c,av);} -/* chicken-syntax.scm:1127: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7025 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -static void C_ccall f_7027(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_7027,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7030,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_7047,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1135: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7053,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); -/* chicken-syntax.scm:1137: c */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[11]; -av2[3]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k7028 in k7025 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_7030(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_7030,c,av);} -a=C_alloc(6); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); -/* chicken-syntax.scm:1136: loop */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_6948(t5,((C_word*)t0)[6],t2,t3,((C_word*)t0)[7],t4,C_SCHEME_FALSE);} - -/* k7045 in k7025 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_7047(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7047,c,av);} -/* chicken-syntax.scm:1135: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7051 in k7025 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_7053(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ -C_save_and_reclaim((void *)f_7053,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){ -/* chicken-syntax.scm:1139: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_6948(t2,((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:1140: ##sys#syntax-error */ -t2=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[101]; -av2[3]=lf[104]; -av2[4]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7070,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_7093,a[2]=((C_word*)t0)[9],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1145: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k7068 in k7051 in k7025 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in ... */ -static void C_ccall f_7070(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ -C_save_and_reclaim((void *)f_7070,c,av);} -a=C_alloc(12); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_u_i_car(((C_word*)t0)[2]); -t4=C_a_i_list2(&a,2,t1,t3); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[3]); -t6=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); -/* chicken-syntax.scm:1146: loop */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_6948(t7,((C_word*)t0)[6],t2,((C_word*)t0)[7],t5,t6,C_SCHEME_FALSE);} - -/* k7091 in k7051 in k7025 in loop in k6939 in k6936 in k6933 in k6930 in a6927 in k5826 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7093,c,av);} -/* chicken-syntax.scm:1145: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7119 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7121,c,av);} -/* chicken-syntax.scm:1079: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[108]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -static void C_ccall f_7123(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_7123,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7127,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:1084: r */ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[107]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7127,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7130,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],tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:1085: r */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[106]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_7130(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_7130,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7133,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); -/* chicken-syntax.scm:1086: r */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[75]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -static void C_ccall f_7133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_7133,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7136,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -t3=C_i_cdr(((C_word*)t0)[2]); -if(C_truep(C_i_nullp(t3))){ -/* chicken-syntax.scm:1088: ##sys#syntax-error */ -t4=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[108]; -av2[3]=lf[110]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_7136(2,av2);}}} - -/* k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in ... */ -static void C_ccall f_7136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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,6)))){ -C_save_and_reclaim((void *)f_7136,c,av);} -a=C_alloc(12); -t2=C_u_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|9,a[1]=(C_word)f_7143,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*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li22),tmp=(C_word)a,a+=10,tmp)); -t6=((C_word*)t4)[1]; -f_7143(t6,((C_word*)t0)[8],t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} - -/* loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void f_7143(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(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_7143,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_7153,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:1091: scheme#reverse */ -t7=*((C_word*)lf[38]+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_7218,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); -/* chicken-syntax.scm:1100: c */ -t7=((C_word*)t0)[6];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k7151 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7153,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,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]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:1092: scheme#reverse */ -t3=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7154 in k7151 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 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 t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ -C_save_and_reclaim((void *)f_7156,c,av);} -a=C_alloc(18); -if(C_truep(((C_word*)t0)[2])){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7162,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7195,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1094: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=C_i_car(t1); -t3=C_a_i_list(&a,2,lf[58],t2); -t4=C_u_i_cdr(t1); -t5=C_a_i_cons(&a,2,t3,t4); -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,3,lf[36],((C_word*)t0)[5],t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k7160 in k7154 in k7151 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_7162(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_7162,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7169,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); -/* chicken-syntax.scm:1095: ##sys#append */ -t3=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k7167 in k7160 in k7154 in k7151 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in ... */ -static void C_ccall f_7169(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_7169,c,av);} -a=C_alloc(9); -t2=C_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7185,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_a_i_list(&a,1,((C_word*)t0)[5]); -/* chicken-syntax.scm:1095: ##sys#append */ -t6=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t3; -av2[2]=t4; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k7183 in k7167 in k7160 in k7154 in k7151 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in ... */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ -C_save_and_reclaim((void *)f_7185,c,av);} -a=C_alloc(15); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,3,lf[36],((C_word*)t0)[5],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k7193 in k7154 in k7151 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_7195(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7195,c,av);} -/* chicken-syntax.scm:1094: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7216 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void C_ccall f_7218(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_7218,c,av);} -a=C_alloc(11); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7221,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_7238,a[2]=((C_word*)t0)[7],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1101: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7244,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); -/* chicken-syntax.scm:1103: c */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[10]; -av2[3]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k7219 in k7216 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ -C_save_and_reclaim((void *)f_7221,c,av);} -a=C_alloc(6); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); -/* chicken-syntax.scm:1102: loop */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_7143(t5,((C_word*)t0)[6],t2,t3,t4,C_SCHEME_FALSE);} - -/* k7236 in k7216 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -static void C_ccall f_7238(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7238,c,av);} -/* chicken-syntax.scm:1101: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7242 in k7216 in loop in k7134 in k7131 in k7128 in k7125 in a7122 in k5823 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -static void C_ccall f_7244(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_7244,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){ -/* chicken-syntax.scm:1105: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_7143(t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_TRUE);} -else{ -/* chicken-syntax.scm:1106: ##sys#syntax-error */ -t2=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[108]; -av2[3]=lf[109]; -av2[4]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} -else{ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_u_i_car(((C_word*)t0)[2]); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[6]); -/* chicken-syntax.scm:1110: loop */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_7143(t5,((C_word*)t0)[4],t2,((C_word*)t0)[5],t4,C_SCHEME_FALSE);}} - -/* k7291 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7293,c,av);} -/* chicken-syntax.scm:981: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[111]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -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=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_7295,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7299,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:986: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[111]; -av2[3]=t2; -av2[4]=lf[132]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 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(7,c,2)))){ -C_save_and_reclaim((void *)f_7299,c,av);} -a=C_alloc(7); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7305,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:991: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[88]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_7305,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7308,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7786,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:992: ##sys#current-module */ -t4=*((C_word*)lf[131]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_7308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_7308,c,av);} -a=C_alloc(10); -t2=C_i_caddr(((C_word*)t0)[2]); -t3=C_i_cadddr(((C_word*)t0)[2]); -t4=C_i_cddddr(((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7320,a[2]=t2,a[3]=t4,a[4]=t1,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],tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:1000: r */ -t6=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[127]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_7320,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7323,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],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* chicken-syntax.scm:1001: r */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[126]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in ... */ -static void C_ccall f_7323(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_7323,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7326,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],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:1002: r */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[79]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void C_ccall f_7326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_7326,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7329,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,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:1003: r */ -t3=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[125]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_7329,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,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:1004: r */ -t3=((C_word*)t0)[12];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[124]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 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; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ -C_save_and_reclaim((void *)f_7332,c,av);} -a=C_alloc(16); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_7338,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],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]=t1,a[15]=((C_word*)t0)[13],tmp=(C_word)a,a+=16,tmp); -/* chicken-syntax.scm:1006: r */ -t4=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[123]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -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(16,c,2)))){ -C_save_and_reclaim((void *)f_7338,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_7341,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,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); -/* chicken-syntax.scm:1007: r */ -t3=((C_word*)t0)[15];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[122]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in ... */ -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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_7341,c,av);} -a=C_alloc(30); -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[39]); -t7=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7350,a[2]=((C_word*)t0)[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]=t1,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|5,a[1]=(C_word)f_7751,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_7751(t11,t7,((C_word*)t0)[2]);} - -/* k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in ... */ -static void C_ccall f_7350(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ -C_save_and_reclaim((void *)f_7350,c,av);} -a=C_alloc(29); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7351,a[2]=t1,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[2],lf[113]); -t4=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_7367,a[2]=((C_word*)t0)[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]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[14],a[16]=((C_word*)t0)[15],a[17]=((C_word*)t0)[16],tmp=(C_word)a,a+=18,tmp); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_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_7728,a[2]=t6,a[3]=t2,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_7728(t8,t4,((C_word*)t0)[2]);} - -/* g2986 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -static void f_7351(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_7351,3,t0,t1,t2);} -if(C_truep(C_i_memq(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{ -/* chicken-syntax.scm:1012: ##sys#syntax-error */ -t3=*((C_word*)lf[103]+1);{ -C_word av2[5]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[111]; -av2[3]=lf[112]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -static void C_ccall f_7367(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word 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(65,c,3)))){ -C_save_and_reclaim((void *)f_7367,c,av);} -a=C_alloc(65); -t2=C_a_i_list(&a,2,lf[87],((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,((C_word*)t0)[3],t2); -t4=C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],t3); -t5=C_u_i_car(((C_word*)t0)[6]); -t6=C_a_i_list(&a,2,((C_word*)t0)[7],((C_word*)t0)[5]); -t7=C_a_i_list(&a,1,t6); -t8=C_u_i_cdr(((C_word*)t0)[6]); -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_7667,a[2]=((C_word*)t0)[8],a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); -t14=C_i_check_list_2(((C_word*)t0)[9],lf[39]); -t15=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7680,a[2]=((C_word*)t0)[7],a[3]=t8,a[4]=((C_word*)t0)[10],a[5]=t7,a[6]=((C_word*)t0)[4],a[7]=t5,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=t4,a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],tmp=(C_word)a,a+=17,tmp); -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_7682,a[2]=t13,a[3]=t11,a[4]=t17,a[5]=t12,a[6]=((C_word)li27),tmp=(C_word)a,a+=7,tmp)); -t19=((C_word*)t17)[1]; -f_7682(t19,t15,((C_word*)t0)[9]);} - -/* k7396 in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in ... */ -static void C_ccall f_7398(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_7398,c,av);} -a=C_alloc(12); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_cons(&a,2,lf[58],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in ... */ -static void f_7400(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(21,0,3)))){ -C_save_and_reclaim_args((void *)trf_7400,4,t0,t1,t2,t3);} -a=C_alloc(21); -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_cddr(t4); -t6=C_i_pairp(t5); -t7=(C_truep(t6)?C_i_caddr(t4):C_SCHEME_FALSE); -t8=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7419,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=t1,a[8]=t2,a[9]=((C_word*)t0)[5],a[10]=t6,a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],a[14]=t7,a[15]=((C_word*)t0)[9],a[16]=((C_word*)t0)[10],tmp=(C_word)a,a+=17,tmp); -if(C_truep(C_i_pairp(t7))){ -if(C_truep(C_i_pairp(C_u_i_cdr(t7)))){ -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7600,a[2]=t8,a[3]=t7,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:1041: c */ -t10=((C_word*)t0)[8];{ -C_word av2[4]; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[121]; -av2[3]=C_u_i_car(t7); -((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} -else{ -t9=t8; -f_7419(t9,C_SCHEME_FALSE);}} -else{ -t9=t8; -f_7419(t9,C_SCHEME_FALSE);}}} - -/* k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in ... */ -static void f_7419(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(119,0,2)))){ -C_save_and_reclaim_args((void *)trf_7419,2,t0,t1);} -a=C_alloc(119); -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,2,lf[87],t3); -t5=C_a_i_list(&a,4,lf[117],((C_word*)t0)[2],((C_word*)t0)[4],t4); -t6=C_a_i_list(&a,2,lf[85],t5); -t7=C_a_i_list(&a,3,lf[118],((C_word*)t0)[2],((C_word*)t0)[5]); -t8=C_a_i_list(&a,4,lf[36],t2,t6,t7); -t9=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7425,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=t1,a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=t8,tmp=(C_word)a,a+=17,tmp); -if(C_truep(((C_word*)t0)[10])){ -t10=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[16]); -t11=C_a_i_list(&a,2,lf[87],t1); -t12=C_a_i_list(&a,4,lf[117],((C_word*)t0)[2],((C_word*)t0)[4],t11); -t13=C_a_i_list(&a,2,lf[85],t12); -t14=C_a_i_list(&a,4,lf[120],((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[16]); -t15=t9; -f_7425(t15,C_a_i_list(&a,4,lf[36],t10,t13,t14));} -else{ -t10=t9; -f_7425(t10,C_SCHEME_FALSE);}} - -/* k7423 in k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in ... */ -static void f_7425(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(34,0,3)))){ -C_save_and_reclaim_args((void *)trf_7425,2,t0,t1);} -a=C_alloc(34); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_u_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_7514,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],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],a[15]=((C_word*)t0)[2],a[16]=((C_word*)t0)[14],tmp=(C_word)a,a+=17,tmp); -t5=C_a_i_list(&a,2,((C_word*)t0)[10],((C_word*)t0)[11]); -t6=C_a_i_list(&a,1,t5); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7525,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[16],a[4]=t1,a[5]=t4,a[6]=((C_word*)t0)[12],a[7]=t6,tmp=(C_word)a,a+=8,tmp); -if(C_truep(((C_word*)t0)[9])){ -t8=C_u_i_cdr(((C_word*)t0)[2]); -/* chicken-syntax.scm:1063: c */ -t9=((C_word*)t0)[13];{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t7; -av2[2]=((C_word*)t0)[9]; -av2[3]=C_u_i_car(t8); -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -t8=t7;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_FALSE; -f_7525(2,av2);}}} - -/* k7434 in k7512 in k7423 in k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 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(3,c,1)))){ -C_save_and_reclaim((void *)f_7436,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k7438 in k7512 in k7423 in k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in ... */ -static void f_7440(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,3)))){ -C_save_and_reclaim_args((void *)trf_7440,2,t0,t1);} -a=C_alloc(33); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7444,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -/* chicken-syntax.scm:1074: loop */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_7400(t5,t2,t3,t4);} - -/* k7442 in k7438 in k7512 in k7423 in k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in ... */ -static void C_ccall f_7444(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_7444,c,av);} -/* chicken-syntax.scm:1060: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k7482 in k7512 in k7423 in k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in ... */ -static void C_ccall f_7484(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(36,c,1)))){ -C_save_and_reclaim((void *)f_7484,c,av);} -a=C_alloc(36); -if(C_truep(C_i_not(t1))){ -t2=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_a_i_list(&a,1,t2); -t4=C_a_i_list(&a,2,lf[119],lf[119]); -t5=C_a_i_list(&a,3,t4,((C_word*)t0)[4],((C_word*)t0)[5]); -t6=C_a_i_list(&a,3,((C_word*)t0)[6],t3,t5); -t7=((C_word*)t0)[7]; -f_7440(t7,C_a_i_list(&a,1,t6));} -else{ -t2=((C_word*)t0)[7]; -f_7440(t2,C_SCHEME_END_OF_LIST);}} - -/* k7512 in k7423 in k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in ... */ -static void f_7514(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(49,0,3)))){ -C_save_and_reclaim_args((void *)trf_7514,2,t0,t1);} -a=C_alloc(49); -t2=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7436,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7440,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); -if(C_truep(((C_word*)t0)[8])){ -if(C_truep(((C_word*)t0)[9])){ -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7484,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=t4,tmp=(C_word)a,a+=8,tmp); -/* chicken-syntax.scm:1068: c */ -t6=((C_word*)t0)[14];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[9]; -av2[3]=C_i_cadr(((C_word*)t0)[15]); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t5=C_a_i_list(&a,2,((C_word*)t0)[10],((C_word*)t0)[11]); -t6=C_a_i_list(&a,1,t5); -t7=C_a_i_list(&a,3,((C_word*)t0)[13],t6,((C_word*)t0)[12]); -t8=C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[16],t7); -t9=t4; -f_7440(t9,C_a_i_list(&a,1,t8));}} -else{ -t5=t4; -f_7440(t5,C_SCHEME_END_OF_LIST);}} - -/* k7523 in k7423 in k7417 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in ... */ -static void C_ccall f_7525(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ -C_save_and_reclaim((void *)f_7525,c,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_7514(t3,C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],t2));} -else{ -t2=((C_word*)t0)[5]; -f_7514(t2,C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[3]));}} - -/* k7598 in loop in k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in ... */ -static void C_ccall f_7600(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7600,c,av);} -t2=((C_word*)t0)[2]; -f_7419(t2,(C_truep(t1)?C_i_cadr(((C_word*)t0)[3]):C_SCHEME_FALSE));} - -/* g3012 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in ... */ -static C_word f_7667(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_memq(t1,((C_word*)t0)[2]); -return((C_truep(t2)?t1:lf[114]));} - -/* k7678 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in ... */ -static void C_ccall f_7680(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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(101,c,4)))){ -C_save_and_reclaim((void *)f_7680,c,av);} -a=C_alloc(101); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,lf[115],t2); -t4=C_a_i_list(&a,3,lf[36],((C_word*)t0)[3],t3); -t5=C_a_i_list(&a,3,((C_word*)t0)[4],((C_word*)t0)[5],t4); -t6=C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[7],t5); -t7=C_a_i_list(&a,2,((C_word*)t0)[2],((C_word*)t0)[8]); -t8=C_a_i_list(&a,1,t7); -t9=C_a_i_list(&a,1,((C_word*)t0)[9]); -t10=C_a_i_list(&a,3,lf[116],((C_word*)t0)[9],((C_word*)t0)[2]); -t11=C_a_i_list(&a,3,lf[36],t9,t10); -t12=C_a_i_list(&a,3,((C_word*)t0)[4],t8,t11); -t13=C_a_i_list(&a,3,((C_word*)t0)[6],((C_word*)t0)[10],t12); -t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7398,a[2]=t13,a[3]=t6,a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],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|11,a[1]=(C_word)f_7400,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=t16,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[15],a[11]=((C_word)li26),tmp=(C_word)a,a+=12,tmp)); -t18=((C_word*)t16)[1]; -f_7400(t18,t14,((C_word*)t0)[16],C_fix(1));} - -/* map-loop3006 in k7365 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in ... */ -static void f_7682(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_7682,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* chicken-syntax.scm:1024: g3012 */ - f_7667(((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* for-each-loop2985 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -static void f_7728(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_7728,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7738,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:1010: g2986 */ -t4=((C_word*)t0)[3]; -f_7351(t4,t3,C_slot(t2,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);}}} - -/* k7736 in for-each-loop2985 in k7348 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7738,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_7728(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* map-loop2959 in k7339 in k7336 in k7330 in k7327 in k7324 in k7321 in k7318 in k7306 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in ... */ -static void f_7751(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_7751,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k7784 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7786,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7793,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_7797,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:994: ##sys#current-module */ -t4=*((C_word*)lf[131]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -f_7308(2,av2);}}} - -/* k7791 in k7784 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7793,c,av);} -/* chicken-syntax.scm:993: chicken.base#symbol-append */ -t2=*((C_word*)lf[128]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[129]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k7795 in k7784 in k7303 in k7297 in a7294 in k5820 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -static void C_ccall f_7797(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7797,c,av);} -/* chicken-syntax.scm:994: ##sys#module-name */ -t2=*((C_word*)lf[130]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7803 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_7805(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7805,c,av);} -/* chicken-syntax.scm:947: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[135]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -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=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_7807,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7811,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:954: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[135]; -av2[3]=t2; -av2[4]=lf[137]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -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 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_7811,c,av);} -a=C_alloc(7); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_caddr(((C_word*)t0)[2]); -t4=C_u_i_cdr(((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_7823,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t6,a[5]=((C_word*)t0)[4],a[6]=t3,tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:958: r */ -t8=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[133]; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} - -/* k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -static void C_ccall f_7823(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_7823,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7826,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* chicken-syntax.scm:959: r */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[23]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7824 in k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void C_ccall f_7826(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_7826,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7829,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:960: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[25]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7827 in k7824 in k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_7829(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_7829,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:961: r */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[93]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7830 in k7827 in k7824 in k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -static void C_ccall f_7832(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_7832,c,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7843,a[2]=((C_word*)t0)[3],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|8,a[1]=(C_word)f_7845,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]=t6,a[7]=((C_word*)t0)[8],a[8]=((C_word)li31),tmp=(C_word)a,a+=9,tmp)); -t8=((C_word*)t6)[1]; -f_7845(t8,t4,t1,((C_word*)t0)[9]);} - -/* k7841 in k7830 in k7827 in k7824 in k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_7843,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop in k7830 in k7827 in k7824 in k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in ... */ -static void f_7845(C_word t0,C_word t1,C_word 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_7845,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[35],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=C_i_car(t3); -if(C_truep(C_i_pairp(t4))){ -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7871,a[2]=t4,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,tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:969: r */ -t6=((C_word*)t0)[7];{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[136]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=C_a_i_list(&a,2,t4,t2); -t6=C_a_i_list(&a,1,t5); -t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[2]); -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_a_i_cons(&a,2,lf[35],t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} - -/* k7869 in loop in k7830 in k7827 in k7824 in k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void C_ccall f_7871(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(76,c,3)))){ -C_save_and_reclaim((void *)f_7871,c,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[37],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[87],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[37],t8,t9,t10); -t12=C_a_i_list(&a,2,t1,t11); -t13=C_a_i_list(&a,2,t7,t12); -t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7882,a[2]=((C_word*)t0)[7],a[3]=t13,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:976: loop */ -t15=((C_word*)((C_word*)t0)[8])[1]; -f_7845(t15,t14,t1,C_u_i_cdr(((C_word*)t0)[9]));} - -/* k7880 in k7869 in loop in k7830 in k7827 in k7824 in k7821 in k7809 in a7806 in k5817 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void C_ccall f_7882(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_7882,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k7963 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_7965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7965,c,av);} -/* chicken-syntax.scm:919: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[138]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a7966 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_7967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_7967,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7971,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:926: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[138]; -av2[3]=t2; -av2[4]=lf[139]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k7969 in a7966 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_7971(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_7971,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7974,a[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:927: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[93]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7972 in k7969 in a7966 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -static void C_ccall f_7974(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_7974,c,av);} -a=C_alloc(16); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,t1,t2); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8014,a[2]=t1,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); -/* chicken-syntax.scm:929: r */ -t6=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[133]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k8002 in k8012 in k7972 in k7969 in a7966 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void C_ccall f_8004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_8004,c,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[37],((C_word*)t0)[3],((C_word*)t0)[4],t2); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[6],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k8012 in k7972 in k7969 in a7966 in k5814 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -static void C_ccall f_8014(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8014,c,av);} -a=C_alloc(13); -t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); -t3=C_i_cddr(((C_word*)t0)[3]); -t4=C_i_nullp(t3); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_i_car(t3)); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8004,a[2]=((C_word*)t0)[2],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); -/* chicken-syntax.scm:931: r */ -t7=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[23]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k8040 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8042,c,av);} -/* chicken-syntax.scm:830: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[140]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_8044,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8048,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:837: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[140]; -av2[3]=t2; -av2[4]=lf[150]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_8048(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_8048,c,av);} -a=C_alloc(12); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_caddr(((C_word*)t0)[2]); -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_u_i_cdr(t4); -t6=C_u_i_cdr(t5); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8138,a[2]=((C_word*)t0)[3],a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8231,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t6,a[6]=((C_word*)t0)[4],a[7]=t7,tmp=(C_word)a,a+=8,tmp); -/* chicken-syntax.scm:876: ##sys#check-syntax */ -t9=*((C_word*)lf[40]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[140]; -av2[3]=t3; -av2[4]=lf[149]; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_8067,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8071,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); -/* chicken-syntax.scm:847: scheme#reverse */ -t3=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8069 in k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_8071,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8075,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); -/* chicken-syntax.scm:848: scheme#reverse */ -t3=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8073 in k8069 in k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -static void C_ccall f_8075(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8075,c,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_8077,a[2]=t3,a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_8077(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} - -/* recur in k8073 in k8069 in k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in ... */ -static void f_8077(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,2)))){ -C_save_and_reclaim_args((void *)trf_8077,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=C_i_car(t3); -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8116,a[2]=t5,a[3]=t7,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t6,a[7]=t3,a[8]=t4,tmp=(C_word)a,a+=9,tmp); -/* chicken-syntax.scm:853: scheme#reverse */ -t9=*((C_word*)lf[38]+1);{ -C_word av2[3]; -av2[0]=t9; -av2[1]=t8; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} - -/* k8096 in k8122 in k8114 in recur in k8073 in k8069 in k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in ... */ -static void C_ccall f_8098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8098,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8114 in recur in k8073 in k8069 in k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in ... */ -static void C_ccall f_8116(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_8116,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|9,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]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8128,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:854: scheme#reverse */ -t4=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8122 in k8114 in recur in k8073 in k8069 in k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -static void C_ccall f_8124(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(22,c,5)))){ -C_save_and_reclaim((void *)f_8124,c,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[36],((C_word*)t0)[3],t2); -t4=C_a_i_list(&a,2,((C_word*)t0)[4],t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8098,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:855: recur */ -t6=((C_word*)((C_word*)t0)[6])[1]; -f_8077(t6,t5,((C_word*)t0)[7],C_u_i_cdr(((C_word*)t0)[8]),C_u_i_cdr(((C_word*)t0)[9]),C_u_i_car(((C_word*)t0)[8]));} - -/* k8126 in k8114 in recur in k8073 in k8069 in k8065 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in ... */ -static void C_ccall f_8128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_8128,c,av);} -a=C_alloc(3); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_a_i_list(&a,1,t2); -/* chicken-syntax.scm:852: ##sys#append */ -t4=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void f_8138(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_8138,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_8144,a[2]=t4,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[2],a[6]=((C_word)li34),tmp=(C_word)a,a+=7,tmp)); -t9=((C_word*)t7)[1]; -f_8144(t9,t1,t2,t3,C_SCHEME_END_OF_LIST);} - -/* recur in make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -static void f_8144(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_8144,5,t0,t1,t2,t3,t4);} -a=C_alloc(10); -if(C_truep(C_i_nullp(t2))){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8158,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:866: scheme#reverse */ -t6=*((C_word*)lf[38]+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=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8228,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t5,a[5]=t1,a[6]=t2,a[7]=t4,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:868: r */ -t7=((C_word*)t0)[5];{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[133]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} - -/* k8156 in recur in make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8158,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8182 in k8206 in k8214 in k8222 in k8226 in recur in make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in ... */ -static void C_ccall f_8184(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ -C_save_and_reclaim((void *)f_8184,c,av);} -a=C_alloc(21); -t2=C_a_i_list(&a,3,lf[35],((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,4,lf[37],((C_word*)t0)[4],((C_word*)t0)[5],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k8206 in k8214 in k8222 in k8226 in recur in make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -static void C_ccall f_8208(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ -C_save_and_reclaim((void *)f_8208,c,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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8184,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_u_i_cdr(((C_word*)t0)[7]); -t7=C_u_i_cdr(((C_word*)t0)[8]); -t8=C_a_i_cons(&a,2,((C_word*)t0)[9],((C_word*)t0)[10]); -/* chicken-syntax.scm:872: recur */ -t9=((C_word*)((C_word*)t0)[11])[1]; -f_8144(t9,t5,t6,t7,t8);} - -/* k8214 in k8222 in k8226 in recur in make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 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(24,c,2)))){ -C_save_and_reclaim((void *)f_8216,c,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=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8208,a[2]=((C_word*)t0)[2],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)[3],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -/* chicken-syntax.scm:871: r */ -t5=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[25]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k8222 in k8226 in recur in make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void C_ccall f_8224(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_8224,c,av);} -a=C_alloc(15); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8216,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:870: r */ -t4=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[23]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8226 in recur in make-if-tree in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 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(18,c,2)))){ -C_save_and_reclaim((void *)f_8228,c,av);} -a=C_alloc(18); -t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); -t3=C_i_car(((C_word*)t0)[3]); -t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8224,a[2]=t3,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)[3],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); -/* chicken-syntax.scm:869: scheme#reverse */ -t5=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ -C_save_and_reclaim((void *)f_8231,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:877: ##sys#check-syntax */ -t3=*((C_word*)lf[40]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[140]; -av2[3]=((C_word*)t0)[5]; -av2[4]=lf[148]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -static void C_ccall f_8234(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ -C_save_and_reclaim((void *)f_8234,c,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[39]); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8243,a[2]=((C_word*)t0)[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_8442,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li43),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_8442(t11,t7,((C_word*)t0)[2]);} - -/* k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -static void C_ccall f_8243(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(32,c,4)))){ -C_save_and_reclaim((void *)f_8243,c,av);} -a=C_alloc(32); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8244,a[2]=((C_word)li36),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|4,a[1]=(C_word)f_8260,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp); -t8=C_i_check_list_2(t1,lf[39]); -t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8274,a[2]=((C_word*)t0)[2],a[3]=t2,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],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_8408,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li42),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_8408(t13,t9,t1);} - -/* prefix-sym in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void f_8244(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_8244,3,t1,t2,t3);} -a=C_alloc(7); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8252,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8256,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:880: scheme#symbol->string */ -t6=*((C_word*)lf[142]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k8250 in prefix-sym in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_8252(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8252,c,av);} -/* chicken-syntax.scm:880: scheme#string->symbol */ -t2=*((C_word*)lf[141]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k8254 in prefix-sym in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_8256(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8256,c,av);} -/* chicken-syntax.scm:880: scheme#string-append */ -t2=*((C_word*)lf[89]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* g2803 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void f_8260(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_8260,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8268,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:885: prefix-sym */ -f_8244(t3,lf[143],t2);} - -/* k8266 in g2803 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_8268(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8268,c,av);} -/* chicken-syntax.scm:885: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 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 t5; -C_word 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_8274,c,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|9,a[1]=(C_word)f_8280,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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|5,a[1]=(C_word)f_8374,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li41),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_8374(t10,t6,((C_word*)t0)[9]);} - -/* k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_8280,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8283,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp); -/* chicken-syntax.scm:889: r */ -t3=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[147]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_8283,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8286,a[2]=((C_word*)t0)[2],a[3]=((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); -/* chicken-syntax.scm:892: r */ -t3=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[146]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 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 t5; -C_word t6; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_8286,c,av);} -a=C_alloc(31); -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_8290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp); -t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8301,a[2]=t1,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); -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_8340,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,a[6]=((C_word)li40),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_8340(t11,t7,((C_word*)t0)[5]);} - -/* g2860 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void f_8290(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_8290,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8298,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:894: prefix-sym */ -f_8244(t3,lf[144],t2);} - -/* k8296 in g2860 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void C_ccall f_8298(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8298,c,av);} -/* chicken-syntax.scm:894: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void C_ccall f_8301(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_8301,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,tmp=(C_word)a,a+=12,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8067,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[11],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:846: scheme#reverse */ -t4=*((C_word*)lf[38]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8302 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -static void C_ccall f_8304(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_8304,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8307,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:899: make-if-tree */ -t3=((C_word*)t0)[9]; -f_8138(t3,t2,((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[6],((C_word*)t0)[2]);} - -/* k8305 in k8302 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_8307,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp); -/* chicken-syntax.scm:902: r */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[145]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8312 in k8305 in k8302 in k8299 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ -C_save_and_reclaim((void *)f_8314,c,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[36],t3); -t5=C_a_i_list(&a,2,((C_word*)t0)[6],t4); -t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); -t7=C_a_i_cons(&a,2,t2,t6); -t8=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_list(&a,3,t1,t7,((C_word*)t0)[9]); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* map-loop2854 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in ... */ -static void f_8340(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_8340,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8365,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); -/* chicken-syntax.scm:894: g2860 */ -t4=((C_word*)t0)[4]; -f_8290(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k8363 in map-loop2854 in k8284 in k8281 in k8278 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in ... */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_8365,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_8340(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop2825 in k8272 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void f_8374(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_8374,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cadr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* map-loop2797 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in ... */ -static void f_8408(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_8408,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8433,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); -/* chicken-syntax.scm:885: g2803 */ -t4=((C_word*)t0)[4]; -f_8260(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k8431 in map-loop2797 in k8241 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in ... */ -static void C_ccall f_8433(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8433,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_8408(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop2767 in k8232 in k8229 in k8046 in a8043 in k5811 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -static void f_8442(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_8442,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k8488 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8490,c,av);} -/* chicken-syntax.scm:726: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[151]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 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 *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_8492,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8496,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:730: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[151]; -av2[3]=t2; -av2[4]=lf[154]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8496(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_8496,c,av);} -a=C_alloc(8); -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_SCHEME_UNDEFINED; -t6=(*a=C_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_8506,a[2]=t4,a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_8506(t8,((C_word*)t0)[4],t2,C_SCHEME_TRUE);} - -/* fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void f_8506(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_8506,4,t0,t1,t2,t3);} -a=C_alloc(10); -if(C_truep(C_i_nullp(t2))){ -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_a_i_cons(&a,2,lf[58],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=C_i_car(t2); -t5=C_u_i_cdr(t2); -t6=C_i_pairp(t4); -if(C_truep(C_i_not(t6))){ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8533,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t5,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); -/* chicken-syntax.scm:739: ##sys#check-syntax */ -t8=*((C_word*)lf[40]+1);{ -C_word av2[5]; -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[151]; -av2[3]=t4; -av2[4]=lf[152]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} -else{ -t7=C_i_cdr(t4); -if(C_truep(C_i_nullp(t7))){ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8568,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t5,tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8593,a[2]=((C_word*)t0)[4],a[3]=t8,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:744: chicken.base#gensym */ -t10=*((C_word*)lf[33]+1);{ -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|5,a[1]=(C_word)f_8596,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:748: ##sys#check-syntax */ -t9=*((C_word*)lf[40]+1);{ -C_word av2[5]; -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[151]; -av2[3]=t4; -av2[4]=lf[153]; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}} - -/* k8531 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_8533(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_8533,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8536,a[2]=((C_word*)t0)[2],a[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_8559,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:740: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k8534 in k8531 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -static void C_ccall f_8536(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8536,c,av);} -a=C_alloc(14); -t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); -t3=C_a_i_list(&a,1,t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8551,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:742: fold */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_8506(t5,t4,((C_word*)t0)[5],t1);} - -/* k8549 in k8534 in k8531 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in ... */ -static void C_ccall f_8551(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_8551,c,av);} -a=C_alloc(21); -t2=C_a_i_list(&a,4,lf[37],((C_word*)t0)[2],t1,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k8557 in k8531 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -static void C_ccall f_8559(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8559,c,av);} -/* chicken-syntax.scm:740: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k8566 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_8568(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_8568,c,av);} -a=C_alloc(14); -t2=C_u_i_car(((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,t1,t2); -t4=C_a_i_list(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8583,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:746: fold */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_8506(t6,t5,((C_word*)t0)[5],t1);} - -/* k8581 in k8566 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ -C_save_and_reclaim((void *)f_8583,c,av);} -a=C_alloc(21); -t2=C_a_i_list(&a,4,lf[37],((C_word*)t0)[2],t1,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k8591 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_8593(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8593,c,av);} -/* chicken-syntax.scm:744: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k8594 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_8596(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8596,c,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8612,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:751: fold */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_8506(t7,t6,((C_word*)t0)[5],t2);} - -/* k8610 in k8594 in fold in k8494 in a8491 in k5808 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in ... */ -static void C_ccall f_8612(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ -C_save_and_reclaim((void *)f_8612,c,av);} -a=C_alloc(21); -t2=C_a_i_list(&a,4,lf[37],((C_word*)t0)[2],t1,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k8630 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8632,c,av);} -/* chicken-syntax.scm:705: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[155]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_8634(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,4)))){ -C_save_and_reclaim((void *)f_8634,c,av);} -a=C_alloc(8); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8636,a[2]=t4,a[3]=t3,a[4]=((C_word)li47),tmp=(C_word)a,a+=5,tmp); -t7=t5=t6; -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8724,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:724: quotify-proc */ -t9=t5;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_cdr(t2); -av2[3]=lf[155]; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} - -/* quotify-proc2667 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void C_ccall f_8636(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,4)))){ -C_save_and_reclaim((void *)f_8636,c,av);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8640,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:711: ##sys#check-syntax */ -t5=*((C_word*)lf[40]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -av2[3]=t2; -av2[4]=lf[157]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k8638 in quotify-proc2667 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8640(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_8640,c,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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8649,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); -if(C_truep(C_i_pairp(t2))){ -t6=C_u_i_cdr(t2); -t7=C_u_i_cdr(((C_word*)t0)[2]); -t8=C_a_i_cons(&a,2,t6,t7); -t9=t5; -f_8649(t9,C_a_i_cons(&a,2,lf[36],t8));} -else{ -t6=t5; -f_8649(t6,C_i_cadr(((C_word*)t0)[2]));}} - -/* k8647 in k8638 in quotify-proc2667 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void f_8649(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,0,2)))){ -C_save_and_reclaim_args((void *)trf_8649,2,t0,t1);} -a=C_alloc(19); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8652,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_pairp(t1); -t4=C_i_not(t3); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8661,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -if(C_truep(t4)){ -t6=t5; -f_8661(t6,t4);} -else{ -t6=C_i_car(t1); -t7=C_eqp(lf[36],t6); -if(C_truep(C_i_not(t7))){ -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8677,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8681,a[2]=((C_word*)t0)[4],a[3]=t8,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:719: r */ -t10=((C_word*)t0)[5];{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[69]; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} -else{ -t8=t5; -f_8661(t8,C_SCHEME_FALSE);}}} - -/* k8650 in k8647 in k8638 in quotify-proc2667 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_8652(C_word c,C_word *av){ -C_word tmp; -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_8652,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8659 in k8647 in k8638 in quotify-proc2667 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void f_8661(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_8661,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -/* chicken-syntax.scm:720: ##sys#syntax-error */ -t2=*((C_word*)lf[103]+1);{ -C_word av2[6]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[155]; -av2[3]=lf[156]; -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);}}} - -/* k8675 in k8647 in k8638 in quotify-proc2667 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 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,1)))){ -C_save_and_reclaim((void *)f_8677,c,av);} -t2=((C_word*)t0)[2]; -f_8661(t2,C_i_not(t1));} - -/* k8679 in k8647 in k8638 in quotify-proc2667 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8681,c,av);} -/* chicken-syntax.scm:719: c */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_u_i_car(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k8722 in a8633 in k5805 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8724,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[158],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8734 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void C_ccall f_8736(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8736,c,av);} -/* chicken-syntax.scm:694: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[161]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a8737 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -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=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_8738,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8742,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:699: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[161]; -av2[3]=t2; -av2[4]=lf[162]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k8740 in a8737 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_8742(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_8742,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8745,a[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:700: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[93]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8743 in k8740 in a8737 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_8745,c,av);} -a=C_alloc(15); -t2=C_i_caddr(((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8764,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); -/* chicken-syntax.scm:703: r */ -t5=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[159]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k8762 in k8743 in k8740 in a8737 in k5802 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8764(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8764,c,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[36],((C_word*)t0)[3],t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,3,lf[57],((C_word*)t0)[5],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k8778 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8780,c,av);} -/* chicken-syntax.scm:685: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[163]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a8781 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void C_ccall f_8782(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8782,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8786,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:690: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[163]; -av2[3]=t2; -av2[4]=lf[166]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k8784 in a8781 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_8786,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8789,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:691: chicken.internal#check-for-multiple-bindings */ -t3=*((C_word*)lf[164]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[165]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k8787 in k8784 in a8781 in k5799 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_8789(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8789,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[98],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k8800 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8802,c,av);} -/* chicken-syntax.scm:666: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[167]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void C_ccall f_8804(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8804,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8808,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:670: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[167]; -av2[3]=t2; -av2[4]=lf[171]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ -C_save_and_reclaim((void *)f_8808,c,av);} -a=C_alloc(18); -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_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(t2,lf[39]); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8822,a[2]=((C_word*)t0)[3],a[3]=t4,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|5,a[1]=(C_word)f_9024,a[2]=t7,a[3]=t12,a[4]=t8,a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_9024(t14,t10,t2);} - -/* k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void C_ccall f_8822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_8822,c,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|4,a[1]=(C_word)f_8828,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t7=C_SCHEME_UNDEFINED; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8990,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_8990(t10,t6,((C_word*)t0)[4]);} - -/* k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_8828(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_8828,c,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=C_i_check_list_2(((C_word*)t0)[2],lf[168]); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8862,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=t4,a[7]=t5,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_8966,a[2]=t9,a[3]=((C_word)li54),tmp=(C_word)a,a+=4,tmp)); -t11=((C_word*)t9)[1]; -f_8966(t11,t7,((C_word*)t0)[2],C_SCHEME_END_OF_LIST);} - -/* k8851 in foldl2591 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8853(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8853,c,av);} -/* chicken-syntax.scm:678: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a8854 in foldl2591 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8855(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_8855,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k8860 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void C_ccall f_8862(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ -C_save_and_reclaim((void *)f_8862,c,av);} -a=C_alloc(14); -t2=C_i_check_list_2(t1,lf[39]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8868,a[2]=((C_word*)t0)[2],a[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_8932,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=((C_word*)t0)[7],a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_8932(t7,t3,t1);} - -/* k8866 in k8860 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8868(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ -C_save_and_reclaim((void *)f_8868,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8872,a[2]=t1,a[3]=((C_word*)t0)[2],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*)lf[169]+1); -t8=C_i_check_list_2(((C_word*)t0)[3],lf[39]); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8882,a[2]=t2,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|6,a[1]=(C_word)f_8884,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li51),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_8884(t13,t9,((C_word*)t0)[5],((C_word*)t0)[3]);} - -/* k8870 in k8866 in k8860 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_8872(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_8872,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[35],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k8880 in k8866 in k8860 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_8882(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8882,c,av);} -/* chicken-syntax.scm:675: ##sys#append */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop2615 in k8866 in k8860 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void f_8884(C_word t0,C_word 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_8884,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_8913,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); -/* chicken-syntax.scm:682: g2621 */ -t7=((C_word*)t0)[4];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=C_slot(t2,C_fix(0)); -av2[3]=C_slot(t3,C_fix(0)); -((C_proc)(void*)(*((C_word*)t7+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);}}} - -/* k8911 in map-loop2615 in k8866 in k8860 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_8913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8913,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_8884(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));} - -/* map-loop2567 in k8860 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void f_8932(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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_8932,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[170]); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* foldl2591 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void f_8966(C_word t0,C_word t1,C_word t2,C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_8966,4,t0,t1,t2,t3);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t4=C_slot(t2,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8984,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(0)); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8853,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8855,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:678: ##sys#decompose-lambda-list */ -t9=*((C_word*)lf[42]+1);{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t7; -av2[2]=t6; -av2[3]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k8982 in foldl2591 in k8826 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void C_ccall f_8984(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8984,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8966(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* map-loop2538 in k8820 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void f_8990(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_8990,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cadr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* map-loop2512 in k8806 in a8803 in k5796 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void f_9024(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_9024,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k9058 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_9060(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9060,c,av);} -/* chicken-syntax.scm:651: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[172]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9061 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_9062(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9062,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9066,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:655: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[172]; -av2[3]=t2; -av2[4]=lf[174]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k9064 in a9061 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void C_ccall f_9066(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_9066,c,av);} -a=C_alloc(5); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_u_i_cdr(t3); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9074,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:658: r */ -t6=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[173]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k9072 in k9064 in a9061 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void C_ccall f_9074(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9074,c,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_9079,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_9079(t5,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* fold in k9072 in k9064 in a9061 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void f_9079(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ -C_save_and_reclaim_args((void *)trf_9079,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[35],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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9104,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:663: fold */ -t7=t5; -t8=C_u_i_cdr(t2); -t1=t7; -t2=t8; -goto loop;}} - -/* k9102 in fold in k9072 in k9064 in a9061 in k5793 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_9104(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_9104,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9112 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_9114(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9114,c,av);} -/* chicken-syntax.scm:597: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[173]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -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=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_9116,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9120,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:601: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[173]; -av2[3]=t2; -av2[4]=lf[175]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word 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(33,c,4)))){ -C_save_and_reclaim((void *)f_9120,c,av);} -a=C_alloc(33); -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_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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9126,a[2]=t6,a[3]=((C_word)li60),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9154,a[2]=t8,a[3]=((C_word)li61),tmp=(C_word)a,a+=4,tmp); -t11=C_set_block_item(t6,0,t9); -t12=C_set_block_item(t8,0,t10); -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(t2,lf[39]); -t18=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9202,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t8,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -t19=C_SCHEME_UNDEFINED; -t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); -t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9555,a[2]=t15,a[3]=t20,a[4]=t16,a[5]=((C_word)li71),tmp=(C_word)a,a+=6,tmp)); -t22=((C_word*)t20)[1]; -f_9555(t22,t18,t2);} - -/* append*2318 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void C_ccall f_9126(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_9126,c,av);} -a=C_alloc(4); -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_cons(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9147,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:608: append* */ -t7=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=C_u_i_cdr(t2); -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k9145 in append*2318 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void C_ccall f_9147(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_9147,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map*2319 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void C_ccall f_9154(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9154,c,av);} -a=C_alloc(6); -if(C_truep(C_i_nullp(t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_pairp(t3); -if(C_truep(C_i_not(t4))){ -/* chicken-syntax.scm:611: proc */ -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9177,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:612: proc */ -t6=t2;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_i_car(t3); -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} - -/* k9175 in map*2319 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void C_ccall f_9177(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_9177,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9181,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:612: map* */ -t3=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_u_i_cdr(((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k9179 in k9175 in map*2319 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void C_ccall f_9181(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_9181,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -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 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_9202,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|7,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]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],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|4,a[1]=(C_word)f_9517,a[2]=t4,a[3]=((C_word*)t0)[7],a[4]=((C_word)li70),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_9517(t6,t2,t1,C_SCHEME_END_OF_LIST);} - -/* k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -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 t4; -C_word t5; -C_word 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_9205,c,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_9209,a[2]=((C_word*)t0)[2],a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp); -t7=C_i_check_list_2(t1,lf[39]); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9227,a[2]=t1,a[3]=((C_word*)t0)[3],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); -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_9483,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li69),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_9483(t12,t8,t1);} - -/* g2379 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void f_9209(C_word t0,C_word t1,C_word 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_9209,3,t0,t1,t2);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9217,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9221,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:623: chicken.base#gensym */ -t5=*((C_word*)lf[33]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k9215 in g2379 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 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(3,c,1)))){ -C_save_and_reclaim((void *)f_9217,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9219 in g2379 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_9221(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9221,c,av);} -/* chicken-syntax.scm:623: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 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 t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(20,c,4)))){ -C_save_and_reclaim((void *)f_9227,c,av);} -a=C_alloc(20); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9228,a[2]=t1,a[3]=((C_word)li63),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9239,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_SCHEME_UNDEFINED; -t5=(*a=C_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_9439,a[2]=t5,a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word)li68),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_9439(t7,t3,((C_word*)t0)[5],C_SCHEME_END_OF_LIST);} - -/* lookup in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_9228(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_9228,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(C_i_assq(t2,((C_word*)t0)[2])); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_9239(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_9239,c,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|7,a[1]=(C_word)f_9254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,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|5,a[1]=(C_word)f_9405,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li67),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_9405(t10,t6,((C_word*)t0)[7]);} - -/* k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void C_ccall f_9254(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_9254,c,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_9256,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)li66),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_9256(t5,((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} - -/* fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in ... */ -static void f_9256(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(22,0,4)))){ -C_save_and_reclaim_args((void *)trf_9256,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_9275,a[2]=((C_word*)t0)[2],a[3]=((C_word)li64),tmp=(C_word)a,a+=4,tmp); -t10=C_i_check_list_2(((C_word*)t0)[3],lf[39]); -t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9289,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_9291,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,a[6]=((C_word)li65),tmp=(C_word)a,a+=7,tmp)); -t15=((C_word*)t13)[1]; -f_9291(t15,t11,((C_word*)t0)[3]);} -else{ -t5=C_i_car(t4); -t6=C_i_pairp(t5); -t7=(C_truep(t6)?C_i_nullp(C_i_cdar(t4)):C_SCHEME_FALSE); -if(C_truep(t7)){ -t8=C_i_caar(t4); -t9=C_i_car(t3); -t10=C_a_i_list(&a,2,t8,t9); -t11=C_a_i_list(&a,1,t10); -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9340,a[2]=t1,a[3]=t11,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:643: fold */ -t16=t12; -t17=C_i_cdr(t2); -t18=C_u_i_cdr(t3); -t19=C_u_i_cdr(t4); -t1=t16; -t2=t17; -t3=t18; -t4=t19; -goto loop;} -else{ -t8=C_i_car(t3); -t9=C_a_i_list(&a,3,lf[36],C_SCHEME_END_OF_LIST,t8); -t10=C_u_i_car(t4); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9377,a[2]=t10,a[3]=t1,a[4]=t9,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:649: fold */ -t16=t11; -t17=C_i_cdr(t2); -t18=C_u_i_cdr(t3); -t19=C_u_i_cdr(t4); -t1=t16; -t2=t17; -t3=t18; -t4=t19; -goto loop;}}} - -/* g2430 in fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void f_9275(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_9275,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9283,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:638: lookup */ -t4=((C_word*)t0)[2];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -f_9228(3,av2);}} - -/* k9281 in g2430 in fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_9283,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9287 in fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_9289,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[35],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* map-loop2424 in fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void f_9291(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_9291,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9316,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); -/* chicken-syntax.scm:638: g2430 */ -t4=((C_word*)t0)[4]; -f_9275(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k9314 in map-loop2424 in fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in ... */ -static void C_ccall f_9316(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_9316,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_9291(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k9338 in fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in ... */ -static void C_ccall f_9340(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_9340,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[35],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9375 in fold in k9252 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ -C_save_and_reclaim((void *)f_9377,c,av);} -a=C_alloc(18); -t2=C_a_i_list(&a,3,lf[36],((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,lf[57],((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* map-loop2459 in k9237 in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void f_9405(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_9405,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cadr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* loop in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void f_9439(C_word t0,C_word 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_9439,4,t0,t1,t2,t3);} -a=C_alloc(6); -if(C_truep(C_i_nullp(t2))){ -/* chicken-syntax.scm:627: scheme#reverse */ -t4=*((C_word*)lf[38]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t4=C_i_car(t2); -t5=C_i_pairp(t4); -if(C_truep(C_i_not(t5))){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9470,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:630: lookup */ -t7=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t4; -f_9228(3,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9477,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:631: map* */ -t7=((C_word*)((C_word*)t0)[4])[1];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}} - -/* k9468 in loop in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -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(3,c,3)))){ -C_save_and_reclaim((void *)f_9470,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* chicken-syntax.scm:632: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_9439(t3,((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[5]),t2);} - -/* k9475 in loop in k9225 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in ... */ -static void C_ccall f_9477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_9477,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* chicken-syntax.scm:632: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_9439(t3,((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[5]),t2);} - -/* map-loop2373 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void f_9483(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_9483,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9508,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); -/* chicken-syntax.scm:623: g2379 */ -t4=((C_word*)t0)[4]; -f_9209(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k9506 in map-loop2373 in k9203 in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in ... */ -static void C_ccall f_9508(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9508,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_9483(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* loop in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void f_9517(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(8,0,3)))){ -C_save_and_reclaim_args((void *)trf_9517,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]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9530,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_listp(t4))){ -/* chicken-syntax.scm:619: scheme#append */ -t6=*((C_word*)lf[44]+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:620: 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); -/* chicken-syntax.scm:622: loop */ -t8=t1; -t9=C_u_i_cdr(t2); -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}}} - -/* k9528 in loop in k9200 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void C_ccall f_9530(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9530,c,av);} -/* chicken-syntax.scm:622: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9517(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),t1);} - -/* map-loop2335 in k9118 in a9115 in k5790 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void 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 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,2)))){ -C_save_and_reclaim_args((void *)trf_9555,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k9589 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void C_ccall f_9591(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9591,c,av);} -/* chicken-syntax.scm:580: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[176]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void C_ccall f_9593(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9593,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9597,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:584: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[176]; -av2[3]=t2; -av2[4]=lf[181]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_9597(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_9597,c,av);} -a=C_alloc(10); -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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9608,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t4=C_i_cadr(((C_word*)t0)[3]); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9630,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:586: ##sys#decompose-lambda-list */ -t6=*((C_word*)lf[42]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t3; -av2[2]=t4; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k9602 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 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(3,c,1)))){ -C_save_and_reclaim((void *)f_9604,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[58],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9606 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_9608(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_9608,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9616,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:595: ##sys#expand-multiple-values-assignment */ -t3=*((C_word*)lf[169]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -av2[3]=C_i_caddr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k9614 in k9606 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void C_ccall f_9616(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_9616,c,av);} -a=C_alloc(3); -t2=C_a_i_list(&a,1,t1); -/* chicken-syntax.scm:585: ##sys#append */ -t3=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* a9629 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -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=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(10,c,3)))){ -C_save_and_reclaim((void *)f_9630,c,av);} -a=C_alloc(10); -t5=C_i_check_list_2(t2,lf[113]); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9649,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_9696,a[2]=t8,a[3]=((C_word)li74),tmp=(C_word)a,a+=4,tmp)); -t10=((C_word*)t8)[1]; -f_9696(t10,t6,t2);} - -/* k9634 in for-each-loop2264 in a9629 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void C_ccall f_9636(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_9636,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9643,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:591: ##sys#current-module */ -t3=*((C_word*)lf[131]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k9641 in k9634 in for-each-loop2264 in a9629 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in ... */ -static void C_ccall f_9643(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9643,c,av);} -/* chicken-syntax.scm:591: ##sys#register-export */ -t2=*((C_word*)lf[178]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k9647 in a9629 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 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 t3; -C_word t4; -C_word 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_9649,c,av);} -a=C_alloc(13); -t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=((C_word*)t4)[1]; -t6=C_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_9662,a[2]=t4,a[3]=t7,a[4]=t5,a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_9662(t9,((C_word*)t0)[2],((C_word*)t0)[3]);} - -/* map-loop2274 in k9647 in a9629 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void f_9662(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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_9662,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[177],t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop2264 in a9629 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -static void f_9696(C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_9696,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_9706,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9636,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:590: ##sys#get */ -t6=*((C_word*)lf[179]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t4; -av2[3]=lf[180]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t3=C_SCHEME_UNDEFINED; -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k9704 in for-each-loop2264 in a9629 in k9595 in a9592 in k5786 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -static void C_ccall f_9706(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9706,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9696(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k9719 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_9721(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9721,c,av);} -/* chicken-syntax.scm:572: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[182]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9722 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_9723(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9723,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9727,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:576: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[182]; -av2[3]=t2; -av2[4]=lf[183]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k9725 in a9722 in k5783 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void C_ccall f_9727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9727,c,av);} -/* chicken-syntax.scm:577: ##sys#expand-multiple-values-assignment */ -t2=*((C_word*)lf[169]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -av2[3]=C_i_caddr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k9740 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_9742(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9742,c,av);} -/* chicken-syntax.scm:563: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[184]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9743 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 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=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_9744,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9748,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:567: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[184]; -av2[3]=t2; -av2[4]=lf[186]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k9746 in a9743 in k5780 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_9748(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9748,c,av);} -a=C_alloc(18); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_a_i_list(&a,1,lf[185]); -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_u_i_cdr(t4); -t6=C_a_i_cons(&a,2,lf[58],t5); -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_list(&a,4,lf[37],t2,t3,t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* k9768 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_9770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9770,c,av);} -/* chicken-syntax.scm:555: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[187]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9771 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_9772(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9772,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9776,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:559: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[187]; -av2[3]=t2; -av2[4]=lf[188]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k9774 in a9771 in k5777 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_9776(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_9776,c,av);} -a=C_alloc(12); -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_a_i_cons(&a,2,lf[58],t4); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,3,lf[37],t2,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k9792 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void C_ccall f_9794(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9794,c,av);} -/* chicken-syntax.scm:542: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[189]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9795 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void C_ccall f_9796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ -C_save_and_reclaim((void *)f_9796,c,av);} -a=C_alloc(22); -t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t6=t5; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=((C_word*)t7)[1]; -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9805,a[2]=t3,a[3]=t4,a[4]=((C_word)li82),tmp=(C_word)a,a+=5,tmp); -t10=C_i_cdr(t2); -t11=C_i_check_list_2(t10,lf[39]); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9836,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t13=C_SCHEME_UNDEFINED; -t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); -t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9838,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li83),tmp=(C_word)a,a+=7,tmp)); -t16=((C_word*)t14)[1]; -f_9838(t16,t12,t10);} - -/* g2189 in a9795 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){ -C_save_and_reclaim_args((void *)trf_9805,3,t0,t1,t2);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9811,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li80),tmp=(C_word)a,a+=6,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9817,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp); -/* chicken-syntax.scm:549: ##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);}} - -/* a9810 in g2189 in a9795 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_9811(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_9811,c,av);} -/* chicken-syntax.scm:549: ##sys#decompose-import */ -t2=*((C_word*)lf[190]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=lf[96]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* a9816 in g2189 in a9795 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_9817(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8; -C_word t9; -C_word *a; -if(c!=8) C_bad_argc_2(c,8,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_9817,c,av);} -a=C_alloc(9); -t8=C_i_not(t3); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=(C_truep(t8)?lf[191]:C_a_i_list(&a,3,lf[192],t3,t2)); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* k9834 in a9795 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_9836(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_9836,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[58],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2183 in a9795 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void f_9838(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_9838,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9863,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); -/* chicken-syntax.scm:548: g2189 */ -t4=((C_word*)t0)[4]; -f_9805(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k9861 in map-loop2183 in a9795 in k5774 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -static void C_ccall f_9863(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_9863,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_9838(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k9872 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9874,c,av);} -/* chicken-syntax.scm:488: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[193]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in k5709 in ... */ -static void C_ccall f_9876(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9876,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9895,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* chicken-syntax.scm:496: ##sys#check-syntax */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[193]; -av2[3]=t2; -av2[4]=lf[201]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in k5712 in ... */ -static void C_ccall f_9895(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_9895,c,av);} -a=C_alloc(6); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_u_i_cdr(t3); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9903,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* chicken-syntax.scm:499: r */ -t6=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[200]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in k5715 in ... */ -static void C_ccall f_9903(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ -C_save_and_reclaim((void *)f_9903,c,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_i_check_list_2(((C_word*)t0)[2],lf[39]); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9912,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)[2],tmp=(C_word)a,a+=7,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10768,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li102),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_10768(t11,t7,((C_word*)t0)[2]);} - -/* k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in k5718 in ... */ -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 t3; -C_word t4; -C_word t5; -C_word 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_9912,c,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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9918,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); -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_10734,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li101),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_10734(t10,t6,((C_word*)t0)[6]);} - -/* k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in k5722 in ... */ -static void C_ccall f_9918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_9918,c,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_9922,a[2]=((C_word*)t0)[2],a[3]=((C_word)li85),tmp=(C_word)a,a+=4,tmp); -t7=C_i_check_list_2(((C_word*)t0)[3],lf[39]); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9936,a[2]=((C_word*)t0)[2],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)[3],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_10700,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li100),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_10700(t12,t8,((C_word*)t0)[3]);} - -/* g1774 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -static void f_9922(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_9922,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9930,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:494: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* chicken-syntax.scm:495: chicken.base#gensym */ -t4=*((C_word*)lf[33]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[194]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k9928 in g1774 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void C_ccall f_9930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9930,c,av);} -/* chicken-syntax.scm:502: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in k5725 in ... */ -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 t4; -C_word t5; -C_word t6; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_9936,c,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|3,a[1]=(C_word)f_9940,a[2]=((C_word*)t0)[2],a[3]=((C_word)li86),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9951,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -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_10666,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,a[6]=((C_word)li99),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_10666(t11,t7,((C_word*)t0)[7]);} - -/* g1802 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -static void f_9940(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_9940,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9948,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:503: chicken.base#gensym */ -t3=*((C_word*)lf[33]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[195]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k9946 in g1802 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_9948(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9948,c,av);} -/* chicken-syntax.scm:503: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in k5728 in ... */ -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 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,3)))){ -C_save_and_reclaim((void *)f_9951,c,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|3,a[1]=(C_word)f_9955,a[2]=((C_word*)t0)[2],a[3]=((C_word)li87),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9966,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],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|6,a[1]=(C_word)f_10632,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,a[6]=((C_word)li98),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_10632(t11,t7,((C_word*)t0)[8]);} - -/* g1830 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void f_9955(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_9955,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9963,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* chicken-syntax.scm:504: chicken.base#gensym */ -t3=*((C_word*)lf[33]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[93]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k9961 in g1830 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in ... */ -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,c,av);} -/* chicken-syntax.scm:504: r */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 in k5731 in ... */ -static void C_ccall f_9966(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_9966,c,av);} -a=C_alloc(22); -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[39]); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9979,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[2],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_10584,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li97),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_10584(t11,t7,((C_word*)t0)[2],((C_word*)t0)[8]);} - -/* k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in k5734 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 t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ -C_save_and_reclaim((void *)f_9979,c,av);} -a=C_alloc(22); -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[39]); -t7=C_i_check_list_2(((C_word*)t0)[3],lf[39]); -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9996,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]=t1,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -t9=C_SCHEME_UNDEFINED; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10536,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li96),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_10536(t12,t8,((C_word*)t0)[2],((C_word*)t0)[3]);} - -/* k9994 in k9977 in k9964 in k9949 in k9934 in k9916 in k9910 in k9901 in k9893 in a9875 in k5771 in k5768 in k5765 in k5762 in k5759 in k5756 in k5753 in k5750 in k5747 in k5744 in k5740 in k5737 in ... */ -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 t5; -C_word 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_9996,c,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|9,a[1]=(C_word)f_10007,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],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t7=C_SCHEME_UNDEFINED; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10488,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li95),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_10488(t10,t6,((C_word*)t0)[7],((C_word*)t0)[7]);} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("chicken-syntax")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_chicken_2dsyntax_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(2892))){ -C_save(t1); -C_rereclaim2(2892*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,301); -lf[0]=C_h_intern(&lf[0],14, C_text("chicken-syntax")); -lf[2]=C_h_intern(&lf[2],41, C_text("##sys#chicken.condition-macro-environment")); -lf[3]=C_h_intern(&lf[3],36, C_text("##sys#chicken.type-macro-environment")); -lf[4]=C_h_intern(&lf[4],38, C_text("##sys#chicken.syntax-macro-environment")); -lf[5]=C_h_intern(&lf[5],39, C_text("chicken.syntax#define-values-definition")); -lf[6]=C_h_intern(&lf[6],36, C_text("##sys#chicken.base-macro-environment")); -lf[7]=C_h_intern(&lf[7],36, C_text("##sys#chicken.time-macro-environment")); -lf[8]=C_h_intern(&lf[8],42, C_text("##sys#scheme.case-lambda-macro-environment")); -lf[9]=C_h_intern(&lf[9],34, C_text("chicken.platform#register-feature!")); -lf[10]=C_h_intern(&lf[10],6, C_text("srfi-2")); -lf[11]=C_h_intern(&lf[11],6, C_text("srfi-8")); -lf[12]=C_h_intern(&lf[12],6, C_text("srfi-9")); -lf[13]=C_h_intern(&lf[13],7, C_text("srfi-11")); -lf[14]=C_h_intern(&lf[14],7, C_text("srfi-15")); -lf[15]=C_h_intern(&lf[15],7, C_text("srfi-16")); -lf[16]=C_h_intern(&lf[16],7, C_text("srfi-26")); -lf[17]=C_h_intern(&lf[17],7, C_text("srfi-31")); -lf[18]=C_h_intern(&lf[18],7, C_text("srfi-55")); -lf[19]=C_h_intern(&lf[19],29, C_text("chicken.internal#macro-subset")); -lf[20]=C_h_intern(&lf[20],31, C_text("##sys#default-macro-environment")); -lf[21]=C_h_intern(&lf[21],2, C_text(">=")); -lf[22]=C_h_intern(&lf[22],9, C_text("scheme#>=")); -lf[23]=C_h_intern(&lf[23],3, C_text("car")); -lf[24]=C_h_intern(&lf[24],10, C_text("scheme#car")); -lf[25]=C_h_intern(&lf[25],3, C_text("cdr")); -lf[26]=C_h_intern(&lf[26],10, C_text("scheme#cdr")); -lf[27]=C_h_intern(&lf[27],3, C_text("eq?")); -lf[28]=C_h_intern(&lf[28],10, C_text("scheme#eq?")); -lf[29]=C_h_intern(&lf[29],6, C_text("length")); -lf[30]=C_h_intern(&lf[30],13, C_text("scheme#length")); -lf[31]=C_h_intern(&lf[31],30, C_text("##sys#extend-macro-environment")); -lf[32]=C_h_intern(&lf[32],11, C_text("case-lambda")); -lf[33]=C_h_intern(&lf[33],19, C_text("chicken.base#gensym")); -lf[34]=C_h_intern(&lf[34],5, C_text("foldr")); -lf[35]=C_h_intern(&lf[35],10, C_text("##core#let")); -lf[36]=C_h_intern(&lf[36],13, C_text("##core#lambda")); -lf[37]=C_h_intern(&lf[37],9, C_text("##core#if")); -lf[38]=C_h_intern(&lf[38],14, C_text("scheme#reverse")); -lf[39]=C_h_intern(&lf[39],3, C_text("map")); -lf[40]=C_h_intern(&lf[40],18, C_text("##sys#check-syntax")); -lf[41]=C_h_intern(&lf[41],11, C_text("lambda-list")); -lf[42]=C_h_intern(&lf[42],27, C_text("##sys#decompose-lambda-list")); -lf[43]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\143\150\145\143\153\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\043\043\163\171\163\043\145\162\162\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\151\155\155\165\164\141\142\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\161\165\157\164\145\376\003\000\000\002\376\002\000\000\061\156\157\040\155\141\164\143\150\151\156\147\040\143\154\141\165\163\145\040\151\156\040\143\141\154\154\040\164\157\040\047\143\141\163\145\055\154\141\155\142\144\141\047\040\146\157\162\155\000\376\377\016\376\377\016\376\377\016\376\377\016")); -lf[44]=C_h_intern(&lf[44],13, C_text("scheme#append")); -lf[45]=C_h_intern(&lf[45],4, C_text("lvar")); -lf[46]=C_h_intern(&lf[46],4, C_text("rvar")); -lf[47]=C_h_intern(&lf[47],10, C_text("scheme#min")); -lf[48]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -lf[49]=C_h_intern(&lf[49],20, C_text("##sys#er-transformer")); -lf[50]=C_h_intern(&lf[50],23, C_text("##sys#macro-environment")); -lf[51]=C_h_intern(&lf[51],4, C_text("time")); -lf[52]=C_h_intern(&lf[52],17, C_text("##sys#start-timer")); -lf[53]=C_h_intern(&lf[53],16, C_text("##sys#stop-timer")); -lf[54]=C_h_intern(&lf[54],19, C_text("##sys#display-times")); -lf[55]=C_h_intern(&lf[55],11, C_text("##sys#apply")); -lf[56]=C_h_intern(&lf[56],12, C_text("##sys#values")); -lf[57]=C_h_intern(&lf[57],22, C_text("##sys#call-with-values")); -lf[58]=C_h_intern(&lf[58],12, C_text("##core#begin")); -lf[59]=C_h_intern(&lf[59],1, C_text("t")); -lf[60]=C_h_intern(&lf[60],5, C_text("guard")); -lf[61]=C_h_intern(&lf[61],4, C_text("temp")); -lf[62]=C_h_intern(&lf[62],37, C_text("scheme#call-with-current-continuation")); -lf[63]=C_h_intern(&lf[63],4, C_text("args")); -lf[64]=C_h_intern(&lf[64],23, C_text("scheme#call-with-values")); -lf[65]=C_h_intern(&lf[65],29, C_text("scheme#with-exception-handler")); -lf[66]=C_h_intern(&lf[66],24, C_text("scheme#raise-continuable")); -lf[67]=C_h_intern(&lf[67],12, C_text("scheme#caadr")); -lf[68]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[69]=C_h_intern(&lf[69],6, C_text("lambda")); -lf[70]=C_h_intern(&lf[70],9, C_text("handler-k")); -lf[71]=C_h_intern(&lf[71],7, C_text("guard-k")); -lf[72]=C_h_intern(&lf[72],16, C_text("call-with-values")); -lf[73]=C_h_intern(&lf[73],9, C_text("condition")); -lf[74]=C_h_intern(&lf[74],6, C_text("values")); -lf[75]=C_h_intern(&lf[75],5, C_text("apply")); -lf[76]=C_h_intern(&lf[76],3, C_text("var")); -lf[77]=C_h_intern(&lf[77],2, C_text("or")); -lf[78]=C_h_intern(&lf[78],2, C_text("if")); -lf[79]=C_h_intern(&lf[79],3, C_text("let")); -lf[80]=C_h_intern(&lf[80],5, C_text("begin")); -lf[81]=C_h_intern(&lf[81],4, C_text("else")); -lf[82]=C_h_intern(&lf[82],2, C_text("=>")); -lf[83]=C_h_intern(&lf[83],6, C_text("assert")); -lf[84]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\141\163\163\145\162\164\151\157\156\040\146\141\151\154\145\144\000")); -lf[85]=C_h_intern(&lf[85],12, C_text("##core#check")); -lf[86]=C_h_intern(&lf[86],11, C_text("##sys#error")); -lf[87]=C_h_intern(&lf[87],12, C_text("##core#quote")); -lf[88]=C_h_intern(&lf[88],27, C_text("chicken.syntax#strip-syntax")); -lf[89]=C_h_intern(&lf[89],20, C_text("scheme#string-append")); -lf[90]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[91]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000")); -lf[92]=C_h_intern(&lf[92],30, C_text("chicken.syntax#get-line-number")); -lf[93]=C_h_intern(&lf[93],3, C_text("tmp")); -lf[94]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[95]=C_h_intern(&lf[95],17, C_text("require-extension")); -lf[96]=C_h_intern(&lf[96],6, C_text("import")); -lf[97]=C_h_intern(&lf[97],3, C_text("rec")); -lf[98]=C_h_intern(&lf[98],14, C_text("##core#letrec*")); -lf[99]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -lf[100]=C_h_intern(&lf[100],12, C_text("scheme#apply")); -lf[101]=C_h_intern(&lf[101],4, C_text("cute")); -lf[102]=C_h_intern(&lf[102],12, C_text("##sys#append")); -lf[103]=C_h_intern(&lf[103],18, C_text("##sys#syntax-error")); -lf[104]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\164\141\151\154\040\160\141\164\164\145\162\156\163\040\141\146\164\145\162\040\074\056\056\056\076\040\141\162\145\040\156\157\164\040\163\165\160\160\157\162\164\145\144\000")); -lf[105]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\171\157\165\040\156\145\145\144\040\164\157\040\163\165\160\160\154\171\040\141\164\040\154\145\141\163\164\040\141\040\160\162\157\143\145\144\165\162\145\000")); -lf[106]=C_h_intern(&lf[106],5, C_text("<...>")); -lf[107]=C_h_intern(&lf[107],2, C_text("<>")); -lf[108]=C_h_intern(&lf[108],3, C_text("cut")); -lf[109]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\164\141\151\154\040\160\141\164\164\145\162\156\163\040\141\146\164\145\162\040\074\056\056\056\076\040\141\162\145\040\156\157\164\040\163\165\160\160\157\162\164\145\144\000")); -lf[110]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\171\157\165\040\156\145\145\144\040\164\157\040\163\165\160\160\154\171\040\141\164\040\154\145\141\163\164\040\141\040\160\162\157\143\145\144\165\162\145\000")); -lf[111]=C_h_intern(&lf[111],18, C_text("define-record-type")); -lf[112]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\165\156\153\156\157\167\156\040\163\154\157\164\040\156\141\155\145\040\151\156\040\143\157\156\163\164\162\165\143\164\157\162\040\144\145\146\151\156\151\164\151\157\156\000")); -lf[113]=C_h_intern(&lf[113],8, C_text("for-each")); -lf[114]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[115]=C_h_intern(&lf[115],20, C_text("##sys#make-structure")); -lf[116]=C_h_intern(&lf[116],16, C_text("##sys#structure?")); -lf[117]=C_h_intern(&lf[117],21, C_text("##sys#check-structure")); -lf[118]=C_h_intern(&lf[118],15, C_text("##sys#block-ref")); -lf[119]=C_h_intern(&lf[119],12, C_text("##sys#setter")); -lf[120]=C_h_intern(&lf[120],16, C_text("##sys#block-set!")); -lf[121]=C_h_intern(&lf[121],6, C_text("setter")); -lf[122]=C_h_intern(&lf[122],1, C_text("y")); -lf[123]=C_h_intern(&lf[123],1, C_text("x")); -lf[124]=C_h_intern(&lf[124],31, C_text("chicken.base#getter-with-setter")); -lf[125]=C_h_intern(&lf[125],3, C_text("tag")); -lf[126]=C_h_intern(&lf[126],6, C_text("vector")); -lf[127]=C_h_intern(&lf[127],6, C_text("define")); -lf[128]=C_h_intern(&lf[128],26, C_text("chicken.base#symbol-append")); -lf[129]=C_h_intern(&lf[129],1, C_text("#")); -lf[130]=C_h_intern(&lf[130],17, C_text("##sys#module-name")); -lf[131]=C_h_intern(&lf[131],20, C_text("##sys#current-module")); -lf[132]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\000\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\377\001\000\000\000\001\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\001\000\000\001\001\137")); -lf[133]=C_h_intern(&lf[133],5, C_text("null?")); -lf[134]=C_h_intern(&lf[134],12, C_text("scheme#null?")); -lf[135]=C_h_intern(&lf[135],14, C_text("let-optionals*")); -lf[136]=C_h_intern(&lf[136],4, C_text("tmp2")); -lf[137]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\004\001\154\151\163\164\376\001\000\000\001\001\137")); -lf[138]=C_h_intern(&lf[138],8, C_text("optional")); -lf[139]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\003\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); -lf[140]=C_h_intern(&lf[140],13, C_text("let-optionals")); -lf[141]=C_h_intern(&lf[141],21, C_text("scheme#string->symbol")); -lf[142]=C_h_intern(&lf[142],21, C_text("scheme#symbol->string")); -lf[143]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\045\000")); -lf[144]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\144\145\146\055\000")); -lf[145]=C_h_intern(&lf[145],4, C_text("let*")); -lf[146]=C_h_intern(&lf[146],6, C_text("_%rest")); -lf[147]=C_h_intern(&lf[147],4, C_text("body")); -lf[148]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[149]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000")); -lf[150]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -lf[151]=C_h_intern(&lf[151],8, C_text("and-let*")); -lf[152]=C_h_intern(&lf[152],8, C_text("variable")); -lf[153]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[154]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\001\000\000\001\001\137")); -lf[155]=C_h_intern(&lf[155],13, C_text("define-inline")); -lf[156]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\151\156\166\141\154\151\144\040\163\165\142\163\164\151\164\165\164\151\157\156\040\146\157\162\155\040\055\040\155\165\163\164\040\142\145\040\154\141\155\142\144\141\000")); -lf[157]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[158]=C_h_intern(&lf[158],20, C_text("##core#define-inline")); -lf[159]=C_h_intern(&lf[159],8, C_text("list-ref")); -lf[160]=C_h_intern(&lf[160],15, C_text("scheme#list-ref")); -lf[161]=C_h_intern(&lf[161],9, C_text("nth-value")); -lf[162]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[163]=C_h_intern(&lf[163],7, C_text("letrec*")); -lf[164]=C_h_intern(&lf[164],44, C_text("chicken.internal#check-for-multiple-bindings")); -lf[165]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\154\145\164\162\145\143\052\000")); -lf[166]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[167]=C_h_intern(&lf[167],13, C_text("letrec-values")); -lf[168]=C_h_intern(&lf[168],5, C_text("foldl")); -lf[169]=C_h_intern(&lf[169],39, C_text("##sys#expand-multiple-values-assignment")); -lf[170]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[171]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\001\000\000\001\001\137")); -lf[172]=C_h_intern(&lf[172],11, C_text("let*-values")); -lf[173]=C_h_intern(&lf[173],10, C_text("let-values")); -lf[174]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\004\001\154\151\163\164\376\001\000\000\001\001\137")); -lf[175]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\004\001\154\151\163\164\376\001\000\000\001\001\137")); -lf[176]=C_h_intern(&lf[176],13, C_text("define-values")); -lf[177]=C_h_intern(&lf[177],33, C_text("##core#ensure-toplevel-definition")); -lf[178]=C_h_intern(&lf[178],21, C_text("##sys#register-export")); -lf[179]=C_h_intern(&lf[179],9, C_text("##sys#get")); -lf[180]=C_h_intern(&lf[180],18, C_text("##core#macro-alias")); -lf[181]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[182]=C_h_intern(&lf[182],11, C_text("set!-values")); -lf[183]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[184]=C_h_intern(&lf[184],6, C_text("unless")); -lf[185]=C_h_intern(&lf[185],16, C_text("##core#undefined")); -lf[186]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\002")); -lf[187]=C_h_intern(&lf[187],4, C_text("when")); -lf[188]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\002")); -lf[189]=C_h_intern(&lf[189],15, C_text("require-library")); -lf[190]=C_h_intern(&lf[190],22, C_text("##sys#decompose-import")); -lf[191]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[192]=C_h_intern(&lf[192],14, C_text("##core#require")); -lf[193]=C_h_intern(&lf[193],12, C_text("parameterize")); -lf[194]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\160\141\162\141\155\145\164\145\162\000")); -lf[195]=C_h_intern(&lf[195],5, C_text("saved")); -lf[196]=C_h_intern(&lf[196],10, C_text("##core#the")); -lf[197]=C_h_intern(&lf[197],7, C_text("boolean")); -lf[198]=C_h_intern(&lf[198],18, C_text("##sys#dynamic-wind")); -lf[199]=C_h_intern(&lf[199],11, C_text("##core#set!")); -lf[200]=C_h_intern(&lf[200],8, C_text("convert?")); -lf[201]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\002")); -lf[202]=C_h_intern(&lf[202],9, C_text("fluid-let")); -lf[203]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\001\000\000\001\001\137")); -lf[204]=C_h_intern(&lf[204],16, C_text("include-relative")); -lf[205]=C_h_intern(&lf[205],14, C_text("##core#include")); -lf[206]=C_h_intern(&lf[206],29, C_text("##sys#current-source-filename")); -lf[207]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\377\001\000\000\000\001")); -lf[208]=C_h_intern(&lf[208],10, C_text("include-ci")); -lf[209]=C_h_intern(&lf[209],17, C_text("##core#include-ci")); -lf[210]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\377\001\000\000\000\001")); -lf[211]=C_h_intern(&lf[211],7, C_text("include")); -lf[212]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\377\001\000\000\000\001")); -lf[213]=C_h_intern(&lf[213],11, C_text("delay-force")); -lf[214]=C_h_intern(&lf[214],18, C_text("##sys#make-promise")); -lf[215]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[216]=C_h_intern(&lf[216],7, C_text("declare")); -lf[217]=C_h_intern(&lf[217],14, C_text("##core#declare")); -lf[218]=C_h_intern(&lf[218],7, C_text("receive")); -lf[219]=C_h_intern(&lf[219],10, C_text("##sys#list")); -lf[220]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[221]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[222]=C_h_intern(&lf[222],13, C_text("define-record")); -lf[223]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\163\154\157\164\040\163\160\145\143\151\146\151\143\141\164\151\157\156\000")); -lf[224]=C_h_intern(&lf[224],3, C_text("val")); -lf[225]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\055\000")); -lf[226]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\055\000")); -lf[227]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\055\163\145\164\041\000")); -lf[228]=C_h_intern(&lf[228],19, C_text("##sys#string-append")); -lf[229]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\077\000")); -lf[230]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\155\141\153\145\055\000")); -lf[231]=C_h_intern(&lf[231],19, C_text("chicken.base#setter")); -lf[232]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\001\000\000\001\001\137")); -lf[233]=C_h_intern(&lf[233],15, C_text("define-constant")); -lf[234]=C_h_intern(&lf[234],22, C_text("##core#define-constant")); -lf[235]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[236]=C_h_intern(&lf[236],19, C_text("let-compiler-syntax")); -lf[237]=C_h_intern(&lf[237],26, C_text("##core#let-compiler-syntax")); -lf[238]=C_h_intern(&lf[238],51, C_text("chicken.internal.syntax-rules#syntax-rules-mismatch")); -lf[239]=C_h_intern(&lf[239],7, C_text("##sys#+")); -lf[240]=C_h_intern(&lf[240],7, C_text("##sys#=")); -lf[241]=C_h_intern(&lf[241],8, C_text("##sys#>=")); -lf[242]=C_h_intern(&lf[242],41, C_text("chicken.internal.syntax-rules#safe-length")); -lf[243]=C_h_intern(&lf[243],22, C_text("define-compiler-syntax")); -lf[244]=C_h_intern(&lf[244],29, C_text("##core#define-compiler-syntax")); -lf[245]=C_h_intern(&lf[245],17, C_text("define-for-syntax")); -lf[246]=C_h_intern(&lf[246],16, C_text("begin-for-syntax")); -lf[247]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -lf[248]=C_h_intern(&lf[248],26, C_text("##core#elaborationtimeonly")); -lf[249]=C_h_intern(&lf[249],30, C_text("##sys#register-meta-expression")); -lf[250]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[251]=C_h_intern(&lf[251],6, C_text("syntax")); -lf[252]=C_h_intern(&lf[252],13, C_text("##core#syntax")); -lf[253]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[254]=C_h_intern(&lf[254],11, C_text("define-type")); -lf[255]=C_h_intern_kw(&lf[255],9, C_text("compiling")); -lf[256]=C_h_intern(&lf[256],14, C_text("##sys#features")); -lf[257]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[258]=C_h_intern(&lf[258],28, C_text("##compiler#type-abbreviation")); -lf[259]=C_h_intern(&lf[259],18, C_text("##sys#put/restore!")); -lf[260]=C_h_intern(&lf[260],52, C_text("chicken.compiler.scrutinizer#check-and-validate-type")); -lf[261]=C_h_intern(&lf[261],5, C_text("quote")); -lf[262]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[263]=C_h_intern(&lf[263],17, C_text("compiler-typecase")); -lf[264]=C_h_intern(&lf[264],15, C_text("##core#typecase")); -lf[265]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001\376\377\001\000\000\000\001")); -lf[266]=C_h_intern(&lf[266],21, C_text("define-specialization")); -lf[267]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[268]=C_h_intern(&lf[268],27, C_text("##core#local-specialization")); -lf[269]=C_h_intern(&lf[269],6, C_text("inline")); -lf[270]=C_h_intern(&lf[270],4, C_text("hide")); -lf[271]=C_h_intern(&lf[271],1, C_text("*")); -lf[272]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\151\156\166\141\154\151\144\040\141\162\147\165\155\145\156\164\040\163\171\156\164\141\170\000")); -lf[273]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\003\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); -lf[274]=C_h_intern(&lf[274],6, C_text("assume")); -lf[275]=C_h_intern(&lf[275],3, C_text("the")); -lf[276]=C_h_intern(&lf[276],11, C_text("##sys#map-n")); -lf[277]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[278]=C_h_intern(&lf[278],1, C_text(":")); -lf[279]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[280]=C_h_intern(&lf[280],42, C_text("chicken.compiler.scrutinizer#validate-type")); -lf[281]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\164\171\160\145\040\163\171\156\164\141\170\000")); -lf[282]=C_h_intern(&lf[282],4, C_text("type")); -lf[283]=C_h_intern(&lf[283],9, C_text("predicate")); -lf[284]=C_h_intern(&lf[284],4, C_text("pure")); -lf[285]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -lf[286]=C_h_intern(&lf[286],4, C_text("memv")); -lf[287]=C_h_intern(&lf[287],11, C_text("scheme#memv")); -lf[288]=C_h_intern(&lf[288],14, C_text("condition-case")); -lf[289]=C_h_intern(&lf[289],10, C_text("##sys#slot")); -lf[290]=C_h_intern(&lf[290],24, C_text("chicken.condition#signal")); -lf[291]=C_h_intern(&lf[291],4, C_text("cond")); -lf[292]=C_h_intern(&lf[292],17, C_text("handle-exceptions")); -lf[293]=C_h_intern(&lf[293],3, C_text("and")); -lf[294]=C_h_intern(&lf[294],4, C_text("kvar")); -lf[295]=C_h_intern(&lf[295],5, C_text("exvar")); -lf[296]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -lf[297]=C_h_intern(&lf[297],30, C_text("call-with-current-continuation")); -lf[298]=C_h_intern(&lf[298],40, C_text("chicken.condition#with-exception-handler")); -lf[299]=C_h_intern(&lf[299],1, C_text("k")); -lf[300]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -C_register_lf2(lf,301,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4398,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_expand_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[680] = { -{C_text("f_10007:chicken_2dsyntax_2escm"),(void*)f_10007}, -{C_text("f_10055:chicken_2dsyntax_2escm"),(void*)f_10055}, -{C_text("f_10059:chicken_2dsyntax_2escm"),(void*)f_10059}, -{C_text("f_10071:chicken_2dsyntax_2escm"),(void*)f_10071}, -{C_text("f_10083:chicken_2dsyntax_2escm"),(void*)f_10083}, -{C_text("f_10085:chicken_2dsyntax_2escm"),(void*)f_10085}, -{C_text("f_10133:chicken_2dsyntax_2escm"),(void*)f_10133}, -{C_text("f_10181:chicken_2dsyntax_2escm"),(void*)f_10181}, -{C_text("f_10188:chicken_2dsyntax_2escm"),(void*)f_10188}, -{C_text("f_10258:chicken_2dsyntax_2escm"),(void*)f_10258}, -{C_text("f_10276:chicken_2dsyntax_2escm"),(void*)f_10276}, -{C_text("f_10280:chicken_2dsyntax_2escm"),(void*)f_10280}, -{C_text("f_10296:chicken_2dsyntax_2escm"),(void*)f_10296}, -{C_text("f_10300:chicken_2dsyntax_2escm"),(void*)f_10300}, -{C_text("f_10312:chicken_2dsyntax_2escm"),(void*)f_10312}, -{C_text("f_10322:chicken_2dsyntax_2escm"),(void*)f_10322}, -{C_text("f_10370:chicken_2dsyntax_2escm"),(void*)f_10370}, -{C_text("f_10418:chicken_2dsyntax_2escm"),(void*)f_10418}, -{C_text("f_10425:chicken_2dsyntax_2escm"),(void*)f_10425}, -{C_text("f_10488:chicken_2dsyntax_2escm"),(void*)f_10488}, -{C_text("f_10536:chicken_2dsyntax_2escm"),(void*)f_10536}, -{C_text("f_10584:chicken_2dsyntax_2escm"),(void*)f_10584}, -{C_text("f_10632:chicken_2dsyntax_2escm"),(void*)f_10632}, -{C_text("f_10657:chicken_2dsyntax_2escm"),(void*)f_10657}, -{C_text("f_10666:chicken_2dsyntax_2escm"),(void*)f_10666}, -{C_text("f_10691:chicken_2dsyntax_2escm"),(void*)f_10691}, -{C_text("f_10700:chicken_2dsyntax_2escm"),(void*)f_10700}, -{C_text("f_10725:chicken_2dsyntax_2escm"),(void*)f_10725}, -{C_text("f_10734:chicken_2dsyntax_2escm"),(void*)f_10734}, -{C_text("f_10768:chicken_2dsyntax_2escm"),(void*)f_10768}, -{C_text("f_10804:chicken_2dsyntax_2escm"),(void*)f_10804}, -{C_text("f_10806:chicken_2dsyntax_2escm"),(void*)f_10806}, -{C_text("f_10810:chicken_2dsyntax_2escm"),(void*)f_10810}, -{C_text("f_10824:chicken_2dsyntax_2escm"),(void*)f_10824}, -{C_text("f_10828:chicken_2dsyntax_2escm"),(void*)f_10828}, -{C_text("f_10836:chicken_2dsyntax_2escm"),(void*)f_10836}, -{C_text("f_10839:chicken_2dsyntax_2escm"),(void*)f_10839}, -{C_text("f_10843:chicken_2dsyntax_2escm"),(void*)f_10843}, -{C_text("f_10851:chicken_2dsyntax_2escm"),(void*)f_10851}, -{C_text("f_10854:chicken_2dsyntax_2escm"),(void*)f_10854}, -{C_text("f_10861:chicken_2dsyntax_2escm"),(void*)f_10861}, -{C_text("f_10885:chicken_2dsyntax_2escm"),(void*)f_10885}, -{C_text("f_10897:chicken_2dsyntax_2escm"),(void*)f_10897}, -{C_text("f_10901:chicken_2dsyntax_2escm"),(void*)f_10901}, -{C_text("f_10913:chicken_2dsyntax_2escm"),(void*)f_10913}, -{C_text("f_10923:chicken_2dsyntax_2escm"),(void*)f_10923}, -{C_text("f_10971:chicken_2dsyntax_2escm"),(void*)f_10971}, -{C_text("f_11029:chicken_2dsyntax_2escm"),(void*)f_11029}, -{C_text("f_11044:chicken_2dsyntax_2escm"),(void*)f_11044}, -{C_text("f_11048:chicken_2dsyntax_2escm"),(void*)f_11048}, -{C_text("f_11060:chicken_2dsyntax_2escm"),(void*)f_11060}, -{C_text("f_11070:chicken_2dsyntax_2escm"),(void*)f_11070}, -{C_text("f_11118:chicken_2dsyntax_2escm"),(void*)f_11118}, -{C_text("f_11174:chicken_2dsyntax_2escm"),(void*)f_11174}, -{C_text("f_11183:chicken_2dsyntax_2escm"),(void*)f_11183}, -{C_text("f_11190:chicken_2dsyntax_2escm"),(void*)f_11190}, -{C_text("f_11199:chicken_2dsyntax_2escm"),(void*)f_11199}, -{C_text("f_11201:chicken_2dsyntax_2escm"),(void*)f_11201}, -{C_text("f_11251:chicken_2dsyntax_2escm"),(void*)f_11251}, -{C_text("f_11265:chicken_2dsyntax_2escm"),(void*)f_11265}, -{C_text("f_11271:chicken_2dsyntax_2escm"),(void*)f_11271}, -{C_text("f_11319:chicken_2dsyntax_2escm"),(void*)f_11319}, -{C_text("f_11353:chicken_2dsyntax_2escm"),(void*)f_11353}, -{C_text("f_11378:chicken_2dsyntax_2escm"),(void*)f_11378}, -{C_text("f_11387:chicken_2dsyntax_2escm"),(void*)f_11387}, -{C_text("f_11412:chicken_2dsyntax_2escm"),(void*)f_11412}, -{C_text("f_11421:chicken_2dsyntax_2escm"),(void*)f_11421}, -{C_text("f_11457:chicken_2dsyntax_2escm"),(void*)f_11457}, -{C_text("f_11459:chicken_2dsyntax_2escm"),(void*)f_11459}, -{C_text("f_11463:chicken_2dsyntax_2escm"),(void*)f_11463}, -{C_text("f_11484:chicken_2dsyntax_2escm"),(void*)f_11484}, -{C_text("f_11486:chicken_2dsyntax_2escm"),(void*)f_11486}, -{C_text("f_11522:chicken_2dsyntax_2escm"),(void*)f_11522}, -{C_text("f_11524:chicken_2dsyntax_2escm"),(void*)f_11524}, -{C_text("f_11528:chicken_2dsyntax_2escm"),(void*)f_11528}, -{C_text("f_11549:chicken_2dsyntax_2escm"),(void*)f_11549}, -{C_text("f_11551:chicken_2dsyntax_2escm"),(void*)f_11551}, -{C_text("f_11587:chicken_2dsyntax_2escm"),(void*)f_11587}, -{C_text("f_11589:chicken_2dsyntax_2escm"),(void*)f_11589}, -{C_text("f_11593:chicken_2dsyntax_2escm"),(void*)f_11593}, -{C_text("f_11614:chicken_2dsyntax_2escm"),(void*)f_11614}, -{C_text("f_11616:chicken_2dsyntax_2escm"),(void*)f_11616}, -{C_text("f_11652:chicken_2dsyntax_2escm"),(void*)f_11652}, -{C_text("f_11654:chicken_2dsyntax_2escm"),(void*)f_11654}, -{C_text("f_11658:chicken_2dsyntax_2escm"),(void*)f_11658}, -{C_text("f_11673:chicken_2dsyntax_2escm"),(void*)f_11673}, -{C_text("f_11675:chicken_2dsyntax_2escm"),(void*)f_11675}, -{C_text("f_11687:chicken_2dsyntax_2escm"),(void*)f_11687}, -{C_text("f_11689:chicken_2dsyntax_2escm"),(void*)f_11689}, -{C_text("f_11693:chicken_2dsyntax_2escm"),(void*)f_11693}, -{C_text("f_11715:chicken_2dsyntax_2escm"),(void*)f_11715}, -{C_text("f_11780:chicken_2dsyntax_2escm"),(void*)f_11780}, -{C_text("f_11782:chicken_2dsyntax_2escm"),(void*)f_11782}, -{C_text("f_11786:chicken_2dsyntax_2escm"),(void*)f_11786}, -{C_text("f_11792:chicken_2dsyntax_2escm"),(void*)f_11792}, -{C_text("f_11795:chicken_2dsyntax_2escm"),(void*)f_11795}, -{C_text("f_11798:chicken_2dsyntax_2escm"),(void*)f_11798}, -{C_text("f_11804:chicken_2dsyntax_2escm"),(void*)f_11804}, -{C_text("f_11807:chicken_2dsyntax_2escm"),(void*)f_11807}, -{C_text("f_11810:chicken_2dsyntax_2escm"),(void*)f_11810}, -{C_text("f_11814:chicken_2dsyntax_2escm"),(void*)f_11814}, -{C_text("f_11827:chicken_2dsyntax_2escm"),(void*)f_11827}, -{C_text("f_11842:chicken_2dsyntax_2escm"),(void*)f_11842}, -{C_text("f_11874:chicken_2dsyntax_2escm"),(void*)f_11874}, -{C_text("f_11905:chicken_2dsyntax_2escm"),(void*)f_11905}, -{C_text("f_11907:chicken_2dsyntax_2escm"),(void*)f_11907}, -{C_text("f_11923:chicken_2dsyntax_2escm"),(void*)f_11923}, -{C_text("f_11926:chicken_2dsyntax_2escm"),(void*)f_11926}, -{C_text("f_11929:chicken_2dsyntax_2escm"),(void*)f_11929}, -{C_text("f_11943:chicken_2dsyntax_2escm"),(void*)f_11943}, -{C_text("f_11955:chicken_2dsyntax_2escm"),(void*)f_11955}, -{C_text("f_11959:chicken_2dsyntax_2escm"),(void*)f_11959}, -{C_text("f_12052:chicken_2dsyntax_2escm"),(void*)f_12052}, -{C_text("f_12056:chicken_2dsyntax_2escm"),(void*)f_12056}, -{C_text("f_12071:chicken_2dsyntax_2escm"),(void*)f_12071}, -{C_text("f_12091:chicken_2dsyntax_2escm"),(void*)f_12091}, -{C_text("f_12097:chicken_2dsyntax_2escm"),(void*)f_12097}, -{C_text("f_12117:chicken_2dsyntax_2escm"),(void*)f_12117}, -{C_text("f_12125:chicken_2dsyntax_2escm"),(void*)f_12125}, -{C_text("f_12150:chicken_2dsyntax_2escm"),(void*)f_12150}, -{C_text("f_12160:chicken_2dsyntax_2escm"),(void*)f_12160}, -{C_text("f_12167:chicken_2dsyntax_2escm"),(void*)f_12167}, -{C_text("f_12171:chicken_2dsyntax_2escm"),(void*)f_12171}, -{C_text("f_12175:chicken_2dsyntax_2escm"),(void*)f_12175}, -{C_text("f_12177:chicken_2dsyntax_2escm"),(void*)f_12177}, -{C_text("f_12181:chicken_2dsyntax_2escm"),(void*)f_12181}, -{C_text("f_12192:chicken_2dsyntax_2escm"),(void*)f_12192}, -{C_text("f_12194:chicken_2dsyntax_2escm"),(void*)f_12194}, -{C_text("f_12204:chicken_2dsyntax_2escm"),(void*)f_12204}, -{C_text("f_12217:chicken_2dsyntax_2escm"),(void*)f_12217}, -{C_text("f_12233:chicken_2dsyntax_2escm"),(void*)f_12233}, -{C_text("f_12236:chicken_2dsyntax_2escm"),(void*)f_12236}, -{C_text("f_12239:chicken_2dsyntax_2escm"),(void*)f_12239}, -{C_text("f_12245:chicken_2dsyntax_2escm"),(void*)f_12245}, -{C_text("f_12254:chicken_2dsyntax_2escm"),(void*)f_12254}, -{C_text("f_12261:chicken_2dsyntax_2escm"),(void*)f_12261}, -{C_text("f_12275:chicken_2dsyntax_2escm"),(void*)f_12275}, -{C_text("f_12282:chicken_2dsyntax_2escm"),(void*)f_12282}, -{C_text("f_12291:chicken_2dsyntax_2escm"),(void*)f_12291}, -{C_text("f_12298:chicken_2dsyntax_2escm"),(void*)f_12298}, -{C_text("f_12312:chicken_2dsyntax_2escm"),(void*)f_12312}, -{C_text("f_12320:chicken_2dsyntax_2escm"),(void*)f_12320}, -{C_text("f_12322:chicken_2dsyntax_2escm"),(void*)f_12322}, -{C_text("f_12342:chicken_2dsyntax_2escm"),(void*)f_12342}, -{C_text("f_12356:chicken_2dsyntax_2escm"),(void*)f_12356}, -{C_text("f_12369:chicken_2dsyntax_2escm"),(void*)f_12369}, -{C_text("f_12417:chicken_2dsyntax_2escm"),(void*)f_12417}, -{C_text("f_12419:chicken_2dsyntax_2escm"),(void*)f_12419}, -{C_text("f_12423:chicken_2dsyntax_2escm"),(void*)f_12423}, -{C_text("f_12430:chicken_2dsyntax_2escm"),(void*)f_12430}, -{C_text("f_12438:chicken_2dsyntax_2escm"),(void*)f_12438}, -{C_text("f_12446:chicken_2dsyntax_2escm"),(void*)f_12446}, -{C_text("f_12448:chicken_2dsyntax_2escm"),(void*)f_12448}, -{C_text("f_12452:chicken_2dsyntax_2escm"),(void*)f_12452}, -{C_text("f_12455:chicken_2dsyntax_2escm"),(void*)f_12455}, -{C_text("f_12476:chicken_2dsyntax_2escm"),(void*)f_12476}, -{C_text("f_12478:chicken_2dsyntax_2escm"),(void*)f_12478}, -{C_text("f_12482:chicken_2dsyntax_2escm"),(void*)f_12482}, -{C_text("f_12493:chicken_2dsyntax_2escm"),(void*)f_12493}, -{C_text("f_12495:chicken_2dsyntax_2escm"),(void*)f_12495}, -{C_text("f_12499:chicken_2dsyntax_2escm"),(void*)f_12499}, -{C_text("f_12508:chicken_2dsyntax_2escm"),(void*)f_12508}, -{C_text("f_12511:chicken_2dsyntax_2escm"),(void*)f_12511}, -{C_text("f_12514:chicken_2dsyntax_2escm"),(void*)f_12514}, -{C_text("f_12537:chicken_2dsyntax_2escm"),(void*)f_12537}, -{C_text("f_12553:chicken_2dsyntax_2escm"),(void*)f_12553}, -{C_text("f_12555:chicken_2dsyntax_2escm"),(void*)f_12555}, -{C_text("f_12559:chicken_2dsyntax_2escm"),(void*)f_12559}, -{C_text("f_12565:chicken_2dsyntax_2escm"),(void*)f_12565}, -{C_text("f_12568:chicken_2dsyntax_2escm"),(void*)f_12568}, -{C_text("f_12592:chicken_2dsyntax_2escm"),(void*)f_12592}, -{C_text("f_12596:chicken_2dsyntax_2escm"),(void*)f_12596}, -{C_text("f_12603:chicken_2dsyntax_2escm"),(void*)f_12603}, -{C_text("f_12630:chicken_2dsyntax_2escm"),(void*)f_12630}, -{C_text("f_12632:chicken_2dsyntax_2escm"),(void*)f_12632}, -{C_text("f_12657:chicken_2dsyntax_2escm"),(void*)f_12657}, -{C_text("f_12676:chicken_2dsyntax_2escm"),(void*)f_12676}, -{C_text("f_12678:chicken_2dsyntax_2escm"),(void*)f_12678}, -{C_text("f_12688:chicken_2dsyntax_2escm"),(void*)f_12688}, -{C_text("f_12698:chicken_2dsyntax_2escm"),(void*)f_12698}, -{C_text("f_12701:chicken_2dsyntax_2escm"),(void*)f_12701}, -{C_text("f_12704:chicken_2dsyntax_2escm"),(void*)f_12704}, -{C_text("f_12712:chicken_2dsyntax_2escm"),(void*)f_12712}, -{C_text("f_12722:chicken_2dsyntax_2escm"),(void*)f_12722}, -{C_text("f_12725:chicken_2dsyntax_2escm"),(void*)f_12725}, -{C_text("f_12767:chicken_2dsyntax_2escm"),(void*)f_12767}, -{C_text("f_12769:chicken_2dsyntax_2escm"),(void*)f_12769}, -{C_text("f_12831:chicken_2dsyntax_2escm"),(void*)f_12831}, -{C_text("f_12852:chicken_2dsyntax_2escm"),(void*)f_12852}, -{C_text("f_12854:chicken_2dsyntax_2escm"),(void*)f_12854}, -{C_text("f_12879:chicken_2dsyntax_2escm"),(void*)f_12879}, -{C_text("f_12896:chicken_2dsyntax_2escm"),(void*)f_12896}, -{C_text("f_12898:chicken_2dsyntax_2escm"),(void*)f_12898}, -{C_text("f_12916:chicken_2dsyntax_2escm"),(void*)f_12916}, -{C_text("f_12952:chicken_2dsyntax_2escm"),(void*)f_12952}, -{C_text("f_12969:chicken_2dsyntax_2escm"),(void*)f_12969}, -{C_text("f_13026:chicken_2dsyntax_2escm"),(void*)f_13026}, -{C_text("f_13028:chicken_2dsyntax_2escm"),(void*)f_13028}, -{C_text("f_13038:chicken_2dsyntax_2escm"),(void*)f_13038}, -{C_text("f_13055:chicken_2dsyntax_2escm"),(void*)f_13055}, -{C_text("f_13076:chicken_2dsyntax_2escm"),(void*)f_13076}, -{C_text("f_13086:chicken_2dsyntax_2escm"),(void*)f_13086}, -{C_text("f_13094:chicken_2dsyntax_2escm"),(void*)f_13094}, -{C_text("f_13096:chicken_2dsyntax_2escm"),(void*)f_13096}, -{C_text("f_13112:chicken_2dsyntax_2escm"),(void*)f_13112}, -{C_text("f_13122:chicken_2dsyntax_2escm"),(void*)f_13122}, -{C_text("f_13156:chicken_2dsyntax_2escm"),(void*)f_13156}, -{C_text("f_13200:chicken_2dsyntax_2escm"),(void*)f_13200}, -{C_text("f_13203:chicken_2dsyntax_2escm"),(void*)f_13203}, -{C_text("f_13206:chicken_2dsyntax_2escm"),(void*)f_13206}, -{C_text("f_13212:chicken_2dsyntax_2escm"),(void*)f_13212}, -{C_text("f_13221:chicken_2dsyntax_2escm"),(void*)f_13221}, -{C_text("f_13228:chicken_2dsyntax_2escm"),(void*)f_13228}, -{C_text("f_13242:chicken_2dsyntax_2escm"),(void*)f_13242}, -{C_text("f_13249:chicken_2dsyntax_2escm"),(void*)f_13249}, -{C_text("f_13258:chicken_2dsyntax_2escm"),(void*)f_13258}, -{C_text("f_13265:chicken_2dsyntax_2escm"),(void*)f_13265}, -{C_text("f_13277:chicken_2dsyntax_2escm"),(void*)f_13277}, -{C_text("f_13288:chicken_2dsyntax_2escm"),(void*)f_13288}, -{C_text("f_13315:chicken_2dsyntax_2escm"),(void*)f_13315}, -{C_text("f_13317:chicken_2dsyntax_2escm"),(void*)f_13317}, -{C_text("f_13321:chicken_2dsyntax_2escm"),(void*)f_13321}, -{C_text("f_13337:chicken_2dsyntax_2escm"),(void*)f_13337}, -{C_text("f_13353:chicken_2dsyntax_2escm"),(void*)f_13353}, -{C_text("f_13355:chicken_2dsyntax_2escm"),(void*)f_13355}, -{C_text("f_13359:chicken_2dsyntax_2escm"),(void*)f_13359}, -{C_text("f_13368:chicken_2dsyntax_2escm"),(void*)f_13368}, -{C_text("f_13375:chicken_2dsyntax_2escm"),(void*)f_13375}, -{C_text("f_13383:chicken_2dsyntax_2escm"),(void*)f_13383}, -{C_text("f_13385:chicken_2dsyntax_2escm"),(void*)f_13385}, -{C_text("f_13410:chicken_2dsyntax_2escm"),(void*)f_13410}, -{C_text("f_13414:chicken_2dsyntax_2escm"),(void*)f_13414}, -{C_text("f_13464:chicken_2dsyntax_2escm"),(void*)f_13464}, -{C_text("f_13466:chicken_2dsyntax_2escm"),(void*)f_13466}, -{C_text("f_13470:chicken_2dsyntax_2escm"),(void*)f_13470}, -{C_text("f_13473:chicken_2dsyntax_2escm"),(void*)f_13473}, -{C_text("f_13476:chicken_2dsyntax_2escm"),(void*)f_13476}, -{C_text("f_13479:chicken_2dsyntax_2escm"),(void*)f_13479}, -{C_text("f_13482:chicken_2dsyntax_2escm"),(void*)f_13482}, -{C_text("f_13485:chicken_2dsyntax_2escm"),(void*)f_13485}, -{C_text("f_13487:chicken_2dsyntax_2escm"),(void*)f_13487}, -{C_text("f_13497:chicken_2dsyntax_2escm"),(void*)f_13497}, -{C_text("f_13522:chicken_2dsyntax_2escm"),(void*)f_13522}, -{C_text("f_13536:chicken_2dsyntax_2escm"),(void*)f_13536}, -{C_text("f_13538:chicken_2dsyntax_2escm"),(void*)f_13538}, -{C_text("f_13617:chicken_2dsyntax_2escm"),(void*)f_13617}, -{C_text("f_13642:chicken_2dsyntax_2escm"),(void*)f_13642}, -{C_text("f_13649:chicken_2dsyntax_2escm"),(void*)f_13649}, -{C_text("f_13653:chicken_2dsyntax_2escm"),(void*)f_13653}, -{C_text("f_13673:chicken_2dsyntax_2escm"),(void*)f_13673}, -{C_text("f_13698:chicken_2dsyntax_2escm"),(void*)f_13698}, -{C_text("f_13737:chicken_2dsyntax_2escm"),(void*)f_13737}, -{C_text("f_13739:chicken_2dsyntax_2escm"),(void*)f_13739}, -{C_text("f_13743:chicken_2dsyntax_2escm"),(void*)f_13743}, -{C_text("f_13746:chicken_2dsyntax_2escm"),(void*)f_13746}, -{C_text("f_13749:chicken_2dsyntax_2escm"),(void*)f_13749}, -{C_text("f_13760:chicken_2dsyntax_2escm"),(void*)f_13760}, -{C_text("f_4398:chicken_2dsyntax_2escm"),(void*)f_4398}, -{C_text("f_4401:chicken_2dsyntax_2escm"),(void*)f_4401}, -{C_text("f_4404:chicken_2dsyntax_2escm"),(void*)f_4404}, -{C_text("f_4514:chicken_2dsyntax_2escm"),(void*)f_4514}, -{C_text("f_4532:chicken_2dsyntax_2escm"),(void*)f_4532}, -{C_text("f_4572:chicken_2dsyntax_2escm"),(void*)f_4572}, -{C_text("f_4586:chicken_2dsyntax_2escm"),(void*)f_4586}, -{C_text("f_5686:chicken_2dsyntax_2escm"),(void*)f_5686}, -{C_text("f_5689:chicken_2dsyntax_2escm"),(void*)f_5689}, -{C_text("f_5692:chicken_2dsyntax_2escm"),(void*)f_5692}, -{C_text("f_5695:chicken_2dsyntax_2escm"),(void*)f_5695}, -{C_text("f_5699:chicken_2dsyntax_2escm"),(void*)f_5699}, -{C_text("f_5702:chicken_2dsyntax_2escm"),(void*)f_5702}, -{C_text("f_5705:chicken_2dsyntax_2escm"),(void*)f_5705}, -{C_text("f_5708:chicken_2dsyntax_2escm"),(void*)f_5708}, -{C_text("f_5711:chicken_2dsyntax_2escm"),(void*)f_5711}, -{C_text("f_5714:chicken_2dsyntax_2escm"),(void*)f_5714}, -{C_text("f_5717:chicken_2dsyntax_2escm"),(void*)f_5717}, -{C_text("f_5720:chicken_2dsyntax_2escm"),(void*)f_5720}, -{C_text("f_5724:chicken_2dsyntax_2escm"),(void*)f_5724}, -{C_text("f_5727:chicken_2dsyntax_2escm"),(void*)f_5727}, -{C_text("f_5730:chicken_2dsyntax_2escm"),(void*)f_5730}, -{C_text("f_5733:chicken_2dsyntax_2escm"),(void*)f_5733}, -{C_text("f_5736:chicken_2dsyntax_2escm"),(void*)f_5736}, -{C_text("f_5739:chicken_2dsyntax_2escm"),(void*)f_5739}, -{C_text("f_5742:chicken_2dsyntax_2escm"),(void*)f_5742}, -{C_text("f_5746:chicken_2dsyntax_2escm"),(void*)f_5746}, -{C_text("f_5749:chicken_2dsyntax_2escm"),(void*)f_5749}, -{C_text("f_5752:chicken_2dsyntax_2escm"),(void*)f_5752}, -{C_text("f_5755:chicken_2dsyntax_2escm"),(void*)f_5755}, -{C_text("f_5758:chicken_2dsyntax_2escm"),(void*)f_5758}, -{C_text("f_5761:chicken_2dsyntax_2escm"),(void*)f_5761}, -{C_text("f_5764:chicken_2dsyntax_2escm"),(void*)f_5764}, -{C_text("f_5767:chicken_2dsyntax_2escm"),(void*)f_5767}, -{C_text("f_5770:chicken_2dsyntax_2escm"),(void*)f_5770}, -{C_text("f_5773:chicken_2dsyntax_2escm"),(void*)f_5773}, -{C_text("f_5776:chicken_2dsyntax_2escm"),(void*)f_5776}, -{C_text("f_5779:chicken_2dsyntax_2escm"),(void*)f_5779}, -{C_text("f_5782:chicken_2dsyntax_2escm"),(void*)f_5782}, -{C_text("f_5785:chicken_2dsyntax_2escm"),(void*)f_5785}, -{C_text("f_5788:chicken_2dsyntax_2escm"),(void*)f_5788}, -{C_text("f_5792:chicken_2dsyntax_2escm"),(void*)f_5792}, -{C_text("f_5795:chicken_2dsyntax_2escm"),(void*)f_5795}, -{C_text("f_5798:chicken_2dsyntax_2escm"),(void*)f_5798}, -{C_text("f_5801:chicken_2dsyntax_2escm"),(void*)f_5801}, -{C_text("f_5804:chicken_2dsyntax_2escm"),(void*)f_5804}, -{C_text("f_5807:chicken_2dsyntax_2escm"),(void*)f_5807}, -{C_text("f_5810:chicken_2dsyntax_2escm"),(void*)f_5810}, -{C_text("f_5813:chicken_2dsyntax_2escm"),(void*)f_5813}, -{C_text("f_5816:chicken_2dsyntax_2escm"),(void*)f_5816}, -{C_text("f_5819:chicken_2dsyntax_2escm"),(void*)f_5819}, -{C_text("f_5822:chicken_2dsyntax_2escm"),(void*)f_5822}, -{C_text("f_5825:chicken_2dsyntax_2escm"),(void*)f_5825}, -{C_text("f_5828:chicken_2dsyntax_2escm"),(void*)f_5828}, -{C_text("f_5831:chicken_2dsyntax_2escm"),(void*)f_5831}, -{C_text("f_5834:chicken_2dsyntax_2escm"),(void*)f_5834}, -{C_text("f_5837:chicken_2dsyntax_2escm"),(void*)f_5837}, -{C_text("f_5840:chicken_2dsyntax_2escm"),(void*)f_5840}, -{C_text("f_5843:chicken_2dsyntax_2escm"),(void*)f_5843}, -{C_text("f_5846:chicken_2dsyntax_2escm"),(void*)f_5846}, -{C_text("f_5850:chicken_2dsyntax_2escm"),(void*)f_5850}, -{C_text("f_5853:chicken_2dsyntax_2escm"),(void*)f_5853}, -{C_text("f_5856:chicken_2dsyntax_2escm"),(void*)f_5856}, -{C_text("f_5860:chicken_2dsyntax_2escm"),(void*)f_5860}, -{C_text("f_5863:chicken_2dsyntax_2escm"),(void*)f_5863}, -{C_text("f_5866:chicken_2dsyntax_2escm"),(void*)f_5866}, -{C_text("f_5869:chicken_2dsyntax_2escm"),(void*)f_5869}, -{C_text("f_5877:chicken_2dsyntax_2escm"),(void*)f_5877}, -{C_text("f_5879:chicken_2dsyntax_2escm"),(void*)f_5879}, -{C_text("f_5883:chicken_2dsyntax_2escm"),(void*)f_5883}, -{C_text("f_5885:chicken_2dsyntax_2escm"),(void*)f_5885}, -{C_text("f_5891:chicken_2dsyntax_2escm"),(void*)f_5891}, -{C_text("f_5905:chicken_2dsyntax_2escm"),(void*)f_5905}, -{C_text("f_5909:chicken_2dsyntax_2escm"),(void*)f_5909}, -{C_text("f_5917:chicken_2dsyntax_2escm"),(void*)f_5917}, -{C_text("f_5920:chicken_2dsyntax_2escm"),(void*)f_5920}, -{C_text("f_5923:chicken_2dsyntax_2escm"),(void*)f_5923}, -{C_text("f_5926:chicken_2dsyntax_2escm"),(void*)f_5926}, -{C_text("f_5929:chicken_2dsyntax_2escm"),(void*)f_5929}, -{C_text("f_5932:chicken_2dsyntax_2escm"),(void*)f_5932}, -{C_text("f_5935:chicken_2dsyntax_2escm"),(void*)f_5935}, -{C_text("f_5938:chicken_2dsyntax_2escm"),(void*)f_5938}, -{C_text("f_5941:chicken_2dsyntax_2escm"),(void*)f_5941}, -{C_text("f_5944:chicken_2dsyntax_2escm"),(void*)f_5944}, -{C_text("f_5951:chicken_2dsyntax_2escm"),(void*)f_5951}, -{C_text("f_5967:chicken_2dsyntax_2escm"),(void*)f_5967}, -{C_text("f_5969:chicken_2dsyntax_2escm"),(void*)f_5969}, -{C_text("f_5977:chicken_2dsyntax_2escm"),(void*)f_5977}, -{C_text("f_5987:chicken_2dsyntax_2escm"),(void*)f_5987}, -{C_text("f_5991:chicken_2dsyntax_2escm"),(void*)f_5991}, -{C_text("f_6001:chicken_2dsyntax_2escm"),(void*)f_6001}, -{C_text("f_6005:chicken_2dsyntax_2escm"),(void*)f_6005}, -{C_text("f_6007:chicken_2dsyntax_2escm"),(void*)f_6007}, -{C_text("f_6015:chicken_2dsyntax_2escm"),(void*)f_6015}, -{C_text("f_6017:chicken_2dsyntax_2escm"),(void*)f_6017}, -{C_text("f_6021:chicken_2dsyntax_2escm"),(void*)f_6021}, -{C_text("f_6043:chicken_2dsyntax_2escm"),(void*)f_6043}, -{C_text("f_6045:chicken_2dsyntax_2escm"),(void*)f_6045}, -{C_text("f_6093:chicken_2dsyntax_2escm"),(void*)f_6093}, -{C_text("f_6146:chicken_2dsyntax_2escm"),(void*)f_6146}, -{C_text("f_6157:chicken_2dsyntax_2escm"),(void*)f_6157}, -{C_text("f_6194:chicken_2dsyntax_2escm"),(void*)f_6194}, -{C_text("f_6222:chicken_2dsyntax_2escm"),(void*)f_6222}, -{C_text("f_6249:chicken_2dsyntax_2escm"),(void*)f_6249}, -{C_text("f_6259:chicken_2dsyntax_2escm"),(void*)f_6259}, -{C_text("f_6261:chicken_2dsyntax_2escm"),(void*)f_6261}, -{C_text("f_6286:chicken_2dsyntax_2escm"),(void*)f_6286}, -{C_text("f_6317:chicken_2dsyntax_2escm"),(void*)f_6317}, -{C_text("f_6319:chicken_2dsyntax_2escm"),(void*)f_6319}, -{C_text("f_6323:chicken_2dsyntax_2escm"),(void*)f_6323}, -{C_text("f_6366:chicken_2dsyntax_2escm"),(void*)f_6366}, -{C_text("f_6368:chicken_2dsyntax_2escm"),(void*)f_6368}, -{C_text("f_6372:chicken_2dsyntax_2escm"),(void*)f_6372}, -{C_text("f_6375:chicken_2dsyntax_2escm"),(void*)f_6375}, -{C_text("f_6378:chicken_2dsyntax_2escm"),(void*)f_6378}, -{C_text("f_6381:chicken_2dsyntax_2escm"),(void*)f_6381}, -{C_text("f_6384:chicken_2dsyntax_2escm"),(void*)f_6384}, -{C_text("f_6387:chicken_2dsyntax_2escm"),(void*)f_6387}, -{C_text("f_6390:chicken_2dsyntax_2escm"),(void*)f_6390}, -{C_text("f_6393:chicken_2dsyntax_2escm"),(void*)f_6393}, -{C_text("f_6396:chicken_2dsyntax_2escm"),(void*)f_6396}, -{C_text("f_6399:chicken_2dsyntax_2escm"),(void*)f_6399}, -{C_text("f_6402:chicken_2dsyntax_2escm"),(void*)f_6402}, -{C_text("f_6405:chicken_2dsyntax_2escm"),(void*)f_6405}, -{C_text("f_6408:chicken_2dsyntax_2escm"),(void*)f_6408}, -{C_text("f_6411:chicken_2dsyntax_2escm"),(void*)f_6411}, -{C_text("f_6414:chicken_2dsyntax_2escm"),(void*)f_6414}, -{C_text("f_6417:chicken_2dsyntax_2escm"),(void*)f_6417}, -{C_text("f_6424:chicken_2dsyntax_2escm"),(void*)f_6424}, -{C_text("f_6431:chicken_2dsyntax_2escm"),(void*)f_6431}, -{C_text("f_6444:chicken_2dsyntax_2escm"),(void*)f_6444}, -{C_text("f_6447:chicken_2dsyntax_2escm"),(void*)f_6447}, -{C_text("f_6466:chicken_2dsyntax_2escm"),(void*)f_6466}, -{C_text("f_6512:chicken_2dsyntax_2escm"),(void*)f_6512}, -{C_text("f_6527:chicken_2dsyntax_2escm"),(void*)f_6527}, -{C_text("f_6562:chicken_2dsyntax_2escm"),(void*)f_6562}, -{C_text("f_6628:chicken_2dsyntax_2escm"),(void*)f_6628}, -{C_text("f_6728:chicken_2dsyntax_2escm"),(void*)f_6728}, -{C_text("f_6754:chicken_2dsyntax_2escm"),(void*)f_6754}, -{C_text("f_6756:chicken_2dsyntax_2escm"),(void*)f_6756}, -{C_text("f_6760:chicken_2dsyntax_2escm"),(void*)f_6760}, -{C_text("f_6771:chicken_2dsyntax_2escm"),(void*)f_6771}, -{C_text("f_6774:chicken_2dsyntax_2escm"),(void*)f_6774}, -{C_text("f_6797:chicken_2dsyntax_2escm"),(void*)f_6797}, -{C_text("f_6816:chicken_2dsyntax_2escm"),(void*)f_6816}, -{C_text("f_6826:chicken_2dsyntax_2escm"),(void*)f_6826}, -{C_text("f_6833:chicken_2dsyntax_2escm"),(void*)f_6833}, -{C_text("f_6843:chicken_2dsyntax_2escm"),(void*)f_6843}, -{C_text("f_6845:chicken_2dsyntax_2escm"),(void*)f_6845}, -{C_text("f_6853:chicken_2dsyntax_2escm"),(void*)f_6853}, -{C_text("f_6861:chicken_2dsyntax_2escm"),(void*)f_6861}, -{C_text("f_6863:chicken_2dsyntax_2escm"),(void*)f_6863}, -{C_text("f_6867:chicken_2dsyntax_2escm"),(void*)f_6867}, -{C_text("f_6926:chicken_2dsyntax_2escm"),(void*)f_6926}, -{C_text("f_6928:chicken_2dsyntax_2escm"),(void*)f_6928}, -{C_text("f_6932:chicken_2dsyntax_2escm"),(void*)f_6932}, -{C_text("f_6935:chicken_2dsyntax_2escm"),(void*)f_6935}, -{C_text("f_6938:chicken_2dsyntax_2escm"),(void*)f_6938}, -{C_text("f_6941:chicken_2dsyntax_2escm"),(void*)f_6941}, -{C_text("f_6948:chicken_2dsyntax_2escm"),(void*)f_6948}, -{C_text("f_6958:chicken_2dsyntax_2escm"),(void*)f_6958}, -{C_text("f_6961:chicken_2dsyntax_2escm"),(void*)f_6961}, -{C_text("f_6967:chicken_2dsyntax_2escm"),(void*)f_6967}, -{C_text("f_6978:chicken_2dsyntax_2escm"),(void*)f_6978}, -{C_text("f_6994:chicken_2dsyntax_2escm"),(void*)f_6994}, -{C_text("f_7004:chicken_2dsyntax_2escm"),(void*)f_7004}, -{C_text("f_7027:chicken_2dsyntax_2escm"),(void*)f_7027}, -{C_text("f_7030:chicken_2dsyntax_2escm"),(void*)f_7030}, -{C_text("f_7047:chicken_2dsyntax_2escm"),(void*)f_7047}, -{C_text("f_7053:chicken_2dsyntax_2escm"),(void*)f_7053}, -{C_text("f_7070:chicken_2dsyntax_2escm"),(void*)f_7070}, -{C_text("f_7093:chicken_2dsyntax_2escm"),(void*)f_7093}, -{C_text("f_7121:chicken_2dsyntax_2escm"),(void*)f_7121}, -{C_text("f_7123:chicken_2dsyntax_2escm"),(void*)f_7123}, -{C_text("f_7127:chicken_2dsyntax_2escm"),(void*)f_7127}, -{C_text("f_7130:chicken_2dsyntax_2escm"),(void*)f_7130}, -{C_text("f_7133:chicken_2dsyntax_2escm"),(void*)f_7133}, -{C_text("f_7136:chicken_2dsyntax_2escm"),(void*)f_7136}, -{C_text("f_7143:chicken_2dsyntax_2escm"),(void*)f_7143}, -{C_text("f_7153:chicken_2dsyntax_2escm"),(void*)f_7153}, -{C_text("f_7156:chicken_2dsyntax_2escm"),(void*)f_7156}, -{C_text("f_7162:chicken_2dsyntax_2escm"),(void*)f_7162}, -{C_text("f_7169:chicken_2dsyntax_2escm"),(void*)f_7169}, -{C_text("f_7185:chicken_2dsyntax_2escm"),(void*)f_7185}, -{C_text("f_7195:chicken_2dsyntax_2escm"),(void*)f_7195}, -{C_text("f_7218:chicken_2dsyntax_2escm"),(void*)f_7218}, -{C_text("f_7221:chicken_2dsyntax_2escm"),(void*)f_7221}, -{C_text("f_7238:chicken_2dsyntax_2escm"),(void*)f_7238}, -{C_text("f_7244:chicken_2dsyntax_2escm"),(void*)f_7244}, -{C_text("f_7293:chicken_2dsyntax_2escm"),(void*)f_7293}, -{C_text("f_7295:chicken_2dsyntax_2escm"),(void*)f_7295}, -{C_text("f_7299:chicken_2dsyntax_2escm"),(void*)f_7299}, -{C_text("f_7305:chicken_2dsyntax_2escm"),(void*)f_7305}, -{C_text("f_7308:chicken_2dsyntax_2escm"),(void*)f_7308}, -{C_text("f_7320:chicken_2dsyntax_2escm"),(void*)f_7320}, -{C_text("f_7323:chicken_2dsyntax_2escm"),(void*)f_7323}, -{C_text("f_7326:chicken_2dsyntax_2escm"),(void*)f_7326}, -{C_text("f_7329:chicken_2dsyntax_2escm"),(void*)f_7329}, -{C_text("f_7332:chicken_2dsyntax_2escm"),(void*)f_7332}, -{C_text("f_7338:chicken_2dsyntax_2escm"),(void*)f_7338}, -{C_text("f_7341:chicken_2dsyntax_2escm"),(void*)f_7341}, -{C_text("f_7350:chicken_2dsyntax_2escm"),(void*)f_7350}, -{C_text("f_7351:chicken_2dsyntax_2escm"),(void*)f_7351}, -{C_text("f_7367:chicken_2dsyntax_2escm"),(void*)f_7367}, -{C_text("f_7398:chicken_2dsyntax_2escm"),(void*)f_7398}, -{C_text("f_7400:chicken_2dsyntax_2escm"),(void*)f_7400}, -{C_text("f_7419:chicken_2dsyntax_2escm"),(void*)f_7419}, -{C_text("f_7425:chicken_2dsyntax_2escm"),(void*)f_7425}, -{C_text("f_7436:chicken_2dsyntax_2escm"),(void*)f_7436}, -{C_text("f_7440:chicken_2dsyntax_2escm"),(void*)f_7440}, -{C_text("f_7444:chicken_2dsyntax_2escm"),(void*)f_7444}, -{C_text("f_7484:chicken_2dsyntax_2escm"),(void*)f_7484}, -{C_text("f_7514:chicken_2dsyntax_2escm"),(void*)f_7514}, -{C_text("f_7525:chicken_2dsyntax_2escm"),(void*)f_7525}, -{C_text("f_7600:chicken_2dsyntax_2escm"),(void*)f_7600}, -{C_text("f_7667:chicken_2dsyntax_2escm"),(void*)f_7667}, -{C_text("f_7680:chicken_2dsyntax_2escm"),(void*)f_7680}, -{C_text("f_7682:chicken_2dsyntax_2escm"),(void*)f_7682}, -{C_text("f_7728:chicken_2dsyntax_2escm"),(void*)f_7728}, -{C_text("f_7738:chicken_2dsyntax_2escm"),(void*)f_7738}, -{C_text("f_7751:chicken_2dsyntax_2escm"),(void*)f_7751}, -{C_text("f_7786:chicken_2dsyntax_2escm"),(void*)f_7786}, -{C_text("f_7793:chicken_2dsyntax_2escm"),(void*)f_7793}, -{C_text("f_7797:chicken_2dsyntax_2escm"),(void*)f_7797}, -{C_text("f_7805:chicken_2dsyntax_2escm"),(void*)f_7805}, -{C_text("f_7807:chicken_2dsyntax_2escm"),(void*)f_7807}, -{C_text("f_7811:chicken_2dsyntax_2escm"),(void*)f_7811}, -{C_text("f_7823:chicken_2dsyntax_2escm"),(void*)f_7823}, -{C_text("f_7826:chicken_2dsyntax_2escm"),(void*)f_7826}, -{C_text("f_7829:chicken_2dsyntax_2escm"),(void*)f_7829}, -{C_text("f_7832:chicken_2dsyntax_2escm"),(void*)f_7832}, -{C_text("f_7843:chicken_2dsyntax_2escm"),(void*)f_7843}, -{C_text("f_7845:chicken_2dsyntax_2escm"),(void*)f_7845}, -{C_text("f_7871:chicken_2dsyntax_2escm"),(void*)f_7871}, -{C_text("f_7882:chicken_2dsyntax_2escm"),(void*)f_7882}, -{C_text("f_7965:chicken_2dsyntax_2escm"),(void*)f_7965}, -{C_text("f_7967:chicken_2dsyntax_2escm"),(void*)f_7967}, -{C_text("f_7971:chicken_2dsyntax_2escm"),(void*)f_7971}, -{C_text("f_7974:chicken_2dsyntax_2escm"),(void*)f_7974}, -{C_text("f_8004:chicken_2dsyntax_2escm"),(void*)f_8004}, -{C_text("f_8014:chicken_2dsyntax_2escm"),(void*)f_8014}, -{C_text("f_8042:chicken_2dsyntax_2escm"),(void*)f_8042}, -{C_text("f_8044:chicken_2dsyntax_2escm"),(void*)f_8044}, -{C_text("f_8048:chicken_2dsyntax_2escm"),(void*)f_8048}, -{C_text("f_8067:chicken_2dsyntax_2escm"),(void*)f_8067}, -{C_text("f_8071:chicken_2dsyntax_2escm"),(void*)f_8071}, -{C_text("f_8075:chicken_2dsyntax_2escm"),(void*)f_8075}, -{C_text("f_8077:chicken_2dsyntax_2escm"),(void*)f_8077}, -{C_text("f_8098:chicken_2dsyntax_2escm"),(void*)f_8098}, -{C_text("f_8116:chicken_2dsyntax_2escm"),(void*)f_8116}, -{C_text("f_8124:chicken_2dsyntax_2escm"),(void*)f_8124}, -{C_text("f_8128:chicken_2dsyntax_2escm"),(void*)f_8128}, -{C_text("f_8138:chicken_2dsyntax_2escm"),(void*)f_8138}, -{C_text("f_8144:chicken_2dsyntax_2escm"),(void*)f_8144}, -{C_text("f_8158:chicken_2dsyntax_2escm"),(void*)f_8158}, -{C_text("f_8184:chicken_2dsyntax_2escm"),(void*)f_8184}, -{C_text("f_8208:chicken_2dsyntax_2escm"),(void*)f_8208}, -{C_text("f_8216:chicken_2dsyntax_2escm"),(void*)f_8216}, -{C_text("f_8224:chicken_2dsyntax_2escm"),(void*)f_8224}, -{C_text("f_8228:chicken_2dsyntax_2escm"),(void*)f_8228}, -{C_text("f_8231:chicken_2dsyntax_2escm"),(void*)f_8231}, -{C_text("f_8234:chicken_2dsyntax_2escm"),(void*)f_8234}, -{C_text("f_8243:chicken_2dsyntax_2escm"),(void*)f_8243}, -{C_text("f_8244:chicken_2dsyntax_2escm"),(void*)f_8244}, -{C_text("f_8252:chicken_2dsyntax_2escm"),(void*)f_8252}, -{C_text("f_8256:chicken_2dsyntax_2escm"),(void*)f_8256}, -{C_text("f_8260:chicken_2dsyntax_2escm"),(void*)f_8260}, -{C_text("f_8268:chicken_2dsyntax_2escm"),(void*)f_8268}, -{C_text("f_8274:chicken_2dsyntax_2escm"),(void*)f_8274}, -{C_text("f_8280:chicken_2dsyntax_2escm"),(void*)f_8280}, -{C_text("f_8283:chicken_2dsyntax_2escm"),(void*)f_8283}, -{C_text("f_8286:chicken_2dsyntax_2escm"),(void*)f_8286}, -{C_text("f_8290:chicken_2dsyntax_2escm"),(void*)f_8290}, -{C_text("f_8298:chicken_2dsyntax_2escm"),(void*)f_8298}, -{C_text("f_8301:chicken_2dsyntax_2escm"),(void*)f_8301}, -{C_text("f_8304:chicken_2dsyntax_2escm"),(void*)f_8304}, -{C_text("f_8307:chicken_2dsyntax_2escm"),(void*)f_8307}, -{C_text("f_8314:chicken_2dsyntax_2escm"),(void*)f_8314}, -{C_text("f_8340:chicken_2dsyntax_2escm"),(void*)f_8340}, -{C_text("f_8365:chicken_2dsyntax_2escm"),(void*)f_8365}, -{C_text("f_8374:chicken_2dsyntax_2escm"),(void*)f_8374}, -{C_text("f_8408:chicken_2dsyntax_2escm"),(void*)f_8408}, -{C_text("f_8433:chicken_2dsyntax_2escm"),(void*)f_8433}, -{C_text("f_8442:chicken_2dsyntax_2escm"),(void*)f_8442}, -{C_text("f_8490:chicken_2dsyntax_2escm"),(void*)f_8490}, -{C_text("f_8492:chicken_2dsyntax_2escm"),(void*)f_8492}, -{C_text("f_8496:chicken_2dsyntax_2escm"),(void*)f_8496}, -{C_text("f_8506:chicken_2dsyntax_2escm"),(void*)f_8506}, -{C_text("f_8533:chicken_2dsyntax_2escm"),(void*)f_8533}, -{C_text("f_8536:chicken_2dsyntax_2escm"),(void*)f_8536}, -{C_text("f_8551:chicken_2dsyntax_2escm"),(void*)f_8551}, -{C_text("f_8559:chicken_2dsyntax_2escm"),(void*)f_8559}, -{C_text("f_8568:chicken_2dsyntax_2escm"),(void*)f_8568}, -{C_text("f_8583:chicken_2dsyntax_2escm"),(void*)f_8583}, -{C_text("f_8593:chicken_2dsyntax_2escm"),(void*)f_8593}, -{C_text("f_8596:chicken_2dsyntax_2escm"),(void*)f_8596}, -{C_text("f_8612:chicken_2dsyntax_2escm"),(void*)f_8612}, -{C_text("f_8632:chicken_2dsyntax_2escm"),(void*)f_8632}, -{C_text("f_8634:chicken_2dsyntax_2escm"),(void*)f_8634}, -{C_text("f_8636:chicken_2dsyntax_2escm"),(void*)f_8636}, -{C_text("f_8640:chicken_2dsyntax_2escm"),(void*)f_8640}, -{C_text("f_8649:chicken_2dsyntax_2escm"),(void*)f_8649}, -{C_text("f_8652:chicken_2dsyntax_2escm"),(void*)f_8652}, -{C_text("f_8661:chicken_2dsyntax_2escm"),(void*)f_8661}, -{C_text("f_8677:chicken_2dsyntax_2escm"),(void*)f_8677}, -{C_text("f_8681:chicken_2dsyntax_2escm"),(void*)f_8681}, -{C_text("f_8724:chicken_2dsyntax_2escm"),(void*)f_8724}, -{C_text("f_8736:chicken_2dsyntax_2escm"),(void*)f_8736}, -{C_text("f_8738:chicken_2dsyntax_2escm"),(void*)f_8738}, -{C_text("f_8742:chicken_2dsyntax_2escm"),(void*)f_8742}, -{C_text("f_8745:chicken_2dsyntax_2escm"),(void*)f_8745}, -{C_text("f_8764:chicken_2dsyntax_2escm"),(void*)f_8764}, -{C_text("f_8780:chicken_2dsyntax_2escm"),(void*)f_8780}, -{C_text("f_8782:chicken_2dsyntax_2escm"),(void*)f_8782}, -{C_text("f_8786:chicken_2dsyntax_2escm"),(void*)f_8786}, -{C_text("f_8789:chicken_2dsyntax_2escm"),(void*)f_8789}, -{C_text("f_8802:chicken_2dsyntax_2escm"),(void*)f_8802}, -{C_text("f_8804:chicken_2dsyntax_2escm"),(void*)f_8804}, -{C_text("f_8808:chicken_2dsyntax_2escm"),(void*)f_8808}, -{C_text("f_8822:chicken_2dsyntax_2escm"),(void*)f_8822}, -{C_text("f_8828:chicken_2dsyntax_2escm"),(void*)f_8828}, -{C_text("f_8853:chicken_2dsyntax_2escm"),(void*)f_8853}, -{C_text("f_8855:chicken_2dsyntax_2escm"),(void*)f_8855}, -{C_text("f_8862:chicken_2dsyntax_2escm"),(void*)f_8862}, -{C_text("f_8868:chicken_2dsyntax_2escm"),(void*)f_8868}, -{C_text("f_8872:chicken_2dsyntax_2escm"),(void*)f_8872}, -{C_text("f_8882:chicken_2dsyntax_2escm"),(void*)f_8882}, -{C_text("f_8884:chicken_2dsyntax_2escm"),(void*)f_8884}, -{C_text("f_8913:chicken_2dsyntax_2escm"),(void*)f_8913}, -{C_text("f_8932:chicken_2dsyntax_2escm"),(void*)f_8932}, -{C_text("f_8966:chicken_2dsyntax_2escm"),(void*)f_8966}, -{C_text("f_8984:chicken_2dsyntax_2escm"),(void*)f_8984}, -{C_text("f_8990:chicken_2dsyntax_2escm"),(void*)f_8990}, -{C_text("f_9024:chicken_2dsyntax_2escm"),(void*)f_9024}, -{C_text("f_9060:chicken_2dsyntax_2escm"),(void*)f_9060}, -{C_text("f_9062:chicken_2dsyntax_2escm"),(void*)f_9062}, -{C_text("f_9066:chicken_2dsyntax_2escm"),(void*)f_9066}, -{C_text("f_9074:chicken_2dsyntax_2escm"),(void*)f_9074}, -{C_text("f_9079:chicken_2dsyntax_2escm"),(void*)f_9079}, -{C_text("f_9104:chicken_2dsyntax_2escm"),(void*)f_9104}, -{C_text("f_9114:chicken_2dsyntax_2escm"),(void*)f_9114}, -{C_text("f_9116:chicken_2dsyntax_2escm"),(void*)f_9116}, -{C_text("f_9120:chicken_2dsyntax_2escm"),(void*)f_9120}, -{C_text("f_9126:chicken_2dsyntax_2escm"),(void*)f_9126}, -{C_text("f_9147:chicken_2dsyntax_2escm"),(void*)f_9147}, -{C_text("f_9154:chicken_2dsyntax_2escm"),(void*)f_9154}, -{C_text("f_9177:chicken_2dsyntax_2escm"),(void*)f_9177}, -{C_text("f_9181:chicken_2dsyntax_2escm"),(void*)f_9181}, -{C_text("f_9202:chicken_2dsyntax_2escm"),(void*)f_9202}, -{C_text("f_9205:chicken_2dsyntax_2escm"),(void*)f_9205}, -{C_text("f_9209:chicken_2dsyntax_2escm"),(void*)f_9209}, -{C_text("f_9217:chicken_2dsyntax_2escm"),(void*)f_9217}, -{C_text("f_9221:chicken_2dsyntax_2escm"),(void*)f_9221}, -{C_text("f_9227:chicken_2dsyntax_2escm"),(void*)f_9227}, -{C_text("f_9228:chicken_2dsyntax_2escm"),(void*)f_9228}, -{C_text("f_9239:chicken_2dsyntax_2escm"),(void*)f_9239}, -{C_text("f_9254:chicken_2dsyntax_2escm"),(void*)f_9254}, -{C_text("f_9256:chicken_2dsyntax_2escm"),(void*)f_9256}, -{C_text("f_9275:chicken_2dsyntax_2escm"),(void*)f_9275}, -{C_text("f_9283:chicken_2dsyntax_2escm"),(void*)f_9283}, -{C_text("f_9289:chicken_2dsyntax_2escm"),(void*)f_9289}, -{C_text("f_9291:chicken_2dsyntax_2escm"),(void*)f_9291}, -{C_text("f_9316:chicken_2dsyntax_2escm"),(void*)f_9316}, -{C_text("f_9340:chicken_2dsyntax_2escm"),(void*)f_9340}, -{C_text("f_9377:chicken_2dsyntax_2escm"),(void*)f_9377}, -{C_text("f_9405:chicken_2dsyntax_2escm"),(void*)f_9405}, -{C_text("f_9439:chicken_2dsyntax_2escm"),(void*)f_9439}, -{C_text("f_9470:chicken_2dsyntax_2escm"),(void*)f_9470}, -{C_text("f_9477:chicken_2dsyntax_2escm"),(void*)f_9477}, -{C_text("f_9483:chicken_2dsyntax_2escm"),(void*)f_9483}, -{C_text("f_9508:chicken_2dsyntax_2escm"),(void*)f_9508}, -{C_text("f_9517:chicken_2dsyntax_2escm"),(void*)f_9517}, -{C_text("f_9530:chicken_2dsyntax_2escm"),(void*)f_9530}, -{C_text("f_9555:chicken_2dsyntax_2escm"),(void*)f_9555}, -{C_text("f_9591:chicken_2dsyntax_2escm"),(void*)f_9591}, -{C_text("f_9593:chicken_2dsyntax_2escm"),(void*)f_9593}, -{C_text("f_9597:chicken_2dsyntax_2escm"),(void*)f_9597}, -{C_text("f_9604:chicken_2dsyntax_2escm"),(void*)f_9604}, -{C_text("f_9608:chicken_2dsyntax_2escm"),(void*)f_9608}, -{C_text("f_9616:chicken_2dsyntax_2escm"),(void*)f_9616}, -{C_text("f_9630:chicken_2dsyntax_2escm"),(void*)f_9630}, -{C_text("f_9636:chicken_2dsyntax_2escm"),(void*)f_9636}, -{C_text("f_9643:chicken_2dsyntax_2escm"),(void*)f_9643}, -{C_text("f_9649:chicken_2dsyntax_2escm"),(void*)f_9649}, -{C_text("f_9662:chicken_2dsyntax_2escm"),(void*)f_9662}, -{C_text("f_9696:chicken_2dsyntax_2escm"),(void*)f_9696}, -{C_text("f_9706:chicken_2dsyntax_2escm"),(void*)f_9706}, -{C_text("f_9721:chicken_2dsyntax_2escm"),(void*)f_9721}, -{C_text("f_9723:chicken_2dsyntax_2escm"),(void*)f_9723}, -{C_text("f_9727:chicken_2dsyntax_2escm"),(void*)f_9727}, -{C_text("f_9742:chicken_2dsyntax_2escm"),(void*)f_9742}, -{C_text("f_9744:chicken_2dsyntax_2escm"),(void*)f_9744}, -{C_text("f_9748:chicken_2dsyntax_2escm"),(void*)f_9748}, -{C_text("f_9770:chicken_2dsyntax_2escm"),(void*)f_9770}, -{C_text("f_9772:chicken_2dsyntax_2escm"),(void*)f_9772}, -{C_text("f_9776:chicken_2dsyntax_2escm"),(void*)f_9776}, -{C_text("f_9794:chicken_2dsyntax_2escm"),(void*)f_9794}, -{C_text("f_9796:chicken_2dsyntax_2escm"),(void*)f_9796}, -{C_text("f_9805:chicken_2dsyntax_2escm"),(void*)f_9805}, -{C_text("f_9811:chicken_2dsyntax_2escm"),(void*)f_9811}, -{C_text("f_9817:chicken_2dsyntax_2escm"),(void*)f_9817}, -{C_text("f_9836:chicken_2dsyntax_2escm"),(void*)f_9836}, -{C_text("f_9838:chicken_2dsyntax_2escm"),(void*)f_9838}, -{C_text("f_9863:chicken_2dsyntax_2escm"),(void*)f_9863}, -{C_text("f_9874:chicken_2dsyntax_2escm"),(void*)f_9874}, -{C_text("f_9876:chicken_2dsyntax_2escm"),(void*)f_9876}, -{C_text("f_9895:chicken_2dsyntax_2escm"),(void*)f_9895}, -{C_text("f_9903:chicken_2dsyntax_2escm"),(void*)f_9903}, -{C_text("f_9912:chicken_2dsyntax_2escm"),(void*)f_9912}, -{C_text("f_9918:chicken_2dsyntax_2escm"),(void*)f_9918}, -{C_text("f_9922:chicken_2dsyntax_2escm"),(void*)f_9922}, -{C_text("f_9930:chicken_2dsyntax_2escm"),(void*)f_9930}, -{C_text("f_9936:chicken_2dsyntax_2escm"),(void*)f_9936}, -{C_text("f_9940:chicken_2dsyntax_2escm"),(void*)f_9940}, -{C_text("f_9948:chicken_2dsyntax_2escm"),(void*)f_9948}, -{C_text("f_9951:chicken_2dsyntax_2escm"),(void*)f_9951}, -{C_text("f_9955:chicken_2dsyntax_2escm"),(void*)f_9955}, -{C_text("f_9963:chicken_2dsyntax_2escm"),(void*)f_9963}, -{C_text("f_9966:chicken_2dsyntax_2escm"),(void*)f_9966}, -{C_text("f_9979:chicken_2dsyntax_2escm"),(void*)f_9979}, -{C_text("f_9996:chicken_2dsyntax_2escm"),(void*)f_9996}, -{C_text("toplevel:chicken_2dsyntax_2escm"),(void*)C_chicken_2dsyntax_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -S|applied compiler syntax: -S| scheme#for-each 2 -S| ##sys#map 11 -S| chicken.base#foldl 4 -S| scheme#map 45 -S| chicken.base#foldr 4 -o|eliminated procedure checks: 799 -o|specializations: -o| 1 (scheme#zero? integer) -o| 1 (scheme#cdadr (pair * (pair pair *))) -o| 1 (chicken.base#add1 *) -o| 2 (scheme#string-append string string) -o| 14 (scheme#cddr (pair * pair)) -o| 2 (scheme#length list) -o| 1 (scheme#caddr (pair * (pair * pair))) -o| 5 (scheme#cadr (pair * pair)) -o| 4 (scheme#cdddr (pair * (pair * pair))) -o| 1 (scheme#eqv? * *) -o| 40 (##sys#check-list (or pair list) *) -o| 78 (scheme#cdr pair) -o| 26 (scheme#car pair) -(o e)|safe calls: 1559 -o|safe globals: (posv posq make-list iota find-tail find length+ lset=/eq? lset<=/eq? list-tabulate lset-intersection/eq? lset-union/eq? lset-difference/eq? lset-adjoin/eq? list-index last unzip1 remove filter-map filter alist-cons delete-duplicates fifth fourth third second first delete concatenate cons* any every append-map split-at drop take span partition) -o|removed side-effect free assignment to unused variable: partition -o|removed side-effect free assignment to unused variable: span -o|inlining procedure: k4516 -o|inlining procedure: k4516 -o|removed side-effect free assignment to unused variable: drop -o|removed side-effect free assignment to unused variable: append-map -o|inlining procedure: k4786 -o|inlining procedure: k4786 -o|inlining procedure: k4817 -o|inlining procedure: k4817 -o|removed side-effect free assignment to unused variable: cons* -o|removed side-effect free assignment to unused variable: concatenate -o|removed side-effect free assignment to unused variable: first -o|removed side-effect free assignment to unused variable: second -o|removed side-effect free assignment to unused variable: third -o|removed side-effect free assignment to unused variable: fourth -o|removed side-effect free assignment to unused variable: fifth -o|removed side-effect free assignment to unused variable: delete-duplicates -o|removed side-effect free assignment to unused variable: alist-cons -o|inlining procedure: k5034 -o|inlining procedure: k5034 -o|inlining procedure: k5026 -o|inlining procedure: k5026 -o|removed side-effect free assignment to unused variable: filter-map -o|removed side-effect free assignment to unused variable: remove -o|removed side-effect free assignment to unused variable: unzip1 -o|removed side-effect free assignment to unused variable: last -o|removed side-effect free assignment to unused variable: list-index -o|removed side-effect free assignment to unused variable: lset-adjoin/eq? -o|removed side-effect free assignment to unused variable: lset-difference/eq? -o|removed side-effect free assignment to unused variable: lset-union/eq? -o|removed side-effect free assignment to unused variable: lset-intersection/eq? -o|inlining procedure: k5425 -o|inlining procedure: k5425 -o|removed side-effect free assignment to unused variable: lset<=/eq? -o|removed side-effect free assignment to unused variable: lset=/eq? -o|removed side-effect free assignment to unused variable: length+ -o|removed side-effect free assignment to unused variable: find -o|removed side-effect free assignment to unused variable: find-tail -o|removed side-effect free assignment to unused variable: iota -o|removed side-effect free assignment to unused variable: make-list -o|removed side-effect free assignment to unused variable: posq -o|removed side-effect free assignment to unused variable: posv -o|inlining procedure: k5893 -o|inlining procedure: k5893 -o|contracted procedure: "(chicken-syntax.scm:1348) split-at" -o|inlining procedure: k4574 -o|inlining procedure: k4574 -o|inlining procedure: k6022 -o|inlining procedure: k6022 -o|inlining procedure: k6047 -o|inlining procedure: k6047 -o|inlining procedure: k6095 -o|inlining procedure: k6123 -o|inlining procedure: k6123 -o|inlining procedure: k6095 -o|inlining procedure: k6155 -o|inlining procedure: k6155 -o|inlining procedure: k6195 -o|inlining procedure: k6195 -o|inlining procedure: k5971 -o|inlining procedure: k5971 -o|inlining procedure: k6263 -o|contracted procedure: "(chicken-syntax.scm:1318) g32903299" -o|inlining procedure: k6263 -o|inlining procedure: k6426 -o|inlining procedure: k6426 -o|inlining procedure: k6464 -o|inlining procedure: k6464 -o|inlining procedure: k6491 -o|inlining procedure: k6491 -o|inlining procedure: k6560 -o|inlining procedure: k6560 -o|inlining procedure: k6596 -o|inlining procedure: k6596 -o|inlining procedure: k6623 -o|inlining procedure: k6623 -o|inlining procedure: k6799 -o|inlining procedure: k6799 -o|inlining procedure: k6827 -o|inlining procedure: k6827 -o|inlining procedure: k6871 -o|inlining procedure: k6871 -o|inlining procedure: k6950 -o|inlining procedure: k6950 -o|inlining procedure: k7048 -o|inlining procedure: k7048 -o|inlining procedure: k7145 -o|inlining procedure: k7145 -o|inlining procedure: k7239 -o|inlining procedure: k7239 -o|inlining procedure: k7353 -o|inlining procedure: k7353 -o|inlining procedure: k7402 -o|inlining procedure: k7402 -o|inlining procedure: k7449 -o|inlining procedure: k7449 -o|inlining procedure: k7520 -o|inlining procedure: k7520 -o|inlining procedure: k7589 -o|inlining procedure: k7589 -o|inlining procedure: k7669 -o|inlining procedure: k7669 -o|inlining procedure: k7684 -o|inlining procedure: k7684 -o|inlining procedure: k7730 -o|inlining procedure: k7730 -o|inlining procedure: k7753 -o|inlining procedure: k7753 -o|inlining procedure: k7847 -o|inlining procedure: k7847 -o|removed unused formal parameters: (rename2751) -o|inlining procedure: k8146 -o|inlining procedure: k8146 -o|removed unused parameter to known procedure: rename2751 "(chicken-syntax.scm:899) make-if-tree2731" -o|contracted procedure: "(chicken-syntax.scm:897) make-default-procs2730" -o|inlining procedure: k8079 -o|inlining procedure: k8079 -o|inlining procedure: k8342 -o|inlining procedure: k8342 -o|inlining procedure: k8376 -o|inlining procedure: k8376 -o|inlining procedure: k8410 -o|inlining procedure: k8410 -o|inlining procedure: k8444 -o|inlining procedure: k8444 -o|inlining procedure: k8508 -o|inlining procedure: k8508 -o|inlining procedure: k8560 -o|inlining procedure: k8560 -o|inlining procedure: k8650 -o|inlining procedure: k8650 -o|inlining procedure: k8665 -o|inlining procedure: k8665 -o|inlining procedure: k8886 -o|inlining procedure: k8886 -o|inlining procedure: k8934 -o|contracted procedure: "(chicken-syntax.scm:676) g25732582" -o|inlining procedure: k8934 -o|inlining procedure: k8968 -o|contracted procedure: "(chicken-syntax.scm:677) g25892594" -o|inlining procedure: k8968 -o|substituted constant variable: g25902593 -o|inlining procedure: k8992 -o|inlining procedure: k8992 -o|inlining procedure: k9026 -o|inlining procedure: k9026 -o|inlining procedure: k9081 -o|inlining procedure: k9081 -o|inlining procedure: k9128 -o|inlining procedure: k9128 -o|inlining procedure: k9156 -o|inlining procedure: k9156 -o|inlining procedure: k9258 -o|inlining procedure: k9293 -o|inlining procedure: k9293 -o|inlining procedure: k9258 -o|inlining procedure: k9407 -o|contracted procedure: "(chicken-syntax.scm:634) g24652474" -o|inlining procedure: k9407 -o|inlining procedure: k9441 -o|inlining procedure: k9441 -o|inlining procedure: k9485 -o|inlining procedure: k9485 -o|inlining procedure: k9519 -o|inlining procedure: k9519 -o|inlining procedure: k9542 -o|inlining procedure: k9542 -o|inlining procedure: k9557 -o|inlining procedure: k9557 -o|inlining procedure: k9664 -o|contracted procedure: "(chicken-syntax.scm:593) g22802298" -o|inlining procedure: k9664 -o|inlining procedure: k9698 -o|contracted procedure: "(chicken-syntax.scm:589) g22652287" -o|inlining procedure: k9698 -o|inlining procedure: k9819 -o|inlining procedure: k9819 -o|inlining procedure: k9840 -o|inlining procedure: k9840 -o|contracted procedure: "(chicken-syntax.scm:502) pname1706" -o|inlining procedure: k9881 -o|inlining procedure: k9881 -o|removed unused formal parameters: (z1813) -o|removed unused formal parameters: (z1841) -o|inlining procedure: k10087 -o|contracted procedure: "(chicken-syntax.scm:539) g21452155" -o|inlining procedure: k10087 -o|inlining procedure: k10135 -o|contracted procedure: "(chicken-syntax.scm:537) g21092119" -o|inlining procedure: k10135 -o|inlining procedure: k10183 -o|contracted procedure: "(chicken-syntax.scm:534) g20672078" -o|inlining procedure: k10183 -o|inlining procedure: k10233 -o|inlining procedure: k10233 -o|inlining procedure: k10324 -o|contracted procedure: "(chicken-syntax.scm:527) g20312041" -o|inlining procedure: k10324 -o|inlining procedure: k10372 -o|contracted procedure: "(chicken-syntax.scm:524) g19952005" -o|inlining procedure: k10372 -o|inlining procedure: k10420 -o|inlining procedure: k10420 -o|inlining procedure: k10470 -o|inlining procedure: k10470 -o|inlining procedure: k10490 -o|inlining procedure: k10490 -o|inlining procedure: k10538 -o|inlining procedure: k10538 -o|inlining procedure: k10586 -o|inlining procedure: k10586 -o|inlining procedure: k10634 -o|removed unused parameter to known procedure: z1841 "(chicken-syntax.scm:504) g18301839" -o|inlining procedure: k10634 -o|inlining procedure: k10668 -o|removed unused parameter to known procedure: z1813 "(chicken-syntax.scm:503) g18021811" -o|inlining procedure: k10668 -o|inlining procedure: k10702 -o|inlining procedure: k10702 -o|inlining procedure: k10736 -o|inlining procedure: k10736 -o|inlining procedure: k10770 -o|inlining procedure: k10770 -o|removed unused formal parameters: (x1428) -o|removed unused formal parameters: (x1456) -o|inlining procedure: k10925 -o|contracted procedure: "(chicken-syntax.scm:484) g16741684" -o|inlining procedure: k10925 -o|inlining procedure: k10973 -o|contracted procedure: "(chicken-syntax.scm:482) g16381648" -o|inlining procedure: k10973 -o|inlining procedure: k11072 -o|contracted procedure: "(chicken-syntax.scm:477) g16021612" -o|inlining procedure: k11072 -o|inlining procedure: k11120 -o|contracted procedure: "(chicken-syntax.scm:475) g15661576" -o|inlining procedure: k11120 -o|inlining procedure: k11203 -o|inlining procedure: k11203 -o|inlining procedure: k11253 -o|inlining procedure: k11253 -o|inlining procedure: k11273 -o|inlining procedure: k11273 -o|inlining procedure: k11321 -o|inlining procedure: k11321 -o|inlining procedure: k11355 -o|removed unused parameter to known procedure: x1456 "(chicken-syntax.scm:465) g14451454" -o|inlining procedure: k11355 -o|inlining procedure: k11389 -o|removed unused parameter to known procedure: x1428 "(chicken-syntax.scm:464) g14171426" -o|inlining procedure: k11389 -o|inlining procedure: k11423 -o|inlining procedure: k11423 -o|inlining procedure: k11488 -o|contracted procedure: "(chicken-syntax.scm:452) g13531362" -o|inlining procedure: k11488 -o|inlining procedure: k11553 -o|contracted procedure: "(chicken-syntax.scm:444) g13161325" -o|inlining procedure: k11553 -o|inlining procedure: k11618 -o|contracted procedure: "(chicken-syntax.scm:436) g12791288" -o|inlining procedure: k11618 -o|inlining procedure: k11694 -o|inlining procedure: k11694 -o|inlining procedure: k11816 -o|inlining procedure: k11816 -o|inlining procedure: k11837 -o|inlining procedure: k11849 -o|inlining procedure: k11849 -o|inlining procedure: k11837 -o|inlining procedure: k11909 -o|inlining procedure: k11909 -o|inlining procedure: k11969 -o|inlining procedure: k11969 -o|inlining procedure: k12058 -o|inlining procedure: k12058 -o|substituted constant variable: a12093 -o|substituted constant variable: a12118 -o|inlining procedure: k12127 -o|inlining procedure: k12127 -o|inlining procedure: k12199 -o|inlining procedure: k12199 -o|inlining procedure: k12228 -o|inlining procedure: k12256 -o|inlining procedure: k12256 -o|inlining procedure: k12228 -o|inlining procedure: k12293 -o|inlining procedure: k12293 -o|inlining procedure: k12327 -o|inlining procedure: k12327 -o|inlining procedure: k12391 -o|inlining procedure: k12391 -o|inlining procedure: k12500 -o|inlining procedure: k12500 -o|inlining procedure: k12613 -o|inlining procedure: k12613 -o|inlining procedure: k12634 -o|inlining procedure: k12634 -o|inlining procedure: k12680 -o|inlining procedure: k12680 -o|inlining procedure: k12714 -o|inlining procedure: k12771 -o|contracted procedure: "(chicken-syntax.scm:198) g931941" -o|inlining procedure: k12771 -o|inlining procedure: k12829 -o|inlining procedure: k12856 -o|contracted procedure: "(chicken-syntax.scm:190) g897906" -o|propagated global variable: g914915 chicken.compiler.scrutinizer#check-and-validate-type -o|inlining procedure: k12856 -o|inlining procedure: k12829 -o|inlining procedure: k12900 -o|inlining procedure: k12900 -o|inlining procedure: k12714 -o|inlining procedure: k12947 -o|inlining procedure: k12947 -o|inlining procedure: k12984 -o|inlining procedure: k12984 -o|inlining procedure: k13033 -o|inlining procedure: k13124 -o|contracted procedure: "(chicken-syntax.scm:155) g830839" -o|inlining procedure: k13124 -o|inlining procedure: k13158 -o|contracted procedure: "(chicken-syntax.scm:155) g802811" -o|inlining procedure: k13158 -o|inlining procedure: k13033 -o|inlining procedure: k13195 -o|inlining procedure: k13223 -o|inlining procedure: k13223 -o|inlining procedure: k13195 -o|inlining procedure: k13260 -o|inlining procedure: k13260 -o|inlining procedure: k13295 -o|inlining procedure: k13295 -o|inlining procedure: k13322 -o|inlining procedure: k13322 -o|inlining procedure: k13360 -o|inlining procedure: k13360 -o|inlining procedure: k13387 -o|inlining procedure: k13387 -o|inlining procedure: k13416 -o|inlining procedure: k13416 -o|inlining procedure: k13498 -o|inlining procedure: k13498 -o|inlining procedure: k13540 -o|inlining procedure: k13540 -o|inlining procedure: k13655 -o|inlining procedure: k13655 -o|inlining procedure: k13675 -o|inlining procedure: k13675 -o|replaced variables: 2254 -o|removed binding forms: 498 -o|substituted constant variable: r451713837 -o|removed side-effect free assignment to unused variable: every -o|removed side-effect free assignment to unused variable: any -o|removed side-effect free assignment to unused variable: filter -o|removed side-effect free assignment to unused variable: list-tabulate -o|substituted constant variable: r589413849 -o|substituted constant variable: r619613865 -o|substituted constant variable: r597213868 -o|converted assignments to bindings: (genvars3276) -o|substituted constant variable: r659713884 -o|substituted constant variable: r662413886 -o|substituted constant variable: r682813892 -o|substituted constant variable: r740313905 -o|substituted constant variable: r759013914 -o|substituted constant variable: r767013916 -o|substituted constant variable: r808013927 -o|converted assignments to bindings: (make-if-tree2731) -o|substituted constant variable: r866613952 -o|substituted constant variable: r915713967 -o|substituted constant variable: r982013989 -o|substituted constant variable: r1023414002 -o|substituted constant variable: r1047114010 -o|substituted constant variable: r1125414037 -o|substituted constant variable: r1185014061 -o|substituted constant variable: r1183814062 -o|substituted constant variable: r1222914080 -o|substituted constant variable: r1239214086 -o|substituted constant variable: r1250114087 -o|substituted constant variable: r1268114093 -o|substituted constant variable: r1290114104 -o|substituted constant variable: r1298514110 -o|substituted constant variable: r1319614120 -o|substituted constant variable: r1329614124 -o|substituted constant variable: r1336114127 -o|substituted constant variable: r1341714133 -o|substituted constant variable: r1341714133 -o|substituted constant variable: r1365614139 -o|substituted constant variable: r1365614139 -o|converted assignments to bindings: (parse-clause612) -o|simplifications: ((let . 3)) -o|replaced variables: 87 -o|removed binding forms: 1944 -o|removed call to pure procedure with unused result: "(chicken-syntax.scm:534) ##sys#slot" -o|removed call to pure procedure with unused result: "(chicken-syntax.scm:504) ##sys#slot" -o|removed call to pure procedure with unused result: "(chicken-syntax.scm:503) ##sys#slot" -o|removed call to pure procedure with unused result: "(chicken-syntax.scm:465) ##sys#slot" -o|removed call to pure procedure with unused result: "(chicken-syntax.scm:464) ##sys#slot" -o|removed binding forms: 120 -o|contracted procedure: k10220 -o|contracted procedure: k10659 -o|contracted procedure: k10693 -o|contracted procedure: k11380 -o|contracted procedure: k11414 -o|removed binding forms: 5 -o|removed binding forms: 5 -o|simplifications: ((if . 34) (let . 41) (##core#call . 1315)) -o| call simplifications: -o| scheme#cdddr 2 -o| chicken.fixnum#fx= -o| scheme#vector -o| ##sys#pair? 7 -o| ##sys#eq? 7 -o| ##sys#car 13 -o| ##sys#cdr 20 -o| scheme#symbol? 7 -o| scheme#list? 2 -o| scheme#cdar -o| scheme#caar -o| scheme#assq 2 -o| scheme#cadddr 2 -o| scheme#cddddr -o| scheme#not 15 -o| scheme#memq 7 -o| scheme#cadr 45 -o| scheme#string? -o| scheme#caddr 15 -o| scheme#apply -o| scheme#eq? 5 -o| ##sys#call-with-values 3 -o| scheme#cddr 8 -o| scheme#cdr 23 -o| ##sys#cons 144 -o| scheme#null? 34 -o| ##sys#check-list 40 -o| scheme#pair? 105 -o| scheme#list 8 -o| ##sys#setslot 53 -o| ##sys#slot 203 -o| scheme#values -o| ##sys#list 342 -o| chicken.fixnum#fx>= -o| chicken.fixnum#fx+ 3 -o| chicken.fixnum#fx<= 2 -o| scheme#car 53 -o| chicken.fixnum#fx- 4 -o| scheme#cons 132 -o|contracted procedure: k4519 -o|contracted procedure: k4526 -o|contracted procedure: k4536 -o|contracted procedure: k6295 -o|contracted procedure: k6299 -o|contracted procedure: k6303 -o|contracted procedure: k6307 -o|contracted procedure: k6311 -o|contracted procedure: k5871 -o|contracted procedure: k5896 -o|contracted procedure: k5911 -o|contracted procedure: k6232 -o|contracted procedure: k6228 -o|contracted procedure: k5957 -o|contracted procedure: k5962 -o|contracted procedure: k5953 -o|contracted procedure: k5974 -o|contracted procedure: k5983 -o|contracted procedure: k5996 -o|contracted procedure: k4577 -o|contracted procedure: k4591 -o|contracted procedure: k4601 -o|contracted procedure: k4595 -o|contracted procedure: k6025 -o|contracted procedure: k6032 -o|contracted procedure: k6035 -o|contracted procedure: k6038 -o|contracted procedure: k6086 -o|contracted procedure: k6050 -o|contracted procedure: k6076 -o|contracted procedure: k6080 -o|contracted procedure: k6072 -o|contracted procedure: k6053 -o|contracted procedure: k6056 -o|contracted procedure: k6064 -o|contracted procedure: k6068 -o|contracted procedure: k6098 -o|contracted procedure: k6120 -o|contracted procedure: k6112 -o|contracted procedure: k6116 -o|contracted procedure: k6108 -o|contracted procedure: k6141 -o|contracted procedure: k6126 -o|contracted procedure: k6135 -o|contracted procedure: k6184 -o|contracted procedure: k6188 -o|contracted procedure: k6172 -o|contracted procedure: k6180 -o|contracted procedure: k6176 -o|contracted procedure: k6151 -o|contracted procedure: k6158 -o|contracted procedure: k6198 -o|contracted procedure: k6209 -o|contracted procedure: k6216 -o|contracted procedure: k6224 -o|contracted procedure: k6236 -o|contracted procedure: k6251 -o|contracted procedure: k6254 -o|contracted procedure: k6266 -o|contracted procedure: k6269 -o|contracted procedure: k6272 -o|contracted procedure: k6280 -o|contracted procedure: k6288 -o|contracted procedure: k6245 -o|contracted procedure: k6328 -o|contracted procedure: k6360 -o|contracted procedure: k6356 -o|contracted procedure: k6336 -o|contracted procedure: k6352 -o|contracted procedure: k6344 -o|contracted procedure: k6348 -o|contracted procedure: k6340 -o|contracted procedure: k6332 -o|contracted procedure: k6436 -o|contracted procedure: k6488 -o|contracted procedure: k6484 -o|contracted procedure: k6452 -o|contracted procedure: k6480 -o|contracted procedure: k6460 -o|inlining procedure: k6456 -o|contracted procedure: k6467 -o|inlining procedure: k6456 -o|contracted procedure: k6474 -o|contracted procedure: k6585 -o|contracted procedure: k6494 -o|contracted procedure: k6500 -o|contracted procedure: k6507 -o|contracted procedure: k6539 -o|contracted procedure: k6535 -o|contracted procedure: k6517 -o|contracted procedure: k6521 -o|contracted procedure: k6529 -o|contracted procedure: k6577 -o|contracted procedure: k6545 -o|contracted procedure: k6552 -o|contracted procedure: k6556 -o|contracted procedure: k6563 -o|contracted procedure: k6570 -o|contracted procedure: k6593 -o|contracted procedure: k6599 -o|contracted procedure: k6615 -o|contracted procedure: k6605 -o|contracted procedure: k6620 -o|contracted procedure: k6646 -o|contracted procedure: k6690 -o|contracted procedure: k6706 -o|contracted procedure: k6748 -o|contracted procedure: k6722 -o|contracted procedure: k6718 -o|contracted procedure: k6714 -o|contracted procedure: k6710 -o|contracted procedure: k6702 -o|contracted procedure: k6698 -o|contracted procedure: k6694 -o|contracted procedure: k6654 -o|contracted procedure: k6686 -o|contracted procedure: k6666 -o|contracted procedure: k6682 -o|contracted procedure: k6678 -o|contracted procedure: k6674 -o|contracted procedure: k6670 -o|contracted procedure: k6662 -o|contracted procedure: k6658 -o|contracted procedure: k6650 -o|contracted procedure: k6642 -o|contracted procedure: k6638 -o|contracted procedure: k6744 -o|contracted procedure: k6740 -o|contracted procedure: k6730 -o|contracted procedure: k6734 -o|contracted procedure: k6761 -o|contracted procedure: k6834 -o|contracted procedure: k6766 -o|contracted procedure: k6818 -o|contracted procedure: k6779 -o|contracted procedure: k6787 -o|contracted procedure: k6791 -o|contracted procedure: k6783 -o|contracted procedure: k6802 -o|contracted procedure: k6810 -o|contracted procedure: k6799 -o|contracted procedure: k6821 -o|contracted procedure: k6855 -o|contracted procedure: k6868 -o|contracted procedure: k6874 -o|contracted procedure: k6897 -o|contracted procedure: k6893 -o|contracted procedure: k6887 -o|contracted procedure: k6881 -o|contracted procedure: k6913 -o|contracted procedure: k6909 -o|contracted procedure: k7111 -o|contracted procedure: k6920 -o|contracted procedure: k6953 -o|contracted procedure: k6988 -o|contracted procedure: k6984 -o|contracted procedure: k6980 -o|contracted procedure: k6972 -o|contracted procedure: k6998 -o|contracted procedure: k7017 -o|contracted procedure: k7013 -o|contracted procedure: k7009 -o|contracted procedure: k7037 -o|contracted procedure: k7041 -o|contracted procedure: k7057 -o|contracted procedure: k7085 -o|contracted procedure: k7077 -o|contracted procedure: k7081 -o|contracted procedure: k7097 -o|contracted procedure: k7107 -o|contracted procedure: k7100 -o|contracted procedure: k7287 -o|contracted procedure: k7115 -o|contracted procedure: k7148 -o|contracted procedure: k7179 -o|contracted procedure: k7175 -o|contracted procedure: k7171 -o|contracted procedure: k7189 -o|contracted procedure: k7210 -o|contracted procedure: k7204 -o|contracted procedure: k7200 -o|contracted procedure: k7228 -o|contracted procedure: k7232 -o|contracted procedure: k7248 -o|contracted procedure: k7265 -o|contracted procedure: k7273 -o|contracted procedure: k7283 -o|contracted procedure: k7276 -o|contracted procedure: k7300 -o|contracted procedure: k7309 -o|contracted procedure: k7312 -o|contracted procedure: k7315 -o|contracted procedure: k7333 -o|contracted procedure: k7342 -o|contracted procedure: k7345 -o|contracted procedure: k7356 -o|contracted procedure: k7362 -o|contracted procedure: k7724 -o|contracted procedure: k7720 -o|contracted procedure: k7376 -o|contracted procedure: k7716 -o|contracted procedure: k7646 -o|contracted procedure: k7664 -o|contracted procedure: k7672 -o|contracted procedure: k7675 -o|contracted procedure: k7660 -o|contracted procedure: k7656 -o|contracted procedure: k7650 -o|contracted procedure: k7642 -o|contracted procedure: k7384 -o|contracted procedure: k7636 -o|contracted procedure: k7620 -o|contracted procedure: k7628 -o|contracted procedure: k7632 -o|contracted procedure: k7624 -o|contracted procedure: k7616 -o|contracted procedure: k7392 -o|contracted procedure: k7388 -o|contracted procedure: k7380 -o|contracted procedure: k7372 -o|contracted procedure: k7405 -o|contracted procedure: k7408 -o|contracted procedure: k7612 -o|contracted procedure: k7411 -o|contracted procedure: k7414 -o|contracted procedure: k7563 -o|contracted procedure: k7583 -o|contracted procedure: k7579 -o|contracted procedure: k7575 -o|contracted procedure: k7567 -o|contracted procedure: k7571 -o|contracted procedure: k7420 -o|contracted procedure: k7430 -o|contracted procedure: k7455 -o|contracted procedure: k7478 -o|contracted procedure: k7466 -o|contracted procedure: k7474 -o|contracted procedure: k7470 -o|contracted procedure: k7462 -o|contracted procedure: k7486 -o|contracted procedure: k7505 -o|contracted procedure: k7501 -o|contracted procedure: k7497 -o|contracted procedure: k7493 -o|contracted procedure: k7536 -o|contracted procedure: k7516 -o|contracted procedure: k7520 -o|contracted procedure: k7543 -o|contracted procedure: k7559 -o|contracted procedure: k7555 -o|contracted procedure: k7547 -o|contracted procedure: k7551 -o|contracted procedure: k7586 -o|contracted procedure: k7592 -o|contracted procedure: k7687 -o|contracted procedure: k7690 -o|contracted procedure: k7693 -o|contracted procedure: k7701 -o|contracted procedure: k7709 -o|contracted procedure: k7733 -o|contracted procedure: k7743 -o|contracted procedure: k7747 -o|contracted procedure: k7756 -o|contracted procedure: k7778 -o|contracted procedure: k7774 -o|contracted procedure: k7759 -o|contracted procedure: k7762 -o|contracted procedure: k7770 -o|contracted procedure: k7947 -o|contracted procedure: k7951 -o|contracted procedure: k7955 -o|contracted procedure: k7799 -o|contracted procedure: k7812 -o|contracted procedure: k7815 -o|contracted procedure: k7943 -o|contracted procedure: k7837 -o|contracted procedure: k7850 -o|contracted procedure: k7857 -o|contracted procedure: k7860 -o|contracted procedure: k7866 -o|contracted procedure: k7916 -o|contracted procedure: k7920 -o|contracted procedure: k7924 -o|contracted procedure: k7912 -o|contracted procedure: k7886 -o|contracted procedure: k7898 -o|contracted procedure: k7902 -o|contracted procedure: k7906 -o|contracted procedure: k7894 -o|contracted procedure: k7890 -o|contracted procedure: k7876 -o|contracted procedure: k7939 -o|contracted procedure: k7935 -o|contracted procedure: k7931 -o|contracted procedure: k8024 -o|contracted procedure: k8028 -o|contracted procedure: k8032 -o|contracted procedure: k7959 -o|contracted procedure: k8020 -o|contracted procedure: k8016 -o|contracted procedure: k7979 -o|contracted procedure: k7987 -o|contracted procedure: k7991 -o|contracted procedure: k8005 -o|contracted procedure: k7994 -o|contracted procedure: k7998 -o|contracted procedure: k7983 -o|contracted procedure: k8476 -o|contracted procedure: k8480 -o|contracted procedure: k8484 -o|contracted procedure: k8036 -o|contracted procedure: k8049 -o|contracted procedure: k8052 -o|contracted procedure: k8149 -o|contracted procedure: k8159 -o|contracted procedure: k8166 -o|contracted procedure: k8218 -o|contracted procedure: k8170 -o|contracted procedure: k8210 -o|contracted procedure: k8194 -o|contracted procedure: k8202 -o|contracted procedure: k8198 -o|contracted procedure: k8178 -o|contracted procedure: k8174 -o|contracted procedure: k8190 -o|contracted procedure: k8235 -o|contracted procedure: k8238 -o|contracted procedure: k8257 -o|contracted procedure: k8269 -o|contracted procedure: k8275 -o|contracted procedure: k8287 -o|contracted procedure: k8320 -o|contracted procedure: k8336 -o|contracted procedure: k8332 -o|contracted procedure: k8328 -o|contracted procedure: k8324 -o|contracted procedure: k8316 -o|contracted procedure: k8082 -o|contracted procedure: k8085 -o|contracted procedure: k8106 -o|contracted procedure: k8118 -o|contracted procedure: k8110 -o|contracted procedure: k8092 -o|contracted procedure: k8134 -o|contracted procedure: k8130 -o|contracted procedure: k8345 -o|contracted procedure: k8348 -o|contracted procedure: k8351 -o|contracted procedure: k8359 -o|contracted procedure: k8367 -o|contracted procedure: k8379 -o|contracted procedure: k8401 -o|contracted procedure: k8397 -o|contracted procedure: k8382 -o|contracted procedure: k8385 -o|contracted procedure: k8393 -o|contracted procedure: k8413 -o|contracted procedure: k8416 -o|contracted procedure: k8419 -o|contracted procedure: k8427 -o|contracted procedure: k8435 -o|contracted procedure: k8447 -o|contracted procedure: k8469 -o|contracted procedure: k8465 -o|contracted procedure: k8450 -o|contracted procedure: k8453 -o|contracted procedure: k8461 -o|contracted procedure: k8497 -o|contracted procedure: k8511 -o|contracted procedure: k8518 -o|contracted procedure: k8521 -o|contracted procedure: k8626 -o|contracted procedure: k8528 -o|contracted procedure: k8553 -o|contracted procedure: k8541 -o|contracted procedure: k8545 -o|contracted procedure: k8622 -o|contracted procedure: k8563 -o|contracted procedure: k8585 -o|contracted procedure: k8573 -o|contracted procedure: k8577 -o|contracted procedure: k8618 -o|contracted procedure: k8614 -o|contracted procedure: k8602 -o|contracted procedure: k8606 -o|contracted procedure: k8641 -o|contracted procedure: k8713 -o|contracted procedure: k8644 -o|contracted procedure: k8693 -o|contracted procedure: k8656 -o|contracted procedure: k8689 -o|contracted procedure: k8685 -o|contracted procedure: k8668 -o|contracted procedure: k8696 -o|contracted procedure: k8703 -o|contracted procedure: k8726 -o|contracted procedure: k8774 -o|contracted procedure: k8730 -o|contracted procedure: k8770 -o|contracted procedure: k8750 -o|contracted procedure: k8766 -o|contracted procedure: k8758 -o|contracted procedure: k8754 -o|contracted procedure: k8796 -o|contracted procedure: k8809 -o|contracted procedure: k8814 -o|contracted procedure: k8817 -o|contracted procedure: k8823 -o|contracted procedure: k8837 -o|contracted procedure: k8857 -o|contracted procedure: k8863 -o|contracted procedure: k8833 -o|contracted procedure: k8874 -o|contracted procedure: k8877 -o|contracted procedure: k8925 -o|contracted procedure: k8889 -o|contracted procedure: k8892 -o|contracted procedure: k8895 -o|contracted procedure: k8903 -o|contracted procedure: k8907 -o|contracted procedure: k8915 -o|contracted procedure: k8919 -o|contracted procedure: k8937 -o|contracted procedure: k8959 -o|contracted procedure: k8955 -o|contracted procedure: k8940 -o|contracted procedure: k8943 -o|contracted procedure: k8951 -o|contracted procedure: k8971 -o|contracted procedure: k8978 -o|contracted procedure: k8986 -o|contracted procedure: k8995 -o|contracted procedure: k9017 -o|contracted procedure: k9013 -o|contracted procedure: k8998 -o|contracted procedure: k9001 -o|contracted procedure: k9009 -o|contracted procedure: k9029 -o|contracted procedure: k9051 -o|contracted procedure: k9047 -o|contracted procedure: k9032 -o|contracted procedure: k9035 -o|contracted procedure: k9043 -o|contracted procedure: k9067 -o|contracted procedure: k9084 -o|contracted procedure: k9091 -o|contracted procedure: k9108 -o|contracted procedure: k9098 -o|contracted procedure: k9121 -o|contracted procedure: k9151 -o|contracted procedure: k9131 -o|contracted procedure: k9141 -o|contracted procedure: k9159 -o|contracted procedure: k9189 -o|contracted procedure: k9165 -o|contracted procedure: k9185 -o|contracted procedure: k9194 -o|contracted procedure: k9197 -o|contracted procedure: k9206 -o|contracted procedure: k9222 -o|contracted procedure: k9234 -o|contracted procedure: k9244 -o|contracted procedure: k9261 -o|contracted procedure: k9272 -o|contracted procedure: k9284 -o|contracted procedure: k9268 -o|contracted procedure: k9296 -o|contracted procedure: k9299 -o|contracted procedure: k9302 -o|contracted procedure: k9310 -o|contracted procedure: k9318 -o|contracted procedure: k9354 -o|contracted procedure: k9358 -o|contracted procedure: k9350 -o|contracted procedure: k9334 -o|contracted procedure: k9342 -o|contracted procedure: k9387 -o|contracted procedure: k9365 -o|contracted procedure: k9369 -o|contracted procedure: k9379 -o|contracted procedure: k9401 -o|contracted procedure: k9390 -o|contracted procedure: k9397 -o|contracted procedure: k9410 -o|contracted procedure: k9432 -o|contracted procedure: k9428 -o|contracted procedure: k9413 -o|contracted procedure: k9416 -o|contracted procedure: k9424 -o|contracted procedure: k9444 -o|contracted procedure: k9450 -o|contracted procedure: k9479 -o|contracted procedure: k9461 -o|inlining procedure: k9453 -o|inlining procedure: k9453 -o|contracted procedure: k9488 -o|contracted procedure: k9491 -o|contracted procedure: k9494 -o|contracted procedure: k9502 -o|contracted procedure: k9510 -o|contracted procedure: k9522 -o|contracted procedure: k9525 -o|contracted procedure: k9536 -o|contracted procedure: k9545 -o|inlining procedure: k9528 -o|contracted procedure: k9560 -o|contracted procedure: k9582 -o|contracted procedure: k9578 -o|contracted procedure: k9563 -o|contracted procedure: k9566 -o|contracted procedure: k9574 -o|contracted procedure: k9610 -o|contracted procedure: k9618 -o|contracted procedure: k9622 -o|contracted procedure: k9626 -o|contracted procedure: k9644 -o|contracted procedure: k9650 -o|contracted procedure: k9667 -o|contracted procedure: k9689 -o|contracted procedure: k9685 -o|contracted procedure: k9670 -o|contracted procedure: k9673 -o|contracted procedure: k9681 -o|contracted procedure: k9701 -o|contracted procedure: k9711 -o|contracted procedure: k9715 -o|contracted procedure: k9732 -o|contracted procedure: k9736 -o|contracted procedure: k9753 -o|contracted procedure: k9757 -o|contracted procedure: k9761 -o|contracted procedure: k9781 -o|contracted procedure: k9785 -o|contracted procedure: k9802 -o|contracted procedure: k9822 -o|contracted procedure: k9828 -o|contracted procedure: k9831 -o|contracted procedure: k9843 -o|contracted procedure: k9846 -o|contracted procedure: k9849 -o|contracted procedure: k9857 -o|contracted procedure: k9865 -o|contracted procedure: k9896 -o|contracted procedure: k9904 -o|contracted procedure: k9907 -o|contracted procedure: k9913 -o|contracted procedure: k9919 -o|contracted procedure: k9884 -o|contracted procedure: k9931 -o|contracted procedure: k9937 -o|contracted procedure: k9952 -o|contracted procedure: k9971 -o|contracted procedure: k9974 -o|contracted procedure: k9985 -o|contracted procedure: k9988 -o|contracted procedure: k9991 -o|contracted procedure: k10002 -o|contracted procedure: k10484 -o|contracted procedure: k10480 -o|contracted procedure: k10013 -o|contracted procedure: k10255 -o|contracted procedure: k10268 -o|contracted procedure: k10264 -o|contracted procedure: k10271 -o|contracted procedure: k10251 -o|contracted procedure: k10247 -o|contracted procedure: k10021 -o|contracted procedure: k10243 -o|contracted procedure: k10025 -o|contracted procedure: k10041 -o|contracted procedure: k10037 -o|contracted procedure: k10033 -o|contracted procedure: k10029 -o|contracted procedure: k10017 -o|contracted procedure: k10009 -o|contracted procedure: k9998 -o|contracted procedure: k9981 -o|contracted procedure: k10061 -o|contracted procedure: k10073 -o|contracted procedure: k10126 -o|contracted procedure: k10090 -o|contracted procedure: k10116 -o|contracted procedure: k10120 -o|contracted procedure: k10112 -o|contracted procedure: k10093 -o|contracted procedure: k10096 -o|contracted procedure: k10104 -o|contracted procedure: k10108 -o|contracted procedure: k10174 -o|contracted procedure: k10138 -o|contracted procedure: k10164 -o|contracted procedure: k10168 -o|contracted procedure: k10160 -o|contracted procedure: k10141 -o|contracted procedure: k10144 -o|contracted procedure: k10152 -o|contracted procedure: k10156 -o|contracted procedure: k10216 -o|contracted procedure: k10224 -o|contracted procedure: k10050 -o|contracted procedure: k10212 -o|contracted procedure: k10189 -o|contracted procedure: k10192 -o|contracted procedure: k10200 -o|contracted procedure: k10204 -o|contracted procedure: k10208 -o|contracted procedure: k10230 -o|contracted procedure: k10236 -o|contracted procedure: k10282 -o|contracted procedure: k10302 -o|contracted procedure: k10318 -o|contracted procedure: k10314 -o|contracted procedure: k10363 -o|contracted procedure: k10327 -o|contracted procedure: k10353 -o|contracted procedure: k10357 -o|contracted procedure: k10349 -o|contracted procedure: k10330 -o|contracted procedure: k10333 -o|contracted procedure: k10341 -o|contracted procedure: k10345 -o|contracted procedure: k10411 -o|contracted procedure: k10375 -o|contracted procedure: k10401 -o|contracted procedure: k10405 -o|contracted procedure: k10291 -o|contracted procedure: k10397 -o|contracted procedure: k10378 -o|contracted procedure: k10381 -o|contracted procedure: k10389 -o|contracted procedure: k10393 -o|contracted procedure: k10426 -o|contracted procedure: k10429 -o|contracted procedure: k10437 -o|contracted procedure: k10441 -o|contracted procedure: k10445 -o|contracted procedure: k10453 -o|contracted procedure: k10457 -o|contracted procedure: k10461 -o|contracted procedure: k10467 -o|contracted procedure: k10473 -o|contracted procedure: k10529 -o|contracted procedure: k10493 -o|contracted procedure: k10519 -o|contracted procedure: k10523 -o|contracted procedure: k10515 -o|contracted procedure: k10496 -o|contracted procedure: k10499 -o|contracted procedure: k10507 -o|contracted procedure: k10511 -o|contracted procedure: k10577 -o|contracted procedure: k10541 -o|contracted procedure: k10567 -o|contracted procedure: k10571 -o|contracted procedure: k10563 -o|contracted procedure: k10544 -o|contracted procedure: k10547 -o|contracted procedure: k10555 -o|contracted procedure: k10559 -o|contracted procedure: k10625 -o|contracted procedure: k10589 -o|contracted procedure: k10615 -o|contracted procedure: k10619 -o|contracted procedure: k10611 -o|contracted procedure: k10592 -o|contracted procedure: k10595 -o|contracted procedure: k10603 -o|contracted procedure: k10607 -o|contracted procedure: k10637 -o|contracted procedure: k10640 -o|contracted procedure: k10643 -o|contracted procedure: k10651 -o|contracted procedure: k10671 -o|contracted procedure: k10674 -o|contracted procedure: k10677 -o|contracted procedure: k10685 -o|contracted procedure: k10705 -o|contracted procedure: k10708 -o|contracted procedure: k10711 -o|contracted procedure: k10719 -o|contracted procedure: k10727 -o|contracted procedure: k10739 -o|contracted procedure: k10761 -o|contracted procedure: k10757 -o|contracted procedure: k10742 -o|contracted procedure: k10745 -o|contracted procedure: k10753 -o|contracted procedure: k10773 -o|contracted procedure: k10795 -o|contracted procedure: k10791 -o|contracted procedure: k10776 -o|contracted procedure: k10779 -o|contracted procedure: k10787 -o|contracted procedure: k10811 -o|contracted procedure: k10816 -o|contracted procedure: k10819 -o|contracted procedure: k10825 -o|contracted procedure: k10840 -o|contracted procedure: k11023 -o|contracted procedure: k10867 -o|contracted procedure: k11019 -o|contracted procedure: k10871 -o|contracted procedure: k10879 -o|contracted procedure: k10875 -o|contracted procedure: k10863 -o|contracted procedure: k10887 -o|contracted procedure: k10903 -o|contracted procedure: k10919 -o|contracted procedure: k10915 -o|contracted procedure: k10964 -o|contracted procedure: k10928 -o|contracted procedure: k10954 -o|contracted procedure: k10958 -o|contracted procedure: k10950 -o|contracted procedure: k10931 -o|contracted procedure: k10934 -o|contracted procedure: k10942 -o|contracted procedure: k10946 -o|contracted procedure: k11012 -o|contracted procedure: k10976 -o|contracted procedure: k11002 -o|contracted procedure: k11006 -o|contracted procedure: k10998 -o|contracted procedure: k10979 -o|contracted procedure: k10982 -o|contracted procedure: k10990 -o|contracted procedure: k10994 -o|contracted procedure: k11031 -o|contracted procedure: k11039 -o|contracted procedure: k11050 -o|contracted procedure: k11066 -o|contracted procedure: k11062 -o|contracted procedure: k11111 -o|contracted procedure: k11075 -o|contracted procedure: k11101 -o|contracted procedure: k11105 -o|contracted procedure: k11097 -o|contracted procedure: k11078 -o|contracted procedure: k11081 -o|contracted procedure: k11089 -o|contracted procedure: k11093 -o|contracted procedure: k11159 -o|contracted procedure: k11123 -o|contracted procedure: k11149 -o|contracted procedure: k11153 -o|contracted procedure: k11145 -o|contracted procedure: k11126 -o|contracted procedure: k11129 -o|contracted procedure: k11137 -o|contracted procedure: k11141 -o|contracted procedure: k11166 -o|contracted procedure: k11169 -o|contracted procedure: k11175 -o|contracted procedure: k11178 -o|contracted procedure: k11185 -o|contracted procedure: k11191 -o|contracted procedure: k11194 -o|contracted procedure: k11242 -o|contracted procedure: k11206 -o|contracted procedure: k11232 -o|contracted procedure: k11236 -o|contracted procedure: k11228 -o|contracted procedure: k11209 -o|contracted procedure: k11212 -o|contracted procedure: k11220 -o|contracted procedure: k11224 -o|contracted procedure: k11256 -o|contracted procedure: k11267 -o|contracted procedure: k11312 -o|contracted procedure: k11276 -o|contracted procedure: k11302 -o|contracted procedure: k11306 -o|contracted procedure: k11298 -o|contracted procedure: k11279 -o|contracted procedure: k11282 -o|contracted procedure: k11290 -o|contracted procedure: k11294 -o|contracted procedure: k11324 -o|contracted procedure: k11346 -o|contracted procedure: k11342 -o|contracted procedure: k11327 -o|contracted procedure: k11330 -o|contracted procedure: k11338 -o|contracted procedure: k11358 -o|contracted procedure: k11361 -o|contracted procedure: k11364 -o|contracted procedure: k11372 -o|contracted procedure: k11392 -o|contracted procedure: k11395 -o|contracted procedure: k11398 -o|contracted procedure: k11406 -o|contracted procedure: k11426 -o|contracted procedure: k11448 -o|contracted procedure: k11444 -o|contracted procedure: k11429 -o|contracted procedure: k11432 -o|contracted procedure: k11440 -o|contracted procedure: k11468 -o|contracted procedure: k11476 -o|contracted procedure: k11479 -o|contracted procedure: k11491 -o|contracted procedure: k11513 -o|contracted procedure: k11509 -o|contracted procedure: k11494 -o|contracted procedure: k11497 -o|contracted procedure: k11505 -o|contracted procedure: k11533 -o|contracted procedure: k11541 -o|contracted procedure: k11544 -o|contracted procedure: k11556 -o|contracted procedure: k11578 -o|contracted procedure: k11574 -o|contracted procedure: k11559 -o|contracted procedure: k11562 -o|contracted procedure: k11570 -o|contracted procedure: k11598 -o|contracted procedure: k11606 -o|contracted procedure: k11609 -o|contracted procedure: k11621 -o|contracted procedure: k11643 -o|contracted procedure: k11639 -o|contracted procedure: k11624 -o|contracted procedure: k11627 -o|contracted procedure: k11635 -o|contracted procedure: k11667 -o|contracted procedure: k11663 -o|contracted procedure: k11681 -o|contracted procedure: k11774 -o|contracted procedure: k11697 -o|contracted procedure: k11708 -o|contracted procedure: k11704 -o|contracted procedure: k11716 -o|contracted procedure: k11719 -o|contracted procedure: k11765 -o|contracted procedure: k11728 -o|contracted procedure: k11747 -o|contracted procedure: k11743 -o|contracted procedure: k11739 -o|contracted procedure: k11735 -o|contracted procedure: k11754 -o|contracted procedure: k11762 -o|contracted procedure: k11758 -o|contracted procedure: k11787 -o|contracted procedure: k11799 -o|contracted procedure: k11811 -o|contracted procedure: k11819 -o|contracted procedure: k11834 -o|contracted procedure: k11846 -o|contracted procedure: k11862 -o|contracted procedure: k11852 -o|inlining procedure: k11825 -o|inlining procedure: k11825 -o|inlining procedure: k11825 -o|contracted procedure: k11869 -o|contracted procedure: k12121 -o|contracted procedure: k11883 -o|contracted procedure: k12111 -o|contracted procedure: k12107 -o|contracted procedure: k12103 -o|contracted procedure: k12099 -o|contracted procedure: k11891 -o|contracted procedure: k12077 -o|contracted procedure: k12085 -o|contracted procedure: k12081 -o|contracted procedure: k12073 -o|contracted procedure: k11899 -o|contracted procedure: k11895 -o|contracted procedure: k11887 -o|contracted procedure: k11879 -o|contracted procedure: k11912 -o|contracted procedure: k11915 -o|contracted procedure: k12065 -o|contracted procedure: k11918 -o|contracted procedure: k12030 -o|contracted procedure: k12046 -o|contracted procedure: k12042 -o|contracted procedure: k12034 -o|contracted procedure: k12038 -o|contracted procedure: k11930 -o|contracted procedure: k11937 -o|contracted procedure: k11945 -o|contracted procedure: k11949 -o|contracted procedure: k11965 -o|contracted procedure: k11961 -o|contracted procedure: k11980 -o|contracted procedure: k11996 -o|contracted procedure: k11992 -o|contracted procedure: k11984 -o|contracted procedure: k11988 -o|contracted procedure: k11976 -o|contracted procedure: k12003 -o|contracted procedure: k12019 -o|contracted procedure: k12015 -o|contracted procedure: k12007 -o|contracted procedure: k12011 -o|contracted procedure: k12026 -o|contracted procedure: k12058 -o|contracted procedure: k12130 -o|contracted procedure: k12133 -o|contracted procedure: k12136 -o|contracted procedure: k12144 -o|contracted procedure: k12152 -o|contracted procedure: k12186 -o|contracted procedure: k12196 -o|contracted procedure: k12205 -o|contracted procedure: k12208 -o|contracted procedure: k12219 -o|contracted procedure: k12225 -o|contracted procedure: k12250 -o|contracted procedure: k12269 -o|contracted procedure: k12277 -o|contracted procedure: k12287 -o|contracted procedure: k12306 -o|contracted procedure: k12314 -o|contracted procedure: k12324 -o|contracted procedure: k12333 -o|contracted procedure: k12348 -o|contracted procedure: k12344 -o|contracted procedure: k12357 -o|contracted procedure: k12379 -o|contracted procedure: k12360 -o|contracted procedure: k12375 -o|contracted procedure: k12371 -o|contracted procedure: k12385 -o|contracted procedure: k12388 -o|contracted procedure: k12394 -o|contracted procedure: k12401 -o|contracted procedure: k12404 -o|contracted procedure: k12411 -o|contracted procedure: k12440 -o|contracted procedure: k12432 -o|contracted procedure: k12460 -o|contracted procedure: k12470 -o|contracted procedure: k12466 -o|contracted procedure: k12487 -o|contracted procedure: k12547 -o|contracted procedure: k12503 -o|contracted procedure: k12523 -o|contracted procedure: k12527 -o|contracted procedure: k12531 -o|contracted procedure: k12519 -o|contracted procedure: k12539 -o|contracted procedure: k12543 -o|contracted procedure: k12560 -o|contracted procedure: k12670 -o|contracted procedure: k12666 -o|contracted procedure: k12573 -o|contracted procedure: k12589 -o|contracted procedure: k12605 -o|contracted procedure: k12610 -o|contracted procedure: k12620 -o|contracted procedure: k12625 -o|contracted procedure: k12585 -o|contracted procedure: k12581 -o|contracted procedure: k12577 -o|contracted procedure: k12637 -o|contracted procedure: k12640 -o|contracted procedure: k12643 -o|contracted procedure: k12651 -o|contracted procedure: k12659 -o|contracted procedure: k13020 -o|contracted procedure: k12683 -o|contracted procedure: k12689 -o|contracted procedure: k12692 -o|contracted procedure: k12705 -o|contracted procedure: k12717 -o|contracted procedure: k12726 -o|contracted procedure: k12825 -o|contracted procedure: k12733 -o|contracted procedure: k12817 -o|contracted procedure: k12821 -o|contracted procedure: k12737 -o|contracted procedure: k12745 -o|contracted procedure: k12753 -o|contracted procedure: k12749 -o|contracted procedure: k12741 -o|contracted procedure: k12810 -o|contracted procedure: k12774 -o|contracted procedure: k12800 -o|contracted procedure: k12804 -o|contracted procedure: k12762 -o|contracted procedure: k12796 -o|contracted procedure: k12777 -o|contracted procedure: k12780 -o|contracted procedure: k12788 -o|contracted procedure: k12792 -o|contracted procedure: k12832 -o|contracted procedure: k12839 -o|contracted procedure: k12847 -o|contracted procedure: k12859 -o|contracted procedure: k12862 -o|contracted procedure: k12865 -o|contracted procedure: k12873 -o|contracted procedure: k12881 -o|contracted procedure: k12903 -o|contracted procedure: k12910 -o|contracted procedure: k12918 -o|contracted procedure: k12922 -o|contracted procedure: k12925 -o|contracted procedure: k12931 -o|contracted procedure: k12940 -o|contracted procedure: k12944 -o|contracted procedure: k12975 -o|contracted procedure: k12959 -o|contracted procedure: k12963 -o|contracted procedure: k12971 -o|contracted procedure: k12981 -o|contracted procedure: k12987 -o|contracted procedure: k12994 -o|contracted procedure: k13016 -o|contracted procedure: k13005 -o|contracted procedure: k13030 -o|contracted procedure: k13039 -o|contracted procedure: k13047 -o|contracted procedure: k13050 -o|contracted procedure: k13056 -o|contracted procedure: k13068 -o|contracted procedure: k13071 -o|contracted procedure: k13077 -o|contracted procedure: k13088 -o|contracted procedure: k13118 -o|contracted procedure: k13114 -o|contracted procedure: k13106 -o|contracted procedure: k13102 -o|contracted procedure: k13127 -o|contracted procedure: k13149 -o|contracted procedure: k13065 -o|contracted procedure: k13145 -o|contracted procedure: k13130 -o|contracted procedure: k13133 -o|contracted procedure: k13141 -o|contracted procedure: k13161 -o|contracted procedure: k13183 -o|contracted procedure: k13179 -o|contracted procedure: k13164 -o|contracted procedure: k13167 -o|contracted procedure: k13175 -o|contracted procedure: k13192 -o|contracted procedure: k13217 -o|contracted procedure: k13236 -o|contracted procedure: k13244 -o|contracted procedure: k13254 -o|contracted procedure: k13272 -o|contracted procedure: k13282 -o|contracted procedure: k13289 -o|contracted procedure: k13292 -o|contracted procedure: k13298 -o|contracted procedure: k13305 -o|contracted procedure: k13309 -o|contracted procedure: k13347 -o|contracted procedure: k13325 -o|contracted procedure: k13339 -o|contracted procedure: k13343 -o|contracted procedure: k13454 -o|contracted procedure: k13363 -o|contracted procedure: k13390 -o|contracted procedure: k13446 -o|contracted procedure: k13442 -o|contracted procedure: k13438 -o|contracted procedure: k13404 -o|contracted procedure: k13400 -o|contracted procedure: k13427 -o|contracted procedure: k13423 -o|contracted procedure: k13416 -o|contracted procedure: k13434 -o|contracted procedure: k13450 -o|contracted procedure: k13727 -o|contracted procedure: k13458 -o|contracted procedure: k13608 -o|contracted procedure: k13603 -o|contracted procedure: k13489 -o|contracted procedure: k13492 -o|contracted procedure: k13501 -o|contracted procedure: k13519 -o|contracted procedure: k13528 -o|contracted procedure: k13531 -o|contracted procedure: k13515 -o|contracted procedure: k13511 -o|contracted procedure: k13543 -o|contracted procedure: k13546 -o|contracted procedure: k13549 -o|contracted procedure: k13557 -o|contracted procedure: k13565 -o|contracted procedure: k13587 -o|contracted procedure: k13579 -o|contracted procedure: k13583 -o|contracted procedure: k13575 -o|contracted procedure: k13594 -o|contracted procedure: k13723 -o|contracted procedure: k13715 -o|contracted procedure: k13719 -o|contracted procedure: k13711 -o|contracted procedure: k13707 -o|contracted procedure: k13627 -o|contracted procedure: k13631 -o|contracted procedure: k13634 -o|contracted procedure: k13637 -o|contracted procedure: k13643 -o|contracted procedure: k13619 -o|contracted procedure: k13623 -o|contracted procedure: k13658 -o|contracted procedure: k13669 -o|contracted procedure: k13665 -o|contracted procedure: k13655 -o|contracted procedure: k13678 -o|contracted procedure: k13681 -o|contracted procedure: k13684 -o|contracted procedure: k13692 -o|contracted procedure: k13700 -o|contracted procedure: k13834 -o|contracted procedure: k13731 -o|contracted procedure: k13766 -o|contracted procedure: k13830 -o|contracted procedure: k13814 -o|contracted procedure: k13826 -o|contracted procedure: k13822 -o|contracted procedure: k13818 -o|contracted procedure: k13774 -o|contracted procedure: k13806 -o|contracted procedure: k13786 -o|contracted procedure: k13802 -o|contracted procedure: k13798 -o|contracted procedure: k13794 -o|contracted procedure: k13790 -o|contracted procedure: k13782 -o|contracted procedure: k13778 -o|contracted procedure: k13770 -o|contracted procedure: k13762 -o|contracted procedure: k13754 -o|simplifications: ((if . 5) (let . 245)) -o|removed binding forms: 1121 -o|contracted procedure: k9327 -o|substituted constant variable: r1182615282 -o|substituted constant variable: r1182615283 -o|inlining procedure: k11969 -o|inlining procedure: k11969 -o|contracted procedure: k12330 -o|inlining procedure: k12601 -o|inlining procedure: k12601 -o|simplifications: ((let . 1)) -o|removed binding forms: 4 -o|removed conditional forms: 2 -o|substituted constant variable: r1260215458 -o|replaced variables: 1 -o|removed binding forms: 3 -o|removed binding forms: 2 -o|direct leaf routine/allocation: g30123021 0 -o|direct leaf routine/allocation: g19531964 30 -o|direct leaf routine/allocation: g638647 15 -o|contracted procedure: "(chicken-syntax.scm:1024) k7705" -o|contracted procedure: "(chicken-syntax.scm:520) k10449" -o|contracted procedure: "(chicken-syntax.scm:96) k13561" -o|removed binding forms: 3 -o|customizable procedures: (parse-clause612 map-loop663680 k13495 map-loop632653 k13412 k13275 loop749770 loop749785 map-loop796814 map-loop824842 k12950 loop867 loop2881 map-loop891916 k12829 map-loop925949 g985994 map-loop9791001 k12354 loop11001121 loop11001131 g11741183 map-loop11681194 k11957 mapslots1204 k11825 map-loop12731294 map-loop13101331 map-loop13471368 map-loop13841401 g14171426 map-loop14111429 g14451454 map-loop14391457 map-loop14901507 map-loop14691514 loop1545 map-loop15261548 map-loop15601584 map-loop15961620 map-loop16321656 map-loop16681692 map-loop17141731 map-loop17411758 g17741783 map-loop17681786 g18021811 map-loop17961814 g18301839 map-loop18241842 map-loop18541873 map-loop18851904 map-loop19161935 k10423 map-loop19471974 map-loop19892013 map-loop20252049 k10186 map-loop20612088 map-loop21032127 map-loop21392163 g21892198 map-loop21832228 for-each-loop22642291 map-loop22742304 map-loop23352352 loop2360 g23792388 map-loop23732391 loop2401 map-loop24592477 fold2411 g24302439 map-loop24242442 fold2493 map-loop25122529 map-loop25382555 foldl25912601 map-loop25672606 map-loop26152634 k8647 k8659 fold2693 map-loop27672784 g28032812 map-loop27972815 map-loop28252842 g28602869 map-loop28542872 recur2737 make-if-tree2731 prefix-sym2791 recur2752 loop2920 map-loop29592976 g29862996 for-each-loop29852999 map-loop30063024 k7417 k7423 k7512 k7438 loop3031 loop3076 loop3106 k6772 k6795 k6429 guard-aux3191 map-loop32843305 genvars3276 foldr33273330 g33323333 k5999 build3352 map-loop33753394 loop137 loop3278 take) -o|calls to known targets: 258 -o|identified direct recursive calls: f_4514 1 -o|identified direct recursive calls: f_4572 1 -o|identified direct recursive calls: f_6045 1 -o|identified direct recursive calls: f_5969 1 -o|identified direct recursive calls: f_7682 1 -o|identified direct recursive calls: f_7751 1 -o|identified direct recursive calls: f_8374 1 -o|identified direct recursive calls: f_8442 1 -o|identified direct recursive calls: f_8932 1 -o|identified direct recursive calls: f_8990 1 -o|identified direct recursive calls: f_9024 1 -o|identified direct recursive calls: f_9079 1 -o|identified direct recursive calls: f_9256 2 -o|identified direct recursive calls: f_9405 1 -o|identified direct recursive calls: f_9517 1 -o|identified direct recursive calls: f_9555 1 -o|identified direct recursive calls: f_9662 1 -o|identified direct recursive calls: f_10085 1 -o|identified direct recursive calls: f_10133 1 -o|identified direct recursive calls: f_10322 1 -o|identified direct recursive calls: f_10370 1 -o|identified direct recursive calls: f_10488 1 -o|identified direct recursive calls: f_10536 1 -o|identified direct recursive calls: f_10584 1 -o|identified direct recursive calls: f_10734 1 -o|identified direct recursive calls: f_10768 1 -o|identified direct recursive calls: f_10923 1 -o|identified direct recursive calls: f_10971 1 -o|identified direct recursive calls: f_11070 1 -o|identified direct recursive calls: f_11118 1 -o|identified direct recursive calls: f_11201 1 -o|identified direct recursive calls: f_11251 1 -o|identified direct recursive calls: f_11271 1 -o|identified direct recursive calls: f_11319 1 -o|identified direct recursive calls: f_11421 1 -o|identified direct recursive calls: f_11486 1 -o|identified direct recursive calls: f_11551 1 -o|identified direct recursive calls: f_11616 1 -o|identified direct recursive calls: f_12769 1 -o|identified direct recursive calls: f_12898 1 -o|identified direct recursive calls: f_12712 1 -o|identified direct recursive calls: f_13122 1 -o|identified direct recursive calls: f_13156 1 -o|identified direct recursive calls: f_13538 1 -o|fast box initializations: 82 -o|fast global references: 2 -o|fast global assignments: 1 -o|dropping unused closure argument: f_4514 -o|dropping unused closure argument: f_8244 -*/ -/* end of file */ diff --git a/chicken/src/data-structures.c b/chicken/src/data-structures.c deleted file mode 100644 index df247aa..0000000 --- a/chicken/src/data-structures.c +++ /dev/null @@ -1,4896 +0,0 @@ -/* Generated from data-structures.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: data-structures.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file data-structures.c -emit-import-library chicken.sort -emit-import-library chicken.string - unit: data-structures - uses: library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[83]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,107,41}; -static C_char li1[] C_aligned={C_lihdr(0,0,23),40,114,101,118,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,32,105,41,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,114,101,118,101,114,115,101,45,115,116,114,105,110,103,45,97,112,112,101,110,100,32,108,41}; -static C_char li3[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,114,101,118,101,114,115,101,45,108,105,115,116,45,62,115,116,114,105,110,103,32,108,41,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,16),40,109,97,112,45,108,111,111,112,56,52,32,103,57,54,41}; -static C_char li6[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,99,111,110,99,32,46,32,97,114,103,115,41,0,0,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,105,115,116,97,114,116,41,0,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,37),40,116,114,97,118,101,114,115,101,32,119,104,105,99,104,32,119,104,101,114,101,32,115,116,97,114,116,32,116,101,115,116,32,108,111,99,41,0,0,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,11),40,97,49,49,51,50,32,105,32,108,41,0,0,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,32,119,104,105,99,104,32,119,104,101,114,101,32,115,116,97,114,116,41,0,0,0,0,0,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,11),40,97,49,49,52,49,32,105,32,108,41,0,0,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,45,99,105,32,119,104,105,99,104,32,119,104,101,114,101,32,115,116,97,114,116,41,0,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,32,119,104,105,99,104,32,119,104,101,114,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,45,105,110,100,101,120,45,99,105,32,119,104,105,99,104,32,119,104,101,114,101,32,46,32,114,101,115,116,41,0,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,32,115,49,32,115,50,41,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,111,109,112,97,114,101,51,45,99,105,32,115,49,32,115,50,41,0,0,0,0,0,0,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,61,63,32,115,49,32,115,50,32,115,116,97,114,116,49,32,115,116,97,114,116,50,32,110,41,0,0,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,61,63,32,115,49,32,115,50,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,32,115,50,32,115,116,97,114,116,49,32,115,116,97,114,116,50,32,110,41,0,0,0,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,117,98,115,116,114,105,110,103,45,99,105,61,63,32,115,49,32,115,50,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,18),40,97,100,100,32,102,114,111,109,32,116,111,32,108,97,115,116,41,0,0,0,0,0,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41}; -static C_char li23[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,105,32,108,97,115,116,32,102,114,111,109,41,0,0,0,0,0,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,115,112,108,105,116,32,115,116,114,32,46,32,100,101,108,115,116,114,45,97,110,100,45,102,108,97,103,41,0,0,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,50,32,115,115,50,32,110,50,41,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,49,32,115,115,32,110,41,0,0,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,105,110,116,101,114,115,112,101,114,115,101,32,115,116,114,115,32,46,32,114,101,115,116,41,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,10),40,102,95,49,55,50,53,32,99,41,0,0,0,0,0,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,12),40,105,110,115,116,114,105,110,103,32,115,41,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,32,106,41,0,0,0,0,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,10),40,102,95,49,57,49,49,32,99,41,0,0,0,0,0,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,32,115,116,114,32,102,114,111,109,32,46,32,116,111,41,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,102,115,32,112,111,115,41,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,109,97,112,41,0,0,0,0,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,25),40,99,111,108,108,101,99,116,32,105,32,102,114,111,109,32,116,111,116,97,108,32,102,115,41,0,0,0,0,0,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,116,114,97,110,115,108,97,116,101,42,32,115,116,114,32,115,109,97,112,41,0,0,0,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,116,111,116,97,108,32,112,111,115,41}; -static C_char li39[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,104,111,112,32,115,116,114,32,108,101,110,41,0,0,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,115,116,114,105,110,103,35,115,116,114,105,110,103,45,99,104,111,109,112,32,115,116,114,32,46,32,114,101,115,116,41}; -static C_char li41[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,53,48,53,32,105,41,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,97,115,116,32,110,101,120,116,41}; -static C_char li43[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,115,111,114,116,35,115,111,114,116,101,100,63,32,115,101,113,32,108,101,115,115,63,41}; -static C_char li44[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,120,32,97,32,121,32,98,41,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,115,111,114,116,35,109,101,114,103,101,32,97,32,98,32,108,101,115,115,63,41,0,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,114,32,97,32,98,41,0,0,0,0}; -static C_char li47[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,115,111,114,116,35,109,101,114,103,101,33,32,97,32,98,32,108,101,115,115,63,41,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,8),40,115,116,101,112,32,110,41}; -static C_char li49[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,53,55,54,32,112,32,105,41,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,115,111,114,116,35,115,111,114,116,33,32,115,101,113,32,108,101,115,115,63,41,0,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,115,111,114,116,35,115,111,114,116,32,115,101,113,32,108,101,115,115,63,41,0,0,0}; -static C_char li52[] C_aligned={C_lihdr(0,0,18),40,119,97,108,107,32,101,100,103,101,115,32,115,116,97,116,101,41,0,0,0,0,0,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,33),40,118,105,115,105,116,32,100,97,103,32,110,111,100,101,32,101,100,103,101,115,32,112,97,116,104,32,115,116,97,116,101,41,0,0,0,0,0,0,0}; -static C_char li54[] C_aligned={C_lihdr(0,0,18),40,103,54,49,56,32,114,101,115,117,108,116,32,110,111,100,101,41,0,0,0,0,0,0}; -static C_char li55[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,100,97,103,32,115,116,97,116,101,41}; -static C_char li56[] C_aligned={C_lihdr(0,0,20),40,102,111,108,100,108,54,50,48,32,103,54,50,49,32,103,54,49,57,41,0,0,0,0}; -static C_char li57[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,115,111,114,116,35,116,111,112,111,108,111,103,105,99,97,108,45,115,111,114,116,32,100,97,103,32,112,114,101,100,41}; -static C_char li58[] 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_1002) -static void C_ccall f_1002(C_word c,C_word *av) C_noret; -C_noret_decl(f_1005) -static void C_ccall f_1005(C_word c,C_word *av) C_noret; -C_noret_decl(f_1010) -static void C_ccall f_1010(C_word c,C_word *av) C_noret; -C_noret_decl(f_1021) -static void C_ccall f_1021(C_word c,C_word *av) C_noret; -C_noret_decl(f_1023) -static void f_1023(C_word t0,C_word t1,C_word t2) 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_1057) -static void f_1057(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_1095) -static void f_1095(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1108) -static void C_ccall f_1108(C_word c,C_word *av) C_noret; -C_noret_decl(f_1127) -static void C_ccall f_1127(C_word c,C_word *av) C_noret; -C_noret_decl(f_1133) -static void C_ccall f_1133(C_word c,C_word *av) C_noret; -C_noret_decl(f_1136) -static void C_ccall f_1136(C_word c,C_word *av) C_noret; -C_noret_decl(f_1142) -static void C_ccall f_1142(C_word c,C_word *av) C_noret; -C_noret_decl(f_1145) -static void C_ccall f_1145(C_word c,C_word *av) C_noret; -C_noret_decl(f_1160) -static void C_ccall f_1160(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_1202) -static void C_ccall f_1202(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_1250) -static void f_1250(C_word t0,C_word t1) 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_1341) -static void C_ccall f_1341(C_word c,C_word *av) C_noret; -C_noret_decl(f_1362) -static void f_1362(C_word t0,C_word t1) 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_1453) -static void C_ccall f_1453(C_word c,C_word *av) C_noret; -C_noret_decl(f_1470) -static void f_1470(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_1490) -static void f_1490(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_1520) -static void f_1520(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1559) -static void C_ccall f_1559(C_word c,C_word *av) C_noret; -C_noret_decl(f_1589) -static void C_ccall f_1589(C_word c,C_word *av) C_noret; -C_noret_decl(f_1610) -static void f_1610(C_word t0,C_word t1,C_word t2,C_word t3) 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_1628) -static void f_1628(C_word t0,C_word t1,C_word t2,C_word t3) 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_1720) -static void f_1720(C_word t0,C_word t1) 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_1731) -static C_word f_1731(C_word t0,C_word t1); -C_noret_decl(f_1758) -static void C_ccall f_1758(C_word c,C_word *av) C_noret; -C_noret_decl(f_1761) -static void C_ccall f_1761(C_word c,C_word *av) C_noret; -C_noret_decl(f_1771) -static void C_ccall f_1771(C_word c,C_word *av) C_noret; -C_noret_decl(f_1776) -static void f_1776(C_word t0,C_word t1,C_word t2,C_word t3) 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_1911) -static void C_ccall f_1911(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_1940) -static void C_ccall f_1940(C_word c,C_word *av) C_noret; -C_noret_decl(f_1945) -static void f_1945(C_word t0,C_word t1,C_word t2,C_word t3) 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_1990) -static void f_1990(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_2000) -static void f_2000(C_word t0,C_word t1) 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_2033) -static void C_ccall f_2033(C_word c,C_word *av) C_noret; -C_noret_decl(f_2038) -static void f_2038(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_2077) -static void f_2077(C_word t0,C_word t1) 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_2139) -static void C_ccall f_2139(C_word c,C_word *av) C_noret; -C_noret_decl(f_2152) -static void f_2152(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_2172) -static void C_ccall f_2172(C_word c,C_word *av) C_noret; -C_noret_decl(f_2183) -static void C_ccall f_2183(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_2201) -static void C_ccall f_2201(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_2263) -static void f_2263(C_word t0,C_word t1,C_word t2) 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_2311) -static void f_2311(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_2335) -static void C_ccall f_2335(C_word c,C_word *av) C_noret; -C_noret_decl(f_2341) -static void C_ccall f_2341(C_word c,C_word *av) C_noret; -C_noret_decl(f_2371) -static void f_2371(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_2398) -static void C_ccall f_2398(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_2432) -static void C_ccall f_2432(C_word c,C_word *av) C_noret; -C_noret_decl(f_2435) -static void f_2435(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2510) -static void C_ccall f_2510(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_2531) -static void C_ccall f_2531(C_word c,C_word *av) C_noret; -C_noret_decl(f_2556) -static void C_ccall f_2556(C_word c,C_word *av) C_noret; -C_noret_decl(f_2559) -static void f_2559(C_word t0,C_word t1,C_word t2) 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_2610) -static void C_ccall f_2610(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_2651) -static void C_ccall f_2651(C_word c,C_word *av) C_noret; -C_noret_decl(f_2653) -static void f_2653(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_2684) -static void C_ccall f_2684(C_word c,C_word *av) C_noret; -C_noret_decl(f_2698) -static void C_ccall f_2698(C_word c,C_word *av) C_noret; -C_noret_decl(f_2702) -static void C_ccall f_2702(C_word c,C_word *av) C_noret; -C_noret_decl(f_2709) -static void C_ccall f_2709(C_word c,C_word *av) C_noret; -C_noret_decl(f_2711) -static void C_ccall f_2711(C_word c,C_word *av) C_noret; -C_noret_decl(f_2714) -static void f_2714(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_2718) -static void C_ccall f_2718(C_word c,C_word *av) C_noret; -C_noret_decl(f_2755) -static void C_ccall f_2755(C_word c,C_word *av) C_noret; -C_noret_decl(f_2767) -static void C_ccall f_2767(C_word c,C_word *av) C_noret; -C_noret_decl(f_2780) -static void C_ccall f_2780(C_word c,C_word *av) C_noret; -C_noret_decl(f_2786) -static void f_2786(C_word t0,C_word t1,C_word t2,C_word t3) 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_2822) -static void C_ccall f_2822(C_word c,C_word *av) C_noret; -C_noret_decl(f_2851) -static void f_2851(C_word t0,C_word t1,C_word t2,C_word t3) 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_2869) -static void C_ccall f_2869(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_2889) -static void f_2889(C_word t0,C_word t1,C_word t2,C_word t3) 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_2927) -static void f_2927(C_word t0,C_word t1,C_word t2,C_word t3) 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_884) -static void C_ccall f_884(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_889) -static void f_889(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_903) -static void C_ccall f_903(C_word c,C_word *av) C_noret; -C_noret_decl(f_912) -static C_word f_912(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_959) -static void C_ccall f_959(C_word c,C_word *av) C_noret; -C_noret_decl(f_965) -static void C_ccall f_965(C_word c,C_word *av) C_noret; -C_noret_decl(C_data_2dstructures_toplevel) -C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_1023) -static void C_ccall trf_1023(C_word c,C_word *av) C_noret; -static void C_ccall trf_1023(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1023(t0,t1,t2);} - -C_noret_decl(trf_1057) -static void C_ccall trf_1057(C_word c,C_word *av) C_noret; -static void C_ccall trf_1057(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_1057(t0,t1,t2,t3,t4,t5);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1095(t0,t1,t2);} - -C_noret_decl(trf_1250) -static void C_ccall trf_1250(C_word c,C_word *av) C_noret; -static void C_ccall trf_1250(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1250(t0,t1);} - -C_noret_decl(trf_1362) -static void C_ccall trf_1362(C_word c,C_word *av) C_noret; -static void C_ccall trf_1362(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1362(t0,t1);} - -C_noret_decl(trf_1470) -static void C_ccall trf_1470(C_word c,C_word *av) C_noret; -static void C_ccall trf_1470(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_1470(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_1490) -static void C_ccall trf_1490(C_word c,C_word *av) C_noret; -static void C_ccall trf_1490(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_1490(t0,t1,t2,t3,t4);} - -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_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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1610(t0,t1,t2,t3);} - -C_noret_decl(trf_1628) -static void C_ccall trf_1628(C_word c,C_word *av) C_noret; -static void C_ccall trf_1628(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1628(t0,t1,t2,t3);} - -C_noret_decl(trf_1720) -static void C_ccall trf_1720(C_word c,C_word *av) C_noret; -static void C_ccall trf_1720(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1720(t0,t1);} - -C_noret_decl(trf_1776) -static void C_ccall trf_1776(C_word c,C_word *av) C_noret; -static void C_ccall trf_1776(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1776(t0,t1,t2,t3);} - -C_noret_decl(trf_1945) -static void C_ccall trf_1945(C_word c,C_word *av) C_noret; -static void C_ccall trf_1945(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1945(t0,t1,t2,t3);} - -C_noret_decl(trf_1990) -static void C_ccall trf_1990(C_word c,C_word *av) C_noret; -static void C_ccall trf_1990(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_1990(t0,t1,t2,t3,t4,t5);} - -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[1]; -C_word t1=av[0]; -f_2000(t0,t1);} - -C_noret_decl(trf_2038) -static void C_ccall trf_2038(C_word c,C_word *av) C_noret; -static void C_ccall trf_2038(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2038(t0,t1,t2);} - -C_noret_decl(trf_2077) -static void C_ccall trf_2077(C_word c,C_word *av) C_noret; -static void C_ccall trf_2077(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_2077(t0,t1);} - -C_noret_decl(trf_2152) -static void C_ccall trf_2152(C_word c,C_word *av) C_noret; -static void C_ccall trf_2152(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2152(t0,t1,t2,t3);} - -C_noret_decl(trf_2263) -static void C_ccall trf_2263(C_word c,C_word *av) C_noret; -static void C_ccall trf_2263(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2263(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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2311(t0,t1,t2,t3);} - -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[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_2371(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_2435) -static void C_ccall trf_2435(C_word c,C_word *av) C_noret; -static void C_ccall trf_2435(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_2435(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_2559) -static void C_ccall trf_2559(C_word c,C_word *av) C_noret; -static void C_ccall trf_2559(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2559(t0,t1,t2);} - -C_noret_decl(trf_2653) -static void C_ccall trf_2653(C_word c,C_word *av) C_noret; -static void C_ccall trf_2653(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2653(t0,t1,t2,t3);} - -C_noret_decl(trf_2714) -static void C_ccall trf_2714(C_word c,C_word *av) C_noret; -static void C_ccall trf_2714(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_2714(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_2786) -static void C_ccall trf_2786(C_word c,C_word *av) C_noret; -static void C_ccall trf_2786(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2786(t0,t1,t2,t3);} - -C_noret_decl(trf_2851) -static void C_ccall trf_2851(C_word c,C_word *av) C_noret; -static void C_ccall trf_2851(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2851(t0,t1,t2,t3);} - -C_noret_decl(trf_2889) -static void C_ccall trf_2889(C_word c,C_word *av) C_noret; -static void C_ccall trf_2889(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2889(t0,t1,t2,t3);} - -C_noret_decl(trf_2927) -static void C_ccall trf_2927(C_word c,C_word *av) C_noret; -static void C_ccall trf_2927(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2927(t0,t1,t2,t3);} - -C_noret_decl(trf_889) -static void C_ccall trf_889(C_word c,C_word *av) C_noret; -static void C_ccall trf_889(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_889(t0,t1,t2,t3);} - -/* k1000 in chicken.string#->string in k882 */ -static void C_ccall f_1002(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_1002,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1005,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:77: scheme#display */ -t3=*((C_word*)lf[10]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1003 in k1000 in chicken.string#->string in k882 */ -static void C_ccall f_1005(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1005,c,av);} -/* data-structures.scm:78: scheme#get-output-string */ -t2=C_fast_retrieve(lf[9]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* chicken.string#conc in k882 */ -static void C_ccall f_1010(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -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_1010,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+17); -t2=C_build_rest(&a,c,2,av); -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=*((C_word*)lf[6]+1); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1021,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_1023,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li5),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_1023(t12,t8,t2);} - -/* k1019 in chicken.string#conc in k882 */ -static void C_ccall f_1021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1021,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[13]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop84 in chicken.string#conc in k882 */ -static void f_1023(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_1023,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1048,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); -/* data-structures.scm:82: g90 */ -t4=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k1046 in map-loop84 in chicken.string#conc in k882 */ -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 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_1048,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_1023(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* traverse in k882 */ -static void f_1057(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ -C_save_and_reclaim_args((void *)trf_1057,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_u_i_string_length(t3); -t10=C_u_i_string_length(t2); -t11=C_fixnum_difference(t9,t10); -t12=C_i_check_fixnum_2(t4,t6); -t13=C_fixnum_greater_or_equal_p(t4,C_fix(0)); -t14=(C_truep(t13)?C_fixnum_greater_or_equal_p(t9,t4):C_SCHEME_FALSE); -if(C_truep(t14)){ -t15=C_eqp(t10,C_fix(0)); -if(C_truep(t15)){ -t16=t1;{ -C_word av2[2]; -av2[0]=t16; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t16+1)))(2,av2);}} -else{ -if(C_truep(C_fixnum_greater_or_equal_p(t11,C_fix(0)))){ -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_1095,a[2]=t11,a[3]=t17,a[4]=t5,a[5]=t10,a[6]=((C_word)li7),tmp=(C_word)a,a+=7,tmp)); -t19=((C_word*)t17)[1]; -f_1095(t19,t1,t4);} -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{ -t15=C_fix((C_word)C_OUT_OF_BOUNDS_ERROR); -/* data-structures.scm:104: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[14]); -C_word av2[6]; -av2[0]=*((C_word*)lf[14]+1); -av2[1]=t1; -av2[2]=t15; -av2[3]=t6; -av2[4]=t3; -av2[5]=t4; -tp(6,av2);}}} - -/* loop in traverse in k882 */ -static void f_1095(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_1095,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_1108,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:102: 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);}}} - -/* k1106 in loop in traverse in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1108,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* data-structures.scm:103: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_1095(t2,((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}} - -/* ##sys#substring-index in k882 */ -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=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_1127,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1133,a[2]=t2,a[3]=t3,a[4]=((C_word)li9),tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:111: traverse */ -f_1057(t1,t2,t3,t4,t5,lf[16]);} - -/* a1132 in ##sys#substring-index in k882 */ -static void C_ccall f_1133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_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_1133,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_substring_equal_p(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0),t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#substring-index-ci in k882 */ -static void C_ccall f_1136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_1136,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1142,a[2]=t2,a[3]=t3,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:118: traverse */ -f_1057(t1,t2,t3,t4,t5,lf[18]);} - -/* a1141 in ##sys#substring-index-ci in k882 */ -static void C_ccall f_1142(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_1142,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_substring_ci_equal_p(((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0),t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.string#substring-index in k882 */ -static void C_ccall f_1145(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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(0,c,4)))){ -C_save_and_reclaim((void *)f_1145,c,av);} -if(C_truep(C_rest_nullp(c,4))){ -/* data-structures.scm:124: ##sys#substring-index */ -t4=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -/* data-structures.scm:124: ##sys#substring-index */ -t4=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=C_get_rest_arg(c,4,av,4,t0); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* chicken.string#substring-index-ci in k882 */ -static void C_ccall f_1160(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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(0,c,4)))){ -C_save_and_reclaim((void *)f_1160,c,av);} -if(C_truep(C_rest_nullp(c,4))){ -/* data-structures.scm:127: ##sys#substring-index-ci */ -t4=*((C_word*)lf[17]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -/* data-structures.scm:127: ##sys#substring-index-ci */ -t4=*((C_word*)lf[17]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=C_get_rest_arg(c,4,av,4,t0); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* chicken.string#string-compare3 in k882 */ -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=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_1175,c,av);} -t4=C_i_check_string_2(t2,lf[22]); -t5=C_i_check_string_2(t3,lf[22]); -t6=C_u_i_string_length(t2); -t7=C_u_i_string_length(t3); -t8=C_fixnum_difference(t6,t7); -t9=C_fixnum_lessp(t8,C_fix(0)); -t10=(C_truep(t9)?t6:t7); -t11=C_utf_compare(t2,t3,C_fix(0),C_fix(0),t10); -t12=C_eqp(t11,C_fix(0)); -t13=t1;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=(C_truep(t12)?t8:t11); -((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} - -/* chicken.string#string-compare3-ci in k882 */ -static void C_ccall f_1202(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -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_1202,c,av);} -t4=C_i_check_string_2(t2,lf[24]); -t5=C_i_check_string_2(t3,lf[24]); -t6=C_u_i_string_length(t2); -t7=C_u_i_string_length(t3); -t8=C_fixnum_difference(t6,t7); -t9=C_fixnum_lessp(t8,C_fix(0)); -t10=(C_truep(t9)?t6:t7); -t11=C_utf_compare_ci(t2,t3,C_fix(0),C_fix(0),t10); -t12=C_eqp(t11,C_fix(0)); -t13=t1;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=(C_truep(t12)?t8:t11); -((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} - -/* ##sys#substring=? in k882 */ -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=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 *a; -if(c!=7) C_bad_argc_2(c,7,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_1229,c,av);} -a=C_alloc(9); -t7=C_i_check_string_2(t2,lf[26]); -t8=C_i_check_string_2(t3,lf[26]); -t9=C_i_check_fixnum_2(t4,lf[26]); -t10=C_i_check_fixnum_2(t5,lf[26]); -t11=C_u_i_string_length(t2); -t12=C_u_i_string_length(t3); -t13=C_fixnum_difference(t11,t4); -t14=C_fixnum_difference(t12,t5); -t15=C_i_fixnum_min(t13,t14); -t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1250,a[2]=t11,a[3]=t4,a[4]=t12,a[5]=t5,a[6]=t1,a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); -if(C_truep(t6)){ -t17=C_fixnum_plus(t15,C_fix(1)); -t18=C_i_check_range_2(t6,C_fix(0),t17,lf[26]); -t19=t16; -f_1250(t19,t6);} -else{ -t17=t16; -f_1250(t17,t15);}} - -/* k1248 in ##sys#substring=? in k882 */ -static void f_1250(C_word 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_1250,2,t0,t1);} -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t3=C_i_check_range_2(((C_word*)t0)[3],C_fix(0),t2,lf[26]); -t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); -t5=C_i_check_range_2(((C_word*)t0)[5],C_fix(0),t4,lf[26]); -t6=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_u_i_substring_equal_p(((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],((C_word*)t0)[5],t1); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* chicken.string#substring=? in k882 */ -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=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_min_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_1281,c,av);} -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_fix(0):C_get_rest_arg(c,4,av,4,t0)); -t6=C_rest_nullp(c,4); -t7=C_rest_nullp(c,5); -t8=(C_truep(t7)?C_fix(0):C_get_rest_arg(c,5,av,4,t0)); -t9=C_rest_nullp(c,5); -t10=C_rest_nullp(c,6); -t11=(C_truep(t10)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,4,t0)); -if(C_truep(C_rest_nullp(c,6))){ -/* data-structures.scm:177: ##sys#substring=? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); -C_word av2[7]; -av2[0]=*((C_word*)lf[25]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t5; -av2[5]=t8; -av2[6]=t11; -tp(7,av2);}} -else{ -/* data-structures.scm:177: ##sys#substring=? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[25]+1)); -C_word av2[7]; -av2[0]=*((C_word*)lf[25]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t5; -av2[5]=t8; -av2[6]=t11; -tp(7,av2);}}} - -/* ##sys#substring-ci=? in k882 */ -static void C_ccall f_1341(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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 *a; -if(c!=7) C_bad_argc_2(c,7,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_1341,c,av);} -a=C_alloc(9); -t7=C_i_check_string_2(t2,lf[29]); -t8=C_i_check_string_2(t3,lf[29]); -t9=C_i_check_fixnum_2(t4,lf[29]); -t10=C_i_check_fixnum_2(t5,lf[29]); -t11=C_u_i_string_length(t2); -t12=C_u_i_string_length(t3); -t13=C_fixnum_difference(t11,t4); -t14=C_fixnum_difference(t12,t5); -t15=C_i_fixnum_min(t13,t14); -t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1362,a[2]=t11,a[3]=t4,a[4]=t12,a[5]=t5,a[6]=t1,a[7]=t2,a[8]=t3,tmp=(C_word)a,a+=9,tmp); -if(C_truep(t6)){ -t17=C_fixnum_plus(t15,C_fix(1)); -t18=C_i_check_range_2(t6,C_fix(0),t17,lf[29]); -t19=t16; -f_1362(t19,t6);} -else{ -t17=t16; -f_1362(t17,t15);}} - -/* k1360 in ##sys#substring-ci=? in k882 */ -static void f_1362(C_word 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_1362,2,t0,t1);} -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t3=C_i_check_range_2(((C_word*)t0)[3],C_fix(0),t2,lf[26]); -t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); -t5=C_i_check_range_2(((C_word*)t0)[5],C_fix(0),t4,lf[26]); -t6=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_u_i_substring_ci_equal_p(((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[3],((C_word*)t0)[5],t1); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* chicken.string#substring-ci=? in k882 */ -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=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_min_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_1393,c,av);} -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_fix(0):C_get_rest_arg(c,4,av,4,t0)); -t6=C_rest_nullp(c,4); -t7=C_rest_nullp(c,5); -t8=(C_truep(t7)?C_fix(0):C_get_rest_arg(c,5,av,4,t0)); -t9=C_rest_nullp(c,5); -t10=C_rest_nullp(c,6); -t11=(C_truep(t10)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,4,t0)); -if(C_truep(C_rest_nullp(c,6))){ -/* data-structures.scm:196: ##sys#substring-ci=? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word av2[7]; -av2[0]=*((C_word*)lf[28]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t5; -av2[5]=t8; -av2[6]=t11; -tp(7,av2);}} -else{ -/* data-structures.scm:196: ##sys#substring-ci=? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word av2[7]; -av2[0]=*((C_word*)lf[28]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t5; -av2[5]=t8; -av2[6]=t11; -tp(7,av2);}}} - -/* chicken.string#string-split in k882 */ -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 *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_1453,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; -t4=C_i_check_string_2(t2,lf[32]); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?lf[33]:C_get_rest_arg(c,3,av,3,t0)); -t7=C_eqp(C_fix(c - 3),C_fix(2)); -t8=(C_truep(t7)?C_i_cadr(t3):C_SCHEME_FALSE); -t9=C_u_i_string_length(t2); -t10=C_i_check_string_2(t6,lf[32]); -t11=C_u_i_string_length(t6); -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|4,a[1]=(C_word)f_1470,a[2]=t13,a[3]=t2,a[4]=((C_word)li21),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|10,a[1]=(C_word)f_1490,a[2]=t9,a[3]=t13,a[4]=t8,a[5]=t14,a[6]=t2,a[7]=t11,a[8]=t16,a[9]=t6,a[10]=((C_word)li23),tmp=(C_word)a,a+=11,tmp)); -t18=((C_word*)t16)[1]; -f_1490(t18,t1,C_fix(0),C_SCHEME_FALSE,C_fix(0));} - -/* add in chicken.string#string-split in k882 */ -static void f_1470(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_1470,5,t0,t1,t2,t3,t4);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1485,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:211: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[34]); -C_word av2[5]; -av2[0]=*((C_word*)lf[34]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -av2[4]=t3; -tp(5,av2);}} - -/* k1483 in add in chicken.string#string-split in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_1485,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ -t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* loop in chicken.string#string-split in k882 */ -static void f_1490(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_1490,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_1500,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:218: add */ -t8=((C_word*)t0)[5]; -f_1470(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_i_string_ref(((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_1520,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[9],a[8]=t5,a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=t7,a[12]=((C_word)li22),tmp=(C_word)a,a+=13,tmp)); -t9=((C_word*)t7)[1]; -f_1520(t9,t1,C_fix(0));}} - -/* k1498 in loop in chicken.string#string-split in k882 */ -static void C_ccall f_1500(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1500,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?t2:C_SCHEME_END_OF_LIST); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scan in loop in chicken.string#string-split in k882 */ -static void 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 t10; -C_word t11; -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_1520,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ -/* data-structures.scm:223: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_1490(t3,t1,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),((C_word*)t0)[5],((C_word*)t0)[6]);} -else{ -t3=C_i_string_ref(((C_word*)t0)[7],t2); -t4=C_eqp(((C_word*)t0)[8],t3); -if(C_truep(t4)){ -t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); -t6=C_fixnum_greaterp(((C_word*)t0)[4],((C_word*)t0)[6]); -t7=(C_truep(t6)?t6:((C_word*)t0)[9]); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1559,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:227: add */ -t9=((C_word*)t0)[10]; -f_1470(t9,t8,((C_word*)t0)[6],((C_word*)t0)[4],((C_word*)t0)[5]);} -else{ -/* data-structures.scm:228: loop */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_1490(t8,t1,t5,((C_word*)t0)[5],t5);}} -else{ -/* data-structures.scm:229: scan */ -t10=t1; -t11=C_fixnum_plus(t2,C_fix(1)); -t1=t10; -t2=t11; -goto loop;}}} - -/* k1557 in scan in loop in chicken.string#string-split in k882 */ -static void C_ccall f_1559(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1559,c,av);} -/* data-structures.scm:227: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1490(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[4]);} - -/* chicken.string#string-intersperse in k882 */ -static void C_ccall f_1589(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_min_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_1589,c,av);} -a=C_alloc(9); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?lf[36]:C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_list_2(t2,lf[37]); -t6=C_i_check_string_2(t4,lf[37]); -t7=C_slot(t4,C_fix(0)); -t8=C_block_size(t7); -t9=C_fixnum_difference(t8,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_1610,a[2]=t2,a[3]=t9,a[4]=t7,a[5]=t11,a[6]=((C_word)li26),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_1610(t13,t1,t2,C_fix(0));} - -/* loop1 in chicken.string#string-intersperse in k882 */ -static void f_1610(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_1610,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[38]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fixnum_difference(t3,((C_word*)t0)[3]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1623,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* data-structures.scm:244: ##sys#allocate-bytevector */ -t6=*((C_word*)lf[39]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_fixnum_plus(t4,C_fix(1)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,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[37]); -t7=C_slot(t2,C_fix(1)); -t8=C_slot(t5,C_fix(0)); -t9=C_block_size(t8); -t10=C_fixnum_difference(t9,C_fix(1)); -t11=C_fixnum_plus(((C_word*)t0)[3],t3); -/* data-structures.scm:264: loop1 */ -t13=t1; -t14=t7; -t15=C_fixnum_plus(t10,t11); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -/* data-structures.scm:267: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[40]); -C_word av2[3]; -av2[0]=*((C_word*)lf[40]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}}}} - -/* k1621 in loop1 in chicken.string#string-intersperse in k882 */ -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 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_1623,c,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_1628,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li25),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_1628(t5,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0));} - -/* loop2 in k1621 in loop1 in chicken.string#string-intersperse in k882 */ -static void f_1628(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_1628,4,t0,t1,t2,t3);} -a=C_alloc(5); -t4=C_slot(t2,C_fix(0)); -t5=C_slot(t2,C_fix(1)); -t6=C_slot(t4,C_fix(0)); -t7=C_block_size(t6); -t8=C_fixnum_difference(t7,C_fix(1)); -t9=C_copy_memory_with_offset(((C_word*)t0)[2],t6,t3,C_fix(0),t8); -t10=C_fixnum_plus(t3,t8); -if(C_truep(C_eqp(t5,C_SCHEME_END_OF_LIST))){ -t11=C_utf_range_length(((C_word*)t0)[2],C_fix(0),t10); -t12=C_a_ustring(&a,2,((C_word*)t0)[2],t11); -t13=t1;{ -C_word av2[2]; -av2[0]=t13; -av2[1]=t12; -((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} -else{ -t11=C_copy_memory_with_offset(((C_word*)t0)[2],((C_word*)t0)[3],t10,C_fix(0),((C_word*)t0)[4]); -/* data-structures.scm:260: loop2 */ -t14=t1; -t15=t5; -t16=C_fixnum_plus(t10,((C_word*)t0)[4]); -t1=t14; -t2=t15; -t3=t16; -goto loop;}} - -/* chicken.string#string-translate in k882 */ -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=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_1717,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_1720,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1758,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_charp(t3))){ -t7=t6;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1911,a[2]=t3,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); -f_1758(2,av2);}} -else{ -if(C_truep(C_i_pairp(t3))){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1928,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* ##sys#list->string */ -t8=C_fast_retrieve(lf[46]);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t7=C_i_check_string_2(t3,lf[42]); -/* data-structures.scm:286: instring */ -f_1720(t6,t3);}}} - -/* instring in chicken.string#string-translate in k882 */ -static void f_1720(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_1720,2,t1,t2);} -a=C_alloc(5); -t3=C_i_string_length(t2); -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1725,a[2]=t3,a[3]=t2,a[4]=((C_word)li29),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* f_1725 in instring in chicken.string#string-translate in k882 */ -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 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_1725,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1731,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li28),tmp=(C_word)a,a+=6,tmp); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( - f_1731(t3,C_fix(0)) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* loop */ -static C_word f_1731(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_SCHEME_FALSE);} -else{ -t2=C_i_string_ref(((C_word*)t0)[3],t1); -t3=C_eqp(((C_word*)t0)[4],t2); -if(C_truep(t3)){ -return(t1);} -else{ -t5=C_fixnum_plus(t1,C_fix(1)); -t1=t5; -goto loop;}}} - -/* k1756 in chicken.string#string-translate in k882 */ -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 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_1758,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1761,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_pairp(((C_word*)t0)[4]))){ -t3=C_slot(((C_word*)t0)[4],C_fix(0)); -if(C_truep(C_charp(t3))){ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_1761(2,av2);}} -else{ -if(C_truep(C_i_pairp(t3))){ -/* ##sys#list->string */ -t4=C_fast_retrieve(lf[46]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t4=C_i_check_string_2(t3,lf[42]); -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -f_1761(2,av2);}}}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_1761(2,av2);}}} - -/* k1759 in k1756 in chicken.string#string-translate in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_1761,c,av);} -a=C_alloc(8); -t2=C_i_stringp(t1); -t3=(C_truep(t2)?C_u_i_string_length(t1):C_SCHEME_FALSE); -t4=C_i_check_string_2(((C_word*)t0)[2],lf[42]); -t5=C_u_i_string_length(((C_word*)t0)[2]); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1771,a[2]=t5,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); -/* ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[45]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[45]+1); -av2[1]=t6; -av2[2]=t5; -av2[3]=C_make_character(32); -tp(4,av2);}} - -/* k1769 in k1759 in k1756 in chicken.string#string-translate in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_1771,c,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_1776,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word)li31),tmp=(C_word)a,a+=10,tmp)); -t5=((C_word*)t3)[1]; -f_1776(t5,((C_word*)t0)[7],C_fix(0),C_fix(0));} - -/* loop in k1769 in k1759 in k1756 in chicken.string#string-translate in k882 */ -static void f_1776(C_word 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_1776,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:302: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[34]); -C_word av2[5]; -av2[0]=*((C_word*)lf[34]+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_i_string_ref(((C_word*)t0)[4],t2); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1798,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t2,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); -/* data-structures.scm:305: 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);}}} - -/* k1796 in loop in k1769 in k1759 in k1756 in chicken.string#string-translate in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1798,c,av);} -if(C_truep(C_i_not(t1))){ -t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); -/* data-structures.scm:308: loop */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_1776(t3,((C_word*)t0)[6],C_fixnum_plus(((C_word*)t0)[7],C_fix(1)),C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} -else{ -if(C_truep(C_i_not(((C_word*)t0)[8]))){ -/* data-structures.scm:309: loop */ -t2=((C_word*)((C_word*)t0)[5])[1]; -f_1776(t2,((C_word*)t0)[6],C_fixnum_plus(((C_word*)t0)[7],C_fix(1)),((C_word*)t0)[3]);} -else{ -if(C_truep(C_charp(((C_word*)t0)[8]))){ -t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[8]); -/* data-structures.scm:312: loop */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_1776(t3,((C_word*)t0)[6],C_fixnum_plus(((C_word*)t0)[7],C_fix(1)),C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} -else{ -if(C_truep(C_fixnum_greater_or_equal_p(t1,((C_word*)t0)[9]))){ -/* data-structures.scm:314: ##sys#error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[6]; -av2[2]=lf[42]; -av2[3]=lf[44]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} -else{ -t2=C_i_string_ref(((C_word*)t0)[8],t1); -t3=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t2); -/* data-structures.scm:317: loop */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_1776(t4,((C_word*)t0)[6],C_fixnum_plus(((C_word*)t0)[7],C_fix(1)),C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));}}}}} - -/* f_1911 in chicken.string#string-translate in k882 */ -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=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_1911,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_eqp(t2,((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k1926 in chicken.string#string-translate in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1928,c,av);} -/* data-structures.scm:283: instring */ -f_1720(((C_word*)t0)[3],t1);} - -/* k1938 in k2005 in k1998 in collect in chicken.string#string-translate* in k882 */ -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; -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_1940,c,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_1945,a[2]=t1,a[3]=t3,a[4]=((C_word)li34),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_1945(t5,((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0));} - -/* loop in k1938 in k2005 in k1998 in collect in chicken.string#string-translate* in k882 */ -static void f_1945(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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_1945,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t2))){ -t4=C_utf_length(((C_word*)t0)[2]); -t5=C_a_ustring(&a,2,((C_word*)t0)[2],t4); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_block_size(t4); -t6=C_fixnum_difference(t5,C_fix(1)); -t7=C_copy_memory_with_offset(((C_word*)t0)[2],t4,t3,C_fix(0),t6); -/* data-structures.scm:328: loop */ -t9=t1; -t10=C_slot(t2,C_fix(1)); -t11=C_fixnum_plus(t3,t6); -t1=t9; -t2=t10; -t3=t11; -goto loop;}} - -/* chicken.string#string-translate* in k882 */ -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=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,6)))){ -C_save_and_reclaim((void *)f_1980,c,av);} -a=C_alloc(9); -t4=C_i_check_string_2(t2,lf[48]); -t5=C_i_check_list_2(t3,lf[48]); -t6=C_u_i_string_length(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|6,a[1]=(C_word)f_1990,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=t3,a[6]=((C_word)li36),tmp=(C_word)a,a+=7,tmp)); -/* data-structures.scm:362: collect */ -t10=((C_word*)t8)[1]; -f_1990(t10,t1,C_fix(0),C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} - -/* collect in chicken.string#string-translate* in k882 */ -static void f_1990(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ -C_save_and_reclaim_args((void *)trf_1990,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(17); -t6=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t7=(*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]))){ -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2000,a[2]=t6,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_fixnum_greaterp(t2,t3))){ -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2033,a[2]=t7,a[3]=t6,a[4]=t8,tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:338: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[34]); -C_word av2[5]; -av2[0]=*((C_word*)lf[34]+1); -av2[1]=t9; -av2[2]=((C_word*)t0)[3]; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}} -else{ -t9=t8; -f_2000(t9,C_SCHEME_UNDEFINED);}} -else{ -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_2038,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,a[5]=t6,a[6]=t7,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[3],a[9]=t9,a[10]=((C_word)li35),tmp=(C_word)a,a+=11,tmp)); -t11=((C_word*)t9)[1]; -f_2038(t11,t1,((C_word*)t0)[5]);}} - -/* k1998 in collect in chicken.string#string-translate* in k882 */ -static void f_2000(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_2000,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2007,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:341: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[50]); -C_word av2[3]; -av2[0]=*((C_word*)lf[50]+1); -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -tp(3,av2);}} - -/* k2005 in k1998 in collect in chicken.string#string-translate* in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_2007,c,av);} -a=C_alloc(4); -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1940,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:320: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[49]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[49]+1); -av2[1]=t3; -av2[2]=C_fixnum_plus(t2,C_fix(1)); -tp(3,av2);}} - -/* k2031 in collect in chicken.string#string-translate* in k882 */ -static void C_ccall f_2033(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_2033,c,av);} -a=C_alloc(3); -t2=C_slot(t1,C_fix(0)); -t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); -t5=C_block_size(t2); -t6=C_fixnum_difference(t5,C_fix(1)); -t7=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t6); -t8=C_set_block_item(((C_word*)t0)[3],0,t7); -t9=((C_word*)t0)[4]; -f_2000(t9,t8);} - -/* loop in collect in chicken.string#string-translate* in k882 */ -static void f_2038(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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(13,0,5)))){ -C_save_and_reclaim_args((void *)trf_2038,3,t0,t1,t2);} -a=C_alloc(13); -if(C_truep(C_i_nullp(t2))){ -/* data-structures.scm:344: collect */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_1990(t3,t1,C_fixnum_plus(((C_word*)t0)[3],C_fix(1)),((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],((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)[3],t5); -t8=C_fixnum_less_or_equal_p(t7,((C_word*)t0)[7]); -t9=(C_truep(t8)?C_u_i_substring_equal_p(((C_word*)t0)[8],t4,((C_word*)t0)[3],C_fix(0),t5):C_SCHEME_FALSE); -if(C_truep(t9)){ -t10=C_fixnum_plus(((C_word*)t0)[3],t5); -t11=C_slot(t6,C_fix(0)); -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2077,a[2]=t11,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=t10,tmp=(C_word)a,a+=8,tmp); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[3],((C_word*)t0)[4]))){ -t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2122,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=t12,tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:354: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[34]); -C_word av2[5]; -av2[0]=*((C_word*)lf[34]+1); -av2[1]=t13; -av2[2]=((C_word*)t0)[8]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[3]; -tp(5,av2);}} -else{ -t13=t12; -f_2077(t13,C_SCHEME_UNDEFINED);}} -else{ -/* data-structures.scm:361: loop */ -t15=t1; -t16=C_u_i_cdr(t2); -t1=t15; -t2=t16; -goto loop;}}} - -/* k2075 in loop in collect in chicken.string#string-translate* in k882 */ -static void f_2077(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_2077,2,t0,t1);} -a=C_alloc(3); -t2=C_block_size(((C_word*)t0)[2]); -t3=C_fixnum_difference(t2,C_fix(1)); -t4=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t3); -t5=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[4])[1]); -/* data-structures.scm:357: collect */ -t6=((C_word*)((C_word*)t0)[5])[1]; -f_1990(t6,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[7],t4,t5);} - -/* k2120 in loop in collect in chicken.string#string-translate* in k882 */ -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 t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_2122,c,av);} -a=C_alloc(3); -t2=C_slot(t1,C_fix(0)); -t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); -t5=C_block_size(t2); -t6=C_fixnum_difference(t5,C_fix(1)); -t7=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t6); -t8=C_set_block_item(((C_word*)t0)[3],0,t7); -t9=((C_word*)t0)[4]; -f_2077(t9,t8);} - -/* chicken.string#string-chop in k882 */ -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=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_2139,c,av);} -a=C_alloc(8); -t4=C_i_check_string_2(t2,lf[52]); -t5=C_i_check_fixnum_2(t3,lf[52]); -t6=C_u_i_string_length(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_2152,a[2]=t3,a[3]=t2,a[4]=t8,a[5]=((C_word)li38),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_2152(t10,t1,t6,C_fix(0));} - -/* loop in chicken.string#string-chop in k882 */ -static void f_2152(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(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_2152,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_2172,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* data-structures.scm:373: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[34]); -C_word av2[5]; -av2[0]=*((C_word*)lf[34]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[3]; -av2[3]=t3; -av2[4]=C_fixnum_plus(t3,t2); -tp(5,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2183,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t3,tmp=(C_word)a,a+=7,tmp); -/* data-structures.scm:374: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[34]); -C_word av2[5]; -av2[0]=*((C_word*)lf[34]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[3]; -av2[3]=t3; -av2[4]=C_fixnum_plus(t3,((C_word*)t0)[2]); -tp(5,av2);}}}} - -/* k2170 in loop in chicken.string#string-chop in k882 */ -static void C_ccall f_2172(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_2172,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list1(&a,1,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k2181 in loop in chicken.string#string-chop in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_2183,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2187,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:374: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_2152(t3,t2,C_fixnum_difference(((C_word*)t0)[4],((C_word*)t0)[5]),C_fixnum_plus(((C_word*)t0)[6],((C_word*)t0)[5]));} - -/* k2185 in k2181 in loop in chicken.string#string-chop in k882 */ -static void C_ccall f_2187(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_2187,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.string#string-chomp in k882 */ -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 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_min_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_2201,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?lf[54]:C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_string_2(t2,lf[55]); -t6=C_i_check_string_2(t4,lf[55]); -t7=C_u_i_string_length(t2); -t8=C_u_i_string_length(t4); -t9=C_fixnum_difference(t7,t8); -if(C_truep(C_fixnum_greater_or_equal_p(t7,t8))){ -if(C_truep(C_u_i_substring_equal_p(t2,t4,t9,C_fix(0),t8))){ -/* data-structures.scm:387: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[34]); -C_word av2[5]; -av2[0]=*((C_word*)lf[34]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(0); -av2[4]=t9; -tp(5,av2);}} -else{ -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} -else{ -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} - -/* chicken.sort#sorted? in k882 */ -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; -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_2236,c,av);} -a=C_alloc(9); -if(C_truep(C_i_nullp(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_vectorp(t2))){ -t4=C_block_size(t2); -if(C_truep(C_fixnum_less_or_equal_p(t4,C_fix(1)))){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_TRUE; -((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_2263,a[2]=t4,a[3]=t6,a[4]=t2,a[5]=t3,a[6]=((C_word)li41),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_2263(t8,t1,C_fix(1));}} -else{ -t4=C_i_car(t2); -t5=C_u_i_cdr(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_2311,a[2]=t7,a[3]=t3,a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_2311(t9,t1,t4,t5);}}} - -/* doloop505 in chicken.sort#sorted? in k882 */ -static void f_2263(C_word t0,C_word 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(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_2263,3,t0,t1,t2);} -a=C_alloc(11); -t3=C_i_nequalp(t2,((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2273,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_2273(2,av2);}} -else{ -t5=C_i_vector_ref(((C_word*)t0)[4],t2); -t6=C_a_i_fixnum_difference(&a,2,t2,C_fix(1)); -/* data-structures.scm:426: less? */ -t7=((C_word*)t0)[5];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t4; -av2[2]=t5; -av2[3]=C_i_vector_ref(((C_word*)t0)[4],t6); -((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} - -/* k2271 in doloop505 in chicken.sort#sorted? in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ -C_save_and_reclaim((void *)f_2273,c,av);} -a=C_alloc(29); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_nequalp(((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -t3=((C_word*)((C_word*)t0)[5])[1]; -f_2263(t3,((C_word*)t0)[2],t2);}} - -/* loop in chicken.sort#sorted? in k882 */ -static void f_2311(C_word 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(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_2311,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_2335,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:432: less? */ -t6=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_i_car(t3); -av2[3]=t2; -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} - -/* k2333 in loop in chicken.sort#sorted? in k882 */ -static void C_ccall f_2335(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2335,c,av);} -if(C_truep(C_i_not(t1))){ -/* data-structures.scm:433: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2311(t2,((C_word*)t0)[3],C_u_i_car(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.sort#merge in k882 */ -static void C_ccall f_2341(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,6)))){ -C_save_and_reclaim((void *)f_2341,c,av);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t2))){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_nullp(t3))){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -t6=C_u_i_cdr(t2); -t7=C_i_car(t3); -t8=C_u_i_cdr(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|4,a[1]=(C_word)f_2371,a[2]=t10,a[3]=t4,a[4]=((C_word)li44),tmp=(C_word)a,a+=5,tmp)); -t12=((C_word*)t10)[1]; -f_2371(t12,t1,t5,t6,t7,t8);}}} - -/* loop in chicken.sort#merge in k882 */ -static void f_2371(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_2371,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(8); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2378,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:449: 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);}} - -/* k2376 in loop in chicken.sort#merge in k882 */ -static void C_ccall f_2378(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ -C_save_and_reclaim((void *)f_2378,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[6],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2398,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:452: loop */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_2371(t3,t2,((C_word*)t0)[3],((C_word*)t0)[4],C_i_car(((C_word*)t0)[2]),C_u_i_cdr(((C_word*)t0)[2]));}} -else{ -if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ -t2=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[2]); -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2424,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:456: loop */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_2371(t3,t2,C_i_car(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[6],((C_word*)t0)[2]);}}} - -/* k2396 in k2376 in loop in chicken.sort#merge in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_2398,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k2422 in k2376 in loop in chicken.sort#merge in k882 */ -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(3,c,1)))){ -C_save_and_reclaim((void *)f_2424,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.sort#merge! in k882 */ -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=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(13,c,5)))){ -C_save_and_reclaim((void *)f_2432,c,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_2435,a[2]=t6,a[3]=t4,a[4]=((C_word)li46),tmp=(C_word)a,a+=5,tmp)); -if(C_truep(C_i_nullp(t2))){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -if(C_truep(C_i_nullp(t3))){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2510,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp); -/* data-structures.scm:481: less? */ -t9=t4;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_car(t3); -av2[3]=C_i_car(t2); -((C_proc)C_fast_retrieve_proc(t9))(4,av2);}}}} - -/* loop in chicken.sort#merge! in k882 */ -static void f_2435(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(7,0,3)))){ -C_save_and_reclaim_args((void *)trf_2435,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2442,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -/* data-structures.scm:466: less? */ -t6=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_i_car(t4); -av2[3]=C_i_car(t3); -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} - -/* k2440 in loop in chicken.sort#merge! in k882 */ -static void C_ccall f_2442(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2442,c,av);} -if(C_truep(t1)){ -t2=C_i_set_cdr(((C_word*)t0)[2],((C_word*)t0)[3]); -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[3])))){ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(1),((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* data-structures.scm:471: loop */ -t3=((C_word*)((C_word*)t0)[6])[1]; -f_2435(t3,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]));}} -else{ -t2=C_i_set_cdr(((C_word*)t0)[2],((C_word*)t0)[5]); -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[5])))){ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_setslot(((C_word*)t0)[5],C_fix(1),((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* data-structures.scm:477: loop */ -t3=((C_word*)((C_word*)t0)[6])[1]; -f_2435(t3,((C_word*)t0)[4],((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[3]);}}} - -/* k2508 in chicken.sort#merge! in k882 */ -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 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_2510,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2513,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_u_i_cdr(((C_word*)t0)[3])))){ -t3=C_i_setslot(((C_word*)t0)[3],C_fix(1),((C_word*)t0)[4]); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* data-structures.scm:484: loop */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_2435(t3,t2,((C_word*)t0)[3],((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[3]));}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[4])))){ -t3=C_i_setslot(((C_word*)t0)[4],C_fix(1),((C_word*)t0)[3]); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* data-structures.scm:489: loop */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_2435(t3,t2,((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[3]);}}} - -/* k2511 in k2508 in chicken.sort#merge! in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2513,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k2529 in k2508 in chicken.sort#merge! in k882 */ -static void C_ccall f_2531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2531,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.sort#sort! in k882 */ -static void C_ccall f_2556(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,3)))){ -C_save_and_reclaim((void *)f_2556,c,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_2559,a[2]=t3,a[3]=t6,a[4]=t4,a[5]=((C_word)li48),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=((C_word*)t4)[1]; -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2644,a[2]=t4,a[3]=t9,a[4]=t1,a[5]=t6,a[6]=t8,tmp=(C_word)a,a+=7,tmp); -/* data-structures.scm:528: scheme#vector->list */ -t11=*((C_word*)lf[61]+1);{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -av2[2]=((C_word*)t4)[1]; -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} -else{ -/* data-structures.scm:534: step */ -t8=((C_word*)t6)[1]; -f_2559(t8,t1,C_i_length(((C_word*)t4)[1]));}} - -/* step in chicken.sort#sort! in k882 */ -static void f_2559(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -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,3)))){ -C_save_and_reclaim_args((void *)trf_2559,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_greaterp(t2,C_fix(2)))){ -t3=C_s_a_i_quotient(&a,2,t2,C_fix(2)); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2572,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -/* data-structures.scm:504: step */ -t10=t4; -t11=t3; -t1=t10; -t2=t11; -goto loop;} -else{ -if(C_truep(C_i_nequalp(t2,C_fix(2)))){ -t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]); -t4=C_i_cadr(((C_word*)((C_word*)t0)[4])[1]); -t5=((C_word*)((C_word*)t0)[4])[1]; -t6=C_i_cddr(((C_word*)((C_word*)t0)[4])[1]); -t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2610,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* data-structures.scm:513: less? */ -t9=((C_word*)t0)[2];{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t8; -av2[2]=t4; -av2[3]=t3; -((C_proc)C_fast_retrieve_proc(t9))(4,av2);}} -else{ -if(C_truep(C_i_nequalp(t2,C_fix(1)))){ -t3=((C_word*)((C_word*)t0)[4])[1]; -t4=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); -t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4); -t6=C_i_set_cdr(t3,C_SCHEME_END_OF_LIST); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}}} - -/* k2570 in step in chicken.sort#sort! in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(34,c,2)))){ -C_save_and_reclaim((void *)f_2572,c,av);} -a=C_alloc(34); -t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2578,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:506: step */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_2559(t4,t3,t2);} - -/* k2576 in k2570 in step in chicken.sort#sort! in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2578,c,av);} -/* data-structures.scm:507: merge! */ -t2=*((C_word*)lf[59]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k2608 in step in chicken.sort#sort! in k882 */ -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 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_2610,c,av);} -if(C_truep(t1)){ -t2=C_i_set_car(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_i_set_car(C_u_i_cdr(((C_word*)t0)[2]),((C_word*)t0)[4]); -t4=C_i_cdr(((C_word*)t0)[2]); -t5=C_i_set_cdr(t4,C_SCHEME_END_OF_LIST); -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t2=C_i_cdr(((C_word*)t0)[2]); -t3=C_i_set_cdr(t2,C_SCHEME_END_OF_LIST); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k2642 in chicken.sort#sort! in k882 */ -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(4,c,2)))){ -C_save_and_reclaim((void *)f_2644,c,av);} -a=C_alloc(4); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2651,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:529: step */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_2559(t4,t3,((C_word*)t0)[6]);} - -/* k2649 in k2642 in chicken.sort#sort! in k882 */ -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 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_2651,c,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_2653,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_2653(t5,((C_word*)t0)[3],t1,C_fix(0));} - -/* doloop576 in k2649 in k2642 in chicken.sort#sort! in k882 */ -static void f_2653(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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_2653,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t2))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_car(t2); -t5=C_i_vector_set(((C_word*)t0)[2],t3,t4); -t6=C_u_i_cdr(t2); -t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); -t9=t1; -t10=t6; -t11=t7; -t1=t9; -t2=t10; -t3=t11; -goto loop;}} - -/* chicken.sort#sort in k882 */ -static void C_ccall f_2684(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_2684,c,av);} -a=C_alloc(7); -if(C_truep(C_i_vectorp(t2))){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2698,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2702,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:545: scheme#vector->list */ -t6=*((C_word*)lf[61]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2709,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:546: scheme#append */ -t5=*((C_word*)lf[64]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k2696 in chicken.sort#sort in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_2698,c,av);} -/* data-structures.scm:545: scheme#list->vector */ -t2=*((C_word*)lf[63]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k2700 in chicken.sort#sort in k882 */ -static void C_ccall f_2702(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2702,c,av);} -/* data-structures.scm:545: sort! */ -t2=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k2707 in chicken.sort#sort in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2709,c,av);} -/* data-structures.scm:546: sort! */ -t2=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.sort#topological-sort in k882 */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(26,c,7)))){ -C_save_and_reclaim((void *)f_2711,c,av);} -a=C_alloc(26); -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_2714,a[2]=t3,a[3]=t5,a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp)); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2851,a[2]=t3,a[3]=t2,a[4]=((C_word)li54),tmp=(C_word)a,a+=5,tmp); -t10=C_i_check_list_2(t2,lf[82]); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2880,a[2]=t7,a[3]=t5,a[4]=t1,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_2927,a[2]=t13,a[3]=t9,a[4]=((C_word)li56),tmp=(C_word)a,a+=5,tmp)); -t15=((C_word*)t13)[1]; -f_2927(t15,t11,t2,C_SCHEME_END_OF_LIST);} - -/* visit in chicken.sort#topological-sort in k882 */ -static void f_2714(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ -C_save_and_reclaim_args((void *)trf_2714,7,t0,t1,t2,t3,t4,t5,t6);} -a=C_alloc(10); -t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_2718,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t6,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t2,a[9]=t4,tmp=(C_word)a,a+=10,tmp); -/* data-structures.scm:556: chicken.base#alist-ref */ -t8=*((C_word*)lf[81]+1);{ -C_word av2[5]; -av2[0]=t8; -av2[1]=t7; -av2[2]=t3; -av2[3]=C_i_car(t6); -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} - -/* k2716 in visit in chicken.sort#topological-sort in k882 */ -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 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_2718,c,av);} -a=C_alloc(12); -t2=C_eqp(t1,lf[66]); -if(C_truep(t2)){ -t3=C_a_i_cons(&a,2,lf[67],lf[68]); -t4=C_a_i_cons(&a,2,lf[67],lf[69]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2767,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* data-structures.scm:563: scheme#reverse */ -t6=*((C_word*)lf[78]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t3=C_eqp(t1,lf[79]); -if(C_truep(t3)){ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2780,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); -if(C_truep(((C_word*)t0)[9])){ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[9]; -f_2780(2,av2);}} -else{ -/* data-structures.scm:569: chicken.base#alist-ref */ -t5=*((C_word*)lf[81]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[8]; -av2[4]=((C_word*)t0)[6]; -av2[5]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}}} - -/* k2753 in k2765 in k2716 in visit in chicken.sort#topological-sort in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ -C_save_and_reclaim((void *)f_2755,c,av);} -a=C_alloc(31); -t2=C_a_i_cons(&a,2,lf[67],lf[71]); -t3=C_a_i_list(&a,8,((C_word*)t0)[2],lf[72],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,t2,lf[73]); -t4=C_a_i_record3(&a,3,lf[74],lf[75],t3); -/* data-structures.scm:558: chicken.condition#abort */ -t5=C_fast_retrieve(lf[76]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[6]; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k2765 in k2716 in visit in chicken.sort#topological-sort in k882 */ -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 t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ -C_save_and_reclaim((void *)f_2767,c,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=C_a_i_cons(&a,2,lf[67],lf[70]); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2755,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* data-structures.scm:564: chicken.base#get-call-chain */ -t6=C_fast_retrieve(lf[77]);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k2778 in k2716 in visit in chicken.sort#topological-sort in k882 */ -static void C_ccall f_2780(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_2780,c,av);} -a=C_alloc(20); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],lf[66]); -t3=C_u_i_car(((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,t2,t3); -t5=C_u_i_cdr(((C_word*)t0)[3]); -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|8,a[1]=(C_word)f_2786,a[2]=((C_word*)t0)[2],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)li52),tmp=(C_word)a,a+=9,tmp)); -t10=((C_word*)t8)[1]; -f_2786(t10,((C_word*)t0)[8],t1,t6);} - -/* walk in k2778 in k2716 in visit in chicken.sort#topological-sort in k882 */ -static void f_2786(C_word t0,C_word t1,C_word 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,6)))){ -C_save_and_reclaim_args((void *)trf_2786,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_2800,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:573: chicken.base#alist-update! */ -t5=C_fast_retrieve(lf[80]);{ -C_word av2[6]; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[79]; -av2[4]=C_i_car(t3); -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} -else{ -t4=C_i_car(t2); -t5=C_u_i_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2822,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -t7=C_a_i_cons(&a,2,t4,((C_word*)t0)[5]); -/* data-structures.scm:577: visit */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_2714(t8,t6,((C_word*)t0)[7],t4,C_SCHEME_FALSE,t7,t3);}} - -/* k2798 in walk in k2778 in k2716 in visit in chicken.sort#topological-sort in k882 */ -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; -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_2800,c,av);} -a=C_alloc(6); -t2=C_u_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=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k2820 in walk in k2778 in k2716 in visit in chicken.sort#topological-sort in k882 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2822,c,av);} -/* data-structures.scm:576: walk */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2786(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* g618 in chicken.sort#topological-sort in k882 */ -static void f_2851(C_word t0,C_word t1,C_word 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(10,0,4)))){ -C_save_and_reclaim_args((void *)trf_2851,4,t0,t1,t2,t3);} -a=C_alloc(10); -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2863,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -t6=C_u_i_cdr(t3); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2869,a[2]=t5,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:586: chicken.base#alist-ref */ -t8=*((C_word*)lf[81]+1);{ -C_word av2[5]; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_u_i_car(t3); -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} - -/* k2861 in g618 in chicken.sort#topological-sort in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_2863,c,av);} -/* data-structures.scm:584: chicken.base#alist-update! */ -t2=C_fast_retrieve(lf[80]);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k2867 in g618 in chicken.sort#topological-sort in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2869,c,av);} -if(C_truep(t1)){ -/* data-structures.scm:585: scheme#append */ -t2=*((C_word*)lf[64]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -/* data-structures.scm:585: scheme#append */ -t2=*((C_word*)lf[64]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k2878 in chicken.sort#topological-sort in k882 */ -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 t4; -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_2880,c,av);} -a=C_alloc(10); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_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_2889,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word)li55),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_2889(t7,((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1],t3);} - -/* loop in k2878 in chicken.sort#topological-sort in k882 */ -static void f_2889(C_word t0,C_word t1,C_word 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,6)))){ -C_save_and_reclaim_args((void *)trf_2889,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2910,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t6=C_i_caar(t2); -t7=C_u_i_car(t2); -/* data-structures.scm:596: visit */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_2714(t8,t5,t2,t6,C_u_i_cdr(t7),C_SCHEME_END_OF_LIST,t3);}} - -/* k2908 in loop in k2878 in chicken.sort#topological-sort in k882 */ -static void C_ccall f_2910(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2910,c,av);} -/* data-structures.scm:595: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2889(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* foldl620 in chicken.sort#topological-sort in k882 */ -static void f_2927(C_word 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(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_2927,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t4=C_slot(t2,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2945,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* data-structures.scm:583: g618 */ -t6=((C_word*)t0)[3]; -f_2851(t6,t5,t3,C_slot(t2,C_fix(0)));} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k2943 in foldl620 in chicken.sort#topological-sort in k882 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2945,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2927(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k882 */ -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 t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(91,c,7)))){ -C_save_and_reclaim((void *)f_884,c,av);} -a=C_alloc(91); -t2=C_mutate((C_word*)lf[2]+1 /* (set! chicken.string#reverse-string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_886,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[4]+1 /* (set! chicken.string#reverse-list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_959,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[6]+1 /* (set! chicken.string#->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_965,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[12]+1 /* (set! chicken.string#conc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1010,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1057,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp); -t7=C_mutate((C_word*)lf[15]+1 /* (set! ##sys#substring-index ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1127,a[2]=t6,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp)); -t8=C_mutate((C_word*)lf[17]+1 /* (set! ##sys#substring-index-ci ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1136,a[2]=t6,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp)); -t9=C_mutate((C_word*)lf[19]+1 /* (set! chicken.string#substring-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1145,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[20]+1 /* (set! chicken.string#substring-index-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1160,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[21]+1 /* (set! chicken.string#string-compare3 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1175,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[23]+1 /* (set! chicken.string#string-compare3-ci ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1202,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[25]+1 /* (set! ##sys#substring=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1229,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[27]+1 /* (set! chicken.string#substring=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1281,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[28]+1 /* (set! ##sys#substring-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1341,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[30]+1 /* (set! chicken.string#substring-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1393,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[31]+1 /* (set! chicken.string#string-split ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1453,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate((C_word*)lf[35]+1 /* (set! chicken.string#string-intersperse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1589,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[41]+1 /* (set! chicken.string#string-translate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1717,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[47]+1 /* (set! chicken.string#string-translate* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1980,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[51]+1 /* (set! chicken.string#string-chop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2139,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate((C_word*)lf[53]+1 /* (set! chicken.string#string-chomp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2201,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); -t23=C_a_i_provide(&a,1,lf[56]); -t24=C_mutate((C_word*)lf[57]+1 /* (set! chicken.sort#sorted? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2236,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); -t25=C_mutate((C_word*)lf[58]+1 /* (set! chicken.sort#merge ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2341,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); -t26=C_mutate((C_word*)lf[59]+1 /* (set! chicken.sort#merge! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2432,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); -t27=C_mutate((C_word*)lf[60]+1 /* (set! chicken.sort#sort! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2556,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); -t28=C_mutate((C_word*)lf[62]+1 /* (set! chicken.sort#sort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2684,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); -t29=C_mutate((C_word*)lf[65]+1 /* (set! chicken.sort#topological-sort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2711,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); -t30=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t30; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t30+1)))(2,av2);}} - -/* chicken.string#reverse-string-append in k882 */ -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=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_886,c,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_889,a[2]=t4,a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp)); -/* data-structures.scm:62: rev-string-append */ -t6=((C_word*)t4)[1]; -f_889(t6,t1,t2,C_fix(0));} - -/* rev-string-append in chicken.string#reverse-string-append in k882 */ -static void f_889(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_889,4,t0,t1,t2,t3);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t4=C_u_i_car(t2); -t5=C_i_string_length(t4); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_903,a[2]=t3,a[3]=t5,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* data-structures.scm:54: rev-string-append */ -t8=t6; -t9=C_u_i_cdr(t2); -t10=C_fixnum_plus(t3,t5); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -/* data-structures.scm:61: scheme#make-string */ -t4=*((C_word*)lf[3]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k901 in rev-string-append in chicken.string#reverse-string-append in k882 */ -static void C_ccall f_903(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_903,c,av);} -a=C_alloc(6); -t2=C_i_string_length(t1); -t3=C_fixnum_difference(t2,((C_word*)t0)[2]); -t4=C_fixnum_difference(t3,((C_word*)t0)[3]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_912,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word)li0),tmp=(C_word)a,a+=6,tmp); -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=( - f_912(t5,C_fix(0),t4) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* loop in k901 in rev-string-append in chicken.string#reverse-string-append in k882 */ -static C_word 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_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); -t6=C_fixnum_plus(t1,C_fix(1)); -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;} -else{ -return(((C_word*)t0)[4]);}} - -/* chicken.string#reverse-list->string in k882 */ -static void C_ccall f_959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_959,c,av);} -/* data-structures.scm:65: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[5]); -C_word *av2=av; -av2[0]=*((C_word*)lf[5]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} - -/* chicken.string#->string in k882 */ -static void C_ccall f_965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_965,c,av);} -a=C_alloc(8); -if(C_truep(C_i_stringp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_symbolp(t2))){ -/* data-structures.scm:72: scheme#symbol->string */ -t3=*((C_word*)lf[7]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -if(C_truep(C_charp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_string(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_numberp(t2))){ -/* data-structures.scm:74: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[8]); -C_word *av2=av; -av2[0]=*((C_word*)lf[8]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1002,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* data-structures.scm:76: scheme#open-output-string */ -t4=C_fast_retrieve(lf[11]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}}} - -/* toplevel */ -static 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 t4; -C_word t5; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("data-structures")); -C_check_nursery_minimum(C_calculate_demand(19,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void*)C_data_2dstructures_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(562))){ -C_save(t1); -C_rereclaim2(562*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(19); -C_initialize_lf(lf,83); -lf[0]=C_h_intern(&lf[0],15, C_text("data-structures")); -lf[1]=C_h_intern(&lf[1],15, C_text("chicken.string#")); -lf[2]=C_h_intern(&lf[2],36, C_text("chicken.string#reverse-string-append")); -lf[3]=C_h_intern(&lf[3],18, C_text("scheme#make-string")); -lf[4]=C_h_intern(&lf[4],35, C_text("chicken.string#reverse-list->string")); -lf[5]=C_h_intern(&lf[5],26, C_text("##sys#reverse-list->string")); -lf[6]=C_h_intern(&lf[6],23, C_text("chicken.string#->string")); -lf[7]=C_h_intern(&lf[7],21, C_text("scheme#symbol->string")); -lf[8]=C_h_intern(&lf[8],20, C_text("##sys#number->string")); -lf[9]=C_h_intern(&lf[9],24, C_text("scheme#get-output-string")); -lf[10]=C_h_intern(&lf[10],14, C_text("scheme#display")); -lf[11]=C_h_intern(&lf[11],25, C_text("scheme#open-output-string")); -lf[12]=C_h_intern(&lf[12],19, C_text("chicken.string#conc")); -lf[13]=C_h_intern(&lf[13],20, C_text("scheme#string-append")); -lf[14]=C_h_intern(&lf[14],16, C_text("##sys#error-hook")); -lf[15]=C_h_intern(&lf[15],21, C_text("##sys#substring-index")); -lf[16]=C_h_intern(&lf[16],15, C_text("substring-index")); -lf[17]=C_h_intern(&lf[17],24, C_text("##sys#substring-index-ci")); -lf[18]=C_h_intern(&lf[18],18, C_text("substring-index-ci")); -lf[19]=C_h_intern(&lf[19],30, C_text("chicken.string#substring-index")); -lf[20]=C_h_intern(&lf[20],33, C_text("chicken.string#substring-index-ci")); -lf[21]=C_h_intern(&lf[21],30, C_text("chicken.string#string-compare3")); -lf[22]=C_h_intern(&lf[22],15, C_text("string-compare3")); -lf[23]=C_h_intern(&lf[23],33, C_text("chicken.string#string-compare3-ci")); -lf[24]=C_h_intern(&lf[24],18, C_text("string-compare3-ci")); -lf[25]=C_h_intern(&lf[25],17, C_text("##sys#substring=?")); -lf[26]=C_h_intern(&lf[26],11, C_text("substring=?")); -lf[27]=C_h_intern(&lf[27],26, C_text("chicken.string#substring=?")); -lf[28]=C_h_intern(&lf[28],20, C_text("##sys#substring-ci=?")); -lf[29]=C_h_intern(&lf[29],14, C_text("substring-ci=?")); -lf[30]=C_h_intern(&lf[30],29, C_text("chicken.string#substring-ci=?")); -lf[31]=C_h_intern(&lf[31],27, C_text("chicken.string#string-split")); -lf[32]=C_h_intern(&lf[32],12, C_text("string-split")); -lf[33]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\011\012\040\000")); -lf[34]=C_h_intern(&lf[34],15, C_text("##sys#substring")); -lf[35]=C_h_intern(&lf[35],33, C_text("chicken.string#string-intersperse")); -lf[36]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000")); -lf[37]=C_h_intern(&lf[37],18, C_text("string-intersperse")); -lf[38]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[39]=C_h_intern(&lf[39],25, C_text("##sys#allocate-bytevector")); -lf[40]=C_h_intern(&lf[40],29, C_text("##sys#error-not-a-proper-list")); -lf[41]=C_h_intern(&lf[41],31, C_text("chicken.string#string-translate")); -lf[42]=C_h_intern(&lf[42],16, C_text("string-translate")); -lf[43]=C_h_intern(&lf[43],11, C_text("##sys#error")); -lf[44]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\151\156\166\141\154\151\144\040\164\162\141\156\163\154\141\164\151\157\156\040\144\145\163\164\151\156\141\164\151\157\156\000")); -lf[45]=C_h_intern(&lf[45],17, C_text("##sys#make-string")); -lf[46]=C_h_intern(&lf[46],18, C_text("##sys#list->string")); -lf[47]=C_h_intern(&lf[47],32, C_text("chicken.string#string-translate*")); -lf[48]=C_h_intern(&lf[48],17, C_text("string-translate*")); -lf[49]=C_h_intern(&lf[49],21, C_text("##sys#make-bytevector")); -lf[50]=C_h_intern(&lf[50],18, C_text("##sys#fast-reverse")); -lf[51]=C_h_intern(&lf[51],26, C_text("chicken.string#string-chop")); -lf[52]=C_h_intern(&lf[52],11, C_text("string-chop")); -lf[53]=C_h_intern(&lf[53],27, C_text("chicken.string#string-chomp")); -lf[54]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000")); -lf[55]=C_h_intern(&lf[55],12, C_text("string-chomp")); -lf[56]=C_h_intern(&lf[56],13, C_text("chicken.sort#")); -lf[57]=C_h_intern(&lf[57],20, C_text("chicken.sort#sorted?")); -lf[58]=C_h_intern(&lf[58],18, C_text("chicken.sort#merge")); -lf[59]=C_h_intern(&lf[59],19, C_text("chicken.sort#merge!")); -lf[60]=C_h_intern(&lf[60],18, C_text("chicken.sort#sort!")); -lf[61]=C_h_intern(&lf[61],19, C_text("scheme#vector->list")); -lf[62]=C_h_intern(&lf[62],17, C_text("chicken.sort#sort")); -lf[63]=C_h_intern(&lf[63],19, C_text("scheme#list->vector")); -lf[64]=C_h_intern(&lf[64],13, C_text("scheme#append")); -lf[65]=C_h_intern(&lf[65],29, C_text("chicken.sort#topological-sort")); -lf[66]=C_h_intern(&lf[66],4, C_text("grey")); -lf[67]=C_h_intern(&lf[67],3, C_text("exn")); -lf[68]=C_h_intern(&lf[68],7, C_text("message")); -lf[69]=C_h_intern(&lf[69],9, C_text("arguments")); -lf[70]=C_h_intern(&lf[70],10, C_text("call-chain")); -lf[71]=C_h_intern(&lf[71],8, C_text("location")); -lf[72]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\143\171\143\154\145\040\144\145\164\145\143\164\145\144\000")); -lf[73]=C_h_intern(&lf[73],16, C_text("topological-sort")); -lf[74]=C_h_intern(&lf[74],9, C_text("condition")); -lf[75]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\007\001\162\165\156\164\151\155\145\376\003\000\000\002\376\001\000\000\005\001\143\171\143\154\145\376\377\016")); -lf[76]=C_h_intern(&lf[76],23, C_text("chicken.condition#abort")); -lf[77]=C_h_intern(&lf[77],27, C_text("chicken.base#get-call-chain")); -lf[78]=C_h_intern(&lf[78],14, C_text("scheme#reverse")); -lf[79]=C_h_intern(&lf[79],5, C_text("black")); -lf[80]=C_h_intern(&lf[80],26, C_text("chicken.base#alist-update!")); -lf[81]=C_h_intern(&lf[81],22, C_text("chicken.base#alist-ref")); -lf[82]=C_h_intern(&lf[82],5, C_text("foldl")); -C_register_lf2(lf,83,create_ptable());{} -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_884,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[115] = { -{C_text("f_1002:data_2dstructures_2escm"),(void*)f_1002}, -{C_text("f_1005:data_2dstructures_2escm"),(void*)f_1005}, -{C_text("f_1010:data_2dstructures_2escm"),(void*)f_1010}, -{C_text("f_1021:data_2dstructures_2escm"),(void*)f_1021}, -{C_text("f_1023:data_2dstructures_2escm"),(void*)f_1023}, -{C_text("f_1048:data_2dstructures_2escm"),(void*)f_1048}, -{C_text("f_1057:data_2dstructures_2escm"),(void*)f_1057}, -{C_text("f_1095:data_2dstructures_2escm"),(void*)f_1095}, -{C_text("f_1108:data_2dstructures_2escm"),(void*)f_1108}, -{C_text("f_1127:data_2dstructures_2escm"),(void*)f_1127}, -{C_text("f_1133:data_2dstructures_2escm"),(void*)f_1133}, -{C_text("f_1136:data_2dstructures_2escm"),(void*)f_1136}, -{C_text("f_1142:data_2dstructures_2escm"),(void*)f_1142}, -{C_text("f_1145:data_2dstructures_2escm"),(void*)f_1145}, -{C_text("f_1160:data_2dstructures_2escm"),(void*)f_1160}, -{C_text("f_1175:data_2dstructures_2escm"),(void*)f_1175}, -{C_text("f_1202:data_2dstructures_2escm"),(void*)f_1202}, -{C_text("f_1229:data_2dstructures_2escm"),(void*)f_1229}, -{C_text("f_1250:data_2dstructures_2escm"),(void*)f_1250}, -{C_text("f_1281:data_2dstructures_2escm"),(void*)f_1281}, -{C_text("f_1341:data_2dstructures_2escm"),(void*)f_1341}, -{C_text("f_1362:data_2dstructures_2escm"),(void*)f_1362}, -{C_text("f_1393:data_2dstructures_2escm"),(void*)f_1393}, -{C_text("f_1453:data_2dstructures_2escm"),(void*)f_1453}, -{C_text("f_1470:data_2dstructures_2escm"),(void*)f_1470}, -{C_text("f_1485:data_2dstructures_2escm"),(void*)f_1485}, -{C_text("f_1490:data_2dstructures_2escm"),(void*)f_1490}, -{C_text("f_1500:data_2dstructures_2escm"),(void*)f_1500}, -{C_text("f_1520:data_2dstructures_2escm"),(void*)f_1520}, -{C_text("f_1559:data_2dstructures_2escm"),(void*)f_1559}, -{C_text("f_1589:data_2dstructures_2escm"),(void*)f_1589}, -{C_text("f_1610:data_2dstructures_2escm"),(void*)f_1610}, -{C_text("f_1623:data_2dstructures_2escm"),(void*)f_1623}, -{C_text("f_1628:data_2dstructures_2escm"),(void*)f_1628}, -{C_text("f_1717:data_2dstructures_2escm"),(void*)f_1717}, -{C_text("f_1720:data_2dstructures_2escm"),(void*)f_1720}, -{C_text("f_1725:data_2dstructures_2escm"),(void*)f_1725}, -{C_text("f_1731:data_2dstructures_2escm"),(void*)f_1731}, -{C_text("f_1758:data_2dstructures_2escm"),(void*)f_1758}, -{C_text("f_1761:data_2dstructures_2escm"),(void*)f_1761}, -{C_text("f_1771:data_2dstructures_2escm"),(void*)f_1771}, -{C_text("f_1776:data_2dstructures_2escm"),(void*)f_1776}, -{C_text("f_1798:data_2dstructures_2escm"),(void*)f_1798}, -{C_text("f_1911:data_2dstructures_2escm"),(void*)f_1911}, -{C_text("f_1928:data_2dstructures_2escm"),(void*)f_1928}, -{C_text("f_1940:data_2dstructures_2escm"),(void*)f_1940}, -{C_text("f_1945:data_2dstructures_2escm"),(void*)f_1945}, -{C_text("f_1980:data_2dstructures_2escm"),(void*)f_1980}, -{C_text("f_1990:data_2dstructures_2escm"),(void*)f_1990}, -{C_text("f_2000:data_2dstructures_2escm"),(void*)f_2000}, -{C_text("f_2007:data_2dstructures_2escm"),(void*)f_2007}, -{C_text("f_2033:data_2dstructures_2escm"),(void*)f_2033}, -{C_text("f_2038:data_2dstructures_2escm"),(void*)f_2038}, -{C_text("f_2077:data_2dstructures_2escm"),(void*)f_2077}, -{C_text("f_2122:data_2dstructures_2escm"),(void*)f_2122}, -{C_text("f_2139:data_2dstructures_2escm"),(void*)f_2139}, -{C_text("f_2152:data_2dstructures_2escm"),(void*)f_2152}, -{C_text("f_2172:data_2dstructures_2escm"),(void*)f_2172}, -{C_text("f_2183:data_2dstructures_2escm"),(void*)f_2183}, -{C_text("f_2187:data_2dstructures_2escm"),(void*)f_2187}, -{C_text("f_2201:data_2dstructures_2escm"),(void*)f_2201}, -{C_text("f_2236:data_2dstructures_2escm"),(void*)f_2236}, -{C_text("f_2263:data_2dstructures_2escm"),(void*)f_2263}, -{C_text("f_2273:data_2dstructures_2escm"),(void*)f_2273}, -{C_text("f_2311:data_2dstructures_2escm"),(void*)f_2311}, -{C_text("f_2335:data_2dstructures_2escm"),(void*)f_2335}, -{C_text("f_2341:data_2dstructures_2escm"),(void*)f_2341}, -{C_text("f_2371:data_2dstructures_2escm"),(void*)f_2371}, -{C_text("f_2378:data_2dstructures_2escm"),(void*)f_2378}, -{C_text("f_2398:data_2dstructures_2escm"),(void*)f_2398}, -{C_text("f_2424:data_2dstructures_2escm"),(void*)f_2424}, -{C_text("f_2432:data_2dstructures_2escm"),(void*)f_2432}, -{C_text("f_2435:data_2dstructures_2escm"),(void*)f_2435}, -{C_text("f_2442:data_2dstructures_2escm"),(void*)f_2442}, -{C_text("f_2510:data_2dstructures_2escm"),(void*)f_2510}, -{C_text("f_2513:data_2dstructures_2escm"),(void*)f_2513}, -{C_text("f_2531:data_2dstructures_2escm"),(void*)f_2531}, -{C_text("f_2556:data_2dstructures_2escm"),(void*)f_2556}, -{C_text("f_2559:data_2dstructures_2escm"),(void*)f_2559}, -{C_text("f_2572:data_2dstructures_2escm"),(void*)f_2572}, -{C_text("f_2578:data_2dstructures_2escm"),(void*)f_2578}, -{C_text("f_2610:data_2dstructures_2escm"),(void*)f_2610}, -{C_text("f_2644:data_2dstructures_2escm"),(void*)f_2644}, -{C_text("f_2651:data_2dstructures_2escm"),(void*)f_2651}, -{C_text("f_2653:data_2dstructures_2escm"),(void*)f_2653}, -{C_text("f_2684:data_2dstructures_2escm"),(void*)f_2684}, -{C_text("f_2698:data_2dstructures_2escm"),(void*)f_2698}, -{C_text("f_2702:data_2dstructures_2escm"),(void*)f_2702}, -{C_text("f_2709:data_2dstructures_2escm"),(void*)f_2709}, -{C_text("f_2711:data_2dstructures_2escm"),(void*)f_2711}, -{C_text("f_2714:data_2dstructures_2escm"),(void*)f_2714}, -{C_text("f_2718:data_2dstructures_2escm"),(void*)f_2718}, -{C_text("f_2755:data_2dstructures_2escm"),(void*)f_2755}, -{C_text("f_2767:data_2dstructures_2escm"),(void*)f_2767}, -{C_text("f_2780:data_2dstructures_2escm"),(void*)f_2780}, -{C_text("f_2786:data_2dstructures_2escm"),(void*)f_2786}, -{C_text("f_2800:data_2dstructures_2escm"),(void*)f_2800}, -{C_text("f_2822:data_2dstructures_2escm"),(void*)f_2822}, -{C_text("f_2851:data_2dstructures_2escm"),(void*)f_2851}, -{C_text("f_2863:data_2dstructures_2escm"),(void*)f_2863}, -{C_text("f_2869:data_2dstructures_2escm"),(void*)f_2869}, -{C_text("f_2880:data_2dstructures_2escm"),(void*)f_2880}, -{C_text("f_2889:data_2dstructures_2escm"),(void*)f_2889}, -{C_text("f_2910:data_2dstructures_2escm"),(void*)f_2910}, -{C_text("f_2927:data_2dstructures_2escm"),(void*)f_2927}, -{C_text("f_2945:data_2dstructures_2escm"),(void*)f_2945}, -{C_text("f_884:data_2dstructures_2escm"),(void*)f_884}, -{C_text("f_886:data_2dstructures_2escm"),(void*)f_886}, -{C_text("f_889:data_2dstructures_2escm"),(void*)f_889}, -{C_text("f_903:data_2dstructures_2escm"),(void*)f_903}, -{C_text("f_912:data_2dstructures_2escm"),(void*)f_912}, -{C_text("f_959:data_2dstructures_2escm"),(void*)f_959}, -{C_text("f_965:data_2dstructures_2escm"),(void*)f_965}, -{C_text("toplevel:data_2dstructures_2escm"),(void*)C_data_2dstructures_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.string#fragments->string -S|applied compiler syntax: -S| chicken.base#foldl 1 -S| scheme#map 1 -o|eliminated procedure checks: 27 -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|specializations: -o| 1 (scheme#cdar (pair pair *)) -o| 2 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) -o| 1 (scheme#+ fixnum fixnum) -o| 4 (scheme#set-cdr! pair *) -o| 1 (scheme#- fixnum fixnum) -o| 1 (scheme#<= fixnum fixnum) -o| 1 (scheme#vector-length vector) -o| 1 (scheme#make-string fixnum) -o| 1 (scheme#length list) -o| 18 (scheme#string-length string) -o| 1 (##sys#check-list (or pair list) *) -o| 23 (scheme#cdr pair) -o| 4 (scheme#car pair) -(o e)|safe calls: 352 -(o e)|assignments to immediate values: 2 -o|safe globals: (chicken.sort#topological-sort chicken.sort#sort chicken.sort#sort! chicken.sort#merge! chicken.sort#merge chicken.sort#sorted? chicken.string#string-chomp chicken.string#string-chop chicken.string#string-translate* chicken.string#fragments->string chicken.string#string-translate chicken.string#string-intersperse chicken.string#string-split chicken.string#substring-ci=? ##sys#substring-ci=? chicken.string#substring=? ##sys#substring=? chicken.string#string-compare3-ci chicken.string#string-compare3 chicken.string#substring-index-ci chicken.string#substring-index ##sys#substring-index-ci ##sys#substring-index chicken.string#conc chicken.string#->string chicken.string#reverse-list->string chicken.string#reverse-string-append) -o|inlining procedure: k891 -o|inlining procedure: k914 -o|inlining procedure: k914 -o|inlining procedure: k891 -o|inlining procedure: k967 -o|inlining procedure: k967 -o|inlining procedure: k982 -o|inlining procedure: k982 -o|inlining procedure: k1025 -o|inlining procedure: k1025 -o|inlining procedure: k1073 -o|inlining procedure: k1085 -o|inlining procedure: k1097 -o|inlining procedure: k1097 -o|inlining procedure: k1085 -o|inlining procedure: k1073 -o|inlining procedure: k1192 -o|inlining procedure: k1192 -o|inlining procedure: k1219 -o|inlining procedure: k1219 -o|inlining procedure: k1475 -o|inlining procedure: k1475 -o|inlining procedure: k1492 -o|inlining procedure: k1492 -o|inlining procedure: k1522 -o|inlining procedure: k1522 -o|inlining procedure: k1544 -o|inlining procedure: k1544 -o|inlining procedure: k1612 -o|inlining procedure: k1645 -o|inlining procedure: k1645 -o|inlining procedure: k1612 -o|inlining procedure: k1733 -o|inlining procedure: k1733 -o|inlining procedure: k1778 -o|inlining procedure: k1778 -o|inlining procedure: k1819 -o|inlining procedure: k1819 -o|inlining procedure: k1852 -o|inlining procedure: k1852 -o|inlining procedure: k1890 -o|inlining procedure: k1890 -o|inlining procedure: k1916 -o|inlining procedure: k1916 -o|inlining procedure: k1992 -o|contracted procedure: "(data-structures.scm:341) chicken.string#fragments->string" -o|inlining procedure: k1947 -o|inlining procedure: k1947 -o|inlining procedure: k1992 -o|inlining procedure: k2040 -o|inlining procedure: k2040 -o|inlining procedure: k2154 -o|inlining procedure: k2154 -o|inlining procedure: k2217 -o|inlining procedure: k2217 -o|inlining procedure: k2238 -o|inlining procedure: k2238 -o|inlining procedure: k2253 -o|inlining procedure: k2253 -o|inlining procedure: k2265 -o|inlining procedure: k2265 -o|substituted constant variable: a2297 -o|substituted constant variable: a2299 -o|inlining procedure: k2316 -o|inlining procedure: k2316 -o|inlining procedure: k2343 -o|inlining procedure: k2343 -o|inlining procedure: k2373 -o|inlining procedure: k2373 -o|inlining procedure: k2437 -o|inlining procedure: k2437 -o|inlining procedure: k2493 -o|inlining procedure: k2493 -o|inlining procedure: k2505 -o|inlining procedure: k2505 -o|inlining procedure: k2561 -o|inlining procedure: k2561 -o|inlining procedure: k2619 -o|inlining procedure: k2619 -o|inlining procedure: k2632 -o|inlining procedure: k2655 -o|inlining procedure: k2655 -o|substituted constant variable: a2671 -o|inlining procedure: k2632 -o|inlining procedure: k2686 -o|inlining procedure: k2686 -o|inlining procedure: k2719 -o|inlining procedure: k2719 -o|inlining procedure: k2788 -o|inlining procedure: k2788 -o|substituted constant variable: a2843 -o|substituted constant variable: a2845 -o|inlining procedure: k2870 -o|inlining procedure: k2870 -o|inlining procedure: k2891 -o|inlining procedure: k2891 -o|inlining procedure: k2929 -o|inlining procedure: k2929 -o|substituted constant variable: g619622 -o|replaced variables: 560 -o|removed binding forms: 129 -o|substituted constant variable: r10982962 -o|substituted constant variable: r10862964 -o|converted assignments to bindings: (add268) -o|substituted constant variable: r17342984 -o|converted assignments to bindings: (instring349) -o|substituted constant variable: r21553002 -o|substituted constant variable: r22393006 -o|substituted constant variable: r22543008 -o|substituted constant variable: r26203027 -o|substituted constant variable: r28713040 -o|substituted constant variable: r28713040 -o|converted assignments to bindings: (traverse108) -o|simplifications: ((let . 3)) -o|replaced variables: 20 -o|removed binding forms: 467 -o|inlining procedure: k1147 -o|inlining procedure: k1162 -o|inlining procedure: k1298 -o|inlining procedure: k1410 -o|inlining procedure: k1498 -o|removed binding forms: 30 -o|substituted constant variable: r11483143 -o|substituted constant variable: r11633144 -o|inlining procedure: k2220 -o|inlining procedure: k2220 -o|removed binding forms: 3 -o|substituted constant variable: r22213216 -o|simplifications: ((let . 1)) -o|removed binding forms: 3 -o|removed conditional forms: 1 -o|removed binding forms: 1 -o|simplifications: ((let . 17) (if . 26) (##core#call . 323)) -o| call simplifications: -o| scheme#caar -o| ##sys#cons 4 -o| ##sys#list -o| ##sys#make-structure -o| scheme#length -o| scheme#vector-length -o| scheme#vector-set! -o| scheme#> -o| scheme#cddr -o| scheme#set-car! 2 -o| scheme#quotient -o| scheme#- -o| scheme#set-cdr! 4 -o| scheme#vector? 3 -o| scheme#vector-ref 2 -o| scheme#+ -o| scheme#= 4 -o| scheme#list 4 -o| chicken.fixnum#fx<= 4 -o| scheme#list->string 2 -o| scheme#not 3 -o| ##sys#check-list 3 -o| ##sys#size 8 -o| scheme#cadr 2 -o| scheme#eq? 5 -o| scheme#cdr 10 -o| chicken.fixnum#fxmin 2 -o| ##sys#check-range 6 -o| scheme#null? 34 -o| scheme#car 29 -o| ##sys#check-string 21 -o| ##sys#check-fixnum 6 -o| chicken.fixnum#fx= 4 -o| chicken.fixnum#fx>= 10 -o| chicken.fixnum#fx> 5 -o| scheme#cons 21 -o| ##sys#setslot 6 -o| ##sys#slot 18 -o| scheme#apply -o| scheme#string? 2 -o| scheme#symbol? -o| scheme#char? 4 -o| scheme#number? -o| scheme#string -o| scheme#pair? 6 -o| scheme#string-length 4 -o| chicken.fixnum#fx- 19 -o| chicken.fixnum#fx< 4 -o| scheme#string-ref 6 -o| scheme#string-set! 4 -o| chicken.fixnum#fx+ 37 -o|contracted procedure: k894 -o|contracted procedure: k898 -o|contracted procedure: k943 -o|contracted procedure: k939 -o|contracted procedure: k908 -o|contracted procedure: k917 -o|contracted procedure: k935 -o|contracted procedure: k920 -o|contracted procedure: k927 -o|contracted procedure: k931 -o|contracted procedure: k949 -o|contracted procedure: k970 -o|contracted procedure: k976 -o|contracted procedure: k985 -o|contracted procedure: k994 -o|contracted procedure: k1016 -o|contracted procedure: k1028 -o|contracted procedure: k1031 -o|contracted procedure: k1034 -o|contracted procedure: k1042 -o|contracted procedure: k1050 -o|contracted procedure: k1059 -o|contracted procedure: k1062 -o|contracted procedure: k1067 -o|contracted procedure: k1070 -o|contracted procedure: k1120 -o|contracted procedure: k1076 -o|contracted procedure: k1082 -o|contracted procedure: k1088 -o|contracted procedure: k1100 -o|contracted procedure: k1113 -o|contracted procedure: k1153 -o|contracted procedure: k1147 -o|contracted procedure: k1168 -o|contracted procedure: k1162 -o|contracted procedure: k1177 -o|contracted procedure: k1180 -o|contracted procedure: k1185 -o|contracted procedure: k1198 -o|contracted procedure: k1189 -o|contracted procedure: k1195 -o|contracted procedure: k1204 -o|contracted procedure: k1207 -o|contracted procedure: k1212 -o|contracted procedure: k1225 -o|contracted procedure: k1216 -o|contracted procedure: k1222 -o|contracted procedure: k1231 -o|contracted procedure: k1234 -o|contracted procedure: k1237 -o|contracted procedure: k1240 -o|contracted procedure: k1273 -o|contracted procedure: k1277 -o|contracted procedure: k1245 -o|contracted procedure: k1262 -o|contracted procedure: k1251 -o|contracted procedure: k1258 -o|contracted procedure: k1254 -o|contracted procedure: k1269 -o|contracted procedure: k1265 -o|contracted procedure: k1334 -o|contracted procedure: k1283 -o|contracted procedure: k1328 -o|contracted procedure: k1286 -o|contracted procedure: k1322 -o|contracted procedure: k1289 -o|contracted procedure: k1316 -o|contracted procedure: k1292 -o|contracted procedure: k1310 -o|contracted procedure: k1295 -o|contracted procedure: k1304 -o|contracted procedure: k1298 -o|contracted procedure: k1343 -o|contracted procedure: k1346 -o|contracted procedure: k1349 -o|contracted procedure: k1352 -o|contracted procedure: k1385 -o|contracted procedure: k1389 -o|contracted procedure: k1357 -o|contracted procedure: k1374 -o|contracted procedure: k1363 -o|contracted procedure: k1370 -o|contracted procedure: k1366 -o|contracted procedure: k1381 -o|contracted procedure: k1377 -o|contracted procedure: k1446 -o|contracted procedure: k1395 -o|contracted procedure: k1440 -o|contracted procedure: k1398 -o|contracted procedure: k1434 -o|contracted procedure: k1401 -o|contracted procedure: k1428 -o|contracted procedure: k1404 -o|contracted procedure: k1422 -o|contracted procedure: k1407 -o|contracted procedure: k1416 -o|contracted procedure: k1410 -o|contracted procedure: k1455 -o|contracted procedure: k1582 -o|contracted procedure: k1458 -o|contracted procedure: k1574 -o|contracted procedure: k1461 -o|contracted procedure: k1465 -o|contracted procedure: k1472 -o|contracted procedure: k1475 -o|contracted procedure: k1495 -o|contracted procedure: k1504 -o|contracted procedure: k1507 -o|contracted procedure: k1513 -o|contracted procedure: k1525 -o|contracted procedure: k1532 -o|contracted procedure: k1571 -o|contracted procedure: k1538 -o|contracted procedure: k1541 -o|contracted procedure: k1547 -o|contracted procedure: k1550 -o|contracted procedure: k1567 -o|contracted procedure: k1710 -o|contracted procedure: k1591 -o|contracted procedure: k1594 -o|contracted procedure: k1597 -o|contracted procedure: k1600 -o|contracted procedure: k1707 -o|contracted procedure: k1603 -o|contracted procedure: k1618 -o|contracted procedure: k1630 -o|contracted procedure: k1633 -o|contracted procedure: k1636 -o|contracted procedure: k1657 -o|contracted procedure: k1639 -o|contracted procedure: k1642 -o|contracted procedure: k1653 -o|contracted procedure: k1661 -o|contracted procedure: k1667 -o|contracted procedure: k1670 -o|contracted procedure: k1673 -o|contracted procedure: k1680 -o|contracted procedure: k1700 -o|contracted procedure: k1696 -o|contracted procedure: k1688 -o|contracted procedure: k1692 -o|contracted procedure: k1684 -o|contracted procedure: k1722 -o|contracted procedure: k1736 -o|contracted procedure: k1753 -o|contracted procedure: k1742 -o|contracted procedure: k1749 -o|contracted procedure: k1880 -o|contracted procedure: k1762 -o|contracted procedure: k1765 -o|contracted procedure: k1781 -o|contracted procedure: k1787 -o|contracted procedure: k1793 -o|contracted procedure: k1802 -o|contracted procedure: k1805 -o|contracted procedure: k1812 -o|contracted procedure: k1816 -o|contracted procedure: k1822 -o|contracted procedure: k1829 -o|contracted procedure: k1835 -o|contracted procedure: k1838 -o|contracted procedure: k1845 -o|contracted procedure: k1849 -o|contracted procedure: k1855 -o|contracted procedure: k1876 -o|contracted procedure: k1861 -o|contracted procedure: k1868 -o|contracted procedure: k1872 -o|contracted procedure: k1884 -o|contracted procedure: k1887 -o|contracted procedure: k1893 -o|contracted procedure: k1899 -o|contracted procedure: k1905 -o|contracted procedure: k1908 -o|contracted procedure: k1919 -o|contracted procedure: k1929 -o|contracted procedure: k1982 -o|contracted procedure: k1985 -o|contracted procedure: k1995 -o|contracted procedure: k1950 -o|contracted procedure: k1954 -o|contracted procedure: k1972 -o|contracted procedure: k1957 -o|contracted procedure: k1964 -o|contracted procedure: k1968 -o|contracted procedure: k1976 -o|contracted procedure: k2008 -o|contracted procedure: k2011 -o|contracted procedure: k2015 -o|contracted procedure: k2027 -o|contracted procedure: k2023 -o|contracted procedure: k2019 -o|contracted procedure: k2043 -o|contracted procedure: k2050 -o|contracted procedure: k2053 -o|contracted procedure: k2056 -o|contracted procedure: k2059 -o|contracted procedure: k2132 -o|contracted procedure: k2128 -o|contracted procedure: k2066 -o|contracted procedure: k2069 -o|contracted procedure: k2072 -o|contracted procedure: k2094 -o|contracted procedure: k2090 -o|contracted procedure: k2082 -o|contracted procedure: k2086 -o|contracted procedure: k2097 -o|contracted procedure: k2100 -o|contracted procedure: k2104 -o|contracted procedure: k2116 -o|contracted procedure: k2112 -o|contracted procedure: k2108 -o|contracted procedure: k2141 -o|contracted procedure: k2144 -o|contracted procedure: k2157 -o|contracted procedure: k2163 -o|contracted procedure: k2174 -o|contracted procedure: k2189 -o|contracted procedure: k2193 -o|contracted procedure: k2197 -o|contracted procedure: k2229 -o|contracted procedure: k2203 -o|contracted procedure: k2206 -o|contracted procedure: k2209 -o|contracted procedure: k2214 -o|contracted procedure: k2226 -o|contracted procedure: k2241 -o|contracted procedure: k2247 -o|contracted procedure: k2250 -o|contracted procedure: k2256 -o|contracted procedure: k2268 -o|contracted procedure: k2281 -o|contracted procedure: k2288 -o|contracted procedure: k2292 -o|contracted procedure: k2305 -o|contracted procedure: k2313 -o|contracted procedure: k2322 -o|contracted procedure: k2337 -o|contracted procedure: k2346 -o|contracted procedure: k2352 -o|contracted procedure: k2359 -o|contracted procedure: k2365 -o|contracted procedure: k2382 -o|contracted procedure: k2389 -o|contracted procedure: k2400 -o|contracted procedure: k2408 -o|contracted procedure: k2415 -o|contracted procedure: k2426 -o|contracted procedure: k2443 -o|contracted procedure: k2449 -o|contracted procedure: k2464 -o|contracted procedure: k2470 -o|contracted procedure: k2486 -o|contracted procedure: k2490 -o|contracted procedure: k2496 -o|contracted procedure: k2502 -o|contracted procedure: k2514 -o|inlining procedure: k2511 -o|contracted procedure: k2532 -o|inlining procedure: k2529 -o|contracted procedure: k2548 -o|contracted procedure: k2552 -o|contracted procedure: k2564 -o|contracted procedure: k2567 -o|contracted procedure: k2573 -o|contracted procedure: k2585 -o|contracted procedure: k2588 -o|contracted procedure: k2591 -o|contracted procedure: k2595 -o|contracted procedure: k2605 -o|contracted procedure: k2601 -o|contracted procedure: k2611 -o|contracted procedure: k2622 -o|contracted procedure: k2626 -o|contracted procedure: k2629 -o|contracted procedure: k2635 -o|contracted procedure: k2638 -o|contracted procedure: k2658 -o|contracted procedure: k2673 -o|contracted procedure: k2661 -o|contracted procedure: k2680 -o|contracted procedure: k2689 -o|contracted procedure: k2722 -o|contracted procedure: k2737 -o|contracted procedure: k2741 -o|contracted procedure: k2761 -o|contracted procedure: k2745 -o|contracted procedure: k2749 -o|contracted procedure: k2757 -o|contracted procedure: k2733 -o|contracted procedure: k2729 -o|contracted procedure: k2771 -o|contracted procedure: k2834 -o|contracted procedure: k2828 -o|contracted procedure: k2782 -o|contracted procedure: k2791 -o|contracted procedure: k2802 -o|contracted procedure: k2808 -o|contracted procedure: k2811 -o|contracted procedure: k2824 -o|contracted procedure: k2847 -o|contracted procedure: k2857 -o|contracted procedure: k2875 -o|contracted procedure: k2919 -o|contracted procedure: k2923 -o|contracted procedure: k2885 -o|contracted procedure: k2894 -o|contracted procedure: k2904 -o|contracted procedure: k2912 -o|contracted procedure: k2932 -o|contracted procedure: k2939 -o|contracted procedure: k2947 -o|simplifications: ((let . 100)) -o|removed binding forms: 310 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest146149 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest146149 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest159162 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest159162 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest207210 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest207210 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest207210 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest207210 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest244247 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest244247 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest244247 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest244247 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? delstr-and-flag262 0 -(o x)|known list op on rest arg sublist: ##core#rest-car delstr-and-flag262 0 -(o x)|known list op on rest arg sublist: ##core#rest-length delstr-and-flag262 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest309311 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest309311 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest451453 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest451453 0 -o|inlining procedure: k2598 -o|inlining procedure: k2598 -o|substituted constant variable: r2920 -o|substituted constant variable: r2924 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1287 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r1287 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1287 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r1287 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1399 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r1399 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1399 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r1399 1 -o|removed binding forms: 4 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1293 2 -(o x)|known list op on rest arg sublist: ##core#rest-car r1293 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1293 2 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r1293 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1405 2 -(o x)|known list op on rest arg sublist: ##core#rest-car r1405 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1405 2 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r1405 2 -o|removed binding forms: 2 -o|removed binding forms: 4 -o|direct leaf routine/allocation: loop64 0 -o|direct leaf routine/allocation: loop353 0 -o|converted assignments to bindings: (loop64) -o|converted assignments to bindings: (loop353) -o|simplifications: ((let . 2)) -o|customizable procedures: (g618623 foldl620630 loop635 visit590 walk606 doloop576577 step554 loop542 loop528 loop512 doloop505506 loop437 loop417 k2075 collect409 k1998 loop398 instring349 loop379 loop1319 loop2328 scan290 loop274 add268 k1360 k1248 traverse108 loop119 map-loop84101 rev-string-append58) -o|calls to known targets: 76 -o|identified direct recursive calls: f_912 1 -o|identified direct recursive calls: f_889 1 -o|unused rest argument: rest146149 f_1145 -o|unused rest argument: rest159162 f_1160 -o|unused rest argument: rest207210 f_1281 -o|unused rest argument: rest244247 f_1393 -o|identified direct recursive calls: f_1520 1 -o|identified direct recursive calls: f_1628 1 -o|identified direct recursive calls: f_1610 1 -o|unused rest argument: rest309311 f_1589 -o|identified direct recursive calls: f_1731 1 -o|identified direct recursive calls: f_1945 1 -o|identified direct recursive calls: f_2038 1 -o|unused rest argument: rest451453 f_2201 -o|identified direct recursive calls: f_2559 1 -o|identified direct recursive calls: f_2653 1 -o|fast box initializations: 22 -o|dropping unused closure argument: f_1057 -o|dropping unused closure argument: f_1720 -*/ -/* end of file */ diff --git a/chicken/src/eval.c b/chicken/src/eval.c deleted file mode 100644 index 6f4d630..0000000 --- a/chicken/src/eval.c +++ /dev/null @@ -1,24764 +0,0 @@ -/* Generated from eval.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: eval.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file eval.c -emit-import-library chicken.eval -emit-import-library chicken.load - unit: eval - uses: modules eval expand internal library -*/ -#include "chicken.h" - - -#ifndef C_INSTALL_EGG_HOME -# define C_INSTALL_EGG_HOME "." -#endif - -#ifndef C_INSTALL_SHARE_HOME -# define C_INSTALL_SHARE_HOME NULL -#endif - -#ifndef C_BINARY_VERSION -# define C_BINARY_VERSION 0 -#endif - - -#define C_store_result(x, ptr) (*((C_word *)C_block_item(ptr, 0)) = (x), C_SCHEME_TRUE) - - -#define C_copy_result_string(str, buf, n) (C_memcpy((char *)C_block_item(buf, 0), C_c_string(str), C_unfix(n)), ((char *)C_block_item(buf, 0))[ C_unfix(n) ] = '\0', C_SCHEME_TRUE) - - -C_extern void CHICKEN_get_error_message(char *t0,int t1); - -C_extern int CHICKEN_load(char * t0); - -C_extern int CHICKEN_read(char * t0,C_word *t1); - -C_extern int CHICKEN_apply_to_string(C_word t0,C_word t1,char *t2,int t3); - -C_extern int CHICKEN_apply(C_word t0,C_word t1,C_word *t2); - -C_extern int CHICKEN_eval_string_to_string(char * t0,char *t1,int t2); - -C_extern int CHICKEN_eval_to_string(C_word t0,char *t1,int t2); - -C_extern int CHICKEN_eval_string(char * t0,C_word *t1); - -C_extern int CHICKEN_eval(C_word t0,C_word *t1); - -C_extern int CHICKEN_yield(); - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_modules_toplevel) -C_extern void C_ccall C_modules_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_eval_toplevel) -C_extern void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_expand_toplevel) -C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_internal_toplevel) -C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[360]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,15),40,102,105,110,100,45,105,100,32,105,100,32,115,101,41,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,7),40,97,51,54,57,51,41,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,13),40,97,51,54,57,57,32,46,32,116,109,112,41,0,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,12),40,114,101,110,97,109,101,32,118,97,114,41,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li5[] C_aligned={C_lihdr(0,0,8),40,103,50,54,49,32,112,41}; -static C_char li6[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,101,110,118,115,32,101,105,41,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,15),40,108,111,111,107,117,112,32,118,97,114,48,32,101,41,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,34),40,101,109,105,116,45,116,114,97,99,101,45,105,110,102,111,32,108,110,32,105,110,102,111,32,99,110,116,114,32,101,32,118,41,0,0,0,0,0,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,37),40,101,109,105,116,45,115,121,110,116,97,120,45,116,114,97,99,101,45,105,110,102,111,32,116,102,32,105,110,102,111,32,99,110,116,114,41,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,9),40,97,51,53,56,49,32,120,41,0,0,0,0,0,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,11),40,97,51,53,57,52,32,112,32,105,41,0,0,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,15),40,100,101,99,111,114,97,116,101,32,112,32,108,108,41,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,7),40,97,51,56,57,49,41,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,7),40,97,51,56,57,54,41,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,7),40,97,51,57,48,50,41,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,18),40,97,51,56,56,50,32,102,111,114,109,115,32,112,97,116,104,41,0,0,0,0,0,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,33),40,105,110,99,108,117,100,101,45,102,105,108,101,32,120,32,99,105,32,101,32,116,102,32,99,110,116,114,32,116,108,63,41,0,0,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,12),40,102,95,51,57,52,49,32,46,32,118,41,0,0,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,7),40,97,51,57,53,50,41,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,10),40,102,95,51,57,55,57,32,118,41,0,0,0,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,12),40,102,95,51,57,57,48,32,46,32,118,41,0,0,0,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,12),40,102,95,51,57,57,53,32,46,32,118,41,0,0,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,10),40,102,95,52,48,54,51,32,118,41,0,0,0,0,0,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,10),40,102,95,52,48,55,56,32,118,41,0,0,0,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,10),40,102,95,52,48,57,55,32,118,41,0,0,0,0,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,10),40,102,95,52,49,50,48,32,118,41,0,0,0,0,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,10),40,102,95,52,49,52,49,32,118,41,0,0,0,0,0,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,11),40,97,51,57,53,56,32,105,32,106,41,0,0,0,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,54,55,32,46,32,118,41,0,0,0,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,55,53,32,46,32,118,41,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,56,51,32,46,32,118,41,0,0,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,57,49,32,46,32,118,41,0,0,0,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,12),40,102,95,52,49,57,51,32,46,32,118,41,0,0,0,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,12),40,102,95,52,50,49,50,32,46,32,118,41,0,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,12),40,102,95,52,50,49,52,32,46,32,118,41,0,0,0,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,12),40,102,95,52,50,50,53,32,46,32,118,41,0,0,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,21),40,102,95,51,56,52,52,32,105,110,112,117,116,32,111,117,116,112,117,116,41,0,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,12),40,102,95,52,50,56,52,32,46,32,118,41,0,0,0,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,12),40,102,95,52,50,57,50,32,46,32,118,41,0,0,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,12),40,102,95,52,51,48,48,32,46,32,118,41,0,0,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,12),40,102,95,52,51,48,56,32,46,32,118,41,0,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,12),40,102,95,52,51,49,54,32,46,32,118,41,0,0,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,12),40,102,95,52,51,50,52,32,46,32,118,41,0,0,0,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,12),40,102,95,52,51,51,50,32,46,32,118,41,0,0,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,12),40,102,95,52,51,51,52,32,46,32,118,41,0,0,0,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,12),40,102,95,52,51,54,51,32,46,32,118,41,0,0,0,0}; -static C_char li47[] C_aligned={C_lihdr(0,0,10),40,102,95,52,51,57,55,32,118,41,0,0,0,0,0,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,10),40,102,95,52,52,49,52,32,118,41,0,0,0,0,0,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,10),40,102,95,52,52,57,57,32,118,41,0,0,0,0,0,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,10),40,102,95,52,53,50,52,32,118,41,0,0,0,0,0,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,7),40,97,52,53,57,57,41,0}; -static C_char li52[] C_aligned={C_lihdr(0,0,10),40,102,95,52,54,50,51,32,118,41,0,0,0,0,0,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,10),40,102,95,52,54,51,49,32,118,41,0,0,0,0,0,0}; -static C_char li54[] C_aligned={C_lihdr(0,0,10),40,102,95,52,54,54,54,32,118,41,0,0,0,0,0,0}; -static C_char li55[] C_aligned={C_lihdr(0,0,10),40,102,95,52,54,55,57,32,118,41,0,0,0,0,0,0}; -static C_char li56[] C_aligned={C_lihdr(0,0,11),40,97,52,54,48,53,32,105,32,106,41,0,0,0,0,0}; -static C_char li57[] C_aligned={C_lihdr(0,0,10),40,102,95,52,55,52,51,32,118,41,0,0,0,0,0,0}; -static C_char li58[] C_aligned={C_lihdr(0,0,10),40,102,95,52,55,56,48,32,118,41,0,0,0,0,0,0}; -static C_char li59[] C_aligned={C_lihdr(0,0,10),40,102,95,52,56,51,53,32,118,41,0,0,0,0,0,0}; -static C_char li60[] C_aligned={C_lihdr(0,0,10),40,102,95,52,57,48,53,32,118,41,0,0,0,0,0,0}; -static C_char li61[] C_aligned={C_lihdr(0,0,8),40,103,53,57,53,32,120,41}; -static C_char li62[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,54,49,54,32,105,32,118,108,105,115,116,41,0,0,0,0,0}; -static C_char li63[] C_aligned={C_lihdr(0,0,10),40,102,95,52,57,56,51,32,118,41,0,0,0,0,0,0}; -static C_char li64[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,53,56,57,32,103,54,48,49,41,0,0,0,0,0,0}; -static C_char li65[] C_aligned={C_lihdr(0,0,7),40,97,53,48,55,48,41,0}; -static C_char li66[] C_aligned={C_lihdr(0,0,7),40,97,53,48,56,55,41,0}; -static C_char li67[] C_aligned={C_lihdr(0,0,7),40,97,53,49,48,53,41,0}; -static C_char li68[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,53,50,50,32,103,53,51,52,41,0,0,0,0,0,0}; -static C_char li69[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,52,57,52,32,103,53,48,54,41,0,0,0,0,0,0}; -static C_char li70[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,53,55,32,103,54,54,57,41,0,0,0,0,0,0}; -static C_char li71[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,51,48,32,103,54,52,50,41,0,0,0,0,0,0}; -static C_char li72[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,56,48,54,32,103,56,49,56,32,103,56,49,57,41,0}; -static C_char li73[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,55,55,51,32,103,55,56,53,32,103,55,56,54,41,0}; -static C_char li74[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,55,52,54,32,103,55,53,56,41,0,0,0,0,0,0}; -static C_char li75[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,55,49,54,32,103,55,50,56,41,0,0,0,0,0,0}; -static C_char li76[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,54,56,57,32,103,55,48,49,41,0,0,0,0,0,0}; -static C_char li77[] C_aligned={C_lihdr(0,0,11),40,97,53,54,57,54,32,46,32,114,41,0,0,0,0,0}; -static C_char li78[] C_aligned={C_lihdr(0,0,10),40,102,95,53,54,57,49,32,118,41,0,0,0,0,0,0}; -static C_char li79[] C_aligned={C_lihdr(0,0,7),40,97,53,55,49,53,41,0}; -static C_char li80[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,49,48,32,118,41,0,0,0,0,0,0}; -static C_char li81[] C_aligned={C_lihdr(0,0,14),40,97,53,55,51,57,32,97,49,32,46,32,114,41,0,0}; -static C_char li82[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,51,52,32,118,41,0,0,0,0,0,0}; -static C_char li83[] C_aligned={C_lihdr(0,0,10),40,97,53,55,53,56,32,97,49,41,0,0,0,0,0,0}; -static C_char li84[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,53,51,32,118,41,0,0,0,0,0,0}; -static C_char li85[] C_aligned={C_lihdr(0,0,17),40,97,53,55,56,54,32,97,49,32,97,50,32,46,32,114,41,0,0,0,0,0,0,0}; -static C_char li86[] C_aligned={C_lihdr(0,0,10),40,102,95,53,55,56,49,32,118,41,0,0,0,0,0,0}; -static C_char li87[] C_aligned={C_lihdr(0,0,13),40,97,53,56,48,53,32,97,49,32,97,50,41,0,0,0}; -static C_char li88[] C_aligned={C_lihdr(0,0,10),40,102,95,53,56,48,48,32,118,41,0,0,0,0,0,0}; -static C_char li89[] C_aligned={C_lihdr(0,0,20),40,97,53,56,51,51,32,97,49,32,97,50,32,97,51,32,46,32,114,41,0,0,0,0}; -static C_char li90[] C_aligned={C_lihdr(0,0,10),40,102,95,53,56,50,56,32,118,41,0,0,0,0,0,0}; -static C_char li91[] C_aligned={C_lihdr(0,0,16),40,97,53,56,53,50,32,97,49,32,97,50,32,97,51,41}; -static C_char li92[] C_aligned={C_lihdr(0,0,10),40,102,95,53,56,52,55,32,118,41,0,0,0,0,0,0}; -static C_char li93[] C_aligned={C_lihdr(0,0,23),40,97,53,56,56,48,32,97,49,32,97,50,32,97,51,32,97,52,32,46,32,114,41,0}; -static C_char li94[] C_aligned={C_lihdr(0,0,10),40,102,95,53,56,55,53,32,118,41,0,0,0,0,0,0}; -static C_char li95[] C_aligned={C_lihdr(0,0,19),40,97,53,56,57,57,32,97,49,32,97,50,32,97,51,32,97,52,41,0,0,0,0,0}; -static C_char li96[] C_aligned={C_lihdr(0,0,10),40,102,95,53,56,57,52,32,118,41,0,0,0,0,0,0}; -static C_char li97[] C_aligned={C_lihdr(0,0,26),40,100,111,108,111,111,112,49,50,57,57,32,110,32,99,32,97,114,103,115,32,108,97,115,116,41,0,0,0,0,0,0}; -static C_char li98[] C_aligned={C_lihdr(0,0,12),40,97,53,57,50,49,32,46,32,97,115,41,0,0,0,0}; -static C_char li99[] C_aligned={C_lihdr(0,0,10),40,102,95,53,57,49,54,32,118,41,0,0,0,0,0,0}; -static C_char li100[] C_aligned={C_lihdr(0,0,12),40,97,53,57,52,52,32,46,32,97,115,41,0,0,0,0}; -static C_char li101[] C_aligned={C_lihdr(0,0,10),40,102,95,53,57,51,57,32,118,41,0,0,0,0,0,0}; -static C_char li102[] C_aligned={C_lihdr(0,0,7),40,97,53,57,56,50,41,0}; -static C_char li103[] C_aligned={C_lihdr(0,0,7),40,97,53,57,57,57,41,0}; -static C_char li104[] C_aligned={C_lihdr(0,0,7),40,97,54,48,49,51,41,0}; -static C_char li105[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,56,53,55,32,103,56,54,57,41,0,0,0,0,0,0}; -static C_char li106[] C_aligned={C_lihdr(0,0,22),40,97,53,54,54,49,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; -static C_char li107[] C_aligned={C_lihdr(0,0,7),40,97,54,48,54,55,41,0}; -static C_char li108[] C_aligned={C_lihdr(0,0,24),40,97,54,48,55,55,32,108,108,105,115,116,56,52,54,32,98,111,100,121,56,52,55,41}; -static C_char li109[] C_aligned={C_lihdr(0,0,7),40,97,54,49,48,50,41,0}; -static C_char li110[] C_aligned={C_lihdr(0,0,7),40,97,54,49,49,57,41,0}; -static C_char li111[] C_aligned={C_lihdr(0,0,7),40,97,54,49,51,55,41,0}; -static C_char li112[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,54,48,32,103,57,55,50,41,0,0,0,0,0,0}; -static C_char li113[] C_aligned={C_lihdr(0,0,7),40,103,49,48,50,52,41,0}; -static C_char li114[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,48,50,51,41,0,0,0,0,0}; -static C_char li115[] C_aligned={C_lihdr(0,0,7),40,97,54,50,57,53,41,0}; -static C_char li116[] C_aligned={C_lihdr(0,0,7),40,97,54,51,49,50,41,0}; -static C_char li117[] C_aligned={C_lihdr(0,0,7),40,97,54,51,51,48,41,0}; -static C_char li118[] C_aligned={C_lihdr(0,0,19),40,109,97,112,45,108,111,111,112,57,57,53,32,103,49,48,48,55,41,0,0,0,0,0}; -static C_char li119[] C_aligned={C_lihdr(0,0,7),40,97,54,53,51,56,41,0}; -static C_char li120[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,48,54,53,32,103,49,48,55,55,41,0,0,0,0}; -static C_char li121[] C_aligned={C_lihdr(0,0,7),40,97,54,54,49,54,41,0}; -static C_char li122[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,50,32,120,115,41,0,0,0,0,0,0}; -static C_char li123[] C_aligned={C_lihdr(0,0,10),40,102,95,54,55,48,54,32,118,41,0,0,0,0,0,0}; -static C_char li124[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,98,111,100,121,32,120,115,41,0,0}; -static C_char li125[] C_aligned={C_lihdr(0,0,7),40,97,54,54,55,56,41,0}; -static C_char li126[] C_aligned={C_lihdr(0,0,7),40,97,54,54,55,50,41,0}; -static C_char li127[] C_aligned={C_lihdr(0,0,7),40,97,54,55,54,56,41,0}; -static C_char li128[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li129[] C_aligned={C_lihdr(0,0,11),40,103,49,49,48,56,32,101,120,112,41,0,0,0,0,0}; -static C_char li130[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,48,50,32,103,49,49,49,52,41,0,0,0,0}; -static C_char li131[] C_aligned={C_lihdr(0,0,10),40,103,49,50,56,49,32,99,108,41,0,0,0,0,0,0}; -static C_char li132[] C_aligned={C_lihdr(0,0,7),40,97,55,49,53,49,41,0}; -static C_char li133[] C_aligned={C_lihdr(0,0,7),40,97,55,49,53,54,41,0}; -static C_char li134[] C_aligned={C_lihdr(0,0,7),40,97,55,49,54,54,41,0}; -static C_char li135[] C_aligned={C_lihdr(0,0,7),40,97,55,51,52,57,41,0}; -static C_char li136[] C_aligned={C_lihdr(0,0,7),40,97,55,51,53,52,41,0}; -static C_char li137[] C_aligned={C_lihdr(0,0,7),40,97,55,51,54,52,41,0}; -static C_char li138[] C_aligned={C_lihdr(0,0,27),40,99,111,109,112,105,108,101,32,120,32,101,32,104,32,116,102,32,99,110,116,114,32,116,108,63,41,0,0,0,0,0}; -static C_char li139[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,110,41}; -static C_char li140[] C_aligned={C_lihdr(0,0,10),40,102,95,55,53,52,51,32,118,41,0,0,0,0,0,0}; -static C_char li141[] C_aligned={C_lihdr(0,0,10),40,102,95,55,53,54,51,32,118,41,0,0,0,0,0,0}; -static C_char li142[] C_aligned={C_lihdr(0,0,10),40,102,95,55,53,57,52,32,118,41,0,0,0,0,0,0}; -static C_char li143[] C_aligned={C_lihdr(0,0,10),40,102,95,55,54,51,51,32,118,41,0,0,0,0,0,0}; -static C_char li144[] C_aligned={C_lihdr(0,0,10),40,102,95,55,54,56,48,32,118,41,0,0,0,0,0,0}; -static C_char li145[] C_aligned={C_lihdr(0,0,9),40,103,49,51,55,54,32,97,41,0,0,0,0,0,0,0}; -static C_char li146[] C_aligned={C_lihdr(0,0,9),40,103,49,52,48,52,32,97,41,0,0,0,0,0,0,0}; -static C_char li147[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,57,56,32,103,49,52,49,48,41,0,0,0,0}; -static C_char li148[] C_aligned={C_lihdr(0,0,10),40,102,95,55,55,50,56,32,118,41,0,0,0,0,0,0}; -static C_char li149[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,55,48,32,103,49,51,56,50,41,0,0,0,0}; -static C_char li150[] C_aligned={C_lihdr(0,0,12),40,102,95,55,56,51,56,32,46,32,95,41,0,0,0,0}; -static C_char li151[] C_aligned={C_lihdr(0,0,26),40,99,111,109,112,105,108,101,45,99,97,108,108,32,120,32,101,32,116,102,32,99,110,116,114,41,0,0,0,0,0,0}; -static C_char li152[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,101,118,97,108,35,99,111,109,112,105,108,101,45,116,111,45,99,108,111,115,117,114,101,32,101,120,112,32,101,110,118,32,114,101,115,116,41,0,0}; -static C_char li153[] C_aligned={C_lihdr(0,0,7),40,97,55,57,49,56,41,0}; -static C_char li154[] C_aligned={C_lihdr(0,0,7),40,97,55,57,54,55,41,0}; -static C_char li155[] C_aligned={C_lihdr(0,0,7),40,97,55,57,55,54,41,0}; -static C_char li156[] C_aligned={C_lihdr(0,0,7),40,97,55,57,54,49,41,0}; -static C_char li157[] C_aligned={C_lihdr(0,0,7),40,97,55,57,57,51,41,0}; -static C_char li158[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,101,118,97,108,47,109,101,116,97,32,102,111,114,109,41,0,0}; -static C_char li159[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,101,118,97,108,32,120,32,46,32,101,110,118,41,0,0,0}; -static C_char li160[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,101,118,97,108,35,109,111,100,117,108,101,45,101,110,118,105,114,111,110,109,101,110,116,32,110,97,109,101,41,0,0}; -static C_char li161[] C_aligned={C_lihdr(0,0,5),40,101,114,114,41,0,0,0}; -static C_char li162[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,108,108,105,115,116,32,118,97,114,115,32,97,114,103,99,41,0,0}; -static C_char li163[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,100,101,99,111,109,112,111,115,101,45,108,97,109,98,100,97,45,108,105,115,116,32,108,108,105,115,116,48,32,107,41,0,0}; -static C_char li164[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,105,110,116,101,114,97,99,116,105,111,110,45,101,110,118,105,114,111,110,109,101,110,116,41}; -static C_char li165[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,114,49,54,48,48,32,103,49,54,48,49,41,0,0,0,0,0,0,0}; -static C_char li166[] C_aligned={C_lihdr(0,0,10),40,115,116,114,105,112,32,115,101,41,0,0,0,0,0,0}; -static C_char li167[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,115,99,104,101,109,101,45,114,101,112,111,114,116,45,101,110,118,105,114,111,110,109,101,110,116,32,110,41,0,0,0,0}; -static C_char li168[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,110,117,108,108,45,101,110,118,105,114,111,110,109,101,110,116,32,110,41,0,0,0,0,0}; -static C_char li169[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,108,111,97,100,35,99,111,114,101,45,108,105,98,114,97,114,121,63,32,105,100,41,0}; -static C_char li170[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,112,114,111,118,105,100,101,32,105,100,41,0,0,0,0,0,0}; -static C_char li171[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,112,114,111,118,105,100,101,100,63,32,105,100,41,0,0,0,0}; -static C_char li172[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li173[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,108,111,97,100,35,112,97,116,104,45,115,101,112,97,114,97,116,111,114,45,105,110,100,101,120,47,114,105,103,104,116,32,115,41,0,0,0,0,0}; -static C_char li174[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,108,111,97,100,35,109,97,107,101,45,114,101,108,97,116,105,118,101,45,112,97,116,104,110,97,109,101,32,102,114,111,109,32,102,105,108,101,41,0}; -static C_char li175[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,109,111,100,101,41,0,0,0,0,0}; -static C_char li176[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,108,111,97,100,35,115,101,116,45,100,121,110,97,109,105,99,45,108,111,97,100,45,109,111,100,101,33,32,109,111,100,101,41,0,0,0,0,0,0}; -static C_char li177[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,108,111,97,100,35,99,45,116,111,112,108,101,118,101,108,32,110,97,109,101,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li178[] C_aligned={C_lihdr(0,0,13),40,102,95,57,56,49,57,32,112,97,116,104,41,0,0,0}; -static C_char li179[] C_aligned={C_lihdr(0,0,7),40,97,57,56,55,55,41,0}; -static C_char li180[] C_aligned={C_lihdr(0,0,7),40,97,57,56,57,56,41,0}; -static C_char li181[] C_aligned={C_lihdr(0,0,7),40,97,57,57,53,52,41,0}; -static C_char li182[] C_aligned={C_lihdr(0,0,11),40,97,57,57,54,48,32,46,32,116,41,0,0,0,0,0}; -static C_char li183[] C_aligned={C_lihdr(0,0,7),40,97,57,57,52,50,41,0}; -static C_char li184[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,51,56,53,32,103,50,51,57,50,41,0,0,0,0,0,0,0}; -static C_char li185[] C_aligned={C_lihdr(0,0,17),40,97,57,57,55,54,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0,0}; -static C_char li186[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,50,51,55,53,32,120,41,0,0}; -static C_char li187[] C_aligned={C_lihdr(0,0,7),40,97,57,57,48,53,41,0}; -static C_char li188[] C_aligned={C_lihdr(0,0,8),40,97,49,48,48,51,54,41}; -static C_char li189[] C_aligned={C_lihdr(0,0,7),40,97,57,56,56,54,41,0}; -static C_char li190[] C_aligned={C_lihdr(0,0,8),40,97,49,48,48,52,56,41}; -static C_char li191[] C_aligned={C_lihdr(0,0,7),40,97,57,56,55,49,41,0}; -static C_char li192[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,47,105,110,116,101,114,110,97,108,32,105,110,112,117,116,32,101,118,97,108,117,97,116,111,114,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li193[] C_aligned={C_lihdr(0,0,11),40,102,95,49,48,50,48,50,32,121,41,0,0,0,0,0}; -static C_char li194[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,108,111,97,100,35,101,118,97,108,117,97,116,111,114,32,120,41,0,0,0,0,0,0}; -static C_char li195[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,108,111,97,100,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li196[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,114,101,108,97,116,105,118,101,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li197[] C_aligned={C_lihdr(0,0,8),40,97,49,48,50,54,55,41}; -static C_char li198[] C_aligned={C_lihdr(0,0,8),40,97,49,48,50,55,48,41}; -static C_char li199[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,110,111,105,115,105,108,121,32,102,105,108,101,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li200[] C_aligned={C_lihdr(0,0,16),40,99,111,109,112,108,101,116,101,32,103,50,52,54,56,41}; -static C_char li201[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,105,98,115,41,0,0,0,0,0}; -static C_char li202[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,117,110,105,116,32,117,110,105,116,45,110,97,109,101,32,108,105,98,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li203[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,108,105,98,114,97,114,121,32,117,110,105,116,45,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li204[] C_aligned={C_lihdr(0,0,8),40,97,49,48,52,51,50,41}; -static C_char li205[] C_aligned={C_lihdr(0,0,17),40,100,111,108,111,111,112,50,53,53,52,32,120,32,120,115,41,0,0,0,0,0,0,0}; -static C_char li206[] C_aligned={C_lihdr(0,0,8),40,97,49,48,52,51,55,41}; -static C_char li207[] C_aligned={C_lihdr(0,0,8),40,97,49,48,52,56,48,41}; -static C_char li208[] C_aligned={C_lihdr(0,0,11),40,97,49,48,52,49,57,32,105,110,41,0,0,0,0,0}; -static C_char li209[] C_aligned={C_lihdr(0,0,52),40,35,35,115,121,115,35,105,110,99,108,117,100,101,45,102,111,114,109,115,45,102,114,111,109,45,102,105,108,101,32,102,105,108,101,110,97,109,101,32,115,111,117,114,99,101,32,99,105,32,107,41,0,0,0,0}; -static C_char li210[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,108,111,97,100,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,41}; -static C_char li211[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,108,111,97,100,35,102,105,110,100,45,102,105,108,101,32,110,97,109,101,32,115,101,97,114,99,104,45,112,97,116,104,41,0,0,0,0,0,0,0}; -static C_char li212[] C_aligned={C_lihdr(0,0,12),40,99,104,101,99,107,32,112,97,116,104,41,0,0,0,0}; -static C_char li213[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,97,116,104,115,41,0,0,0,0}; -static C_char li214[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,108,111,97,100,35,102,105,110,100,45,100,121,110,97,109,105,99,45,101,120,116,101,110,115,105,111,110,32,105,100,32,105,110,99,63,41,0,0,0}; -static C_char li215[] C_aligned={C_lihdr(0,0,11),40,103,50,54,50,55,32,101,120,116,41,0,0,0,0,0}; -static C_char li216[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,108,111,97,100,35,108,111,97,100,45,101,120,116,101,110,115,105,111,110,32,108,105,98,32,109,111,100,32,108,111,99,41,0,0,0,0,0,0,0}; -static C_char li217[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,51,54,41,0,0,0,0,0}; -static C_char li218[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,52,54,32,103,50,54,53,51,41,0,0,0,0,0,0,0}; -static C_char li219[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,108,111,97,100,35,114,101,113,117,105,114,101,32,46,32,105,100,115,41,0,0,0,0}; -static C_char li220[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,56,57,41,0,0,0,0,0}; -static C_char li221[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,57,57,32,103,50,55,48,54,41,0,0,0,0,0,0,0}; -static C_char li222[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,108,111,97,100,35,112,114,111,118,105,100,101,32,46,32,105,100,115,41,0,0,0,0}; -static C_char li223[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,55,52,50,41,0,0,0,0,0}; -static C_char li224[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li225[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,108,111,97,100,35,112,114,111,118,105,100,101,100,63,32,46,32,105,100,115,41,0,0}; -static C_char li226[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,112,114,111,99,101,115,115,45,114,101,113,117,105,114,101,32,108,105,98,32,109,111,100,32,99,111,109,112,105,108,101,45,109,111,100,101,41,0,0,0,0}; -static C_char li227[] C_aligned={C_lihdr(0,0,27),40,116,101,115,116,45,101,120,116,101,110,115,105,111,110,115,32,102,110,97,109,101,32,108,115,116,41,0,0,0,0,0}; -static C_char li228[] C_aligned={C_lihdr(0,0,12),40,116,101,115,116,32,102,110,97,109,101,41,0,0,0,0}; -static C_char li229[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,97,116,104,115,41,0,0,0,0}; -static C_char li230[] C_aligned={C_lihdr(0,0,55),40,35,35,115,121,115,35,114,101,115,111,108,118,101,45,105,110,99,108,117,100,101,45,102,105,108,101,110,97,109,101,32,102,110,97,109,101,32,101,120,116,115,32,114,101,112,111,32,115,111,117,114,99,101,41,0}; -static C_char li231[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,50,49,41}; -static C_char li232[] C_aligned={C_lihdr(0,0,11),40,97,49,49,49,49,53,32,101,120,41,0,0,0,0,0}; -static C_char li233[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,52,48,41}; -static C_char li234[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,53,50,41}; -static C_char li235[] C_aligned={C_lihdr(0,0,15),40,97,49,49,49,52,54,32,46,32,97,114,103,115,41,0}; -static C_char li236[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,51,52,41}; -static C_char li237[] C_aligned={C_lihdr(0,0,10),40,97,49,49,49,48,57,32,107,41,0,0,0,0,0,0}; -static C_char li238[] C_aligned={C_lihdr(0,0,16),40,114,117,110,45,115,97,102,101,32,116,104,117,110,107,41}; -static C_char li239[] C_aligned={C_lihdr(0,0,23),40,115,116,111,114,101,45,114,101,115,117,108,116,32,120,32,114,101,115,117,108,116,41,0}; -static C_char li240[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,55,51,41}; -static C_char li241[] 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 li242[] C_aligned={C_lihdr(0,0,8),40,97,49,49,49,56,53,41}; -static C_char li243[] C_aligned={C_lihdr(0,0,25),40,67,72,73,67,75,69,78,95,101,118,97,108,32,101,120,112,32,114,101,115,117,108,116,41,0,0,0,0,0,0,0}; -static C_char li244[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,48,52,41}; -static C_char li245[] C_aligned={C_lihdr(0,0,32),40,67,72,73,67,75,69,78,95,101,118,97,108,95,115,116,114,105,110,103,32,115,116,114,32,114,101,115,117,108,116,41}; -static C_char li246[] C_aligned={C_lihdr(0,0,26),40,115,116,111,114,101,45,115,116,114,105,110,103,32,98,117,102,115,105,122,101,32,98,117,102,41,0,0,0,0,0,0}; -static C_char li247[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,52,55,41}; -static C_char li248[] C_aligned={C_lihdr(0,0,40),40,67,72,73,67,75,69,78,95,101,118,97,108,95,116,111,95,115,116,114,105,110,103,32,101,120,112,32,98,117,102,32,98,117,102,115,105,122,101,41}; -static C_char li249[] C_aligned={C_lihdr(0,0,8),40,97,49,49,50,55,54,41}; -static C_char li250[] C_aligned={C_lihdr(0,0,47),40,67,72,73,67,75,69,78,95,101,118,97,108,95,115,116,114,105,110,103,95,116,111,95,115,116,114,105,110,103,32,115,116,114,32,98,117,102,32,98,117,102,115,105,122,101,41,0}; -static C_char li251[] C_aligned={C_lihdr(0,0,8),40,97,49,49,51,49,48,41}; -static C_char li252[] C_aligned={C_lihdr(0,0,32),40,67,72,73,67,75,69,78,95,97,112,112,108,121,32,102,117,110,99,32,97,114,103,115,32,114,101,115,117,108,116,41}; -static C_char li253[] C_aligned={C_lihdr(0,0,8),40,97,49,49,51,50,54,41}; -static C_char li254[] C_aligned={C_lihdr(0,0,47),40,67,72,73,67,75,69,78,95,97,112,112,108,121,95,116,111,95,115,116,114,105,110,103,32,102,117,110,99,32,97,114,103,115,32,98,117,102,32,98,117,102,115,105,122,101,41,0}; -static C_char li255[] C_aligned={C_lihdr(0,0,8),40,97,49,49,51,53,53,41}; -static C_char li256[] C_aligned={C_lihdr(0,0,25),40,67,72,73,67,75,69,78,95,114,101,97,100,32,115,116,114,32,114,101,115,117,108,116,41,0,0,0,0,0,0,0}; -static C_char li257[] C_aligned={C_lihdr(0,0,8),40,97,49,49,51,55,55,41}; -static C_char li258[] C_aligned={C_lihdr(0,0,18),40,67,72,73,67,75,69,78,95,108,111,97,100,32,115,116,114,41,0,0,0,0,0,0}; -static C_char li259[] C_aligned={C_lihdr(0,0,39),40,67,72,73,67,75,69,78,95,103,101,116,95,101,114,114,111,114,95,109,101,115,115,97,103,101,32,98,117,102,32,98,117,102,115,105,122,101,41,0}; -static C_char li260[] C_aligned={C_lihdr(0,0,10),40,97,49,49,52,48,48,32,120,41,0,0,0,0,0,0}; -static C_char li261[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,55,53,32,103,50,52,56,55,41,0,0,0,0}; -static C_char li262[] C_aligned={C_lihdr(0,0,12),40,97,49,49,53,51,52,32,101,32,112,41,0,0,0,0}; -static C_char li263[] C_aligned={C_lihdr(0,0,21),40,97,49,49,53,53,54,32,115,121,109,32,112,114,111,112,32,118,97,108,41,0,0,0}; -static C_char li264[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,56,51,41}; -static C_char li265[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,49,53,54,48,41,0,0,0,0}; -static C_char li266[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,56,56,41}; -static C_char li267[] C_aligned={C_lihdr(0,0,14),40,97,49,49,53,55,55,32,116,104,117,110,107,41,0,0}; -static C_char li268[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,53,48,41}; -static C_char li269[] C_aligned={C_lihdr(0,0,63),40,97,49,49,54,49,56,32,35,35,115,121,115,35,112,117,116,47,114,101,115,116,111,114,101,33,49,53,52,55,32,35,35,115,121,115,35,119,105,116,104,45,112,114,111,112,101,114,116,121,45,114,101,115,116,111,114,101,49,53,52,56,41,0}; -static C_char li270[] C_aligned={C_lihdr(0,0,8),40,97,49,49,54,53,54,41}; -static C_char li271[] C_aligned={C_lihdr(0,0,8),40,97,49,49,54,56,54,41}; -static C_char li272[] C_aligned={C_lihdr(0,0,8),40,97,49,49,54,57,54,41}; -static C_char li273[] C_aligned={C_lihdr(0,0,17),40,97,49,49,54,50,51,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li274[] 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(f12353) -static void C_ccall f12353(C_word c,C_word *av) C_noret; -C_noret_decl(f_10004) -static void C_ccall f_10004(C_word c,C_word *av) C_noret; -C_noret_decl(f_10028) -static void C_ccall f_10028(C_word c,C_word *av) C_noret; -C_noret_decl(f_10032) -static void C_ccall f_10032(C_word c,C_word *av) C_noret; -C_noret_decl(f_10037) -static void C_ccall f_10037(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_10049) -static void C_ccall f_10049(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_10071) -static void C_ccall f_10071(C_word c,C_word *av) C_noret; -C_noret_decl(f_10074) -static void C_ccall f_10074(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_10083) -static void C_ccall f_10083(C_word c,C_word *av) C_noret; -C_noret_decl(f_10098) -static void C_ccall f_10098(C_word c,C_word *av) C_noret; -C_noret_decl(f_10101) -static void C_ccall f_10101(C_word c,C_word *av) C_noret; -C_noret_decl(f_10104) -static void f_10104(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10110) -static void C_ccall f_10110(C_word c,C_word *av) C_noret; -C_noret_decl(f_10122) -static void C_ccall f_10122(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_10188) -static void f_10188(C_word t0,C_word t1) 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_10208) -static void C_ccall f_10208(C_word c,C_word *av) C_noret; -C_noret_decl(f_10219) -static void C_ccall f_10219(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_10234) -static void C_ccall f_10234(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_10249) -static void C_ccall f_10249(C_word c,C_word *av) C_noret; -C_noret_decl(f_10256) -static void C_ccall f_10256(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_10266) -static void C_ccall f_10266(C_word c,C_word *av) C_noret; -C_noret_decl(f_10268) -static void C_ccall f_10268(C_word c,C_word *av) C_noret; -C_noret_decl(f_10271) -static void C_ccall f_10271(C_word c,C_word *av) C_noret; -C_noret_decl(f_10276) -static void C_ccall f_10276(C_word c,C_word *av) C_noret; -C_noret_decl(f_10278) -static void f_10278(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10285) -static void C_ccall f_10285(C_word c,C_word *av) C_noret; -C_noret_decl(f_10287) -static void C_ccall f_10287(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_10297) -static void f_10297(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10300) -static void C_ccall f_10300(C_word c,C_word *av) C_noret; -C_noret_decl(f_10303) -static void C_ccall f_10303(C_word c,C_word *av) C_noret; -C_noret_decl(f_10308) -static void f_10308(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10322) -static void C_ccall f_10322(C_word c,C_word *av) C_noret; -C_noret_decl(f_10331) -static void C_ccall f_10331(C_word c,C_word *av) C_noret; -C_noret_decl(f_10342) -static void C_ccall f_10342(C_word c,C_word *av) C_noret; -C_noret_decl(f_10349) -static void C_ccall f_10349(C_word c,C_word *av) C_noret; -C_noret_decl(f_10352) -static void C_ccall f_10352(C_word c,C_word *av) C_noret; -C_noret_decl(f_10355) -static void C_ccall f_10355(C_word c,C_word *av) C_noret; -C_noret_decl(f_10368) -static void C_ccall f_10368(C_word c,C_word *av) C_noret; -C_noret_decl(f_10372) -static void C_ccall f_10372(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_10378) -static void C_ccall f_10378(C_word c,C_word *av) C_noret; -C_noret_decl(f_10405) -static void C_ccall f_10405(C_word c,C_word *av) C_noret; -C_noret_decl(f_10409) -static void C_ccall f_10409(C_word c,C_word *av) C_noret; -C_noret_decl(f_10412) -static void C_ccall f_10412(C_word c,C_word *av) C_noret; -C_noret_decl(f_10415) -static void C_ccall f_10415(C_word c,C_word *av) C_noret; -C_noret_decl(f_10420) -static void C_ccall f_10420(C_word c,C_word *av) C_noret; -C_noret_decl(f_10431) -static void C_ccall f_10431(C_word c,C_word *av) C_noret; -C_noret_decl(f_10433) -static void C_ccall f_10433(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_10449) -static void C_ccall f_10449(C_word c,C_word *av) C_noret; -C_noret_decl(f_10451) -static void f_10451(C_word t0,C_word t1,C_word t2,C_word t3) 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_10481) -static void C_ccall f_10481(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_10499) -static void f_10499(C_word t0,C_word t1) 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_10508) -static void C_ccall f_10508(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_10549) -static void C_ccall f_10549(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_10559) -static void C_ccall f_10559(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_10564) -static void f_10564(C_word t0,C_word t1,C_word t2) 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_10571) -static void C_ccall f_10571(C_word c,C_word *av) C_noret; -C_noret_decl(f_10581) -static void C_ccall f_10581(C_word c,C_word *av) C_noret; -C_noret_decl(f_10593) -static void C_ccall f_10593(C_word c,C_word *av) C_noret; -C_noret_decl(f_10600) -static void C_ccall f_10600(C_word c,C_word *av) C_noret; -C_noret_decl(f_10607) -static void C_ccall f_10607(C_word c,C_word *av) C_noret; -C_noret_decl(f_10609) -static void f_10609(C_word t0,C_word t1,C_word t2) 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_10656) -static void C_ccall f_10656(C_word c,C_word *av) C_noret; -C_noret_decl(f_10665) -static void C_ccall f_10665(C_word c,C_word *av) C_noret; -C_noret_decl(f_10681) -static void C_ccall f_10681(C_word c,C_word *av) C_noret; -C_noret_decl(f_10694) -static void C_ccall f_10694(C_word c,C_word *av) C_noret; -C_noret_decl(f_10697) -static void C_ccall f_10697(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_10713) -static void f_10713(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10717) -static void C_ccall f_10717(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_10728) -static void C_ccall f_10728(C_word c,C_word *av) C_noret; -C_noret_decl(f_10747) -static void f_10747(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_10770) -static C_word f_10770(C_word t0); -C_noret_decl(f_10793) -static void C_ccall f_10793(C_word c,C_word *av) C_noret; -C_noret_decl(f_10812) -static void f_10812(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10822) -static void C_ccall f_10822(C_word c,C_word *av) C_noret; -C_noret_decl(f_10835) -static C_word f_10835(C_word t0); -C_noret_decl(f_10858) -static void C_ccall f_10858(C_word c,C_word *av) C_noret; -C_noret_decl(f_10872) -static C_word f_10872(C_word t0); -C_noret_decl(f_10899) -static void C_ccall f_10899(C_word c,C_word *av) C_noret; -C_noret_decl(f_10968) -static void C_ccall f_10968(C_word c,C_word *av) C_noret; -C_noret_decl(f_10971) -static void f_10971(C_word t0,C_word t1,C_word t2,C_word t3) 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_10987) -static void C_ccall f_10987(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_11004) -static void f_11004(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11040) -static void C_ccall f_11040(C_word c,C_word *av) C_noret; -C_noret_decl(f_11043) -static void C_ccall f_11043(C_word c,C_word *av) C_noret; -C_noret_decl(f_11053) -static void C_ccall f_11053(C_word c,C_word *av) C_noret; -C_noret_decl(f_11055) -static void f_11055(C_word t0,C_word t1,C_word t2) 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_11079) -static void C_ccall f_11079(C_word c,C_word *av) C_noret; -C_noret_decl(f_11090) -static void C_ccall f_11090(C_word c,C_word *av) C_noret; -C_noret_decl(f_11097) -static void C_ccall f_11097(C_word c,C_word *av) C_noret; -C_noret_decl(f_11100) -static void f_11100(C_word t0,C_word t1) C_noret; -C_noret_decl(f_11105) -static void C_ccall f_11105(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_11116) -static void C_ccall f_11116(C_word c,C_word *av) C_noret; -C_noret_decl(f_11122) -static void C_ccall f_11122(C_word c,C_word *av) C_noret; -C_noret_decl(f_11126) -static void C_ccall f_11126(C_word c,C_word *av) C_noret; -C_noret_decl(f_11129) -static void C_ccall f_11129(C_word c,C_word *av) C_noret; -C_noret_decl(f_11133) -static void C_ccall f_11133(C_word c,C_word *av) C_noret; -C_noret_decl(f_11135) -static void C_ccall f_11135(C_word c,C_word *av) C_noret; -C_noret_decl(f_11141) -static void C_ccall f_11141(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_11153) -static void C_ccall f_11153(C_word c,C_word *av) C_noret; -C_noret_decl(f_11159) -static void f_11159(C_word t0,C_word t1,C_word t2) 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_11168) -static void C_ccall f_11168(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_11178) -static void C_ccall f_11178(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_11186) -static void C_ccall f_11186(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_11196) -static void C_ccall f_11196(C_word c,C_word *av) 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_11205) -static void C_ccall f_11205(C_word c,C_word *av) C_noret; -C_noret_decl(f_11209) -static void C_ccall f_11209(C_word c,C_word *av) C_noret; -C_noret_decl(f_11216) -static void C_ccall f_11216(C_word c,C_word *av) C_noret; -C_noret_decl(f_11220) -static void C_ccall f_11220(C_word c,C_word *av) C_noret; -C_noret_decl(f_11222) -static C_word f_11222(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_11242) -static void C_ccall f_11242(C_word c,C_word *av) C_noret; -C_noret_decl(f_11248) -static void C_ccall f_11248(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_11262) -static void C_ccall f_11262(C_word c,C_word *av) C_noret; -C_noret_decl(f_11266) -static void C_ccall f_11266(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_11272) -static void C_ccall f_11272(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_11281) -static void C_ccall f_11281(C_word c,C_word *av) C_noret; -C_noret_decl(f_11284) -static void C_ccall f_11284(C_word c,C_word *av) C_noret; -C_noret_decl(f_11291) -static void C_ccall f_11291(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_11299) -static void C_ccall f_11299(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_11305) -static void C_ccall f_11305(C_word c,C_word *av) C_noret; -C_noret_decl(f_11311) -static void C_ccall f_11311(C_word c,C_word *av) C_noret; -C_noret_decl(f_11319) -static void C_ccall f_11319(C_word c,C_word *av) C_noret; -C_noret_decl(f_11321) -static void C_ccall f_11321(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_11331) -static void C_ccall f_11331(C_word c,C_word *av) C_noret; -C_noret_decl(f_11334) -static void C_ccall f_11334(C_word c,C_word *av) C_noret; -C_noret_decl(f_11341) -static void C_ccall f_11341(C_word c,C_word *av) C_noret; -C_noret_decl(f_11345) -static void C_ccall f_11345(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_11351) -static void C_ccall f_11351(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_11360) -static void C_ccall f_11360(C_word c,C_word *av) C_noret; -C_noret_decl(f_11367) -static void C_ccall f_11367(C_word c,C_word *av) C_noret; -C_noret_decl(f_11369) -static void C_ccall f_11369(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_11378) -static void C_ccall f_11378(C_word c,C_word *av) C_noret; -C_noret_decl(f_11382) -static void C_ccall f_11382(C_word c,C_word *av) C_noret; -C_noret_decl(f_11384) -static void C_ccall f_11384(C_word c,C_word *av) C_noret; -C_noret_decl(f_11399) -static void C_ccall f_11399(C_word c,C_word *av) 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_11407) -static void f_11407(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11432) -static void C_ccall f_11432(C_word c,C_word *av) C_noret; -C_noret_decl(f_11446) -static void C_ccall f_11446(C_word c,C_word *av) C_noret; -C_noret_decl(f_11458) -static void C_ccall f_11458(C_word c,C_word *av) C_noret; -C_noret_decl(f_11462) -static void C_ccall f_11462(C_word c,C_word *av) C_noret; -C_noret_decl(f_11489) -static void C_ccall f_11489(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_11497) -static void C_ccall f_11497(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_11505) -static void C_ccall f_11505(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_11521) -static void C_ccall f_11521(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_11535) -static void C_ccall f_11535(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_11542) -static void C_ccall f_11542(C_word c,C_word *av) C_noret; -C_noret_decl(f_11551) -static void C_ccall f_11551(C_word c,C_word *av) 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_11561) -static void f_11561(C_word t0,C_word t1) C_noret; -C_noret_decl(f_11564) -static void C_ccall f_11564(C_word c,C_word *av) C_noret; -C_noret_decl(f_11576) -static void C_ccall f_11576(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_11584) -static void C_ccall f_11584(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_11593) -static void C_ccall f_11593(C_word c,C_word *av) C_noret; -C_noret_decl(f_11596) -static void f_11596(C_word t0,C_word t1) 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_11619) -static void C_ccall f_11619(C_word c,C_word *av) C_noret; -C_noret_decl(f_11624) -static void C_ccall f_11624(C_word c,C_word *av) C_noret; -C_noret_decl(f_11631) -static void C_ccall f_11631(C_word c,C_word *av) C_noret; -C_noret_decl(f_11634) -static void C_ccall f_11634(C_word c,C_word *av) C_noret; -C_noret_decl(f_11649) -static void C_ccall f_11649(C_word c,C_word *av) C_noret; -C_noret_decl(f_11657) -static void C_ccall f_11657(C_word c,C_word *av) C_noret; -C_noret_decl(f_11661) -static void C_ccall f_11661(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_11668) -static void C_ccall f_11668(C_word c,C_word *av) C_noret; -C_noret_decl(f_11672) -static void C_ccall f_11672(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_11678) -static void C_ccall f_11678(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_11697) -static void C_ccall f_11697(C_word c,C_word *av) C_noret; -C_noret_decl(f_11701) -static void C_ccall f_11701(C_word c,C_word *av) C_noret; -C_noret_decl(f_11704) -static void C_ccall f_11704(C_word c,C_word *av) C_noret; -C_noret_decl(f_11707) -static void C_ccall f_11707(C_word c,C_word *av) C_noret; -C_noret_decl(f_11710) -static void C_ccall f_11710(C_word c,C_word *av) C_noret; -C_noret_decl(f_11718) -static void C_ccall f_11718(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_3565) -static void C_ccall f_3565(C_word c,C_word *av) C_noret; -C_noret_decl(f_3568) -static void C_ccall f_3568(C_word c,C_word *av) C_noret; -C_noret_decl(f_3571) -static void C_ccall f_3571(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_3582) -static void C_ccall f_3582(C_word c,C_word *av) C_noret; -C_noret_decl(f_3595) -static void C_ccall f_3595(C_word c,C_word *av) C_noret; -C_noret_decl(f_3603) -static void C_ccall f_3603(C_word c,C_word *av) C_noret; -C_noret_decl(f_3607) -static void C_ccall f_3607(C_word c,C_word *av) C_noret; -C_noret_decl(f_3610) -static void C_ccall f_3610(C_word c,C_word *av) C_noret; -C_noret_decl(f_3613) -static void C_ccall f_3613(C_word c,C_word *av) C_noret; -C_noret_decl(f_3618) -static void C_ccall f_3618(C_word c,C_word *av) C_noret; -C_noret_decl(f_3620) -static void f_3620(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_3647) -static void f_3647(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_3660) -static void f_3660(C_word t0,C_word t1) C_noret; -C_noret_decl(f_3682) -static void f_3682(C_word t0,C_word t1,C_word t2) 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_3694) -static void C_ccall f_3694(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_3707) -static void C_ccall f_3707(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_3716) -static void f_3716(C_word t0,C_word t1,C_word t2,C_word t3) 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_3728) -static void f_3728(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_3745) -static void f_3745(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_3775) -static C_word f_3775(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_3805) -static C_word f_3805(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5); -C_noret_decl(f_3819) -static void f_3819(C_word t0,C_word t1,C_word t2,C_word t3) 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_3836) -static void f_3836(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_3844) -static void C_ccall f_3844(C_word c,C_word *av) C_noret; -C_noret_decl(f_3851) -static void C_ccall f_3851(C_word c,C_word *av) C_noret; -C_noret_decl(f_3854) -static void C_ccall f_3854(C_word c,C_word *av) C_noret; -C_noret_decl(f_3869) -static void f_3869(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_3883) -static void C_ccall f_3883(C_word c,C_word *av) C_noret; -C_noret_decl(f_3887) -static void C_ccall f_3887(C_word c,C_word *av) C_noret; -C_noret_decl(f_3892) -static void C_ccall f_3892(C_word c,C_word *av) C_noret; -C_noret_decl(f_3897) -static void C_ccall f_3897(C_word c,C_word *av) C_noret; -C_noret_decl(f_3903) -static void C_ccall f_3903(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_3920) -static void C_ccall f_3920(C_word c,C_word *av) C_noret; -C_noret_decl(f_3933) -static void f_3933(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_3940) -static void C_ccall f_3940(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_3953) -static void C_ccall f_3953(C_word c,C_word *av) C_noret; -C_noret_decl(f_3959) -static void C_ccall f_3959(C_word c,C_word *av) C_noret; -C_noret_decl(f_3969) -static void C_ccall f_3969(C_word c,C_word *av) C_noret; -C_noret_decl(f_3972) -static void f_3972(C_word t0,C_word t1) 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_3989) -static void C_ccall f_3989(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_3995) -static void C_ccall f_3995(C_word c,C_word *av) C_noret; -C_noret_decl(f_3999) -static void f_3999(C_word t0,C_word t1) C_noret; -C_noret_decl(f_4020) -static void C_ccall f_4020(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_4063) -static void C_ccall f_4063(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_4097) -static void C_ccall f_4097(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_4141) -static void C_ccall f_4141(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_4175) -static void C_ccall f_4175(C_word c,C_word *av) C_noret; -C_noret_decl(f_4183) -static void C_ccall f_4183(C_word c,C_word *av) C_noret; -C_noret_decl(f_4191) -static void C_ccall f_4191(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_4212) -static void C_ccall f_4212(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_4224) -static void C_ccall f_4224(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_4244) -static void C_ccall f_4244(C_word c,C_word *av) C_noret; -C_noret_decl(f_4247) -static void C_ccall f_4247(C_word c,C_word *av) C_noret; -C_noret_decl(f_4253) -static void C_ccall f_4253(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_4277) -static void C_ccall f_4277(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_4292) -static void C_ccall f_4292(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_4308) -static void C_ccall f_4308(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_4324) -static void C_ccall f_4324(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_4334) -static void C_ccall f_4334(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_4397) -static void C_ccall f_4397(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_4410) -static void C_ccall f_4410(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_4414) -static void C_ccall f_4414(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_4495) -static void C_ccall f_4495(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_4499) -static void C_ccall f_4499(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_4517) -static void C_ccall f_4517(C_word c,C_word *av) C_noret; -C_noret_decl(f_4520) -static void C_ccall f_4520(C_word c,C_word *av) C_noret; -C_noret_decl(f_4523) -static void C_ccall f_4523(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_4528) -static void C_ccall f_4528(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_4569) -static void C_ccall f_4569(C_word c,C_word *av) C_noret; -C_noret_decl(f_4572) -static void C_ccall f_4572(C_word c,C_word *av) C_noret; -C_noret_decl(f_4600) -static void C_ccall f_4600(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_4610) -static void C_ccall f_4610(C_word c,C_word *av) C_noret; -C_noret_decl(f_4619) -static void C_ccall f_4619(C_word c,C_word *av) C_noret; -C_noret_decl(f_4623) -static void C_ccall f_4623(C_word c,C_word *av) C_noret; -C_noret_decl(f_4630) -static void C_ccall f_4630(C_word c,C_word *av) C_noret; -C_noret_decl(f_4631) -static void C_ccall f_4631(C_word c,C_word *av) C_noret; -C_noret_decl(f_4635) -static void C_ccall f_4635(C_word c,C_word *av) C_noret; -C_noret_decl(f_4661) -static void C_ccall f_4661(C_word c,C_word *av) C_noret; -C_noret_decl(f_4666) -static void C_ccall f_4666(C_word c,C_word *av) C_noret; -C_noret_decl(f_4678) -static void C_ccall f_4678(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_4688) -static void C_ccall f_4688(C_word c,C_word *av) C_noret; -C_noret_decl(f_4715) -static void C_ccall f_4715(C_word c,C_word *av) C_noret; -C_noret_decl(f_4724) -static void C_ccall f_4724(C_word c,C_word *av) C_noret; -C_noret_decl(f_4730) -static void C_ccall f_4730(C_word c,C_word *av) C_noret; -C_noret_decl(f_4733) -static void C_ccall f_4733(C_word c,C_word *av) C_noret; -C_noret_decl(f_4742) -static void C_ccall f_4742(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_4759) -static void C_ccall f_4759(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_4776) -static void C_ccall f_4776(C_word c,C_word *av) C_noret; -C_noret_decl(f_4779) -static void C_ccall f_4779(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_4796) -static void C_ccall f_4796(C_word c,C_word *av) 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_4804) -static void C_ccall f_4804(C_word c,C_word *av) C_noret; -C_noret_decl(f_4812) -static void C_ccall f_4812(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_4828) -static void C_ccall f_4828(C_word c,C_word *av) C_noret; -C_noret_decl(f_4834) -static void C_ccall f_4834(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_4851) -static void C_ccall f_4851(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_4859) -static void C_ccall f_4859(C_word c,C_word *av) C_noret; -C_noret_decl(f_4863) -static void C_ccall f_4863(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_4879) -static void C_ccall f_4879(C_word c,C_word *av) C_noret; -C_noret_decl(f_4892) -static void C_ccall f_4892(C_word c,C_word *av) C_noret; -C_noret_decl(f_4895) -static void C_ccall f_4895(C_word c,C_word *av) C_noret; -C_noret_decl(f_4901) -static void C_ccall f_4901(C_word c,C_word *av) C_noret; -C_noret_decl(f_4904) -static void C_ccall f_4904(C_word c,C_word *av) C_noret; -C_noret_decl(f_4905) -static void C_ccall f_4905(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_4925) -static void C_ccall f_4925(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_4933) -static void C_ccall f_4933(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_4945) -static void C_ccall f_4945(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_4961) -static void C_ccall f_4961(C_word c,C_word *av) C_noret; -C_noret_decl(f_4969) -static void f_4969(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_4983) -static void C_ccall f_4983(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_4990) -static void C_ccall f_4990(C_word c,C_word *av) C_noret; -C_noret_decl(f_4999) -static void f_4999(C_word t0,C_word t1,C_word t2,C_word t3) 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_5029) -static void f_5029(C_word t0,C_word t1,C_word t2) 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_5071) -static void C_ccall f_5071(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_5079) -static void C_ccall f_5079(C_word c,C_word *av) C_noret; -C_noret_decl(f_5082) -static void C_ccall f_5082(C_word c,C_word *av) C_noret; -C_noret_decl(f_5088) -static void C_ccall f_5088(C_word c,C_word *av) C_noret; -C_noret_decl(f_5096) -static void C_ccall f_5096(C_word c,C_word *av) C_noret; -C_noret_decl(f_5104) -static void C_ccall f_5104(C_word c,C_word *av) C_noret; -C_noret_decl(f_5106) -static void C_ccall f_5106(C_word c,C_word *av) 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_5113) -static void C_ccall f_5113(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_5120) -static void f_5120(C_word t0,C_word t1,C_word t2) 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_5154) -static void f_5154(C_word t0,C_word t1,C_word t2) 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_5231) -static void C_ccall f_5231(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_5265) -static void f_5265(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_5299) -static void f_5299(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_5358) -static void C_ccall f_5358(C_word c,C_word *av) C_noret; -C_noret_decl(f_5384) -static void C_ccall f_5384(C_word c,C_word *av) C_noret; -C_noret_decl(f_5411) -static void C_ccall f_5411(C_word c,C_word *av) C_noret; -C_noret_decl(f_5415) -static void C_ccall f_5415(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_5441) -static void f_5441(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5489) -static void f_5489(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5537) -static void f_5537(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_5571) -static void f_5571(C_word t0,C_word t1,C_word t2) 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_5605) -static void f_5605(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_5646) -static void C_ccall f_5646(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_5662) -static void C_ccall f_5662(C_word c,C_word *av) C_noret; -C_noret_decl(f_5672) -static void C_ccall f_5672(C_word c,C_word *av) C_noret; -C_noret_decl(f_5675) -static void C_ccall f_5675(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_5691) -static void C_ccall f_5691(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_5710) -static void C_ccall f_5710(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_5734) -static void C_ccall f_5734(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_5753) -static void C_ccall f_5753(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_5781) -static void C_ccall f_5781(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_5800) -static void C_ccall f_5800(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_5828) -static void C_ccall f_5828(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_5847) -static void C_ccall f_5847(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_5875) -static void C_ccall f_5875(C_word c,C_word *av) C_noret; -C_noret_decl(f_5881) -static void C_ccall f_5881(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_5900) -static void C_ccall f_5900(C_word c,C_word *av) C_noret; -C_noret_decl(f_5912) -static void C_ccall f_5912(C_word c,C_word *av) C_noret; -C_noret_decl(f_5916) -static void C_ccall f_5916(C_word c,C_word *av) C_noret; -C_noret_decl(f_5922) -static void C_ccall f_5922(C_word c,C_word *av) C_noret; -C_noret_decl(f_5934) -static void C_ccall f_5934(C_word c,C_word *av) C_noret; -C_noret_decl(f_5938) -static void C_ccall f_5938(C_word c,C_word *av) C_noret; -C_noret_decl(f_5939) -static void C_ccall f_5939(C_word c,C_word *av) C_noret; -C_noret_decl(f_5945) -static void C_ccall f_5945(C_word c,C_word *av) C_noret; -C_noret_decl(f_5967) -static void C_ccall f_5967(C_word c,C_word *av) C_noret; -C_noret_decl(f_5983) -static void C_ccall f_5983(C_word c,C_word *av) C_noret; -C_noret_decl(f_5987) -static void C_ccall f_5987(C_word c,C_word *av) C_noret; -C_noret_decl(f_5991) -static void C_ccall f_5991(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_6000) -static void C_ccall f_6000(C_word c,C_word *av) C_noret; -C_noret_decl(f_6008) -static void C_ccall f_6008(C_word c,C_word *av) C_noret; -C_noret_decl(f_6014) -static void C_ccall f_6014(C_word c,C_word *av) C_noret; -C_noret_decl(f_6018) -static void C_ccall f_6018(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_6026) -static void C_ccall f_6026(C_word c,C_word *av) C_noret; -C_noret_decl(f_6028) -static void f_6028(C_word t0,C_word t1,C_word t2) 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_6063) -static void C_ccall f_6063(C_word c,C_word *av) C_noret; -C_noret_decl(f_6068) -static void C_ccall f_6068(C_word c,C_word *av) C_noret; -C_noret_decl(f_6076) -static void C_ccall f_6076(C_word c,C_word *av) C_noret; -C_noret_decl(f_6078) -static void C_ccall f_6078(C_word c,C_word *av) C_noret; -C_noret_decl(f_6089) -static void C_ccall f_6089(C_word c,C_word *av) C_noret; -C_noret_decl(f_6098) -static void C_ccall f_6098(C_word c,C_word *av) C_noret; -C_noret_decl(f_6103) -static void C_ccall f_6103(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_6111) -static void C_ccall f_6111(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_6120) -static void C_ccall f_6120(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_6136) -static void C_ccall f_6136(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_6142) -static void C_ccall f_6142(C_word c,C_word *av) C_noret; -C_noret_decl(f_6145) -static void C_ccall f_6145(C_word c,C_word *av) C_noret; -C_noret_decl(f_6163) -static void C_ccall f_6163(C_word c,C_word *av) C_noret; -C_noret_decl(f_6167) -static void C_ccall f_6167(C_word c,C_word *av) C_noret; -C_noret_decl(f_6171) -static void C_ccall f_6171(C_word c,C_word *av) C_noret; -C_noret_decl(f_6175) -static void C_ccall f_6175(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_6194) -static void C_ccall f_6194(C_word c,C_word *av) C_noret; -C_noret_decl(f_6196) -static void f_6196(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6250) -static void C_ccall f_6250(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_6258) -static void C_ccall f_6258(C_word c,C_word *av) C_noret; -C_noret_decl(f_6273) -static void C_ccall f_6273(C_word c,C_word *av) C_noret; -C_noret_decl(f_6276) -static void C_ccall f_6276(C_word c,C_word *av) C_noret; -C_noret_decl(f_6277) -static C_word f_6277(C_word t0,C_word t1); -C_noret_decl(f_6296) -static void C_ccall f_6296(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_6304) -static void C_ccall f_6304(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_6313) -static void C_ccall f_6313(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_6329) -static void C_ccall f_6329(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_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_6341) -static C_word f_6341(C_word t0,C_word t1); -C_noret_decl(f_6366) -static void C_ccall f_6366(C_word c,C_word *av) C_noret; -C_noret_decl(f_6368) -static void f_6368(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6415) -static void C_ccall f_6415(C_word c,C_word *av) C_noret; -C_noret_decl(f_6418) -static void C_ccall f_6418(C_word c,C_word *av) C_noret; -C_noret_decl(f_6421) -static void C_ccall f_6421(C_word c,C_word *av) C_noret; -C_noret_decl(f_6424) -static void C_ccall f_6424(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_6434) -static void C_ccall f_6434(C_word c,C_word *av) C_noret; -C_noret_decl(f_6438) -static void C_ccall f_6438(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_6459) -static void C_ccall f_6459(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_6489) -static void C_ccall f_6489(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_6537) -static void C_ccall f_6537(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_6553) -static void f_6553(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6578) -static void C_ccall f_6578(C_word c,C_word *av) C_noret; -C_noret_decl(f_6594) -static void C_ccall f_6594(C_word c,C_word *av) C_noret; -C_noret_decl(f_6603) -static void C_ccall f_6603(C_word c,C_word *av) C_noret; -C_noret_decl(f_6606) -static void C_ccall f_6606(C_word c,C_word *av) 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_6612) -static void C_ccall f_6612(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_6621) -static void C_ccall f_6621(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_6627) -static void C_ccall f_6627(C_word c,C_word *av) C_noret; -C_noret_decl(f_6630) -static void C_ccall f_6630(C_word c,C_word *av) C_noret; -C_noret_decl(f_6634) -static void C_ccall f_6634(C_word c,C_word *av) C_noret; -C_noret_decl(f_6638) -static void C_ccall f_6638(C_word c,C_word *av) C_noret; -C_noret_decl(f_6642) -static void C_ccall f_6642(C_word c,C_word *av) C_noret; -C_noret_decl(f_6646) -static void C_ccall f_6646(C_word c,C_word *av) C_noret; -C_noret_decl(f_6649) -static void C_ccall f_6649(C_word c,C_word *av) C_noret; -C_noret_decl(f_6652) -static void C_ccall f_6652(C_word c,C_word *av) C_noret; -C_noret_decl(f_6655) -static void C_ccall f_6655(C_word c,C_word *av) C_noret; -C_noret_decl(f_6658) -static void C_ccall f_6658(C_word c,C_word *av) C_noret; -C_noret_decl(f_6673) -static void C_ccall f_6673(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_6689) -static void f_6689(C_word t0,C_word t1,C_word t2,C_word t3) 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_6702) -static void C_ccall f_6702(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_6706) -static void C_ccall f_6706(C_word c,C_word *av) C_noret; -C_noret_decl(f_6712) -static void f_6712(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6735) -static void C_ccall f_6735(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_6750) -static void C_ccall f_6750(C_word c,C_word *av) C_noret; -C_noret_decl(f_6765) -static void C_ccall f_6765(C_word c,C_word *av) C_noret; -C_noret_decl(f_6769) -static void C_ccall f_6769(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_6776) -static void C_ccall f_6776(C_word c,C_word *av) C_noret; -C_noret_decl(f_6779) -static void C_ccall f_6779(C_word c,C_word *av) C_noret; -C_noret_decl(f_6782) -static void C_ccall f_6782(C_word c,C_word *av) C_noret; -C_noret_decl(f_6785) -static void C_ccall f_6785(C_word c,C_word *av) C_noret; -C_noret_decl(f_6788) -static void C_ccall f_6788(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_6794) -static void C_ccall f_6794(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_6808) -static void f_6808(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6821) -static void f_6821(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6832) -static C_word f_6832(C_word t0); -C_noret_decl(f_6865) -static void f_6865(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_6918) -static void C_ccall f_6918(C_word c,C_word *av) C_noret; -C_noret_decl(f_6952) -static void C_ccall f_6952(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_6999) -static void C_ccall f_6999(C_word c,C_word *av) C_noret; -C_noret_decl(f_7028) -static void f_7028(C_word t0,C_word t1) 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_7063) -static void C_ccall f_7063(C_word c,C_word *av) C_noret; -C_noret_decl(f_7076) -static void f_7076(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7096) -static void C_ccall f_7096(C_word c,C_word *av) C_noret; -C_noret_decl(f_7122) -static void f_7122(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7140) -static void C_ccall f_7140(C_word c,C_word *av) C_noret; -C_noret_decl(f_7152) -static void C_ccall f_7152(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_7165) -static void C_ccall f_7165(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_7350) -static void C_ccall f_7350(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_7363) -static void C_ccall f_7363(C_word c,C_word *av) C_noret; -C_noret_decl(f_7365) -static void C_ccall f_7365(C_word c,C_word *av) C_noret; -C_noret_decl(f_7371) -static void C_ccall f_7371(C_word c,C_word *av) C_noret; -C_noret_decl(f_7378) -static void C_ccall f_7378(C_word c,C_word *av) 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_7436) -static void f_7436(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_7482) -static C_word f_7482(C_word t0,C_word t1); -C_noret_decl(f_7508) -static void f_7508(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_7524) -static void C_ccall f_7524(C_word c,C_word *av) C_noret; -C_noret_decl(f_7543) -static void C_ccall f_7543(C_word c,C_word *av) C_noret; -C_noret_decl(f_7550) -static void C_ccall f_7550(C_word c,C_word *av) C_noret; -C_noret_decl(f_7562) -static void C_ccall f_7562(C_word c,C_word *av) 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_7570) -static void C_ccall f_7570(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_7590) -static void C_ccall f_7590(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_7594) -static void C_ccall f_7594(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_7608) -static void C_ccall f_7608(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_7626) -static void C_ccall f_7626(C_word c,C_word *av) C_noret; -C_noret_decl(f_7629) -static void C_ccall f_7629(C_word c,C_word *av) C_noret; -C_noret_decl(f_7632) -static void C_ccall f_7632(C_word c,C_word *av) C_noret; -C_noret_decl(f_7633) -static void C_ccall f_7633(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_7647) -static void C_ccall f_7647(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_7655) -static void C_ccall f_7655(C_word c,C_word *av) 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_7673) -static void C_ccall f_7673(C_word c,C_word *av) C_noret; -C_noret_decl(f_7676) -static void C_ccall f_7676(C_word c,C_word *av) C_noret; -C_noret_decl(f_7679) -static void C_ccall f_7679(C_word c,C_word *av) C_noret; -C_noret_decl(f_7680) -static void C_ccall f_7680(C_word c,C_word *av) C_noret; -C_noret_decl(f_7687) -static void C_ccall f_7687(C_word c,C_word *av) C_noret; -C_noret_decl(f_7694) -static void C_ccall f_7694(C_word c,C_word *av) C_noret; -C_noret_decl(f_7698) -static void C_ccall f_7698(C_word c,C_word *av) C_noret; -C_noret_decl(f_7702) -static void C_ccall f_7702(C_word c,C_word *av) C_noret; -C_noret_decl(f_7706) -static void C_ccall f_7706(C_word c,C_word *av) C_noret; -C_noret_decl(f_7717) -static void f_7717(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7727) -static void C_ccall f_7727(C_word c,C_word *av) C_noret; -C_noret_decl(f_7728) -static void C_ccall f_7728(C_word c,C_word *av) 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_7744) -static void f_7744(C_word t0,C_word t1,C_word t2) 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_7756) -static void f_7756(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7781) -static void C_ccall f_7781(C_word c,C_word *av) C_noret; -C_noret_decl(f_7790) -static void f_7790(C_word t0,C_word t1,C_word t2) 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_7838) -static void C_ccall f_7838(C_word c,C_word *av) C_noret; -C_noret_decl(f_7857) -static void C_ccall f_7857(C_word c,C_word *av) C_noret; -C_noret_decl(f_7907) -static void C_ccall f_7907(C_word c,C_word *av) C_noret; -C_noret_decl(f_7911) -static void C_ccall f_7911(C_word c,C_word *av) C_noret; -C_noret_decl(f_7914) -static void C_ccall f_7914(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_7923) -static void C_ccall f_7923(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_7929) -static void C_ccall f_7929(C_word c,C_word *av) C_noret; -C_noret_decl(f_7933) -static void C_ccall f_7933(C_word c,C_word *av) C_noret; -C_noret_decl(f_7937) -static void C_ccall f_7937(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_7944) -static void C_ccall f_7944(C_word c,C_word *av) C_noret; -C_noret_decl(f_7947) -static void C_ccall f_7947(C_word c,C_word *av) C_noret; -C_noret_decl(f_7950) -static void C_ccall f_7950(C_word c,C_word *av) C_noret; -C_noret_decl(f_7962) -static void C_ccall f_7962(C_word c,C_word *av) C_noret; -C_noret_decl(f_7968) -static void C_ccall f_7968(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_7977) -static void C_ccall f_7977(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_7988) -static void C_ccall f_7988(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_7994) -static void C_ccall f_7994(C_word c,C_word *av) C_noret; -C_noret_decl(f_7998) -static void C_ccall f_7998(C_word c,C_word *av) C_noret; -C_noret_decl(f_8001) -static void C_ccall f_8001(C_word c,C_word *av) C_noret; -C_noret_decl(f_8004) -static void C_ccall f_8004(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_8010) -static void C_ccall f_8010(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_8020) -static void C_ccall f_8020(C_word c,C_word *av) 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_8030) -static void C_ccall f_8030(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_8039) -static void C_ccall f_8039(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 f_8044(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8054) -static void f_8054(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_8087) -static void C_ccall f_8087(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_8130) -static void C_ccall f_8130(C_word c,C_word *av) C_noret; -C_noret_decl(f_8133) -static void C_ccall f_8133(C_word c,C_word *av) C_noret; -C_noret_decl(f_8136) -static void C_ccall f_8136(C_word c,C_word *av) C_noret; -C_noret_decl(f_8139) -static void C_ccall f_8139(C_word c,C_word *av) C_noret; -C_noret_decl(f_8142) -static void C_ccall f_8142(C_word c,C_word *av) C_noret; -C_noret_decl(f_8144) -static void f_8144(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8153) -static void f_8153(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8184) -static void C_ccall f_8184(C_word c,C_word *av) C_noret; -C_noret_decl(f_8202) -static void C_ccall f_8202(C_word c,C_word *av) C_noret; -C_noret_decl(f_8227) -static void C_ccall f_8227(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_8630) -static void f_8630(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8652) -static void C_ccall f_8652(C_word c,C_word *av) C_noret; -C_noret_decl(f_9543) -static void f_9543(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9546) -static void C_ccall f_9546(C_word c,C_word *av) C_noret; -C_noret_decl(f_9560) -static void C_ccall f_9560(C_word c,C_word *av) C_noret; -C_noret_decl(f_9563) -static void f_9563(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9565) -static void C_ccall f_9565(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_9575) -static void f_9575(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9585) -static C_word f_9585(C_word t0,C_word t1); -C_noret_decl(f_9613) -static void f_9613(C_word t0,C_word t1,C_word t2) 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_9630) -static void C_ccall f_9630(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_9662) -static void C_ccall f_9662(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_9674) -static void f_9674(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9687) -static void C_ccall f_9687(C_word c,C_word *av) C_noret; -C_noret_decl(f_9756) -static void C_ccall f_9756(C_word c,C_word *av) C_noret; -C_noret_decl(f_9760) -static void C_ccall f_9760(C_word c,C_word *av) C_noret; -C_noret_decl(f_9762) -static void f_9762(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9770) -static void C_ccall f_9770(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_9776) -static void f_9776(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_9814) -static void C_ccall f_9814(C_word c,C_word *av) C_noret; -C_noret_decl(f_9819) -static void f_9819(C_word t0,C_word t1,C_word t2) 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_9826) -static void C_ccall f_9826(C_word c,C_word *av) C_noret; -C_noret_decl(f_9842) -static void C_ccall f_9842(C_word c,C_word *av) C_noret; -C_noret_decl(f_9846) -static void C_ccall f_9846(C_word c,C_word *av) C_noret; -C_noret_decl(f_9850) -static void C_ccall f_9850(C_word c,C_word *av) C_noret; -C_noret_decl(f_9854) -static void C_ccall f_9854(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_9861) -static void C_ccall f_9861(C_word c,C_word *av) C_noret; -C_noret_decl(f_9864) -static void C_ccall f_9864(C_word c,C_word *av) C_noret; -C_noret_decl(f_9867) -static void C_ccall f_9867(C_word c,C_word *av) C_noret; -C_noret_decl(f_9872) -static void f_9872(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9878) -static void C_ccall f_9878(C_word c,C_word *av) C_noret; -C_noret_decl(f_9887) -static void C_ccall f_9887(C_word c,C_word *av) C_noret; -C_noret_decl(f_9891) -static void C_ccall f_9891(C_word c,C_word *av) C_noret; -C_noret_decl(f_9894) -static void C_ccall f_9894(C_word c,C_word *av) C_noret; -C_noret_decl(f_9899) -static void C_ccall f_9899(C_word c,C_word *av) C_noret; -C_noret_decl(f_9904) -static void C_ccall f_9904(C_word c,C_word *av) C_noret; -C_noret_decl(f_9906) -static void C_ccall f_9906(C_word c,C_word *av) C_noret; -C_noret_decl(f_9910) -static void C_ccall f_9910(C_word c,C_word *av) C_noret; -C_noret_decl(f_9913) -static void C_ccall f_9913(C_word c,C_word *av) C_noret; -C_noret_decl(f_9916) -static void C_ccall f_9916(C_word c,C_word *av) C_noret; -C_noret_decl(f_9921) -static void f_9921(C_word t0,C_word t1,C_word t2) 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_9934) -static void C_ccall f_9934(C_word c,C_word *av) C_noret; -C_noret_decl(f_9941) -static void C_ccall f_9941(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_9950) -static void C_ccall f_9950(C_word c,C_word *av) C_noret; -C_noret_decl(f_9955) -static void C_ccall f_9955(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_9965) -static void C_ccall f_9965(C_word c,C_word *av) 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_9977) -static void C_ccall f_9977(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_9994) -static void f_9994(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(C_eval_toplevel) -C_extern void C_ccall C_eval_toplevel(C_word c,C_word *av) C_noret; - -/* from CHICKEN_get_error_message */ - void CHICKEN_get_error_message(char *t0,int t1){ -C_word x,s=0+3,*a=C_alloc(s); -C_callback_adjust_stack(a,s); -x=C_fix((C_word)t1); -C_save(x); -x=C_mpointer_or_false(&a,(void*)t0); -C_save(x);C_callback_wrapper((void *)f_11384,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_11369,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_11347,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_11321,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_11305,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_11268,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_11242,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_11196,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_11180,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_11168,0));} - -C_noret_decl(trf_10104) -static void C_ccall trf_10104(C_word c,C_word *av) C_noret; -static void C_ccall trf_10104(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10104(t0,t1);} - -C_noret_decl(trf_10188) -static void C_ccall trf_10188(C_word c,C_word *av) C_noret; -static void C_ccall trf_10188(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10188(t0,t1);} - -C_noret_decl(trf_10278) -static void C_ccall trf_10278(C_word c,C_word *av) C_noret; -static void C_ccall trf_10278(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10278(t0,t1,t2);} - -C_noret_decl(trf_10297) -static void C_ccall trf_10297(C_word c,C_word *av) C_noret; -static void C_ccall trf_10297(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10297(t0,t1);} - -C_noret_decl(trf_10308) -static void C_ccall trf_10308(C_word c,C_word *av) C_noret; -static void C_ccall trf_10308(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10308(t0,t1,t2);} - -C_noret_decl(trf_10451) -static void C_ccall trf_10451(C_word c,C_word *av) C_noret; -static void C_ccall trf_10451(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10451(t0,t1,t2,t3);} - -C_noret_decl(trf_10499) -static void C_ccall trf_10499(C_word c,C_word *av) C_noret; -static void C_ccall trf_10499(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10499(t0,t1);} - -C_noret_decl(trf_10564) -static void C_ccall trf_10564(C_word c,C_word *av) C_noret; -static void C_ccall trf_10564(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10564(t0,t1,t2);} - -C_noret_decl(trf_10609) -static void C_ccall trf_10609(C_word c,C_word *av) C_noret; -static void C_ccall trf_10609(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10609(t0,t1,t2);} - -C_noret_decl(trf_10713) -static void C_ccall trf_10713(C_word c,C_word *av) C_noret; -static void C_ccall trf_10713(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10713(t0,t1,t2);} - -C_noret_decl(trf_10747) -static void C_ccall trf_10747(C_word c,C_word *av) C_noret; -static void C_ccall trf_10747(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10747(t0,t1,t2);} - -C_noret_decl(trf_10812) -static void C_ccall trf_10812(C_word c,C_word *av) C_noret; -static void C_ccall trf_10812(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10812(t0,t1,t2);} - -C_noret_decl(trf_10971) -static void C_ccall trf_10971(C_word c,C_word *av) C_noret; -static void C_ccall trf_10971(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10971(t0,t1,t2,t3);} - -C_noret_decl(trf_11004) -static void C_ccall trf_11004(C_word c,C_word *av) C_noret; -static void C_ccall trf_11004(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11004(t0,t1,t2);} - -C_noret_decl(trf_11055) -static void C_ccall trf_11055(C_word c,C_word *av) C_noret; -static void C_ccall trf_11055(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11055(t0,t1,t2);} - -C_noret_decl(trf_11100) -static void C_ccall trf_11100(C_word c,C_word *av) C_noret; -static void C_ccall trf_11100(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11100(t0,t1);} - -C_noret_decl(trf_11159) -static void C_ccall trf_11159(C_word c,C_word *av) C_noret; -static void C_ccall trf_11159(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11159(t0,t1,t2);} - -C_noret_decl(trf_11407) -static void C_ccall trf_11407(C_word c,C_word *av) C_noret; -static void C_ccall trf_11407(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11407(t0,t1,t2);} - -C_noret_decl(trf_11561) -static void C_ccall trf_11561(C_word c,C_word *av) C_noret; -static void C_ccall trf_11561(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11561(t0,t1);} - -C_noret_decl(trf_11596) -static void C_ccall trf_11596(C_word c,C_word *av) C_noret; -static void C_ccall trf_11596(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11596(t0,t1);} - -C_noret_decl(trf_3620) -static void C_ccall trf_3620(C_word c,C_word *av) C_noret; -static void C_ccall trf_3620(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_3620(t0,t1,t2,t3);} - -C_noret_decl(trf_3647) -static void C_ccall trf_3647(C_word c,C_word *av) C_noret; -static void C_ccall trf_3647(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_3647(t0,t1,t2,t3);} - -C_noret_decl(trf_3660) -static void C_ccall trf_3660(C_word c,C_word *av) C_noret; -static void C_ccall trf_3660(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_3660(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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_3682(t0,t1,t2);} - -C_noret_decl(trf_3716) -static void C_ccall trf_3716(C_word c,C_word *av) C_noret; -static void C_ccall trf_3716(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_3716(t0,t1,t2,t3);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_3728(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_3819) -static void C_ccall trf_3819(C_word c,C_word *av) C_noret; -static void C_ccall trf_3819(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_3819(t0,t1,t2,t3);} - -C_noret_decl(trf_3836) -static void C_ccall trf_3836(C_word c,C_word *av) C_noret; -static void C_ccall trf_3836(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_3836(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[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_3869(t0,t1,t2,t3,t4,t5,t6,t7);} - -C_noret_decl(trf_3933) -static void C_ccall trf_3933(C_word c,C_word *av) C_noret; -static void C_ccall trf_3933(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_3933(t0,t1,t2,t3,t4,t5,t6,t7);} - -C_noret_decl(trf_3972) -static void C_ccall trf_3972(C_word c,C_word *av) C_noret; -static void C_ccall trf_3972(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_3972(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_4969) -static void C_ccall trf_4969(C_word c,C_word *av) C_noret; -static void C_ccall trf_4969(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_4969(t0,t1,t2);} - -C_noret_decl(trf_4999) -static void C_ccall trf_4999(C_word c,C_word *av) C_noret; -static void C_ccall trf_4999(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_4999(t0,t1,t2,t3);} - -C_noret_decl(trf_5029) -static void C_ccall trf_5029(C_word c,C_word *av) C_noret; -static void C_ccall trf_5029(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5029(t0,t1,t2);} - -C_noret_decl(trf_5120) -static void C_ccall trf_5120(C_word c,C_word *av) C_noret; -static void C_ccall trf_5120(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5120(t0,t1,t2);} - -C_noret_decl(trf_5154) -static void C_ccall trf_5154(C_word c,C_word *av) C_noret; -static void C_ccall trf_5154(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5154(t0,t1,t2);} - -C_noret_decl(trf_5265) -static void C_ccall trf_5265(C_word c,C_word *av) C_noret; -static void C_ccall trf_5265(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5265(t0,t1,t2);} - -C_noret_decl(trf_5299) -static void C_ccall trf_5299(C_word c,C_word *av) C_noret; -static void C_ccall trf_5299(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5299(t0,t1,t2);} - -C_noret_decl(trf_5441) -static void C_ccall trf_5441(C_word c,C_word *av) C_noret; -static void C_ccall trf_5441(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5441(t0,t1,t2,t3);} - -C_noret_decl(trf_5489) -static void C_ccall trf_5489(C_word c,C_word *av) C_noret; -static void C_ccall trf_5489(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5489(t0,t1,t2,t3);} - -C_noret_decl(trf_5537) -static void C_ccall trf_5537(C_word c,C_word *av) C_noret; -static void C_ccall trf_5537(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5537(t0,t1,t2);} - -C_noret_decl(trf_5571) -static void C_ccall trf_5571(C_word c,C_word *av) C_noret; -static void C_ccall trf_5571(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5571(t0,t1,t2);} - -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_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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6028(t0,t1,t2);} - -C_noret_decl(trf_6196) -static void C_ccall trf_6196(C_word c,C_word *av) C_noret; -static void C_ccall trf_6196(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6196(t0,t1,t2);} - -C_noret_decl(trf_6368) -static void C_ccall trf_6368(C_word c,C_word *av) C_noret; -static void C_ccall trf_6368(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6368(t0,t1,t2);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6553(t0,t1,t2);} - -C_noret_decl(trf_6689) -static void C_ccall trf_6689(C_word c,C_word *av) C_noret; -static void C_ccall trf_6689(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6689(t0,t1,t2,t3);} - -C_noret_decl(trf_6712) -static void C_ccall trf_6712(C_word c,C_word *av) C_noret; -static void C_ccall trf_6712(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6712(t0,t1,t2);} - -C_noret_decl(trf_6808) -static void C_ccall trf_6808(C_word c,C_word *av) C_noret; -static void C_ccall trf_6808(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6808(t0,t1,t2);} - -C_noret_decl(trf_6821) -static void C_ccall trf_6821(C_word c,C_word *av) C_noret; -static void C_ccall trf_6821(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6821(t0,t1);} - -C_noret_decl(trf_6865) -static void C_ccall trf_6865(C_word c,C_word *av) C_noret; -static void C_ccall trf_6865(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6865(t0,t1,t2);} - -C_noret_decl(trf_7028) -static void C_ccall trf_7028(C_word c,C_word *av) C_noret; -static void C_ccall trf_7028(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7028(t0,t1);} - -C_noret_decl(trf_7076) -static void C_ccall trf_7076(C_word c,C_word *av) C_noret; -static void C_ccall trf_7076(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7076(t0,t1);} - -C_noret_decl(trf_7122) -static void C_ccall trf_7122(C_word c,C_word *av) C_noret; -static void C_ccall trf_7122(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7122(t0,t1,t2);} - -C_noret_decl(trf_7436) -static void C_ccall trf_7436(C_word c,C_word *av) C_noret; -static void C_ccall trf_7436(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_7436(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_7508) -static void C_ccall trf_7508(C_word c,C_word *av) C_noret; -static void C_ccall trf_7508(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_7508(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_7717) -static void C_ccall trf_7717(C_word c,C_word *av) C_noret; -static void C_ccall trf_7717(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7717(t0,t1,t2);} - -C_noret_decl(trf_7744) -static void C_ccall trf_7744(C_word c,C_word *av) C_noret; -static void C_ccall trf_7744(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7744(t0,t1,t2);} - -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_7790) -static void C_ccall trf_7790(C_word c,C_word *av) C_noret; -static void C_ccall trf_7790(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7790(t0,t1,t2);} - -C_noret_decl(trf_8044) -static void C_ccall trf_8044(C_word c,C_word *av) C_noret; -static void C_ccall trf_8044(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8044(t0,t1);} - -C_noret_decl(trf_8054) -static void C_ccall trf_8054(C_word c,C_word *av) C_noret; -static void C_ccall trf_8054(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_8054(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_8144) -static void C_ccall trf_8144(C_word c,C_word *av) C_noret; -static void C_ccall trf_8144(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8144(t0,t1);} - -C_noret_decl(trf_8153) -static void C_ccall trf_8153(C_word c,C_word *av) C_noret; -static void C_ccall trf_8153(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8153(t0,t1,t2);} - -C_noret_decl(trf_8630) -static void C_ccall trf_8630(C_word c,C_word *av) C_noret; -static void C_ccall trf_8630(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8630(t0,t1,t2);} - -C_noret_decl(trf_9543) -static void C_ccall trf_9543(C_word c,C_word *av) C_noret; -static void C_ccall trf_9543(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9543(t0,t1);} - -C_noret_decl(trf_9563) -static void C_ccall trf_9563(C_word c,C_word *av) C_noret; -static void C_ccall trf_9563(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9563(t0,t1);} - -C_noret_decl(trf_9575) -static void C_ccall trf_9575(C_word c,C_word *av) C_noret; -static void C_ccall trf_9575(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9575(t0,t1);} - -C_noret_decl(trf_9613) -static void C_ccall trf_9613(C_word c,C_word *av) C_noret; -static void C_ccall trf_9613(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9613(t0,t1,t2);} - -C_noret_decl(trf_9674) -static void C_ccall trf_9674(C_word c,C_word *av) C_noret; -static void C_ccall trf_9674(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9674(t0,t1,t2);} - -C_noret_decl(trf_9762) -static void C_ccall trf_9762(C_word c,C_word *av) C_noret; -static void C_ccall trf_9762(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9762(t0,t1,t2);} - -C_noret_decl(trf_9776) -static void C_ccall trf_9776(C_word c,C_word *av) C_noret; -static void C_ccall trf_9776(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_9776(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_9819) -static void C_ccall trf_9819(C_word c,C_word *av) C_noret; -static void C_ccall trf_9819(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9819(t0,t1,t2);} - -C_noret_decl(trf_9872) -static void C_ccall trf_9872(C_word c,C_word *av) C_noret; -static void C_ccall trf_9872(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9872(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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9921(t0,t1,t2);} - -C_noret_decl(trf_9994) -static void C_ccall trf_9994(C_word c,C_word *av) C_noret; -static void C_ccall trf_9994(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9994(t0,t1,t2);} - -/* f12353 in scheme#load in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f12353(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f12353,c,av);} -/* eval.scm:1137: load/internal */ -t2=lf[235]; -f_9776(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* k10002 in for-each-loop2385 in a9976 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in ... */ -static void C_ccall f_10004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10004,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9994(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k10026 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in ... */ -static void C_ccall f_10028(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10028,c,av);} -/* eval.scm:1101: ##sys#error */ -t2=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[237]; -av2[3]=t1; -av2[4]=((C_word*)((C_word*)t0)[3])[1]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k10030 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in ... */ -static void C_ccall f_10032(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10032,c,av);} -if(C_truep(t1)){ -/* eval.scm:1103: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[245]; -av2[3]=t1; -tp(4,av2);}} -else{ -/* eval.scm:1103: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[245]; -av2[3]=lf[246]; -tp(4,av2);}}} - -/* a10036 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in ... */ -static void C_ccall f_10037(C_word c,C_word *av){ -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_10037,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10041,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1124: case-sensitive */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10039 in a10036 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in ... */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10041,c,av);} -/* eval.scm:1125: close-input-port */ -t2=*((C_word*)lf[249]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a10048 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_10049(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -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_10049,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[239]+1)); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[215]+1)); -t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[19]+1)); -t5=C_mutate((C_word*)lf[239]+1 /* (set! ##sys#read-error-with-line-number ...) */,((C_word*)((C_word*)t0)[5])[1]); -t6=C_mutate((C_word*)lf[215]+1 /* (set! ##sys#current-load-filename ...) */,((C_word*)((C_word*)t0)[6])[1]); -t7=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[7])[1]); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* k10066 in k10078 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -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 t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10068,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10071,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1083: display */ -t3=*((C_word*)lf[252]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10069 in k10066 in k10078 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_10071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10071,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10074,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1084: display */ -t3=*((C_word*)lf[252]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[253]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10072 in k10069 in k10066 in k10078 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_10074(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10074,c,av);} -/* eval.scm:1085: chicken.base#flush-output */ -t2=*((C_word*)lf[251]+1);{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10078 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_10080(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_10080,c,av);} -a=C_alloc(4); -t2=(C_truep(t1)?((C_word*)((C_word*)t0)[2])[1]:C_SCHEME_FALSE); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10068,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1082: display */ -t4=*((C_word*)lf[252]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[254]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_9861(2,av2);}}} - -/* k10081 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_10083,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_9858(2,av2);}} -else{ -t2=C_i_stringp(((C_word*)t0)[3]); -if(C_truep(C_i_not(t2))){ -/* eval.scm:1072: ##sys#signal-hook */ -t3=*((C_word*)lf[223]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[255]; -av2[3]=lf[237]; -av2[4]=lf[256]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10098,a[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:1073: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[259]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -av2[5]=lf[237]; -tp(6,av2);}}}} - -/* k10096 in k10081 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_10098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_10098,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -f_9858(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10101,a[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:1074: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[201]+1); -tp(4,av2);}}} - -/* k10099 in k10096 in k10081 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10101(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_10101,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10104,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10128,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1075: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[259]+1); -av2[1]=t3; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -av2[5]=lf[237]; -tp(6,av2);}} -else{ -t3=t2; -f_10104(t3,C_SCHEME_FALSE);}} - -/* k10102 in k10099 in k10096 in k10081 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void f_10104(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_10104,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]=t1; -f_9858(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1076: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[198]; -tp(4,av2);}}} - -/* k10108 in k10102 in k10099 in k10096 in k10081 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_10110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_10110,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10122,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1077: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[259]+1); -av2[1]=t2; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -av2[5]=lf[237]; -tp(6,av2);}} - -/* k10120 in k10108 in k10102 in k10099 in k10096 in k10081 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_10122,c,av);} -if(C_truep(t1)){ -if(C_truep(((C_word*)t0)[2])){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -f_9858(2,av2);}} -else{ -/* eval.scm:1079: ##sys#signal-hook */ -t2=*((C_word*)lf[223]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[257]; -av2[3]=lf[237]; -av2[4]=lf[258]; -av2[5]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} -else{ -/* eval.scm:1079: ##sys#signal-hook */ -t2=*((C_word*)lf[223]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[257]; -av2[3]=lf[237]; -av2[4]=lf[258]; -av2[5]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* k10126 in k10099 in k10096 in k10081 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_10128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10128,c,av);} -t2=((C_word*)t0)[2]; -f_10104(t2,(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE));} - -/* chicken.load#evaluator in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void f_10188(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_10188,2,t1,t2);} -a=C_alloc(4); -if(C_truep(C_i_closurep(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_not(t2); -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_SCHEME_FALSE:(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10202,a[2]=t2,a[3]=((C_word)li193),tmp=(C_word)a,a+=4,tmp)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* f_10202 in chicken.load#evaluator in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -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=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_10202,c,av);} -/* eval.scm:1133: eval */ -t3=*((C_word*)lf[163]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* scheme#load in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void C_ccall f_10208(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -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(4,c,2)))){ -C_save_and_reclaim((void *)f_10208,c,av);} -a=C_alloc(4); -if(C_truep(C_rest_nullp(c,3))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f12353,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1137: evaluator */ -f_10188(t3,C_SCHEME_FALSE);} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10219,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1137: evaluator */ -f_10188(t4,t3);}} - -/* k10217 in scheme#load in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_10219(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10219,c,av);} -/* eval.scm:1137: load/internal */ -t2=lf[235]; -f_9776(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* chicken.load#load-relative in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 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=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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(4,c,3)))){ -C_save_and_reclaim((void *)f_10227,c,av);} -a=C_alloc(4); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10234,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1140: make-relative-pathname */ -f_9613(t5,*((C_word*)lf[215]+1),t2);} - -/* k10232 in chicken.load#load-relative in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_10234(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_10234,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10241,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1141: evaluator */ -f_10188(t2,((C_word*)t0)[3]);} - -/* k10239 in k10232 in chicken.load#load-relative in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10241,c,av);} -/* eval.scm:1141: load/internal */ -t2=lf[235]; -f_9776(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* chicken.load#load-noisily in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 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=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_10249,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_i_get_keyword(lf[267],t3,C_SCHEME_FALSE); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10256,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10271,a[2]=((C_word)li198),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1143: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[268]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[268]+1); -av2[1]=t5; -av2[2]=lf[270]; -av2[3]=t3; -av2[4]=t6; -tp(5,av2);}} - -/* k10254 in chicken.load#load-noisily in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_10256(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_10256,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10259,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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10268,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1143: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[268]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[268]+1); -av2[1]=t2; -av2[2]=lf[269]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t3; -tp(5,av2);}} - -/* k10257 in k10254 in chicken.load#load-noisily in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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 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_10259,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10266,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); -/* eval.scm:1144: evaluator */ -f_10188(t2,((C_word*)t0)[5]);} - -/* k10264 in k10257 in k10254 in chicken.load#load-noisily in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_10266,c,av);} -a=C_alloc(9); -/* eval.scm:1144: load/internal */ -t2=lf[235]; -f_9776(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_a_i_list(&a,3,C_SCHEME_TRUE,((C_word*)t0)[4],((C_word*)t0)[5]));} - -/* a10267 in k10254 in chicken.load#load-noisily in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10268(C_word c,C_word *av){ -C_word tmp; -C_word 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_10268,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a10270 in chicken.load#load-noisily in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_10271(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10271,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void C_ccall f_10276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_10276,c,av);} -a=C_alloc(24); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10278,a[2]=t1,a[3]=((C_word)li200),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10285,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[203]; -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11399,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_11407,a[2]=t6,a[3]=t11,a[4]=t2,a[5]=t7,a[6]=((C_word)li261),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_11407(t13,t9,lf[203]);} - -/* complete in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void f_10278(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_10278,3,t0,t1,t2);} -t3=*((C_word*)lf[228]+1); -/* eval.scm:1155: g2471 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} - -/* k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_10285(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(75,c,6)))){ -C_save_and_reclaim((void *)f_10285,c,av);} -a=C_alloc(75); -t2=C_mutate((C_word*)lf[271]+1 /* (set! chicken.load#dynamic-load-libraries ...) */,t1); -t3=C_mutate((C_word*)lf[272]+1 /* (set! chicken.load#load-unit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10287,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[278]+1 /* (set! chicken.load#load-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10378,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[24]+1 /* (set! ##sys#include-forms-from-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10405,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); -t6=C_set_block_item(lf[286] /* ##sys#setup-mode */,0,C_SCHEME_FALSE); -t7=C_mutate(&lf[287] /* (set! chicken.load#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10499,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[288]+1 /* (set! chicken.load#find-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10508,a[2]=((C_word)li211),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[290]+1 /* (set! chicken.load#find-dynamic-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10555,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[115]+1 /* (set! chicken.load#load-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10656,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[298]+1 /* (set! chicken.load#require ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10728,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[300]+1 /* (set! chicken.load#provide ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10793,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[302]+1 /* (set! chicken.load#provided? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10858,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[272]+1 /* (set! chicken.load#load-unit ...) */,*((C_word*)lf[272]+1)); -t15=C_mutate((C_word*)lf[115]+1 /* (set! chicken.load#load-extension ...) */,*((C_word*)lf[115]+1)); -t16=C_mutate((C_word*)lf[288]+1 /* (set! chicken.load#find-file ...) */,*((C_word*)lf[288]+1)); -t17=C_mutate((C_word*)lf[290]+1 /* (set! chicken.load#find-dynamic-extension ...) */,*((C_word*)lf[290]+1)); -t18=C_mutate((C_word*)lf[117]+1 /* (set! ##sys#process-require ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10899,a[2]=((C_word)li226),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[285]+1 /* (set! ##sys#resolve-include-filename ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10968,a[2]=((C_word)li230),tmp=(C_word)a,a+=3,tmp)); -t20=lf[306] /* last-error */ =C_SCHEME_FALSE;; -t21=C_mutate(&lf[307] /* (set! run-safe ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11100,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate(&lf[311] /* (set! store-result ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11159,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp)); -t23=C_mutate(&lf[313] /* (set! CHICKEN_yield ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11168,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); -t24=C_mutate(&lf[315] /* (set! CHICKEN_eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11180,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp)); -t25=C_mutate(&lf[316] /* (set! CHICKEN_eval_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11196,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp)); -t26=C_mutate(&lf[319] /* (set! store-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11222,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); -t27=C_mutate(&lf[321] /* (set! CHICKEN_eval_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11242,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp)); -t28=C_mutate(&lf[322] /* (set! CHICKEN_eval_string_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11268,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); -t29=C_mutate(&lf[323] /* (set! CHICKEN_apply ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11305,a[2]=((C_word)li252),tmp=(C_word)a,a+=3,tmp)); -t30=C_mutate(&lf[324] /* (set! CHICKEN_apply_to_string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11321,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); -t31=C_mutate(&lf[325] /* (set! CHICKEN_read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11347,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp)); -t32=C_mutate(&lf[326] /* (set! CHICKEN_load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11369,a[2]=((C_word)li258),tmp=(C_word)a,a+=3,tmp)); -t33=C_mutate(&lf[327] /* (set! CHICKEN_get_error_message ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11384,a[2]=((C_word)li259),tmp=(C_word)a,a+=3,tmp)); -t34=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t34; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t34+1)))(2,av2);}} - -/* chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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=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_10287,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10294,a[2]=t1,a[3]=t4,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1163: ##sys#provided? */ -t6=*((C_word*)lf[204]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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 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_10294,c,av);} -a=C_alloc(11); -if(C_truep(t1)){ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10297,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=t2; -f_10297(t3,C_a_i_list(&a,1,((C_word*)t0)[5]));} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10368,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10376,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1167: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[233]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[233]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}}}} - -/* k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void f_10297(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_10297,2,t0,t1);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10300,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); -/* eval.scm:1170: c-toplevel */ -f_9762(t2,((C_word*)t0)[3],((C_word*)t0)[2]);} - -/* k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_10300(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_10300,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10303,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10349,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1171: load-verbose */ -t4=*((C_word*)lf[214]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k10301 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_10303(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_10303,c,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_10308,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)li201),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_10308(t5,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* loop in k10301 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void f_10308(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_10308,3,t0,t1,t2);} -a=C_alloc(9); -if(C_truep(C_i_nullp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10322,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* ##sys#peek-c-string */ -t4=*((C_word*)lf[247]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_mpointer(&a,(void*)C_dlerror); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10331,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10342,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1178: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[227]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[227]+1); -av2[1]=t4; -av2[2]=C_slot(t2,C_fix(0)); -av2[3]=lf[275]; -tp(4,av2);}}} - -/* k10320 in loop in k10301 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -static void C_ccall f_10322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_10322,c,av);} -if(C_truep(t1)){ -/* eval.scm:1177: ##sys#error */ -t2=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[273]; -av2[4]=((C_word*)t0)[4]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} -else{ -/* eval.scm:1177: ##sys#error */ -t2=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[273]; -av2[4]=((C_word*)t0)[4]; -av2[5]=lf[274]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* k10329 in loop in k10301 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -static void C_ccall f_10331(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10331,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* eval.scm:1181: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_10308(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[4],C_fix(1)));}} - -/* k10340 in loop in k10301 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10342,c,av);} -/* eval.scm:1178: ##sys#dload */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[236]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[236]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k10347 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_10349(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_10349,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1172: scheme#display */ -t3=*((C_word*)lf[252]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[277]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_10303(2,av2);}}} - -/* k10350 in k10347 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void C_ccall f_10352(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10352,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10355,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1173: scheme#display */ -t3=*((C_word*)lf[252]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10353 in k10350 in k10347 in k10298 in k10295 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10355,c,av);} -/* eval.scm:1174: scheme#display */ -t2=*((C_word*)lf[252]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[276]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10366 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10368(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_10368,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10372,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1168: dynamic-load-libraries */ -t3=*((C_word*)lf[271]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k10370 in k10366 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_10372(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_10372,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2]; -f_10297(t2,C_a_i_cons(&a,2,((C_word*)t0)[3],t1));} - -/* k10374 in k10292 in chicken.load#load-unit in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10376,c,av);} -/* eval.scm:1167: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[200]; -tp(4,av2);}} - -/* chicken.load#load-library in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10378(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -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(0,c,4)))){ -C_save_and_reclaim((void *)f_10378,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_symbol_2(t2,lf[275]); -if(C_truep(C_i_not(t4))){ -/* eval.scm:1186: load-unit */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[272]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[272]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -av2[4]=lf[275]; -tp(5,av2);}} -else{ -t6=C_i_check_string_2(t4,lf[275]); -/* eval.scm:1186: load-unit */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[272]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[272]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -av2[4]=lf[275]; -tp(5,av2);}}} - -/* ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 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=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(6,c,5)))){ -C_save_and_reclaim((void *)f_10405,c,av);} -a=C_alloc(6); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10409,a[2]=t5,a[3]=t4,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1192: ##sys#resolve-include-filename */ -t7=*((C_word*)lf[285]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -av2[5]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} - -/* k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_10409(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_10409,c,av);} -a=C_alloc(7); -t2=*((C_word*)lf[240]+1); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10412,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); -if(C_truep(C_i_not(t1))){ -/* eval.scm:1195: ##sys#signal-hook */ -t4=*((C_word*)lf[223]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[257]; -av2[3]=lf[283]; -av2[4]=lf[284]; -av2[5]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_10412(2,av2);}}} - -/* k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10412(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_10412,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10415,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_10487,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1196: load-verbose */ -t4=*((C_word*)lf[214]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_10415(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_10415,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10420,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li208),tmp=(C_word)a,a+=7,tmp); -/* eval.scm:1198: call-with-input-file */ -t3=*((C_word*)lf[279]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[6]; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_10420(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(26,c,4)))){ -C_save_and_reclaim((void *)f_10420,c,av);} -a=C_alloc(26); -t3=C_slot(t2,C_fix(13)); -t4=((C_word*)t0)[2]; -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_10431,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10433,a[2]=t7,a[3]=t5,a[4]=((C_word)li204),tmp=(C_word)a,a+=5,tmp); -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10438,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=((C_word)li206),tmp=(C_word)a,a+=7,tmp); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10481,a[2]=t5,a[3]=t7,a[4]=((C_word)li207),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1201: ##sys#dynamic-wind */ -t12=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t12; -av2[1]=t8; -av2[2]=t9; -av2[3]=t10; -av2[4]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} - -/* k10429 in a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 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,3)))){ -C_save_and_reclaim((void *)f_10431,c,av);} -/* eval.scm:1201: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* a10432 in a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -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 *a; -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_10433,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[19]+1)); -t3=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a10437 in a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -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 *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_10438,c,av);} -a=C_alloc(6); -t2=C_i_not(((C_word*)t0)[2]); -t3=C_i_set_i_slot(((C_word*)t0)[3],C_fix(13),t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10449,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1203: read-with-source-info */ -t5=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k10447 in a10437 in a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_10449,c,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_10451,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)li205),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_10451(t5,((C_word*)t0)[5],t1,C_SCHEME_END_OF_LIST);} - -/* doloop2554 in k10447 in a10437 in a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in ... */ -static void f_10451(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_10451,4,t0,t1,t2,t3);} -a=C_alloc(6); -if(C_truep(C_eofp(t2))){ -t4=C_i_set_i_slot(((C_word*)t0)[2],C_fix(13),((C_word*)t0)[3]); -/* eval.scm:1207: reverse */ -t5=*((C_word*)lf[105]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10471,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1203: read-with-source-info */ -t5=((C_word*)t0)[5];{ -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);}}} - -/* k10469 in doloop2554 in k10447 in a10437 in a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in ... */ -static void C_ccall f_10471(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_10471,c,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_10451(t3,((C_word*)t0)[5],t1,t2);} - -/* a10480 in a10419 in k10413 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void C_ccall f_10481(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_10481,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[19]+1)); -t3=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k10485 in k10410 in k10407 in ##sys#include-forms-from-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_10487(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10487,c,av);} -if(C_truep(t1)){ -/* eval.scm:1197: chicken.base#print */ -t2=*((C_word*)lf[280]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[281]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[282]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_10415(2,av2);}}} - -/* chicken.load#file-exists? in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void f_10499(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,0,5)))){ -C_save_and_reclaim_args((void *)trf_10499,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10506,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1216: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[259]+1)); -C_word av2[6]; -av2[0]=*((C_word*)lf[259]+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);}} - -/* k10504 in chicken.load#file-exists? in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_10506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10506,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.load#find-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10508(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -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,4)))){ -C_save_and_reclaim((void *)f_10508,c,av);} -a=C_alloc(8); -if(C_truep(C_i_not(t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_nullp(t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_stringp(t3))){ -t4=C_a_i_list1(&a,1,t3); -/* eval.scm:1221: find-file */ -t5=*((C_word*)lf[288]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10537,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_10549,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1222: scheme#string-append */ -t6=*((C_word*)lf[211]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_i_car(t3); -av2[3]=lf[289]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}} - -/* k10535 in chicken.load#find-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10537,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* eval.scm:1223: find-file */ -t2=*((C_word*)lf[288]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_u_i_cdr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k10547 in chicken.load#find-file in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10549,c,av);} -/* eval.scm:1222: file-exists? */ -f_10499(((C_word*)t0)[2],t1);} - -/* chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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=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_10555,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10559,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1228: chicken.platform#repository-path */ -t5=*((C_word*)lf[296]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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 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_10559,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10562,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(((C_word*)t0)[4]))){ -/* eval.scm:1229: scheme#symbol->string */ -t3=*((C_word*)lf[295]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -f_10562(2,av2);}}} - -/* k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -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; -C_word t3; -C_word t4; -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,5)))){ -C_save_and_reclaim((void *)f_10562,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10564,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li212),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10607,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t4=(C_truep(*((C_word*)lf[286]+1))?lf[292]:C_SCHEME_END_OF_LIST); -t5=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_SCHEME_END_OF_LIST); -t6=(C_truep(((C_word*)t0)[4])?*((C_word*)lf[293]+1):C_SCHEME_END_OF_LIST); -if(C_truep(*((C_word*)lf[286]+1))){ -/* eval.scm:1237: ##sys#append */ -t7=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t7; -av2[1]=t3; -av2[2]=t4; -av2[3]=t5; -av2[4]=t6; -av2[5]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} -else{ -/* eval.scm:1237: ##sys#append */ -t7=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t7; -av2[1]=t3; -av2[2]=t4; -av2[3]=t5; -av2[4]=t6; -av2[5]=lf[294]; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}} - -/* check in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void f_10564(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_10564,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10568,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1231: string-append */ -t4=*((C_word*)lf[211]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[291]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k10566 in check in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -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 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_10568,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10571,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(((C_word*)t0)[3])){ -if(C_truep(C_i_not(*((C_word*)lf[216]+1)))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10593,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1234: chicken.platform#feature? */ -t4=*((C_word*)lf[261]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[262]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_10571(2,av2);}}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_10571(2,av2);}}} - -/* k10569 in k10566 in check in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void C_ccall f_10571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_10571,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10581,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1236: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[198]; -tp(4,av2);}}} - -/* k10579 in k10569 in k10566 in check in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -static void C_ccall f_10581(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10581,c,av);} -/* eval.scm:1236: file-exists? */ -f_10499(((C_word*)t0)[2],t1);} - -/* k10591 in k10566 in check in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void C_ccall f_10593(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_10593,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10600,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1235: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[201]+1); -tp(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_10571(2,av2);}}} - -/* k10598 in k10591 in k10566 in check in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -static void C_ccall f_10600(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10600,c,av);} -/* eval.scm:1235: file-exists? */ -f_10499(((C_word*)t0)[2],t1);} - -/* k10605 in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_10607(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_10607,c,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_10609,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li213),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_10609(t5,((C_word*)t0)[3],t1);} - -/* loop in k10605 in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void f_10609(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_10609,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_10622,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1244: check */ -t5=((C_word*)t0)[3]; -f_10564(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);}}} - -/* k10620 in loop in k10605 in k10560 in k10557 in chicken.load#find-dynamic-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -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,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* eval.scm:1245: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_10609(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[4],C_fix(1)));}} - -/* chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10656(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_10656,c,av);} -a=C_alloc(10); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10697,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10665,a[2]=t5,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1248: ##sys#provided? */ -t7=*((C_word*)lf[204]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k10663 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_10665(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_10665,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_10697(2,av2);}} -else{ -t2=C_eqp(((C_word*)t0)[3],C_SCHEME_TRUE); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1250: chicken.internal#module-requirement */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[103]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} -else{ -if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10694,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1252: chicken.internal#module-requirement */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[103]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_10697(2,av2);}}}}} - -/* k10679 in k10663 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10681(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10681,c,av);} -/* eval.scm:1250: ##sys#provided? */ -t2=*((C_word*)lf[204]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10692 in k10663 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10694(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10694,c,av);} -/* eval.scm:1252: ##sys#provided? */ -t2=*((C_word*)lf[204]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10695 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_10697(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_10697,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_memq(((C_word*)t0)[3],lf[194]))){ -/* eval.scm:1258: load-unit */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[272]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[272]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10709,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1259: find-dynamic-extension */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[290]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[290]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}}}} - -/* k10707 in k10695 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_10709,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10713,a[2]=((C_word*)t0)[2],a[3]=((C_word)li215),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1257: g2627 */ -t3=t2; -f_10713(t3,((C_word*)t0)[3],t1);} -else{ -/* eval.scm:1265: ##sys#error */ -t2=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[297]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} - -/* g2627 in k10707 in k10695 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void f_10713(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(19,0,4)))){ -C_save_and_reclaim_args((void *)trf_10713,3,t0,t1,t2);} -a=C_alloc(19); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10717,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1261: load/internal */ -t4=lf[235]; -f_9776(t4,t3,t2,C_SCHEME_FALSE,C_a_i_list(&a,5,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)t0)[2]));} - -/* k10715 in g2627 in k10707 in k10695 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_10717(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10717,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10720,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1262: ##sys#provide */ -t3=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10718 in k10715 in g2627 in k10707 in k10695 in chicken.load#load-extension in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 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,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.load#require in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ -C_save_and_reclaim((void*)f_10728,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; -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10770,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp); -t4=( - f_10770(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_10747,a[2]=t6,a[3]=((C_word)li218),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_10747(t8,t1,t2);} - -/* for-each-loop2646 in chicken.load#require in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void f_10747(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ -C_save_and_reclaim_args((void *)trf_10747,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10757,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=*((C_word*)lf[115]+1); -/* eval.scm:1269: g2677 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[115]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[115]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=C_SCHEME_FALSE; -av2[4]=lf[299]; -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);}}} - -/* k10755 in for-each-loop2646 in chicken.load#require in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10757(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10757,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10747(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* for-each-loop2636 in chicken.load#require in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static C_word f_10770(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_symbol_2(t2,lf[299]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* chicken.load#provide in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10793(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ -C_save_and_reclaim((void*)f_10793,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; -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10835,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp); -t4=( - f_10835(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_10812,a[2]=t6,a[3]=((C_word)li221),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_10812(t8,t1,t2);} - -/* for-each-loop2699 in chicken.load#provide in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void f_10812(C_word 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_10812,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10822,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=*((C_word*)lf[102]+1); -/* eval.scm:1273: g2730 */ -t6=*((C_word*)lf[102]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t3=C_SCHEME_UNDEFINED; -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k10820 in for-each-loop2699 in chicken.load#provide in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10822,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10812(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* for-each-loop2689 in chicken.load#provide in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static C_word f_10835(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_symbol_2(t2,lf[301]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* chicken.load#provided? in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 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 *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_10858,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; -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10872,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp); -t4=( - f_10872(t2) -); -t5=*((C_word*)lf[204]+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_8630,a[2]=t7,a[3]=t5,a[4]=((C_word)li224),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_8630(t9,t1,t2);} - -/* for-each-loop2742 in chicken.load#provided? in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static C_word f_10872(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_symbol_2(t2,lf[303]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* ##sys#process-require in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10899(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ -C_save_and_reclaim((void *)f_10899,c,av);} -a=C_alloc(30); -t5=C_eqp(t2,t3); -t6=(C_truep(t5)?t5:t3); -t7=C_i_assq(t2,lf[192]); -if(C_truep(t7)){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_i_cdr(t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -if(C_truep(C_i_memq(t2,lf[194]))){ -if(C_truep(t4)){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_list(&a,2,lf[149],t2); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=C_a_i_list(&a,2,lf[32],t2); -t9=C_a_i_list(&a,2,lf[32],C_SCHEME_FALSE); -t10=C_a_i_list(&a,2,lf[32],C_SCHEME_FALSE); -t11=t1;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_a_i_list(&a,4,lf[272],t8,t9,t10); -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} -else{ -t8=C_eqp(t4,lf[304]); -if(C_truep(t8)){ -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_a_i_list(&a,2,lf[149],t2); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t9=C_a_i_list(&a,2,lf[32],t2); -t10=C_a_i_list(&a,2,lf[32],t6); -t11=C_a_i_list(&a,2,lf[32],C_SCHEME_FALSE); -t12=t1;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=C_a_i_list(&a,4,lf[115],t9,t10,t11); -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}}}} - -/* ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_10968(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(c!=6) C_bad_argc_2(c,6,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ -C_save_and_reclaim((void *)f_10968,c,av);} -a=C_alloc(23); -t6=C_SCHEME_UNDEFINED; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10971,a[2]=t7,a[3]=((C_word)li227),tmp=(C_word)a,a+=4,tmp)); -t11=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11004,a[2]=t3,a[3]=t7,a[4]=((C_word)li228),tmp=(C_word)a,a+=5,tmp)); -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11043,a[2]=t1,a[3]=t9,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11097,a[2]=t9,a[3]=t12,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1326: make-relative-pathname */ -f_9613(t13,t5,t2);} - -/* test-extensions in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void f_10971(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_10971,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_10984,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1312: file-exists? */ -f_10499(t4,t2);} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10987,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1313: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=C_i_car(t3); -tp(4,av2);}}} - -/* k10982 in test-extensions in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_10984(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10984,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10985 in test-extensions in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -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 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_10987,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10990,a[2]=((C_word*)t0)[2],a[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:1314: file-exists? */ -f_10499(t2,t1);} - -/* k10988 in k10985 in test-extensions in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10990,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* eval.scm:1315: test-extensions */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_10971(t2,((C_word*)t0)[2],((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[5]));}} - -/* test in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void f_11004(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_11004,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -/* eval.scm:1317: test-extensions */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10971(t3,t1,t2,((C_word*)t0)[2]);} -else{ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11040,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1320: chicken.platform#feature? */ -t4=*((C_word*)lf[261]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[262]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k11038 in test in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11040(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_11040,c,av);} -a=C_alloc(6); -if(C_truep(C_i_not(t1))){ -t2=C_a_i_list1(&a,1,lf[198]); -/* eval.scm:1317: test-extensions */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10971(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);} -else{ -t2=C_i_not(((C_word*)t0)[5]); -t3=(C_truep(t2)?C_a_i_list2(&a,2,*((C_word*)lf[201]+1),lf[198]):C_a_i_list2(&a,2,lf[198],*((C_word*)lf[201]+1))); -/* eval.scm:1317: test-extensions */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_10971(t4,((C_word*)t0)[3],((C_word*)t0)[4],t3);}} - -/* k11041 in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 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 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_11043,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11053,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_11090,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1330: chicken.platform#repository-path */ -t4=*((C_word*)lf[296]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=*((C_word*)lf[293]+1); -f_11053(2,av2);}}}} - -/* k11051 in k11041 in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11053(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_11053,c,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_11055,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li229),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_11055(t5,((C_word*)t0)[4],t1);} - -/* loop in k11051 in k11041 in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void f_11055(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ -C_save_and_reclaim_args((void *)trf_11055,3,t0,t1,t2);} -a=C_alloc(9); -t3=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t3)){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11065,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11079,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1333: string-append */ -t6=*((C_word*)lf[211]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_slot(t2,C_fix(0)); -av2[3]=lf[305]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} - -/* k11063 in loop in k11051 in k11041 in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11065(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11065,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* eval.scm:1336: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_11055(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[4],C_fix(1)));}} - -/* k11077 in loop in k11051 in k11041 in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11079(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11079,c,av);} -/* eval.scm:1333: test */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_11004(t2,((C_word*)t0)[3],t1);} - -/* k11088 in k11041 in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11090(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11090,c,av);} -if(C_truep(t1)){ -/* eval.scm:1328: ##sys#append */ -t2=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[293]+1); -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -/* eval.scm:1328: ##sys#append */ -t2=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[293]+1); -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k11095 in ##sys#resolve-include-filename in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_11097(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11097,c,av);} -/* eval.scm:1326: test */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_11004(t2,((C_word*)t0)[3],t1);} - -/* run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void f_11100(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_11100,2,t1,t2);} -a=C_alloc(7); -t3=lf[306] /* last-error */ =C_SCHEME_FALSE;; -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11105,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11110,a[2]=t2,a[3]=((C_word)li237),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1357: scheme#call-with-current-continuation */ -t6=*((C_word*)lf[310]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k11103 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_11105(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11105,c,av);} -/* eval.scm:1355: g2911 */ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 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=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_11110,c,av);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11116,a[2]=t2,a[3]=((C_word)li232),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11135,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li236),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1357: chicken.condition#with-exception-handler */ -t5=*((C_word*)lf[309]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* a11115 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 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=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_11116,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11122,a[2]=t2,a[3]=((C_word)li231),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1357: k2908 */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a11121 in a11115 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11122(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *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_11122,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11126,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1358: scheme#open-output-string */ -t3=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11124 in a11121 in a11115 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -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; -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_11126,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11129,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1359: chicken.condition#print-error-message */ -t3=*((C_word*)lf[308]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k11127 in k11124 in a11121 in a11115 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void C_ccall f_11129(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11129,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11133,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1360: scheme#get-output-string */ -t3=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11131 in k11127 in k11124 in a11121 in a11115 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -static void C_ccall f_11133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11133,c,av);} -t2=C_mutate(&lf[306] /* (set! last-error ...) */,t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a11134 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11135(C_word c,C_word *av){ -C_word tmp; -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_11135,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11141,a[2]=((C_word*)t0)[2],a[3]=((C_word)li233),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11147,a[2]=((C_word*)t0)[3],a[3]=((C_word)li235),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1357: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a11140 in a11134 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11141(C_word c,C_word *av){ -C_word tmp; -C_word 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_11141,c,av);} -/* eval.scm:1362: thunk */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* a11146 in a11134 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 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((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_11147,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_11153,a[2]=t2,a[3]=((C_word)li234),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1357: k2908 */ -t4=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a11152 in a11146 in a11134 in a11109 in run-safe in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11153(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -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_11153,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -C_apply_values(3,av2);}} - -/* store-result in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void f_11159(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_11159,3,t1,t2,t3);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11163,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1369: ##sys#gc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[312]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[312]+1); -av2[1]=t4; -av2[2]=C_SCHEME_FALSE; -tp(3,av2);}} - -/* k11161 in store-result in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_11163(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11163,c,av);} -if(C_truep(((C_word*)t0)[2])){ -t2=C_store_result(((C_word*)t0)[3],((C_word*)t0)[2]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* CHICKEN_yield in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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; -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_11168,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11174,a[2]=((C_word)li240),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1375: run-safe */ -f_11100(t1,t2);} - -/* a11173 in CHICKEN_yield in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 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(3,c,2)))){ -C_save_and_reclaim((void *)f_11174,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11178,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1375: ##sys#thread-yield! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[314]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k11176 in a11173 in CHICKEN_yield in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11178(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11178,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* CHICKEN_eval in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 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=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_11180,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11186,a[2]=t3,a[3]=t2,a[4]=((C_word)li242),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1378: run-safe */ -f_11100(t1,t4);} - -/* a11185 in CHICKEN_eval in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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 *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_11186,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11194,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1380: scheme#eval */ -t3=*((C_word*)lf[163]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11192 in a11185 in CHICKEN_eval in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11194(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11194,c,av);} -/* eval.scm:1380: store-result */ -f_11159(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} - -/* CHICKEN_eval_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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=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_11196,c,av);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11200,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1382: ##sys#peek-c-string */ -t5=*((C_word*)lf[247]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k11198 in CHICKEN_eval_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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 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_11200,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11205,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li244),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1383: run-safe */ -f_11100(((C_word*)t0)[3],t2);} - -/* a11204 in k11198 in CHICKEN_eval_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11205(C_word c,C_word *av){ -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_11205,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11209,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1385: scheme#open-input-string */ -t3=*((C_word*)lf[318]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11207 in a11204 in k11198 in CHICKEN_eval_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11209(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11209,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11216,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_11220,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1386: scheme#read */ -t4=*((C_word*)lf[317]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k11214 in k11207 in a11204 in k11198 in CHICKEN_eval_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11216,c,av);} -/* eval.scm:1386: store-result */ -f_11159(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} - -/* k11218 in k11207 in a11204 in k11198 in CHICKEN_eval_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11220(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11220,c,av);} -/* eval.scm:1386: scheme#eval */ -t2=*((C_word*)lf[163]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* store-string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static C_word f_11222(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_stack_overflow_check;{} -t4=C_slot(t1,C_fix(0)); -t5=C_block_size(t4); -t6=C_fixnum_difference(t5,C_fix(1)); -if(C_truep(C_fixnum_greater_or_equal_p(t6,t2))){ -t7=C_mutate(&lf[306] /* (set! last-error ...) */,lf[320]); -return(C_SCHEME_FALSE);} -else{ -return(C_copy_result_string(t4,t3,t6));}} - -/* CHICKEN_eval_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_11242(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_11242,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11248,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=((C_word)li247),tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1403: run-safe */ -f_11100(t1,t5);} - -/* a11247 in CHICKEN_eval_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_11248(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *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_11248,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11252,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:1405: scheme#open-output-string */ -t3=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11250 in a11247 in CHICKEN_eval_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11252(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_11252,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11255,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11266,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1406: scheme#eval */ -t4=*((C_word*)lf[163]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k11253 in k11250 in a11247 in CHICKEN_eval_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11255(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_11255,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11262,a[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:1407: scheme#get-output-string */ -t3=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11260 in k11253 in k11250 in a11247 in CHICKEN_eval_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11262(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11262,c,av);} -/* eval.scm:1407: store-string */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* eval.scm:1407: store-string */ - f_11222(t1,((C_word*)t0)[3],((C_word*)t0)[4]) -); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11264 in k11250 in a11247 in CHICKEN_eval_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11266(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11266,c,av);} -/* eval.scm:1406: scheme#write */ -t2=*((C_word*)lf[16]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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=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_11268,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11272,a[2]=t4,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1409: ##sys#peek-c-string */ -t6=*((C_word*)lf[247]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_11272,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11277,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word)li249),tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1412: run-safe */ -f_11100(((C_word*)t0)[4],t2);} - -/* a11276 in k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -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!=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_11277,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11281,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:1414: scheme#open-output-string */ -t3=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11279 in a11276 in k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 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 t3; -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,2)))){ -C_save_and_reclaim((void *)f_11281,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11284,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11295,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11299,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11303,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1415: scheme#open-input-string */ -t6=*((C_word*)lf[318]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k11282 in k11279 in a11276 in k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11284(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_11284,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11291,a[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:1416: scheme#get-output-string */ -t3=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11289 in k11282 in k11279 in a11276 in k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void C_ccall f_11291(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11291,c,av);} -/* eval.scm:1416: store-string */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* eval.scm:1416: store-string */ - f_11222(t1,((C_word*)t0)[3],((C_word*)t0)[4]) -); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11293 in k11279 in a11276 in k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11295(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11295,c,av);} -/* eval.scm:1415: scheme#write */ -t2=*((C_word*)lf[16]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k11297 in k11279 in a11276 in k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11299(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11299,c,av);} -/* eval.scm:1415: scheme#eval */ -t2=*((C_word*)lf[163]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k11301 in k11279 in a11276 in k11270 in CHICKEN_eval_string_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 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,2)))){ -C_save_and_reclaim((void *)f_11303,c,av);} -/* eval.scm:1415: scheme#read */ -t2=*((C_word*)lf[317]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* CHICKEN_apply in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_11305(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_11305,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11311,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=((C_word)li251),tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1421: run-safe */ -f_11100(t1,t5);} - -/* a11310 in CHICKEN_apply in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_11311(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11311,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11319,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -C_apply(4,av2);}} - -/* k11317 in a11310 in CHICKEN_apply in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_11319(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11319,c,av);} -/* eval.scm:1421: store-result */ -f_11159(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} - -/* CHICKEN_apply_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_11321(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11321,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11327,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t3,a[6]=((C_word)li253),tmp=(C_word)a,a+=7,tmp); -/* eval.scm:1426: run-safe */ -f_11100(t1,t6);} - -/* a11326 in CHICKEN_apply_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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 *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_11327,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11331,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:1428: scheme#open-output-string */ -t3=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11329 in a11326 in CHICKEN_apply_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 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; -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_11331,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11334,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11345,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -C_apply(4,av2);}} - -/* k11332 in k11329 in a11326 in CHICKEN_apply_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11334(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11334,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11341,a[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:1430: scheme#get-output-string */ -t3=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11339 in k11332 in k11329 in a11326 in CHICKEN_apply_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11341(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11341,c,av);} -/* eval.scm:1430: store-string */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* eval.scm:1430: store-string */ - f_11222(t1,((C_word*)t0)[3],((C_word*)t0)[4]) -); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11343 in k11329 in a11326 in CHICKEN_apply_to_string in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11345(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11345,c,av);} -/* eval.scm:1429: scheme#write */ -t2=*((C_word*)lf[16]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* CHICKEN_read in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_11347(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_11347,c,av);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11351,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1432: ##sys#peek-c-string */ -t5=*((C_word*)lf[247]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k11349 in CHICKEN_read in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_11351,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11356,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li255),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1433: run-safe */ -f_11100(((C_word*)t0)[3],t2);} - -/* a11355 in k11349 in CHICKEN_read in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 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 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_11356,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11360,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1435: scheme#open-input-string */ -t3=*((C_word*)lf[318]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11358 in a11355 in k11349 in CHICKEN_read in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11360(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11360,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11367,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1436: scheme#read */ -t3=*((C_word*)lf[317]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11365 in k11358 in a11355 in k11349 in CHICKEN_read in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_11367(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11367,c,av);} -/* eval.scm:1436: store-result */ -f_11159(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} - -/* CHICKEN_load in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 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=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_11369,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11373,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1438: ##sys#peek-c-string */ -t4=*((C_word*)lf[247]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11371 in CHICKEN_load in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_11373(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_11373,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11378,a[2]=t1,a[3]=((C_word)li257),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1439: run-safe */ -f_11100(((C_word*)t0)[2],t2);} - -/* a11377 in k11371 in CHICKEN_load in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -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 *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_11378,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11382,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1439: scheme#load */ -t3=*((C_word*)lf[264]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11380 in a11377 in k11371 in CHICKEN_load in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_11382(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11382,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* CHICKEN_get_error_message in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_11384(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_11384,c,av);} -t4=lf[306]; -if(C_truep(lf[306])){ -t5=lf[306]; -t6=lf[306]; -/* eval.scm:1442: store-string */ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=( -/* eval.scm:1442: store-string */ - f_11222(lf[306],t3,t2) -); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -/* eval.scm:1442: store-string */ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=( -/* eval.scm:1442: store-string */ - f_11222(lf[328],t3,t2) -); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k11397 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_11399(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11399,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11401,a[2]=((C_word)li260),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1156: scheme#make-parameter */ -t3=*((C_word*)lf[329]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* a11400 in k11397 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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=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_11401,c,av);} -t3=C_i_check_list(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* map-loop2475 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void f_11407(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_11407,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11432,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); -/* eval.scm:1157: g2481 */ -t4=((C_word*)t0)[4]; -f_10278(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k11430 in map-loop2475 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_11432(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11432,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_11407(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k11444 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void C_ccall f_11446(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11446,c,av);} -/* eval.scm:1149: scheme#string-append */ -t2=*((C_word*)lf[211]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[200]; -av2[3]=lf[330]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11456 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11458(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_11458,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2]; -f_9563(t2,C_a_i_list(&a,1,t1));} - -/* k11460 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11462(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11462,c,av);} -/* eval.scm:974: scheme#string-append */ -t2=*((C_word*)lf[211]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[334]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k11487 in k11491 in k11495 in k11499 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11489,c,av);} -t2=C_eqp(t1,lf[341]); -t3=((C_word*)t0)[2]; -f_9543(t3,(C_truep(t2)?lf[342]:lf[196]));} - -/* k11491 in k11495 in k11499 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11493,c,av);} -a=C_alloc(3); -t2=C_eqp(t1,lf[340]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11489,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:962: chicken.platform#machine-type */ -t4=*((C_word*)lf[343]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=((C_word*)t0)[2]; -f_9543(t3,lf[196]);}} - -/* k11495 in k11499 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11497(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11497,c,av);} -a=C_alloc(3); -t2=C_eqp(t1,lf[338]); -if(C_truep(t2)){ -t3=((C_word*)t0)[2]; -f_9543(t3,lf[339]);} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11493,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:961: chicken.platform#software-version */ -t4=*((C_word*)lf[335]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k11499 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11501,c,av);} -a=C_alloc(3); -t2=C_eqp(t1,lf[336]); -if(C_truep(t2)){ -t3=((C_word*)t0)[2]; -f_9543(t3,lf[337]);} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11497,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:960: chicken.platform#software-version */ -t4=*((C_word*)lf[335]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11505(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,3)))){ -C_save_and_reclaim((void *)f_11505,c,av);} -a=C_alloc(21); -t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),t1); -t3=C_mutate((C_word*)lf[185]+1 /* (set! scheme#scheme-report-environment ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8202,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li167),tmp=(C_word)a,a+=5,tmp)); -t4=C_mutate((C_word*)lf[188]+1 /* (set! scheme#null-environment ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8227,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word)li168),tmp=(C_word)a,a+=5,tmp)); -t5=C_a_i_provide(&a,1,lf[191]); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8253,a[2]=((C_word*)t0)[6],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t6; -C_eval_toplevel(2,av2);}} - -/* k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_11513,c,av);} -a=C_alloc(7); -t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),t1); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11505,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); -/* eval.scm:882: strip */ -f_8144(t3,C_slot(((C_word*)t0)[3],C_fix(3)));} - -/* k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11521(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_11521,c,av);} -a=C_alloc(8); -t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),t1); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11513,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); -/* eval.scm:881: strip */ -f_8144(t3,C_slot(((C_word*)t0)[3],C_fix(3)));} - -/* k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11529(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_11529,c,av);} -a=C_alloc(8); -t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),t1); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11521,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); -/* eval.scm:880: strip */ -f_8144(t3,C_slot(((C_word*)t0)[3],C_fix(3)));} - -/* a11534 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_11535,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11539,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:846: ##sys#print */ -t5=*((C_word*)lf[354]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[355]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k11537 in a11534 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_11539,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11542,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:847: ##sys#print */ -t3=*((C_word*)lf[354]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_slot(((C_word*)t0)[4],C_fix(1)); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11540 in k11537 in a11534 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11542(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11542,c,av);} -/* eval.scm:848: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[353]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[353]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(62); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_11551,c,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_11557,a[2]=t5,a[3]=t3,a[4]=((C_word)li263),tmp=(C_word)a,a+=5,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11578,a[2]=t5,a[3]=t3,a[4]=((C_word)li267),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:800: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t6; -av2[3]=t7; -C_values(4,av2);}} - -/* a11556 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_11557,c,av);} -a=C_alloc(12); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11561,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_11576,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:803: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[5]+1); -av2[1]=t6; -av2[2]=t2; -av2[3]=t3; -tp(4,av2);}} -else{ -t6=t5; -f_11561(t6,C_SCHEME_UNDEFINED);}} - -/* k11559 in a11556 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_11561(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_11561,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11564,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:804: ##sys#put! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[357]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[357]+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);}} - -/* k11562 in k11559 in a11556 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11564(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11564,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11574 in a11556 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11576(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_11576,c,av);} -a=C_alloc(12); -t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[4])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3); -t5=((C_word*)t0)[5]; -f_11561(t5,t4);} - -/* a11577 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_11578,c,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_11584,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li264),tmp=(C_word)a,a+=6,tmp); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11589,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=((C_word)li266),tmp=(C_word)a,a+=7,tmp); -/* eval.scm:809: scheme#dynamic-wind */ -t8=*((C_word*)lf[160]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t8; -av2[1]=t1; -av2[2]=t6; -av2[3]=t2; -av2[4]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} - -/* a11583 in a11577 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11584(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -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_11584,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); -t3=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_TRUE); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a11588 in a11577 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_11589,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11593,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_11596,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word)li265),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_11596(t6,t2);} - -/* k11591 in a11588 in a11577 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11593(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11593,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* doloop1560 in a11588 in a11577 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_11596(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,3)))){ -C_save_and_reclaim_args((void *)trf_11596,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_11606,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[4]; -av2[0]=0; -av2[1]=t3; -av2[2]=*((C_word*)lf[357]+1); -av2[3]=C_i_car(((C_word*)((C_word*)t0)[3])[1]); -C_apply(4,av2);}}} - -/* k11604 in doloop1560 in a11588 in a11577 in a11550 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11606(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11606,c,av);} -t2=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t4=((C_word*)((C_word*)t0)[3])[1]; -f_11596(t4,((C_word*)t0)[4]);} - -/* a11618 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_11619,c,av);} -t4=C_mutate((C_word*)lf[43]+1 /* (set! ##sys#put/restore! ...) */,t2); -t5=C_mutate((C_word*)lf[106]+1 /* (set! ##sys#with-property-restore ...) */,t3); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11624(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_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_11624,c,av);} -a=C_alloc(5); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11631,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:762: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t5; -tp(2,av2);}} - -/* k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11631(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(35,c,4)))){ -C_save_and_reclaim((void *)f_11631,c,av);} -a=C_alloc(35); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_nullp(t1))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11727,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=C_a_i_cons(&a,2,lf[179],*((C_word*)lf[358]+1)); -t5=C_a_i_cons(&a,2,lf[178],*((C_word*)lf[359]+1)); -t6=C_a_i_list(&a,3,lf[23],t4,t5); -/* eval.scm:768: compile-to-closure */ -f_3620(t3,t6,C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE));} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_11634(2,av2);}}} - -/* k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11634(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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(29,c,4)))){ -C_save_and_reclaim((void *)f_11634,c,av);} -a=C_alloc(29); -if(C_truep(((C_word*)t0)[2])){ -t2=C_i_check_structure_2(((C_word*)t0)[2],lf[168],lf[0]); -t3=C_slot(((C_word*)t0)[2],C_fix(2)); -t4=C_slot(((C_word*)t0)[2],C_fix(3)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11649,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -if(C_truep(t3)){ -t6=*((C_word*)lf[98]+1); -t7=*((C_word*)lf[9]+1); -t8=t4; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=t3; -t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); -t12=C_SCHEME_TRUE; -t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); -t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11657,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=t7,a[6]=t6,a[7]=((C_word)li270),tmp=(C_word)a,a+=8,tmp); -t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li271),tmp=(C_word)a,a+=5,tmp); -t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11697,a[2]=t9,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li272),tmp=(C_word)a,a+=7,tmp); -/* eval.scm:777: ##sys#dynamic-wind */ -t17=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t17; -av2[1]=t5; -av2[2]=t14; -av2[3]=t15; -av2[4]=t16; -((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} -else{ -/* eval.scm:780: compile-to-closure */ -f_3620(t5,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,((C_word*)t0)[2],C_SCHEME_FALSE,C_SCHEME_TRUE));}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11718,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:783: compile-to-closure */ -f_3620(t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE));}} - -/* k11647 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11649(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11649,c,av);} -/* eval.scm:774: g1508 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a11656 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11657(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ -C_save_and_reclaim((void *)f_11657,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11661,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ -/* eval.scm:777: ##sys#macro-environment1511 */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_11661(2,av2);}}} - -/* k11659 in a11656 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11661(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11661,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); -if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ -/* eval.scm:777: ##sys#current-environment1512 */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[3])[1]; -f_11664(2,av2);}}} - -/* k11662 in k11659 in a11656 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_11664,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11668,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); -/* eval.scm:777: ##sys#macro-environment1511 */ -t3=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k11666 in k11662 in k11659 in a11656 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11668(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_11668,c,av);} -a=C_alloc(9); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11672,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); -/* eval.scm:777: ##sys#current-environment1512 */ -t4=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k11670 in k11666 in k11662 in k11659 in a11656 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11672(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_11672,c,av);} -a=C_alloc(6); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11675,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); -/* eval.scm:777: ##sys#macro-environment1511 */ -t4=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k11673 in k11670 in k11666 in k11662 in k11659 in a11656 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11675(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11675,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11678,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:777: ##sys#current-environment1512 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k11676 in k11673 in k11670 in k11666 in k11662 in k11659 in a11656 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11678,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a11686 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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!=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_11687,c,av);} -a=C_alloc(12); -t2=C_slot(((C_word*)t0)[2],C_fix(4)); -/* eval.scm:779: compile-to-closure */ -f_3620(t1,((C_word*)t0)[3],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,((C_word*)t0)[2],t2,C_SCHEME_TRUE));} - -/* a11696 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11697(C_word c,C_word *av){ -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_11697,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11701,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:777: ##sys#macro-environment1511 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k11699 in a11696 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11701(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11701,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11704,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:777: ##sys#current-environment1512 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k11702 in k11699 in a11696 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11704(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ -C_save_and_reclaim((void *)f_11704,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11707,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); -/* eval.scm:777: ##sys#macro-environment1511 */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k11705 in k11702 in k11699 in a11696 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11707(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11707,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11710,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:777: ##sys#current-environment1512 */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k11708 in k11705 in k11702 in k11699 in a11696 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11710(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_11710,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); -t4=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k11716 in k11632 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11718(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11718,c,av);} -/* eval.scm:772: g1540 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k11725 in k11629 in a11623 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_11727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11727,c,av);} -/* eval.scm:767: g1501 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k3563 */ -static void C_ccall f_3565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_3565,c,av);} -a=C_alloc(19); -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3568,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -/* k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3568,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3571,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_internal_toplevel(2,av2);}} - -/* k3569 in k3566 in k3563 */ -static void C_ccall f_3571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3571,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3574,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_expand_toplevel(2,av2);}} - -/* k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3574,c,av);} -a=C_alloc(3); -t2=C_set_block_item(lf[2] /* ##sys#unbound-in-eval */,0,C_SCHEME_FALSE); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3618,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:82: scheme#make-parameter */ -t4=*((C_word*)lf[329]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_fix(1); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* a3581 in decorate in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3582(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word 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_3582,c,av);} -t3=C_immp(t2); -t4=C_i_not(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_lambdainfop(t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a3594 in decorate in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_3595,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3603,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_3607,a[2]=t4,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:76: scheme#open-output-string */ -t6=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k3601 in a3594 in decorate in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_3603,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k3605 in a3594 in decorate in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_3607,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3610,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:77: scheme#write */ -t3=*((C_word*)lf[16]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k3608 in k3605 in a3594 in decorate in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3610,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3613,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:78: scheme#get-output-string */ -t3=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k3611 in k3608 in k3605 in a3594 in decorate in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3613(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_3613,c,av);} -/* eval.scm:75: ##sys#make-lambda-info */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[14]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ -C_save_and_reclaim((void *)f_3618,c,av);} -a=C_alloc(12); -t2=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#eval-debug-level ...) */,t1); -t3=C_mutate(&lf[4] /* (set! chicken.eval#compile-to-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3620,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[78]+1 /* (set! ##sys#eval/meta ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7907,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8020,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11624,a[2]=((C_word)li273),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:760: scheme#make-parameter */ -t7=*((C_word*)lf[329]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3620(C_word 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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(68,0,8)))){ -C_save_and_reclaim_args((void *)trf_3620,4,t1,t2,t3,t4);} -a=C_alloc(68); -t5=C_i_nullp(t4); -t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); -t7=C_i_nullp(t4); -t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); -t9=C_i_nullp(t8); -t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); -t11=C_i_nullp(t8); -t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); -t13=C_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_i_nullp(t16); -t18=(C_truep(t17)?C_SCHEME_FALSE:C_i_car(t16)); -t19=C_i_nullp(t16); -t20=(C_truep(t19)?C_SCHEME_END_OF_LIST:C_i_cdr(t16)); -t21=C_SCHEME_UNDEFINED; -t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); -t23=C_SCHEME_UNDEFINED; -t24=(*a=C_VECTOR_TYPE|1,a[1]=t23,tmp=(C_word)a,a+=2,tmp); -t25=C_SCHEME_UNDEFINED; -t26=(*a=C_VECTOR_TYPE|1,a[1]=t25,tmp=(C_word)a,a+=2,tmp); -t27=C_SCHEME_UNDEFINED; -t28=(*a=C_VECTOR_TYPE|1,a[1]=t27,tmp=(C_word)a,a+=2,tmp); -t29=C_SCHEME_UNDEFINED; -t30=(*a=C_VECTOR_TYPE|1,a[1]=t29,tmp=(C_word)a,a+=2,tmp); -t31=C_SCHEME_UNDEFINED; -t32=(*a=C_VECTOR_TYPE|1,a[1]=t31,tmp=(C_word)a,a+=2,tmp); -t33=C_SCHEME_UNDEFINED; -t34=(*a=C_VECTOR_TYPE|1,a[1]=t33,tmp=(C_word)a,a+=2,tmp); -t35=C_SCHEME_UNDEFINED; -t36=(*a=C_VECTOR_TYPE|1,a[1]=t35,tmp=(C_word)a,a+=2,tmp); -t37=C_SCHEME_UNDEFINED; -t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); -t39=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3647,a[2]=t22,a[3]=((C_word)li0),tmp=(C_word)a,a+=4,tmp)); -t40=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3682,a[2]=t22,a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp)); -t41=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3716,a[2]=t24,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); -t42=C_set_block_item(t28,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3805,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); -t43=C_set_block_item(t30,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3819,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); -t44=C_set_block_item(t32,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3836,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); -t45=C_set_block_item(t34,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3869,a[2]=t36,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp)); -t46=C_set_block_item(t36,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_3933,a[2]=t26,a[3]=t14,a[4]=t36,a[5]=t10,a[6]=t32,a[7]=t24,a[8]=t34,a[9]=t38,a[10]=t30,a[11]=((C_word)li138),tmp=(C_word)a,a+=12,tmp)); -t47=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7508,a[2]=t28,a[3]=t36,a[4]=((C_word)li151),tmp=(C_word)a,a+=5,tmp)); -t48=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7857,a[2]=t36,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t6,a[7]=t18,tmp=(C_word)a,a+=8,tmp); -/* eval.scm:734: ##sys#eval-debug-level */ -t49=*((C_word*)lf[3]+1);{ -C_word av2[2]; -av2[0]=t49; -av2[1]=t48; -((C_proc)(void*)(*((C_word*)t49+1)))(2,av2);}} - -/* find-id in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3647(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_3647,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_3660,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_caar(t3); -t6=C_eqp(t2,t5); -if(C_truep(t6)){ -t7=C_u_i_car(t3); -t8=t4; -f_3660(t8,C_i_symbolp(C_u_i_cdr(t7)));} -else{ -t7=t4; -f_3660(t7,C_SCHEME_FALSE);}}} - -/* k3658 in find-id in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3660(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_3660,2,t0,t1);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_u_i_cdr(C_u_i_car(((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* eval.scm:94: find-id */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_3647(t2,((C_word*)t0)[2],((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]));}} - -/* rename in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3682(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_3682,3,t0,t1,t2);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3686,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3714,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:97: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t4; -tp(2,av2);}} - -/* k3684 in rename in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_3686,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3694,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3700,a[2]=((C_word*)t0)[3],a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:97: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}}} - -/* a3693 in k3684 in rename in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -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_3694,c,av);} -/* eval.scm:98: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[5]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[5]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[6]; -tp(4,av2);}} - -/* a3699 in k3684 in rename in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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((c-2)*C_SIZEOF_PAIR +5,c,3)))){ -C_save_and_reclaim((void*)f_3700,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_3707,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t3; -av2[2]=*((C_word*)lf[8]+1); -av2[3]=t2; -C_apply(4,av2);}} - -/* k3705 in a3699 in k3684 in rename in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3707(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_3707,c,av);} -if(C_truep(t1)){{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[7]+1); -av2[3]=((C_word*)t0)[3]; -C_apply(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k3712 in rename in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_3714,c,av);} -/* eval.scm:97: find-id */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3647(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* lookup in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3716(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ -C_save_and_reclaim_args((void *)trf_3716,4,t0,t1,t2,t3);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3720,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:102: rename */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_3682(t5,t4,t2);} - -/* k3718 in lookup in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_3720,c,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_3728,a[2]=t1,a[3]=t3,a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_3728(t5,((C_word*)t0)[2],((C_word*)t0)[3],C_fix(0));} - -/* loop in k3718 in lookup in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3728(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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(8,0,3)))){ -C_save_and_reclaim_args((void *)trf_3728,4,t0,t1,t2,t3);} -a=C_alloc(8); -if(C_truep(C_i_nullp(t2))){ -/* eval.scm:105: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=C_SCHEME_FALSE; -av2[3]=((C_word*)t0)[2]; -C_values(4,av2);}} -else{ -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3775,a[2]=((C_word*)t0)[2],a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp); -t6=( - f_3775(t5,t4,C_fix(0)) -); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3745,a[2]=t3,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:105: g261 */ -t8=t7; -f_3745(t8,t1,t6);} -else{ -/* eval.scm:107: loop */ -t9=t1; -t10=C_slot(t2,C_fix(1)); -t11=C_fixnum_plus(t3,C_fix(1)); -t1=t9; -t2=t10; -t3=t11; -goto loop;}}} - -/* g261 in loop in k3718 in lookup in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3745(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_3745,3,t0,t1,t2);} -/* eval.scm:106: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -C_values(4,av2);}} - -/* loop in loop in k3718 in lookup in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static C_word f_3775(C_word t0,C_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))){ -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{ -t6=C_slot(t1,C_fix(1)); -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}}} - -/* emit-trace-info in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static C_word f_3805(C_word *a,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_stack_overflow_check;{} -if(C_truep(t1)){ -t7=C_a_i_record4(&a,4,lf[10],t4,t5,t6); -return(C_emit_trace_info(t2,t3,t7,C_slot(*((C_word*)lf[11]+1),C_fix(14))));} -else{ -t7=C_SCHEME_UNDEFINED; -return(t7);}} - -/* emit-syntax-trace-info in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3819(C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ -C_save_and_reclaim_args((void *)trf_3819,4,t1,t2,t3,t4);} -a=C_alloc(5); -if(C_truep(t2)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3827,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:126: chicken.syntax#get-line-number */ -{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]=t3; -tp(3,av2);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k3825 in emit-syntax-trace-info in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3827(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_3827,c,av);} -t2=(C_truep(t1)?t1:lf[12]); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_emit_trace_info(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_slot(*((C_word*)lf[11]+1),C_fix(14))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* decorate in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3836(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_3836,3,t1,t2,t3);} -a=C_alloc(7); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3582,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3595,a[2]=t3,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:69: ##sys#decorate-lambda */ -{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]=t2; -av2[3]=t4; -av2[4]=t5; -tp(5,av2);}} - -/* f_3844 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3844(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word 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,2)))){ -C_save_and_reclaim((void *)f_3844,c,av);} -a=C_alloc(10); -t4=C_eqp(t2,t3); -t5=C_i_not(t4); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3851,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t5)){ -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3854,a[2]=t6,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* eval.scm:137: chicken.syntax#get-line-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[13]+1); -av2[1]=t7; -av2[2]=t2; -tp(3,av2);}} -else{ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* k3849 */ -static void C_ccall f_3851(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_3851,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k3852 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_3854,c,av);} -if(C_truep(t1)){ -if(C_truep(t1)){ -/* eval.scm:138: ##sys#update-line-number-database! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[31]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} -else{ -if(C_truep(((C_word*)t0)[5])){ -/* eval.scm:138: ##sys#update-line-number-database! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[31]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[31]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[5]; -tp(4,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} - -/* include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3869(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ -C_save_and_reclaim_args((void *)trf_3869,8,t0,t1,t2,t3,t4,t5,t6,t7);} -a=C_alloc(9); -t8=C_i_cadr(t2); -t9=C_i_caddr(t2); -t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3883,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,a[5]=t6,a[6]=t7,a[7]=t2,a[8]=((C_word)li16),tmp=(C_word)a,a+=9,tmp); -/* eval.scm:142: ##sys#include-forms-from-file */ -t11=*((C_word*)lf[24]+1);{ -C_word av2[6]; -av2[0]=t11; -av2[1]=t1; -av2[2]=t8; -av2[3]=t9; -av2[4]=t3; -av2[5]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} - -/* a3882 in include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -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(12,c,3)))){ -C_save_and_reclaim((void *)f_3883,c,av);} -a=C_alloc(12); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3887,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]=t1,tmp=(C_word)a,a+=9,tmp); -t5=C_i_cdddr(((C_word*)t0)[7]); -if(C_truep(C_i_pairp(t5))){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3916,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:147: scheme#append */ -t7=*((C_word*)lf[22]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=C_i_cadddr(((C_word*)t0)[7]); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_cons(&a,2,lf[23],t2); -f_3887(2,av2);}}} - -/* k3885 in a3882 in include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ -C_save_and_reclaim((void *)f_3887,c,av);} -a=C_alloc(23); -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_3892,a[2]=t5,a[3]=t3,a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_3897,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)li14),tmp=(C_word)a,a+=9,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3903,a[2]=t3,a[3]=t5,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:150: ##sys#dynamic-wind */ -t9=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=((C_word*)t0)[8]; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a3891 in k3885 in a3882 in include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3892(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -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_3892,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[19]+1)); -t3=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a3896 in k3885 in a3882 in include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -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_3897,c,av);} -/* eval.scm:151: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* a3902 in k3885 in a3882 in include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3903(C_word c,C_word *av){ -C_word tmp; -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_3903,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[19]+1)); -t3=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k3914 in a3882 in include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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,2)))){ -C_save_and_reclaim((void *)f_3916,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3920,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:148: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k3918 in k3914 in a3882 in include-file in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3920(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_3920,c,av);} -/* eval.scm:146: ##sys#canonicalize-body */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[21]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3933(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(18,0,2)))){ -C_save_and_reclaim_args((void *)trf_3933,8,t0,t1,t2,t3,t4,t5,t6,t7);} -a=C_alloc(18); -t8=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_3940,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t6,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=t4,a[10]=t5,a[11]=t7,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],a[17]=((C_word*)t0)[10],tmp=(C_word)a,a+=18,tmp); -/* eval.scm:154: chicken.keyword#keyword? */ -t9=*((C_word*)lf[155]+1);{ -C_word av2[3]; -av2[0]=t9; -av2[1]=t8; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(22,c,4)))){ -C_save_and_reclaim((void *)f_3940,c,av);} -a=C_alloc(22); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3941,a[2]=((C_word*)t0)[2],a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3953,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word)li19),tmp=(C_word)a,a+=6,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_3959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word)li28),tmp=(C_word)a,a+=6,tmp); -/* eval.scm:156: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} -else{ -if(C_truep(C_i_numberp(((C_word*)t0)[2]))){ -switch(((C_word*)t0)[2]){ -case C_fix(-1): -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4167,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);} -case C_fix(0): -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4175,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_fix(1): -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4183,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);} -case C_fix(2): -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4191,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -default: -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4193,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; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+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_4212,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4214,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} -else{ -t2=C_charp(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_4224,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)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],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(t2)){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -f_4224(2,av2);}} -else{ -t4=C_eofp(((C_word*)t0)[2]); -if(C_truep(t4)){ -t5=t3;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -f_4224(2,av2);}} -else{ -t5=C_bwpp(((C_word*)t0)[2]); -if(C_truep(t5)){ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -f_4224(2,av2);}} -else{ -t6=C_i_stringp(((C_word*)t0)[2]); -if(C_truep(t6)){ -t7=t3;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -f_4224(2,av2);}} -else{ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7407,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:210: chicken.bytevector#bytevector? */ -t8=*((C_word*)lf[154]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}}}}}}}}} - -/* f_3941 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3941(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_3941,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a3952 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3953(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -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_3953,c,av);} -/* eval.scm:156: lookup */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3716(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(12,c,3)))){ -C_save_and_reclaim((void *)f_3959,c,av);} -a=C_alloc(12); -if(C_truep(C_i_not(t2))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3969,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t5=C_i_symbolp(t3); -if(C_truep(C_i_not(t5))){ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -f_3969(2,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4052,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -/* eval.scm:159: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t6; -tp(2,av2);}}} -else{ -switch(t2){ -case C_fix(0): -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4063,a[2]=t3,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -case C_fix(1): -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4078,a[2]=t3,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} -case C_fix(2): -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4097,a[2]=t3,a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -case C_fix(3): -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4120,a[2]=t3,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} -default: -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4141,a[2]=t2,a[3]=t3,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} - -/* k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_3969,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3972,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3999,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(*((C_word*)lf[2]+1))){ -t4=C_i_not(t1); -if(C_truep(t4)){ -t5=t3; -f_3999(t5,t4);} -else{ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4020,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:166: ##sys#symbol-has-toplevel-binding? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[27]+1); -av2[1]=t5; -av2[2]=t1; -tp(3,av2);}}} -else{ -t4=t3; -f_3999(t4,C_SCHEME_FALSE);}} - -/* k3970 in k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3972(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_3972,2,t0,t1);} -a=C_alloc(4); -if(C_truep(C_i_not(((C_word*)t0)[2]))){ -t2=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3979,a[2]=((C_word*)t0)[4],a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:172: ##sys#symbol-has-toplevel-binding? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[27]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}}} - -/* f_3979 in k3970 in k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_3979,c,av);} -/* eval.scm:171: ##sys#error */ -t3=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[26]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k3987 in k3970 in k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_3989(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_3989,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3990,a[2]=((C_word*)t0)[2],a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3995,a[2]=((C_word*)t0)[2],a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* f_3990 in k3987 in k3970 in k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_3990,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_slot(((C_word*)t0)[2],C_fix(0)); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_3995 in k3987 in k3970 in k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_3995,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fast_retrieve(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k3997 in k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_3999(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_3999,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[2]+1)); -t4=C_mutate((C_word*)lf[2]+1 /* (set! ##sys#unbound-in-eval ...) */,t3); -t5=((C_word*)t0)[4]; -f_3972(t5,t4);} -else{ -t2=((C_word*)t0)[4]; -f_3972(t2,C_SCHEME_UNDEFINED);}} - -/* k4018 in k3967 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4020(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4020,c,av);} -t2=((C_word*)t0)[2]; -f_3999(t2,C_i_not(t1));} - -/* k4050 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_4052,c,av);} -if(C_truep(C_i_assq(((C_word*)t0)[2],t1))){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -f_3969(2,av2);}} -else{ -if(C_truep(C_i_not(((C_word*)t0)[5]))){ -/* eval.scm:161: ##sys#alias-global-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[28]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[6]; -tp(5,av2);}} -else{ -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[4]); -t3=C_i_not(t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?((C_word*)t0)[4]:C_SCHEME_FALSE); -f_3969(2,av2);}}}} - -/* f_4063 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4063(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_4063,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_slot(C_slot(t2,C_fix(0)),((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_4078 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *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,c,av);} -t3=C_slot(t2,C_fix(1)); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(C_slot(t3,C_fix(0)),((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* f_4097 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_4097,c,av);} -t3=C_slot(t2,C_fix(1)); -t4=C_slot(t3,C_fix(1)); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_slot(C_slot(t4,C_fix(0)),((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* f_4120 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -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_4120,c,av);} -t3=C_slot(t2,C_fix(1)); -t4=C_slot(t3,C_fix(1)); -t5=C_slot(t4,C_fix(1)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_slot(C_slot(t5,C_fix(0)),((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* f_4141 in a3958 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *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_4141,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_slot(C_u_i_list_ref(t2,((C_word*)t0)[2]),((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_4167 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4167,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(-1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4175 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4175(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4175,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4183 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4191 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4191(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4191,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(2); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4193 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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,1)))){ -C_save_and_reclaim((void *)f_4193,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4212 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4212(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4212,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4214 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4214,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ -C_save_and_reclaim((void *)f_4224,c,av);} -a=C_alloc(17); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4225,a[2]=((C_word*)t0)[2],a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=C_i_pairp(((C_word*)t0)[2]); -if(C_truep(C_i_not(t2))){ -/* eval.scm:215: ##sys#syntax-error/context */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[29]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[30]; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} -else{ -t3=C_slot(((C_word*)t0)[2],C_fix(0)); -if(C_truep(C_i_symbolp(t3))){ -t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4244,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],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); -/* eval.scm:217: emit-syntax-trace-info */ -f_3819(t4,((C_word*)t0)[7],((C_word*)t0)[2],((C_word*)t0)[8]);} -else{ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7371,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:670: emit-syntax-trace-info */ -f_3819(t4,((C_word*)t0)[7],((C_word*)t0)[2],((C_word*)t0)[8]);}}}} - -/* f_4225 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4225,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4244(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ -C_save_and_reclaim((void *)f_4244,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4247,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); -/* eval.scm:218: chicken.syntax#get-line-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[13]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4247(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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(39,c,4)))){ -C_save_and_reclaim((void *)f_4247,c,av);} -a=C_alloc(39); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_3844,a[2]=t1,a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp); -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|16,a[1]=(C_word)f_4253,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],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); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7350,a[2]=t6,a[3]=t4,a[4]=((C_word)li135),tmp=(C_word)a,a+=5,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7355,a[2]=((C_word*)t0)[2],a[3]=((C_word)li136),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7365,a[2]=t4,a[3]=t6,a[4]=((C_word)li137),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:219: ##sys#dynamic-wind */ -t11=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t11; -av2[1]=t7; -av2[2]=t8; -av2[3]=t9; -av2[4]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} - -/* k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4253(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,7)))){ -C_save_and_reclaim((void *)f_4253,c,av);} -a=C_alloc(17); -t2=C_eqp(t1,((C_word*)t0)[2]); -if(C_truep(C_i_not(t2))){ -/* eval.scm:224: compile */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_3933(t3,((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} -else{ -t3=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_4268,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); -/* eval.scm:225: rename */ -t4=((C_word*)((C_word*)t0)[14])[1]; -f_3682(t4,t3,C_slot(((C_word*)t0)[2],C_fix(0)));}} - -/* k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4268(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(25,c,7)))){ -C_save_and_reclaim((void *)f_4268,c,av);} -a=C_alloc(25); -t2=C_eqp(t1,lf[32]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4277,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:231: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=C_eqp(t1,lf[34]); -if(C_truep(t3)){ -t4=C_i_cadr(((C_word*)t0)[3]); -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4363,a[2]=t4,a[3]=((C_word)li46),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=C_eqp(t1,lf[35]); -if(C_truep(t4)){ -/* eval.scm:247: compile */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t5,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[3]),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} -else{ -t5=C_eqp(t1,lf[36]); -if(C_truep(t5)){ -/* eval.scm:250: compile */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t6,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[3]),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} -else{ -t6=C_eqp(t1,lf[37]); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4397,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp); -t8=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t7=C_eqp(t1,lf[38]); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4407,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:255: compile */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t9,t8,C_i_cadr(((C_word*)t0)[3]),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} -else{ -t8=C_eqp(t1,lf[23]); -if(C_truep(t8)){ -t9=C_slot(((C_word*)t0)[3],C_fix(1)); -t10=C_i_length(t9); -switch(t10){ -case C_fix(0): -/* eval.scm:266: compile */ -t11=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t11,((C_word*)t0)[2],lf[40],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); -case C_fix(1): -/* eval.scm:267: compile */ -t11=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t11,((C_word*)t0)[2],C_slot(t9,C_fix(0)),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); -case C_fix(2): -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t9,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:268: compile */ -t12=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t12,t11,C_slot(t9,C_fix(0)),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); -default: -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4517,a[2]=((C_word*)t0)[2],a[3]=t9,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); -/* eval.scm:272: compile */ -t12=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t12,t11,C_slot(t9,C_fix(0)),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);}} -else{ -t9=C_eqp(t1,lf[41]); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4569,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); -if(C_truep(((C_word*)t0)[9])){ -t11=t10;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_SCHEME_UNDEFINED; -f_4569(2,av2);}} -else{ -/* eval.scm:279: ##sys#error */ -t11=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t11; -av2[1]=t10; -av2[2]=lf[46]; -av2[3]=C_i_cadr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} -else{ -t10=C_eqp(t1,lf[47]); -if(C_truep(t10)){ -t11=C_i_cadr(((C_word*)t0)[3]); -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4600,a[2]=((C_word*)t0)[10],a[3]=t11,a[4]=((C_word*)t0)[5],a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp); -t13=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4606,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=t11,a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[7],a[10]=((C_word)li56),tmp=(C_word)a,a+=11,tmp); -/* eval.scm:286: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t12; -av2[3]=t13; -C_call_with_values(4,av2);}} -else{ -t11=C_eqp(t1,lf[52]); -if(C_truep(t11)){ -t12=C_i_cadr(((C_word*)t0)[3]); -t13=C_i_length(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|11,a[1]=(C_word)f_4715,a[2]=((C_word*)t0)[5],a[3]=t13,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]=t12,a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[3],tmp=(C_word)a,a+=12,tmp); -t19=C_SCHEME_UNDEFINED; -t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); -t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5154,a[2]=t16,a[3]=t20,a[4]=t17,a[5]=((C_word)li69),tmp=(C_word)a,a+=6,tmp)); -t22=((C_word*)t20)[1]; -f_5154(t22,t18,t12);} -else{ -t12=C_eqp(t1,lf[59]); -if(C_truep(t12)){ -t13=C_i_cadr(((C_word*)t0)[3]); -t14=C_u_i_cdr(((C_word*)t0)[3]); -t15=C_u_i_cdr(t14); -t16=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t17=t16; -t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); -t19=((C_word*)t18)[1]; -t20=C_i_check_list_2(t13,lf[53]); -t21=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5227,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]=t15,a[9]=t13,tmp=(C_word)a,a+=10,tmp); -t22=C_SCHEME_UNDEFINED; -t23=(*a=C_VECTOR_TYPE|1,a[1]=t22,tmp=(C_word)a,a+=2,tmp); -t24=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5299,a[2]=t18,a[3]=t23,a[4]=t19,a[5]=((C_word)li71),tmp=(C_word)a,a+=6,tmp)); -t25=((C_word*)t23)[1]; -f_5299(t25,t21,t13);} -else{ -t13=C_eqp(t1,lf[62]); -if(C_truep(t13)){ -t14=C_i_cadr(((C_word*)t0)[3]); -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(t14,lf[53]); -t20=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5349,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]=t14,tmp=(C_word)a,a+=10,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_5605,a[2]=t17,a[3]=t22,a[4]=t18,a[5]=((C_word)li76),tmp=(C_word)a,a+=6,tmp)); -t24=((C_word*)t22)[1]; -f_5605(t24,t20,t14);} -else{ -t14=C_eqp(t1,lf[64]); -if(C_truep(t14)){ -t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5646,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); -t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6089,a[2]=t15,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:389: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t16; -tp(2,av2);}} -else{ -t15=C_eqp(t1,lf[76]); -if(C_truep(t15)){ -t16=*((C_word*)lf[9]+1); -t17=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6098,a[2]=t16,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); -t18=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t19=t18; -t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); -t21=((C_word*)t20)[1]; -t22=C_i_cadr(((C_word*)t0)[3]); -t23=C_i_check_list_2(t22,lf[53]); -t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6190,a[2]=t17,tmp=(C_word)a,a+=3,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_6196,a[2]=t20,a[3]=t26,a[4]=t21,a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp)); -t28=((C_word*)t26)[1]; -f_6196(t28,t24,t22);} -else{ -t16=C_eqp(t1,lf[79]); -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[53]); -t23=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6273,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); -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_6368,a[2]=t19,a[3]=t25,a[4]=t20,a[5]=((C_word)li118),tmp=(C_word)a,a+=6,tmp)); -t27=((C_word*)t25)[1]; -f_6368(t27,t23,t21);} -else{ -t17=C_eqp(t1,lf[81]); -if(C_truep(t17)){ -t18=C_i_cadr(((C_word*)t0)[3]); -t19=C_i_caddr(((C_word*)t0)[3]); -t20=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6415,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]=t19,a[8]=((C_word*)t0)[11],a[9]=t18,a[10]=((C_word*)t0)[12],tmp=(C_word)a,a+=11,tmp); -/* eval.scm:521: rename */ -t21=((C_word*)((C_word*)t0)[14])[1]; -f_3682(t21,t20,t18);} -else{ -t18=C_eqp(t1,lf[88]); -if(C_truep(t18)){ -/* eval.scm:535: compile */ -t19=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t19,((C_word*)t0)[2],lf[89],((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} -else{ -t19=C_eqp(t1,lf[90]); -if(C_truep(t19)){ -t20=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); -t21=C_i_cddr(((C_word*)t0)[3]); -t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6489,a[2]=t20,a[3]=t21,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:539: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t22; -tp(2,av2);}} -else{ -t20=C_eqp(t1,lf[91]); -if(C_truep(t20)){ -/* eval.scm:543: include-file */ -t21=((C_word*)((C_word*)t0)[15])[1]; -f_3869(t21,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} -else{ -t21=C_eqp(t1,lf[92]); -if(C_truep(t21)){ -/* eval.scm:546: include-file */ -t22=((C_word*)((C_word*)t0)[15])[1]; -f_3869(t22,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_TRUE,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} -else{ -t22=C_eqp(t1,lf[93]); -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=C_i_cadr(((C_word*)t0)[3]); -t28=C_i_check_list_2(t27,lf[53]); -t29=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6537,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); -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_6553,a[2]=t25,a[3]=t31,a[4]=t26,a[5]=((C_word)li120),tmp=(C_word)a,a+=6,tmp)); -t33=((C_word*)t31)[1]; -f_6553(t33,t29,t27);} -else{ -t23=C_eqp(t1,lf[97]); -if(C_truep(t23)){ -t24=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6594,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:558: chicken.syntax#strip-syntax */ -t25=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t25; -av2[1]=t24; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t25+1)))(3,av2);}} -else{ -t24=C_eqp(t1,lf[111]); -if(C_truep(t24)){ -t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6918,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:610: rename */ -t26=((C_word*)((C_word*)t0)[14])[1]; -f_3682(t26,t25,lf[74]);} -else{ -t25=C_eqp(t1,lf[112]); -if(C_truep(t25)){ -t26=C_i_cadr(((C_word*)t0)[3]); -t27=C_a_i_list(&a,2,lf[32],t26); -t28=C_a_i_list(&a,2,lf[102],t27); -/* eval.scm:613: compile */ -t29=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t29,((C_word*)t0)[2],t28,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} -else{ -t26=C_eqp(t1,lf[113]); -if(C_truep(t26)){ -t27=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6952,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); -/* eval.scm:616: chicken.load#load-extension */ -t28=*((C_word*)lf[115]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t28; -av2[1]=t27; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t28+1)))(5,av2);}} -else{ -t27=C_eqp(t1,lf[116]); -if(C_truep(t27)){ -t28=C_i_cadr(((C_word*)t0)[3]); -t29=C_u_i_cdr(((C_word*)t0)[3]); -t30=C_i_pairp(C_u_i_cdr(t29)); -t31=(C_truep(t30)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE); -t32=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6978,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); -/* eval.scm:622: ##sys#process-require */ -t33=*((C_word*)lf[117]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t33; -av2[1]=t32; -av2[2]=t28; -av2[3]=t31; -av2[4]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t33+1)))(5,av2);}} -else{ -t28=C_eqp(t1,lf[118]); -t29=(C_truep(t28)?t28:C_eqp(t1,lf[119])); -if(C_truep(t29)){ -t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6999,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); -/* eval.scm:625: ##sys#eval/meta */ -t31=*((C_word*)lf[78]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t31; -av2[1]=t30; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t31+1)))(3,av2);}} -else{ -t30=C_eqp(t1,lf[121]); -if(C_truep(t30)){ -/* eval.scm:629: compile */ -t31=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t31,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[3]),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} -else{ -t31=C_eqp(t1,lf[122]); -t32=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7028,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]=t1,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[14],a[11]=((C_word*)t0)[16],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp); -if(C_truep(t31)){ -t33=t32; -f_7028(t33,t31);} -else{ -t33=C_eqp(t1,lf[149]); -t34=t32; -f_7028(t34,(C_truep(t33)?t33:C_eqp(t1,lf[150])));}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} - -/* k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4277(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_4277,c,av);} -a=C_alloc(4); -switch(t1){ -case C_fix(-1): -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4284,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);} -case C_fix(0): -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4292,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_fix(1): -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4300,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);} -case C_fix(2): -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4308,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_SCHEME_TRUE: -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4316,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);} -case C_SCHEME_FALSE: -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4324,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -default: -t2=C_eqp(t1,C_SCHEME_END_OF_LIST); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4332,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4334,a[2]=t1,a[3]=((C_word)li45),tmp=(C_word)a,a+=4,tmp)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* f_4284 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4284(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4284,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(-1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4292 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4292(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4292,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4300 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4300,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4308 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4308,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(2); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4316 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4316,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4324 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4324(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4324,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4332 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4332,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4334 in k4275 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4363 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4363,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4397 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_4397,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k4405 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4407(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,7)))){ -C_save_and_reclaim((void *)f_4407,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4410,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* eval.scm:256: compile */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t3,t2,C_i_caddr(((C_word*)t0)[3]),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4408 in k4405 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,7)))){ -C_save_and_reclaim((void *)f_4410,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4413,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_i_cdddr(((C_word*)t0)[4]); -if(C_truep(C_i_pairp(t3))){ -/* eval.scm:258: compile */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_3933(t4,t2,C_i_cadddr(((C_word*)t0)[4]),((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} -else{ -/* eval.scm:259: compile */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_3933(t4,t2,lf[39],((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);}} - -/* k4411 in k4408 in k4405 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_4413,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4414,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word)li48),tmp=(C_word)a,a+=6,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4414 in k4411 in k4408 in k4405 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_4414,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4421,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4419 */ -static void C_ccall f_4421(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_4421,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* k4493 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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(4,c,7)))){ -C_save_and_reclaim((void *)f_4495,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4498,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:269: compile */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_3933(t3,t2,C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* k4496 in k4493 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_4498,c,av);} -a=C_alloc(5); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4499,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4499 in k4496 in k4493 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -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_4499,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4503,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4501 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_4503,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k4515 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4517(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,7)))){ -C_save_and_reclaim((void *)f_4517,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4520,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); -/* eval.scm:273: compile */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t3,t2,C_i_cadr(((C_word*)t0)[3]),((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* k4518 in k4515 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4520(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,7)))){ -C_save_and_reclaim((void *)f_4520,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4523,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_slot(((C_word*)t0)[4],C_fix(1)); -t4=C_slot(t3,C_fix(1)); -t5=C_a_i_cons(&a,2,lf[23],t4); -/* eval.scm:274: compile */ -t6=((C_word*)((C_word*)t0)[5])[1]; -f_3933(t6,t2,t5,((C_word*)t0)[6],C_SCHEME_FALSE,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]);} - -/* k4521 in k4518 in k4515 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4523(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_4523,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4524,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li50),tmp=(C_word)a,a+=6,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4524 in k4521 in k4518 in k4515 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4524(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *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_4524,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4528,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4526 */ -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(5,c,2)))){ -C_save_and_reclaim((void *)f_4528,c,av);} -a=C_alloc(5); -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_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k4529 in k4526 */ -static void C_ccall f_4531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_4531,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k4567 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_4569,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4572,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:280: ##sys#put/restore! */ -t3=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[7]); -av2[3]=lf[44]; -av2[4]=lf[45]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k4570 in k4567 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4572(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_4572,c,av);} -/* eval.scm:281: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],lf[42],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* a4599 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4600(C_word c,C_word *av){ -C_word tmp; -C_word 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_4600,c,av);} -/* eval.scm:286: lookup */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3716(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t5; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,7)))){ -C_save_and_reclaim((void *)f_4606,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4610,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); -/* eval.scm:287: compile */ -t5=((C_word*)((C_word*)t0)[6])[1]; -f_3933(t5,t4,C_i_caddr(((C_word*)t0)[7]),((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[9],((C_word*)t0)[5],C_SCHEME_FALSE);} - -/* k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4610(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ -C_save_and_reclaim((void *)f_4610,c,av);} -a=C_alloc(13); -if(C_truep(C_i_not(((C_word*)t0)[2]))){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_4619,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,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[49]+1))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4661,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:290: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t3; -tp(2,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_4619(2,av2);}}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(C_i_zerop(((C_word*)t0)[2]))?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4666,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word)li54),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=((C_word)li55),tmp=(C_word)a,a+=6,tmp)); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k4617 in k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4619(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_4619,c,av);} -a=C_alloc(5); -if(C_truep(((C_word*)t0)[2])){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4623,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4630,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:296: ##sys#alias-global-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[28]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[8]; -tp(5,av2);}}} - -/* f_4623 in k4617 in k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4623(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_4623,c,av);} -/* eval.scm:295: ##sys#error */ -t3=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[0]; -av2[3]=lf[48]; -av2[4]=((C_word*)t0)[2]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k4628 in k4617 in k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_4630,c,av);} -a=C_alloc(5); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4631,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4631 in k4628 in k4617 in k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4631(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *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_4631,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4635,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4633 */ -static void C_ccall f_4635(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4635,c,av);} -t2=C_i_persist_symbol(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_setslot(((C_word*)t0)[2],C_fix(0),t1); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k4659 in k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4661(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_4661,c,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:292: ##sys#notice */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[50]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[50]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[51]; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} -else{ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_4619(2,av2);}}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_4619(2,av2);}}} - -/* f_4666 in k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4666(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word 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_4666,c,av);} -a=C_alloc(5); -t3=C_slot(t2,C_fix(0)); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4678,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k4676 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4678,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4679 in k4608 in a4605 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -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_4679,c,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_4688,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k4686 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_4688,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_setslot(((C_word*)t0)[3],((C_word*)t0)[4],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4715(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ -C_save_and_reclaim((void *)f_4715,c,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=C_i_check_list_2(t1,lf[53]); -t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_4724,a[2]=((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],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],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|5,a[1]=(C_word)f_5120,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li68),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_5120(t11,t7,t1);} - -/* k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(22,c,2)))){ -C_save_and_reclaim((void *)f_4724,c,av);} -a=C_alloc(22); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_4730,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]=t2,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5118,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:313: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t4; -tp(2,av2);}} - -/* k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,4)))){ -C_save_and_reclaim((void *)f_4730,c,av);} -a=C_alloc(33); -t2=*((C_word*)lf[9]+1); -t3=t1; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_SCHEME_TRUE; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4733,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5071,a[2]=t4,a[3]=t6,a[4]=t2,a[5]=((C_word)li65),tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5088,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[13],a[7]=((C_word)li66),tmp=(C_word)a,a+=8,tmp); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5106,a[2]=t4,a[3]=t2,a[4]=((C_word)li67),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:314: ##sys#dynamic-wind */ -t11=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t11; -av2[1]=t7; -av2[2]=t8; -av2[3]=t9; -av2[4]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} - -/* k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t8; -C_word t9; -C_word t10; -C_word t11; -C_word 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(26,c,3)))){ -C_save_and_reclaim((void *)f_4733,c,av);} -a=C_alloc(26); -switch(((C_word*)t0)[2]){ -case C_fix(1): -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4742,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4763,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); -/* eval.scm:319: scheme#cadar */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} -case C_fix(2): -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4776,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]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4812,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); -/* eval.scm:322: scheme#cadar */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} -case C_fix(3): -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4825,a[2]=((C_word*)t0)[9],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=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4879,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); -/* eval.scm:326: scheme#cadar */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} -case C_fix(4): -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_4892,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4961,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); -/* eval.scm:334: scheme#cadar */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} -default: -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_4969,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word)li61),tmp=(C_word)a,a+=7,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4982,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],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|6,a[1]=(C_word)f_5029,a[2]=t4,a[3]=t9,a[4]=t6,a[5]=t5,a[6]=((C_word)li64),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_5029(t11,t7,((C_word*)t0)[9]);}} - -/* k4740 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4742(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_4742,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4743,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li57),tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_4743 in k4740 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_4743,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4759,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4757 */ -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; -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_4759,c,av);} -a=C_alloc(5); -t2=C_a_i_vector1(&a,1,t1); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); -t4=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[4]; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4761 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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,7)))){ -C_save_and_reclaim((void *)f_4763,c,av);} -/* eval.scm:319: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4774 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_4776,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4779,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|7,a[1]=(C_word)f_4804,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); -/* eval.scm:323: scheme#cadadr */ -t4=*((C_word*)lf[55]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4777 in k4774 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4779(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_4779,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4780,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word)li58),tmp=(C_word)a,a+=6,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4780 in k4777 in k4774 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -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_4780,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4796,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4794 */ -static void C_ccall f_4796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_4796,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4800,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); -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k4798 in k4794 */ -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 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_4800,c,av);} -a=C_alloc(6); -t2=C_a_i_vector2(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -t4=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[5]; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4802 in k4774 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4804(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_4804,c,av);} -/* eval.scm:323: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4810 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4812(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_4812,c,av);} -/* eval.scm:322: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4823 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_4825,c,av);} -a=C_alloc(19); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4828,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4871,a[2]=((C_word*)t0)[5],a[3]=t2,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); -/* eval.scm:327: scheme#cadadr */ -t4=*((C_word*)lf[55]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4826 in k4823 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -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_4828,c,av);} -a=C_alloc(14); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4834,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|7,a[1]=(C_word)f_4863,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)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:329: scheme#cadar */ -t5=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k4832 in k4826 in k4823 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4834(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_4834,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4835,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)li59),tmp=(C_word)a,a+=7,tmp); -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_4835 in k4832 in k4826 in k4823 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_4835,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4851,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4849 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_4851,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4855,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k4853 in k4849 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_4855,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4859,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k4857 in k4853 in k4849 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_4859,c,av);} -a=C_alloc(7); -t2=C_a_i_vector3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); -t4=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[6]; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4861 in k4826 in k4823 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4863(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_4863,c,av);} -/* eval.scm:329: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4869 in k4823 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4871(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_4871,c,av);} -/* eval.scm:327: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4877 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4879(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_4879,c,av);} -/* eval.scm:326: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4892(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_4892,c,av);} -a=C_alloc(19); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_4895,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],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4953,a[2]=((C_word*)t0)[5],a[3]=t2,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); -/* eval.scm:335: scheme#cadadr */ -t4=*((C_word*)lf[55]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4893 in k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4895(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(20,c,2)))){ -C_save_and_reclaim((void *)f_4895,c,av);} -a=C_alloc(20); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_4901,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]=((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|7,a[1]=(C_word)f_4945,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)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:337: scheme#cadar */ -t5=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k4899 in k4893 in k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_4901,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4904,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); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4937,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:338: scheme#cadadr */ -t4=*((C_word*)lf[55]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4902 in k4899 in k4893 in k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_4904(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_4904,c,av);} -a=C_alloc(8); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4905,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)li60),tmp=(C_word)a,a+=8,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4905 in k4902 in k4899 in k4893 in k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void C_ccall f_4905(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_4905,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4921,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -t4=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4919 */ -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(8,c,2)))){ -C_save_and_reclaim((void *)f_4921,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4925,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); -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k4923 in k4919 */ -static void C_ccall f_4925(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_4925,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4929,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); -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k4927 in k4923 in k4919 */ -static void C_ccall f_4929(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_4929,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_4933,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); -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k4931 in k4927 in k4923 in k4919 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_4933,c,av);} -a=C_alloc(8); -t2=C_a_i_vector4(&a,4,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[5]); -t4=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[7]; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k4935 in k4899 in k4893 in k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_4937,c,av);} -/* eval.scm:338: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_cadddr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4943 in k4893 in k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_4945,c,av);} -/* eval.scm:337: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_caddr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4951 in k4890 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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,7)))){ -C_save_and_reclaim((void *)f_4953,c,av);} -/* eval.scm:335: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k4959 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_4961,c,av);} -/* eval.scm:334: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_i_car(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* g595 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_4969(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_4969,3,t0,t1,t2);} -/* eval.scm:348: compile */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t3,t1,C_i_cadr(t2),((C_word*)t0)[3],C_u_i_car(t2),((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} - -/* k4980 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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(6,c,3)))){ -C_save_and_reclaim((void *)f_4982,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4983,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word)li63),tmp=(C_word)a,a+=6,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_4983 in k4980 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_4983,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_4987,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:350: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[56]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[56]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k4985 */ -static void C_ccall f_4987(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_4987,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4990,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); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_4999,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word)li62),tmp=(C_word)a,a+=7,tmp)); -t6=((C_word*)t4)[1]; -f_4999(t6,t2,C_fix(0),((C_word*)t0)[6]);} - -/* k4988 in k4985 */ -static void C_ccall f_4990(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_4990,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* doloop616 in k4985 */ -static void f_4999(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(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_4999,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_5024,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); -t5=C_slot(t3,C_fix(0));{ -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);}}} - -/* k5022 in doloop616 in k4985 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_5024,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)((C_word*)t0)[4])[1]; -f_4999(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)));} - -/* map-loop589 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5029(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_5029,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5054,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); -/* eval.scm:348: g595 */ -t4=((C_word*)t0)[4]; -f_4969(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k5052 in map-loop589 in k4731 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5054,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_5029(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* a5070 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_5071,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5075,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:314: ##sys#current-environment550 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_5075(2,av2);}}} - -/* k5073 in a5070 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_5075,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* eval.scm:314: ##sys#current-environment550 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k5077 in k5073 in a5070 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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(4,c,4)))){ -C_save_and_reclaim((void *)f_5079,c,av);} -a=C_alloc(4); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5082,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:314: ##sys#current-environment550 */ -t4=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k5080 in k5077 in k5073 in a5070 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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(0,c,1)))){ -C_save_and_reclaim((void *)f_5082,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a5087 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5088(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -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_5088,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5096,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t3=C_i_cddr(((C_word*)t0)[6]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5104,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:316: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t4; -tp(2,av2);}} - -/* k5094 in a5087 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5096(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_5096,c,av);} -a=C_alloc(12); -/* eval.scm:315: compile-to-closure */ -f_3620(((C_word*)t0)[2],t1,((C_word*)t0)[3],C_a_i_list(&a,4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE));} - -/* k5102 in a5087 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5104(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_5104,c,av);} -/* eval.scm:316: ##sys#canonicalize-body */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[21]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* a5105 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5106(C_word c,C_word *av){ -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_5106,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5110,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:314: ##sys#current-environment550 */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k5108 in a5105 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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(5,c,4)))){ -C_save_and_reclaim((void *)f_5110,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5113,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:314: ##sys#current-environment550 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k5111 in k5108 in a5105 in k4728 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_5113,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k5116 in k4722 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_5118,c,av);} -/* eval.scm:313: ##sys#extend-se */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[57]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* map-loop522 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5120(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_5120,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5145,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); -/* eval.scm:311: g528 */ -t4=*((C_word*)lf[58]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k5143 in map-loop522 in k4713 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5145,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_5120(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop494 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5154(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_5154,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k5225 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(26,c,3)))){ -C_save_and_reclaim((void *)f_5227,c,av);} -a=C_alloc(26); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_5231,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],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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5251,a[2]=((C_word*)t0)[8],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_5265,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li70),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_5265(t11,t7,((C_word*)t0)[9]);} - -/* k5229 in k5225 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5231(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ -C_save_and_reclaim((void *)f_5231,c,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[52],t2); -/* eval.scm:360: compile */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_3933(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],C_SCHEME_FALSE);} - -/* k5249 in k5225 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5251(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_5251,c,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[52],t2); -t4=C_a_i_list(&a,1,t3); -/* eval.scm:361: ##sys#append */ -t5=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* map-loop657 in k5225 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5265(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_5265,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[47],t4,t5); -t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST); -t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7); -t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); -t11=t1; -t12=C_slot(t2,C_fix(1)); -t1=t11; -t2=t12; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* map-loop630 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5299(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -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_5299,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[61]); -t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); -t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); -t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); -t10=t1; -t11=C_slot(t2,C_fix(1)); -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);}}} - -/* k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t4; -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_5349,c,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_i_check_list_2(t1,lf[53]); -t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5571,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li75),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_5571(t11,t7,t1);} - -/* k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t3; -C_word t4; -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_5358,c,av);} -a=C_alloc(25); -t2=C_i_cddr(((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=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5384,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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); -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_5537,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li74),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_5537(t11,t7,((C_word*)t0)[10]);} - -/* k5382 in k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5384(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_5384,c,av);} -a=C_alloc(25); -t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=((C_word*)t4)[1]; -t6=C_i_check_list_2(((C_word*)t0)[2],lf[53]); -t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5411,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[2],tmp=(C_word)a,a+=12,tmp); -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_5489,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_5489(t11,t7,((C_word*)t0)[2],((C_word*)t0)[11]);} - -/* k5409 in k5382 in k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5411(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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,c,4)))){ -C_save_and_reclaim((void *)f_5411,c,av);} -a=C_alloc(27); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_5415,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],tmp=(C_word)a,a+=10,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_5427,a[2]=((C_word*)t0)[9],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_5441,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_5441(t11,t7,((C_word*)t0)[10],((C_word*)t0)[11]);} - -/* k5413 in k5409 in k5382 in k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5415(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_5415,c,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[52],t2); -t4=C_a_i_list(&a,3,lf[52],((C_word*)t0)[3],t3); -/* eval.scm:376: compile */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t5,((C_word*)t0)[5],t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);} - -/* k5425 in k5409 in k5382 in k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5427(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_5427,c,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[52],t2); -t4=C_a_i_list(&a,1,t3); -/* eval.scm:377: ##sys#append */ -t5=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* map-loop806 in k5409 in k5382 in k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5441(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_5441,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[47],t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop773 in k5382 in k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5489(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ -C_save_and_reclaim_args((void *)trf_5489,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_i_cadr(t7); -t9=C_a_i_list2(&a,2,t6,t8); -t10=C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST); -t11=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t10); -t12=C_mutate(((C_word *)((C_word*)t0)[2])+1,t10); -t14=t1; -t15=C_slot(t2,C_fix(1)); -t16=C_slot(t3,C_fix(1)); -t1=t14; -t2=t15; -t3=t16; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop746 in k5356 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5537(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -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_5537,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[63]); -t6=C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST); -t7=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t6); -t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t6); -t10=t1; -t11=C_slot(t2,C_fix(1)); -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-loop716 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_5571(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_5571,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -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]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:374: g722 */ -t4=*((C_word*)lf[58]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k5594 in map-loop716 in k5347 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5596,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_5571(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop689 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void 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 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,2)))){ -C_save_and_reclaim_args((void *)trf_5605,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5646(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(24,c,2)))){ -C_save_and_reclaim((void *)f_5646,c,av);} -a=C_alloc(24); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_u_i_cdr(((C_word*)t0)[2]); -t6=C_u_i_cdr(t5); -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=(C_truep(((C_word*)t0)[3])?C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t4)[1]):C_a_i_cons(&a,2,lf[65],((C_word*)t4)[1])); -t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_5657,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t8,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]=t7,a[10]=((C_word*)t0)[9],a[11]=t4,tmp=(C_word)a,a+=12,tmp); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6063,a[2]=t4,a[3]=t7,a[4]=t9,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:393: ##sys#extended-lambda-list? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[72]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[72]+1); -av2[1]=t10; -av2[2]=((C_word*)t4)[1]; -tp(3,av2);}} - -/* k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5657(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ -C_save_and_reclaim((void *)f_5657,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_5662,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word)li106),tmp=(C_word)a,a+=11,tmp); -/* eval.scm:398: ##sys#decompose-lambda-list */ -t3=*((C_word*)lf[69]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[10]; -av2[2]=((C_word*)((C_word*)t0)[11])[1]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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(27,c,3)))){ -C_save_and_reclaim((void *)f_5662,c,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_i_check_list_2(t2,lf[53]); -t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5672,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); -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_6028,a[2]=t7,a[3]=t12,a[4]=t8,a[5]=((C_word)li105),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_6028(t14,t10,t2);} - -/* k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5672(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_5672,c,av);} -a=C_alloc(19); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_5675,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],tmp=(C_word)a,a+=14,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6026,a[2]=t2,a[3]=((C_word*)t0)[13],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:402: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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(35,c,4)))){ -C_save_and_reclaim((void *)f_5675,c,av);} -a=C_alloc(35); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=*((C_word*)lf[9]+1); -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|6,a[1]=(C_word)f_5681,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); -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5983,a[2]=t5,a[3]=t7,a[4]=t3,a[5]=((C_word)li102),tmp=(C_word)a,a+=6,tmp); -t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6000,a[2]=((C_word*)t0)[9],a[3]=t2,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]=t1,a[9]=((C_word)li103),tmp=(C_word)a,a+=10,tmp); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6014,a[2]=t5,a[3]=t3,a[4]=((C_word)li104),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:405: ##sys#dynamic-wind */ -t12=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t12; -av2[1]=t8; -av2[2]=t9; -av2[3]=t10; -av2[4]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} - -/* k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5681(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_5681,c,av);} -a=C_alloc(7); -switch(((C_word*)t0)[2]){ -case C_fix(0): -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5691,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li78),tmp=(C_word)a,a+=6,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5710,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li80),tmp=(C_word)a,a+=6,tmp)); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);} -case C_fix(1): -if(C_truep(((C_word*)t0)[4])){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5734,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li82),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5753,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li84),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -case C_fix(2): -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5781,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li86),tmp=(C_word)a,a+=6,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5800,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp)); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);} -case C_fix(3): -if(C_truep(((C_word*)t0)[4])){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5828,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li90),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5847,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -default: -t2=C_eqp(((C_word*)t0)[2],C_fix(4)); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5875,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li94),tmp=(C_word)a,a+=6,tmp):(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5894,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li96),tmp=(C_word)a,a+=6,tmp)):(C_truep(((C_word*)t0)[4])?(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5916,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li99),tmp=(C_word)a,a+=7,tmp):(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5939,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li101),tmp=(C_word)a,a+=7,tmp))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* f_5691 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_5691,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5697,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li77),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:412: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5696 */ -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 *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_5697,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+5); -t2=C_build_rest(&a,c,2,av); -C_word t3; -C_word t4; -C_word t5; -t3=C_a_i_vector1(&a,1,t2); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); -t5=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* f_5710 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_5710,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5716,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li79),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:417: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5715 */ -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 *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_5716,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* f_5734 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_5734,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5740,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:422: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5739 */ -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=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_5740,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+6); -t3=C_build_rest(&a,c,3,av); -C_word t4; -C_word t5; -C_word t6; -t4=C_a_i_vector2(&a,2,t2,t3); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[2]); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* f_5753 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_5753,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5759,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li83),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:427: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5758 */ -static void C_ccall f_5759(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_5759,c,av);} -a=C_alloc(5); -t3=C_a_i_vector1(&a,1,t2); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* f_5781 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5781(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_5781,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5787,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li85),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:433: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5786 */ -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=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_5787,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+7); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -C_word t7; -t5=C_a_i_vector3(&a,3,t2,t3,t4); -t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[2]); -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* f_5800 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5800(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_5800,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5806,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li87),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:438: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5805 */ -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=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_5806,c,av);} -a=C_alloc(6); -t4=C_a_i_vector2(&a,2,t2,t3); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[2]); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* f_5828 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ -C_save_and_reclaim((void *)f_5828,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5834,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li89),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:444: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5833 */ -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 *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_5834,c,av);} -a=C_alloc((c-5)*C_SIZEOF_PAIR+8); -t5=C_build_rest(&a,c,5,av); -C_word t6; -C_word t7; -C_word t8; -t6=C_a_i_vector4(&a,4,t2,t3,t4,t5); -t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[2]); -t8=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t1; -av2[2]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} - -/* f_5847 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5847(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ -C_save_and_reclaim((void *)f_5847,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5853,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:449: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5852 */ -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=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_5853,c,av);} -a=C_alloc(7); -t5=C_a_i_vector3(&a,3,t2,t3,t4); -t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[2]); -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* f_5875 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5875(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ -C_save_and_reclaim((void *)f_5875,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5881,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li93),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:455: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5880 */ -static void C_ccall f_5881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_5881,c,av);} -a=C_alloc((c-6)*C_SIZEOF_PAIR+9); -t6=C_build_rest(&a,c,6,av); -C_word t7; -C_word t8; -C_word t9; -t7=C_a_i_vector5(&a,5,t2,t3,t4,t5,t6); -t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[2]); -t9=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t1; -av2[2]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* f_5894 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ -C_save_and_reclaim((void *)f_5894,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5900,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li95),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:460: decorate */ -f_3836(t1,t3,((C_word*)t0)[4]);} - -/* a5899 */ -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=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_5900,c,av);} -a=C_alloc(5); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5912,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:462: ##sys#vector */ -t7=*((C_word*)lf[66]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} - -/* k5910 in a5899 */ -static void C_ccall f_5912(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5912,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* f_5916 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_5916,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5922,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li98),tmp=(C_word)a,a+=6,tmp); -/* eval.scm:467: decorate */ -f_3836(t1,t3,((C_word*)t0)[5]);} - -/* a5921 */ -static void C_ccall f_5922(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_5922,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; -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5934,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_5938,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_nullp(t2))){ -t5=C_a_i_list1(&a,1,t2);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t3; -av2[2]=*((C_word*)lf[66]+1); -av2[3]=t5; -C_apply(4,av2);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7436,a[2]=t2,a[3]=t6,a[4]=((C_word)li97),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_7436(t8,t4,((C_word*)t0)[4],C_fix(0),t2,C_SCHEME_FALSE);}} - -/* k5932 in a5921 */ -static void C_ccall f_5934(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5934,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k5936 in a5921 */ -static void C_ccall f_5938(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_5938,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[66]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* f_5939 in k5679 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_5939,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5945,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word)li100),tmp=(C_word)a,a+=6,tmp); -/* eval.scm:474: decorate */ -f_3836(t1,t3,((C_word*)t0)[5]);} - -/* a5944 */ -static void C_ccall f_5945(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_5945,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_fix(c - 2); -t4=C_eqp(t3,((C_word*)t0)[2]); -if(C_truep(C_i_not(t4))){ -/* eval.scm:478: ##sys#error */ -t5=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[68]; -av2[3]=((C_word*)t0)[2]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5967,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t5; -av2[2]=*((C_word*)lf[66]+1); -av2[3]=t2; -C_apply(4,av2);}}} - -/* k5965 in a5944 */ -static void C_ccall f_5967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5967,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* a5982 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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!=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_5983,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5987,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:405: ##sys#current-environment885 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_5987(2,av2);}}} - -/* k5985 in a5982 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_5987(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_5987,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5991,a[2]=((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:405: ##sys#current-environment885 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k5989 in k5985 in a5982 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_5991,c,av);} -a=C_alloc(4); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5994,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:405: ##sys#current-environment885 */ -t4=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k5992 in k5989 in k5985 in a5982 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_5994,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a5999 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ -C_save_and_reclaim((void *)f_6000,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6008,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:407: ##sys#canonicalize-body */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[21]+1); -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[7])[1]; -av2[3]=((C_word*)t0)[8]; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* k6006 in a5999 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_6008,c,av);} -a=C_alloc(12); -if(C_truep(((C_word*)t0)[2])){ -/* eval.scm:406: compile-to-closure */ -f_3620(((C_word*)t0)[3],t1,((C_word*)t0)[4],C_a_i_list(&a,4,((C_word*)t0)[2],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE));} -else{ -/* eval.scm:406: compile-to-closure */ -f_3620(((C_word*)t0)[3],t1,((C_word*)t0)[4],C_a_i_list(&a,4,((C_word*)t0)[7],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE));}} - -/* a6013 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6014(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6014,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6018,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:405: ##sys#current-environment885 */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6016 in a6013 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6018(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_6018,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6021,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:405: ##sys#current-environment885 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6019 in k6016 in a6013 in k5673 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6021,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k6024 in k5670 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6026,c,av);} -/* eval.scm:402: ##sys#extend-se */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[57]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[57]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* map-loop857 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6028(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_6028,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6053,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:401: g863 */ -t4=*((C_word*)lf[58]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k6051 in map-loop857 in a5661 in k5655 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6053(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_6053,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_6028(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k6061 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_6063,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6068,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li107),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li108),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:394: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_5657(2,av2);}}} - -/* a6067 in k6061 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6068(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(c!=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_6068,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6076,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:397: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k6074 in a6067 in k6061 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6076(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_6076,c,av);} -/* eval.scm:396: ##sys#expand-extended-lambda-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[70]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[70]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=((C_word*)((C_word*)t0)[4])[1]; -av2[4]=*((C_word*)lf[71]+1); -av2[5]=t1; -tp(6,av2);}} - -/* a6077 in k6061 in k5644 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6078(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_6078,c,av);} -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k6087 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6089(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_6089,c,av);} -/* eval.scm:389: ##sys#check-syntax */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[73]+1)); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[73]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[74]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[75]; -av2[5]=C_SCHEME_FALSE; -av2[6]=t1; -tp(7,av2);}} - -/* k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ -C_save_and_reclaim((void *)f_6098,c,av);} -a=C_alloc(23); -t2=t1; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_SCHEME_TRUE; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6103,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li109),tmp=(C_word)a,a+=6,tmp); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6120,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word)li110),tmp=(C_word)a,a+=8,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6138,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li111),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:483: ##sys#dynamic-wind */ -t9=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=((C_word*)t0)[8]; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a6102 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *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_6103,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6107,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:483: ##sys#current-environment951 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_6107(2,av2);}}} - -/* k6105 in a6102 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_6107,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6111,a[2]=((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:483: ##sys#current-environment951 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6109 in k6105 in a6102 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_6111,c,av);} -a=C_alloc(4); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6114,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:483: ##sys#current-environment951 */ -t4=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k6112 in k6109 in k6105 in a6102 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6114,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a6119 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t4; -C_word t5; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_6120,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6128,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t3=C_i_cddr(((C_word*)t0)[6]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6136,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:496: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t4; -tp(2,av2);}} - -/* k6126 in a6119 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_6128,c,av);} -/* eval.scm:495: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k6134 in a6119 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6136,c,av);} -/* eval.scm:496: ##sys#canonicalize-body */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[21]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* a6137 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6138(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -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_6138,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6142,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:483: ##sys#current-environment951 */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6140 in a6137 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_6142,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6145,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:483: ##sys#current-environment951 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6143 in k6140 in a6137 in k6096 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6145(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_6145,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k6161 in map-loop960 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_6163,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6167,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6171,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:491: ##sys#eval/meta */ -t4=*((C_word*)lf[78]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_cadr(((C_word*)t0)[7]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k6165 in k6161 in map-loop960 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_6167,c,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_SCHEME_END_OF_LIST); -t4=C_i_setslot(((C_word*)((C_word*)t0)[4])[1],C_fix(1),t3); -t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t3); -t6=((C_word*)((C_word*)t0)[5])[1]; -f_6196(t6,((C_word*)t0)[6],C_slot(((C_word*)t0)[7],C_fix(1)));} - -/* k6169 in k6161 in map-loop960 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_6171,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6175,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:492: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6173 in k6169 in k6161 in map-loop960 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6175(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6175,c,av);} -/* eval.scm:490: ##sys#ensure-transformer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} 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);}} - -/* k6188 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_6190,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6194,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:494: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k6192 in k6188 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6194,c,av);} -/* eval.scm:485: scheme#append */ -t2=*((C_word*)lf[22]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop960 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6196(C_word 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_6196,3,t0,t1,t2);} -a=C_alloc(8); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6163,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); -/* eval.scm:489: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t5; -tp(2,av2);}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k6248 in map-loop995 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6250(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_6250,c,av);} -a=C_alloc(12); -t2=C_a_i_list3(&a,3,((C_word*)t0)[2],C_SCHEME_FALSE,t1); -t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST); -t4=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t3); -t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); -t6=((C_word*)((C_word*)t0)[4])[1]; -f_6368(t6,((C_word*)t0)[5],C_slot(((C_word*)t0)[6],C_fix(1)));} - -/* k6252 in map-loop995 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_6254,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6258,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:506: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6256 in k6252 in map-loop995 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6258,c,av);} -/* eval.scm:504: ##sys#ensure-transformer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[77]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} 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);}} - -/* k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6273(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_6273,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6276,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],tmp=(C_word)a,a+=9,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6366,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:508: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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(31,c,4)))){ -C_save_and_reclaim((void *)f_6276,c,av);} -a=C_alloc(31); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6277,a[2]=t1,a[3]=((C_word)li113),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[2],lf[80]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6341,a[2]=t2,a[3]=((C_word)li114),tmp=(C_word)a,a+=4,tmp); -t5=( - f_6341(t4,((C_word*)t0)[2]) -); -t6=*((C_word*)lf[9]+1); -t7=t1; -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_6296,a[2]=t8,a[3]=t10,a[4]=t6,a[5]=((C_word)li115),tmp=(C_word)a,a+=6,tmp); -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6313,a[2]=((C_word*)t0)[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)li116),tmp=(C_word)a,a+=8,tmp); -t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6331,a[2]=t8,a[3]=t6,a[4]=((C_word)li117),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:513: ##sys#dynamic-wind */ -t14=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t14; -av2[1]=((C_word*)t0)[8]; -av2[2]=t11; -av2[3]=t12; -av2[4]=t13; -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} - -/* g1024 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static C_word f_6277(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_set_car(C_i_cdr(t1),((C_word*)t0)[2]));} - -/* a6295 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6296(C_word c,C_word *av){ -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_6296,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=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:513: ##sys#current-environment1032 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_6300(2,av2);}}} - -/* k6298 in a6295 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_6300,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6304,a[2]=((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:513: ##sys#current-environment1032 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6302 in k6298 in a6295 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6304(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_6304,c,av);} -a=C_alloc(4); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6307,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:513: ##sys#current-environment1032 */ -t4=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k6305 in k6302 in k6298 in a6295 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6307,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a6312 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6313(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c!=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_6313,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6321,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t3=C_i_cddr(((C_word*)t0)[6]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6329,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:515: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t4; -tp(2,av2);}} - -/* k6319 in a6312 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_6321,c,av);} -/* eval.scm:514: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k6327 in a6312 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6329,c,av);} -/* eval.scm:515: ##sys#canonicalize-body */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[21]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* a6330 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_6331,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6335,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:513: ##sys#current-environment1032 */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6333 in a6330 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_6335,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6338,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:513: ##sys#current-environment1032 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6336 in k6333 in a6330 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6338,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* for-each-loop1023 in k6274 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static C_word f_6341(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_pairp(t1))){ -t2=( -/* eval.scm:509: g1024 */ - f_6277(((C_word*)t0)[2],C_slot(t1,C_fix(0))) -); -t4=C_slot(t1,C_fix(1)); -t1=t4; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* k6364 in k6271 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6366,c,av);} -/* eval.scm:508: scheme#append */ -t2=*((C_word*)lf[22]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop995 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6368(C_word t0,C_word 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(11,0,2)))){ -C_save_and_reclaim_args((void *)trf_6368,3,t0,t1,t2);} -a=C_alloc(11); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6250,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6254,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:505: ##sys#eval/meta */ -t7=*((C_word*)lf[78]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=C_i_cadr(t3); -((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);}}} - -/* k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6415(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_6415,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|8,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]=t1,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -if(C_truep(((C_word*)t0)[8])){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6459,a[2]=((C_word*)t0)[9],a[3]=t2,a[4]=((C_word*)t0)[10],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:522: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t3; -tp(2,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_6418(2,av2);}}} - -/* k6416 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_6418,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,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],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -/* eval.scm:524: ##sys#put/restore! */ -t3=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=lf[44]; -av2[4]=lf[86]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k6419 in k6416 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6421(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_6421,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6424,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6442,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:526: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[85]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6422 in k6419 in k6416 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_6424,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6434,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:530: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6425 in k6422 in k6419 in k6416 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_6427,c,av);} -/* eval.scm:532: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],lf[82],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k6432 in k6422 in k6419 in k6416 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6434(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_6434,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6438,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:531: ##sys#eval/meta */ -t3=*((C_word*)lf[78]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6436 in k6432 in k6422 in k6419 in k6416 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6438(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6438,c,av);} -/* eval.scm:528: ##sys#extend-macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[83]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[83]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -tp(5,av2);}} - -/* k6440 in k6419 in k6416 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6442,c,av);} -/* eval.scm:525: ##sys#register-syntax-export */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[84]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* k6457 in k6413 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_6459,c,av);} -t2=C_i_assq(((C_word*)t0)[2],t1); -if(C_truep(C_i_not(t2))){ -/* eval.scm:523: ##sys#error */ -t3=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[0]; -av2[3]=lf[87]; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_6418(2,av2);}}} - -/* k6479 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_6481,c,av);} -/* eval.scm:538: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k6487 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6489,c,av);} -/* eval.scm:539: ##sys#canonicalize-body */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[21]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[21]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* k6523 in map-loop1065 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6525(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6525,c,av);} -/* eval.scm:552: chicken.syntax#strip-syntax */ -t2=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k6535 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_6537,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6539,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li119),tmp=(C_word)a,a+=9,tmp); -/* eval.scm:549: ##sys#with-module-aliases */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[94]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[94]+1); -av2[1]=((C_word*)t0)[8]; -av2[2]=t1; -av2[3]=t2; -tp(4,av2);}} - -/* a6538 in k6535 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_6539,c,av);} -a=C_alloc(3); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,lf[23],t2); -/* eval.scm:555: compile */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_3933(t4,t1,t3,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* map-loop1065 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6553(C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_6553,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_6578,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_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6525,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:551: ##sys#check-syntax */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[73]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[73]+1); -av2[1]=t5; -av2[2]=lf[95]; -av2[3]=t4; -av2[4]=lf[96]; -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);}}} - -/* k6576 in map-loop1065 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6578(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_6578,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_6553(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6594(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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,c,3)))){ -C_save_and_reclaim((void *)f_6594,c,av);} -a=C_alloc(26); -t2=C_i_cadr(t1); -t3=C_i_caddr(t1); -t4=C_eqp(C_SCHEME_TRUE,t3); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6603,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); -if(C_truep(t4)){ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t4; -f_6603(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|3,a[1]=(C_word)f_6808,a[2]=t2,a[3]=((C_word)li129),tmp=(C_word)a,a+=4,tmp); -t11=C_u_i_cdr(t1); -t12=C_u_i_cdr(t11); -t13=C_u_i_car(t12); -t14=C_i_check_list_2(t13,lf[53]); -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_6865,a[2]=t8,a[3]=t16,a[4]=t10,a[5]=t9,a[6]=((C_word)li130),tmp=(C_word)a,a+=7,tmp)); -t18=((C_word*)t16)[1]; -f_6865(t18,t5,t13);}} - -/* k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_6603,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6801,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:575: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[85]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6606(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_6606,c,av);} -a=C_alloc(12); -t2=*((C_word*)lf[85]+1); -t3=*((C_word*)lf[9]+1); -t4=*((C_word*)lf[98]+1); -t5=*((C_word*)lf[99]+1); -t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6609,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); -/* eval.scm:578: ##sys#register-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[107]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[8]; -tp(5,av2);}} - -/* k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_6609,c,av);} -a=C_alloc(14); -t2=*((C_word*)lf[100]+1); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6612,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],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); -/* eval.scm:583: ##sys#module-alias-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[99]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[99]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(41,c,4)))){ -C_save_and_reclaim((void *)f_6612,c,av);} -a=C_alloc(41); -t2=((C_word*)t0)[2]; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_SCHEME_END_OF_LIST; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t0)[3]; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=t1; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_SCHEME_TRUE; -t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); -t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6617,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)li121),tmp=(C_word)a,a+=12,tmp); -t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6673,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)li126),tmp=(C_word)a,a+=8,tmp); -t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6769,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)li127),tmp=(C_word)a,a+=11,tmp); -/* eval.scm:577: ##sys#dynamic-wind */ -t15=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t15; -av2[1]=((C_word*)t0)[13]; -av2[2]=t12; -av2[3]=t13; -av2[4]=t14; -((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} - -/* a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6617(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -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_6617,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,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]=((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:577: ##sys#current-module1140 */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_6621(2,av2);}}} - -/* k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6621(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6621,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6624,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp); -if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ -/* eval.scm:577: ##sys#current-environment1141 */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[3])[1]; -f_6624(2,av2);}}} - -/* k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6624(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ -C_save_and_reclaim((void *)f_6624,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6627,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,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:577: ##sys#macro-environment1142 */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[4])[1]; -f_6627(2,av2);}}} - -/* k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 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(15,c,4)))){ -C_save_and_reclaim((void *)f_6627,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,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:577: ##sys#module-alias-environment1143 */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[5])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[5])[1]; -f_6630(2,av2);}}} - -/* k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 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(16,c,2)))){ -C_save_and_reclaim((void *)f_6630,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_6634,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:577: ##sys#current-module1140 */ -t3=((C_word*)t0)[13];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_6634(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_6634,c,av);} -a=C_alloc(15); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_6638,a[2]=((C_word*)t0)[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:577: ##sys#current-environment1141 */ -t4=((C_word*)t0)[12];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k6636 in k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in ... */ -static void C_ccall f_6638(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_6638,c,av);} -a=C_alloc(14); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6642,a[2]=((C_word*)t0)[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:577: ##sys#macro-environment1142 */ -t4=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k6640 in k6636 in k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in ... */ -static void C_ccall f_6642(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_6642,c,av);} -a=C_alloc(13); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6646,a[2]=((C_word*)t0)[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:577: ##sys#module-alias-environment1143 */ -t4=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k6644 in k6640 in k6636 in k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in ... */ -static void C_ccall f_6646(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_6646,c,av);} -a=C_alloc(10); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6649,a[2]=((C_word*)t0)[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:577: ##sys#current-module1140 */ -t4=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[12]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k6647 in k6644 in k6640 in k6636 in k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in ... */ -static void C_ccall f_6649(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_6649,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6652,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:577: ##sys#current-environment1141 */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[9]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6650 in k6647 in k6644 in k6640 in k6636 in k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in ... */ -static void C_ccall f_6652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6652,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6655,a[2]=((C_word*)t0)[2],a[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:577: ##sys#macro-environment1142 */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6653 in k6650 in k6647 in k6644 in k6640 in k6636 in k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in ... */ -static void C_ccall f_6655(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6655,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6658,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:577: ##sys#module-alias-environment1143 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6656 in k6653 in k6650 in k6647 in k6644 in k6640 in k6636 in k6632 in k6628 in k6625 in k6622 in k6619 in a6616 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in ... */ -static void C_ccall f_6658(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6658,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6673(C_word c,C_word *av){ -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_6673,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word)li125),tmp=(C_word)a,a+=8,tmp); -/* eval.scm:584: ##sys#with-property-restore */ -t3=*((C_word*)lf[106]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t5; -C_word t6; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_6679,c,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_6689,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)li124),tmp=(C_word)a,a+=8,tmp)); -t6=((C_word*)t4)[1]; -f_6689(t6,t1,t2,C_SCHEME_END_OF_LIST);} - -/* loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6689(C_word 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,7)))){ -C_save_and_reclaim_args((void *)trf_6689,4,t0,t1,t2,t3);} -a=C_alloc(6); -if(C_truep(C_i_nullp(t2))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6699,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:588: reverse */ -t5=*((C_word*)lf[105]+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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6765,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* eval.scm:603: compile */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_3933(t6,t5,C_u_i_car(t2),C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_TRUE);}} - -/* k6697 in loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void C_ccall f_6699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_6699,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6702,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6750,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:589: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[85]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[85]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6700 in k6697 in loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_6702(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_6702,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6705,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_6746,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:590: chicken.internal#module-requirement */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[103]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[103]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k6703 in k6700 in k6697 in loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_6705,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6706,a[2]=((C_word*)t0)[2],a[3]=((C_word)li123),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_6706 in k6703 in k6700 in k6697 in loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in ... */ -static void C_ccall f_6706(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_6706,c,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_6712,a[2]=t4,a[3]=t2,a[4]=((C_word)li122),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_6712(t6,t1,((C_word*)t0)[2]);} - -/* loop2 */ -static void f_6712(C_word 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_6712,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[101]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_cdr(t2); -if(C_truep(C_i_pairp(t3))){ -t4=C_u_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6735,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:596: g1197 */ -t6=t4;{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} -else{ -/* eval.scm:596: g1200 */ -t4=C_u_i_car(t2);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}}} - -/* k6733 in loop2 */ -static void C_ccall f_6735(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6735,c,av);} -/* eval.scm:598: loop2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6712(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k6744 in k6700 in k6697 in loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6746,c,av);} -/* eval.scm:590: ##sys#provide */ -t2=*((C_word*)lf[102]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k6748 in k6697 in loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_6750(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6750,c,av);} -/* eval.scm:589: ##sys#finalize-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[104]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[104]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k6763 in loop in a6678 in a6672 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void C_ccall f_6765(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_6765,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* eval.scm:601: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_6689(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6769(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -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_6769,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,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],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:577: ##sys#current-module1140 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_6773,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6776,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],tmp=(C_word)a,a+=12,tmp); -/* eval.scm:577: ##sys#current-environment1141 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6774 in k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6776(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_6776,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,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:577: ##sys#macro-environment1142 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6777 in k6774 in k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_6779,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6782,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); -/* eval.scm:577: ##sys#module-alias-environment1143 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k6780 in k6777 in k6774 in k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_6782(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ -C_save_and_reclaim((void *)f_6782,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_6785,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:577: ##sys#current-module1140 */ -t3=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6783 in k6780 in k6777 in k6774 in k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_6785(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ -C_save_and_reclaim((void *)f_6785,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_6788,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:577: ##sys#current-environment1141 */ -t3=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6786 in k6783 in k6780 in k6777 in k6774 in k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in ... */ -static void C_ccall f_6788(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6788,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:577: ##sys#macro-environment1142 */ -t3=((C_word*)t0)[12];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6789 in k6786 in k6783 in k6780 in k6777 in k6774 in k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 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; -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_6791,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_6794,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:577: ##sys#module-alias-environment1143 */ -t3=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[8])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k6792 in k6789 in k6786 in k6783 in k6780 in k6777 in k6774 in k6771 in a6768 in k6610 in k6607 in k6604 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in ... */ -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 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_6794,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); -t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); -t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); -t6=((C_word*)t0)[10];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k6799 in k6601 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6801,c,av);} -if(C_truep(t1)){ -/* eval.scm:576: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[71]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[71]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[108]; -av2[3]=lf[109]; -av2[4]=((C_word*)t0)[3]; -tp(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_6606(2,av2);}}} - -/* g1108 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6808(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_6808,3,t0,t1,t2);} -a=C_alloc(8); -if(C_truep(C_i_symbolp(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|4,a[1]=(C_word)f_6821,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_6832,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp); -t5=t3; -f_6821(t5,( - f_6832(t2) -));} -else{ -t4=t3; -f_6821(t4,C_SCHEME_FALSE);}}} - -/* k6819 in g1108 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6821(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_6821,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:571: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[71]+1)); -C_word av2[6]; -av2[0]=*((C_word*)lf[71]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[108]; -av2[3]=lf[110]; -av2[4]=((C_word*)t0)[3]; -av2[5]=((C_word*)t0)[4]; -tp(6,av2);}}} - -/* loop in g1108 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static C_word f_6832(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_nullp(t1); -if(C_truep(t2)){ -return(t2);} -else{ -t3=C_i_car(t1); -if(C_truep(C_i_symbolp(t3))){ -t5=C_u_i_cdr(t1); -t1=t5; -goto loop;} -else{ -return(C_SCHEME_FALSE);}}} - -/* map-loop1102 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_6865(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_6865,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6890,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); -/* eval.scm:562: g1108 */ -t4=((C_word*)t0)[4]; -f_6808(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k6888 in map-loop1102 in k6592 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_6890,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_6865(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k6916 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6918,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -/* eval.scm:610: compile */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_3933(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k6950 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_6952(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_6952,c,av);} -/* eval.scm:617: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],lf[114],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k6976 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_6978,c,av);} -/* eval.scm:622: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k6997 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_6999,c,av);} -/* eval.scm:626: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],lf[120],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_7028(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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,7)))){ -C_save_and_reclaim_args((void *)trf_7028,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -/* eval.scm:632: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],lf[123],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} -else{ -t2=C_eqp(((C_word*)t0)[8],lf[124]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); -/* eval.scm:635: ##sys#notice */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[50]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[50]+1); -av2[1]=t3; -av2[2]=lf[126]; -av2[3]=((C_word*)t0)[9]; -tp(4,av2);}} -else{ -t3=C_eqp(((C_word*)t0)[8],lf[127]); -t4=(C_truep(t3)?t3:C_eqp(((C_word*)t0)[8],lf[128])); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7063,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* eval.scm:639: rename */ -t6=((C_word*)((C_word*)t0)[10])[1]; -f_3682(t6,t5,lf[129]);} -else{ -t5=C_eqp(((C_word*)t0)[8],lf[130]); -t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7076,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[11],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)[12],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); -if(C_truep(t5)){ -t7=t6; -f_7076(t7,t5);} -else{ -t7=C_eqp(((C_word*)t0)[8],lf[139]); -if(C_truep(t7)){ -t8=t6; -f_7076(t8,t7);} -else{ -t8=C_eqp(((C_word*)t0)[8],lf[140]); -if(C_truep(t8)){ -t9=t6; -f_7076(t9,t8);} -else{ -t9=C_eqp(((C_word*)t0)[8],lf[141]); -if(C_truep(t9)){ -t10=t6; -f_7076(t10,t9);} -else{ -t10=C_eqp(((C_word*)t0)[8],lf[142]); -if(C_truep(t10)){ -t11=t6; -f_7076(t11,t10);} -else{ -t11=C_eqp(((C_word*)t0)[8],lf[143]); -if(C_truep(t11)){ -t12=t6; -f_7076(t12,t11);} -else{ -t12=C_eqp(((C_word*)t0)[8],lf[144]); -if(C_truep(t12)){ -t13=t6; -f_7076(t13,t12);} -else{ -t13=C_eqp(((C_word*)t0)[8],lf[145]); -if(C_truep(t13)){ -t14=t6; -f_7076(t14,t13);} -else{ -t14=C_eqp(((C_word*)t0)[8],lf[146]); -if(C_truep(t14)){ -t15=t6; -f_7076(t15,t14);} -else{ -t15=C_eqp(((C_word*)t0)[8],lf[147]); -t16=t6; -f_7076(t16,(C_truep(t15)?t15:C_eqp(((C_word*)t0)[8],lf[148])));}}}}}}}}}}}}} - -/* k7038 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_7040,c,av);} -/* eval.scm:636: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],lf[125],((C_word*)t0)[4],C_SCHEME_FALSE,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k7061 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_7063,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -/* eval.scm:639: compile */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_3933(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]);} - -/* k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_7076(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(25,0,7)))){ -C_save_and_reclaim_args((void *)trf_7076,2,t0,t1);} -a=C_alloc(25); -if(C_truep(t1)){ -/* eval.scm:646: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[71]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[71]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[131]; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} -else{ -t2=C_eqp(((C_word*)t0)[4],lf[132]); -if(C_truep(t2)){ -t3=C_i_cdr(((C_word*)t0)[3]); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7096,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:649: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t4; -tp(2,av2);}} -else{ -t3=C_eqp(((C_word*)t0)[4],lf[133]); -if(C_truep(t3)){ -/* eval.scm:652: compile */ -t4=((C_word*)((C_word*)t0)[9])[1]; -f_3933(t4,((C_word*)t0)[2],C_i_cadddr(((C_word*)t0)[3]),((C_word*)t0)[6],((C_word*)t0)[10],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[11]);} -else{ -t4=C_eqp(((C_word*)t0)[4],lf[134]); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7140,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); -/* eval.scm:656: chicken.syntax#strip-syntax */ -t6=*((C_word*)lf[33]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_i_cdddr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=C_a_i_cons(&a,2,((C_word*)t0)[4],*((C_word*)lf[138]+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_7152,a[2]=t9,a[3]=t7,a[4]=((C_word)li132),tmp=(C_word)a,a+=5,tmp); -t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7157,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)li133),tmp=(C_word)a,a+=8,tmp); -t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7167,a[2]=t7,a[3]=t9,a[4]=((C_word)li134),tmp=(C_word)a,a+=5,tmp); -/* eval.scm:666: ##sys#dynamic-wind */ -t13=*((C_word*)lf[20]+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);}}}}}} - -/* k7094 in k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7096(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_7096,c,av);} -/* eval.scm:649: compile-call */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_7508(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* g1281 in k7138 in k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_7122(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_7122,3,t0,t1,t2);} -/* eval.scm:658: compile */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t3,t1,C_i_cadr(t2),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k7138 in k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7140(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_7140,c,av);} -a=C_alloc(9); -t2=C_i_assq(lf[135],t1); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7122,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li131),tmp=(C_word)a,a+=9,tmp); -/* eval.scm:656: g1281 */ -t4=t3; -f_7122(t4,((C_word*)t0)[8],t2);} -else{ -/* eval.scm:660: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[71]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[71]+1); -av2[1]=((C_word*)t0)[8]; -av2[2]=lf[136]; -av2[3]=lf[137]; -av2[4]=((C_word*)t0)[9]; -tp(5,av2);}}} - -/* a7151 in k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -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_7152,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[138]+1)); -t3=C_mutate((C_word*)lf[138]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a7156 in k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *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_7157,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7165,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:667: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7163 in a7156 in k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7165(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_7165,c,av);} -/* eval.scm:667: compile-call */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_7508(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* a7166 in k7074 in k7026 in k4266 in k4251 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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!=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_7167,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[138]+1)); -t3=C_mutate((C_word*)lf[138]+1 /* (set! ##sys#syntax-context ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a7349 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7350(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -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_7350,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[151]+1)); -t3=C_mutate((C_word*)lf[151]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a7354 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7355(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -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_7355,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7363,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:221: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7361 in a7354 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7363(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_7363,c,av);} -/* eval.scm:221: chicken.syntax#expand */ -t2=*((C_word*)lf[152]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a7364 in k4245 in k4242 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7365(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_7365,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[151]+1)); -t3=C_mutate((C_word*)lf[151]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k7369 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7371(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_7371,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7378,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:671: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7376 in k7369 in k4222 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7378(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_7378,c,av);} -/* eval.scm:671: compile-call */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_7508(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k7405 in k3938 in compile in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7407,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_4224(2,av2);}} -else{ -t2=C_i_vectorp(((C_word*)t0)[3]); -if(C_truep(t2)){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -f_4224(2,av2);}} -else{ -/* eval.scm:212: ##sys#srfi-4-vector? */ -t3=*((C_word*)lf[153]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} - -/* doloop1299 in a5921 */ -static void f_7436(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; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ -C_save_and_reclaim_args((void *)trf_7436,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=C_fixnum_plus(t3,C_fix(1)); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7465,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t7,a[5]=t8,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -t10=C_eqp(C_SCHEME_END_OF_LIST,t4); -if(C_truep(t10)){ -/* eval.scm:680: ##sys#error */ -t11=*((C_word*)lf[25]+1);{ -C_word av2[5]; -av2[0]=t11; -av2[1]=t9; -av2[2]=lf[67]; -av2[3]=t2; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} -else{ -t12=t1; -t13=t7; -t14=t8; -t15=C_slot(t4,C_fix(1)); -t16=t4; -t1=t12; -t2=t13; -t3=t14; -t4=t15; -t5=t16; -goto loop;}}} - -/* k7463 in doloop1299 in a5921 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_7465,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_7436(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} - -/* loop in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static C_word f_7482(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t1))){ -return(t2);} -else{ -if(C_truep(C_i_pairp(t1))){ -t4=C_slot(t1,C_fix(1)); -t5=C_fixnum_plus(t2,C_fix(1)); -t1=t4; -t2=t5; -goto loop;} -else{ -return(C_SCHEME_FALSE);}}} - -/* compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_7508(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(13,0,7)))){ -C_save_and_reclaim_args((void *)trf_7508,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(13); -t6=C_slot(t2,C_fix(0)); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7515,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=t5,a[7]=t3,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); -if(C_truep(C_i_closurep(t6))){ -t8=t7;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7838,a[2]=t6,a[3]=((C_word)li150),tmp=(C_word)a,a+=4,tmp); -f_7515(2,av2);}} -else{ -/* eval.scm:697: compile */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_3933(t8,t7,C_slot(t2,C_fix(0)),t3,C_SCHEME_FALSE,t4,t5,C_SCHEME_FALSE);}} - -/* k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7515(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ -C_save_and_reclaim((void *)f_7515,c,av);} -a=C_alloc(15); -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7482,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp); -t4=( - f_7482(t2,C_fix(0)) -); -t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7524,a[2]=t4,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],a[9]=t1,a[10]=((C_word*)t0)[8],a[11]=t2,tmp=(C_word)a,a+=12,tmp); -/* eval.scm:701: chicken.syntax#get-line-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[13]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7524(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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(31,c,7)))){ -C_save_and_reclaim((void *)f_7524,c,av);} -a=C_alloc(31); -t2=(C_truep(t1)?t1:lf[156]); -switch(((C_word*)t0)[2]){ -case C_SCHEME_FALSE: -/* eval.scm:703: ##sys#syntax-error/context */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[29]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[157]; -av2[3]=((C_word*)t0)[4]; -tp(4,av2);} -case C_fix(0): -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7543,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,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)li140),tmp=(C_word)a,a+=10,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_fix(1): -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7562,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,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)[3],tmp=(C_word)a,a+=10,tmp); -/* eval.scm:707: compile */ -t4=((C_word*)((C_word*)t0)[10])[1]; -f_3933(t4,t3,C_slot(((C_word*)t0)[11],C_fix(0)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE); -case C_fix(2): -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7590,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,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],tmp=(C_word)a,a+=12,tmp); -/* eval.scm:711: compile */ -t4=((C_word*)((C_word*)t0)[10])[1]; -f_3933(t4,t3,C_slot(((C_word*)t0)[11],C_fix(0)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE); -case C_fix(3): -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7626,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t2,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)[3],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); -/* eval.scm:716: compile */ -t4=((C_word*)((C_word*)t0)[10])[1]; -f_3933(t4,t3,C_slot(((C_word*)t0)[11],C_fix(0)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE); -case C_fix(4): -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7670,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,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],tmp=(C_word)a,a+=12,tmp); -/* eval.scm:722: compile */ -t4=((C_word*)((C_word*)t0)[10])[1]; -f_3933(t4,t3,C_slot(((C_word*)t0)[11],C_fix(0)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE); -default: -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7717,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li145),tmp=(C_word)a,a+=7,tmp); -t8=C_i_check_list_2(((C_word*)t0)[11],lf[53]); -t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7727,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); -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_7790,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li149),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_7790(t13,t9,((C_word*)t0)[11]);}} - -/* f_7543 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7543(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_7543,c,av);} -a=C_alloc(8); -t3=( -/* eval.scm:705: emit-trace-info */ - f_3805(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2) -); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7550,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k7548 */ -static void C_ccall f_7550(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7550,c,av);} -/* eval.scm:704: g1338 */ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* k7560 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7562(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_7562,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7563,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],a[10]=((C_word)li141),tmp=(C_word)a,a+=11,tmp); -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_7563 in k7560 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_7563,c,av);} -a=C_alloc(10); -t3=( -/* eval.scm:709: emit-trace-info */ - f_3805(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2) -); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7570,a[2]=t1,a[3]=((C_word*)t0)[8],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t5=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k7568 */ -static void C_ccall f_7570(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_7570,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7577,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7575 in k7568 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7577,c,av);} -/* eval.scm:708: g1343 */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k7588 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,7)))){ -C_save_and_reclaim((void *)f_7590,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7593,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* eval.scm:712: compile */ -t3=((C_word*)((C_word*)t0)[10])[1]; -f_3933(t3,t2,C_u_i_list_ref(((C_word*)t0)[11],C_fix(1)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k7591 in k7588 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_7593,c,av);} -a=C_alloc(12); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7594,a[2]=((C_word*)t0)[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]=t1,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word)li142),tmp=(C_word)a,a+=12,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_7594 in k7591 in k7588 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7594(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_7594,c,av);} -a=C_alloc(11); -t3=( -/* eval.scm:714: emit-trace-info */ - f_3805(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2) -); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7601,a[2]=t1,a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=((C_word*)t0)[9],tmp=(C_word)a,a+=6,tmp); -t5=((C_word*)t0)[10];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k7599 */ -static void C_ccall f_7601(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_7601,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7608,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); -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7606 in k7599 */ -static void C_ccall f_7608(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_7608,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7612,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7610 in k7606 in k7599 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_7612,c,av);} -/* eval.scm:713: g1349 */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* k7624 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,7)))){ -C_save_and_reclaim((void *)f_7626,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7629,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); -/* eval.scm:717: compile */ -t3=((C_word*)((C_word*)t0)[10])[1]; -f_3933(t3,t2,C_u_i_list_ref(((C_word*)t0)[11],C_fix(1)),((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[3],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k7627 in k7624 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7629(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,7)))){ -C_save_and_reclaim((void *)f_7629,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7632,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,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:718: compile */ -t3=((C_word*)((C_word*)t0)[11])[1]; -f_3933(t3,t2,C_u_i_list_ref(((C_word*)t0)[12],C_fix(2)),((C_word*)t0)[7],C_SCHEME_FALSE,((C_word*)t0)[3],((C_word*)t0)[6],C_SCHEME_FALSE);} - -/* k7630 in k7627 in k7624 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7632(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ -C_save_and_reclaim((void *)f_7632,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,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]=((C_word*)t0)[7],a[8]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word)li143),tmp=(C_word)a,a+=13,tmp); -t3=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_7633 in k7630 in k7627 in k7624 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -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_7633,c,av);} -a=C_alloc(12); -t3=( -/* eval.scm:720: emit-trace-info */ - f_3805(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2) -); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7640,a[2]=t1,a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],tmp=(C_word)a,a+=7,tmp); -t5=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k7638 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7640,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7647,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7645 in k7638 */ -static void C_ccall f_7647(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7647,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7651,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); -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7649 in k7645 in k7638 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_7651,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7655,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); -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7653 in k7649 in k7645 in k7638 */ -static void C_ccall f_7655(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7655,c,av);} -/* eval.scm:719: g1356 */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t1; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* k7668 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,7)))){ -C_save_and_reclaim((void *)f_7670,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7673,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:723: compile */ -t3=((C_word*)((C_word*)t0)[10])[1]; -f_3933(t3,t2,C_u_i_list_ref(((C_word*)t0)[11],C_fix(1)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k7671 in k7668 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7673(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,7)))){ -C_save_and_reclaim((void *)f_7673,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7676,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:724: compile */ -t3=((C_word*)((C_word*)t0)[11])[1]; -f_3933(t3,t2,C_u_i_list_ref(((C_word*)t0)[12],C_fix(2)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k7674 in k7671 in k7668 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7676(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,7)))){ -C_save_and_reclaim((void *)f_7676,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:725: compile */ -t3=((C_word*)((C_word*)t0)[12])[1]; -f_3933(t3,t2,C_u_i_list_ref(((C_word*)t0)[13],C_fix(3)),((C_word*)t0)[8],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* k7677 in k7674 in k7671 in k7668 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ -C_save_and_reclaim((void *)f_7679,c,av);} -a=C_alloc(14); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7680,a[2]=((C_word*)t0)[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]=t1,a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word)li144),tmp=(C_word)a,a+=14,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_7680 in k7677 in k7674 in k7671 in k7668 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_7680,c,av);} -a=C_alloc(13); -t3=( -/* eval.scm:727: emit-trace-info */ - f_3805(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2) -); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7687,a[2]=t1,a[3]=((C_word*)t0)[8],a[4]=t2,a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); -t5=((C_word*)t0)[12];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k7685 */ -static void C_ccall f_7687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_7687,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7694,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); -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7692 in k7685 */ -static void C_ccall f_7694(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_7694,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7698,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); -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7696 in k7692 in k7685 */ -static void C_ccall f_7698(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_7698,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7702,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); -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7700 in k7696 in k7692 in k7685 */ -static void C_ccall f_7702(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7702,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7706,a[2]=((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); -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k7704 in k7700 in k7696 in k7692 in k7685 */ -static void C_ccall f_7706(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_7706,c,av);} -/* eval.scm:726: g1364 */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=t1; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} - -/* g1376 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_7717(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_7717,3,t0,t1,t2);} -/* eval.scm:729: compile */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE);} - -/* k7725 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_7727,c,av);} -a=C_alloc(11); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7728,a[2]=((C_word*)t0)[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]=t1,a[9]=((C_word*)t0)[9],a[10]=((C_word)li148),tmp=(C_word)a,a+=11,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_7728 in k7725 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7728(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_7728,c,av);} -a=C_alloc(10); -t3=( -/* eval.scm:731: emit-trace-info */ - f_3805(C_a_i(&a,5),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2) -); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7739,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t5=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k7737 */ -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 t3; -C_word t4; -C_word t5; -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(22,c,3)))){ -C_save_and_reclaim((void *)f_7739,c,av);} -a=C_alloc(22); -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_7744,a[2]=((C_word*)t0)[2],a[3]=((C_word)li146),tmp=(C_word)a,a+=4,tmp); -t7=C_i_check_list_2(((C_word*)t0)[3],lf[53]); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7754,a[2]=((C_word*)t0)[4],a[3]=t1,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_7756,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li147),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_7756(t12,t8,((C_word*)t0)[3]);} - -/* g1404 in k7737 */ -static void f_7744(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_7744,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);}} - -/* k7752 in k7737 */ -static void C_ccall f_7754(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_7754,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop1398 in k7737 */ -static void f_7756(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_7756,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7781,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); -/* eval.scm:732: g1404 */ -t4=((C_word*)t0)[4]; -f_7744(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k7779 in map-loop1398 in k7737 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_7781,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_7756(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop1370 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_7790(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_7790,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7815,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); -/* eval.scm:729: g1376 */ -t4=((C_word*)t0)[4]; -f_7717(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k7813 in map-loop1370 in k7522 in k7513 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_7815,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_7790(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* f_7838 in compile-call in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -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,1)))){ -C_save_and_reclaim((void *)f_7838,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k7855 in chicken.eval#compile-to-closure in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7857(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_7857,c,av);} -/* eval.scm:734: compile */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3933(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_SCHEME_FALSE,C_fixnum_greaterp(t1,C_fix(0)),((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7907,c,av);} -a=C_alloc(7); -t3=*((C_word*)lf[85]+1); -t4=*((C_word*)lf[98]+1); -t5=*((C_word*)lf[9]+1); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7911,a[2]=t5,a[3]=t4,a[4]=t3,a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* eval.scm:740: ##sys#meta-macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[158]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[158]+1); -av2[1]=t6; -tp(2,av2);}} - -/* k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_7911,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7914,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); -/* eval.scm:741: ##sys#current-meta-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[159]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[159]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ -C_save_and_reclaim((void *)f_7914,c,av);} -a=C_alloc(31); -t2=C_SCHEME_FALSE; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=((C_word*)t0)[2]; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=t1; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_SCHEME_TRUE; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7919,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word)li153),tmp=(C_word)a,a+=10,tmp); -t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7962,a[2]=((C_word*)t0)[6],a[3]=((C_word)li156),tmp=(C_word)a,a+=4,tmp); -t12=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7994,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li157),tmp=(C_word)a,a+=9,tmp); -/* eval.scm:739: ##sys#dynamic-wind */ -t13=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t13; -av2[1]=((C_word*)t0)[7]; -av2[2]=t10; -av2[3]=t11; -av2[4]=t12; -((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} - -/* a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_7919,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7923,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* eval.scm:739: ##sys#current-module1440 */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_7923(2,av2);}}} - -/* k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7923(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ -C_save_and_reclaim((void *)f_7923,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,tmp=(C_word)a,a+=11,tmp); -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* eval.scm:739: ##sys#macro-environment1441 */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[3])[1]; -f_7926(2,av2);}}} - -/* k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_7926,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7929,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* eval.scm:739: ##sys#current-environment1442 */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[4])[1]; -f_7929(2,av2);}}} - -/* k7927 in k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7929(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_7929,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_7933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,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:739: ##sys#current-module1440 */ -t3=((C_word*)t0)[10];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k7931 in k7927 in k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7933(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_7933,c,av);} -a=C_alloc(12); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7937,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); -/* eval.scm:739: ##sys#macro-environment1441 */ -t4=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k7935 in k7931 in k7927 in k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7937(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_7937,c,av);} -a=C_alloc(11); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7941,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); -/* eval.scm:739: ##sys#current-environment1442 */ -t4=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k7939 in k7935 in k7931 in k7927 in k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_7941,c,av);} -a=C_alloc(8); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7944,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); -/* eval.scm:739: ##sys#current-module1440 */ -t4=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[10]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k7942 in k7939 in k7935 in k7931 in k7927 in k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_7944,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7947,a[2]=((C_word*)t0)[2],a[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:739: ##sys#macro-environment1441 */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k7945 in k7942 in k7939 in k7935 in k7931 in k7927 in k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7947(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_7947,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7950,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:739: ##sys#current-environment1442 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k7948 in k7945 in k7942 in k7939 in k7935 in k7931 in k7927 in k7924 in k7921 in a7918 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7950(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_7950,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a7961 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7962(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_7962,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7968,a[2]=((C_word*)t0)[2],a[3]=((C_word)li154),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7977,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:742: scheme#dynamic-wind */ -t4=*((C_word*)lf[160]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=*((C_word*)lf[161]+1); -av2[3]=t2; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* a7967 in a7961 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7968(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ -C_save_and_reclaim((void *)f_7968,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7972,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:745: compile-to-closure */ -f_3620(t2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST,C_a_i_list(&a,4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_TRUE));} - -/* k7970 in a7967 in a7961 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7972,c,av);} -/* eval.scm:744: g1474 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a7976 in a7961 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *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_7977,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7981,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7992,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:756: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k7979 in a7976 in a7961 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7981(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_7981,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7988,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:757: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[98]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[98]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7986 in k7979 in a7976 in a7961 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7988(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7988,c,av);} -/* eval.scm:757: ##sys#meta-macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[158]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[158]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k7990 in a7976 in a7961 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7992(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7992,c,av);} -/* eval.scm:756: ##sys#current-meta-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[159]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[159]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* a7993 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_7994(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *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_7994,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7998,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* eval.scm:739: ##sys#current-module1440 */ -t3=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k7996 in a7993 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_7998,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8001,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); -/* eval.scm:739: ##sys#macro-environment1441 */ -t3=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k7999 in k7996 in a7993 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_8001,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8004,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],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* eval.scm:739: ##sys#current-environment1442 */ -t3=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k8002 in k7999 in k7996 in a7993 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_8004,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8007,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=11,tmp); -/* eval.scm:739: ##sys#current-module1440 */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8005 in k8002 in k7999 in k7996 in a7993 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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(10,c,4)))){ -C_save_and_reclaim((void *)f_8007,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8010,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); -/* eval.scm:739: ##sys#macro-environment1441 */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8008 in k8005 in k8002 in k7999 in k7996 in a7993 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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(9,c,4)))){ -C_save_and_reclaim((void *)f_8010,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8013,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -/* eval.scm:739: ##sys#current-environment1442 */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8011 in k8008 in k8005 in k8002 in k7999 in k7996 in a7993 in k7912 in k7909 in ##sys#eval/meta in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_8013,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); -t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); -t5=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8020(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ -C_save_and_reclaim((void *)f_8020,c,av);} -a=C_alloc(15); -t2=C_mutate((C_word*)lf[162]+1 /* (set! chicken.eval#eval-handler ...) */,t1); -t3=C_mutate((C_word*)lf[163]+1 /* (set! scheme#eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8022,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[164]+1 /* (set! chicken.eval#module-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8032,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8039,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11551,a[2]=((C_word)li268),tmp=(C_word)a,a+=3,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11619,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:797: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t5; -av2[2]=t6; -av2[3]=t7; -C_call_with_values(4,av2);}} - -/* scheme#eval in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_8022,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_8030,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:787: eval-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[162]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[162]+1); -av2[1]=t4; -tp(2,av2);}} - -/* k8028 in scheme#eval in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8030(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8030,c,av);}{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -C_apply(5,av2);}} - -/* chicken.eval#module-environment in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_8032,c,av);} -/* eval.scm:792: chicken.module#module-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[165]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[165]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} - -/* k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8039(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,4)))){ -C_save_and_reclaim((void *)f_8039,c,av);} -a=C_alloc(19); -t2=C_mutate((C_word*)lf[69]+1 /* (set! ##sys#decompose-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8041,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp)); -t3=C_a_i_record5(&a,5,lf[168],lf[169],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); -t4=C_mutate((C_word*)lf[170]+1 /* (set! scheme#interaction-environment ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8126,a[2]=t3,a[3]=((C_word)li164),tmp=(C_word)a,a+=4,tmp)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8130,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11535,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:844: chicken.base#set-record-printer! */ -t7=*((C_word*)lf[356]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[168]; -av2[3]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} - -/* ##sys#decompose-lambda-list in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_8041,c,av);} -a=C_alloc(12); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8044,a[2]=t2,a[3]=((C_word)li161),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_8054,a[2]=t3,a[3]=t4,a[4]=t6,a[5]=((C_word)li162),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_8054(t8,t1,t2,C_SCHEME_END_OF_LIST,C_fix(0));} - -/* err in ##sys#decompose-lambda-list in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_8044(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_8044,2,t0,t1);} -t2=C_set_block_item(lf[166] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE); -/* eval.scm:829: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[71]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[71]+1); -av2[1]=t1; -av2[2]=lf[167]; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} - -/* loop in ##sys#decompose-lambda-list in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_8054(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: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ -C_save_and_reclaim_args((void *)trf_8054,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_8068,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:832: reverse */ -t7=*((C_word*)lf[105]+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_i_not(C_blockp(t2)))){ -/* eval.scm:833: err */ -t6=((C_word*)t0)[3]; -f_8044(t6,t1);} -else{ -if(C_truep(C_symbolp(t2))){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8087,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:834: reverse */ -t8=*((C_word*)lf[105]+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_i_not(C_pairp(t2)))){ -/* eval.scm:835: err */ -t6=((C_word*)t0)[3]; -f_8044(t6,t1);} -else{ -t6=C_slot(t2,C_fix(1)); -t7=C_slot(t2,C_fix(0)); -t8=C_a_i_cons(&a,2,t7,t3); -/* eval.scm:836: loop */ -t10=t1; -t11=t6; -t12=t8; -t13=C_fixnum_plus(t4,C_fix(1)); -t1=t10; -t2=t11; -t3=t12; -t4=t13; -goto loop;}}}}} - -/* k8066 in loop in ##sys#decompose-lambda-list in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8068,c,av);} -/* eval.scm:832: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* k8085 in loop in ##sys#decompose-lambda-list in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8087(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8087,c,av);} -/* eval.scm:834: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* scheme#interaction-environment in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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!=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_8126,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_8130,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8133,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:850: chicken.module#module-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[165]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[165]+1); -av2[1]=t2; -av2[2]=lf[351]; -av2[3]=lf[352]; -tp(4,av2);}} - -/* k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_8133,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8136,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:851: chicken.module#module-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[165]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[165]+1); -av2[1]=t2; -av2[2]=lf[349]; -av2[3]=lf[350]; -tp(4,av2);}} - -/* k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_8136,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8139,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:852: chicken.module#module-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[165]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[165]+1); -av2[1]=t2; -av2[2]=lf[347]; -av2[3]=lf[348]; -tp(4,av2);}} - -/* k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_8139,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8142,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); -/* eval.scm:853: chicken.module#module-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[165]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[165]+1); -av2[1]=t2; -av2[2]=lf[345]; -av2[3]=lf[346]; -tp(4,av2);}} - -/* k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_8142,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8144,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11529,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=t2,tmp=(C_word)a,a+=8,tmp); -/* eval.scm:879: strip */ -f_8144(t3,C_slot(((C_word*)t0)[2],C_fix(3)));} - -/* strip in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_8144(C_word 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_8144,2,t1,t2);} -a=C_alloc(6); -t3=C_i_check_list_2(t2,lf[171]); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_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_8153,a[2]=t5,a[3]=((C_word)li165),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_8153(t7,t1,t2);} - -/* foldr1600 in strip in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_8153(C_word t0,C_word 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: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ -C_save_and_reclaim_args((void *)trf_8153,3,t0,t1,t2);} -a=C_alloc(4); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8184,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t6=t4; -t7=C_slot(t2,C_fix(1)); -t1=t6; -t2=t7; -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);}}} - -/* k8182 in foldr1600 in strip in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8184(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8184,c,av);} -a=C_alloc(3); -t2=C_i_car(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep((C_truep(C_eqp(t2,lf[172]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[173]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[174]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[175]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[176]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[95]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[177]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[178]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[179]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[180]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[181]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[182]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[108]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[183]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[184]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[86]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))))))))))))?t1:C_a_i_cons(&a,2,((C_word*)t0)[2],t1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#scheme-report-environment in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8202(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_8202,c,av);} -t3=C_i_check_fixnum_2(t2,lf[186]); -switch(t2){ -case C_fix(4): -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -case C_fix(5): -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -default: -/* eval.scm:890: ##sys#error */ -t4=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[186]; -av2[3]=lf[187]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* scheme#null-environment in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_8227(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_8227,c,av);} -t3=C_i_check_fixnum_2(t2,lf[189]); -switch(t2){ -case C_fix(4): -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -case C_fix(5): -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -default: -/* eval.scm:900: ##sys#error */ -t4=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[189]; -av2[3]=lf[190]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 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_8253,c,av);} -a=C_alloc(6); -t2=C_mutate(&lf[192] /* (set! chicken.load#constant2165 ...) */,lf[193]); -t3=C_mutate(&lf[194] /* (set! chicken.load#constant2168 ...) */,lf[195]); -t4=C_mutate(&lf[196] /* (set! chicken.load#constant2198 ...) */,lf[197]); -t5=C_mutate(&lf[198] /* (set! chicken.load#constant2207 ...) */,lf[199]); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9543,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11501,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:959: chicken.platform#software-type */ -t8=*((C_word*)lf[344]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* loop in chicken.load#provided? in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void f_8630(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_8630,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_8652,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* mini-srfi-1.scm:82: pred */ -t5=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_i_car(t2); -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} - -/* k8650 in loop in chicken.load#provided? in k10283 in k10274 in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_8652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8652,c,av);} -if(C_truep(C_i_not(t1))){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* mini-srfi-1.scm:83: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_8630(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}} - -/* k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_9543(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_9543,2,t0,t1);} -a=C_alloc(6); -t2=C_mutate(&lf[200] /* (set! chicken.load#load-library-extension ...) */,t1); -t3=C_mutate((C_word*)lf[201]+1 /* (set! ##sys#load-dynamic-extension ...) */,lf[196]); -t4=C_mutate((C_word*)lf[202]+1 /* (set! chicken.load#core-library? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9546,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9560,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:972: chicken.platform#software-version */ -t6=*((C_word*)lf[335]+1);{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* chicken.load#core-library? in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 *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_9546,c,av);} -t3=C_i_memq(t2,lf[194]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?t3:C_i_assq(t2,lf[192])); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_9560(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_9560,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9563,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=C_eqp(t1,lf[332]); -if(C_truep(t3)){ -t4=t2; -f_9563(t4,lf[333]);} -else{ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11458,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11462,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t6=*((C_word*)lf[247]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_mpointer(&a,(void*)C_INSTALL_LIB_NAME); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_9563(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ -C_save_and_reclaim_args((void *)trf_9563,2,t0,t1);} -a=C_alloc(15); -t2=C_mutate(&lf[203] /* (set! chicken.load#default-dynamic-load-libraries ...) */,t1); -t3=C_mutate((C_word*)lf[102]+1 /* (set! ##sys#provide ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9565,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[204]+1 /* (set! ##sys#provided? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9568,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp)); -t5=(C_truep(*((C_word*)lf[205]+1))?lf[206]:lf[207]); -t6=C_mutate(&lf[208] /* (set! chicken.load#path-separators ...) */,t5); -t7=C_mutate(&lf[209] /* (set! chicken.load#path-separator-index/right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9575,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate(&lf[210] /* (set! chicken.load#make-relative-pathname ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9613,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp)); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9658,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1007: scheme#make-parameter */ -t10=*((C_word*)lf[329]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=C_i_debug_modep(); -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} - -/* ##sys#provide in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void C_ccall f_9565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ -C_save_and_reclaim((void *)f_9565,c,av);} -a=C_alloc(8); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_provide(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#provided? in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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=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_9568,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_providedp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.load#path-separator-index/right in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_9575(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_9575,2,t1,t2);} -a=C_alloc(4); -t3=C_i_string_length(t2); -t4=C_fixnum_difference(t3,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9585,a[2]=t2,a[3]=((C_word)li172),tmp=(C_word)a,a+=4,tmp); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=( - f_9585(t5,t4) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* loop in chicken.load#path-separator-index/right in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static C_word f_9585(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_stack_overflow_check; -loop:{} -t2=C_i_string_ref(((C_word*)t0)[2],t1); -t3=lf[208]; -if(C_truep(C_u_i_memq(t2,lf[208]))){ -return(t1);} -else{ -if(C_truep(C_fixnum_lessp(C_fix(0),t1))){ -t5=C_fixnum_difference(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -return(C_SCHEME_FALSE);}}} - -/* chicken.load#make-relative-pathname in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -static void f_9613(C_word t1,C_word 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_9613,3,t1,t2,t3);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9617,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_stringp(t2))){ -t5=C_i_string_length(t3); -if(C_truep(C_i_fixnum_positivep(t5))){ -t6=C_i_string_ref(t3,C_fix(0)); -t7=lf[208]; -if(C_truep(C_i_not(C_u_i_memq(t6,lf[208])))){ -/* eval.scm:1001: path-separator-index/right */ -f_9575(t4,t2);} -else{ -t8=t4;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_FALSE; -f_9617(2,av2);}}} -else{ -t6=t4;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_9617(2,av2);}}} -else{ -t5=t4;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -f_9617(2,av2);}}} - -/* k9615 in chicken.load#make-relative-pathname in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_9617,c,av);} -a=C_alloc(4); -if(C_truep(C_i_not(t1))){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9630,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1002: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[213]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[213]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(0); -av2[4]=t1; -tp(5,av2);}}} - -/* k9628 in k9615 in chicken.load#make-relative-pathname in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9630,c,av);} -/* eval.scm:1002: scheme#string-append */ -t2=*((C_word*)lf[211]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[212]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 */ -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 t7; -C_word t8; -C_word t9; -C_word 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(29,c,5)))){ -C_save_and_reclaim((void *)f_9658,c,av);} -a=C_alloc(29); -t2=C_mutate((C_word*)lf[214]+1 /* (set! chicken.load#load-verbose ...) */,t1); -t3=C_set_block_item(lf[215] /* ##sys#current-load-filename */,0,C_SCHEME_FALSE); -t4=C_set_block_item(lf[216] /* ##sys#dload-disabled */,0,C_SCHEME_FALSE); -t5=C_mutate((C_word*)lf[217]+1 /* (set! chicken.load#set-dynamic-load-mode! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9662,a[2]=((C_word)li176),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate(&lf[226] /* (set! chicken.load#c-toplevel ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9762,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp)); -t7=*((C_word*)lf[163]+1); -t8=*((C_word*)lf[234]+1); -t9=C_mutate(&lf[235] /* (set! chicken.load#load/internal ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9776,a[2]=t7,a[3]=t8,a[4]=((C_word)li192),tmp=(C_word)a,a+=5,tmp)); -t10=C_mutate(&lf[263] /* (set! chicken.load#evaluator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10188,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[264]+1 /* (set! scheme#load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10208,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[265]+1 /* (set! chicken.load#load-relative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10227,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[266]+1 /* (set! chicken.load#load-noisily ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10249,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp)); -t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10276,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_mk_bool(C_USES_SONAME))){ -t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11446,a[2]=t14,tmp=(C_word)a,a+=3,tmp); -t16=C_fix((C_word)C_BINARY_VERSION); -/* ##sys#fixnum->string */ -t17=*((C_word*)lf[331]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t17; -av2[1]=t15; -av2[2]=t16; -av2[3]=C_fix(10); -((C_proc)(void*)(*((C_word*)t17+1)))(4,av2);}} -else{ -t15=t14;{ -C_word *av2=av; -av2[0]=t15; -av2[1]=lf[200]; -f_10276(2,av2);}}} - -/* chicken.load#set-dynamic-load-mode! in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void C_ccall f_9662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_9662,c,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_9669,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_9674,a[2]=t11,a[3]=t8,a[4]=t6,a[5]=((C_word)li175),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_9674(t13,t9,t4);} - -/* k9667 in chicken.load#set-dynamic-load-mode! in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9669,c,av);} -/* eval.scm:1027: ##sys#set-dlopen-flags! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[218]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[218]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=((C_word*)((C_word*)t0)[4])[1]; -tp(4,av2);}} - -/* loop in chicken.load#set-dynamic-load-mode! in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void f_9674(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -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_9674,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_9687,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t5=C_eqp(t3,lf[219]); -if(C_truep(t5)){ -t6=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); -/* eval.scm:1026: loop */ -t11=t1; -t12=C_slot(t2,C_fix(1)); -t1=t11; -t2=t12; -goto loop;} -else{ -t6=C_eqp(t3,lf[220]); -if(C_truep(t6)){ -t7=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE); -/* eval.scm:1026: loop */ -t11=t1; -t12=C_slot(t2,C_fix(1)); -t1=t11; -t2=t12; -goto loop;} -else{ -t7=C_eqp(t3,lf[221]); -if(C_truep(t7)){ -t8=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_FALSE); -/* eval.scm:1026: loop */ -t11=t1; -t12=C_slot(t2,C_fix(1)); -t1=t11; -t2=t12; -goto loop;} -else{ -t8=C_eqp(t3,lf[222]); -if(C_truep(t8)){ -t9=C_set_block_item(((C_word*)t0)[4],0,C_SCHEME_TRUE); -/* eval.scm:1026: loop */ -t11=t1; -t12=C_slot(t2,C_fix(1)); -t1=t11; -t2=t12; -goto loop;} -else{ -/* eval.scm:1025: ##sys#signal-hook */ -t9=*((C_word*)lf[223]+1);{ -C_word av2[5]; -av2[0]=t9; -av2[1]=t4; -av2[2]=lf[224]; -av2[3]=lf[225]; -av2[4]=C_slot(t2,C_fix(0)); -((C_proc)(void*)(*((C_word*)t9+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);}}} - -/* k9685 in loop in chicken.load#set-dynamic-load-mode! in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -static void C_ccall f_9687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9687,c,av);} -/* eval.scm:1026: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9674(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k9754 in chicken.load#c-toplevel in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -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,3)))){ -C_save_and_reclaim((void *)f_9756,c,av);} -/* eval.scm:1032: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[231]; -tp(4,av2);}} - -/* k9758 in chicken.load#c-toplevel in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_9760(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9760,c,av);} -/* eval.scm:1033: chicken.internal#string->c-identifier */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[232]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[232]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* chicken.load#c-toplevel in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void f_9762(C_word t1,C_word 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(13,0,3)))){ -C_save_and_reclaim_args((void *)trf_9762,3,t1,t2,t3);} -a=C_alloc(13); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9770,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9774,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_not(t2))){ -/* eval.scm:1037: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t4; -av2[2]=lf[229]; -av2[3]=lf[230]; -tp(4,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9756,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9760,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1033: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[233]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[233]+1); -av2[1]=t7; -av2[2]=t2; -tp(3,av2);}}} - -/* k9768 in chicken.load#c-toplevel in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void C_ccall f_9770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9770,c,av);} -/* eval.scm:1037: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[227]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[227]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k9772 in chicken.load#c-toplevel in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9774,c,av);} -/* eval.scm:1037: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[229]; -av2[3]=t1; -tp(4,av2);}} - -/* chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in k3563 in ... */ -static void f_9776(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(24,0,3)))){ -C_save_and_reclaim_args((void *)trf_9776,5,t0,t1,t2,t3,t4);} -a=C_alloc(24); -t5=C_i_nullp(t4); -t6=(C_truep(t5)?C_SCHEME_FALSE:C_i_car(t4)); -t7=C_i_nullp(t4); -t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_i_cdr(t4)); -t9=C_i_nullp(t8); -t10=(C_truep(t9)?C_SCHEME_FALSE:C_i_car(t8)); -t11=C_i_nullp(t8); -t12=(C_truep(t11)?C_SCHEME_END_OF_LIST:C_i_cdr(t8)); -t13=C_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_i_nullp(t16); -t18=(C_truep(t17)?C_SCHEME_FALSE:C_i_car(t16)); -t19=C_i_nullp(t16); -t20=(C_truep(t19)?C_SCHEME_END_OF_LIST:C_i_cdr(t16)); -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_truep(t3)?t3:((C_word*)t0)[2]); -t30=C_set_block_item(t22,0,t29); -t31=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9819,a[2]=t18,a[3]=((C_word)li178),tmp=(C_word)a,a+=4,tmp)); -t32=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9854,a[2]=t26,a[3]=t28,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t10,a[7]=t22,a[8]=t6,a[9]=t14,a[10]=t2,a[11]=t24,tmp=(C_word)a,a+=12,tmp); -if(C_truep(C_i_not(*((C_word*)lf[216]+1)))){ -/* eval.scm:1067: chicken.platform#feature? */ -t33=*((C_word*)lf[261]+1);{ -C_word av2[3]; -av2[0]=t33; -av2[1]=t32; -av2[2]=lf[262]; -((C_proc)(void*)(*((C_word*)t33+1)))(3,av2);}} -else{ -t33=t32;{ -C_word av2[2]; -av2[0]=t33; -av2[1]=C_SCHEME_FALSE; -f_9854(2,av2);}}} - -/* k9812 */ -static void C_ccall f_9814(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9814,c,av);} -if(C_truep(t1)){ -/* eval.scm:1060: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[227]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[227]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[237]; -tp(4,av2);}} -else{ -/* eval.scm:1057: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[238]; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}}} - -/* f_9819 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 in ... */ -static void f_9819(C_word 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_9819,3,t0,t1,t2);} -a=C_alloc(12); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9823,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9850,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9814,a[2]=t3,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1055: path-separator-index/right */ -f_9575(t5,t2);} - -/* k9821 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_9823,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9826,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|3,a[1]=(C_word)f_9846,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1061: c-toplevel */ -f_9762(t3,((C_word*)t0)[3],lf[237]);} - -/* k9824 in k9821 */ -static void C_ccall f_9826(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9826,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1063: c-toplevel */ -f_9762(t2,C_SCHEME_FALSE,lf[237]);} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} - -/* k9840 in k9824 in k9821 */ -static void C_ccall f_9842(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9842,c,av);} -/* eval.scm:1063: ##sys#dload */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[236]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[236]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k9844 in k9821 */ -static void C_ccall f_9846(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9846,c,av);} -/* eval.scm:1061: ##sys#dload */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[236]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[236]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k9848 */ -static void C_ccall f_9850(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9850,c,av);} -/* eval.scm:1060: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[227]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[227]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[237]; -tp(4,av2);}} - -/* k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in k3566 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 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_9854,c,av);} -a=C_alloc(17); -t2=C_set_block_item(((C_word*)t0)[2],0,t1); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9858,a[2]=((C_word*)t0)[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],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10083,a[2]=t3,a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1070: scheme#port? */ -t5=*((C_word*)lf[260]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in k3569 in ... */ -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 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_9858,c,av);} -a=C_alloc(16); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9861,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],tmp=(C_word)a,a+=12,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10080,a[2]=((C_word*)t0)[2],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1081: load-verbose */ -t5=*((C_word*)lf[214]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in k3572 in ... */ -static void C_ccall f_9861(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_9861,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9864,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],tmp=(C_word)a,a+=10,tmp); -if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ -if(C_truep(((C_word*)((C_word*)t0)[10])[1])){ -/* eval.scm:1087: dload */ -t3=((C_word*)((C_word*)t0)[11])[1]; -f_9819(t3,t2,((C_word*)((C_word*)t0)[3])[1]);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_9864(2,av2);}}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_9864(2,av2);}}} - -/* k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in k3616 in ... */ -static void C_ccall f_9864(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_9864,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9867,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(t1)){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9872,a[2]=((C_word*)t0)[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)li191),tmp=(C_word)a,a+=10,tmp); -t4=t3; -f_9872(t4,t2);}} - -/* k9865 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void C_ccall f_9867(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_9867,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in k8018 in ... */ -static void f_9872(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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(40,0,4)))){ -C_save_and_reclaim_args((void *)trf_9872,2,t0,t1);} -a=C_alloc(40); -t2=C_SCHEME_TRUE; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=((C_word*)((C_word*)t0)[2])[1]; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)((C_word*)t0)[2])[1]; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_SCHEME_FALSE; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_SCHEME_FALSE; -t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); -t12=C_SCHEME_FALSE; -t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); -t14=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9878,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=t3,a[6]=t5,a[7]=t7,a[8]=((C_word)li179),tmp=(C_word)a,a+=9,tmp); -t15=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9887,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word)li189),tmp=(C_word)a,a+=10,tmp); -t16=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10049,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=t13,a[8]=((C_word)li190),tmp=(C_word)a,a+=9,tmp); -/* eval.scm:1090: ##sys#dynamic-wind */ -t17=*((C_word*)lf[20]+1);{ -C_word av2[5]; -av2[0]=t17; -av2[1]=t1; -av2[2]=t14; -av2[3]=t15; -av2[4]=t16; -((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} - -/* a9877 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_9878(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_9878,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[239]+1)); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,*((C_word*)lf[215]+1)); -t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,*((C_word*)lf[19]+1)); -t5=C_mutate((C_word*)lf[239]+1 /* (set! ##sys#read-error-with-line-number ...) */,((C_word*)((C_word*)t0)[5])[1]); -t6=C_mutate((C_word*)lf[215]+1 /* (set! ##sys#current-load-filename ...) */,((C_word*)((C_word*)t0)[6])[1]); -t7=C_mutate((C_word*)lf[19]+1 /* (set! ##sys#current-source-filename ...) */,((C_word*)((C_word*)t0)[7])[1]); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in k8037 in ... */ -static void C_ccall f_9887(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *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_9887,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); -if(C_truep(((C_word*)((C_word*)t0)[7])[1])){ -/* eval.scm:1093: open-input-file */ -t3=*((C_word*)lf[250]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[7])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[8]; -f_9891(2,av2);}}} - -/* k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in k8128 in ... */ -static void C_ccall f_9891(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_9891,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9894,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); -/* eval.scm:1094: case-sensitive */ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in k8131 in ... */ -static void C_ccall f_9894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ -C_save_and_reclaim((void *)f_9894,c,av);} -a=C_alloc(23); -t2=t1; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=*((C_word*)lf[240]+1); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9899,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li180),tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9906,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)li187),tmp=(C_word)a,a+=10,tmp); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10037,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li188),tmp=(C_word)a,a+=6,tmp); -/* eval.scm:1096: ##sys#dynamic-wind */ -t8=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t8; -av2[1]=((C_word*)t0)[9]; -av2[2]=t5; -av2[3]=t6; -av2[4]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} - -/* a9898 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 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 *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_9899,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9904,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1097: case-sensitive */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k9902 in a9898 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in ... */ -static void C_ccall f_9904(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_9904,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in k8134 in ... */ -static void C_ccall f_9906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(c!=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_9906,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9910,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* eval.scm:1099: scheme#peek-char */ -t3=*((C_word*)lf[248]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in k8137 in ... */ -static void C_ccall f_9910(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,3)))){ -C_save_and_reclaim((void *)f_9910,c,av);} -a=C_alloc(19); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9913,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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(t1,C_make_character(127)); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10028,a[2]=t2,a[3]=((C_word*)t0)[9],tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10032,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t6=*((C_word*)lf[247]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_mpointer(&a,(void*)C_dlerror); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_9913(2,av2);}}} - -/* k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in k8140 in ... */ -static void C_ccall f_9913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_9913,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9916,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -/* eval.scm:1107: read-with-source-info */ -t3=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in k11527 in ... */ -static void C_ccall f_9916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_9916,c,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_9921,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)li186),tmp=(C_word)a,a+=10,tmp)); -t5=((C_word*)t3)[1]; -f_9921(t5,((C_word*)t0)[8],t1);} - -/* doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in k11519 in ... */ -static void f_9921(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ -C_save_and_reclaim_args((void *)trf_9921,3,t0,t1,t2);} -a=C_alloc(10); -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|9,a[1]=(C_word)f_9931,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]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); -if(C_truep(((C_word*)t0)[8])){ -/* eval.scm:1110: printer */ -t4=((C_word*)t0)[8];{ -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_9931(2,av2);}}}} - -/* k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in k11511 in ... */ -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; -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,3)))){ -C_save_and_reclaim((void *)f_9931,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9934,a[2]=((C_word*)t0)[2],a[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_9943,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word)li183),tmp=(C_word)a,a+=6,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9977,a[2]=((C_word*)t0)[9],a[3]=((C_word)li185),tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1111: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* k9932 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in ... */ -static void C_ccall f_9934(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9934,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9941,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* eval.scm:1108: read-with-source-info */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k9939 in k9932 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in ... */ -static void C_ccall f_9941(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9941,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9921(t2,((C_word*)t0)[3],t1);} - -/* a9942 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in ... */ -static void C_ccall f_9943(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9943,c,av);} -a=C_alloc(5); -if(C_truep(((C_word*)t0)[2])){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9950,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* eval.scm:1114: ##sys#start-timer */ -t3=*((C_word*)lf[243]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* eval.scm:1115: evalproc */ -t2=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}} - -/* k9948 in a9942 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in ... */ -static void C_ccall f_9950(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9950,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9955,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li181),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9961,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1114: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a9954 in k9948 in a9942 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in ... */ -static void C_ccall f_9955(C_word c,C_word *av){ -C_word tmp; -C_word 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_9955,c,av);} -/* eval.scm:1114: evalproc */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a9960 in k9948 in a9942 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in ... */ -static void C_ccall f_9961(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_9961,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_9965,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9972,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1114: ##sys#stop-timer */ -t5=*((C_word*)lf[242]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k9963 in a9960 in k9948 in a9942 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in ... */ -static void C_ccall f_9965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9965,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -C_apply_values(3,av2);}} - -/* k9970 in a9960 in k9948 in a9942 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in ... */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9972,c,av);} -/* eval.scm:1114: ##sys#display-times */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[241]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[241]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* a9976 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in k11503 in ... */ -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; -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_9977,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_9994,a[2]=t4,a[3]=((C_word)li184),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_9994(t6,t1,t2);} -else{ -t3=C_SCHEME_UNDEFINED; -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k9984 in for-each-loop2385 in a9976 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in ... */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_9986,c,av);} -/* eval.scm:1121: newline */ -t2=*((C_word*)lf[244]+1);{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* for-each-loop2385 in a9976 in k9929 in doloop2375 in k9914 in k9911 in k9908 in a9905 in k9892 in k9889 in a9886 in a9871 in k9862 in k9859 in k9856 in k9852 in chicken.load#load/internal in k9656 in k9561 in k9558 in k9541 in k8251 in ... */ -static void f_9994(C_word 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_9994,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_10004,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9986,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* eval.scm:1120: write */ -t6=*((C_word*)lf[16]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t3=C_SCHEME_UNDEFINED; -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_eval_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("eval")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_eval_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(2340))){ -C_save(t1); -C_rereclaim2(2340*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,360); -lf[0]=C_h_intern(&lf[0],4, C_text("eval")); -lf[1]=C_h_intern(&lf[1],13, C_text("chicken.eval#")); -lf[2]=C_h_intern(&lf[2],21, C_text("##sys#unbound-in-eval")); -lf[3]=C_h_intern(&lf[3],22, C_text("##sys#eval-debug-level")); -lf[5]=C_h_intern(&lf[5],9, C_text("##sys#get")); -lf[6]=C_h_intern(&lf[6],18, C_text("##core#macro-alias")); -lf[7]=C_h_intern(&lf[7],13, C_text("scheme#values")); -lf[8]=C_h_intern(&lf[8],14, C_text("scheme#symbol?")); -lf[9]=C_h_intern(&lf[9],25, C_text("##sys#current-environment")); -lf[10]=C_h_intern(&lf[10],9, C_text("frameinfo")); -lf[11]=C_h_intern(&lf[11],20, C_text("##sys#current-thread")); -lf[12]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\074\163\171\156\164\141\170\076\000")); -lf[13]=C_h_intern(&lf[13],30, C_text("chicken.syntax#get-line-number")); -lf[14]=C_h_intern(&lf[14],22, C_text("##sys#make-lambda-info")); -lf[15]=C_h_intern(&lf[15],24, C_text("scheme#get-output-string")); -lf[16]=C_h_intern(&lf[16],12, C_text("scheme#write")); -lf[17]=C_h_intern(&lf[17],25, C_text("scheme#open-output-string")); -lf[18]=C_h_intern(&lf[18],21, C_text("##sys#decorate-lambda")); -lf[19]=C_h_intern(&lf[19],29, C_text("##sys#current-source-filename")); -lf[20]=C_h_intern(&lf[20],18, C_text("##sys#dynamic-wind")); -lf[21]=C_h_intern(&lf[21],23, C_text("##sys#canonicalize-body")); -lf[22]=C_h_intern(&lf[22],13, C_text("scheme#append")); -lf[23]=C_h_intern(&lf[23],12, C_text("##core#begin")); -lf[24]=C_h_intern(&lf[24],29, C_text("##sys#include-forms-from-file")); -lf[25]=C_h_intern(&lf[25],11, C_text("##sys#error")); -lf[26]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\165\156\142\157\165\156\144\040\166\141\162\151\141\142\154\145\000")); -lf[27]=C_h_intern(&lf[27],34, C_text("##sys#symbol-has-toplevel-binding?")); -lf[28]=C_h_intern(&lf[28],23, C_text("##sys#alias-global-hook")); -lf[29]=C_h_intern(&lf[29],26, C_text("##sys#syntax-error/context")); -lf[30]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\151\154\154\145\147\141\154\040\156\157\156\055\141\164\157\155\151\143\040\157\142\152\145\143\164\000")); -lf[31]=C_h_intern(&lf[31],34, C_text("##sys#update-line-number-database!")); -lf[32]=C_h_intern(&lf[32],12, C_text("##core#quote")); -lf[33]=C_h_intern(&lf[33],27, C_text("chicken.syntax#strip-syntax")); -lf[34]=C_h_intern(&lf[34],13, C_text("##core#syntax")); -lf[35]=C_h_intern(&lf[35],12, C_text("##core#check")); -lf[36]=C_h_intern(&lf[36],16, C_text("##core#immutable")); -lf[37]=C_h_intern(&lf[37],16, C_text("##core#undefined")); -lf[38]=C_h_intern(&lf[38],9, C_text("##core#if")); -lf[39]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[40]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[41]=C_h_intern(&lf[41],33, C_text("##core#ensure-toplevel-definition")); -lf[42]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[43]=C_h_intern(&lf[43],18, C_text("##sys#put/restore!")); -lf[44]=C_h_intern(&lf[44],14, C_text("##sys#override")); -lf[45]=C_h_intern(&lf[45],5, C_text("value")); -lf[46]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\071\164\157\160\154\145\166\145\154\040\144\145\146\151\156\151\164\151\157\156\040\151\156\040\156\157\156\055\164\157\160\154\145\166\145\154\040\143\157\156\164\145\170\164\040\146\157\162\040\166\141\162\151\141\142\154\145\000")); -lf[47]=C_h_intern(&lf[47],11, C_text("##core#set!")); -lf[48]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\145\156\166\151\162\157\156\155\145\156\164\040\151\163\040\156\157\164\040\155\165\164\141\142\154\145\000")); -lf[49]=C_h_intern(&lf[49],21, C_text("##sys#notices-enabled")); -lf[50]=C_h_intern(&lf[50],12, C_text("##sys#notice")); -lf[51]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\141\163\163\151\147\156\155\145\156\164\040\164\157\040\151\155\160\157\162\164\145\144\040\166\141\154\165\145\040\142\151\156\144\151\156\147\000")); -lf[52]=C_h_intern(&lf[52],10, C_text("##core#let")); -lf[53]=C_h_intern(&lf[53],3, C_text("map")); -lf[54]=C_h_intern(&lf[54],12, C_text("scheme#cadar")); -lf[55]=C_h_intern(&lf[55],13, C_text("scheme#cadadr")); -lf[56]=C_h_intern(&lf[56],17, C_text("##sys#make-vector")); -lf[57]=C_h_intern(&lf[57],15, C_text("##sys#extend-se")); -lf[58]=C_h_intern(&lf[58],19, C_text("chicken.base#gensym")); -lf[59]=C_h_intern(&lf[59],14, C_text("##core#letrec*")); -lf[60]=C_h_intern(&lf[60],12, C_text("##sys#append")); -lf[61]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[62]=C_h_intern(&lf[62],13, C_text("##core#letrec")); -lf[63]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[64]=C_h_intern(&lf[64],13, C_text("##core#lambda")); -lf[65]=C_h_intern(&lf[65],1, C_text("?")); -lf[66]=C_h_intern(&lf[66],12, C_text("##sys#vector")); -lf[67]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\142\141\144\040\141\162\147\165\155\145\156\164\040\143\157\165\156\164\000")); -lf[68]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\142\141\144\040\141\162\147\165\155\145\156\164\040\143\157\165\156\164\000")); -lf[69]=C_h_intern(&lf[69],27, C_text("##sys#decompose-lambda-list")); -lf[70]=C_h_intern(&lf[70],33, C_text("##sys#expand-extended-lambda-list")); -lf[71]=C_h_intern(&lf[71],18, C_text("##sys#syntax-error")); -lf[72]=C_h_intern(&lf[72],27, C_text("##sys#extended-lambda-list?")); -lf[73]=C_h_intern(&lf[73],18, C_text("##sys#check-syntax")); -lf[74]=C_h_intern(&lf[74],6, C_text("lambda")); -lf[75]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[76]=C_h_intern(&lf[76],17, C_text("##core#let-syntax")); -lf[77]=C_h_intern(&lf[77],24, C_text("##sys#ensure-transformer")); -lf[78]=C_h_intern(&lf[78],15, C_text("##sys#eval/meta")); -lf[79]=C_h_intern(&lf[79],20, C_text("##core#letrec-syntax")); -lf[80]=C_h_intern(&lf[80],8, C_text("for-each")); -lf[81]=C_h_intern(&lf[81],20, C_text("##core#define-syntax")); -lf[82]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[83]=C_h_intern(&lf[83],30, C_text("##sys#extend-macro-environment")); -lf[84]=C_h_intern(&lf[84],28, C_text("##sys#register-syntax-export")); -lf[85]=C_h_intern(&lf[85],20, C_text("##sys#current-module")); -lf[86]=C_h_intern(&lf[86],6, C_text("syntax")); -lf[87]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\145\156\166\151\162\157\156\155\145\156\164\040\151\163\040\156\157\164\040\155\165\164\141\142\154\145\000")); -lf[88]=C_h_intern(&lf[88],29, C_text("##core#define-compiler-syntax")); -lf[89]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[90]=C_h_intern(&lf[90],26, C_text("##core#let-compiler-syntax")); -lf[91]=C_h_intern(&lf[91],14, C_text("##core#include")); -lf[92]=C_h_intern(&lf[92],17, C_text("##core#include-ci")); -lf[93]=C_h_intern(&lf[93],23, C_text("##core#let-module-alias")); -lf[94]=C_h_intern(&lf[94],25, C_text("##sys#with-module-aliases")); -lf[95]=C_h_intern(&lf[95],7, C_text("functor")); -lf[96]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\377\016")); -lf[97]=C_h_intern(&lf[97],13, C_text("##core#module")); -lf[98]=C_h_intern(&lf[98],23, C_text("##sys#macro-environment")); -lf[99]=C_h_intern(&lf[99],30, C_text("##sys#module-alias-environment")); -lf[100]=C_h_intern(&lf[100],31, C_text("##sys#initial-macro-environment")); -lf[101]=C_h_intern(&lf[101],21, C_text("##sys#undefined-value")); -lf[102]=C_h_intern(&lf[102],13, C_text("##sys#provide")); -lf[103]=C_h_intern(&lf[103],35, C_text("chicken.internal#module-requirement")); -lf[104]=C_h_intern(&lf[104],21, C_text("##sys#finalize-module")); -lf[105]=C_h_intern(&lf[105],14, C_text("scheme#reverse")); -lf[106]=C_h_intern(&lf[106],27, C_text("##sys#with-property-restore")); -lf[107]=C_h_intern(&lf[107],21, C_text("##sys#register-module")); -lf[108]=C_h_intern(&lf[108],6, C_text("module")); -lf[109]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\155\157\144\165\154\145\163\040\155\141\171\040\156\157\164\040\142\145\040\156\145\163\164\145\144\000")); -lf[110]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\166\141\154\151\144\040\145\170\160\157\162\164\040\163\171\156\164\141\170\000")); -lf[111]=C_h_intern(&lf[111],18, C_text("##core#loop-lambda")); -lf[112]=C_h_intern(&lf[112],14, C_text("##core#provide")); -lf[113]=C_h_intern(&lf[113],25, C_text("##core#require-for-syntax")); -lf[114]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[115]=C_h_intern(&lf[115],27, C_text("chicken.load#load-extension")); -lf[116]=C_h_intern(&lf[116],14, C_text("##core#require")); -lf[117]=C_h_intern(&lf[117],21, C_text("##sys#process-require")); -lf[118]=C_h_intern(&lf[118],26, C_text("##core#elaborationtimeonly")); -lf[119]=C_h_intern(&lf[119],25, C_text("##core#elaborationtimetoo")); -lf[120]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[121]=C_h_intern(&lf[121],21, C_text("##core#compiletimetoo")); -lf[122]=C_h_intern(&lf[122],22, C_text("##core#compiletimeonly")); -lf[123]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[124]=C_h_intern(&lf[124],14, C_text("##core#declare")); -lf[125]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[126]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\144\145\143\154\141\162\141\164\151\157\156\163\040\141\162\145\040\151\147\156\157\162\145\144\040\151\156\040\151\156\164\145\162\160\162\145\164\145\144\040\143\157\144\145\000")); -lf[127]=C_h_intern(&lf[127],20, C_text("##core#define-inline")); -lf[128]=C_h_intern(&lf[128],22, C_text("##core#define-constant")); -lf[129]=C_h_intern(&lf[129],6, C_text("define")); -lf[130]=C_h_intern(&lf[130],16, C_text("##core#primitive")); -lf[131]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\143\141\156\156\157\164\040\145\166\141\154\165\141\164\145\040\143\157\155\160\151\154\145\162\055\163\160\145\143\151\141\154\055\146\157\162\155\000")); -lf[132]=C_h_intern(&lf[132],10, C_text("##core#app")); -lf[133]=C_h_intern(&lf[133],10, C_text("##core#the")); -lf[134]=C_h_intern(&lf[134],15, C_text("##core#typecase")); -lf[135]=C_h_intern(&lf[135],4, C_text("else")); -lf[136]=C_h_intern(&lf[136],17, C_text("compiler-typecase")); -lf[137]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\070\156\157\040\140\145\154\163\145\055\143\154\141\165\163\145\047\040\151\156\040\165\156\162\145\163\157\154\166\145\144\040\140\143\157\155\160\151\154\145\162\055\164\171\160\145\143\141\163\145\047\040\146\157\162\155\000")); -lf[138]=C_h_intern(&lf[138],20, C_text("##sys#syntax-context")); -lf[139]=C_h_intern(&lf[139],13, C_text("##core#inline")); -lf[140]=C_h_intern(&lf[140],22, C_text("##core#inline_allocate")); -lf[141]=C_h_intern(&lf[141],21, C_text("##core#foreign-lambda")); -lf[142]=C_h_intern(&lf[142],30, C_text("##core#define-foreign-variable")); -lf[143]=C_h_intern(&lf[143],31, C_text("##core#define-external-variable")); -lf[144]=C_h_intern(&lf[144],19, C_text("##core#let-location")); -lf[145]=C_h_intern(&lf[145],24, C_text("##core#foreign-primitive")); -lf[146]=C_h_intern(&lf[146],15, C_text("##core#location")); -lf[147]=C_h_intern(&lf[147],22, C_text("##core#foreign-lambda*")); -lf[148]=C_h_intern(&lf[148],26, C_text("##core#define-foreign-type")); -lf[149]=C_h_intern(&lf[149],15, C_text("##core#callunit")); -lf[150]=C_h_intern(&lf[150],27, C_text("##core#local-specialization")); -lf[151]=C_h_intern(&lf[151],36, C_text("chicken.syntax#expansion-result-hook")); -lf[152]=C_h_intern(&lf[152],21, C_text("chicken.syntax#expand")); -lf[153]=C_h_intern(&lf[153],20, C_text("##sys#srfi-4-vector?")); -lf[154]=C_h_intern(&lf[154],30, C_text("chicken.bytevector#bytevector?")); -lf[155]=C_h_intern(&lf[155],24, C_text("chicken.keyword#keyword?")); -lf[156]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\074\145\166\141\154\076\000")); -lf[157]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\155\141\154\146\157\162\155\145\144\040\145\170\160\162\145\163\163\151\157\156\000")); -lf[158]=C_h_intern(&lf[158],28, C_text("##sys#meta-macro-environment")); -lf[159]=C_h_intern(&lf[159],30, C_text("##sys#current-meta-environment")); -lf[160]=C_h_intern(&lf[160],19, C_text("scheme#dynamic-wind")); -lf[161]=C_h_intern(&lf[161],17, C_text("chicken.base#void")); -lf[162]=C_h_intern(&lf[162],25, C_text("chicken.eval#eval-handler")); -lf[163]=C_h_intern(&lf[163],11, C_text("scheme#eval")); -lf[164]=C_h_intern(&lf[164],31, C_text("chicken.eval#module-environment")); -lf[165]=C_h_intern(&lf[165],33, C_text("chicken.module#module-environment")); -lf[166]=C_h_intern(&lf[166],26, C_text("##sys#syntax-error-culprit")); -lf[167]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\154\154\145\147\141\154\040\154\141\155\142\144\141\055\154\151\163\164\040\163\171\156\164\141\170\000")); -lf[168]=C_h_intern(&lf[168],11, C_text("environment")); -lf[169]=C_h_intern(&lf[169],23, C_text("interaction-environment")); -lf[170]=C_h_intern(&lf[170],30, C_text("scheme#interaction-environment")); -lf[171]=C_h_intern(&lf[171],5, C_text("foldr")); -lf[172]=C_h_intern(&lf[172],11, C_text("cond-expand")); -lf[173]=C_h_intern(&lf[173],16, C_text("define-interface")); -lf[174]=C_h_intern(&lf[174],11, C_text("delay-force")); -lf[175]=C_h_intern(&lf[175],6, C_text("export")); -lf[176]=C_h_intern(&lf[176],13, C_text("export/rename")); -lf[177]=C_h_intern(&lf[177],14, C_text("define-library")); -lf[178]=C_h_intern(&lf[178],6, C_text("import")); -lf[179]=C_h_intern(&lf[179],17, C_text("import-for-syntax")); -lf[180]=C_h_intern(&lf[180],13, C_text("import-syntax")); -lf[181]=C_h_intern(&lf[181],24, C_text("import-syntax-for-syntax")); -lf[182]=C_h_intern(&lf[182],7, C_text("letrec*")); -lf[183]=C_h_intern(&lf[183],8, C_text("reexport")); -lf[184]=C_h_intern(&lf[184],15, C_text("require-library")); -lf[185]=C_h_intern(&lf[185],32, C_text("scheme#scheme-report-environment")); -lf[186]=C_h_intern(&lf[186],25, C_text("scheme-report-environment")); -lf[187]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\165\156\163\165\160\160\157\162\164\145\144\040\163\143\150\145\155\145\040\162\145\160\157\162\164\040\145\156\166\151\162\157\156\155\145\156\164\040\166\145\162\163\151\157\156\000")); -lf[188]=C_h_intern(&lf[188],23, C_text("scheme#null-environment")); -lf[189]=C_h_intern(&lf[189],16, C_text("null-environment")); -lf[190]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\165\156\163\165\160\160\157\162\164\145\144\040\156\165\154\154\040\145\156\166\151\162\157\156\155\145\156\164\040\166\145\162\163\151\157\156\000")); -lf[191]=C_h_intern(&lf[191],13, C_text("chicken.load#")); -lf[193]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\143\150\151\143\153\145\156\056\146\157\162\145\151\147\156\376\003\000\000\002\376\001\000\000\031\001\043\043\143\157\162\145\043\162\145\161\165\151\162\145\055\146\157\162\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\022\001\143\150\151\143\153\145\156\055\146\146\151\055\163\171\156\164\141\170\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\142\145\147\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001\043\043\143\157\162\145\043\162\145\161\165\151\162\145\055\146\157\162\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\016\001\143\150\151\143\153\145\156\055\163\171\156\164\141\170\376\377\016\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\043\043\143\157\162\145\043\162\145\161\165\151\162\145\376\003\000\000\002\376\001\000\000\007\001\154\151\142\162\141\162\171\376\377\016\376\377\016\376\377\016")); -lf[195]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001\143\150\151\143\153\145\156\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\022\001\143\150\151\143\153\145\156\055\146\146\151\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\014\001\143\157\156\164\151\156\165\141\164\151\157\156\376\003\000\000\002\376\001\000\000\017\001\144\141\164\141\055\163\164\162\165\143\164\165\162\145\163\376\003\000\000\002\376\001\000\000\017\001\144\145\142\165\147\147\145\162\055\143\154\151\145\156\164\376\003\000\000\002\376\001\000\000\004\001\145\166\141\154\376\003\000\000\002\376\001\000\000\014\001\145\166\141\154\055\155\157\144\165\154\145\163\376\003\000\000\002\376\001\000\000\006\001\145\170\160\141\156\144\376\003\000\000\002\376\001\000\000\006\001\145\170\164\162\141\163\376\003\000\000\002\376\001\000\000\004\001\146\151\154\145\376\003\000\000\002\376\001\000\000\010\001\151\156\164\145\162\156\141\154\376\003\000\000\002\376\001\000\000\007\001\151\162\162\145\147\145\170\376\003\000\000\002\376\001\000\000\007\001\154\151\142\162\141\162\171\376\003\000\000\002\376\001\000\000\007\001\154\157\154\145\166\145\154\376\003\000\000\002\376\001\000\000\010\001\160\141\164\150\156\141\155\145\376\003\000\000\002\376\001\000\000\004\001\160\157\162\164\376\003\000\000\002\376\001\000\000\005\001\160\157\163\151\170\376\003\000\000\002\376\001\000\000\010\001\160\162\157\146\151\154\145\162\376\003\000\000\002\376\001\000\000\013\001\162\145\141\144\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\004\001\162\145\160\154\376\003\000\000\002\376\001\000\000\011\001\163\143\150\145\144\165\154\145\162\376\003\000\000\002\376\001\000\000\006\001\163\162\146\151\055\064\376\003\000\000\002\376\001\000\000\003\001\164\143\160\376\003\000\000\002\376\001\000\000\005\001\162\067\154\151\142\376\377\016")); -lf[197]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\163\157\000")); -lf[199]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\056\163\143\155\000")); -lf[201]=C_h_intern(&lf[201],28, C_text("##sys#load-dynamic-extension")); -lf[202]=C_h_intern(&lf[202],26, C_text("chicken.load#core-library?")); -lf[204]=C_h_intern(&lf[204],15, C_text("##sys#provided?")); -lf[205]=C_h_intern(&lf[205],22, C_text("##sys#windows-platform")); -lf[206]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000\057\376\377\016")); -lf[207]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\057\376\377\016")); -lf[211]=C_h_intern(&lf[211],20, C_text("scheme#string-append")); -lf[212]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[213]=C_h_intern(&lf[213],15, C_text("##sys#substring")); -lf[214]=C_h_intern(&lf[214],25, C_text("chicken.load#load-verbose")); -lf[215]=C_h_intern(&lf[215],27, C_text("##sys#current-load-filename")); -lf[216]=C_h_intern(&lf[216],20, C_text("##sys#dload-disabled")); -lf[217]=C_h_intern(&lf[217],35, C_text("chicken.load#set-dynamic-load-mode!")); -lf[218]=C_h_intern(&lf[218],23, C_text("##sys#set-dlopen-flags!")); -lf[219]=C_h_intern(&lf[219],6, C_text("global")); -lf[220]=C_h_intern(&lf[220],5, C_text("local")); -lf[221]=C_h_intern(&lf[221],4, C_text("lazy")); -lf[222]=C_h_intern(&lf[222],3, C_text("now")); -lf[223]=C_h_intern(&lf[223],17, C_text("##sys#signal-hook")); -lf[224]=C_h_intern(&lf[224],22, C_text("set-dynamic-load-mode!")); -lf[225]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\151\156\166\141\154\151\144\040\144\171\156\141\155\151\143\055\154\157\141\144\040\155\157\144\145\000")); -lf[227]=C_h_intern(&lf[227],19, C_text("##sys#make-c-string")); -lf[228]=C_h_intern(&lf[228],19, C_text("##sys#string-append")); -lf[229]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\103\137\000")); -lf[230]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\164\157\160\154\145\166\145\154\000")); -lf[231]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\137\164\157\160\154\145\166\145\154\000")); -lf[232]=C_h_intern(&lf[232],37, C_text("chicken.internal#string->c-identifier")); -lf[233]=C_h_intern(&lf[233],27, C_text("##sys#symbol->string/shared")); -lf[234]=C_h_intern(&lf[234],27, C_text("chicken.base#case-sensitive")); -lf[236]=C_h_intern(&lf[236],11, C_text("##sys#dload")); -lf[237]=C_h_intern(&lf[237],4, C_text("load")); -lf[238]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\056\057\000")); -lf[239]=C_h_intern(&lf[239],33, C_text("##sys#read-error-with-line-number")); -lf[240]=C_h_intern(&lf[240],36, C_text("chicken.syntax#read-with-source-info")); -lf[241]=C_h_intern(&lf[241],19, C_text("##sys#display-times")); -lf[242]=C_h_intern(&lf[242],16, C_text("##sys#stop-timer")); -lf[243]=C_h_intern(&lf[243],17, C_text("##sys#start-timer")); -lf[244]=C_h_intern(&lf[244],14, C_text("scheme#newline")); -lf[245]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\156\141\142\154\145\040\164\157\040\154\157\141\144\040\143\157\155\160\151\154\145\144\040\155\157\144\165\154\145\040\055\040\000")); -lf[246]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\165\156\153\156\157\167\156\040\162\145\141\163\157\156\000")); -lf[247]=C_h_intern(&lf[247],19, C_text("##sys#peek-c-string")); -lf[248]=C_h_intern(&lf[248],16, C_text("scheme#peek-char")); -lf[249]=C_h_intern(&lf[249],23, C_text("scheme#close-input-port")); -lf[250]=C_h_intern(&lf[250],22, C_text("scheme#open-input-file")); -lf[251]=C_h_intern(&lf[251],25, C_text("chicken.base#flush-output")); -lf[252]=C_h_intern(&lf[252],14, C_text("scheme#display")); -lf[253]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\040\056\056\056\012\000")); -lf[254]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\073\040\154\157\141\144\151\156\147\040\000")); -lf[255]=C_h_intern_kw(&lf[255],10, C_text("type-error")); -lf[256]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\162\164\040\157\162\040\163\164\162\151\156\147\000")); -lf[257]=C_h_intern_kw(&lf[257],10, C_text("file-error")); -lf[258]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\143\141\156\156\157\164\040\157\160\145\156\040\146\151\154\145\000")); -lf[259]=C_h_intern(&lf[259],18, C_text("##sys#file-exists?")); -lf[260]=C_h_intern(&lf[260],12, C_text("scheme#port?")); -lf[261]=C_h_intern(&lf[261],25, C_text("chicken.platform#feature?")); -lf[262]=C_h_intern_kw(&lf[262],5, C_text("dload")); -lf[264]=C_h_intern(&lf[264],11, C_text("scheme#load")); -lf[265]=C_h_intern(&lf[265],26, C_text("chicken.load#load-relative")); -lf[266]=C_h_intern(&lf[266],25, C_text("chicken.load#load-noisily")); -lf[267]=C_h_intern_kw(&lf[267],3, C_text("env")); -lf[268]=C_h_intern(&lf[268],17, C_text("##sys#get-keyword")); -lf[269]=C_h_intern_kw(&lf[269],7, C_text("printer")); -lf[270]=C_h_intern_kw(&lf[270],4, C_text("time")); -lf[271]=C_h_intern(&lf[271],35, C_text("chicken.load#dynamic-load-libraries")); -lf[272]=C_h_intern(&lf[272],22, C_text("chicken.load#load-unit")); -lf[273]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\165\156\141\142\154\145\040\164\157\040\154\157\141\144\040\154\151\142\162\141\162\171\000")); -lf[274]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\154\151\142\162\141\162\171\040\156\157\164\040\146\157\165\156\144\000")); -lf[275]=C_h_intern(&lf[275],12, C_text("load-library")); -lf[276]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\040\056\056\056\012\000")); -lf[277]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\073\040\154\157\141\144\151\156\147\040\154\151\142\162\141\162\171\040\000")); -lf[278]=C_h_intern(&lf[278],25, C_text("chicken.load#load-library")); -lf[279]=C_h_intern(&lf[279],27, C_text("scheme#call-with-input-file")); -lf[280]=C_h_intern(&lf[280],18, C_text("chicken.base#print")); -lf[281]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\073\040\151\156\143\154\165\144\151\156\147\040\000")); -lf[282]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\056\056\056\000")); -lf[283]=C_h_intern(&lf[283],7, C_text("include")); -lf[284]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\143\141\156\156\157\164\040\157\160\145\156\040\146\151\154\145\000")); -lf[285]=C_h_intern(&lf[285],30, C_text("##sys#resolve-include-filename")); -lf[286]=C_h_intern(&lf[286],16, C_text("##sys#setup-mode")); -lf[288]=C_h_intern(&lf[288],22, C_text("chicken.load#find-file")); -lf[289]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[290]=C_h_intern(&lf[290],35, C_text("chicken.load#find-dynamic-extension")); -lf[291]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[292]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\002\000\000\002\056\000\376\377\016")); -lf[293]=C_h_intern(&lf[293],23, C_text("##sys#include-pathnames")); -lf[294]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\002\000\000\002\056\000\376\377\016")); -lf[295]=C_h_intern(&lf[295],21, C_text("scheme#symbol->string")); -lf[296]=C_h_intern(&lf[296],32, C_text("chicken.platform#repository-path")); -lf[297]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\143\141\156\156\157\164\040\154\157\141\144\040\145\170\164\145\156\163\151\157\156\000")); -lf[298]=C_h_intern(&lf[298],20, C_text("chicken.load#require")); -lf[299]=C_h_intern(&lf[299],7, C_text("require")); -lf[300]=C_h_intern(&lf[300],20, C_text("chicken.load#provide")); -lf[301]=C_h_intern(&lf[301],7, C_text("provide")); -lf[302]=C_h_intern(&lf[302],22, C_text("chicken.load#provided?")); -lf[303]=C_h_intern(&lf[303],9, C_text("provided?")); -lf[304]=C_h_intern(&lf[304],6, C_text("static")); -lf[305]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[308]=C_h_intern(&lf[308],37, C_text("chicken.condition#print-error-message")); -lf[309]=C_h_intern(&lf[309],40, C_text("chicken.condition#with-exception-handler")); -lf[310]=C_h_intern(&lf[310],37, C_text("scheme#call-with-current-continuation")); -lf[312]=C_h_intern(&lf[312],8, C_text("##sys#gc")); -lf[314]=C_h_intern(&lf[314],19, C_text("##sys#thread-yield!")); -lf[317]=C_h_intern(&lf[317],11, C_text("scheme#read")); -lf[318]=C_h_intern(&lf[318],24, C_text("scheme#open-input-string")); -lf[320]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\105\162\162\157\162\072\040\156\157\164\040\145\156\157\165\147\150\040\162\157\157\155\040\146\157\162\040\162\145\163\165\154\164\040\163\164\162\151\156\147\000")); -lf[328]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\116\157\040\145\162\162\157\162\000")); -lf[329]=C_h_intern(&lf[329],21, C_text("scheme#make-parameter")); -lf[330]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[331]=C_h_intern(&lf[331],20, C_text("##sys#fixnum->string")); -lf[332]=C_h_intern(&lf[332],6, C_text("cygwin")); -lf[333]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\002\000\000\015\143\171\147\143\150\151\143\153\145\156\055\060\000\376\377\016")); -lf[334]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\151\142\000")); -lf[335]=C_h_intern(&lf[335],33, C_text("chicken.platform#software-version")); -lf[336]=C_h_intern(&lf[336],7, C_text("windows")); -lf[337]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\056\144\154\154\000")); -lf[338]=C_h_intern(&lf[338],6, C_text("macosx")); -lf[339]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\056\144\171\154\151\142\000")); -lf[340]=C_h_intern(&lf[340],4, C_text("hpux")); -lf[341]=C_h_intern(&lf[341],4, C_text("hppa")); -lf[342]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\163\154\000")); -lf[343]=C_h_intern(&lf[343],29, C_text("chicken.platform#machine-type")); -lf[344]=C_h_intern(&lf[344],30, C_text("chicken.platform#software-type")); -lf[345]=C_h_intern(&lf[345],16, C_text("scheme.r5rs-null")); -lf[346]=C_h_intern(&lf[346],18, C_text("null-environment/5")); -lf[347]=C_h_intern(&lf[347],16, C_text("scheme.r4rs-null")); -lf[348]=C_h_intern(&lf[348],18, C_text("null-environment/4")); -lf[349]=C_h_intern(&lf[349],11, C_text("scheme.r5rs")); -lf[350]=C_h_intern(&lf[350],27, C_text("scheme-report-environment/5")); -lf[351]=C_h_intern(&lf[351],11, C_text("scheme.r4rs")); -lf[352]=C_h_intern(&lf[352],27, C_text("scheme-report-environment/4")); -lf[353]=C_h_intern(&lf[353],18, C_text("##sys#write-char-0")); -lf[354]=C_h_intern(&lf[354],11, C_text("##sys#print")); -lf[355]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\145\156\166\151\162\157\156\155\145\156\164\040\000")); -lf[356]=C_h_intern(&lf[356],32, C_text("chicken.base#set-record-printer!")); -lf[357]=C_h_intern(&lf[357],10, C_text("##sys#put!")); -lf[358]=C_h_intern(&lf[358],39, C_text("chicken.internal#default-syntax-imports")); -lf[359]=C_h_intern(&lf[359],32, C_text("chicken.internal#default-imports")); -C_register_lf2(lf,360,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3565,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_modules_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[745] = { -{C_text("f12353:eval_2escm"),(void*)f12353}, -{C_text("f_10004:eval_2escm"),(void*)f_10004}, -{C_text("f_10028:eval_2escm"),(void*)f_10028}, -{C_text("f_10032:eval_2escm"),(void*)f_10032}, -{C_text("f_10037:eval_2escm"),(void*)f_10037}, -{C_text("f_10041:eval_2escm"),(void*)f_10041}, -{C_text("f_10049:eval_2escm"),(void*)f_10049}, -{C_text("f_10068:eval_2escm"),(void*)f_10068}, -{C_text("f_10071:eval_2escm"),(void*)f_10071}, -{C_text("f_10074:eval_2escm"),(void*)f_10074}, -{C_text("f_10080:eval_2escm"),(void*)f_10080}, -{C_text("f_10083:eval_2escm"),(void*)f_10083}, -{C_text("f_10098:eval_2escm"),(void*)f_10098}, -{C_text("f_10101:eval_2escm"),(void*)f_10101}, -{C_text("f_10104:eval_2escm"),(void*)f_10104}, -{C_text("f_10110:eval_2escm"),(void*)f_10110}, -{C_text("f_10122:eval_2escm"),(void*)f_10122}, -{C_text("f_10128:eval_2escm"),(void*)f_10128}, -{C_text("f_10188:eval_2escm"),(void*)f_10188}, -{C_text("f_10202:eval_2escm"),(void*)f_10202}, -{C_text("f_10208:eval_2escm"),(void*)f_10208}, -{C_text("f_10219:eval_2escm"),(void*)f_10219}, -{C_text("f_10227:eval_2escm"),(void*)f_10227}, -{C_text("f_10234:eval_2escm"),(void*)f_10234}, -{C_text("f_10241:eval_2escm"),(void*)f_10241}, -{C_text("f_10249:eval_2escm"),(void*)f_10249}, -{C_text("f_10256:eval_2escm"),(void*)f_10256}, -{C_text("f_10259:eval_2escm"),(void*)f_10259}, -{C_text("f_10266:eval_2escm"),(void*)f_10266}, -{C_text("f_10268:eval_2escm"),(void*)f_10268}, -{C_text("f_10271:eval_2escm"),(void*)f_10271}, -{C_text("f_10276:eval_2escm"),(void*)f_10276}, -{C_text("f_10278:eval_2escm"),(void*)f_10278}, -{C_text("f_10285:eval_2escm"),(void*)f_10285}, -{C_text("f_10287:eval_2escm"),(void*)f_10287}, -{C_text("f_10294:eval_2escm"),(void*)f_10294}, -{C_text("f_10297:eval_2escm"),(void*)f_10297}, -{C_text("f_10300:eval_2escm"),(void*)f_10300}, -{C_text("f_10303:eval_2escm"),(void*)f_10303}, -{C_text("f_10308:eval_2escm"),(void*)f_10308}, -{C_text("f_10322:eval_2escm"),(void*)f_10322}, -{C_text("f_10331:eval_2escm"),(void*)f_10331}, -{C_text("f_10342:eval_2escm"),(void*)f_10342}, -{C_text("f_10349:eval_2escm"),(void*)f_10349}, -{C_text("f_10352:eval_2escm"),(void*)f_10352}, -{C_text("f_10355:eval_2escm"),(void*)f_10355}, -{C_text("f_10368:eval_2escm"),(void*)f_10368}, -{C_text("f_10372:eval_2escm"),(void*)f_10372}, -{C_text("f_10376:eval_2escm"),(void*)f_10376}, -{C_text("f_10378:eval_2escm"),(void*)f_10378}, -{C_text("f_10405:eval_2escm"),(void*)f_10405}, -{C_text("f_10409:eval_2escm"),(void*)f_10409}, -{C_text("f_10412:eval_2escm"),(void*)f_10412}, -{C_text("f_10415:eval_2escm"),(void*)f_10415}, -{C_text("f_10420:eval_2escm"),(void*)f_10420}, -{C_text("f_10431:eval_2escm"),(void*)f_10431}, -{C_text("f_10433:eval_2escm"),(void*)f_10433}, -{C_text("f_10438:eval_2escm"),(void*)f_10438}, -{C_text("f_10449:eval_2escm"),(void*)f_10449}, -{C_text("f_10451:eval_2escm"),(void*)f_10451}, -{C_text("f_10471:eval_2escm"),(void*)f_10471}, -{C_text("f_10481:eval_2escm"),(void*)f_10481}, -{C_text("f_10487:eval_2escm"),(void*)f_10487}, -{C_text("f_10499:eval_2escm"),(void*)f_10499}, -{C_text("f_10506:eval_2escm"),(void*)f_10506}, -{C_text("f_10508:eval_2escm"),(void*)f_10508}, -{C_text("f_10537:eval_2escm"),(void*)f_10537}, -{C_text("f_10549:eval_2escm"),(void*)f_10549}, -{C_text("f_10555:eval_2escm"),(void*)f_10555}, -{C_text("f_10559:eval_2escm"),(void*)f_10559}, -{C_text("f_10562:eval_2escm"),(void*)f_10562}, -{C_text("f_10564:eval_2escm"),(void*)f_10564}, -{C_text("f_10568:eval_2escm"),(void*)f_10568}, -{C_text("f_10571:eval_2escm"),(void*)f_10571}, -{C_text("f_10581:eval_2escm"),(void*)f_10581}, -{C_text("f_10593:eval_2escm"),(void*)f_10593}, -{C_text("f_10600:eval_2escm"),(void*)f_10600}, -{C_text("f_10607:eval_2escm"),(void*)f_10607}, -{C_text("f_10609:eval_2escm"),(void*)f_10609}, -{C_text("f_10622:eval_2escm"),(void*)f_10622}, -{C_text("f_10656:eval_2escm"),(void*)f_10656}, -{C_text("f_10665:eval_2escm"),(void*)f_10665}, -{C_text("f_10681:eval_2escm"),(void*)f_10681}, -{C_text("f_10694:eval_2escm"),(void*)f_10694}, -{C_text("f_10697:eval_2escm"),(void*)f_10697}, -{C_text("f_10709:eval_2escm"),(void*)f_10709}, -{C_text("f_10713:eval_2escm"),(void*)f_10713}, -{C_text("f_10717:eval_2escm"),(void*)f_10717}, -{C_text("f_10720:eval_2escm"),(void*)f_10720}, -{C_text("f_10728:eval_2escm"),(void*)f_10728}, -{C_text("f_10747:eval_2escm"),(void*)f_10747}, -{C_text("f_10757:eval_2escm"),(void*)f_10757}, -{C_text("f_10770:eval_2escm"),(void*)f_10770}, -{C_text("f_10793:eval_2escm"),(void*)f_10793}, -{C_text("f_10812:eval_2escm"),(void*)f_10812}, -{C_text("f_10822:eval_2escm"),(void*)f_10822}, -{C_text("f_10835:eval_2escm"),(void*)f_10835}, -{C_text("f_10858:eval_2escm"),(void*)f_10858}, -{C_text("f_10872:eval_2escm"),(void*)f_10872}, -{C_text("f_10899:eval_2escm"),(void*)f_10899}, -{C_text("f_10968:eval_2escm"),(void*)f_10968}, -{C_text("f_10971:eval_2escm"),(void*)f_10971}, -{C_text("f_10984:eval_2escm"),(void*)f_10984}, -{C_text("f_10987:eval_2escm"),(void*)f_10987}, -{C_text("f_10990:eval_2escm"),(void*)f_10990}, -{C_text("f_11004:eval_2escm"),(void*)f_11004}, -{C_text("f_11040:eval_2escm"),(void*)f_11040}, -{C_text("f_11043:eval_2escm"),(void*)f_11043}, -{C_text("f_11053:eval_2escm"),(void*)f_11053}, -{C_text("f_11055:eval_2escm"),(void*)f_11055}, -{C_text("f_11065:eval_2escm"),(void*)f_11065}, -{C_text("f_11079:eval_2escm"),(void*)f_11079}, -{C_text("f_11090:eval_2escm"),(void*)f_11090}, -{C_text("f_11097:eval_2escm"),(void*)f_11097}, -{C_text("f_11100:eval_2escm"),(void*)f_11100}, -{C_text("f_11105:eval_2escm"),(void*)f_11105}, -{C_text("f_11110:eval_2escm"),(void*)f_11110}, -{C_text("f_11116:eval_2escm"),(void*)f_11116}, -{C_text("f_11122:eval_2escm"),(void*)f_11122}, -{C_text("f_11126:eval_2escm"),(void*)f_11126}, -{C_text("f_11129:eval_2escm"),(void*)f_11129}, -{C_text("f_11133:eval_2escm"),(void*)f_11133}, -{C_text("f_11135:eval_2escm"),(void*)f_11135}, -{C_text("f_11141:eval_2escm"),(void*)f_11141}, -{C_text("f_11147:eval_2escm"),(void*)f_11147}, -{C_text("f_11153:eval_2escm"),(void*)f_11153}, -{C_text("f_11159:eval_2escm"),(void*)f_11159}, -{C_text("f_11163:eval_2escm"),(void*)f_11163}, -{C_text("f_11168:eval_2escm"),(void*)f_11168}, -{C_text("f_11174:eval_2escm"),(void*)f_11174}, -{C_text("f_11178:eval_2escm"),(void*)f_11178}, -{C_text("f_11180:eval_2escm"),(void*)f_11180}, -{C_text("f_11186:eval_2escm"),(void*)f_11186}, -{C_text("f_11194:eval_2escm"),(void*)f_11194}, -{C_text("f_11196:eval_2escm"),(void*)f_11196}, -{C_text("f_11200:eval_2escm"),(void*)f_11200}, -{C_text("f_11205:eval_2escm"),(void*)f_11205}, -{C_text("f_11209:eval_2escm"),(void*)f_11209}, -{C_text("f_11216:eval_2escm"),(void*)f_11216}, -{C_text("f_11220:eval_2escm"),(void*)f_11220}, -{C_text("f_11222:eval_2escm"),(void*)f_11222}, -{C_text("f_11242:eval_2escm"),(void*)f_11242}, -{C_text("f_11248:eval_2escm"),(void*)f_11248}, -{C_text("f_11252:eval_2escm"),(void*)f_11252}, -{C_text("f_11255:eval_2escm"),(void*)f_11255}, -{C_text("f_11262:eval_2escm"),(void*)f_11262}, -{C_text("f_11266:eval_2escm"),(void*)f_11266}, -{C_text("f_11268:eval_2escm"),(void*)f_11268}, -{C_text("f_11272:eval_2escm"),(void*)f_11272}, -{C_text("f_11277:eval_2escm"),(void*)f_11277}, -{C_text("f_11281:eval_2escm"),(void*)f_11281}, -{C_text("f_11284:eval_2escm"),(void*)f_11284}, -{C_text("f_11291:eval_2escm"),(void*)f_11291}, -{C_text("f_11295:eval_2escm"),(void*)f_11295}, -{C_text("f_11299:eval_2escm"),(void*)f_11299}, -{C_text("f_11303:eval_2escm"),(void*)f_11303}, -{C_text("f_11305:eval_2escm"),(void*)f_11305}, -{C_text("f_11311:eval_2escm"),(void*)f_11311}, -{C_text("f_11319:eval_2escm"),(void*)f_11319}, -{C_text("f_11321:eval_2escm"),(void*)f_11321}, -{C_text("f_11327:eval_2escm"),(void*)f_11327}, -{C_text("f_11331:eval_2escm"),(void*)f_11331}, -{C_text("f_11334:eval_2escm"),(void*)f_11334}, -{C_text("f_11341:eval_2escm"),(void*)f_11341}, -{C_text("f_11345:eval_2escm"),(void*)f_11345}, -{C_text("f_11347:eval_2escm"),(void*)f_11347}, -{C_text("f_11351:eval_2escm"),(void*)f_11351}, -{C_text("f_11356:eval_2escm"),(void*)f_11356}, -{C_text("f_11360:eval_2escm"),(void*)f_11360}, -{C_text("f_11367:eval_2escm"),(void*)f_11367}, -{C_text("f_11369:eval_2escm"),(void*)f_11369}, -{C_text("f_11373:eval_2escm"),(void*)f_11373}, -{C_text("f_11378:eval_2escm"),(void*)f_11378}, -{C_text("f_11382:eval_2escm"),(void*)f_11382}, -{C_text("f_11384:eval_2escm"),(void*)f_11384}, -{C_text("f_11399:eval_2escm"),(void*)f_11399}, -{C_text("f_11401:eval_2escm"),(void*)f_11401}, -{C_text("f_11407:eval_2escm"),(void*)f_11407}, -{C_text("f_11432:eval_2escm"),(void*)f_11432}, -{C_text("f_11446:eval_2escm"),(void*)f_11446}, -{C_text("f_11458:eval_2escm"),(void*)f_11458}, -{C_text("f_11462:eval_2escm"),(void*)f_11462}, -{C_text("f_11489:eval_2escm"),(void*)f_11489}, -{C_text("f_11493:eval_2escm"),(void*)f_11493}, -{C_text("f_11497:eval_2escm"),(void*)f_11497}, -{C_text("f_11501:eval_2escm"),(void*)f_11501}, -{C_text("f_11505:eval_2escm"),(void*)f_11505}, -{C_text("f_11513:eval_2escm"),(void*)f_11513}, -{C_text("f_11521:eval_2escm"),(void*)f_11521}, -{C_text("f_11529:eval_2escm"),(void*)f_11529}, -{C_text("f_11535:eval_2escm"),(void*)f_11535}, -{C_text("f_11539:eval_2escm"),(void*)f_11539}, -{C_text("f_11542:eval_2escm"),(void*)f_11542}, -{C_text("f_11551:eval_2escm"),(void*)f_11551}, -{C_text("f_11557:eval_2escm"),(void*)f_11557}, -{C_text("f_11561:eval_2escm"),(void*)f_11561}, -{C_text("f_11564:eval_2escm"),(void*)f_11564}, -{C_text("f_11576:eval_2escm"),(void*)f_11576}, -{C_text("f_11578:eval_2escm"),(void*)f_11578}, -{C_text("f_11584:eval_2escm"),(void*)f_11584}, -{C_text("f_11589:eval_2escm"),(void*)f_11589}, -{C_text("f_11593:eval_2escm"),(void*)f_11593}, -{C_text("f_11596:eval_2escm"),(void*)f_11596}, -{C_text("f_11606:eval_2escm"),(void*)f_11606}, -{C_text("f_11619:eval_2escm"),(void*)f_11619}, -{C_text("f_11624:eval_2escm"),(void*)f_11624}, -{C_text("f_11631:eval_2escm"),(void*)f_11631}, -{C_text("f_11634:eval_2escm"),(void*)f_11634}, -{C_text("f_11649:eval_2escm"),(void*)f_11649}, -{C_text("f_11657:eval_2escm"),(void*)f_11657}, -{C_text("f_11661:eval_2escm"),(void*)f_11661}, -{C_text("f_11664:eval_2escm"),(void*)f_11664}, -{C_text("f_11668:eval_2escm"),(void*)f_11668}, -{C_text("f_11672:eval_2escm"),(void*)f_11672}, -{C_text("f_11675:eval_2escm"),(void*)f_11675}, -{C_text("f_11678:eval_2escm"),(void*)f_11678}, -{C_text("f_11687:eval_2escm"),(void*)f_11687}, -{C_text("f_11697:eval_2escm"),(void*)f_11697}, -{C_text("f_11701:eval_2escm"),(void*)f_11701}, -{C_text("f_11704:eval_2escm"),(void*)f_11704}, -{C_text("f_11707:eval_2escm"),(void*)f_11707}, -{C_text("f_11710:eval_2escm"),(void*)f_11710}, -{C_text("f_11718:eval_2escm"),(void*)f_11718}, -{C_text("f_11727:eval_2escm"),(void*)f_11727}, -{C_text("f_3565:eval_2escm"),(void*)f_3565}, -{C_text("f_3568:eval_2escm"),(void*)f_3568}, -{C_text("f_3571:eval_2escm"),(void*)f_3571}, -{C_text("f_3574:eval_2escm"),(void*)f_3574}, -{C_text("f_3582:eval_2escm"),(void*)f_3582}, -{C_text("f_3595:eval_2escm"),(void*)f_3595}, -{C_text("f_3603:eval_2escm"),(void*)f_3603}, -{C_text("f_3607:eval_2escm"),(void*)f_3607}, -{C_text("f_3610:eval_2escm"),(void*)f_3610}, -{C_text("f_3613:eval_2escm"),(void*)f_3613}, -{C_text("f_3618:eval_2escm"),(void*)f_3618}, -{C_text("f_3620:eval_2escm"),(void*)f_3620}, -{C_text("f_3647:eval_2escm"),(void*)f_3647}, -{C_text("f_3660:eval_2escm"),(void*)f_3660}, -{C_text("f_3682:eval_2escm"),(void*)f_3682}, -{C_text("f_3686:eval_2escm"),(void*)f_3686}, -{C_text("f_3694:eval_2escm"),(void*)f_3694}, -{C_text("f_3700:eval_2escm"),(void*)f_3700}, -{C_text("f_3707:eval_2escm"),(void*)f_3707}, -{C_text("f_3714:eval_2escm"),(void*)f_3714}, -{C_text("f_3716:eval_2escm"),(void*)f_3716}, -{C_text("f_3720:eval_2escm"),(void*)f_3720}, -{C_text("f_3728:eval_2escm"),(void*)f_3728}, -{C_text("f_3745:eval_2escm"),(void*)f_3745}, -{C_text("f_3775:eval_2escm"),(void*)f_3775}, -{C_text("f_3805:eval_2escm"),(void*)f_3805}, -{C_text("f_3819:eval_2escm"),(void*)f_3819}, -{C_text("f_3827:eval_2escm"),(void*)f_3827}, -{C_text("f_3836:eval_2escm"),(void*)f_3836}, -{C_text("f_3844:eval_2escm"),(void*)f_3844}, -{C_text("f_3851:eval_2escm"),(void*)f_3851}, -{C_text("f_3854:eval_2escm"),(void*)f_3854}, -{C_text("f_3869:eval_2escm"),(void*)f_3869}, -{C_text("f_3883:eval_2escm"),(void*)f_3883}, -{C_text("f_3887:eval_2escm"),(void*)f_3887}, -{C_text("f_3892:eval_2escm"),(void*)f_3892}, -{C_text("f_3897:eval_2escm"),(void*)f_3897}, -{C_text("f_3903:eval_2escm"),(void*)f_3903}, -{C_text("f_3916:eval_2escm"),(void*)f_3916}, -{C_text("f_3920:eval_2escm"),(void*)f_3920}, -{C_text("f_3933:eval_2escm"),(void*)f_3933}, -{C_text("f_3940:eval_2escm"),(void*)f_3940}, -{C_text("f_3941:eval_2escm"),(void*)f_3941}, -{C_text("f_3953:eval_2escm"),(void*)f_3953}, -{C_text("f_3959:eval_2escm"),(void*)f_3959}, -{C_text("f_3969:eval_2escm"),(void*)f_3969}, -{C_text("f_3972:eval_2escm"),(void*)f_3972}, -{C_text("f_3979:eval_2escm"),(void*)f_3979}, -{C_text("f_3989:eval_2escm"),(void*)f_3989}, -{C_text("f_3990:eval_2escm"),(void*)f_3990}, -{C_text("f_3995:eval_2escm"),(void*)f_3995}, -{C_text("f_3999:eval_2escm"),(void*)f_3999}, -{C_text("f_4020:eval_2escm"),(void*)f_4020}, -{C_text("f_4052:eval_2escm"),(void*)f_4052}, -{C_text("f_4063:eval_2escm"),(void*)f_4063}, -{C_text("f_4078:eval_2escm"),(void*)f_4078}, -{C_text("f_4097:eval_2escm"),(void*)f_4097}, -{C_text("f_4120:eval_2escm"),(void*)f_4120}, -{C_text("f_4141:eval_2escm"),(void*)f_4141}, -{C_text("f_4167:eval_2escm"),(void*)f_4167}, -{C_text("f_4175:eval_2escm"),(void*)f_4175}, -{C_text("f_4183:eval_2escm"),(void*)f_4183}, -{C_text("f_4191:eval_2escm"),(void*)f_4191}, -{C_text("f_4193:eval_2escm"),(void*)f_4193}, -{C_text("f_4212:eval_2escm"),(void*)f_4212}, -{C_text("f_4214:eval_2escm"),(void*)f_4214}, -{C_text("f_4224:eval_2escm"),(void*)f_4224}, -{C_text("f_4225:eval_2escm"),(void*)f_4225}, -{C_text("f_4244:eval_2escm"),(void*)f_4244}, -{C_text("f_4247:eval_2escm"),(void*)f_4247}, -{C_text("f_4253:eval_2escm"),(void*)f_4253}, -{C_text("f_4268:eval_2escm"),(void*)f_4268}, -{C_text("f_4277:eval_2escm"),(void*)f_4277}, -{C_text("f_4284:eval_2escm"),(void*)f_4284}, -{C_text("f_4292:eval_2escm"),(void*)f_4292}, -{C_text("f_4300:eval_2escm"),(void*)f_4300}, -{C_text("f_4308:eval_2escm"),(void*)f_4308}, -{C_text("f_4316:eval_2escm"),(void*)f_4316}, -{C_text("f_4324:eval_2escm"),(void*)f_4324}, -{C_text("f_4332:eval_2escm"),(void*)f_4332}, -{C_text("f_4334:eval_2escm"),(void*)f_4334}, -{C_text("f_4363:eval_2escm"),(void*)f_4363}, -{C_text("f_4397:eval_2escm"),(void*)f_4397}, -{C_text("f_4407:eval_2escm"),(void*)f_4407}, -{C_text("f_4410:eval_2escm"),(void*)f_4410}, -{C_text("f_4413:eval_2escm"),(void*)f_4413}, -{C_text("f_4414:eval_2escm"),(void*)f_4414}, -{C_text("f_4421:eval_2escm"),(void*)f_4421}, -{C_text("f_4495:eval_2escm"),(void*)f_4495}, -{C_text("f_4498:eval_2escm"),(void*)f_4498}, -{C_text("f_4499:eval_2escm"),(void*)f_4499}, -{C_text("f_4503:eval_2escm"),(void*)f_4503}, -{C_text("f_4517:eval_2escm"),(void*)f_4517}, -{C_text("f_4520:eval_2escm"),(void*)f_4520}, -{C_text("f_4523:eval_2escm"),(void*)f_4523}, -{C_text("f_4524:eval_2escm"),(void*)f_4524}, -{C_text("f_4528:eval_2escm"),(void*)f_4528}, -{C_text("f_4531:eval_2escm"),(void*)f_4531}, -{C_text("f_4569:eval_2escm"),(void*)f_4569}, -{C_text("f_4572:eval_2escm"),(void*)f_4572}, -{C_text("f_4600:eval_2escm"),(void*)f_4600}, -{C_text("f_4606:eval_2escm"),(void*)f_4606}, -{C_text("f_4610:eval_2escm"),(void*)f_4610}, -{C_text("f_4619:eval_2escm"),(void*)f_4619}, -{C_text("f_4623:eval_2escm"),(void*)f_4623}, -{C_text("f_4630:eval_2escm"),(void*)f_4630}, -{C_text("f_4631:eval_2escm"),(void*)f_4631}, -{C_text("f_4635:eval_2escm"),(void*)f_4635}, -{C_text("f_4661:eval_2escm"),(void*)f_4661}, -{C_text("f_4666:eval_2escm"),(void*)f_4666}, -{C_text("f_4678:eval_2escm"),(void*)f_4678}, -{C_text("f_4679:eval_2escm"),(void*)f_4679}, -{C_text("f_4688:eval_2escm"),(void*)f_4688}, -{C_text("f_4715:eval_2escm"),(void*)f_4715}, -{C_text("f_4724:eval_2escm"),(void*)f_4724}, -{C_text("f_4730:eval_2escm"),(void*)f_4730}, -{C_text("f_4733:eval_2escm"),(void*)f_4733}, -{C_text("f_4742:eval_2escm"),(void*)f_4742}, -{C_text("f_4743:eval_2escm"),(void*)f_4743}, -{C_text("f_4759:eval_2escm"),(void*)f_4759}, -{C_text("f_4763:eval_2escm"),(void*)f_4763}, -{C_text("f_4776:eval_2escm"),(void*)f_4776}, -{C_text("f_4779:eval_2escm"),(void*)f_4779}, -{C_text("f_4780:eval_2escm"),(void*)f_4780}, -{C_text("f_4796:eval_2escm"),(void*)f_4796}, -{C_text("f_4800:eval_2escm"),(void*)f_4800}, -{C_text("f_4804:eval_2escm"),(void*)f_4804}, -{C_text("f_4812:eval_2escm"),(void*)f_4812}, -{C_text("f_4825:eval_2escm"),(void*)f_4825}, -{C_text("f_4828:eval_2escm"),(void*)f_4828}, -{C_text("f_4834:eval_2escm"),(void*)f_4834}, -{C_text("f_4835:eval_2escm"),(void*)f_4835}, -{C_text("f_4851:eval_2escm"),(void*)f_4851}, -{C_text("f_4855:eval_2escm"),(void*)f_4855}, -{C_text("f_4859:eval_2escm"),(void*)f_4859}, -{C_text("f_4863:eval_2escm"),(void*)f_4863}, -{C_text("f_4871:eval_2escm"),(void*)f_4871}, -{C_text("f_4879:eval_2escm"),(void*)f_4879}, -{C_text("f_4892:eval_2escm"),(void*)f_4892}, -{C_text("f_4895:eval_2escm"),(void*)f_4895}, -{C_text("f_4901:eval_2escm"),(void*)f_4901}, -{C_text("f_4904:eval_2escm"),(void*)f_4904}, -{C_text("f_4905:eval_2escm"),(void*)f_4905}, -{C_text("f_4921:eval_2escm"),(void*)f_4921}, -{C_text("f_4925:eval_2escm"),(void*)f_4925}, -{C_text("f_4929:eval_2escm"),(void*)f_4929}, -{C_text("f_4933:eval_2escm"),(void*)f_4933}, -{C_text("f_4937:eval_2escm"),(void*)f_4937}, -{C_text("f_4945:eval_2escm"),(void*)f_4945}, -{C_text("f_4953:eval_2escm"),(void*)f_4953}, -{C_text("f_4961:eval_2escm"),(void*)f_4961}, -{C_text("f_4969:eval_2escm"),(void*)f_4969}, -{C_text("f_4982:eval_2escm"),(void*)f_4982}, -{C_text("f_4983:eval_2escm"),(void*)f_4983}, -{C_text("f_4987:eval_2escm"),(void*)f_4987}, -{C_text("f_4990:eval_2escm"),(void*)f_4990}, -{C_text("f_4999:eval_2escm"),(void*)f_4999}, -{C_text("f_5024:eval_2escm"),(void*)f_5024}, -{C_text("f_5029:eval_2escm"),(void*)f_5029}, -{C_text("f_5054:eval_2escm"),(void*)f_5054}, -{C_text("f_5071:eval_2escm"),(void*)f_5071}, -{C_text("f_5075:eval_2escm"),(void*)f_5075}, -{C_text("f_5079:eval_2escm"),(void*)f_5079}, -{C_text("f_5082:eval_2escm"),(void*)f_5082}, -{C_text("f_5088:eval_2escm"),(void*)f_5088}, -{C_text("f_5096:eval_2escm"),(void*)f_5096}, -{C_text("f_5104:eval_2escm"),(void*)f_5104}, -{C_text("f_5106:eval_2escm"),(void*)f_5106}, -{C_text("f_5110:eval_2escm"),(void*)f_5110}, -{C_text("f_5113:eval_2escm"),(void*)f_5113}, -{C_text("f_5118:eval_2escm"),(void*)f_5118}, -{C_text("f_5120:eval_2escm"),(void*)f_5120}, -{C_text("f_5145:eval_2escm"),(void*)f_5145}, -{C_text("f_5154:eval_2escm"),(void*)f_5154}, -{C_text("f_5227:eval_2escm"),(void*)f_5227}, -{C_text("f_5231:eval_2escm"),(void*)f_5231}, -{C_text("f_5251:eval_2escm"),(void*)f_5251}, -{C_text("f_5265:eval_2escm"),(void*)f_5265}, -{C_text("f_5299:eval_2escm"),(void*)f_5299}, -{C_text("f_5349:eval_2escm"),(void*)f_5349}, -{C_text("f_5358:eval_2escm"),(void*)f_5358}, -{C_text("f_5384:eval_2escm"),(void*)f_5384}, -{C_text("f_5411:eval_2escm"),(void*)f_5411}, -{C_text("f_5415:eval_2escm"),(void*)f_5415}, -{C_text("f_5427:eval_2escm"),(void*)f_5427}, -{C_text("f_5441:eval_2escm"),(void*)f_5441}, -{C_text("f_5489:eval_2escm"),(void*)f_5489}, -{C_text("f_5537:eval_2escm"),(void*)f_5537}, -{C_text("f_5571:eval_2escm"),(void*)f_5571}, -{C_text("f_5596:eval_2escm"),(void*)f_5596}, -{C_text("f_5605:eval_2escm"),(void*)f_5605}, -{C_text("f_5646:eval_2escm"),(void*)f_5646}, -{C_text("f_5657:eval_2escm"),(void*)f_5657}, -{C_text("f_5662:eval_2escm"),(void*)f_5662}, -{C_text("f_5672:eval_2escm"),(void*)f_5672}, -{C_text("f_5675:eval_2escm"),(void*)f_5675}, -{C_text("f_5681:eval_2escm"),(void*)f_5681}, -{C_text("f_5691:eval_2escm"),(void*)f_5691}, -{C_text("f_5697:eval_2escm"),(void*)f_5697}, -{C_text("f_5710:eval_2escm"),(void*)f_5710}, -{C_text("f_5716:eval_2escm"),(void*)f_5716}, -{C_text("f_5734:eval_2escm"),(void*)f_5734}, -{C_text("f_5740:eval_2escm"),(void*)f_5740}, -{C_text("f_5753:eval_2escm"),(void*)f_5753}, -{C_text("f_5759:eval_2escm"),(void*)f_5759}, -{C_text("f_5781:eval_2escm"),(void*)f_5781}, -{C_text("f_5787:eval_2escm"),(void*)f_5787}, -{C_text("f_5800:eval_2escm"),(void*)f_5800}, -{C_text("f_5806:eval_2escm"),(void*)f_5806}, -{C_text("f_5828:eval_2escm"),(void*)f_5828}, -{C_text("f_5834:eval_2escm"),(void*)f_5834}, -{C_text("f_5847:eval_2escm"),(void*)f_5847}, -{C_text("f_5853:eval_2escm"),(void*)f_5853}, -{C_text("f_5875:eval_2escm"),(void*)f_5875}, -{C_text("f_5881:eval_2escm"),(void*)f_5881}, -{C_text("f_5894:eval_2escm"),(void*)f_5894}, -{C_text("f_5900:eval_2escm"),(void*)f_5900}, -{C_text("f_5912:eval_2escm"),(void*)f_5912}, -{C_text("f_5916:eval_2escm"),(void*)f_5916}, -{C_text("f_5922:eval_2escm"),(void*)f_5922}, -{C_text("f_5934:eval_2escm"),(void*)f_5934}, -{C_text("f_5938:eval_2escm"),(void*)f_5938}, -{C_text("f_5939:eval_2escm"),(void*)f_5939}, -{C_text("f_5945:eval_2escm"),(void*)f_5945}, -{C_text("f_5967:eval_2escm"),(void*)f_5967}, -{C_text("f_5983:eval_2escm"),(void*)f_5983}, -{C_text("f_5987:eval_2escm"),(void*)f_5987}, -{C_text("f_5991:eval_2escm"),(void*)f_5991}, -{C_text("f_5994:eval_2escm"),(void*)f_5994}, -{C_text("f_6000:eval_2escm"),(void*)f_6000}, -{C_text("f_6008:eval_2escm"),(void*)f_6008}, -{C_text("f_6014:eval_2escm"),(void*)f_6014}, -{C_text("f_6018:eval_2escm"),(void*)f_6018}, -{C_text("f_6021:eval_2escm"),(void*)f_6021}, -{C_text("f_6026:eval_2escm"),(void*)f_6026}, -{C_text("f_6028:eval_2escm"),(void*)f_6028}, -{C_text("f_6053:eval_2escm"),(void*)f_6053}, -{C_text("f_6063:eval_2escm"),(void*)f_6063}, -{C_text("f_6068:eval_2escm"),(void*)f_6068}, -{C_text("f_6076:eval_2escm"),(void*)f_6076}, -{C_text("f_6078:eval_2escm"),(void*)f_6078}, -{C_text("f_6089:eval_2escm"),(void*)f_6089}, -{C_text("f_6098:eval_2escm"),(void*)f_6098}, -{C_text("f_6103:eval_2escm"),(void*)f_6103}, -{C_text("f_6107:eval_2escm"),(void*)f_6107}, -{C_text("f_6111:eval_2escm"),(void*)f_6111}, -{C_text("f_6114:eval_2escm"),(void*)f_6114}, -{C_text("f_6120:eval_2escm"),(void*)f_6120}, -{C_text("f_6128:eval_2escm"),(void*)f_6128}, -{C_text("f_6136:eval_2escm"),(void*)f_6136}, -{C_text("f_6138:eval_2escm"),(void*)f_6138}, -{C_text("f_6142:eval_2escm"),(void*)f_6142}, -{C_text("f_6145:eval_2escm"),(void*)f_6145}, -{C_text("f_6163:eval_2escm"),(void*)f_6163}, -{C_text("f_6167:eval_2escm"),(void*)f_6167}, -{C_text("f_6171:eval_2escm"),(void*)f_6171}, -{C_text("f_6175:eval_2escm"),(void*)f_6175}, -{C_text("f_6190:eval_2escm"),(void*)f_6190}, -{C_text("f_6194:eval_2escm"),(void*)f_6194}, -{C_text("f_6196:eval_2escm"),(void*)f_6196}, -{C_text("f_6250:eval_2escm"),(void*)f_6250}, -{C_text("f_6254:eval_2escm"),(void*)f_6254}, -{C_text("f_6258:eval_2escm"),(void*)f_6258}, -{C_text("f_6273:eval_2escm"),(void*)f_6273}, -{C_text("f_6276:eval_2escm"),(void*)f_6276}, -{C_text("f_6277:eval_2escm"),(void*)f_6277}, -{C_text("f_6296:eval_2escm"),(void*)f_6296}, -{C_text("f_6300:eval_2escm"),(void*)f_6300}, -{C_text("f_6304:eval_2escm"),(void*)f_6304}, -{C_text("f_6307:eval_2escm"),(void*)f_6307}, -{C_text("f_6313:eval_2escm"),(void*)f_6313}, -{C_text("f_6321:eval_2escm"),(void*)f_6321}, -{C_text("f_6329:eval_2escm"),(void*)f_6329}, -{C_text("f_6331:eval_2escm"),(void*)f_6331}, -{C_text("f_6335:eval_2escm"),(void*)f_6335}, -{C_text("f_6338:eval_2escm"),(void*)f_6338}, -{C_text("f_6341:eval_2escm"),(void*)f_6341}, -{C_text("f_6366:eval_2escm"),(void*)f_6366}, -{C_text("f_6368:eval_2escm"),(void*)f_6368}, -{C_text("f_6415:eval_2escm"),(void*)f_6415}, -{C_text("f_6418:eval_2escm"),(void*)f_6418}, -{C_text("f_6421:eval_2escm"),(void*)f_6421}, -{C_text("f_6424:eval_2escm"),(void*)f_6424}, -{C_text("f_6427:eval_2escm"),(void*)f_6427}, -{C_text("f_6434:eval_2escm"),(void*)f_6434}, -{C_text("f_6438:eval_2escm"),(void*)f_6438}, -{C_text("f_6442:eval_2escm"),(void*)f_6442}, -{C_text("f_6459:eval_2escm"),(void*)f_6459}, -{C_text("f_6481:eval_2escm"),(void*)f_6481}, -{C_text("f_6489:eval_2escm"),(void*)f_6489}, -{C_text("f_6525:eval_2escm"),(void*)f_6525}, -{C_text("f_6537:eval_2escm"),(void*)f_6537}, -{C_text("f_6539:eval_2escm"),(void*)f_6539}, -{C_text("f_6553:eval_2escm"),(void*)f_6553}, -{C_text("f_6578:eval_2escm"),(void*)f_6578}, -{C_text("f_6594:eval_2escm"),(void*)f_6594}, -{C_text("f_6603:eval_2escm"),(void*)f_6603}, -{C_text("f_6606:eval_2escm"),(void*)f_6606}, -{C_text("f_6609:eval_2escm"),(void*)f_6609}, -{C_text("f_6612:eval_2escm"),(void*)f_6612}, -{C_text("f_6617:eval_2escm"),(void*)f_6617}, -{C_text("f_6621:eval_2escm"),(void*)f_6621}, -{C_text("f_6624:eval_2escm"),(void*)f_6624}, -{C_text("f_6627:eval_2escm"),(void*)f_6627}, -{C_text("f_6630:eval_2escm"),(void*)f_6630}, -{C_text("f_6634:eval_2escm"),(void*)f_6634}, -{C_text("f_6638:eval_2escm"),(void*)f_6638}, -{C_text("f_6642:eval_2escm"),(void*)f_6642}, -{C_text("f_6646:eval_2escm"),(void*)f_6646}, -{C_text("f_6649:eval_2escm"),(void*)f_6649}, -{C_text("f_6652:eval_2escm"),(void*)f_6652}, -{C_text("f_6655:eval_2escm"),(void*)f_6655}, -{C_text("f_6658:eval_2escm"),(void*)f_6658}, -{C_text("f_6673:eval_2escm"),(void*)f_6673}, -{C_text("f_6679:eval_2escm"),(void*)f_6679}, -{C_text("f_6689:eval_2escm"),(void*)f_6689}, -{C_text("f_6699:eval_2escm"),(void*)f_6699}, -{C_text("f_6702:eval_2escm"),(void*)f_6702}, -{C_text("f_6705:eval_2escm"),(void*)f_6705}, -{C_text("f_6706:eval_2escm"),(void*)f_6706}, -{C_text("f_6712:eval_2escm"),(void*)f_6712}, -{C_text("f_6735:eval_2escm"),(void*)f_6735}, -{C_text("f_6746:eval_2escm"),(void*)f_6746}, -{C_text("f_6750:eval_2escm"),(void*)f_6750}, -{C_text("f_6765:eval_2escm"),(void*)f_6765}, -{C_text("f_6769:eval_2escm"),(void*)f_6769}, -{C_text("f_6773:eval_2escm"),(void*)f_6773}, -{C_text("f_6776:eval_2escm"),(void*)f_6776}, -{C_text("f_6779:eval_2escm"),(void*)f_6779}, -{C_text("f_6782:eval_2escm"),(void*)f_6782}, -{C_text("f_6785:eval_2escm"),(void*)f_6785}, -{C_text("f_6788:eval_2escm"),(void*)f_6788}, -{C_text("f_6791:eval_2escm"),(void*)f_6791}, -{C_text("f_6794:eval_2escm"),(void*)f_6794}, -{C_text("f_6801:eval_2escm"),(void*)f_6801}, -{C_text("f_6808:eval_2escm"),(void*)f_6808}, -{C_text("f_6821:eval_2escm"),(void*)f_6821}, -{C_text("f_6832:eval_2escm"),(void*)f_6832}, -{C_text("f_6865:eval_2escm"),(void*)f_6865}, -{C_text("f_6890:eval_2escm"),(void*)f_6890}, -{C_text("f_6918:eval_2escm"),(void*)f_6918}, -{C_text("f_6952:eval_2escm"),(void*)f_6952}, -{C_text("f_6978:eval_2escm"),(void*)f_6978}, -{C_text("f_6999:eval_2escm"),(void*)f_6999}, -{C_text("f_7028:eval_2escm"),(void*)f_7028}, -{C_text("f_7040:eval_2escm"),(void*)f_7040}, -{C_text("f_7063:eval_2escm"),(void*)f_7063}, -{C_text("f_7076:eval_2escm"),(void*)f_7076}, -{C_text("f_7096:eval_2escm"),(void*)f_7096}, -{C_text("f_7122:eval_2escm"),(void*)f_7122}, -{C_text("f_7140:eval_2escm"),(void*)f_7140}, -{C_text("f_7152:eval_2escm"),(void*)f_7152}, -{C_text("f_7157:eval_2escm"),(void*)f_7157}, -{C_text("f_7165:eval_2escm"),(void*)f_7165}, -{C_text("f_7167:eval_2escm"),(void*)f_7167}, -{C_text("f_7350:eval_2escm"),(void*)f_7350}, -{C_text("f_7355:eval_2escm"),(void*)f_7355}, -{C_text("f_7363:eval_2escm"),(void*)f_7363}, -{C_text("f_7365:eval_2escm"),(void*)f_7365}, -{C_text("f_7371:eval_2escm"),(void*)f_7371}, -{C_text("f_7378:eval_2escm"),(void*)f_7378}, -{C_text("f_7407:eval_2escm"),(void*)f_7407}, -{C_text("f_7436:eval_2escm"),(void*)f_7436}, -{C_text("f_7465:eval_2escm"),(void*)f_7465}, -{C_text("f_7482:eval_2escm"),(void*)f_7482}, -{C_text("f_7508:eval_2escm"),(void*)f_7508}, -{C_text("f_7515:eval_2escm"),(void*)f_7515}, -{C_text("f_7524:eval_2escm"),(void*)f_7524}, -{C_text("f_7543:eval_2escm"),(void*)f_7543}, -{C_text("f_7550:eval_2escm"),(void*)f_7550}, -{C_text("f_7562:eval_2escm"),(void*)f_7562}, -{C_text("f_7563:eval_2escm"),(void*)f_7563}, -{C_text("f_7570:eval_2escm"),(void*)f_7570}, -{C_text("f_7577:eval_2escm"),(void*)f_7577}, -{C_text("f_7590:eval_2escm"),(void*)f_7590}, -{C_text("f_7593:eval_2escm"),(void*)f_7593}, -{C_text("f_7594:eval_2escm"),(void*)f_7594}, -{C_text("f_7601:eval_2escm"),(void*)f_7601}, -{C_text("f_7608:eval_2escm"),(void*)f_7608}, -{C_text("f_7612:eval_2escm"),(void*)f_7612}, -{C_text("f_7626:eval_2escm"),(void*)f_7626}, -{C_text("f_7629:eval_2escm"),(void*)f_7629}, -{C_text("f_7632:eval_2escm"),(void*)f_7632}, -{C_text("f_7633:eval_2escm"),(void*)f_7633}, -{C_text("f_7640:eval_2escm"),(void*)f_7640}, -{C_text("f_7647:eval_2escm"),(void*)f_7647}, -{C_text("f_7651:eval_2escm"),(void*)f_7651}, -{C_text("f_7655:eval_2escm"),(void*)f_7655}, -{C_text("f_7670:eval_2escm"),(void*)f_7670}, -{C_text("f_7673:eval_2escm"),(void*)f_7673}, -{C_text("f_7676:eval_2escm"),(void*)f_7676}, -{C_text("f_7679:eval_2escm"),(void*)f_7679}, -{C_text("f_7680:eval_2escm"),(void*)f_7680}, -{C_text("f_7687:eval_2escm"),(void*)f_7687}, -{C_text("f_7694:eval_2escm"),(void*)f_7694}, -{C_text("f_7698:eval_2escm"),(void*)f_7698}, -{C_text("f_7702:eval_2escm"),(void*)f_7702}, -{C_text("f_7706:eval_2escm"),(void*)f_7706}, -{C_text("f_7717:eval_2escm"),(void*)f_7717}, -{C_text("f_7727:eval_2escm"),(void*)f_7727}, -{C_text("f_7728:eval_2escm"),(void*)f_7728}, -{C_text("f_7739:eval_2escm"),(void*)f_7739}, -{C_text("f_7744:eval_2escm"),(void*)f_7744}, -{C_text("f_7754:eval_2escm"),(void*)f_7754}, -{C_text("f_7756:eval_2escm"),(void*)f_7756}, -{C_text("f_7781:eval_2escm"),(void*)f_7781}, -{C_text("f_7790:eval_2escm"),(void*)f_7790}, -{C_text("f_7815:eval_2escm"),(void*)f_7815}, -{C_text("f_7838:eval_2escm"),(void*)f_7838}, -{C_text("f_7857:eval_2escm"),(void*)f_7857}, -{C_text("f_7907:eval_2escm"),(void*)f_7907}, -{C_text("f_7911:eval_2escm"),(void*)f_7911}, -{C_text("f_7914:eval_2escm"),(void*)f_7914}, -{C_text("f_7919:eval_2escm"),(void*)f_7919}, -{C_text("f_7923:eval_2escm"),(void*)f_7923}, -{C_text("f_7926:eval_2escm"),(void*)f_7926}, -{C_text("f_7929:eval_2escm"),(void*)f_7929}, -{C_text("f_7933:eval_2escm"),(void*)f_7933}, -{C_text("f_7937:eval_2escm"),(void*)f_7937}, -{C_text("f_7941:eval_2escm"),(void*)f_7941}, -{C_text("f_7944:eval_2escm"),(void*)f_7944}, -{C_text("f_7947:eval_2escm"),(void*)f_7947}, -{C_text("f_7950:eval_2escm"),(void*)f_7950}, -{C_text("f_7962:eval_2escm"),(void*)f_7962}, -{C_text("f_7968:eval_2escm"),(void*)f_7968}, -{C_text("f_7972:eval_2escm"),(void*)f_7972}, -{C_text("f_7977:eval_2escm"),(void*)f_7977}, -{C_text("f_7981:eval_2escm"),(void*)f_7981}, -{C_text("f_7988:eval_2escm"),(void*)f_7988}, -{C_text("f_7992:eval_2escm"),(void*)f_7992}, -{C_text("f_7994:eval_2escm"),(void*)f_7994}, -{C_text("f_7998:eval_2escm"),(void*)f_7998}, -{C_text("f_8001:eval_2escm"),(void*)f_8001}, -{C_text("f_8004:eval_2escm"),(void*)f_8004}, -{C_text("f_8007:eval_2escm"),(void*)f_8007}, -{C_text("f_8010:eval_2escm"),(void*)f_8010}, -{C_text("f_8013:eval_2escm"),(void*)f_8013}, -{C_text("f_8020:eval_2escm"),(void*)f_8020}, -{C_text("f_8022:eval_2escm"),(void*)f_8022}, -{C_text("f_8030:eval_2escm"),(void*)f_8030}, -{C_text("f_8032:eval_2escm"),(void*)f_8032}, -{C_text("f_8039:eval_2escm"),(void*)f_8039}, -{C_text("f_8041:eval_2escm"),(void*)f_8041}, -{C_text("f_8044:eval_2escm"),(void*)f_8044}, -{C_text("f_8054:eval_2escm"),(void*)f_8054}, -{C_text("f_8068:eval_2escm"),(void*)f_8068}, -{C_text("f_8087:eval_2escm"),(void*)f_8087}, -{C_text("f_8126:eval_2escm"),(void*)f_8126}, -{C_text("f_8130:eval_2escm"),(void*)f_8130}, -{C_text("f_8133:eval_2escm"),(void*)f_8133}, -{C_text("f_8136:eval_2escm"),(void*)f_8136}, -{C_text("f_8139:eval_2escm"),(void*)f_8139}, -{C_text("f_8142:eval_2escm"),(void*)f_8142}, -{C_text("f_8144:eval_2escm"),(void*)f_8144}, -{C_text("f_8153:eval_2escm"),(void*)f_8153}, -{C_text("f_8184:eval_2escm"),(void*)f_8184}, -{C_text("f_8202:eval_2escm"),(void*)f_8202}, -{C_text("f_8227:eval_2escm"),(void*)f_8227}, -{C_text("f_8253:eval_2escm"),(void*)f_8253}, -{C_text("f_8630:eval_2escm"),(void*)f_8630}, -{C_text("f_8652:eval_2escm"),(void*)f_8652}, -{C_text("f_9543:eval_2escm"),(void*)f_9543}, -{C_text("f_9546:eval_2escm"),(void*)f_9546}, -{C_text("f_9560:eval_2escm"),(void*)f_9560}, -{C_text("f_9563:eval_2escm"),(void*)f_9563}, -{C_text("f_9565:eval_2escm"),(void*)f_9565}, -{C_text("f_9568:eval_2escm"),(void*)f_9568}, -{C_text("f_9575:eval_2escm"),(void*)f_9575}, -{C_text("f_9585:eval_2escm"),(void*)f_9585}, -{C_text("f_9613:eval_2escm"),(void*)f_9613}, -{C_text("f_9617:eval_2escm"),(void*)f_9617}, -{C_text("f_9630:eval_2escm"),(void*)f_9630}, -{C_text("f_9658:eval_2escm"),(void*)f_9658}, -{C_text("f_9662:eval_2escm"),(void*)f_9662}, -{C_text("f_9669:eval_2escm"),(void*)f_9669}, -{C_text("f_9674:eval_2escm"),(void*)f_9674}, -{C_text("f_9687:eval_2escm"),(void*)f_9687}, -{C_text("f_9756:eval_2escm"),(void*)f_9756}, -{C_text("f_9760:eval_2escm"),(void*)f_9760}, -{C_text("f_9762:eval_2escm"),(void*)f_9762}, -{C_text("f_9770:eval_2escm"),(void*)f_9770}, -{C_text("f_9774:eval_2escm"),(void*)f_9774}, -{C_text("f_9776:eval_2escm"),(void*)f_9776}, -{C_text("f_9814:eval_2escm"),(void*)f_9814}, -{C_text("f_9819:eval_2escm"),(void*)f_9819}, -{C_text("f_9823:eval_2escm"),(void*)f_9823}, -{C_text("f_9826:eval_2escm"),(void*)f_9826}, -{C_text("f_9842:eval_2escm"),(void*)f_9842}, -{C_text("f_9846:eval_2escm"),(void*)f_9846}, -{C_text("f_9850:eval_2escm"),(void*)f_9850}, -{C_text("f_9854:eval_2escm"),(void*)f_9854}, -{C_text("f_9858:eval_2escm"),(void*)f_9858}, -{C_text("f_9861:eval_2escm"),(void*)f_9861}, -{C_text("f_9864:eval_2escm"),(void*)f_9864}, -{C_text("f_9867:eval_2escm"),(void*)f_9867}, -{C_text("f_9872:eval_2escm"),(void*)f_9872}, -{C_text("f_9878:eval_2escm"),(void*)f_9878}, -{C_text("f_9887:eval_2escm"),(void*)f_9887}, -{C_text("f_9891:eval_2escm"),(void*)f_9891}, -{C_text("f_9894:eval_2escm"),(void*)f_9894}, -{C_text("f_9899:eval_2escm"),(void*)f_9899}, -{C_text("f_9904:eval_2escm"),(void*)f_9904}, -{C_text("f_9906:eval_2escm"),(void*)f_9906}, -{C_text("f_9910:eval_2escm"),(void*)f_9910}, -{C_text("f_9913:eval_2escm"),(void*)f_9913}, -{C_text("f_9916:eval_2escm"),(void*)f_9916}, -{C_text("f_9921:eval_2escm"),(void*)f_9921}, -{C_text("f_9931:eval_2escm"),(void*)f_9931}, -{C_text("f_9934:eval_2escm"),(void*)f_9934}, -{C_text("f_9941:eval_2escm"),(void*)f_9941}, -{C_text("f_9943:eval_2escm"),(void*)f_9943}, -{C_text("f_9950:eval_2escm"),(void*)f_9950}, -{C_text("f_9955:eval_2escm"),(void*)f_9955}, -{C_text("f_9961:eval_2escm"),(void*)f_9961}, -{C_text("f_9965:eval_2escm"),(void*)f_9965}, -{C_text("f_9972:eval_2escm"),(void*)f_9972}, -{C_text("f_9977:eval_2escm"),(void*)f_9977}, -{C_text("f_9986:eval_2escm"),(void*)f_9986}, -{C_text("f_9994:eval_2escm"),(void*)f_9994}, -{C_text("toplevel:eval_2escm"),(void*)C_eval_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.eval#d -o|hiding unexported module binding: chicken.eval#define-alias -o|hiding unexported module binding: chicken.eval#d -o|hiding unexported module binding: chicken.eval#eval-decorator -o|hiding unexported module binding: chicken.eval#compile-to-closure -o|hiding unexported module binding: chicken.load#partition -o|hiding unexported module binding: chicken.load#span -o|hiding unexported module binding: chicken.load#take -o|hiding unexported module binding: chicken.load#drop -o|hiding unexported module binding: chicken.load#split-at -o|hiding unexported module binding: chicken.load#append-map -o|hiding unexported module binding: chicken.load#every -o|hiding unexported module binding: chicken.load#any -o|hiding unexported module binding: chicken.load#cons* -o|hiding unexported module binding: chicken.load#concatenate -o|hiding unexported module binding: chicken.load#delete -o|hiding unexported module binding: chicken.load#first -o|hiding unexported module binding: chicken.load#second -o|hiding unexported module binding: chicken.load#third -o|hiding unexported module binding: chicken.load#fourth -o|hiding unexported module binding: chicken.load#fifth -o|hiding unexported module binding: chicken.load#delete-duplicates -o|hiding unexported module binding: chicken.load#alist-cons -o|hiding unexported module binding: chicken.load#filter -o|hiding unexported module binding: chicken.load#filter-map -o|hiding unexported module binding: chicken.load#remove -o|hiding unexported module binding: chicken.load#unzip1 -o|hiding unexported module binding: chicken.load#last -o|hiding unexported module binding: chicken.load#list-index -o|hiding unexported module binding: chicken.load#lset-adjoin/eq? -o|hiding unexported module binding: chicken.load#lset-difference/eq? -o|hiding unexported module binding: chicken.load#lset-union/eq? -o|hiding unexported module binding: chicken.load#lset-intersection/eq? -o|hiding unexported module binding: chicken.load#list-tabulate -o|hiding unexported module binding: chicken.load#lset<=/eq? -o|hiding unexported module binding: chicken.load#lset=/eq? -o|hiding unexported module binding: chicken.load#length+ -o|hiding unexported module binding: chicken.load#find -o|hiding unexported module binding: chicken.load#find-tail -o|hiding unexported module binding: chicken.load#iota -o|hiding unexported module binding: chicken.load#make-list -o|hiding unexported module binding: chicken.load#posq -o|hiding unexported module binding: chicken.load#posv -o|hiding unexported module binding: chicken.load#constant2165 -o|hiding unexported module binding: chicken.load#constant2168 -o|hiding unexported module binding: chicken.load#constant2172 -o|hiding unexported module binding: chicken.load#constant2177 -o|hiding unexported module binding: chicken.load#constant2183 -o|hiding unexported module binding: chicken.load#constant2190 -o|hiding unexported module binding: chicken.load#constant2198 -o|hiding unexported module binding: chicken.load#constant2207 -o|hiding unexported module binding: chicken.load#load-library-extension -o|hiding unexported module binding: chicken.load#default-dynamic-load-libraries -o|hiding unexported module binding: chicken.load#path-separators -o|hiding unexported module binding: chicken.load#path-separator-index/right -o|hiding unexported module binding: chicken.load#make-relative-pathname -o|hiding unexported module binding: chicken.load#toplevel -o|hiding unexported module binding: chicken.load#c-toplevel -o|hiding unexported module binding: chicken.load#load/internal -o|hiding unexported module binding: chicken.load#evaluator -o|hiding unexported module binding: chicken.load#load-unit -o|hiding unexported module binding: chicken.load#file-exists? -o|hiding unexported module binding: chicken.load#find-file -o|hiding unexported module binding: chicken.load#find-dynamic-extension -o|hiding unexported module binding: chicken.load#load-extension -S|applied compiler syntax: -S| chicken.base#foldl 3 -S| chicken.base#foldr 4 -S| scheme#for-each 7 -S| ##sys#map 4 -S| scheme#map 17 -o|eliminated procedure checks: 316 -o|folded constant expression: (scheme#integer->char (quote 127)) -o|specializations: -o| 1 (scheme#number->string fixnum) -o| 1 (##sys#debug-mode?) -o| 1 (scheme#string-ref string fixnum) -o| 1 (scheme#positive? fixnum) -o| 1 (scheme#eqv? * *) -o| 3 (scheme#memq * list) -o| 1 (scheme#caddr (pair * (pair * pair))) -o| 1 (scheme#length list) -o| 3 (scheme#cddr (pair * pair)) -o| 13 (scheme#car pair) -o| 17 (##sys#check-list (or pair list) *) -o| 1 (scheme#zero? *) -o| 12 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) -o| 79 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) -o| 26 (scheme#cdr pair) -o| 2 (scheme#cdar (pair pair *)) -(o e)|safe calls: 1093 -(o e)|assignments to immediate values: 1 -o|safe globals: (##sys#unbound-in-eval chicken.eval#eval-decorator) -o|merged explicitly consed rest parameter: rest171174 -o|inlining procedure: k3649 -o|inlining procedure: k3649 -o|inlining procedure: k3687 -o|inlining procedure: k3687 -o|inlining procedure: k3702 -o|inlining procedure: k3702 -o|inlining procedure: k3730 -o|inlining procedure: k3730 -o|contracted procedure: "(eval.scm:106) posq221" -o|inlining procedure: k3777 -o|inlining procedure: k3777 -o|inlining procedure: k3807 -o|inlining procedure: k3807 -o|inlining procedure: k3821 -o|inlining procedure: k3821 -o|contracted procedure: "(eval.scm:132) chicken.eval#eval-decorator" -o|inlining procedure: k3584 -o|inlining procedure: k3584 -o|inlining procedure: k3935 -o|inlining procedure: k3935 -o|inlining procedure: k3961 -o|inlining procedure: k3984 -o|inlining procedure: k3984 -o|inlining procedure: k4011 -o|inlining procedure: k4011 -o|inlining procedure: k4024 -o|inlining procedure: k4024 -o|inlining procedure: k4039 -o|inlining procedure: k4039 -o|inlining procedure: k3961 -o|inlining procedure: k4072 -o|inlining procedure: k4072 -o|inlining procedure: k4114 -o|inlining procedure: k4114 -o|substituted constant variable: a4148 -o|substituted constant variable: a4150 -o|substituted constant variable: a4152 -o|substituted constant variable: a4154 -o|inlining procedure: k4155 -o|inlining procedure: k4169 -o|inlining procedure: k4169 -o|inlining procedure: k4185 -o|inlining procedure: k4185 -o|substituted constant variable: a4196 -o|substituted constant variable: a4198 -o|substituted constant variable: a4200 -o|substituted constant variable: a4202 -o|inlining procedure: k4155 -o|inlining procedure: k4209 -o|inlining procedure: k4209 -o|inlining procedure: k4216 -o|inlining procedure: k4216 -o|inlining procedure: k4236 -o|inlining procedure: k4269 -o|inlining procedure: k4286 -o|inlining procedure: k4286 -o|inlining procedure: k4302 -o|inlining procedure: k4302 -o|inlining procedure: k4318 -o|inlining procedure: k4318 -o|substituted constant variable: a4337 -o|substituted constant variable: a4339 -o|substituted constant variable: a4341 -o|substituted constant variable: a4343 -o|substituted constant variable: a4345 -o|substituted constant variable: a4347 -o|substituted constant variable: a4349 -o|inlining procedure: k4269 -o|inlining procedure: k4365 -o|inlining procedure: k4365 -o|inlining procedure: k4391 -o|inlining procedure: k4391 -o|inlining procedure: k4416 -o|inlining procedure: k4416 -o|inlining procedure: k4453 -o|inlining procedure: k4474 -o|inlining procedure: k4474 -o|substituted constant variable: a4556 -o|substituted constant variable: a4558 -o|substituted constant variable: a4560 -o|inlining procedure: k4453 -o|inlining procedure: k4587 -o|inlining procedure: k4611 -o|inlining procedure: k4642 -o|inlining procedure: k4642 -o|inlining procedure: k4611 -o|inlining procedure: k4587 -o|inlining procedure: k4734 -o|inlining procedure: k4734 -o|inlining procedure: k4817 -o|inlining procedure: k4817 -o|inlining procedure: k5001 -o|inlining procedure: k5001 -o|inlining procedure: k5031 -o|inlining procedure: k5031 -o|substituted constant variable: a5063 -o|substituted constant variable: a5065 -o|substituted constant variable: a5067 -o|substituted constant variable: a5069 -o|consed rest parameter at call site: "(eval.scm:315) chicken.eval#compile-to-closure" 3 -o|inlining procedure: k5122 -o|inlining procedure: k5122 -o|inlining procedure: k5156 -o|contracted procedure: "(eval.scm:310) g500509" -o|inlining procedure: k5156 -o|inlining procedure: k5187 -o|inlining procedure: k5267 -o|contracted procedure: "(eval.scm:365) g663672" -o|inlining procedure: k5267 -o|inlining procedure: k5301 -o|contracted procedure: "(eval.scm:362) g636645" -o|inlining procedure: k5301 -o|inlining procedure: k5187 -o|inlining procedure: k5443 -o|contracted procedure: "(eval.scm:382) g812822" -o|inlining procedure: k5443 -o|inlining procedure: k5491 -o|contracted procedure: "(eval.scm:381) g779789" -o|inlining procedure: k5491 -o|inlining procedure: k5539 -o|contracted procedure: "(eval.scm:378) g752761" -o|inlining procedure: k5539 -o|inlining procedure: k5573 -o|inlining procedure: k5573 -o|inlining procedure: k5607 -o|inlining procedure: k5607 -o|inlining procedure: k5638 -o|inlining procedure: k5682 -o|inlining procedure: k5682 -o|inlining procedure: k5731 -o|inlining procedure: k5731 -o|inlining procedure: k5772 -o|inlining procedure: k5772 -o|inlining procedure: k5825 -o|inlining procedure: k5825 -o|inlining procedure: k5866 -o|inlining procedure: k5866 -o|contracted procedure: "(eval.scm:471) fudge-argument-list228" -o|inlining procedure: k7423 -o|inlining procedure: k7423 -o|inlining procedure: k7438 -o|inlining procedure: k7438 -o|inlining procedure: k7463 -o|inlining procedure: k7463 -o|inlining procedure: k5948 -o|inlining procedure: k5948 -o|substituted constant variable: a5973 -o|substituted constant variable: a5975 -o|substituted constant variable: a5977 -o|substituted constant variable: a5979 -o|substituted constant variable: a5981 -o|consed rest parameter at call site: "(eval.scm:406) chicken.eval#compile-to-closure" 3 -o|inlining procedure: k6010 -o|consed rest parameter at call site: "(eval.scm:406) chicken.eval#compile-to-closure" 3 -o|inlining procedure: k6010 -o|consed rest parameter at call site: "(eval.scm:406) chicken.eval#compile-to-closure" 3 -o|inlining procedure: k6030 -o|inlining procedure: k6030 -o|inlining procedure: k6083 -o|inlining procedure: k6083 -o|inlining procedure: k5638 -o|inlining procedure: k6198 -o|contracted procedure: "(eval.scm:486) g966975" -o|inlining procedure: k6198 -o|inlining procedure: k6229 -o|inlining procedure: k6343 -o|inlining procedure: k6343 -o|inlining procedure: k6370 -o|contracted procedure: "(eval.scm:500) g10011010" -o|inlining procedure: k6370 -o|inlining procedure: k6229 -o|inlining procedure: k6460 -o|inlining procedure: k6460 -o|inlining procedure: k6490 -o|inlining procedure: k6490 -o|inlining procedure: k6508 -o|inlining procedure: k6555 -o|contracted procedure: "(eval.scm:550) g10711080" -o|inlining procedure: k6555 -o|inlining procedure: k6508 -o|substituted constant variable: saved114611471165 -o|inlining procedure: k6691 -o|inlining procedure: k6714 -o|inlining procedure: k6714 -o|inlining procedure: k6691 -o|inlining procedure: k6810 -o|inlining procedure: k6810 -o|inlining procedure: k6837 -o|inlining procedure: k6837 -o|inlining procedure: k6867 -o|inlining procedure: k6867 -o|inlining procedure: k6902 -o|inlining procedure: k6902 -o|inlining procedure: k6944 -o|inlining procedure: k6944 -o|inlining procedure: k6988 -o|inlining procedure: k6988 -o|inlining procedure: k7020 -o|inlining procedure: k7020 -o|inlining procedure: k7044 -o|inlining procedure: k7044 -o|inlining procedure: k7080 -o|removed unused parameter to known procedure: se1320 "(eval.scm:649) compile-call230" -o|inlining procedure: k7080 -o|inlining procedure: k7110 -o|inlining procedure: k7110 -o|removed unused parameter to known procedure: se1320 "(eval.scm:667) compile-call230" -o|substituted constant variable: a7172 -o|substituted constant variable: a7174 -o|substituted constant variable: a7176 -o|inlining procedure: k7180 -o|inlining procedure: k7180 -o|inlining procedure: k7192 -o|inlining procedure: k7192 -o|inlining procedure: k7204 -o|inlining procedure: k7204 -o|inlining procedure: k7216 -o|inlining procedure: k7216 -o|inlining procedure: k7228 -o|inlining procedure: k7228 -o|substituted constant variable: a7235 -o|substituted constant variable: a7237 -o|substituted constant variable: a7239 -o|substituted constant variable: a7241 -o|substituted constant variable: a7243 -o|substituted constant variable: a7245 -o|substituted constant variable: a7247 -o|substituted constant variable: a7249 -o|substituted constant variable: a7251 -o|substituted constant variable: a7253 -o|substituted constant variable: a7255 -o|substituted constant variable: a7260 -o|substituted constant variable: a7262 -o|substituted constant variable: a7264 -o|inlining procedure: k7268 -o|inlining procedure: k7268 -o|substituted constant variable: a7275 -o|substituted constant variable: a7277 -o|substituted constant variable: a7279 -o|substituted constant variable: a7281 -o|substituted constant variable: a7286 -o|substituted constant variable: a7288 -o|substituted constant variable: a7290 -o|substituted constant variable: a7292 -o|substituted constant variable: a7294 -o|substituted constant variable: a7296 -o|substituted constant variable: a7298 -o|substituted constant variable: a7300 -o|substituted constant variable: a7302 -o|substituted constant variable: a7304 -o|substituted constant variable: a7306 -o|substituted constant variable: a7308 -o|substituted constant variable: a7310 -o|substituted constant variable: a7312 -o|substituted constant variable: a7314 -o|substituted constant variable: a7316 -o|substituted constant variable: a7318 -o|substituted constant variable: a7320 -o|substituted constant variable: a7322 -o|substituted constant variable: a7324 -o|substituted constant variable: a7326 -o|substituted constant variable: a7328 -o|substituted constant variable: a7330 -o|substituted constant variable: a7332 -o|substituted constant variable: a7334 -o|substituted constant variable: a7336 -o|substituted constant variable: a7338 -o|substituted constant variable: a7340 -o|contracted procedure: "(eval.scm:220) handle-expansion-result225" -o|inlining procedure: k3849 -o|inlining procedure: k3849 -o|inlining procedure: k4236 -o|removed unused parameter to known procedure: se1320 "(eval.scm:671) compile-call230" -o|inlining procedure: k7390 -o|inlining procedure: k7390 -o|inlining procedure: k7402 -o|inlining procedure: k7402 -o|inlining procedure: k7414 -o|inlining procedure: k7414 -o|removed unused formal parameters: (se1320) -o|inlining procedure: k7528 -o|inlining procedure: k7528 -o|inlining procedure: k7554 -o|inlining procedure: k7554 -o|inlining procedure: k7618 -o|inlining procedure: k7618 -o|inlining procedure: k7758 -o|inlining procedure: k7758 -o|inlining procedure: k7792 -o|inlining procedure: k7792 -o|substituted constant variable: a7824 -o|substituted constant variable: a7826 -o|substituted constant variable: a7828 -o|substituted constant variable: a7830 -o|substituted constant variable: a7832 -o|substituted constant variable: a7834 -o|contracted procedure: "(eval.scm:699) checked-length229" -o|inlining procedure: k7484 -o|inlining procedure: k7484 -o|substituted constant variable: saved144314441458 -o|consed rest parameter at call site: "(eval.scm:745) chicken.eval#compile-to-closure" 3 -o|inlining procedure: k8056 -o|inlining procedure: k8056 -o|inlining procedure: k8078 -o|inlining procedure: k8078 -o|inlining procedure: k8155 -o|contracted procedure: "(eval.scm:855) g16051606" -o|substituted constant variable: a8170 -o|inlining procedure: k8163 -o|inlining procedure: k8163 -o|inlining procedure: k8155 -o|inlining procedure: k8207 -o|inlining procedure: k8207 -o|substituted constant variable: a8223 -o|substituted constant variable: a8225 -o|inlining procedure: k8232 -o|inlining procedure: k8232 -o|substituted constant variable: a8248 -o|substituted constant variable: a8250 -o|removed side-effect free assignment to unused variable: chicken.load#partition -o|removed side-effect free assignment to unused variable: chicken.load#span -o|removed side-effect free assignment to unused variable: chicken.load#drop -o|removed side-effect free assignment to unused variable: chicken.load#split-at -o|removed side-effect free assignment to unused variable: chicken.load#append-map -o|inlining procedure: k8635 -o|inlining procedure: k8635 -o|inlining procedure: k8666 -o|inlining procedure: k8666 -o|removed side-effect free assignment to unused variable: chicken.load#cons* -o|removed side-effect free assignment to unused variable: chicken.load#concatenate -o|removed side-effect free assignment to unused variable: chicken.load#first -o|removed side-effect free assignment to unused variable: chicken.load#second -o|removed side-effect free assignment to unused variable: chicken.load#third -o|removed side-effect free assignment to unused variable: chicken.load#fourth -o|removed side-effect free assignment to unused variable: chicken.load#fifth -o|removed side-effect free assignment to unused variable: chicken.load#delete-duplicates -o|removed side-effect free assignment to unused variable: chicken.load#alist-cons -o|inlining procedure: k8883 -o|inlining procedure: k8883 -o|inlining procedure: k8875 -o|inlining procedure: k8875 -o|removed side-effect free assignment to unused variable: chicken.load#filter-map -o|removed side-effect free assignment to unused variable: chicken.load#remove -o|removed side-effect free assignment to unused variable: chicken.load#unzip1 -o|removed side-effect free assignment to unused variable: chicken.load#last -o|removed side-effect free assignment to unused variable: chicken.load#list-index -o|removed side-effect free assignment to unused variable: chicken.load#lset-adjoin/eq? -o|removed side-effect free assignment to unused variable: chicken.load#lset-difference/eq? -o|removed side-effect free assignment to unused variable: chicken.load#lset-union/eq? -o|removed side-effect free assignment to unused variable: chicken.load#lset-intersection/eq? -o|inlining procedure: k9274 -o|inlining procedure: k9274 -o|removed side-effect free assignment to unused variable: chicken.load#lset<=/eq? -o|removed side-effect free assignment to unused variable: chicken.load#lset=/eq? -o|removed side-effect free assignment to unused variable: chicken.load#length+ -o|removed side-effect free assignment to unused variable: chicken.load#find -o|removed side-effect free assignment to unused variable: chicken.load#find-tail -o|removed side-effect free assignment to unused variable: chicken.load#iota -o|removed side-effect free assignment to unused variable: chicken.load#make-list -o|removed side-effect free assignment to unused variable: chicken.load#posq -o|removed side-effect free assignment to unused variable: chicken.load#posv -o|inlining procedure: k9551 -o|inlining procedure: k9551 -o|inlining procedure: k9587 -o|inlining procedure: k9587 -o|inlining procedure: k9618 -o|inlining procedure: k9618 -o|inlining procedure: k9634 -o|substituted constant variable: a9653 -o|inlining procedure: k9634 -o|inlining procedure: k9676 -o|inlining procedure: k9699 -o|inlining procedure: k9699 -o|inlining procedure: k9713 -o|inlining procedure: k9713 -o|substituted constant variable: a9728 -o|substituted constant variable: a9730 -o|substituted constant variable: a9732 -o|substituted constant variable: a9734 -o|inlining procedure: k9676 -o|contracted procedure: "(eval.scm:1037) chicken.load#toplevel" -o|inlining procedure: k9744 -o|inlining procedure: k9744 -o|merged explicitly consed rest parameter: rest22842287 -o|inlining procedure: k9809 -o|inlining procedure: k9809 -o|inlining procedure: k9827 -o|inlining procedure: k9827 -o|inlining procedure: k9865 -o|inlining procedure: k9865 -o|inlining procedure: k9923 -o|inlining procedure: k9923 -o|inlining procedure: k9945 -o|inlining procedure: k9945 -o|inlining procedure: k9979 -o|inlining procedure: k9996 -o|inlining procedure: k9996 -o|inlining procedure: k9979 -o|inlining procedure: k10033 -o|inlining procedure: k10033 -o|inlining procedure: k10057 -o|inlining procedure: k10057 -o|inlining procedure: k10084 -o|inlining procedure: k10084 -o|inlining procedure: k10105 -o|inlining procedure: k10105 -o|inlining procedure: k10123 -o|inlining procedure: k10123 -o|inlining procedure: k10190 -o|inlining procedure: k10190 -o|consed rest parameter at call site: "(eval.scm:1137) chicken.load#load/internal" 3 -o|consed rest parameter at call site: "(eval.scm:1141) chicken.load#load/internal" 3 -o|consed rest parameter at call site: "(eval.scm:1144) chicken.load#load/internal" 3 -o|propagated global variable: g24712472 ##sys#string-append -o|inlining procedure: k10289 -o|inlining procedure: k10289 -o|inlining procedure: k10310 -o|inlining procedure: k10323 -o|inlining procedure: k10323 -o|inlining procedure: k10310 -o|inlining procedure: k10453 -o|inlining procedure: k10453 -o|inlining procedure: k10501 -o|inlining procedure: k10501 -o|inlining procedure: k10510 -o|inlining procedure: k10510 -o|inlining procedure: k10522 -o|inlining procedure: k10522 -o|inlining procedure: k10572 -o|inlining procedure: k10572 -o|inlining procedure: k10582 -o|inlining procedure: k10582 -o|inlining procedure: k10611 -o|inlining procedure: k10611 -o|inlining procedure: k10646 -o|inlining procedure: k10646 -o|inlining procedure: k10658 -o|inlining procedure: k10658 -o|consed rest parameter at call site: "(eval.scm:1261) chicken.load#load/internal" 3 -o|inlining procedure: k10710 -o|inlining procedure: k10710 -o|contracted procedure: "(eval.scm:1256) g26102611" -o|inlining procedure: k10666 -o|inlining procedure: k10666 -o|inlining procedure: k10682 -o|inlining procedure: k10682 -o|inlining procedure: k10749 -o|contracted procedure: "(eval.scm:1269) g26472669" -o|propagated global variable: g26772678 chicken.load#load-extension -o|inlining procedure: k10749 -o|inlining procedure: k10772 -o|contracted procedure: "(eval.scm:1268) g26372654" -o|inlining procedure: k10772 -o|inlining procedure: k10814 -o|contracted procedure: "(eval.scm:1273) g27002722" -o|propagated global variable: g27302731 ##sys#provide -o|inlining procedure: k10814 -o|inlining procedure: k10837 -o|contracted procedure: "(eval.scm:1272) g26902707" -o|inlining procedure: k10837 -o|inlining procedure: k10874 -o|contracted procedure: "(eval.scm:1276) g27432750" -o|inlining procedure: k10874 -o|inlining procedure: k10910 -o|inlining procedure: k10910 -o|inlining procedure: k10922 -o|inlining procedure: k10922 -o|inlining procedure: k10943 -o|inlining procedure: k10943 -o|inlining procedure: k10973 -o|inlining procedure: k10973 -o|inlining procedure: k11010 -o|inlining procedure: k11010 -o|inlining procedure: k11025 -o|inlining procedure: k11025 -o|inlining procedure: k11044 -o|inlining procedure: k11044 -o|inlining procedure: k11057 -o|inlining procedure: k11057 -o|inlining procedure: k11091 -o|inlining procedure: k11091 -o|inlining procedure: k11164 -o|inlining procedure: k11164 -o|inlining procedure: k11230 -o|inlining procedure: k11230 -o|propagated global variable: tmp30203022 last-error -o|inlining procedure: k11390 -o|propagated global variable: tmp30203022 last-error -o|inlining procedure: k11390 -o|inlining procedure: k11409 -o|inlining procedure: k11409 -o|substituted constant variable: chicken.load#constant2172 -o|substituted constant variable: a11464 -o|substituted constant variable: chicken.load#constant2183 -o|inlining procedure: k11468 -o|substituted constant variable: chicken.load#constant2177 -o|propagated global variable: r1146912098 chicken.load#constant2177 -o|inlining procedure: k11468 -o|substituted constant variable: chicken.load#constant2190 -o|inlining procedure: k11477 -o|substituted constant variable: chicken.load#constant2190 -o|inlining procedure: k11477 -o|substituted constant variable: chicken.load#constant2190 -o|inlining procedure: k11598 -o|inlining procedure: k11598 -o|inlining procedure: k11635 -o|consed rest parameter at call site: "(eval.scm:779) chicken.eval#compile-to-closure" 3 -o|consed rest parameter at call site: "(eval.scm:780) chicken.eval#compile-to-closure" 3 -o|inlining procedure: k11635 -o|consed rest parameter at call site: "(eval.scm:783) chicken.eval#compile-to-closure" 3 -o|consed rest parameter at call site: "(eval.scm:768) chicken.eval#compile-to-closure" 3 -o|simplifications: ((if . 1)) -o|replaced variables: 1977 -o|removed binding forms: 490 -o|substituted constant variable: r365011749 -o|substituted constant variable: r377811757 -o|removed call to pure procedure with unused result: "(eval.scm:103) chicken.base#void" -o|substituted constant variable: r358511764 -o|substituted constant variable: r404011775 -o|substituted constant variable: r464311813 -o|substituted constant variable: r608411873 -o|substituted constant variable: r608411873 -o|removed call to pure procedure with unused result: "(eval.scm:222) chicken.base#void" -o|inlining procedure: k3849 -o|converted assignments to bindings: (err1573) -o|substituted constant variable: r815611959 -o|removed side-effect free assignment to unused variable: chicken.load#any -o|removed side-effect free assignment to unused variable: chicken.load#filter -o|removed side-effect free assignment to unused variable: chicken.load#list-tabulate -o|removed side-effect free assignment to unused variable: chicken.load#constant2172 -o|removed side-effect free assignment to unused variable: chicken.load#constant2183 -o|removed side-effect free assignment to unused variable: chicken.load#constant2190 -o|substituted constant variable: r963511981 -o|substituted constant variable: r974511988 -o|contracted procedure: "(eval.scm:1118) g23862393" -o|substituted constant variable: r1003412008 -o|substituted constant variable: r1003412008 -o|substituted constant variable: r1005812011 -o|substituted constant variable: r1012412017 -o|substituted constant variable: r1032412025 -o|substituted constant variable: r1032412025 -o|inlining procedure: k10386 -o|substituted constant variable: r1050212031 -o|substituted constant variable: r1051112032 -o|substituted constant variable: r1058312039 -o|substituted constant variable: r1061212041 -o|substituted constant variable: r1064712042 -o|substituted constant variable: r1064712042 -o|substituted constant variable: r1064712044 -o|substituted constant variable: r1064712044 -o|converted assignments to bindings: (check2585) -o|substituted constant variable: r1068312053 -o|contracted procedure: "(eval.scm:1277) chicken.load#every" -o|substituted constant variable: r1105812080 -o|substituted constant variable: r1109212084 -o|substituted constant variable: r1109212084 -o|substituted constant variable: r1123112090 -o|propagated global variable: r1139112092 last-error -o|substituted constant variable: r1139112094 -o|substituted constant variable: r1139112094 -o|converted assignments to bindings: (complete2464) -o|substituted constant variable: chicken.load#constant2177 -o|substituted constant variable: r1147812101 -o|converted assignments to bindings: (strip1594) -o|simplifications: ((let . 4)) -o|replaced variables: 139 -o|removed binding forms: 1670 -o|removed conditional forms: 1 -o|contracted procedure: k3721 -o|removed unused formal parameters: (h290 cntr291) -o|contracted procedure: k4254 -o|removed unused parameter to known procedure: h290 "(eval.scm:412) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:412) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:417) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:417) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:422) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:422) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:427) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:427) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:433) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:433) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:438) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:438) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:444) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:444) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:449) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:449) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:455) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:455) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:460) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:460) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:467) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:467) decorate224" -o|removed unused parameter to known procedure: h290 "(eval.scm:474) decorate224" -o|removed unused parameter to known procedure: cntr291 "(eval.scm:474) decorate224" -o|inlining procedure: k6443 -o|inlining procedure: k3855 -o|inlining procedure: k3855 -o|removed side-effect free assignment to unused variable: chicken.load#constant2177 -o|inlining procedure: k9685 -o|inlining procedure: k9685 -o|inlining procedure: k9685 -o|inlining procedure: k9685 -o|inlining procedure: k9772 -o|inlining procedure: k10111 -o|inlining procedure: k10111 -o|inlining procedure: k10210 -o|propagated global variable: r1139112092 last-error -o|replaced variables: 4 -o|removed binding forms: 149 -o|contracted procedure: k4248 -o|substituted constant variable: r644412295 -o|substituted constant variable: r977312344 -o|substituted constant variable: r1011212350 -o|substituted constant variable: r1011212350 -o|substituted constant variable: r1021112351 -o|replaced variables: 6 -o|removed binding forms: 16 -o|removed conditional forms: 2 -o|removed binding forms: 7 -o|simplifications: ((if . 54) (##core#call . 721) (let . 28)) -o| call simplifications: -o| ##sys#check-structure -o| ##sys#size -o| ##sys#setislot 2 -o| ##sys#check-symbol 4 -o| ##sys#check-string -o| ##sys#get-keyword -o| scheme#call-with-current-continuation -o| scheme#string-length 2 -o| scheme#string-ref -o| chicken.fixnum#fx< -o| scheme#memq 3 -o| ##sys#check-fixnum 2 -o| chicken.fixnum#fx> -o| scheme#procedure? 2 -o| scheme#number? -o| scheme#boolean? -o| scheme#char? -o| scheme#eof-object? 3 -o| chicken.base#bwp-object? -o| scheme#string? 4 -o| scheme#vector? -o| ##sys#void -o| scheme#set-car! -o| chicken.fixnum#fx= 2 -o| chicken.fixnum#fx- 4 -o| scheme#apply 7 -o| scheme#list 13 -o| ##sys#list 20 -o| ##sys#check-list 15 -o| chicken.fixnum#fx>= 2 -o| scheme#cddr 8 -o| scheme#car 29 -o| scheme#vector 12 -o| scheme#cdr 17 -o| scheme#length 2 -o| scheme#assq 6 -o| scheme#cons 64 -o| scheme#cadr 34 -o| scheme#caddr 8 -o| scheme#cdddr 4 -o| scheme#pair? 39 -o| ##sys#cons 18 -o| scheme#cadddr 4 -o| ##sys#setslot 28 -o| ##sys#immediate? -o| scheme#not 30 -o| ##sys#make-structure 2 -o| ##sys#slot 141 -o| chicken.fixnum#fx+ 6 -o| scheme#values 3 -o| ##sys#call-with-values 8 -o| ##sys#apply 4 -o| scheme#null? 33 -o| scheme#caar -o| scheme#eq? 109 -o| scheme#symbol? 10 -o|contracted procedure: k7900 -o|contracted procedure: k3622 -o|contracted procedure: k7894 -o|contracted procedure: k3625 -o|contracted procedure: k7888 -o|contracted procedure: k3628 -o|contracted procedure: k7882 -o|contracted procedure: k3631 -o|contracted procedure: k7876 -o|contracted procedure: k3634 -o|contracted procedure: k7870 -o|contracted procedure: k3637 -o|contracted procedure: k7864 -o|contracted procedure: k3640 -o|contracted procedure: k7858 -o|contracted procedure: k3643 -o|contracted procedure: k3652 -o|contracted procedure: k3678 -o|contracted procedure: k3668 -o|contracted procedure: k3733 -o|contracted procedure: k3757 -o|contracted procedure: k3761 -o|contracted procedure: k3765 -o|contracted procedure: k3780 -o|contracted procedure: k3801 -o|contracted procedure: k3786 -o|contracted procedure: k3793 -o|contracted procedure: k3797 -o|contracted procedure: k3811 -o|contracted procedure: k3815 -o|contracted procedure: k3828 -o|contracted procedure: k3832 -o|contracted procedure: k3591 -o|contracted procedure: k3587 -o|contracted procedure: k3597 -o|contracted procedure: k3875 -o|contracted procedure: k3879 -o|contracted procedure: k3929 -o|contracted procedure: k3907 -o|contracted procedure: k3922 -o|contracted procedure: k3946 -o|contracted procedure: k3964 -o|contracted procedure: k3976 -o|contracted procedure: k4005 -o|contracted procedure: k4001 -o|contracted procedure: k4008 -o|contracted procedure: k4054 -o|contracted procedure: k4021 -o|contracted procedure: k4027 -o|contracted procedure: k4033 -o|contracted procedure: k4046 -o|contracted procedure: k4042 -o|contracted procedure: k4060 -o|contracted procedure: k4069 -o|contracted procedure: k4075 -o|contracted procedure: k4088 -o|contracted procedure: k4084 -o|contracted procedure: k4094 -o|contracted procedure: k4111 -o|contracted procedure: k4107 -o|contracted procedure: k4103 -o|contracted procedure: k4117 -o|contracted procedure: k4138 -o|contracted procedure: k4134 -o|contracted procedure: k4130 -o|contracted procedure: k4126 -o|contracted procedure: k4158 -o|contracted procedure: k4164 -o|contracted procedure: k4172 -o|contracted procedure: k4180 -o|contracted procedure: k4188 -o|contracted procedure: k4206 -o|contracted procedure: k4219 -o|contracted procedure: k7384 -o|contracted procedure: k4230 -o|contracted procedure: k7380 -o|contracted procedure: k4239 -o|contracted procedure: k3865 -o|contracted procedure: k3846 -o|contracted procedure: k7346 -o|contracted procedure: k4260 -o|contracted procedure: k4272 -o|contracted procedure: k4281 -o|contracted procedure: k4289 -o|contracted procedure: k4297 -o|contracted procedure: k4305 -o|contracted procedure: k4313 -o|contracted procedure: k4321 -o|contracted procedure: k4329 -o|contracted procedure: k4351 -o|contracted procedure: k4357 -o|contracted procedure: k4360 -o|contracted procedure: k4368 -o|contracted procedure: k4375 -o|contracted procedure: k4381 -o|contracted procedure: k4388 -o|contracted procedure: k4394 -o|contracted procedure: k4402 -o|contracted procedure: k4442 -o|contracted procedure: k4428 -o|contracted procedure: k4435 -o|contracted procedure: k4446 -o|contracted procedure: k4450 -o|contracted procedure: k4456 -o|contracted procedure: k4459 -o|contracted procedure: k4462 -o|contracted procedure: k4468 -o|contracted procedure: k4477 -o|contracted procedure: k4484 -o|contracted procedure: k4490 -o|contracted procedure: k4508 -o|contracted procedure: k4512 -o|contracted procedure: k4544 -o|contracted procedure: k4540 -o|contracted procedure: k4536 -o|contracted procedure: k4548 -o|contracted procedure: k4552 -o|contracted procedure: k4564 -o|contracted procedure: k4577 -o|contracted procedure: k4584 -o|contracted procedure: k4590 -o|contracted procedure: k4593 -o|contracted procedure: k4614 -o|contracted procedure: k4639 -o|contracted procedure: k4655 -o|contracted procedure: k4645 -o|contracted procedure: k4672 -o|contracted procedure: k4690 -o|contracted procedure: k4696 -o|contracted procedure: k4699 -o|contracted procedure: k4702 -o|contracted procedure: k4705 -o|contracted procedure: k4716 -o|contracted procedure: k4719 -o|contracted procedure: k4725 -o|contracted procedure: k4737 -o|contracted procedure: k4753 -o|contracted procedure: k4749 -o|contracted procedure: k4765 -o|contracted procedure: k4771 -o|contracted procedure: k4790 -o|contracted procedure: k4786 -o|contracted procedure: k4806 -o|contracted procedure: k4814 -o|contracted procedure: k4820 -o|contracted procedure: k4829 -o|contracted procedure: k4845 -o|contracted procedure: k4841 -o|contracted procedure: k4865 -o|contracted procedure: k4873 -o|contracted procedure: k4881 -o|contracted procedure: k4887 -o|contracted procedure: k4896 -o|contracted procedure: k4915 -o|contracted procedure: k4911 -o|contracted procedure: k4939 -o|contracted procedure: k4947 -o|contracted procedure: k4955 -o|contracted procedure: k4963 -o|contracted procedure: k4966 -o|contracted procedure: k4975 -o|contracted procedure: k4995 -o|contracted procedure: k5004 -o|contracted procedure: k5007 -o|contracted procedure: k5014 -o|contracted procedure: k5018 -o|contracted procedure: k5025 -o|contracted procedure: k5034 -o|contracted procedure: k5037 -o|contracted procedure: k5040 -o|contracted procedure: k5048 -o|contracted procedure: k5056 -o|contracted procedure: k5098 -o|contracted procedure: k5125 -o|contracted procedure: k5128 -o|contracted procedure: k5131 -o|contracted procedure: k5139 -o|contracted procedure: k5147 -o|contracted procedure: k5159 -o|contracted procedure: k5181 -o|contracted procedure: k5177 -o|contracted procedure: k5162 -o|contracted procedure: k5165 -o|contracted procedure: k5173 -o|contracted procedure: k5190 -o|contracted procedure: k5193 -o|contracted procedure: k5210 -o|contracted procedure: k5222 -o|contracted procedure: k5206 -o|contracted procedure: k5202 -o|contracted procedure: k5233 -o|contracted procedure: k5261 -o|contracted procedure: k5257 -o|contracted procedure: k5253 -o|contracted procedure: k5270 -o|contracted procedure: k5292 -o|contracted procedure: k5242 -o|contracted procedure: k5246 -o|contracted procedure: k5288 -o|contracted procedure: k5273 -o|contracted procedure: k5276 -o|contracted procedure: k5284 -o|contracted procedure: k5304 -o|contracted procedure: k5326 -o|contracted procedure: k5219 -o|contracted procedure: k5322 -o|contracted procedure: k5307 -o|contracted procedure: k5310 -o|contracted procedure: k5318 -o|contracted procedure: k5335 -o|contracted procedure: k5338 -o|contracted procedure: k5341 -o|contracted procedure: k5344 -o|contracted procedure: k5350 -o|contracted procedure: k5353 -o|contracted procedure: k5359 -o|contracted procedure: k5370 -o|contracted procedure: k5394 -o|contracted procedure: k5406 -o|contracted procedure: k5390 -o|contracted procedure: k5386 -o|contracted procedure: k5366 -o|contracted procedure: k5417 -o|contracted procedure: k5437 -o|contracted procedure: k5433 -o|contracted procedure: k5429 -o|contracted procedure: k5482 -o|contracted procedure: k5446 -o|contracted procedure: k5472 -o|contracted procedure: k5476 -o|contracted procedure: k5468 -o|contracted procedure: k5449 -o|contracted procedure: k5452 -o|contracted procedure: k5460 -o|contracted procedure: k5464 -o|contracted procedure: k5530 -o|contracted procedure: k5494 -o|contracted procedure: k5520 -o|contracted procedure: k5524 -o|contracted procedure: k5403 -o|contracted procedure: k5516 -o|contracted procedure: k5497 -o|contracted procedure: k5500 -o|contracted procedure: k5508 -o|contracted procedure: k5512 -o|contracted procedure: k5542 -o|contracted procedure: k5564 -o|contracted procedure: k5379 -o|contracted procedure: k5560 -o|contracted procedure: k5545 -o|contracted procedure: k5548 -o|contracted procedure: k5556 -o|contracted procedure: k5576 -o|contracted procedure: k5579 -o|contracted procedure: k5582 -o|contracted procedure: k5590 -o|contracted procedure: k5598 -o|contracted procedure: k5610 -o|contracted procedure: k5632 -o|contracted procedure: k5628 -o|contracted procedure: k5613 -o|contracted procedure: k5616 -o|contracted procedure: k5624 -o|contracted procedure: k5641 -o|contracted procedure: k5647 -o|contracted procedure: k5652 -o|contracted procedure: k5664 -o|contracted procedure: k5667 -o|contracted procedure: k5676 -o|contracted procedure: k5685 -o|contracted procedure: k5707 -o|contracted procedure: k5703 -o|contracted procedure: k5722 -o|contracted procedure: k5728 -o|contracted procedure: k5750 -o|contracted procedure: k5746 -o|contracted procedure: k5769 -o|contracted procedure: k5765 -o|contracted procedure: k5775 -o|contracted procedure: k5797 -o|contracted procedure: k5793 -o|contracted procedure: k5816 -o|contracted procedure: k5812 -o|contracted procedure: k5822 -o|contracted procedure: k5844 -o|contracted procedure: k5840 -o|contracted procedure: k5863 -o|contracted procedure: k5859 -o|contracted procedure: k5869 -o|contracted procedure: k5891 -o|contracted procedure: k5887 -o|contracted procedure: k5906 -o|contracted procedure: k5928 -o|contracted procedure: k7426 -o|inlining procedure: k5936 -o|contracted procedure: k7441 -o|contracted procedure: k7448 -o|contracted procedure: k7444 -o|contracted procedure: k7455 -o|contracted procedure: k7459 -o|contracted procedure: k7466 -o|inlining procedure: k7463 -o|contracted procedure: k5969 -o|contracted procedure: k5951 -o|contracted procedure: k5961 -o|contracted procedure: k6033 -o|contracted procedure: k6036 -o|contracted procedure: k6039 -o|contracted procedure: k6047 -o|contracted procedure: k6055 -o|contracted procedure: k6093 -o|contracted procedure: k6130 -o|contracted procedure: k6148 -o|contracted procedure: k6182 -o|contracted procedure: k6185 -o|contracted procedure: k6201 -o|contracted procedure: k6223 -o|contracted procedure: k6157 -o|contracted procedure: k6219 -o|contracted procedure: k6204 -o|contracted procedure: k6207 -o|contracted procedure: k6215 -o|contracted procedure: k6179 -o|contracted procedure: k6232 -o|contracted procedure: k6235 -o|contracted procedure: k6265 -o|contracted procedure: k6268 -o|contracted procedure: k6283 -o|contracted procedure: k6286 -o|contracted procedure: k6323 -o|contracted procedure: k6346 -o|contracted procedure: k6356 -o|contracted procedure: k6360 -o|contracted procedure: k6373 -o|contracted procedure: k6395 -o|contracted procedure: k6244 -o|contracted procedure: k6391 -o|contracted procedure: k6376 -o|contracted procedure: k6379 -o|contracted procedure: k6387 -o|contracted procedure: k6262 -o|contracted procedure: k6404 -o|contracted procedure: k6407 -o|contracted procedure: k6410 -o|contracted procedure: k6453 -o|contracted procedure: k6443 -o|contracted procedure: k6463 -o|contracted procedure: k6472 -o|contracted procedure: k6483 -o|contracted procedure: k6493 -o|contracted procedure: k6502 -o|contracted procedure: k6511 -o|contracted procedure: k6518 -o|contracted procedure: k6529 -o|contracted procedure: k6532 -o|contracted procedure: k6549 -o|contracted procedure: k6545 -o|contracted procedure: k6558 -o|contracted procedure: k6561 -o|contracted procedure: k6564 -o|contracted procedure: k6572 -o|contracted procedure: k6580 -o|contracted procedure: k6589 -o|contracted procedure: k6595 -o|contracted procedure: k6899 -o|contracted procedure: k6598 -o|contracted procedure: k6685 -o|contracted procedure: k6694 -o|contracted procedure: k6717 -o|contracted procedure: k6723 -o|contracted procedure: k6729 -o|contracted procedure: k6755 -o|contracted procedure: k6759 -o|contracted procedure: k6805 -o|contracted procedure: k6813 -o|contracted procedure: k6825 -o|contracted procedure: k6834 -o|contracted procedure: k6852 -o|contracted procedure: k6843 -o|contracted procedure: k6858 -o|contracted procedure: k6870 -o|contracted procedure: k6873 -o|contracted procedure: k6876 -o|contracted procedure: k6884 -o|contracted procedure: k6892 -o|contracted procedure: k6905 -o|contracted procedure: k6920 -o|contracted procedure: k6912 -o|contracted procedure: k6926 -o|contracted procedure: k6941 -o|contracted procedure: k6937 -o|contracted procedure: k6933 -o|contracted procedure: k6947 -o|contracted procedure: k6957 -o|contracted procedure: k6963 -o|contracted procedure: k6966 -o|contracted procedure: k6979 -o|contracted procedure: k6969 -o|contracted procedure: k6991 -o|contracted procedure: k6994 -o|contracted procedure: k7004 -o|contracted procedure: k7010 -o|contracted procedure: k7017 -o|contracted procedure: k7023 -o|contracted procedure: k7035 -o|contracted procedure: k7047 -o|contracted procedure: k7050 -o|contracted procedure: k7065 -o|contracted procedure: k7057 -o|contracted procedure: k7071 -o|contracted procedure: k7083 -o|contracted procedure: k7090 -o|contracted procedure: k7100 -o|contracted procedure: k7107 -o|contracted procedure: k7113 -o|contracted procedure: k7116 -o|contracted procedure: k7128 -o|contracted procedure: k7142 -o|contracted procedure: k7145 -o|contracted procedure: k7177 -o|contracted procedure: k7183 -o|contracted procedure: k7189 -o|contracted procedure: k7195 -o|contracted procedure: k7201 -o|contracted procedure: k7207 -o|contracted procedure: k7213 -o|contracted procedure: k7219 -o|contracted procedure: k7225 -o|contracted procedure: k7265 -o|contracted procedure: k7342 -o|contracted procedure: k7387 -o|contracted procedure: k7393 -o|contracted procedure: k7399 -o|contracted procedure: k7411 -o|contracted procedure: k7510 -o|contracted procedure: k7516 -o|contracted procedure: k7525 -o|contracted procedure: k7531 -o|contracted procedure: k7540 -o|contracted procedure: k7557 -o|contracted procedure: k7579 -o|contracted procedure: k7585 -o|contracted procedure: k7615 -o|contracted procedure: k7621 -o|contracted procedure: k7659 -o|contracted procedure: k7665 -o|contracted procedure: k7711 -o|contracted procedure: k7714 -o|contracted procedure: k7722 -o|contracted procedure: k7741 -o|contracted procedure: k7749 -o|contracted procedure: k7761 -o|contracted procedure: k7764 -o|contracted procedure: k7767 -o|contracted procedure: k7775 -o|contracted procedure: k7783 -o|contracted procedure: k7795 -o|contracted procedure: k7798 -o|contracted procedure: k7801 -o|contracted procedure: k7809 -o|contracted procedure: k7817 -o|contracted procedure: k7487 -o|contracted procedure: k7493 -o|contracted procedure: k7500 -o|contracted procedure: k7504 -o|contracted procedure: k7835 -o|contracted procedure: k7844 -o|contracted procedure: k7851 -o|contracted procedure: k8059 -o|contracted procedure: k8072 -o|contracted procedure: k8089 -o|contracted procedure: k8095 -o|contracted procedure: k8105 -o|contracted procedure: k8117 -o|contracted procedure: k8109 -o|contracted procedure: k8113 -o|contracted procedure: k8123 -o|contracted procedure: k8146 -o|contracted procedure: k8158 -o|contracted procedure: k8178 -o|contracted procedure: k8167 -o|contracted procedure: k8186 -o|contracted procedure: k8189 -o|contracted procedure: k8192 -o|contracted procedure: k8195 -o|contracted procedure: k8198 -o|contracted procedure: k8204 -o|contracted procedure: k8210 -o|contracted procedure: k8216 -o|contracted procedure: k8229 -o|contracted procedure: k8235 -o|contracted procedure: k8241 -o|contracted procedure: k9548 -o|contracted procedure: k9571 -o|contracted procedure: k9609 -o|contracted procedure: k9581 -o|contracted procedure: k9591 -o|contracted procedure: k9598 -o|contracted procedure: k9605 -o|contracted procedure: k9621 -o|contracted procedure: k9631 -o|contracted procedure: k9638 -o|contracted procedure: k9644 -o|contracted procedure: k9735 -o|contracted procedure: k9664 -o|contracted procedure: k9679 -o|contracted procedure: k9682 -o|contracted procedure: k9692 -o|contracted procedure: k9695 -o|contracted procedure: k969212329 -o|contracted procedure: k9702 -o|contracted procedure: k969212333 -o|contracted procedure: k9709 -o|contracted procedure: k969212337 -o|contracted procedure: k9716 -o|contracted procedure: k969212341 -o|contracted procedure: k9724 -o|contracted procedure: k9747 -o|contracted procedure: k10181 -o|contracted procedure: k9778 -o|contracted procedure: k10175 -o|contracted procedure: k9781 -o|contracted procedure: k10169 -o|contracted procedure: k9784 -o|contracted procedure: k10163 -o|contracted procedure: k9787 -o|contracted procedure: k10157 -o|contracted procedure: k9790 -o|contracted procedure: k10151 -o|contracted procedure: k9793 -o|contracted procedure: k10145 -o|contracted procedure: k9796 -o|contracted procedure: k10139 -o|contracted procedure: k9799 -o|contracted procedure: k9803 -o|contracted procedure: k9833 -o|removed unused formal parameters: (abrt2342) -o|contracted procedure: k9926 -o|contracted procedure: k9999 -o|contracted procedure: k10009 -o|contracted procedure: k10013 -o|contracted procedure: k10019 -o|removed unused parameter to known procedure: abrt2342 a9871 -o|contracted procedure: k10063 -o|contracted procedure: k10130 -o|contracted procedure: k10087 -o|contracted procedure: k10133 -o|contracted procedure: k10193 -o|contracted procedure: k10199 -o|contracted procedure: k10220 -o|contracted procedure: k10210 -o|contracted procedure: k10242 -o|contracted procedure: k10229 -o|contracted procedure: k10251 -o|contracted procedure: k10313 -o|contracted procedure: k10336 -o|contracted procedure: k10344 -o|contracted procedure: k10398 -o|contracted procedure: k10380 -o|contracted procedure: k10383 -o|contracted procedure: k10392 -o|contracted procedure: k10386 -o|contracted procedure: k10422 -o|contracted procedure: k10477 -o|contracted procedure: k10440 -o|contracted procedure: k10456 -o|contracted procedure: k10459 -o|contracted procedure: k10473 -o|contracted procedure: k10491 -o|contracted procedure: k10513 -o|contracted procedure: k10519 -o|contracted procedure: k10525 -o|contracted procedure: k10532 -o|contracted procedure: k10551 -o|contracted procedure: k10585 -o|contracted procedure: k10614 -o|contracted procedure: k10617 -o|contracted procedure: k10630 -o|contracted procedure: k10634 -o|contracted procedure: k10638 -o|contracted procedure: k10642 -o|contracted procedure: k10649 -o|contracted procedure: k10701 -o|contracted procedure: k10672 -o|contracted procedure: k10685 -o|contracted procedure: k10752 -o|contracted procedure: k10762 -o|contracted procedure: k10766 -o|contracted procedure: k10775 -o|contracted procedure: k10789 -o|contracted procedure: k10778 -o|contracted procedure: k10785 -o|contracted procedure: k10817 -o|contracted procedure: k10827 -o|contracted procedure: k10831 -o|contracted procedure: k10840 -o|contracted procedure: k10854 -o|contracted procedure: k10843 -o|contracted procedure: k10850 -o|contracted procedure: k8632 -o|contracted procedure: k8641 -o|contracted procedure: k8654 -o|contracted procedure: k10877 -o|contracted procedure: k10891 -o|contracted procedure: k10880 -o|contracted procedure: k10887 -o|contracted procedure: k10901 -o|contracted procedure: k10904 -o|contracted procedure: k10907 -o|contracted procedure: k10919 -o|contracted procedure: k10932 -o|contracted procedure: k10936 -o|contracted procedure: k10940 -o|contracted procedure: k10946 -o|contracted procedure: k10956 -o|contracted procedure: k10960 -o|contracted procedure: k10964 -o|contracted procedure: k10976 -o|contracted procedure: k11000 -o|contracted procedure: k11013 -o|contracted procedure: k11019 -o|inlining procedure: k11010 -o|contracted procedure: k11028 -o|inlining procedure: k11010 -o|contracted procedure: k11060 -o|contracted procedure: k11073 -o|contracted procedure: k11081 -o|contracted procedure: k11224 -o|contracted procedure: k11238 -o|contracted procedure: k11227 -o|contracted procedure: k11233 -o|contracted procedure: k11394 -o|contracted procedure: k11403 -o|contracted procedure: k11412 -o|contracted procedure: k11415 -o|contracted procedure: k11418 -o|contracted procedure: k11426 -o|contracted procedure: k11434 -o|contracted procedure: k11449 -o|contracted procedure: k11465 -o|contracted procedure: k11471 -o|contracted procedure: k11480 -o|contracted procedure: k11477 -o|contracted procedure: k11507 -o|contracted procedure: k11515 -o|contracted procedure: k11523 -o|contracted procedure: k11531 -o|contracted procedure: k11547 -o|contracted procedure: k11570 -o|contracted procedure: k11566 -o|contracted procedure: k11601 -o|contracted procedure: k11608 -o|contracted procedure: k11615 -o|contracted procedure: k11743 -o|contracted procedure: k11626 -o|contracted procedure: k11638 -o|contracted procedure: k11641 -o|contracted procedure: k11644 -o|contracted procedure: k11693 -o|contracted procedure: k11722 -o|contracted procedure: k11736 -o|contracted procedure: k11740 -o|contracted procedure: k11732 -o|simplifications: ((let . 230)) -o|removed binding forms: 657 -(o x)|known list op on rest arg sublist: ##core#rest-length as946 0 -o|contracted procedure: "(eval.scm:1060) dload-path2303" -(o x)|known list op on rest arg sublist: ##core#rest-null? rest24312433 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest24312433 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest24432445 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest24432445 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest25252527 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest25252527 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest14891491 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest14891491 0 -o|simplifications: ((let . 1)) -o|removed binding forms: 2 -o|replaced variables: 5 -o|removed binding forms: 1 -o|inlining procedure: k9848 -o|removed binding forms: 2 -o|replaced variables: 1 -o|removed binding forms: 1 -o|direct leaf routine/allocation: loop268 0 -o|direct leaf routine/allocation: emit-trace-info222 5 -o|direct leaf routine/allocation: g10241037 0 -o|direct leaf routine/allocation: loop1125 0 -o|direct leaf routine/allocation: loop1308 0 -o|direct leaf routine/allocation: loop2238 0 -o|direct leaf routine/allocation: for-each-loop26362664 0 -o|direct leaf routine/allocation: for-each-loop26892717 0 -o|direct leaf routine/allocation: for-each-loop27422760 0 -o|direct leaf routine/allocation: store-string 0 -o|contracted procedure: k3739 -o|converted assignments to bindings: (loop268) -o|contracted procedure: "(eval.scm:509) k6349" -o|converted assignments to bindings: (loop1125) -o|contracted procedure: k7519 -o|contracted procedure: "(eval.scm:705) k7545" -o|contracted procedure: "(eval.scm:709) k7565" -o|contracted procedure: "(eval.scm:714) k7596" -o|contracted procedure: "(eval.scm:720) k7635" -o|contracted procedure: "(eval.scm:727) k7682" -o|contracted procedure: "(eval.scm:731) k7730" -o|converted assignments to bindings: (loop1308) -o|converted assignments to bindings: (loop2238) -o|contracted procedure: k10735 -o|converted assignments to bindings: (for-each-loop26362664) -o|contracted procedure: k10800 -o|converted assignments to bindings: (for-each-loop26892717) -o|contracted procedure: k10865 -o|converted assignments to bindings: (for-each-loop27422760) -o|simplifications: ((let . 7)) -o|removed binding forms: 12 -o|direct leaf routine/allocation: for-each-loop10231040 0 -o|contracted procedure: k6289 -o|converted assignments to bindings: (for-each-loop10231040) -o|simplifications: ((let . 1)) -o|removed binding forms: 1 -o|customizable procedures: (doloop15601561 k11559 strip1594 k9541 k9561 complete2464 map-loop24752492 store-result run-safe test2805 loop2819 test-extensions2804 loop1801 for-each-loop26992732 for-each-loop26462679 g26272628 check2585 loop2594 chicken.load#file-exists? doloop25542555 k10295 loop2510 chicken.load#make-relative-pathname chicken.load#evaluator chicken.load#load/internal k10102 dload2304 a9871 for-each-loop23852397 doloop23752376 chicken.load#c-toplevel loop2257 chicken.load#path-separator-index/right foldr16001603 loop1575 err1573 g13761385 map-loop13701388 g14041413 map-loop13981416 emit-syntax-trace-info223 k7026 k7074 g12811282 compile-call230 g11081117 map-loop11021132 k6819 loop1185 loop21190 map-loop10651084 include-file226 map-loop9951013 map-loop960978 map-loop857874 doloop12991300 decorate224 map-loop689706 map-loop716733 map-loop746764 map-loop773794 map-loop806830 map-loop630648 map-loop657678 map-loop494512 map-loop522539 chicken.eval#compile-to-closure g595604 map-loop589607 doloop616617 k3997 k3970 lookup220 compile227 rename219 loop252 g261262 k3658 find-id218) -o|calls to known targets: 323 -o|identified direct recursive calls: f_3775 1 -o|identified direct recursive calls: f_3728 1 -o|unused rest argument: v336 f_3941 -o|unused rest argument: v357 f_3990 -o|unused rest argument: v358 f_3995 -o|unused rest argument: v377 f_4167 -o|unused rest argument: v378 f_4175 -o|unused rest argument: v379 f_4183 -o|unused rest argument: v380 f_4191 -o|unused rest argument: v381 f_4193 -o|unused rest argument: v382 f_4212 -o|unused rest argument: v383 f_4214 -o|unused rest argument: v402 f_4225 -o|unused rest argument: v430 f_4284 -o|unused rest argument: v431 f_4292 -o|unused rest argument: v432 f_4300 -o|unused rest argument: v433 f_4308 -o|unused rest argument: v434 f_4316 -o|unused rest argument: v435 f_4324 -o|unused rest argument: v436 f_4332 -o|unused rest argument: v437 f_4334 -o|unused rest argument: v439 f_4363 -o|identified direct recursive calls: f_5154 1 -o|identified direct recursive calls: f_5265 1 -o|identified direct recursive calls: f_5299 1 -o|identified direct recursive calls: f_5441 1 -o|identified direct recursive calls: f_5489 1 -o|identified direct recursive calls: f_5537 1 -o|identified direct recursive calls: f_5605 1 -o|identified direct recursive calls: f_7436 1 -o|identified direct recursive calls: f_6341 1 -o|identified direct recursive calls: f_6832 1 -o|identified direct recursive calls: f_7482 1 -o|unused rest argument: _1323 f_7838 -o|identified direct recursive calls: f_8054 1 -o|identified direct recursive calls: f_8153 1 -o|identified direct recursive calls: f_9585 1 -o|identified direct recursive calls: f_9674 4 -o|unused rest argument: rest24312433 f_10208 -o|unused rest argument: rest24432445 f_10227 -o|unused rest argument: rest25252527 f_10378 -o|identified direct recursive calls: f_10770 1 -o|identified direct recursive calls: f_10835 1 -o|identified direct recursive calls: f_10872 1 -o|unused rest argument: rest14891491 f_11624 -o|fast box initializations: 49 -o|fast global references: 74 -o|fast global assignments: 31 -o|dropping unused closure argument: f_10188 -o|dropping unused closure argument: f_10499 -o|dropping unused closure argument: f_10770 -o|dropping unused closure argument: f_10835 -o|dropping unused closure argument: f_10872 -o|dropping unused closure argument: f_11100 -o|dropping unused closure argument: f_11159 -o|dropping unused closure argument: f_11222 -o|dropping unused closure argument: f_3620 -o|dropping unused closure argument: f_3805 -o|dropping unused closure argument: f_3819 -o|dropping unused closure argument: f_3836 -o|dropping unused closure argument: f_6832 -o|dropping unused closure argument: f_7482 -o|dropping unused closure argument: f_8144 -o|dropping unused closure argument: f_9575 -o|dropping unused closure argument: f_9613 -o|dropping unused closure argument: f_9762 -*/ -/* end of file */ diff --git a/chicken/src/expand.c b/chicken/src/expand.c deleted file mode 100644 index beba49e..0000000 --- a/chicken/src/expand.c +++ /dev/null @@ -1,29668 +0,0 @@ -/* Generated from expand.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: expand.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file expand.c -no-module-registration - unit: expand - uses: data-structures internal library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_data_2dstructures_toplevel) -C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_internal_toplevel) -C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[436]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,108,111,111,107,117,112,32,115,101,41,0,0,0,0,0,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,99,114,111,45,97,108,105,97,115,32,118,97,114,32,115,101,41,0,0,0,0,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,56,57,48,32,105,41,0,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,8),40,119,97,108,107,32,120,41}; -static C_char li4[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,115,116,114,105,112,45,115,121,110,116,97,120,32,101,120,112,41,0,0,0,0,0,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,23),40,109,97,112,45,108,111,111,112,57,55,53,32,103,57,56,55,32,103,57,56,56,41,0}; -static C_char li6[] C_aligned={C_lihdr(0,0,28),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,51,56,32,103,57,52,53,32,103,57,52,54,41,0,0,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,49,50,32,103,57,50,52,41,0,0,0,0,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,101,120,116,101,110,100,45,115,101,32,115,101,32,118,97,114,115,32,46,32,114,101,115,116,41}; -static C_char li9[] C_aligned={C_lihdr(0,0,35),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,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,7),40,103,49,48,51,57,41,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,52),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,32,115,101,32,116,114,97,110,115,102,111,114,109,101,114,41,0,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,109,97,99,114,111,63,32,115,121,109,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,28),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,41,0,0,0,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,9),40,99,111,112,121,32,112,115,41,0,0,0,0,0,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,7),40,97,54,55,51,51,41,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,10),40,97,54,55,50,55,32,101,120,41,0,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,14),40,102,95,54,56,54,57,32,105,110,112,117,116,41,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,7),40,97,54,56,55,52,41,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,7),40,97,54,56,55,57,41,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,7),40,97,54,56,56,53,41,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,7),40,97,54,56,51,52,41,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,7),40,97,54,56,57,57,41,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,14),40,97,54,56,57,51,32,46,32,97,114,103,115,41,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,7),40,97,54,56,50,56,41,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,9),40,97,54,55,50,49,32,107,41,0,0,0,0,0,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,37),40,99,97,108,108,45,104,97,110,100,108,101,114,32,110,97,109,101,32,104,97,110,100,108,101,114,32,101,120,112,32,115,101,32,99,115,41,0,0,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,104,101,97,100,32,101,120,112,32,109,100,101,102,41,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,56,52,32,103,49,49,57,54,41,0,0,0,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,53,55,32,103,49,49,54,57,41,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,10),40,103,49,50,49,55,32,99,115,41,0,0,0,0,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,101,120,112,41,0,0,0,0,0,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,120,112,97,110,100,45,48,32,101,120,112,32,100,115,101,32,99,115,63,41,0,0,0,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,115,105,111,110,45,114,101,115,117,108,116,45,104,111,111,107,32,105,110,112,117,116,32,111,117,116,112,117,116,41,0,0,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,7),40,97,55,50,51,52,41,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,22),40,97,55,50,52,48,32,101,120,112,50,49,50,53,52,32,109,49,50,53,54,41,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,101,120,112,41,0,0,0,0,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,101,120,112,97,110,100,32,101,120,112,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,35),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,41,0,0,0,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,9),40,101,114,114,32,109,115,103,41,0,0,0,0,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,9),40,103,49,51,50,48,32,107,41,0,0,0,0,0,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,49,52,32,103,49,51,50,54,41,0,0,0,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,29),40,108,111,111,112,32,109,111,100,101,32,114,101,113,32,111,112,116,32,107,101,121,32,108,108,105,115,116,41,0,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,55),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,32,98,111,100,121,32,101,114,114,104,32,115,101,41,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,26),40,109,97,112,45,108,111,111,112,49,52,53,49,32,103,49,52,54,51,32,103,49,52,54,52,41,0,0,0,0,0,0}; -static C_char li47[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,50,50,32,103,49,52,51,52,41,0,0,0,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,22),40,97,55,57,51,56,32,118,97,114,115,32,97,114,103,99,32,114,101,115,116,41,0,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,54),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,32,101,120,112,114,41,0,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,11),40,99,111,109,112,32,115,32,105,100,41,0,0,0,0,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,11),40,114,101,112,101,97,116,32,105,100,41,0,0,0,0,0}; -static C_char li52[] C_aligned={C_lihdr(0,0,11),40,102,95,56,49,55,57,32,105,100,41,0,0,0,0,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,14),40,99,111,109,112,45,100,101,102,32,100,101,102,41,0,0}; -static C_char li54[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,50,32,98,111,100,121,41,0,0,0,0}; -static C_char li55[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,98,111,100,121,32,101,120,112,115,41}; -static C_char li56[] C_aligned={C_lihdr(0,0,32),40,109,97,112,45,108,111,111,112,49,54,53,52,32,103,49,54,54,54,32,103,49,54,54,55,32,103,49,54,54,56,41}; -static C_char li57[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,48,54,32,103,49,54,49,56,41,0,0,0,0}; -static C_char li58[] C_aligned={C_lihdr(0,0,13),40,97,56,53,50,54,32,97,32,95,32,95,41,0,0,0}; -static C_char li59[] C_aligned={C_lihdr(0,0,23),40,102,111,108,100,108,49,54,51,48,32,103,49,54,51,49,32,103,49,54,50,57,41,0}; -static C_char li60[] C_aligned={C_lihdr(0,0,29),40,102,95,56,50,54,54,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,32,98,111,100,121,41,0,0,0}; -static C_char li61[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,49,52,32,103,49,55,50,54,41,0,0,0,0}; -static C_char li62[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,111,100,121,32,100,101,102,115,32,100,111,110,101,41,0,0,0}; -static C_char li63[] C_aligned={C_lihdr(0,0,29),40,102,95,56,55,48,51,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,32,98,111,100,121,41,0,0,0}; -static C_char li64[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,50,32,120,41,0,0,0,0,0,0,0}; -static C_char li65[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,98,111,100,121,32,118,97,114,115,32,118,97,108,115,32,109,118,97,114,115,41,0,0,0,0,0}; -static C_char li66[] C_aligned={C_lihdr(0,0,13),40,102,95,56,56,53,57,32,98,111,100,121,41,0,0,0}; -static C_char li67[] C_aligned={C_lihdr(0,0,37),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,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li68[] C_aligned={C_lihdr(0,0,7),40,103,49,56,49,49,41,0}; -static C_char li69[] C_aligned={C_lihdr(0,0,11),40,109,119,97,108,107,32,120,32,112,41,0,0,0,0,0}; -static C_char li70[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,109,97,116,99,104,45,101,120,112,114,101,115,115,105,111,110,32,101,120,112,32,112,97,116,32,118,97,114,115,41,0,0}; -static C_char li71[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,98,111,100,121,41}; -static C_char li72[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,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,32,98,111,100,121,32,115,101,41,0,0,0,0,0}; -static C_char li73[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,45,104,111,111,107,32,46,32,97,114,103,115,41}; -static C_char li74[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,115,121,110,116,97,120,45,101,114,114,111,114,32,46,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li75[] C_aligned={C_lihdr(0,0,12),40,111,117,116,115,116,114,32,115,116,114,41,0,0,0,0}; -static C_char li76[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li77[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,100,101,102,115,41,0,0,0,0,0}; -static C_char li78[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,99,120,41,0,0,0,0,0,0,0}; -static C_char li79[] C_aligned={C_lihdr(0,0,36),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,32,97,114,103,41,0,0,0,0}; -static C_char li80[] C_aligned={C_lihdr(0,0,13),40,108,112,32,108,115,116,32,112,114,101,118,41,0,0,0}; -static C_char li81[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,97,115,115,113,47,100,114,111,112,45,98,119,112,33,32,120,32,108,115,116,41,0,0,0}; -static C_char li82[] C_aligned={C_lihdr(0,0,58),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,114,101,97,100,45,119,105,116,104,45,115,111,117,114,99,101,45,105,110,102,111,45,104,111,111,107,32,99,108,97,115,115,32,100,97,116,97,32,118,97,108,41,0,0,0,0,0,0}; -static C_char li83[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,114,101,97,100,45,119,105,116,104,45,115,111,117,114,99,101,45,105,110,102,111,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li84[] C_aligned={C_lihdr(0,0,10),40,103,49,57,52,53,32,112,108,41,0,0,0,0,0,0}; -static C_char li85[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,103,101,116,45,108,105,110,101,45,110,117,109,98,101,114,32,115,101,120,112,41,0,0,0}; -static C_char li86[] C_aligned={C_lihdr(0,0,9),40,103,49,57,54,49,32,97,41,0,0,0,0,0,0,0}; -static C_char li87[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,103,101,116,45,108,105,110,101,45,50,32,101,120,112,41,0,0}; -static C_char li88[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,57,55,48,32,103,49,57,56,50,41,0,0,0,0}; -static C_char li89[] C_aligned={C_lihdr(0,0,15),40,97,57,55,54,56,32,107,101,121,32,118,97,108,41,0}; -static C_char li90[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,100,105,115,112,108,97,121,45,108,105,110,101,45,110,117,109,98,101,114,45,100,97,116,97,98,97,115,101,41,0,0,0,0}; -static C_char li91[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,120,115,41,0,0,0,0,0,0,0}; -static C_char li92[] C_aligned={C_lihdr(0,0,14),40,109,97,112,117,112,100,97,116,101,32,120,115,41,0,0}; -static C_char li93[] C_aligned={C_lihdr(0,0,8),40,119,97,108,107,32,120,41}; -static C_char li94[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,117,112,100,97,116,101,45,108,105,110,101,45,110,117,109,98,101,114,45,100,97,116,97,98,97,115,101,33,32,101,120,112,32,108,110,41,0,0,0,0,0}; -static C_char li95[] C_aligned={C_lihdr(0,0,17),40,116,101,115,116,32,120,32,112,114,101,100,32,109,115,103,41,0,0,0,0,0,0,0}; -static C_char li96[] C_aligned={C_lihdr(0,0,9),40,101,114,114,32,109,115,103,41,0,0,0,0,0,0,0}; -static C_char li97[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li98[] C_aligned={C_lihdr(0,0,16),40,108,97,109,98,100,97,45,108,105,115,116,63,32,120,41}; -static C_char li99[] C_aligned={C_lihdr(0,0,13),40,118,97,114,105,97,98,108,101,63,32,118,41,0,0,0}; -static C_char li100[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li101[] C_aligned={C_lihdr(0,0,16),40,112,114,111,112,101,114,45,108,105,115,116,63,32,120,41}; -static C_char li102[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,48,57,57,32,120,32,110,41}; -static C_char li103[] C_aligned={C_lihdr(0,0,10),40,97,49,48,50,53,52,32,121,41,0,0,0,0,0,0}; -static C_char li104[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,112,41,0,0,0,0,0,0}; -static C_char li105[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,110,116,97,120,32,105,100,32,101,120,112,32,112,97,116,32,46,32,114,101,115,116,41,0,0}; -static C_char li106[] C_aligned={C_lihdr(0,0,35),40,105,110,104,101,114,105,116,45,112,97,105,114,45,108,105,110,101,45,110,117,109,98,101,114,115,32,111,108,100,32,110,101,119,41,0,0,0,0,0}; -static C_char li107[] C_aligned={C_lihdr(0,0,12),40,114,101,110,97,109,101,32,115,121,109,41,0,0,0,0}; -static C_char li108[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,49,56,52,32,105,32,102,41}; -static C_char li109[] C_aligned={C_lihdr(0,0,7),40,103,50,50,50,53,41,0}; -static C_char li110[] C_aligned={C_lihdr(0,0,7),40,103,50,50,51,52,41,0}; -static C_char li111[] C_aligned={C_lihdr(0,0,15),40,99,111,109,112,97,114,101,32,115,49,32,115,50,41,0}; -static C_char li112[] C_aligned={C_lihdr(0,0,16),40,97,115,115,113,45,114,101,118,101,114,115,101,32,108,41}; -static C_char li113[] C_aligned={C_lihdr(0,0,19),40,109,105,114,114,111,114,45,114,101,110,97,109,101,32,115,121,109,41,0,0,0,0,0}; -static C_char li114[] C_aligned={C_lihdr(0,0,20),40,97,49,48,51,55,48,32,102,111,114,109,32,115,101,32,100,115,101,41,0,0,0,0}; -static C_char li115[] C_aligned={C_lihdr(0,0,66),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,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,32,101,120,112,108,105,99,105,116,45,114,101,110,97,109,105,110,103,63,41,0,0,0,0,0,0}; -static C_char li116[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,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,41,0,0,0}; -static C_char li117[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,115,121,110,116,97,120,35,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,41,0,0,0}; -static C_char li118[] C_aligned={C_lihdr(0,0,7),40,101,114,114,32,120,41,0}; -static C_char li119[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,114,112,41,0,0,0,0,0,0,0}; -static C_char li120[] C_aligned={C_lihdr(0,0,9),40,116,101,115,116,32,102,120,41,0,0,0,0,0,0,0}; -static C_char li121[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,54,50,32,103,50,53,55,52,41,0,0,0,0}; -static C_char li122[] C_aligned={C_lihdr(0,0,12),40,101,120,112,97,110,100,32,99,108,115,41,0,0,0,0}; -static C_char li123[] C_aligned={C_lihdr(0,0,29),40,112,114,111,99,101,115,115,45,99,111,110,100,45,101,120,112,97,110,100,32,99,108,97,117,115,101,115,41,0,0,0}; -static C_char li124[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,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,41,0,0,0,0,0}; -static C_char li125[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,108,101,110,32,105,110,112,117,116,41}; -static C_char li126[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,100,114,111,112,45,114,105,103,104,116,32,105,110,112,117,116,32,116,101,109,112,41,0,0,0}; -static C_char li127[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,110,112,117,116,41,0,0,0,0}; -static C_char li128[] C_aligned={C_lihdr(0,0,53),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,116,97,107,101,45,114,105,103,104,116,32,105,110,112,117,116,32,116,101,109,112,41,0,0,0}; -static C_char li129[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,101,110,41,0,0,0,0,0,0}; -static C_char li130[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,46,115,121,110,116,97,120,45,114,117,108,101,115,35,115,97,102,101,45,108,101,110,103,116,104,32,108,115,116,41,0}; -static C_char li131[] C_aligned={C_lihdr(0,0,11),40,102,95,49,49,54,49,56,32,120,41,0,0,0,0,0}; -static C_char li132[] C_aligned={C_lihdr(0,0,11),40,102,95,49,49,54,50,52,32,120,41,0,0,0,0,0}; -static C_char li133[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,54,51,55,32,103,51,54,52,57,41,0,0,0,0}; -static C_char li134[] C_aligned={C_lihdr(0,0,15),40,102,95,49,49,54,51,52,32,114,117,108,101,115,41,0}; -static C_char li135[] C_aligned={C_lihdr(0,0,10),40,97,49,49,55,54,53,32,120,41,0,0,0,0,0,0}; -static C_char li136[] C_aligned={C_lihdr(0,0,14),40,102,95,49,49,55,50,56,32,114,117,108,101,41,0,0}; -static C_char li137[] C_aligned={C_lihdr(0,0,41),40,102,95,49,49,55,57,52,32,105,110,112,117,116,32,112,97,116,116,101,114,110,32,115,101,101,110,45,115,101,103,109,101,110,116,63,32,101,108,63,41,0,0,0,0,0,0,0}; -static C_char li138[] C_aligned={C_lihdr(0,0,27),40,102,95,49,49,57,55,53,32,105,110,112,117,116,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0,0,0}; -static C_char li139[] C_aligned={C_lihdr(0,0,10),40,97,49,50,49,53,52,32,120,41,0,0,0,0,0,0}; -static C_char li140[] C_aligned={C_lihdr(0,0,46),40,102,95,49,50,48,56,55,32,112,97,116,116,101,114,110,32,112,97,116,104,32,109,97,112,105,116,32,115,101,101,110,45,115,101,103,109,101,110,116,63,32,101,108,63,41,0,0}; -static C_char li141[] C_aligned={C_lihdr(0,0,12),40,97,49,50,51,48,50,32,46,32,95,41,0,0,0,0}; -static C_char li142[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,51,55,56,54,32,100,32,103,101,110,41,0,0,0,0,0,0}; -static C_char li143[] C_aligned={C_lihdr(0,0,30),40,102,95,49,50,50,52,51,32,116,101,109,112,108,97,116,101,32,100,105,109,32,101,108,63,32,101,110,118,41,0,0}; -static C_char li144[] C_aligned={C_lihdr(0,0,44),40,102,95,49,50,52,56,49,32,112,97,116,116,101,114,110,32,100,105,109,32,101,108,63,32,118,97,114,115,32,115,101,101,110,45,115,101,103,109,101,110,116,63,41,0,0,0,0}; -static C_char li145[] C_aligned={C_lihdr(0,0,35),40,102,95,49,50,53,54,55,32,116,101,109,112,108,97,116,101,32,100,105,109,32,101,108,63,32,101,110,118,32,102,114,101,101,41,0,0,0,0,0}; -static C_char li146[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,54,53,54,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0}; -static C_char li147[] C_aligned={C_lihdr(0,0,29),40,102,95,49,50,54,55,48,32,112,32,115,101,101,110,45,115,101,103,109,101,110,116,63,32,101,108,63,41,0,0,0}; -static C_char li148[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,54,56,53,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0}; -static C_char li149[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,55,49,50,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0}; -static C_char li150[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,112,97,116,116,101,114,110,41,0,0}; -static C_char li151[] C_aligned={C_lihdr(0,0,21),40,102,95,49,50,55,51,50,32,112,97,116,116,101,114,110,32,101,108,63,41,0,0,0}; -static C_char li152[] C_aligned={C_lihdr(0,0,16),40,97,49,50,55,57,55,32,101,120,112,32,114,32,99,41}; -static C_char li153[] C_aligned={C_lihdr(0,0,17),40,97,49,50,56,51,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li154[] C_aligned={C_lihdr(0,0,17),40,97,49,50,56,53,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li155[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,110,41,0,0,0,0,0,0}; -static C_char li156[] C_aligned={C_lihdr(0,0,11),40,119,97,108,107,49,32,120,32,110,41,0,0,0,0,0}; -static C_char li157[] C_aligned={C_lihdr(0,0,11),40,103,51,52,56,55,32,101,110,118,41,0,0,0,0,0}; -static C_char li158[] C_aligned={C_lihdr(0,0,11),40,103,51,52,57,52,32,101,110,118,41,0,0,0,0,0}; -static C_char li159[] C_aligned={C_lihdr(0,0,12),40,115,105,109,112,108,105,102,121,32,120,41,0,0,0,0}; -static C_char li160[] C_aligned={C_lihdr(0,0,17),40,97,49,50,56,56,54,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li161[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,51,57,57,32,103,51,52,49,49,41,0,0,0,0}; -static C_char li162[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,51,54,53,32,103,51,51,55,55,41,0,0,0,0}; -static C_char li163[] C_aligned={C_lihdr(0,0,17),40,97,49,51,49,55,57,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li164[] C_aligned={C_lihdr(0,0,11),40,101,120,112,97,110,100,32,98,115,41,0,0,0,0,0}; -static C_char li165[] C_aligned={C_lihdr(0,0,17),40,97,49,51,51,55,53,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li166[] C_aligned={C_lihdr(0,0,7),40,103,51,51,48,54,41,0}; -static C_char li167[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,51,48,48,32,103,51,51,49,50,41,0,0,0,0}; -static C_char li168[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,32,101,108,115,101,63,41,0,0}; -static C_char li169[] C_aligned={C_lihdr(0,0,17),40,97,49,51,52,50,54,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li170[] C_aligned={C_lihdr(0,0,22),40,101,120,112,97,110,100,32,99,108,97,117,115,101,115,32,101,108,115,101,63,41,0,0}; -static C_char li171[] C_aligned={C_lihdr(0,0,17),40,97,49,51,54,54,50,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li172[] C_aligned={C_lihdr(0,0,17),40,97,49,52,48,53,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li173[] C_aligned={C_lihdr(0,0,17),40,97,49,52,49,48,53,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li174[] C_aligned={C_lihdr(0,0,14),40,97,49,52,49,52,50,32,120,32,114,32,99,41,0,0}; -static C_char li175[] C_aligned={C_lihdr(0,0,14),40,97,49,52,49,56,54,32,120,32,114,32,99,41,0,0}; -static C_char li176[] C_aligned={C_lihdr(0,0,14),40,97,49,52,50,48,56,32,120,32,114,32,99,41,0,0}; -static C_char li177[] C_aligned={C_lihdr(0,0,14),40,97,49,52,50,51,48,32,120,32,114,32,99,41,0,0}; -static C_char li178[] C_aligned={C_lihdr(0,0,14),40,97,49,52,50,53,50,32,120,32,114,32,99,41,0,0}; -static C_char li179[] C_aligned={C_lihdr(0,0,17),40,97,49,52,51,48,52,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li180[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,102,111,114,109,41,0,0,0,0,0}; -static C_char li181[] C_aligned={C_lihdr(0,0,14),40,97,49,52,51,53,49,32,120,32,114,32,99,41,0,0}; -static C_char li182[] C_aligned={C_lihdr(0,0,14),40,97,49,52,52,55,56,32,120,32,114,32,99,41,0,0}; -static C_char li183[] C_aligned={C_lihdr(0,0,14),40,97,49,52,52,57,53,32,120,32,114,32,99,41,0,0}; -static C_char li184[] C_aligned={C_lihdr(0,0,14),40,97,49,52,53,49,50,32,120,32,114,32,99,41,0,0}; -static C_char li185[] C_aligned={C_lihdr(0,0,14),40,97,49,52,53,50,57,32,120,32,114,32,99,41,0,0}; -static C_char li186[] C_aligned={C_lihdr(0,0,14),40,97,49,52,53,52,54,32,120,32,114,32,99,41,0,0}; -static C_char li187[] C_aligned={C_lihdr(0,0,14),40,97,49,52,53,54,57,32,120,32,114,32,99,41,0,0}; -static C_char li188[] C_aligned={C_lihdr(0,0,11),40,103,50,57,53,48,32,97,114,103,41,0,0,0,0,0}; -static C_char li189[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,52,52,32,103,50,57,53,54,41,0,0,0,0}; -static C_char li190[] C_aligned={C_lihdr(0,0,14),40,97,49,52,54,53,51,32,120,32,114,32,99,41,0,0}; -static C_char li191[] C_aligned={C_lihdr(0,0,26),40,97,49,52,56,50,52,32,103,50,57,49,56,32,103,50,57,50,48,32,103,50,57,50,50,41,0,0,0,0,0,0}; -static C_char li192[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,56,56,53,32,103,50,56,57,55,41,0,0,0,0}; -static C_char li193[] C_aligned={C_lihdr(0,0,14),40,97,49,52,56,51,52,32,120,32,114,32,99,41,0,0}; -static C_char li194[] C_aligned={C_lihdr(0,0,14),40,97,49,52,57,53,55,32,120,32,114,32,99,41,0,0}; -static C_char li195[] C_aligned={C_lihdr(0,0,12),40,103,50,54,55,54,32,115,112,101,99,41,0,0,0,0}; -static C_char li196[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,54,55,48,32,103,50,54,56,50,41,0,0,0,0}; -static C_char li197[] C_aligned={C_lihdr(0,0,21),40,112,97,114,115,101,45,101,120,112,111,114,116,115,32,115,112,101,99,115,41,0,0,0}; -static C_char li198[] C_aligned={C_lihdr(0,0,13),40,103,50,55,50,52,32,102,110,97,109,101,41,0,0,0}; -static C_char li199[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,49,56,32,103,50,55,51,48,41,0,0,0,0}; -static C_char li200[] C_aligned={C_lihdr(0,0,29),40,112,114,111,99,101,115,115,45,105,110,99,108,117,100,101,115,32,102,110,97,109,101,115,32,99,105,63,41,0,0,0}; -static C_char li201[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,53,50,32,103,50,55,54,52,41,0,0,0,0}; -static C_char li202[] C_aligned={C_lihdr(0,0,16),40,101,120,112,97,110,100,47,98,101,103,105,110,32,101,41}; -static C_char li203[] C_aligned={C_lihdr(0,0,8),40,97,49,53,50,55,54,41}; -static C_char li204[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,57,51,32,103,50,56,48,53,41,0,0,0,0}; -static C_char li205[] C_aligned={C_lihdr(0,0,19),40,97,49,53,50,56,55,32,102,111,114,109,115,32,112,97,116,104,41,0,0,0,0,0}; -static C_char li206[] C_aligned={C_lihdr(0,0,8),40,97,49,53,50,56,49,41}; -static C_char li207[] C_aligned={C_lihdr(0,0,8),40,97,49,53,51,51,51,41}; -static C_char li208[] C_aligned={C_lihdr(0,0,25),40,114,101,97,100,45,102,111,114,109,115,32,102,105,108,101,110,97,109,101,32,99,105,63,41,0,0,0,0,0,0,0}; -static C_char li209[] C_aligned={C_lihdr(0,0,14),40,97,49,53,51,54,48,32,102,110,97,109,101,41,0,0}; -static C_char li210[] C_aligned={C_lihdr(0,0,30),40,112,114,111,99,101,115,115,45,105,110,99,108,117,100,101,45,100,101,99,108,115,32,102,110,97,109,101,115,41,0,0}; -static C_char li211[] C_aligned={C_lihdr(0,0,19),40,112,97,114,115,101,45,100,101,99,108,115,32,100,101,99,108,115,41,0,0,0,0,0}; -static C_char li212[] C_aligned={C_lihdr(0,0,14),40,97,49,52,57,56,52,32,120,32,114,32,99,41,0,0}; -static C_char li213[] C_aligned={C_lihdr(0,0,14),40,97,49,53,54,53,56,32,120,32,114,32,99,41,0,0}; -static C_char li214[] C_aligned={C_lihdr(0,0,17),40,97,49,53,56,51,51,32,102,111,114,109,32,114,32,99,41,0,0,0,0,0,0,0}; -static C_char li215[] C_aligned={C_lihdr(0,0,14),40,97,49,53,56,52,55,32,120,32,114,32,99,41,0,0}; -static C_char li216[] C_aligned={C_lihdr(0,0,8),40,97,49,53,56,57,55,41}; -static C_char li217[] C_aligned={C_lihdr(0,0,52),40,97,49,53,57,48,51,32,110,97,109,101,50,52,53,50,32,108,105,98,50,52,53,52,32,115,112,101,99,50,52,53,54,32,118,50,52,53,56,32,115,50,52,54,48,32,105,50,52,54,50,41,0,0,0,0}; -static C_char li218[] C_aligned={C_lihdr(0,0,9),40,103,50,52,51,56,32,120,41,0,0,0,0,0,0,0}; -static C_char li219[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,51,50,32,103,50,52,52,52,41,0,0,0,0}; -static C_char li220[] C_aligned={C_lihdr(0,0,14),40,97,49,53,56,56,50,32,120,32,114,32,99,41,0,0}; -static C_char li221[] C_aligned={C_lihdr(0,0,26),40,97,49,53,57,57,51,32,103,50,52,49,51,32,103,50,52,49,53,32,103,50,52,49,55,41,0,0,0,0,0,0}; -static C_char li222[] C_aligned={C_lihdr(0,0,26),40,97,49,54,48,48,51,32,103,50,51,57,57,32,103,50,52,48,49,32,103,50,52,48,51,41,0,0,0,0,0,0}; -static C_char li223[] 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(f17020) -static void C_ccall f17020(C_word c,C_word *av) C_noret; -C_noret_decl(f17024) -static void C_ccall f17024(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_10026) -static void C_ccall f_10026(C_word c,C_word *av) C_noret; -C_noret_decl(f_10032) -static C_word f_10032(C_word t0); -C_noret_decl(f_10053) -static void f_10053(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10058) -static void f_10058(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10077) -static void f_10077(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10082) -static void f_10082(C_word t0,C_word t1,C_word t2,C_word t3) 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_10255) -static void C_ccall f_10255(C_word c,C_word *av) C_noret; -C_noret_decl(f_10312) -static void C_ccall f_10312(C_word c,C_word *av) C_noret; -C_noret_decl(f_10365) -static void f_10365(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10371) -static void C_ccall f_10371(C_word c,C_word *av) C_noret; -C_noret_decl(f_10374) -static void f_10374(C_word t0,C_word t1,C_word t2) 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_10390) -static void C_ccall f_10390(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_10421) -static void C_ccall f_10421(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_10441) -static void C_ccall f_10441(C_word c,C_word *av) C_noret; -C_noret_decl(f_10445) -static void C_ccall f_10445(C_word c,C_word *av) C_noret; -C_noret_decl(f_10462) -static void C_ccall f_10462(C_word c,C_word *av) C_noret; -C_noret_decl(f_10466) -static void C_ccall f_10466(C_word c,C_word *av) C_noret; -C_noret_decl(f_10492) -static void C_ccall f_10492(C_word c,C_word *av) C_noret; -C_noret_decl(f_10509) -static void C_ccall f_10509(C_word c,C_word *av) C_noret; -C_noret_decl(f_10531) -static void C_ccall f_10531(C_word c,C_word *av) C_noret; -C_noret_decl(f_10568) -static void f_10568(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10589) -static void C_ccall f_10589(C_word c,C_word *av) C_noret; -C_noret_decl(f_10620) -static void f_10620(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10628) -static void f_10628(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10650) -static C_word f_10650(C_word t0,C_word t1); -C_noret_decl(f_10665) -static void C_ccall f_10665(C_word c,C_word *av) C_noret; -C_noret_decl(f_10678) -static C_word f_10678(C_word t0,C_word t1); -C_noret_decl(f_10693) -static void C_ccall f_10693(C_word c,C_word *av) C_noret; -C_noret_decl(f_10728) -static C_word f_10728(C_word t0,C_word t1); -C_noret_decl(f_10753) -static void f_10753(C_word t0,C_word t1,C_word t2) 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_10775) -static void C_ccall f_10775(C_word c,C_word *av) C_noret; -C_noret_decl(f_10792) -static void C_ccall f_10792(C_word c,C_word *av) C_noret; -C_noret_decl(f_10796) -static void C_ccall f_10796(C_word c,C_word *av) C_noret; -C_noret_decl(f_10885) -static void C_ccall f_10885(C_word c,C_word *av) C_noret; -C_noret_decl(f_10889) -static void C_ccall f_10889(C_word c,C_word *av) C_noret; -C_noret_decl(f_10894) -static void C_ccall f_10894(C_word c,C_word *av) C_noret; -C_noret_decl(f_10900) -static void C_ccall f_10900(C_word c,C_word *av) C_noret; -C_noret_decl(f_10913) -static void C_ccall f_10913(C_word c,C_word *av) C_noret; -C_noret_decl(f_10916) -static void C_ccall f_10916(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_10923) -static void C_ccall f_10923(C_word c,C_word *av) C_noret; -C_noret_decl(f_10925) -static void C_ccall f_10925(C_word c,C_word *av) C_noret; -C_noret_decl(f_10928) -static void f_10928(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10948) -static void C_ccall f_10948(C_word c,C_word *av) C_noret; -C_noret_decl(f_10951) -static void C_ccall f_10951(C_word c,C_word *av) C_noret; -C_noret_decl(f_10954) -static void C_ccall f_10954(C_word c,C_word *av) C_noret; -C_noret_decl(f_10964) -static void C_ccall f_10964(C_word c,C_word *av) C_noret; -C_noret_decl(f_10966) -static void f_10966(C_word t0,C_word t1,C_word t2) 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_10983) -static void C_ccall f_10983(C_word c,C_word *av) C_noret; -C_noret_decl(f_10995) -static void C_ccall f_10995(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_11001) -static void f_11001(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11015) -static void C_ccall f_11015(C_word c,C_word *av) C_noret; -C_noret_decl(f_11031) -static void C_ccall f_11031(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_11090) -static void C_ccall f_11090(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_11147) -static void C_ccall f_11147(C_word c,C_word *av) C_noret; -C_noret_decl(f_11182) -static void f_11182(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11207) -static void C_ccall f_11207(C_word c,C_word *av) C_noret; -C_noret_decl(f_11209) -static void f_11209(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11288) -static void C_ccall f_11288(C_word c,C_word *av) 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_11311) -static void C_ccall f_11311(C_word c,C_word *av) C_noret; -C_noret_decl(f_11315) -static void C_ccall f_11315(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_11321) -static void C_ccall f_11321(C_word c,C_word *av) C_noret; -C_noret_decl(f_11324) -static void C_ccall f_11324(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_11330) -static void C_ccall f_11330(C_word c,C_word *av) C_noret; -C_noret_decl(f_11333) -static void C_ccall f_11333(C_word c,C_word *av) C_noret; -C_noret_decl(f_11336) -static void C_ccall f_11336(C_word c,C_word *av) C_noret; -C_noret_decl(f_11339) -static void C_ccall f_11339(C_word c,C_word *av) C_noret; -C_noret_decl(f_11343) -static void C_ccall f_11343(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_11350) -static void C_ccall f_11350(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_11356) -static void C_ccall f_11356(C_word c,C_word *av) C_noret; -C_noret_decl(f_11359) -static void C_ccall f_11359(C_word c,C_word *av) C_noret; -C_noret_decl(f_11363) -static void C_ccall f_11363(C_word c,C_word *av) C_noret; -C_noret_decl(f_11367) -static void C_ccall f_11367(C_word c,C_word *av) C_noret; -C_noret_decl(f_11370) -static void C_ccall f_11370(C_word c,C_word *av) C_noret; -C_noret_decl(f_11373) -static void C_ccall f_11373(C_word c,C_word *av) C_noret; -C_noret_decl(f_11376) -static void C_ccall f_11376(C_word c,C_word *av) C_noret; -C_noret_decl(f_11379) -static void C_ccall f_11379(C_word c,C_word *av) C_noret; -C_noret_decl(f_11382) -static void C_ccall f_11382(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_11388) -static void C_ccall f_11388(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_11394) -static void C_ccall f_11394(C_word c,C_word *av) C_noret; -C_noret_decl(f_11397) -static void C_ccall f_11397(C_word c,C_word *av) C_noret; -C_noret_decl(f_11400) -static void C_ccall f_11400(C_word c,C_word *av) C_noret; -C_noret_decl(f_11403) -static void C_ccall f_11403(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_11409) -static void C_ccall f_11409(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_11414) -static void C_ccall f_11414(C_word c,C_word *av) C_noret; -C_noret_decl(f_11420) -static void C_ccall f_11420(C_word c,C_word *av) C_noret; -C_noret_decl(f_11428) -static void C_ccall f_11428(C_word c,C_word *av) C_noret; -C_noret_decl(f_11430) -static void f_11430(C_word t0,C_word t1,C_word t2,C_word t3) 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_11456) -static void C_ccall f_11456(C_word c,C_word *av) C_noret; -C_noret_decl(f_11464) -static void C_ccall f_11464(C_word c,C_word *av) C_noret; -C_noret_decl(f_11466) -static C_word f_11466(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_11486) -static void C_ccall f_11486(C_word c,C_word *av) C_noret; -C_noret_decl(f_11492) -static C_word f_11492(C_word t0,C_word t1); -C_noret_decl(f_11517) -static void C_ccall f_11517(C_word c,C_word *av) C_noret; -C_noret_decl(f_11532) -static void C_ccall f_11532(C_word c,C_word *av) C_noret; -C_noret_decl(f_11536) -static void C_ccall f_11536(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_11551) -static void C_ccall f_11551(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_11559) -static void C_ccall f_11559(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_11567) -static void C_ccall f_11567(C_word c,C_word *av) C_noret; -C_noret_decl(f_11571) -static void C_ccall f_11571(C_word c,C_word *av) C_noret; -C_noret_decl(f_11578) -static void C_ccall f_11578(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_11587) -static void C_ccall f_11587(C_word c,C_word *av) C_noret; -C_noret_decl(f_11591) -static void C_ccall f_11591(C_word c,C_word *av) C_noret; -C_noret_decl(f_11595) -static void C_ccall f_11595(C_word c,C_word *av) C_noret; -C_noret_decl(f_11600) -static void C_ccall f_11600(C_word c,C_word *av) C_noret; -C_noret_decl(f_11604) -static void C_ccall f_11604(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_11612) -static void C_ccall f_11612(C_word c,C_word *av) C_noret; -C_noret_decl(f_11616) -static void C_ccall f_11616(C_word c,C_word *av) C_noret; -C_noret_decl(f_11618) -static void C_ccall f_11618(C_word c,C_word *av) C_noret; -C_noret_decl(f_11624) -static void C_ccall f_11624(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_11634) -static void C_ccall f_11634(C_word c,C_word *av) C_noret; -C_noret_decl(f_11662) -static void C_ccall f_11662(C_word c,C_word *av) C_noret; -C_noret_decl(f_11672) -static void C_ccall f_11672(C_word c,C_word *av) C_noret; -C_noret_decl(f_11686) -static void f_11686(C_word t0,C_word t1,C_word t2) 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_11728) -static void C_ccall f_11728(C_word c,C_word *av) C_noret; -C_noret_decl(f_11735) -static void f_11735(C_word t0,C_word t1) 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_11760) -static void C_ccall f_11760(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_11766) -static void C_ccall f_11766(C_word c,C_word *av) C_noret; -C_noret_decl(f_11771) -static void C_ccall f_11771(C_word c,C_word *av) C_noret; -C_noret_decl(f_11794) -static void C_ccall f_11794(C_word c,C_word *av) C_noret; -C_noret_decl(f_11828) -static void C_ccall f_11828(C_word c,C_word *av) C_noret; -C_noret_decl(f_11864) -static void C_ccall f_11864(C_word c,C_word *av) C_noret; -C_noret_decl(f_11868) -static void C_ccall f_11868(C_word c,C_word *av) C_noret; -C_noret_decl(f_11872) -static void C_ccall f_11872(C_word c,C_word *av) C_noret; -C_noret_decl(f_11921) -static void C_ccall f_11921(C_word c,C_word *av) C_noret; -C_noret_decl(f_11929) -static void C_ccall f_11929(C_word c,C_word *av) C_noret; -C_noret_decl(f_11942) -static void f_11942(C_word t0,C_word t1) C_noret; -C_noret_decl(f_11975) -static void C_ccall f_11975(C_word c,C_word *av) C_noret; -C_noret_decl(f_11979) -static void C_ccall f_11979(C_word c,C_word *av) C_noret; -C_noret_decl(f_11982) -static void C_ccall f_11982(C_word c,C_word *av) C_noret; -C_noret_decl(f_12029) -static void C_ccall f_12029(C_word c,C_word *av) C_noret; -C_noret_decl(f_12053) -static void C_ccall f_12053(C_word c,C_word *av) C_noret; -C_noret_decl(f_12087) -static void C_ccall f_12087(C_word c,C_word *av) C_noret; -C_noret_decl(f_12103) -static void C_ccall f_12103(C_word c,C_word *av) C_noret; -C_noret_decl(f_12114) -static void C_ccall f_12114(C_word c,C_word *av) C_noret; -C_noret_decl(f_12126) -static void C_ccall f_12126(C_word c,C_word *av) C_noret; -C_noret_decl(f_12129) -static void C_ccall f_12129(C_word c,C_word *av) C_noret; -C_noret_decl(f_12139) -static void C_ccall f_12139(C_word c,C_word *av) C_noret; -C_noret_decl(f_12143) -static void C_ccall f_12143(C_word c,C_word *av) C_noret; -C_noret_decl(f_12155) -static void C_ccall f_12155(C_word c,C_word *av) C_noret; -C_noret_decl(f_12208) -static void C_ccall f_12208(C_word c,C_word *av) C_noret; -C_noret_decl(f_12212) -static void C_ccall f_12212(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_12243) -static void C_ccall f_12243(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_12303) -static void C_ccall f_12303(C_word c,C_word *av) C_noret; -C_noret_decl(f_12325) -static void C_ccall f_12325(C_word c,C_word *av) C_noret; -C_noret_decl(f_12328) -static void C_ccall f_12328(C_word c,C_word *av) C_noret; -C_noret_decl(f_12334) -static void C_ccall f_12334(C_word c,C_word *av) C_noret; -C_noret_decl(f_12346) -static void C_ccall f_12346(C_word c,C_word *av) C_noret; -C_noret_decl(f_12349) -static void f_12349(C_word t0,C_word t1) C_noret; -C_noret_decl(f_12352) -static void C_ccall f_12352(C_word c,C_word *av) C_noret; -C_noret_decl(f_12365) -static void C_ccall f_12365(C_word c,C_word *av) C_noret; -C_noret_decl(f_12369) -static void C_ccall f_12369(C_word c,C_word *av) C_noret; -C_noret_decl(f_12373) -static void C_ccall f_12373(C_word c,C_word *av) C_noret; -C_noret_decl(f_12375) -static void f_12375(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_12396) -static void f_12396(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_12452) -static void C_ccall f_12452(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_12473) -static void C_ccall f_12473(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_12497) -static void C_ccall f_12497(C_word c,C_word *av) C_noret; -C_noret_decl(f_12516) -static void C_ccall f_12516(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_12550) -static void C_ccall f_12550(C_word c,C_word *av) C_noret; -C_noret_decl(f_12565) -static void C_ccall f_12565(C_word c,C_word *av) C_noret; -C_noret_decl(f_12567) -static void C_ccall f_12567(C_word c,C_word *av) C_noret; -C_noret_decl(f_12609) -static void C_ccall f_12609(C_word c,C_word *av) C_noret; -C_noret_decl(f_12620) -static void C_ccall f_12620(C_word c,C_word *av) C_noret; -C_noret_decl(f_12639) -static void C_ccall f_12639(C_word c,C_word *av) C_noret; -C_noret_decl(f_12654) -static void C_ccall f_12654(C_word c,C_word *av) C_noret; -C_noret_decl(f_12656) -static void C_ccall f_12656(C_word c,C_word *av) C_noret; -C_noret_decl(f_12670) -static void C_ccall f_12670(C_word c,C_word *av) C_noret; -C_noret_decl(f_12677) -static void C_ccall f_12677(C_word c,C_word *av) C_noret; -C_noret_decl(f_12685) -static void C_ccall f_12685(C_word c,C_word *av) C_noret; -C_noret_decl(f_12712) -static void C_ccall f_12712(C_word c,C_word *av) C_noret; -C_noret_decl(f_12719) -static void C_ccall f_12719(C_word c,C_word *av) C_noret; -C_noret_decl(f_12726) -static void C_ccall f_12726(C_word c,C_word *av) C_noret; -C_noret_decl(f_12732) -static void C_ccall f_12732(C_word c,C_word *av) C_noret; -C_noret_decl(f_12742) -static void f_12742(C_word t0,C_word t1,C_word t2) 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_12773) -static void C_ccall f_12773(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_12781) -static void C_ccall f_12781(C_word c,C_word *av) C_noret; -C_noret_decl(f_12784) -static void C_ccall f_12784(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_12792) -static void C_ccall f_12792(C_word c,C_word *av) C_noret; -C_noret_decl(f_12796) -static void C_ccall f_12796(C_word c,C_word *av) C_noret; -C_noret_decl(f_12798) -static void C_ccall f_12798(C_word c,C_word *av) C_noret; -C_noret_decl(f_12802) -static void C_ccall f_12802(C_word c,C_word *av) C_noret; -C_noret_decl(f_12810) -static void f_12810(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_12832) -static void C_ccall f_12832(C_word c,C_word *av) C_noret; -C_noret_decl(f_12834) -static void C_ccall f_12834(C_word c,C_word *av) C_noret; -C_noret_decl(f_12838) -static void C_ccall f_12838(C_word c,C_word *av) C_noret; -C_noret_decl(f_12852) -static void C_ccall f_12852(C_word c,C_word *av) C_noret; -C_noret_decl(f_12854) -static void C_ccall f_12854(C_word c,C_word *av) C_noret; -C_noret_decl(f_12858) -static void C_ccall f_12858(C_word c,C_word *av) C_noret; -C_noret_decl(f_12865) -static void C_ccall f_12865(C_word c,C_word *av) C_noret; -C_noret_decl(f_12885) -static void C_ccall f_12885(C_word c,C_word *av) C_noret; -C_noret_decl(f_12887) -static void C_ccall f_12887(C_word c,C_word *av) C_noret; -C_noret_decl(f_12891) -static void C_ccall f_12891(C_word c,C_word *av) C_noret; -C_noret_decl(f_12894) -static void C_ccall f_12894(C_word c,C_word *av) C_noret; -C_noret_decl(f_12897) -static void C_ccall f_12897(C_word c,C_word *av) C_noret; -C_noret_decl(f_12899) -static void f_12899(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_12907) -static void C_ccall f_12907(C_word c,C_word *av) C_noret; -C_noret_decl(f_12909) -static void f_12909(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_12927) -static void C_ccall f_12927(C_word c,C_word *av) C_noret; -C_noret_decl(f_12946) -static void C_ccall f_12946(C_word c,C_word *av) C_noret; -C_noret_decl(f_12955) -static void C_ccall f_12955(C_word c,C_word *av) C_noret; -C_noret_decl(f_12969) -static void C_ccall f_12969(C_word c,C_word *av) C_noret; -C_noret_decl(f_12979) -static void C_ccall f_12979(C_word c,C_word *av) C_noret; -C_noret_decl(f_12990) -static void C_ccall f_12990(C_word c,C_word *av) C_noret; -C_noret_decl(f_13000) -static void C_ccall f_13000(C_word c,C_word *av) C_noret; -C_noret_decl(f_13009) -static void C_ccall f_13009(C_word c,C_word *av) C_noret; -C_noret_decl(f_13020) -static void C_ccall f_13020(C_word c,C_word *av) C_noret; -C_noret_decl(f_13031) -static void C_ccall f_13031(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_13054) -static void C_ccall f_13054(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_13072) -static void f_13072(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13076) -static void C_ccall f_13076(C_word c,C_word *av) C_noret; -C_noret_decl(f_13080) -static void f_13080(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13102) -static void C_ccall f_13102(C_word c,C_word *av) C_noret; -C_noret_decl(f_13106) -static void f_13106(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13149) -static void C_ccall f_13149(C_word c,C_word *av) C_noret; -C_noret_decl(f_13167) -static void C_ccall f_13167(C_word c,C_word *av) C_noret; -C_noret_decl(f_13178) -static void C_ccall f_13178(C_word c,C_word *av) C_noret; -C_noret_decl(f_13180) -static void C_ccall f_13180(C_word c,C_word *av) C_noret; -C_noret_decl(f_13184) -static void C_ccall f_13184(C_word c,C_word *av) C_noret; -C_noret_decl(f_13196) -static void C_ccall f_13196(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_13245) -static void f_13245(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13286) -static void C_ccall f_13286(C_word c,C_word *av) C_noret; -C_noret_decl(f_13288) -static void f_13288(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13298) -static void f_13298(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13338) -static void f_13338(C_word t0,C_word t1,C_word t2) 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_13376) -static void C_ccall f_13376(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_13390) -static void f_13390(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13415) -static void C_ccall f_13415(C_word c,C_word *av) C_noret; -C_noret_decl(f_13425) -static void C_ccall f_13425(C_word c,C_word *av) C_noret; -C_noret_decl(f_13427) -static void C_ccall f_13427(C_word c,C_word *av) C_noret; -C_noret_decl(f_13431) -static void C_ccall f_13431(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_13442) -static void C_ccall f_13442(C_word c,C_word *av) C_noret; -C_noret_decl(f_13445) -static void C_ccall f_13445(C_word c,C_word *av) C_noret; -C_noret_decl(f_13448) -static void C_ccall f_13448(C_word c,C_word *av) C_noret; -C_noret_decl(f_13451) -static void C_ccall f_13451(C_word c,C_word *av) C_noret; -C_noret_decl(f_13462) -static void C_ccall f_13462(C_word c,C_word *av) C_noret; -C_noret_decl(f_13464) -static void f_13464(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_13478) -static void C_ccall f_13478(C_word c,C_word *av) C_noret; -C_noret_decl(f_13484) -static void C_ccall f_13484(C_word c,C_word *av) C_noret; -C_noret_decl(f_13487) -static void C_ccall f_13487(C_word c,C_word *av) C_noret; -C_noret_decl(f_13491) -static void C_ccall f_13491(C_word c,C_word *av) C_noret; -C_noret_decl(f_13497) -static void C_ccall f_13497(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_13515) -static void C_ccall f_13515(C_word c,C_word *av) C_noret; -C_noret_decl(f_13556) -static void f_13556(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13560) -static void C_ccall f_13560(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_13596) -static C_word f_13596(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_13611) -static void C_ccall f_13611(C_word c,C_word *av) C_noret; -C_noret_decl(f_13613) -static void f_13613(C_word t0,C_word t1,C_word t2) 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_13663) -static void C_ccall f_13663(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_13673) -static void C_ccall f_13673(C_word c,C_word *av) C_noret; -C_noret_decl(f_13676) -static void C_ccall f_13676(C_word c,C_word *av) C_noret; -C_noret_decl(f_13681) -static void f_13681(C_word t0,C_word t1,C_word t2,C_word t3) 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_13701) -static void C_ccall f_13701(C_word c,C_word *av) C_noret; -C_noret_decl(f_13704) -static void C_ccall f_13704(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_13714) -static void C_ccall f_13714(C_word c,C_word *av) C_noret; -C_noret_decl(f_13717) -static void C_ccall f_13717(C_word c,C_word *av) C_noret; -C_noret_decl(f_13720) -static void C_ccall f_13720(C_word c,C_word *av) C_noret; -C_noret_decl(f_13723) -static void C_ccall f_13723(C_word c,C_word *av) C_noret; -C_noret_decl(f_13727) -static void C_ccall f_13727(C_word c,C_word *av) C_noret; -C_noret_decl(f_13733) -static void C_ccall f_13733(C_word c,C_word *av) C_noret; -C_noret_decl(f_13736) -static void C_ccall f_13736(C_word c,C_word *av) C_noret; -C_noret_decl(f_13739) -static void C_ccall f_13739(C_word c,C_word *av) C_noret; -C_noret_decl(f_13745) -static void C_ccall f_13745(C_word c,C_word *av) C_noret; -C_noret_decl(f_13771) -static void C_ccall f_13771(C_word c,C_word *av) C_noret; -C_noret_decl(f_13799) -static void C_ccall f_13799(C_word c,C_word *av) 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_13822) -static void C_ccall f_13822(C_word c,C_word *av) C_noret; -C_noret_decl(f_13825) -static void C_ccall f_13825(C_word c,C_word *av) C_noret; -C_noret_decl(f_13844) -static void C_ccall f_13844(C_word c,C_word *av) C_noret; -C_noret_decl(f_13862) -static void C_ccall f_13862(C_word c,C_word *av) C_noret; -C_noret_decl(f_13865) -static void C_ccall f_13865(C_word c,C_word *av) C_noret; -C_noret_decl(f_13892) -static void C_ccall f_13892(C_word c,C_word *av) C_noret; -C_noret_decl(f_13919) -static void C_ccall f_13919(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_14000) -static void C_ccall f_14000(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_14052) -static void C_ccall f_14052(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_14077) -static void C_ccall f_14077(C_word c,C_word *av) C_noret; -C_noret_decl(f_14096) -static void C_ccall f_14096(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_14106) -static void C_ccall f_14106(C_word c,C_word *av) C_noret; -C_noret_decl(f_14137) -static void C_ccall f_14137(C_word c,C_word *av) C_noret; -C_noret_decl(f_14141) -static void C_ccall f_14141(C_word c,C_word *av) C_noret; -C_noret_decl(f_14143) -static void C_ccall f_14143(C_word c,C_word *av) C_noret; -C_noret_decl(f_14147) -static void C_ccall f_14147(C_word c,C_word *av) C_noret; -C_noret_decl(f_14170) -static void C_ccall f_14170(C_word c,C_word *av) C_noret; -C_noret_decl(f_14185) -static void C_ccall f_14185(C_word c,C_word *av) C_noret; -C_noret_decl(f_14187) -static void C_ccall f_14187(C_word c,C_word *av) C_noret; -C_noret_decl(f_14191) -static void C_ccall f_14191(C_word c,C_word *av) C_noret; -C_noret_decl(f_14194) -static void C_ccall f_14194(C_word c,C_word *av) C_noret; -C_noret_decl(f_14207) -static void C_ccall f_14207(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_14213) -static void C_ccall f_14213(C_word c,C_word *av) C_noret; -C_noret_decl(f_14216) -static void C_ccall f_14216(C_word c,C_word *av) C_noret; -C_noret_decl(f_14229) -static void C_ccall f_14229(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_14235) -static void C_ccall f_14235(C_word c,C_word *av) C_noret; -C_noret_decl(f_14238) -static void C_ccall f_14238(C_word c,C_word *av) C_noret; -C_noret_decl(f_14251) -static void C_ccall f_14251(C_word c,C_word *av) C_noret; -C_noret_decl(f_14253) -static void C_ccall f_14253(C_word c,C_word *av) C_noret; -C_noret_decl(f_14257) -static void C_ccall f_14257(C_word c,C_word *av) C_noret; -C_noret_decl(f_14268) -static void C_ccall f_14268(C_word c,C_word *av) C_noret; -C_noret_decl(f_14278) -static void C_ccall f_14278(C_word c,C_word *av) C_noret; -C_noret_decl(f_14303) -static void C_ccall f_14303(C_word c,C_word *av) C_noret; -C_noret_decl(f_14305) -static void C_ccall f_14305(C_word c,C_word *av) C_noret; -C_noret_decl(f_14309) -static void C_ccall f_14309(C_word c,C_word *av) C_noret; -C_noret_decl(f_14326) -static void C_ccall f_14326(C_word c,C_word *av) C_noret; -C_noret_decl(f_14329) -static void C_ccall f_14329(C_word c,C_word *av) C_noret; -C_noret_decl(f_14335) -static void C_ccall f_14335(C_word c,C_word *av) C_noret; -C_noret_decl(f_14342) -static void C_ccall f_14342(C_word c,C_word *av) C_noret; -C_noret_decl(f_14346) -static void C_ccall f_14346(C_word c,C_word *av) C_noret; -C_noret_decl(f_14350) -static void C_ccall f_14350(C_word c,C_word *av) C_noret; -C_noret_decl(f_14352) -static void C_ccall f_14352(C_word c,C_word *av) C_noret; -C_noret_decl(f_14356) -static void C_ccall f_14356(C_word c,C_word *av) C_noret; -C_noret_decl(f_14361) -static void f_14361(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14376) -static void C_ccall f_14376(C_word c,C_word *av) C_noret; -C_noret_decl(f_14387) -static void C_ccall f_14387(C_word c,C_word *av) C_noret; -C_noret_decl(f_14390) -static void C_ccall f_14390(C_word c,C_word *av) C_noret; -C_noret_decl(f_14412) -static void C_ccall f_14412(C_word c,C_word *av) C_noret; -C_noret_decl(f_14419) -static void C_ccall f_14419(C_word c,C_word *av) C_noret; -C_noret_decl(f_14423) -static void C_ccall f_14423(C_word c,C_word *av) C_noret; -C_noret_decl(f_14432) -static void C_ccall f_14432(C_word c,C_word *av) C_noret; -C_noret_decl(f_14439) -static void C_ccall f_14439(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_14477) -static void C_ccall f_14477(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_14483) -static void C_ccall f_14483(C_word c,C_word *av) C_noret; -C_noret_decl(f_14494) -static void C_ccall f_14494(C_word c,C_word *av) C_noret; -C_noret_decl(f_14496) -static void C_ccall f_14496(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_14511) -static void C_ccall f_14511(C_word c,C_word *av) C_noret; -C_noret_decl(f_14513) -static void C_ccall f_14513(C_word c,C_word *av) C_noret; -C_noret_decl(f_14517) -static void C_ccall f_14517(C_word c,C_word *av) C_noret; -C_noret_decl(f_14528) -static void C_ccall f_14528(C_word c,C_word *av) C_noret; -C_noret_decl(f_14530) -static void C_ccall f_14530(C_word c,C_word *av) C_noret; -C_noret_decl(f_14534) -static void C_ccall f_14534(C_word c,C_word *av) C_noret; -C_noret_decl(f_14545) -static void C_ccall f_14545(C_word c,C_word *av) C_noret; -C_noret_decl(f_14547) -static void C_ccall f_14547(C_word c,C_word *av) C_noret; -C_noret_decl(f_14551) -static void C_ccall f_14551(C_word c,C_word *av) C_noret; -C_noret_decl(f_14554) -static void C_ccall f_14554(C_word c,C_word *av) C_noret; -C_noret_decl(f_14564) -static void C_ccall f_14564(C_word c,C_word *av) C_noret; -C_noret_decl(f_14568) -static void C_ccall f_14568(C_word c,C_word *av) C_noret; -C_noret_decl(f_14570) -static void C_ccall f_14570(C_word c,C_word *av) C_noret; -C_noret_decl(f_14574) -static void C_ccall f_14574(C_word c,C_word *av) C_noret; -C_noret_decl(f_14577) -static void C_ccall f_14577(C_word c,C_word *av) C_noret; -C_noret_decl(f_14580) -static void C_ccall f_14580(C_word c,C_word *av) 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_14606) -static void C_ccall f_14606(C_word c,C_word *av) C_noret; -C_noret_decl(f_14652) -static void C_ccall f_14652(C_word c,C_word *av) C_noret; -C_noret_decl(f_14654) -static void C_ccall f_14654(C_word c,C_word *av) C_noret; -C_noret_decl(f_14658) -static void C_ccall f_14658(C_word c,C_word *av) C_noret; -C_noret_decl(f_14661) -static void C_ccall f_14661(C_word c,C_word *av) C_noret; -C_noret_decl(f_14684) -static void C_ccall f_14684(C_word c,C_word *av) C_noret; -C_noret_decl(f_14712) -static void C_ccall f_14712(C_word c,C_word *av) C_noret; -C_noret_decl(f_14717) -static void f_14717(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14724) -static void C_ccall f_14724(C_word c,C_word *av) C_noret; -C_noret_decl(f_14727) -static void C_ccall f_14727(C_word c,C_word *av) C_noret; -C_noret_decl(f_14736) -static void C_ccall f_14736(C_word c,C_word *av) C_noret; -C_noret_decl(f_14781) -static void C_ccall f_14781(C_word c,C_word *av) C_noret; -C_noret_decl(f_14783) -static void f_14783(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14808) -static void C_ccall f_14808(C_word c,C_word *av) C_noret; -C_noret_decl(f_14819) -static void C_ccall f_14819(C_word c,C_word *av) C_noret; -C_noret_decl(f_14823) -static void C_ccall f_14823(C_word c,C_word *av) C_noret; -C_noret_decl(f_14825) -static void C_ccall f_14825(C_word c,C_word *av) C_noret; -C_noret_decl(f_14833) -static void C_ccall f_14833(C_word c,C_word *av) C_noret; -C_noret_decl(f_14835) -static void C_ccall f_14835(C_word c,C_word *av) C_noret; -C_noret_decl(f_14847) -static void f_14847(C_word t0,C_word t1) C_noret; -C_noret_decl(f_14899) -static void C_ccall f_14899(C_word c,C_word *av) C_noret; -C_noret_decl(f_14905) -static void C_ccall f_14905(C_word c,C_word *av) C_noret; -C_noret_decl(f_14908) -static void C_ccall f_14908(C_word c,C_word *av) C_noret; -C_noret_decl(f_14911) -static void C_ccall f_14911(C_word c,C_word *av) C_noret; -C_noret_decl(f_14916) -static void f_14916(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14941) -static void C_ccall f_14941(C_word c,C_word *av) C_noret; -C_noret_decl(f_14956) -static void C_ccall f_14956(C_word c,C_word *av) C_noret; -C_noret_decl(f_14958) -static void C_ccall f_14958(C_word c,C_word *av) C_noret; -C_noret_decl(f_14962) -static void C_ccall f_14962(C_word c,C_word *av) C_noret; -C_noret_decl(f_14965) -static void C_ccall f_14965(C_word c,C_word *av) C_noret; -C_noret_decl(f_14968) -static void C_ccall f_14968(C_word c,C_word *av) C_noret; -C_noret_decl(f_14975) -static void C_ccall f_14975(C_word c,C_word *av) C_noret; -C_noret_decl(f_14983) -static void C_ccall f_14983(C_word c,C_word *av) C_noret; -C_noret_decl(f_14985) -static void C_ccall f_14985(C_word c,C_word *av) C_noret; -C_noret_decl(f_14992) -static void C_ccall f_14992(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_14999) -static void C_ccall f_14999(C_word c,C_word *av) C_noret; -C_noret_decl(f_15007) -static void C_ccall f_15007(C_word c,C_word *av) C_noret; -C_noret_decl(f_15011) -static void C_ccall f_15011(C_word c,C_word *av) C_noret; -C_noret_decl(f_15014) -static void C_ccall f_15014(C_word c,C_word *av) C_noret; -C_noret_decl(f_15020) -static void C_ccall f_15020(C_word c,C_word *av) C_noret; -C_noret_decl(f_15028) -static void f_15028(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15033) -static void f_15033(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15040) -static void f_15040(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15086) -static void f_15086(C_word t0,C_word t1,C_word t2) 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_15126) -static void f_15126(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_15135) -static void f_15135(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15156) -static void C_ccall f_15156(C_word c,C_word *av) C_noret; -C_noret_decl(f_15162) -static void C_ccall f_15162(C_word c,C_word *av) C_noret; -C_noret_decl(f_15164) -static void f_15164(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15189) -static void C_ccall f_15189(C_word c,C_word *av) C_noret; -C_noret_decl(f_15198) -static void f_15198(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15202) -static void C_ccall f_15202(C_word c,C_word *av) C_noret; -C_noret_decl(f_15224) -static void C_ccall f_15224(C_word c,C_word *av) C_noret; -C_noret_decl(f_15226) -static void f_15226(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15251) -static void C_ccall f_15251(C_word c,C_word *av) C_noret; -C_noret_decl(f_15268) -static void f_15268(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_15272) -static void f_15272(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15277) -static void C_ccall f_15277(C_word c,C_word *av) 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_15288) -static void C_ccall f_15288(C_word c,C_word *av) C_noret; -C_noret_decl(f_15300) -static void f_15300(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15325) -static void C_ccall f_15325(C_word c,C_word *av) C_noret; -C_noret_decl(f_15334) -static void C_ccall f_15334(C_word c,C_word *av) C_noret; -C_noret_decl(f_15340) -static void C_ccall f_15340(C_word c,C_word *av) C_noret; -C_noret_decl(f_15346) -static void C_ccall f_15346(C_word c,C_word *av) C_noret; -C_noret_decl(f_15351) -static void f_15351(C_word t0,C_word t1,C_word t2) 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_15361) -static void C_ccall f_15361(C_word c,C_word *av) C_noret; -C_noret_decl(f_15373) -static void f_15373(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15402) -static void C_ccall f_15402(C_word c,C_word *av) C_noret; -C_noret_decl(f_15409) -static void C_ccall f_15409(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_15421) -static void C_ccall f_15421(C_word c,C_word *av) C_noret; -C_noret_decl(f_15432) -static void C_ccall f_15432(C_word c,C_word *av) C_noret; -C_noret_decl(f_15443) -static void C_ccall f_15443(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_15461) -static void C_ccall f_15461(C_word c,C_word *av) C_noret; -C_noret_decl(f_15465) -static void C_ccall f_15465(C_word c,C_word *av) C_noret; -C_noret_decl(f_15476) -static void C_ccall f_15476(C_word c,C_word *av) C_noret; -C_noret_decl(f_15483) -static void C_ccall f_15483(C_word c,C_word *av) C_noret; -C_noret_decl(f_15487) -static void C_ccall f_15487(C_word c,C_word *av) C_noret; -C_noret_decl(f_15502) -static void C_ccall f_15502(C_word c,C_word *av) C_noret; -C_noret_decl(f_15506) -static void C_ccall f_15506(C_word c,C_word *av) C_noret; -C_noret_decl(f_15521) -static void C_ccall f_15521(C_word c,C_word *av) C_noret; -C_noret_decl(f_15525) -static void C_ccall f_15525(C_word c,C_word *av) C_noret; -C_noret_decl(f_15533) -static void C_ccall f_15533(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_15558) -static void C_ccall f_15558(C_word c,C_word *av) C_noret; -C_noret_decl(f_15613) -static void C_ccall f_15613(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_15659) -static void C_ccall f_15659(C_word c,C_word *av) C_noret; -C_noret_decl(f_15663) -static void C_ccall f_15663(C_word c,C_word *av) C_noret; -C_noret_decl(f_15669) -static void C_ccall f_15669(C_word c,C_word *av) C_noret; -C_noret_decl(f_15675) -static void f_15675(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15678) -static void C_ccall f_15678(C_word c,C_word *av) C_noret; -C_noret_decl(f_15690) -static void C_ccall f_15690(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_15724) -static void C_ccall f_15724(C_word c,C_word *av) C_noret; -C_noret_decl(f_15728) -static void C_ccall f_15728(C_word c,C_word *av) C_noret; -C_noret_decl(f_15731) -static void C_ccall f_15731(C_word c,C_word *av) C_noret; -C_noret_decl(f_15738) -static void C_ccall f_15738(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_15772) -static void f_15772(C_word t0,C_word t1) 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_15820) -static void C_ccall f_15820(C_word c,C_word *av) C_noret; -C_noret_decl(f_15832) -static void C_ccall f_15832(C_word c,C_word *av) C_noret; -C_noret_decl(f_15834) -static void C_ccall f_15834(C_word c,C_word *av) C_noret; -C_noret_decl(f_15846) -static void C_ccall f_15846(C_word c,C_word *av) C_noret; -C_noret_decl(f_15848) -static void C_ccall f_15848(C_word c,C_word *av) C_noret; -C_noret_decl(f_15852) -static void C_ccall f_15852(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_15873) -static void C_ccall f_15873(C_word c,C_word *av) C_noret; -C_noret_decl(f_15881) -static void C_ccall f_15881(C_word c,C_word *av) C_noret; -C_noret_decl(f_15883) -static void C_ccall f_15883(C_word c,C_word *av) C_noret; -C_noret_decl(f_15892) -static void f_15892(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15898) -static void C_ccall f_15898(C_word c,C_word *av) C_noret; -C_noret_decl(f_15904) -static void C_ccall f_15904(C_word c,C_word *av) C_noret; -C_noret_decl(f_15908) -static void C_ccall f_15908(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_15914) -static void C_ccall f_15914(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_15954) -static void C_ccall f_15954(C_word c,C_word *av) C_noret; -C_noret_decl(f_15956) -static void f_15956(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15981) -static void C_ccall f_15981(C_word c,C_word *av) C_noret; -C_noret_decl(f_15992) -static void C_ccall f_15992(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_16002) -static void C_ccall f_16002(C_word c,C_word *av) C_noret; -C_noret_decl(f_16004) -static void C_ccall f_16004(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_4867) -static void C_ccall f_4867(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_6153) -static void C_ccall f_6153(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_6159) -static C_word f_6159(C_word t0,C_word t1); -C_noret_decl(f_6176) -static void f_6176(C_word t0,C_word t1,C_word t2) 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_6189) -static void C_ccall f_6189(C_word c,C_word *av) C_noret; -C_noret_decl(f_6223) -static void C_ccall f_6223(C_word c,C_word *av) C_noret; -C_noret_decl(f_6229) -static void f_6229(C_word t0,C_word t1,C_word t2) 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_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_6325) -static void C_ccall f_6325(C_word c,C_word *av) C_noret; -C_noret_decl(f_6334) -static void f_6334(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_6365) -static void C_ccall f_6365(C_word c,C_word *av) C_noret; -C_noret_decl(f_6369) -static void C_ccall f_6369(C_word c,C_word *av) C_noret; -C_noret_decl(f_6394) -static void C_ccall f_6394(C_word c,C_word *av) C_noret; -C_noret_decl(f_6409) -static void C_ccall f_6409(C_word c,C_word *av) C_noret; -C_noret_decl(f_6411) -static void f_6411(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_6459) -static void f_6459(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_6508) -static void f_6508(C_word t0,C_word t1,C_word t2) 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_6547) -static void C_ccall f_6547(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_6580) -static void C_ccall f_6580(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_6587) -static void C_ccall f_6587(C_word c,C_word *av) C_noret; -C_noret_decl(f_6594) -static C_word f_6594(C_word t0,C_word t1); -C_noret_decl(f_6612) -static void C_ccall f_6612(C_word c,C_word *av) C_noret; -C_noret_decl(f_6622) -static void C_ccall f_6622(C_word c,C_word *av) C_noret; -C_noret_decl(f_6626) -static void C_ccall f_6626(C_word c,C_word *av) C_noret; -C_noret_decl(f_6648) -static void C_ccall f_6648(C_word c,C_word *av) C_noret; -C_noret_decl(f_6659) -static void C_ccall f_6659(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_6671) -static void C_ccall f_6671(C_word c,C_word *av) C_noret; -C_noret_decl(f_6673) -static void f_6673(C_word t0,C_word t1,C_word t2) 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_6704) -static void C_ccall f_6704(C_word c,C_word *av) C_noret; -C_noret_decl(f_6707) -static void f_6707(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_6717) -static void C_ccall f_6717(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_6728) -static void C_ccall f_6728(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_6756) -static void C_ccall f_6756(C_word c,C_word *av) C_noret; -C_noret_decl(f_6762) -static void f_6762(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6779) -static void f_6779(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6790) -static void C_ccall f_6790(C_word c,C_word *av) C_noret; -C_noret_decl(f_6796) -static void C_ccall f_6796(C_word c,C_word *av) C_noret; -C_noret_decl(f_6829) -static void C_ccall f_6829(C_word c,C_word *av) C_noret; -C_noret_decl(f_6835) -static void C_ccall f_6835(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_6842) -static void C_ccall f_6842(C_word c,C_word *av) C_noret; -C_noret_decl(f_6858) -static void C_ccall f_6858(C_word c,C_word *av) C_noret; -C_noret_decl(f_6862) -static void C_ccall f_6862(C_word c,C_word *av) C_noret; -C_noret_decl(f_6869) -static void C_ccall f_6869(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_6880) -static void C_ccall f_6880(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_6894) -static void C_ccall f_6894(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_6906) -static void f_6906(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_6937) -static void f_6937(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6961) -static void f_6961(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6967) -static void f_6967(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6979) -static void C_ccall f_6979(C_word c,C_word *av) C_noret; -C_noret_decl(f_6991) -static void C_ccall f_6991(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_7018) -static void f_7018(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7081) -static void C_ccall f_7081(C_word c,C_word *av) C_noret; -C_noret_decl(f_7087) -static void f_7087(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7125) -static void f_7125(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7129) -static void f_7129(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7133) -static void C_ccall f_7133(C_word c,C_word *av) C_noret; -C_noret_decl(f_7145) -static void C_ccall f_7145(C_word c,C_word *av) 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_7198) -static void C_ccall f_7198(C_word c,C_word *av) 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_7211) -static void C_ccall f_7211(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_7229) -static void f_7229(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7235) -static void C_ccall f_7235(C_word c,C_word *av) C_noret; -C_noret_decl(f_7241) -static void C_ccall f_7241(C_word c,C_word *av) C_noret; -C_noret_decl(f_7277) -static void C_ccall f_7277(C_word c,C_word *av) C_noret; -C_noret_decl(f_7283) -static C_word f_7283(C_word t0); -C_noret_decl(f_7324) -static void C_ccall f_7324(C_word c,C_word *av) C_noret; -C_noret_decl(f_7327) -static void f_7327(C_word t0,C_word t1,C_word t2) 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_7344) -static void C_ccall f_7344(C_word c,C_word *av) C_noret; -C_noret_decl(f_7347) -static void C_ccall f_7347(C_word c,C_word *av) C_noret; -C_noret_decl(f_7350) -static void C_ccall f_7350(C_word c,C_word *av) C_noret; -C_noret_decl(f_7355) -static void f_7355(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_7369) -static void C_ccall f_7369(C_word c,C_word *av) C_noret; -C_noret_decl(f_7373) -static void f_7373(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7385) -static void f_7385(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7416) -static void C_ccall f_7416(C_word c,C_word *av) C_noret; -C_noret_decl(f_7441) -static void C_ccall f_7441(C_word c,C_word *av) C_noret; -C_noret_decl(f_7460) -static void C_ccall f_7460(C_word c,C_word *av) C_noret; -C_noret_decl(f_7464) -static void C_ccall f_7464(C_word c,C_word *av) C_noret; -C_noret_decl(f_7513) -static void f_7513(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7566) -static void C_ccall f_7566(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_7573) -static void C_ccall f_7573(C_word c,C_word *av) C_noret; -C_noret_decl(f_7576) -static void C_ccall f_7576(C_word c,C_word *av) C_noret; -C_noret_decl(f_7578) -static void f_7578(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7603) -static void C_ccall f_7603(C_word c,C_word *av) C_noret; -C_noret_decl(f_7617) -static void C_ccall f_7617(C_word c,C_word *av) C_noret; -C_noret_decl(f_7658) -static void f_7658(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7671) -static void f_7671(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7687) -static void C_ccall f_7687(C_word c,C_word *av) C_noret; -C_noret_decl(f_7708) -static void f_7708(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7747) -static void f_7747(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7766) -static void C_ccall f_7766(C_word c,C_word *av) C_noret; -C_noret_decl(f_7834) -static void f_7834(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7933) -static void C_ccall f_7933(C_word c,C_word *av) C_noret; -C_noret_decl(f_7939) -static void C_ccall f_7939(C_word c,C_word *av) C_noret; -C_noret_decl(f_7943) -static void C_ccall f_7943(C_word c,C_word *av) C_noret; -C_noret_decl(f_7946) -static void C_ccall f_7946(C_word c,C_word *av) C_noret; -C_noret_decl(f_7965) -static void C_ccall f_7965(C_word c,C_word *av) C_noret; -C_noret_decl(f_7969) -static void C_ccall f_7969(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_8009) -static void f_8009(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8075) -static void f_8075(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8100) -static void C_ccall f_8100(C_word c,C_word *av) C_noret; -C_noret_decl(f_8113) -static void C_ccall f_8113(C_word c,C_word *av) C_noret; -C_noret_decl(f_8117) -static void C_ccall f_8117(C_word c,C_word *av) C_noret; -C_noret_decl(f_8128) -static void f_8128(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8135) -static void f_8135(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8144) -static void f_8144(C_word t0,C_word t1) 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_8175) -static void C_ccall f_8175(C_word c,C_word *av) C_noret; -C_noret_decl(f_8177) -static void f_8177(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8179) -static void C_ccall f_8179(C_word c,C_word *av) C_noret; -C_noret_decl(f_8185) -static void f_8185(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8192) -static void f_8192(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8201) -static void f_8201(C_word t0,C_word t1) 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_8248) -static void C_ccall f_8248(C_word c,C_word *av) C_noret; -C_noret_decl(f_8252) -static void C_ccall f_8252(C_word c,C_word *av) C_noret; -C_noret_decl(f_8256) -static void C_ccall f_8256(C_word c,C_word *av) C_noret; -C_noret_decl(f_8260) -static void C_ccall f_8260(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_8266) -static void C_ccall f_8266(C_word c,C_word *av) C_noret; -C_noret_decl(f_8278) -static void f_8278(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8292) -static void C_ccall f_8292(C_word c,C_word *av) C_noret; -C_noret_decl(f_8297) -static void f_8297(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8308) -static void C_ccall f_8308(C_word c,C_word *av) C_noret; -C_noret_decl(f_8314) -static void C_ccall f_8314(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_8332) -static void C_ccall f_8332(C_word c,C_word *av) C_noret; -C_noret_decl(f_8340) -static void C_ccall f_8340(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_8366) -static void C_ccall f_8366(C_word c,C_word *av) 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_8377) -static void C_ccall f_8377(C_word c,C_word *av) C_noret; -C_noret_decl(f_8408) -static void C_ccall f_8408(C_word c,C_word *av) C_noret; -C_noret_decl(f_8437) -static void C_ccall f_8437(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_8475) -static void C_ccall f_8475(C_word c,C_word *av) C_noret; -C_noret_decl(f_8481) -static void C_ccall f_8481(C_word c,C_word *av) C_noret; -C_noret_decl(f_8487) -static void C_ccall f_8487(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_8527) -static void C_ccall f_8527(C_word c,C_word *av) C_noret; -C_noret_decl(f_8531) -static void C_ccall f_8531(C_word c,C_word *av) C_noret; -C_noret_decl(f_8534) -static void C_ccall f_8534(C_word c,C_word *av) C_noret; -C_noret_decl(f_8540) -static void C_ccall f_8540(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_8566) -static void C_ccall f_8566(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_8572) -static void C_ccall f_8572(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_8577) -static void f_8577(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_8584) -static void f_8584(C_word t0,C_word t1) 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_8639) -static void f_8639(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8673) -static void f_8673(C_word t0,C_word t1,C_word t2,C_word t3) 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_8703) -static void C_ccall f_8703(C_word c,C_word *av) C_noret; -C_noret_decl(f_8711) -static void C_ccall f_8711(C_word c,C_word *av) C_noret; -C_noret_decl(f_8713) -static void f_8713(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_8738) -static void C_ccall f_8738(C_word c,C_word *av) C_noret; -C_noret_decl(f_8740) -static void f_8740(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8787) -static void C_ccall f_8787(C_word c,C_word *av) C_noret; -C_noret_decl(f_8791) -static void C_ccall f_8791(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_8865) -static void f_8865(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_8888) -static void f_8888(C_word t0,C_word t1) 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_8906) -static void C_ccall f_8906(C_word c,C_word *av) C_noret; -C_noret_decl(f_8911) -static void f_8911(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8924) -static void C_ccall f_8924(C_word c,C_word *av) C_noret; -C_noret_decl(f_8927) -static void C_ccall f_8927(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_8984) -static void C_ccall f_8984(C_word c,C_word *av) 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_9040) -static void C_ccall f_9040(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_9052) -static void C_ccall f_9052(C_word c,C_word *av) C_noret; -C_noret_decl(f_9055) -static void C_ccall f_9055(C_word c,C_word *av) C_noret; -C_noret_decl(f_9084) -static void C_ccall f_9084(C_word c,C_word *av) C_noret; -C_noret_decl(f_9091) -static void C_ccall f_9091(C_word c,C_word *av) C_noret; -C_noret_decl(f_9107) -static void C_ccall f_9107(C_word c,C_word *av) C_noret; -C_noret_decl(f_9177) -static void C_ccall f_9177(C_word c,C_word *av) C_noret; -C_noret_decl(f_9180) -static void f_9180(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9194) -static C_word f_9194(C_word t0,C_word t1); -C_noret_decl(f_9234) -static void C_ccall f_9234(C_word c,C_word *av) C_noret; -C_noret_decl(f_9257) -static void C_ccall f_9257(C_word c,C_word *av) C_noret; -C_noret_decl(f_9259) -static void C_ccall f_9259(C_word c,C_word *av) C_noret; -C_noret_decl(f_9262) -static void f_9262(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9306) -static void C_ccall f_9306(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_9322) -static void C_ccall f_9322(C_word c,C_word *av) C_noret; -C_noret_decl(f_9324) -static void C_ccall f_9324(C_word c,C_word *av) C_noret; -C_noret_decl(f_9330) -static void C_ccall f_9330(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_9346) -static void f_9346(C_word t0,C_word t1,C_word t2) 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_9370) -static void C_ccall f_9370(C_word c,C_word *av) C_noret; -C_noret_decl(f_9385) -static void C_ccall f_9385(C_word c,C_word *av) C_noret; -C_noret_decl(f_9397) -static void C_ccall f_9397(C_word c,C_word *av) C_noret; -C_noret_decl(f_9399) -static void f_9399(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9406) -static void C_ccall f_9406(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_9415) -static void f_9415(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_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_9437) -static void C_ccall f_9437(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_9451) -static void C_ccall f_9451(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_9463) -static void C_ccall f_9463(C_word c,C_word *av) C_noret; -C_noret_decl(f_9466) -static void C_ccall f_9466(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_9475) -static void C_ccall f_9475(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_9491) -static void C_ccall f_9491(C_word c,C_word *av) C_noret; -C_noret_decl(f_9495) -static void C_ccall f_9495(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_9510) -static void C_ccall f_9510(C_word c,C_word *av) C_noret; -C_noret_decl(f_9512) -static void f_9512(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9526) -static void C_ccall f_9526(C_word c,C_word *av) C_noret; -C_noret_decl(f_9530) -static void C_ccall f_9530(C_word c,C_word *av) C_noret; -C_noret_decl(f_9557) -static void f_9557(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9563) -static void f_9563(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9583) -static void f_9583(C_word t0,C_word t1) 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_9611) -static void C_ccall f_9611(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_9623) -static void C_ccall f_9623(C_word c,C_word *av) C_noret; -C_noret_decl(f_9636) -static void C_ccall f_9636(C_word c,C_word *av) C_noret; -C_noret_decl(f_9658) -static void C_ccall f_9658(C_word c,C_word *av) C_noret; -C_noret_decl(f_9675) -static void C_ccall f_9675(C_word c,C_word *av) C_noret; -C_noret_decl(f_9683) -static void C_ccall f_9683(C_word c,C_word *av) C_noret; -C_noret_decl(f_9703) -static void C_ccall f_9703(C_word c,C_word *av) C_noret; -C_noret_decl(f_9707) -static void f_9707(C_word t0,C_word t1,C_word t2) 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_9722) -static void C_ccall f_9722(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_9732) -static void C_ccall f_9732(C_word c,C_word *av) C_noret; -C_noret_decl(f_9736) -static void f_9736(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9763) -static void C_ccall f_9763(C_word c,C_word *av) C_noret; -C_noret_decl(f_9769) -static void C_ccall f_9769(C_word c,C_word *av) C_noret; -C_noret_decl(f_9776) -static void C_ccall f_9776(C_word c,C_word *av) C_noret; -C_noret_decl(f_9779) -static void C_ccall f_9779(C_word c,C_word *av) C_noret; -C_noret_decl(f_9782) -static void C_ccall f_9782(C_word c,C_word *av) C_noret; -C_noret_decl(f_9795) -static void C_ccall f_9795(C_word c,C_word *av) C_noret; -C_noret_decl(f_9797) -static void f_9797(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_9834) -static void f_9834(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9840) -static void f_9840(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9850) -static void C_ccall f_9850(C_word c,C_word *av) C_noret; -C_noret_decl(f_9859) -static void f_9859(C_word t0,C_word t1,C_word t2) 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_9882) -static void C_ccall f_9882(C_word c,C_word *av) C_noret; -C_noret_decl(f_9921) -static void C_ccall f_9921(C_word c,C_word *av) C_noret; -C_noret_decl(f_9931) -static void C_ccall f_9931(C_word c,C_word *av) C_noret; -C_noret_decl(f_9936) -static void f_9936(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_9948) -static void f_9948(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9952) -static void C_ccall f_9952(C_word c,C_word *av) C_noret; -C_noret_decl(f_9959) -static void C_ccall f_9959(C_word c,C_word *av) C_noret; -C_noret_decl(f_9966) -static void C_ccall f_9966(C_word c,C_word *av) C_noret; -C_noret_decl(f_9973) -static void C_ccall f_9973(C_word c,C_word *av) C_noret; -C_noret_decl(f_9975) -static void C_ccall f_9975(C_word c,C_word *av) C_noret; -C_noret_decl(f_9979) -static void C_ccall f_9979(C_word c,C_word *av) C_noret; -C_noret_decl(f_9987) -static C_word f_9987(C_word t0); -C_noret_decl(C_expand_toplevel) -C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; - -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[1]; -C_word t1=av[0]; -f_10053(t0,t1);} - -C_noret_decl(trf_10058) -static void C_ccall trf_10058(C_word c,C_word *av) C_noret; -static void C_ccall trf_10058(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10058(t0,t1,t2,t3);} - -C_noret_decl(trf_10077) -static void C_ccall trf_10077(C_word c,C_word *av) C_noret; -static void C_ccall trf_10077(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10077(t0,t1);} - -C_noret_decl(trf_10082) -static void C_ccall trf_10082(C_word c,C_word *av) C_noret; -static void C_ccall trf_10082(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10082(t0,t1,t2,t3);} - -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_10374) -static void C_ccall trf_10374(C_word c,C_word *av) C_noret; -static void C_ccall trf_10374(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10374(t0,t1,t2);} - -C_noret_decl(trf_10568) -static void C_ccall trf_10568(C_word c,C_word *av) C_noret; -static void C_ccall trf_10568(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10568(t0,t1,t2,t3);} - -C_noret_decl(trf_10620) -static void C_ccall trf_10620(C_word c,C_word *av) C_noret; -static void C_ccall trf_10620(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10620(t0,t1);} - -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[1]; -C_word t1=av[0]; -f_10628(t0,t1);} - -C_noret_decl(trf_10753) -static void C_ccall trf_10753(C_word c,C_word *av) C_noret; -static void C_ccall trf_10753(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10753(t0,t1,t2);} - -C_noret_decl(trf_10928) -static void C_ccall trf_10928(C_word c,C_word *av) C_noret; -static void C_ccall trf_10928(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10928(t0,t1,t2);} - -C_noret_decl(trf_10966) -static void C_ccall trf_10966(C_word c,C_word *av) C_noret; -static void C_ccall trf_10966(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10966(t0,t1,t2);} - -C_noret_decl(trf_11001) -static void C_ccall trf_11001(C_word c,C_word *av) C_noret; -static void C_ccall trf_11001(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11001(t0,t1,t2);} - -C_noret_decl(trf_11182) -static void C_ccall trf_11182(C_word c,C_word *av) C_noret; -static void C_ccall trf_11182(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11182(t0,t1,t2);} - -C_noret_decl(trf_11209) -static void C_ccall trf_11209(C_word c,C_word *av) C_noret; -static void C_ccall trf_11209(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11209(t0,t1,t2);} - -C_noret_decl(trf_11430) -static void C_ccall trf_11430(C_word c,C_word *av) C_noret; -static void C_ccall trf_11430(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11430(t0,t1,t2,t3);} - -C_noret_decl(trf_11686) -static void C_ccall trf_11686(C_word c,C_word *av) C_noret; -static void C_ccall trf_11686(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11686(t0,t1,t2);} - -C_noret_decl(trf_11735) -static void C_ccall trf_11735(C_word c,C_word *av) C_noret; -static void C_ccall trf_11735(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11735(t0,t1);} - -C_noret_decl(trf_11942) -static void C_ccall trf_11942(C_word c,C_word *av) C_noret; -static void C_ccall trf_11942(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11942(t0,t1);} - -C_noret_decl(trf_12349) -static void C_ccall trf_12349(C_word c,C_word *av) C_noret; -static void C_ccall trf_12349(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12349(t0,t1);} - -C_noret_decl(trf_12375) -static void C_ccall trf_12375(C_word c,C_word *av) C_noret; -static void C_ccall trf_12375(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12375(t0,t1,t2,t3);} - -C_noret_decl(trf_12396) -static void C_ccall trf_12396(C_word c,C_word *av) C_noret; -static void C_ccall trf_12396(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12396(t0,t1);} - -C_noret_decl(trf_12742) -static void C_ccall trf_12742(C_word c,C_word *av) C_noret; -static void C_ccall trf_12742(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12742(t0,t1,t2);} - -C_noret_decl(trf_12810) -static void C_ccall trf_12810(C_word c,C_word *av) C_noret; -static void C_ccall trf_12810(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12810(t0,t1);} - -C_noret_decl(trf_12899) -static void C_ccall trf_12899(C_word c,C_word *av) C_noret; -static void C_ccall trf_12899(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12899(t0,t1,t2,t3);} - -C_noret_decl(trf_12909) -static void C_ccall trf_12909(C_word c,C_word *av) C_noret; -static void C_ccall trf_12909(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12909(t0,t1,t2,t3);} - -C_noret_decl(trf_13072) -static void C_ccall trf_13072(C_word c,C_word *av) C_noret; -static void C_ccall trf_13072(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13072(t0,t1,t2);} - -C_noret_decl(trf_13080) -static void C_ccall trf_13080(C_word c,C_word *av) C_noret; -static void C_ccall trf_13080(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13080(t0,t1,t2);} - -C_noret_decl(trf_13106) -static void C_ccall trf_13106(C_word c,C_word *av) C_noret; -static void C_ccall trf_13106(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13106(t0,t1,t2);} - -C_noret_decl(trf_13245) -static void C_ccall trf_13245(C_word c,C_word *av) C_noret; -static void C_ccall trf_13245(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13245(t0,t1);} - -C_noret_decl(trf_13288) -static void C_ccall trf_13288(C_word c,C_word *av) C_noret; -static void C_ccall trf_13288(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13288(t0,t1,t2);} - -C_noret_decl(trf_13298) -static void C_ccall trf_13298(C_word c,C_word *av) C_noret; -static void C_ccall trf_13298(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13298(t0,t1);} - -C_noret_decl(trf_13338) -static void C_ccall trf_13338(C_word c,C_word *av) C_noret; -static void C_ccall trf_13338(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13338(t0,t1,t2);} - -C_noret_decl(trf_13390) -static void C_ccall trf_13390(C_word c,C_word *av) C_noret; -static void C_ccall trf_13390(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13390(t0,t1,t2);} - -C_noret_decl(trf_13464) -static void C_ccall trf_13464(C_word c,C_word *av) C_noret; -static void C_ccall trf_13464(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_13464(t0,t1,t2,t3);} - -C_noret_decl(trf_13556) -static void C_ccall trf_13556(C_word c,C_word *av) C_noret; -static void C_ccall trf_13556(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13556(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_13681) -static void C_ccall trf_13681(C_word c,C_word *av) C_noret; -static void C_ccall trf_13681(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_13681(t0,t1,t2,t3);} - -C_noret_decl(trf_14361) -static void C_ccall trf_14361(C_word c,C_word *av) C_noret; -static void C_ccall trf_14361(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14361(t0,t1,t2);} - -C_noret_decl(trf_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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14717(t0,t1,t2);} - -C_noret_decl(trf_14783) -static void C_ccall trf_14783(C_word c,C_word *av) C_noret; -static void C_ccall trf_14783(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14783(t0,t1,t2);} - -C_noret_decl(trf_14847) -static void C_ccall trf_14847(C_word c,C_word *av) C_noret; -static void C_ccall trf_14847(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_14847(t0,t1);} - -C_noret_decl(trf_14916) -static void C_ccall trf_14916(C_word c,C_word *av) C_noret; -static void C_ccall trf_14916(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14916(t0,t1,t2);} - -C_noret_decl(trf_15028) -static void C_ccall trf_15028(C_word c,C_word *av) C_noret; -static void C_ccall trf_15028(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15028(t0,t1,t2);} - -C_noret_decl(trf_15033) -static void C_ccall trf_15033(C_word c,C_word *av) C_noret; -static void C_ccall trf_15033(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15033(t0,t1,t2);} - -C_noret_decl(trf_15040) -static void C_ccall trf_15040(C_word c,C_word *av) C_noret; -static void C_ccall trf_15040(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15040(t0,t1);} - -C_noret_decl(trf_15086) -static void C_ccall trf_15086(C_word c,C_word *av) C_noret; -static void C_ccall trf_15086(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15086(t0,t1,t2);} - -C_noret_decl(trf_15126) -static void C_ccall trf_15126(C_word c,C_word *av) C_noret; -static void C_ccall trf_15126(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_15126(t0,t1,t2,t3);} - -C_noret_decl(trf_15135) -static void C_ccall trf_15135(C_word c,C_word *av) C_noret; -static void C_ccall trf_15135(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15135(t0,t1,t2);} - -C_noret_decl(trf_15164) -static void C_ccall trf_15164(C_word c,C_word *av) C_noret; -static void C_ccall trf_15164(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15164(t0,t1,t2);} - -C_noret_decl(trf_15198) -static void C_ccall trf_15198(C_word c,C_word *av) C_noret; -static void C_ccall trf_15198(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15198(t0,t1,t2);} - -C_noret_decl(trf_15226) -static void C_ccall trf_15226(C_word c,C_word *av) C_noret; -static void C_ccall trf_15226(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15226(t0,t1,t2);} - -C_noret_decl(trf_15268) -static void C_ccall trf_15268(C_word c,C_word *av) C_noret; -static void C_ccall trf_15268(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_15268(t0,t1,t2,t3);} - -C_noret_decl(trf_15272) -static void C_ccall trf_15272(C_word c,C_word *av) C_noret; -static void C_ccall trf_15272(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15272(t0,t1);} - -C_noret_decl(trf_15300) -static void C_ccall trf_15300(C_word c,C_word *av) C_noret; -static void C_ccall trf_15300(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15300(t0,t1,t2);} - -C_noret_decl(trf_15351) -static void C_ccall trf_15351(C_word c,C_word *av) C_noret; -static void C_ccall trf_15351(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15351(t0,t1,t2);} - -C_noret_decl(trf_15373) -static void C_ccall trf_15373(C_word c,C_word *av) C_noret; -static void C_ccall trf_15373(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15373(t0,t1,t2);} - -C_noret_decl(trf_15675) -static void C_ccall trf_15675(C_word c,C_word *av) C_noret; -static void C_ccall trf_15675(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15675(t0,t1);} - -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[1]; -C_word t1=av[0]; -f_15772(t0,t1);} - -C_noret_decl(trf_15892) -static void C_ccall trf_15892(C_word c,C_word *av) C_noret; -static void C_ccall trf_15892(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15892(t0,t1,t2);} - -C_noret_decl(trf_15956) -static void C_ccall trf_15956(C_word c,C_word *av) C_noret; -static void C_ccall trf_15956(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15956(t0,t1,t2);} - -C_noret_decl(trf_6176) -static void C_ccall trf_6176(C_word c,C_word *av) C_noret; -static void C_ccall trf_6176(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6176(t0,t1,t2);} - -C_noret_decl(trf_6229) -static void C_ccall trf_6229(C_word c,C_word *av) C_noret; -static void C_ccall trf_6229(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6229(t0,t1,t2);} - -C_noret_decl(trf_6334) -static void C_ccall trf_6334(C_word c,C_word *av) C_noret; -static void C_ccall trf_6334(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6334(t0,t1,t2);} - -C_noret_decl(trf_6411) -static void C_ccall trf_6411(C_word c,C_word *av) C_noret; -static void C_ccall trf_6411(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6411(t0,t1,t2,t3);} - -C_noret_decl(trf_6459) -static void C_ccall trf_6459(C_word c,C_word *av) C_noret; -static void C_ccall trf_6459(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6459(t0,t1,t2,t3);} - -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_6673) -static void C_ccall trf_6673(C_word c,C_word *av) C_noret; -static void C_ccall trf_6673(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6673(t0,t1,t2);} - -C_noret_decl(trf_6707) -static void C_ccall trf_6707(C_word c,C_word *av) C_noret; -static void C_ccall trf_6707(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_6707(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_6762) -static void C_ccall trf_6762(C_word c,C_word *av) C_noret; -static void C_ccall trf_6762(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6762(t0,t1,t2);} - -C_noret_decl(trf_6779) -static void C_ccall trf_6779(C_word c,C_word *av) C_noret; -static void C_ccall trf_6779(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6779(t0,t1);} - -C_noret_decl(trf_6906) -static void C_ccall trf_6906(C_word c,C_word *av) C_noret; -static void C_ccall trf_6906(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_6906(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_6937) -static void C_ccall trf_6937(C_word c,C_word *av) C_noret; -static void C_ccall trf_6937(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6937(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[1]; -C_word t1=av[0]; -f_6961(t0,t1);} - -C_noret_decl(trf_6967) -static void C_ccall trf_6967(C_word c,C_word *av) C_noret; -static void C_ccall trf_6967(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6967(t0,t1);} - -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_7087) -static void C_ccall trf_7087(C_word c,C_word *av) C_noret; -static void C_ccall trf_7087(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7087(t0,t1,t2);} - -C_noret_decl(trf_7125) -static void C_ccall trf_7125(C_word c,C_word *av) C_noret; -static void C_ccall trf_7125(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7125(t0,t1);} - -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_7229) -static void C_ccall trf_7229(C_word c,C_word *av) C_noret; -static void C_ccall trf_7229(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7229(t0,t1,t2);} - -C_noret_decl(trf_7327) -static void C_ccall trf_7327(C_word c,C_word *av) C_noret; -static void C_ccall trf_7327(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7327(t0,t1,t2);} - -C_noret_decl(trf_7355) -static void C_ccall trf_7355(C_word c,C_word *av) C_noret; -static void C_ccall trf_7355(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_7355(t0,t1,t2,t3,t4,t5,t6);} - -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_7385) -static void C_ccall trf_7385(C_word c,C_word *av) C_noret; -static void C_ccall trf_7385(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7385(t0,t1);} - -C_noret_decl(trf_7513) -static void C_ccall trf_7513(C_word c,C_word *av) C_noret; -static void C_ccall trf_7513(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7513(t0,t1,t2);} - -C_noret_decl(trf_7578) -static void C_ccall trf_7578(C_word c,C_word *av) C_noret; -static void C_ccall trf_7578(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7578(t0,t1,t2);} - -C_noret_decl(trf_7658) -static void C_ccall trf_7658(C_word c,C_word *av) C_noret; -static void C_ccall trf_7658(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7658(t0,t1);} - -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[1]; -C_word t1=av[0]; -f_7671(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_7747) -static void C_ccall trf_7747(C_word c,C_word *av) C_noret; -static void C_ccall trf_7747(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7747(t0,t1);} - -C_noret_decl(trf_7834) -static void C_ccall trf_7834(C_word c,C_word *av) C_noret; -static void C_ccall trf_7834(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7834(t0,t1);} - -C_noret_decl(trf_8009) -static void C_ccall trf_8009(C_word c,C_word *av) C_noret; -static void C_ccall trf_8009(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8009(t0,t1,t2,t3);} - -C_noret_decl(trf_8075) -static void C_ccall trf_8075(C_word c,C_word *av) C_noret; -static void C_ccall trf_8075(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8075(t0,t1,t2);} - -C_noret_decl(trf_8128) -static void C_ccall trf_8128(C_word c,C_word *av) C_noret; -static void C_ccall trf_8128(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8128(t0,t1,t2,t3);} - -C_noret_decl(trf_8135) -static void C_ccall trf_8135(C_word c,C_word *av) C_noret; -static void C_ccall trf_8135(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8135(t0,t1);} - -C_noret_decl(trf_8144) -static void C_ccall trf_8144(C_word c,C_word *av) C_noret; -static void C_ccall trf_8144(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8144(t0,t1);} - -C_noret_decl(trf_8177) -static void C_ccall trf_8177(C_word c,C_word *av) C_noret; -static void C_ccall trf_8177(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8177(t0,t1,t2);} - -C_noret_decl(trf_8185) -static void C_ccall trf_8185(C_word c,C_word *av) C_noret; -static void C_ccall trf_8185(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8185(t0,t1,t2);} - -C_noret_decl(trf_8192) -static void C_ccall trf_8192(C_word c,C_word *av) C_noret; -static void C_ccall trf_8192(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8192(t0,t1);} - -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[1]; -C_word t1=av[0]; -f_8201(t0,t1);} - -C_noret_decl(trf_8278) -static void C_ccall trf_8278(C_word c,C_word *av) C_noret; -static void C_ccall trf_8278(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8278(t0,t1,t2,t3);} - -C_noret_decl(trf_8297) -static void C_ccall trf_8297(C_word c,C_word *av) C_noret; -static void C_ccall trf_8297(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8297(t0,t1,t2);} - -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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_8577(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_8584) -static void C_ccall trf_8584(C_word c,C_word *av) C_noret; -static void C_ccall trf_8584(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8584(t0,t1);} - -C_noret_decl(trf_8639) -static void C_ccall trf_8639(C_word c,C_word *av) C_noret; -static void C_ccall trf_8639(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8639(t0,t1,t2);} - -C_noret_decl(trf_8673) -static void C_ccall trf_8673(C_word c,C_word *av) C_noret; -static void C_ccall trf_8673(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8673(t0,t1,t2,t3);} - -C_noret_decl(trf_8713) -static void C_ccall trf_8713(C_word c,C_word *av) C_noret; -static void C_ccall trf_8713(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_8713(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_8740) -static void C_ccall trf_8740(C_word c,C_word *av) C_noret; -static void C_ccall trf_8740(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8740(t0,t1,t2);} - -C_noret_decl(trf_8865) -static void C_ccall trf_8865(C_word c,C_word *av) C_noret; -static void C_ccall trf_8865(C_word c,C_word *av){ -C_word t0=av[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_8865(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_8888) -static void C_ccall trf_8888(C_word c,C_word *av) C_noret; -static void C_ccall trf_8888(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8888(t0,t1);} - -C_noret_decl(trf_8911) -static void C_ccall trf_8911(C_word c,C_word *av) C_noret; -static void C_ccall trf_8911(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8911(t0,t1,t2);} - -C_noret_decl(trf_9180) -static void C_ccall trf_9180(C_word c,C_word *av) C_noret; -static void C_ccall trf_9180(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9180(t0,t1,t2,t3);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9262(t0,t1,t2,t3);} - -C_noret_decl(trf_9346) -static void C_ccall trf_9346(C_word c,C_word *av) C_noret; -static void C_ccall trf_9346(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9346(t0,t1,t2);} - -C_noret_decl(trf_9399) -static void C_ccall trf_9399(C_word c,C_word *av) C_noret; -static void C_ccall trf_9399(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9399(t0,t1,t2);} - -C_noret_decl(trf_9415) -static void C_ccall trf_9415(C_word c,C_word *av) C_noret; -static void C_ccall trf_9415(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9415(t0,t1,t2);} - -C_noret_decl(trf_9512) -static void C_ccall trf_9512(C_word c,C_word *av) C_noret; -static void C_ccall trf_9512(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9512(t0,t1,t2);} - -C_noret_decl(trf_9557) -static void C_ccall trf_9557(C_word c,C_word *av) C_noret; -static void C_ccall trf_9557(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9557(t0,t1,t2);} - -C_noret_decl(trf_9563) -static void C_ccall trf_9563(C_word c,C_word *av) C_noret; -static void C_ccall trf_9563(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9563(t0,t1,t2,t3);} - -C_noret_decl(trf_9583) -static void C_ccall trf_9583(C_word c,C_word *av) C_noret; -static void C_ccall trf_9583(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9583(t0,t1);} - -C_noret_decl(trf_9707) -static void C_ccall trf_9707(C_word c,C_word *av) C_noret; -static void C_ccall trf_9707(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9707(t0,t1,t2);} - -C_noret_decl(trf_9736) -static void C_ccall trf_9736(C_word c,C_word *av) C_noret; -static void C_ccall trf_9736(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9736(t0,t1,t2);} - -C_noret_decl(trf_9797) -static void C_ccall trf_9797(C_word c,C_word *av) C_noret; -static void C_ccall trf_9797(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9797(t0,t1,t2);} - -C_noret_decl(trf_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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9834(t0,t1,t2);} - -C_noret_decl(trf_9840) -static void C_ccall trf_9840(C_word c,C_word *av) C_noret; -static void C_ccall trf_9840(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9840(t0,t1,t2);} - -C_noret_decl(trf_9859) -static void C_ccall trf_9859(C_word c,C_word *av) C_noret; -static void C_ccall trf_9859(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9859(t0,t1,t2);} - -C_noret_decl(trf_9936) -static void C_ccall trf_9936(C_word c,C_word *av) C_noret; -static void C_ccall trf_9936(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_9936(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_9948) -static void C_ccall trf_9948(C_word c,C_word *av) C_noret; -static void C_ccall trf_9948(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9948(t0,t1,t2);} - -/* f17020 in k15154 in g2724 in process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f17020(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f17020,c,av);} -/* expand.scm:1270: fname */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* f17024 in g2724 in process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f17024(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f17024,c,av);} -/* expand.scm:1270: fname */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* variable? in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10020,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_symbolp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* proper-list? in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10026(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_10026,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10032,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( - f_10032(t2) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* loop in proper-list? in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_10032(C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -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))){ -t4=C_u_i_cdr(t1); -t1=t4; -goto loop;} -else{ -return(C_SCHEME_FALSE);}}} - -/* k10051 in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10053(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ -C_save_and_reclaim_args((void *)trf_10053,2,t0,t1);} -a=C_alloc(12); -t2=C_SCHEME_UNDEFINED; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10058,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)li104),tmp=(C_word)a,a+=10,tmp)); -t5=((C_word*)t3)[1]; -f_10058(t5,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10]);} - -/* walk in k10051 in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10058(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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(8,0,4)))){ -C_save_and_reclaim_args((void *)trf_10058,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=C_block_size(t3); -t6=C_fixnum_greaterp(t5,C_fix(1)); -t7=(C_truep(t6)?C_i_vector_ref(t3,C_fix(1)):C_fix(0)); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10077,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp); -t9=C_eqp(t5,C_fix(1)); -if(C_truep(t9)){ -t10=t8; -f_10077(t10,C_fix(1));} -else{ -t10=C_fixnum_greaterp(t5,C_fix(2)); -t11=t8; -f_10077(t11,(C_truep(t10)?C_i_vector_ref(t3,C_fix(2)):C_fix(99999)));}} -else{ -if(C_truep(C_immp(t3))){ -t4=C_eqp(t3,t2); -if(C_truep(C_i_not(t4))){ -/* expand.scm:884: err */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_9948(t5,t1,lf[173]);} -else{ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -if(C_truep(C_i_symbolp(t3))){ -t4=C_eqp(t3,lf[174]); -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{ -t5=C_eqp(t3,lf[175]); -if(C_truep(t5)){ -/* expand.scm:888: test */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t6,t1,t2,*((C_word*)lf[176]+1),lf[177]);} -else{ -t6=C_eqp(t3,lf[178]); -if(C_truep(t6)){ -/* expand.scm:889: test */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t7,t1,t2,((C_word*)((C_word*)t0)[5])[1],lf[179]);} -else{ -t7=C_eqp(t3,lf[180]); -if(C_truep(t7)){ -/* expand.scm:890: test */ -t8=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t8,t1,t2,*((C_word*)lf[181]+1),lf[182]);} -else{ -t8=C_eqp(t3,lf[183]); -if(C_truep(t8)){ -/* expand.scm:891: test */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t9,t1,t2,((C_word*)((C_word*)t0)[6])[1],lf[184]);} -else{ -t9=C_eqp(t3,lf[185]); -if(C_truep(t9)){ -/* expand.scm:892: test */ -t10=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t10,t1,t2,*((C_word*)lf[186]+1),lf[187]);} -else{ -t10=C_eqp(t3,lf[188]); -if(C_truep(t10)){ -/* expand.scm:893: test */ -t11=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t11,t1,t2,*((C_word*)lf[189]+1),lf[190]);} -else{ -t11=C_eqp(t3,lf[191]); -if(C_truep(t11)){ -/* expand.scm:894: test */ -t12=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t12,t1,t2,((C_word*)((C_word*)t0)[7])[1],lf[192]);} -else{ -t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10255,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word)li103),tmp=(C_word)a,a+=5,tmp); -/* expand.scm:896: test */ -t13=((C_word*)((C_word*)t0)[4])[1]; -f_9936(t13,t1,t2,t12,lf[193]);}}}}}}}}} -else{ -t4=C_i_pairp(t3); -if(C_truep(C_i_not(t4))){ -/* expand.scm:903: err */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_9948(t5,t1,lf[194]);} -else{ -t5=C_i_pairp(t2); -if(C_truep(C_i_not(t5))){ -/* expand.scm:904: err */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_9948(t6,t1,lf[195]);} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10312,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:906: walk */ -t14=t6; -t15=C_i_car(t2); -t16=C_i_car(t3); -t1=t14; -t2=t15; -t3=t16; -goto loop;}}}}}} - -/* k10075 in walk in k10051 in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10077(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_10077,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_10082,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word)li102),tmp=(C_word)a,a+=9,tmp)); -t5=((C_word*)t3)[1]; -f_10082(t5,((C_word*)t0)[6],((C_word*)t0)[7],C_fix(0));} - -/* doloop2099 in k10075 in walk in k10051 in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10082(C_word t0,C_word 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_10082,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:877: err */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_9948(t5,t1,lf[170]);} -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_10101,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[5]))){ -/* expand.scm:879: err */ -t6=((C_word*)((C_word*)t0)[3])[1]; -f_9948(t6,t5,lf[171]);} -else{ -t6=C_i_pairp(t2); -if(C_truep(C_i_not(t6))){ -/* expand.scm:881: err */ -t7=((C_word*)((C_word*)t0)[3])[1]; -f_9948(t7,t5,lf[172]);} -else{ -/* expand.scm:882: walk */ -t7=((C_word*)((C_word*)t0)[6])[1]; -f_10058(t7,t5,C_i_car(t2),((C_word*)t0)[7]);}}}} - -/* k10099 in doloop2099 in k10075 in walk in k10051 in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10101,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10082(t2,((C_word*)t0)[3],C_i_cdr(((C_word*)t0)[4]),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));} - -/* a10254 in walk in k10051 in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10255(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_10255,c,av);} -if(C_truep(C_i_symbolp(t2))){ -t3=( -/* expand.scm:899: lookup */ - f_6159(t2,((C_word*)t0)[2]) -); -t4=C_i_symbolp(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_eqp(t3,((C_word*)t0)[3]):C_eqp(t2,((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t3=C_i_symbolp(C_SCHEME_FALSE); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_eqp(C_SCHEME_FALSE,((C_word*)t0)[3]):C_eqp(t2,((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k10310 in walk in k10051 in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10312(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10312,c,av);} -/* expand.scm:907: walk */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10058(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));} - -/* chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10365(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_10365,3,t1,t2,t3);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10371,a[2]=t3,a[3]=t2,a[4]=((C_word)li114),tmp=(C_word)a,a+=5,tmp); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_a_i_record2(&a,2,lf[26],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10371(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(15,c,4)))){ -C_save_and_reclaim((void *)f_10371,c,av);} -a=C_alloc(15); -t5=C_SCHEME_END_OF_LIST; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10374,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp); -t8=C_i_listp(t3); -t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10421,a[2]=t7,a[3]=t6,a[4]=t3,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t1,a[9]=t2,tmp=(C_word)a,a+=10,tmp); -if(C_truep(t8)){ -t10=t9;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t8; -f_10421(2,av2);}} -else{ -/* expand.scm:926: ##sys#error */ -t10=*((C_word*)lf[27]+1);{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[199]; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}}} - -/* inherit-pair-line-numbers in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10374(C_word 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_10374,3,t1,t2,t3);} -a=C_alloc(10); -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10381,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t4)){ -if(C_truep(C_i_symbolp(t4))){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10390,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:920: get-line-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[157]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[157]+1); -av2[1]=t6; -av2[2]=t2; -tp(3,av2);}} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k10379 in inherit-pair-line-numbers in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10381,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10388 in inherit-pair-line-numbers in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10390(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_10390,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10396,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); -/* expand.scm:921: chicken.internal#hash-table-ref */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[152]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[152]+1); -av2[1]=t2; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=((C_word*)t0)[5]; -tp(4,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k10394 in k10388 in inherit-pair-line-numbers in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(6,c,4)))){ -C_save_and_reclaim((void *)f_10396,c,av);} -a=C_alloc(6); -t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); -if(C_truep(t2)){ -if(C_truep(C_i_assq(((C_word*)t0)[2],t2))){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_a_i_cons(&a,2,C_a_i_weak_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[4]),t2); -/* expand.scm:923: chicken.internal#hash-table-set! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[148]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[148]+1); -av2[1]=((C_word*)t0)[5]; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=((C_word*)t0)[6]; -av2[4]=t3; -tp(5,av2);}}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10421(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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_10421,c,av);} -a=C_alloc(42); -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|6,a[1]=(C_word)f_10423,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)li107),tmp=(C_word)a,a+=7,tmp)); -t11=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10509,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word)li111),tmp=(C_word)a,a+=5,tmp)); -t12=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10728,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); -t13=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10753,a[2]=((C_word*)t0)[2],a[3]=t9,a[4]=((C_word*)t0)[4],a[5]=t7,a[6]=((C_word*)t0)[3],a[7]=t3,a[8]=((C_word)li113),tmp=(C_word)a,a+=9,tmp)); -if(C_truep(((C_word*)t0)[6])){ -/* expand.scm:1017: handler */ -t14=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t14; -av2[1]=((C_word*)t0)[8]; -av2[2]=((C_word*)t0)[9]; -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_10885,a[2]=t9,a[3]=((C_word*)t0)[8],tmp=(C_word)a,a+=4,tmp); -t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10889,a[2]=((C_word*)t0)[7],a[3]=t14,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1023: rename */ -t16=((C_word*)t3)[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t16; -av2[1]=t15; -av2[2]=((C_word*)t0)[9]; -f_10423(3,av2);}}} - -/* rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_10423,c,av);} -a=C_alloc(7); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10441,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); -/* expand.scm:929: rename */ -t7=t3; -t8=C_u_i_car(t2); -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_10462,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10466,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:931: scheme#vector->list */ -t5=*((C_word*)lf[198]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t3=C_i_symbolp(t2); -if(C_truep(C_i_not(t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_assq(t2,((C_word*)((C_word*)t0)[4])[1]); -if(C_truep(t4)){ -t5=t1;{ -C_word *av2=av; -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_10492,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:938: macro-alias */ -f_6176(t5,t2,((C_word*)t0)[5]);}}}}} - -/* k10439 in rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_10441,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10445,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); -/* expand.scm:929: rename */ -t3=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_cdr(((C_word*)t0)[4]); -f_10423(3,av2);}} - -/* k10443 in k10439 in rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10445(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_10445,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* expand.scm:929: inherit-pair-line-numbers */ -f_10374(((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k10460 in rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10462(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10462,c,av);} -/* expand.scm:931: scheme#list->vector */ -t2=*((C_word*)lf[197]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10464 in rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10466,c,av);} -/* expand.scm:931: rename */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -f_10423(3,av2);}} - -/* k10490 in rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_10492,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10509(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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; -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_10509,c,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_10531,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:946: compare */ -t11=t4; -t12=C_u_i_car(t2); -t13=C_u_i_car(t3); -t1=t11; -t2=t12; -t3=t13; -c=4; -goto loop;} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -if(C_truep(C_i_vectorp(t2))){ -if(C_truep(C_i_vectorp(t3))){ -t4=C_block_size(t2); -t5=C_block_size(t3); -t6=C_eqp(t4,t5); -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|7,a[1]=(C_word)f_10568,a[2]=t4,a[3]=t8,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=((C_word)li108),tmp=(C_word)a,a+=8,tmp)); -t10=((C_word*)t8)[1]; -f_10568(t10,t1,C_fix(0),C_SCHEME_TRUE);} -else{ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t4=C_i_symbolp(t2); -t5=(C_truep(t4)?C_i_symbolp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_i_getprop(t2,lf[6],C_SCHEME_FALSE); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10620,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -if(C_truep(t6)){ -t8=t7; -f_10620(t8,t6);} -else{ -t8=( -/* expand.scm:977: lookup */ - f_6159(t2,((C_word*)t0)[3]) -); -t9=t7; -f_10620(t9,(C_truep(t8)?t8:t2));}} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_eqp(t2,t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} - -/* k10529 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10531,c,av);} -if(C_truep(t1)){ -/* expand.scm:947: compare */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_u_i_cdr(((C_word*)t0)[4]); -av2[3]=C_u_i_cdr(((C_word*)t0)[5]); -f_10509(4,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* doloop2184 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10568(C_word t0,C_word t1,C_word 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_10568,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=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_fixnum_plus(t2,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10589,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:953: compare */ -t8=((C_word*)((C_word*)t0)[4])[1];{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_i_vector_ref(((C_word*)t0)[5],t2); -av2[3]=C_i_vector_ref(((C_word*)t0)[6],t2); -f_10509(4,av2);}}} - -/* k10587 in doloop2184 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10589(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10589,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10568(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k10618 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10620(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ -C_save_and_reclaim_args((void *)trf_10620,2,t0,t1);} -a=C_alloc(4); -t2=C_i_getprop(((C_word*)t0)[2],lf[6],C_SCHEME_FALSE); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10628,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -if(C_truep(t2)){ -t4=t3; -f_10628(t4,t2);} -else{ -t4=( -/* expand.scm:977: lookup */ - f_6159(((C_word*)t0)[2],((C_word*)t0)[4]) -); -t5=t3; -f_10628(t5,(C_truep(t4)?t4:((C_word*)t0)[2]));}} - -/* k10626 in k10618 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10628(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_10628,2,t0,t1);} -a=C_alloc(5); -if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ -if(C_truep(C_i_symbolp(t1))){ -t2=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_eqp(((C_word*)t0)[2],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10665,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:965: ##sys#macro-environment */ -t3=*((C_word*)lf[17]+1);{ -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_symbolp(t1))){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10693,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:969: ##sys#macro-environment */ -t3=*((C_word*)lf[17]+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)[3];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_eqp(((C_word*)t0)[2],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} - -/* g2225 in k10663 in k10626 in k10618 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_10650(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_eqp(C_i_cdr(t1),((C_word*)t0)[2]));} - -/* k10663 in k10626 in k10618 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10665(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_10665,c,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_10650,a[2]=((C_word*)t0)[3],a[3]=((C_word)li109),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:964: g2225 */ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( -/* expand.scm:964: g2225 */ - f_10650(t3,t2) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* g2234 in k10691 in k10626 in k10618 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_10678(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_eqp(((C_word*)t0)[2],C_i_cdr(t1)));} - -/* k10691 in k10626 in k10618 in compare in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10693(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_10693,c,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_10678,a[2]=((C_word*)t0)[3],a[3]=((C_word)li110),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:969: g2234 */ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( -/* expand.scm:969: g2234 */ - f_10678(t3,t2) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* assq-reverse in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_10728(C_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(t2))){ -return(C_SCHEME_FALSE);} -else{ -t3=C_i_cdar(t2); -t4=C_eqp(t3,t1); -if(C_truep(t4)){ -return(C_u_i_car(t2));} -else{ -t6=t1; -t7=C_u_i_cdr(t2); -t1=t6; -t2=t7; -goto loop;}}} - -/* mirror-rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10753(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_10753,3,t0,t1,t2);} -a=C_alloc(7); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10771,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); -/* expand.scm:992: mirror-rename */ -t8=t3; -t9=C_u_i_car(t2); -t1=t8; -t2=t9; -goto loop;} -else{ -if(C_truep(C_i_vectorp(t2))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10792,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10796,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:994: scheme#vector->list */ -t5=*((C_word*)lf[198]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t3=C_i_symbolp(t2); -if(C_truep(C_i_not(t3))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=( -/* expand.scm:997: lookup */ - f_6159(t2,((C_word*)t0)[4]) -); -t5=( -/* expand.scm:998: assq-reverse */ - f_10728(t2,((C_word*)((C_word*)t0)[6])[1]) -); -if(C_truep(t5)){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_i_car(t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -if(C_truep(C_i_not(t4))){ -/* expand.scm:1002: rename */ -t6=((C_word*)((C_word*)t0)[7])[1];{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -f_10423(3,av2);}} -else{ -if(C_truep(C_i_pairp(t4))){ -/* expand.scm:1004: rename */ -t6=((C_word*)((C_word*)t0)[7])[1];{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -f_10423(3,av2);}} -else{ -t6=C_i_getprop(t2,lf[8],C_SCHEME_FALSE); -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{ -/* expand.scm:1011: rename */ -t7=((C_word*)((C_word*)t0)[7])[1];{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t1; -av2[2]=t2; -f_10423(3,av2);}}}}}}}}} - -/* k10769 in mirror-rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_10771,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10775,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); -/* expand.scm:992: mirror-rename */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_10753(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));} - -/* k10773 in k10769 in mirror-rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10775(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_10775,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* expand.scm:991: inherit-pair-line-numbers */ -f_10374(((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k10790 in mirror-rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10792(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10792,c,av);} -/* expand.scm:994: scheme#list->vector */ -t2=*((C_word*)lf[197]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10794 in mirror-rename in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10796,c,av);} -/* expand.scm:994: mirror-rename */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10753(t2,((C_word*)t0)[3],t1);} - -/* k10883 in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10885(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10885,c,av);} -/* expand.scm:1023: mirror-rename */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10753(t2,((C_word*)t0)[3],t1);} - -/* k10887 in k10419 in a10370 in chicken.syntax#make-er/ir-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10889(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10889,c,av);} -/* expand.scm:1023: handler */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)((C_word*)t0)[4])[1]; -av2[4]=((C_word*)((C_word*)t0)[5])[1]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* chicken.syntax#er-macro-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_10894,c,av);} -/* expand.scm:1025: make-er/ir-transformer */ -f_10365(t1,t2,C_SCHEME_TRUE);} - -/* chicken.syntax#ir-macro-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10900(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_10900,c,av);} -/* expand.scm:1026: make-er/ir-transformer */ -f_10365(t1,t2,C_SCHEME_FALSE);} - -/* k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ -C_save_and_reclaim((void *)f_10913,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15992,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15994,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1056: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ -C_save_and_reclaim((void *)f_10916,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10920,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15881,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15883,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1064: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10920(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ -C_save_and_reclaim((void *)f_10920,c,av);} -a=C_alloc(9); -t2=C_mutate(&lf[100] /* (set! chicken.syntax#import-definition ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10923,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15846,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15848,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1086: ##sys#er-transformer */ -t6=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10923(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_10923,c,av);} -a=C_alloc(12); -t2=C_mutate((C_word*)lf[204]+1 /* (set! process-cond-expand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10925,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11311,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15832,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15834,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1157: ##sys#er-transformer */ -t6=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10925(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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(22,c,3)))){ -C_save_and_reclaim((void *)f_10925,c,av);} -a=C_alloc(22); -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_10928,a[2]=t2,a[3]=((C_word)li118),tmp=(C_word)a,a+=4,tmp)); -t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11001,a[2]=t4,a[3]=t6,a[4]=((C_word)li120),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_11182,a[2]=t2,a[3]=t4,a[4]=t10,a[5]=t6,a[6]=((C_word)li122),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_11182(t12,t1,t2);} - -/* err in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10928(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_10928,3,t0,t1,t2);} -a=C_alloc(3); -t3=C_a_i_cons(&a,2,lf[205],((C_word*)t0)[2]); -/* expand.scm:1093: ##sys#syntax-error */ -t4=*((C_word*)lf[43]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[206]; -av2[3]=t2; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10948(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_10948,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10951,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1100: scheme#symbol->string */ -t3=*((C_word*)lf[134]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_10951,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10954,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1101: ##sys#find-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[218]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[218]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}} - -/* k10952 in k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10954(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_10954,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10964,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1102: chicken.platform#repository-path */ -t3=*((C_word*)lf[217]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k10962 in k10952 in k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(7,c,3)))){ -C_save_and_reclaim((void *)f_10964,c,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_10966,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li119),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_10966(t5,((C_word*)t0)[3],t1);} - -/* loop in k10962 in k10952 in k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_10966(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_10966,3,t0,t1,t2);} -a=C_alloc(10); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10977,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10999,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1105: scheme#string-append */ -t6=*((C_word*)lf[37]+1);{ -C_word av2[6]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -av2[3]=lf[215]; -av2[4]=((C_word*)t0)[3]; -av2[5]=lf[216]; -((C_proc)(void*)(*((C_word*)t6+1)))(6,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);}}} - -/* k10975 in loop in k10962 in k10952 in k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -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_10977,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10983,a[2]=((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_10995,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1106: scheme#string-append */ -t4=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[213]; -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[214]; -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} - -/* k10981 in k10975 in loop in k10962 in k10952 in k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,2)))){ -C_save_and_reclaim((void *)f_10983,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* expand.scm:1107: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_10966(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[4]));}} - -/* k10993 in k10975 in loop in k10962 in k10952 in k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_10995(C_word c,C_word *av){ -C_word tmp; -C_word 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_10995,c,av);} -/* expand.scm:1097: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[212]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[212]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_FALSE; -av2[5]=lf[205]; -tp(6,av2);}} - -/* k10997 in loop in k10962 in k10952 in k10949 in k10946 in k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_10999,c,av);} -/* expand.scm:1097: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[212]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[212]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_FALSE; -av2[5]=lf[205]; -tp(6,av2);}} - -/* test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_11001(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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_11001,3,t0,t1,t2);} -a=C_alloc(7); -if(C_truep(C_i_symbolp(t2))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11015,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1109: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -/* expand.scm:1110: err */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_10928(t4,t1,t2);} -else{ -t4=C_i_car(t2); -t5=C_u_i_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11031,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1114: chicken.syntax#strip-syntax */ -t7=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} - -/* k11013 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11015(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11015,c,av);} -/* expand.scm:1109: chicken.platform#feature? */ -t2=*((C_word*)lf[207]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word t4; -C_word 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_11031,c,av);} -a=C_alloc(5); -t2=C_eqp(t1,lf[208]); -if(C_truep(t2)){ -t3=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST); -if(C_truep(t3)){ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11055,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:1118: test */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_11001(t5,t4,C_u_i_car(((C_word*)t0)[2]));} -else{ -/* expand.scm:1120: err */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_10928(t4,((C_word*)t0)[3],((C_word*)t0)[6]);}}} -else{ -t3=C_eqp(t1,lf[209]); -if(C_truep(t3)){ -t4=C_eqp(((C_word*)t0)[2],C_SCHEME_END_OF_LIST); -if(C_truep(C_i_not(t4))){ -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11090,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); -/* expand.scm:1124: test */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_11001(t6,t5,C_u_i_car(((C_word*)t0)[2]));} -else{ -/* expand.scm:1126: err */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_10928(t5,((C_word*)t0)[3],((C_word*)t0)[6]);}} -else{ -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t4=C_eqp(t1,lf[210]); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11124,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1127: test */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_11001(t6,t5,C_i_cadr(((C_word*)t0)[6]));} -else{ -t5=C_eqp(t1,lf[211]); -if(C_truep(t5)){ -t6=C_i_pairp(((C_word*)t0)[2]); -t7=(C_truep(t6)?C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11147,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1131: chicken.syntax#strip-syntax */ -t9=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} -else{ -/* expand.scm:1132: err */ -t8=((C_word*)((C_word*)t0)[5])[1]; -f_10928(t8,((C_word*)t0)[3],((C_word*)t0)[6]);}} -else{ -/* expand.scm:1133: err */ -t6=((C_word*)((C_word*)t0)[5])[1]; -f_10928(t6,((C_word*)t0)[3],((C_word*)t0)[6]);}}}}} - -/* k11053 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11055(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11055,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,lf[208],t2); -/* expand.scm:1119: test */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_11001(t4,((C_word*)t0)[4],t3);} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k11088 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11090(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_11090,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_u_i_cdr(((C_word*)t0)[3]); -t3=C_a_i_cons(&a,2,lf[209],t2); -/* expand.scm:1125: test */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_11001(t4,((C_word*)t0)[2],t3);}} - -/* k11122 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,1)))){ -C_save_and_reclaim((void *)f_11124,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_not(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11145 in k11029 in test in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11147,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10948,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1099: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[219]+1); -av2[1]=t2; -av2[2]=t1; -tp(3,av2);}} - -/* expand in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_11182(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_11182,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_11207,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_11209,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li121),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_11209(t13,t9,((C_word*)t0)[2]);} -else{ -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -/* expand.scm:1139: err */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_10928(t5,t1,t2);} -else{ -t5=C_i_car(t2); -t6=C_u_i_cdr(t2); -t7=C_i_pairp(t5); -if(C_truep(C_i_not(t7))){ -/* expand.scm:1144: err */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_10928(t8,t1,t5);} -else{ -t8=C_i_car(t5); -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11300,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word*)t0)[5],a[7]=t8,tmp=(C_word)a,a+=8,tmp); -/* expand.scm:1146: chicken.syntax#strip-syntax */ -t10=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=t8; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}} - -/* k11205 in expand in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11207(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11207,c,av);}{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[27]+1); -av2[3]=lf[220]; -av2[4]=t1; -C_apply(5,av2);}} - -/* map-loop2562 in expand in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_11209(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_11209,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k11286 in k11298 in expand in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11288(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11288,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[102],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* expand.scm:1152: expand */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_11182(t2,((C_word*)t0)[3],((C_word*)t0)[5]);}} - -/* k11298 in expand in process-cond-expand in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_11300,c,av);} -a=C_alloc(6); -t2=C_eqp(t1,lf[221]); -if(C_truep(t2)){ -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_eqp(t3,C_SCHEME_END_OF_LIST); -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?lf[222]:C_a_i_cons(&a,2,lf[102],t3)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11288,a[2]=((C_word*)t0)[2],a[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:1151: test */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_11001(t4,t3,((C_word*)t0)[7]);}} - -/* k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11311(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11311,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11315,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1165: ##sys#macro-environment */ -t3=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11315(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_11315,c,av);} -a=C_alloc(9); -t2=C_mutate((C_word*)lf[223]+1 /* (set! ##sys#initial-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11318,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15657,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15659,a[2]=((C_word)li213),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1169: ##sys#er-transformer */ -t6=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ -C_save_and_reclaim((void *)f_11318,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11321,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14983,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14985,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1231: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11321(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11321,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11324,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14956,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14958,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1337: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11324(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11324,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11327,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14833,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14835,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1347: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ -C_save_and_reclaim((void *)f_11327,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11330,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14823,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14825,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1366: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11330(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11330,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11333,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14652,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14654,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1375: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11333(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11333,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11336,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14568,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14570,a[2]=((C_word)li187),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1410: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11336(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11336,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11339,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14545,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14547,a[2]=((C_word)li186),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1433: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11339(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11339,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11343,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1440: ##sys#macro-environment */ -t3=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_11343(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_11343,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[224]+1 /* (set! ##sys#chicken.module-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11347,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1443: ##sys#macro-environment */ -t4=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_11347(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11347,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11350,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_14528,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14530,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1448: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_11350(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11350,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11353,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_14511,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14513,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1456: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -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; -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_11353,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11356,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_14494,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14496,a[2]=((C_word)li183),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1464: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 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 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_11356,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11359,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_14477,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14479,a[2]=((C_word)li182),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1472: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in ... */ -static void C_ccall f_11359(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_11359,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11363,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_14350,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14352,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1481: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in ... */ -static void C_ccall f_11363(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11363,c,av);} -a=C_alloc(10); -t2=C_mutate((C_word*)lf[97]+1 /* (set! chicken.syntax#define-definition ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11367,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_14303,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14305,a[2]=((C_word)li179),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1509: ##sys#er-transformer */ -t6=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in ... */ -static void C_ccall f_11367(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_11367,c,av);} -a=C_alloc(10); -t2=C_mutate((C_word*)lf[98]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11370,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_14251,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14253,a[2]=((C_word)li178),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1523: ##sys#er-transformer */ -t6=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in ... */ -static void C_ccall f_11370(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11370,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14229,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14231,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1536: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_11373(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11373,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11376,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_14207,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14209,a[2]=((C_word)li176),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1545: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_11376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11376,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11379,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_14185,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14187,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1554: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in ... */ -static void C_ccall f_11379(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11379,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11382,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_14141,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14143,a[2]=((C_word)li174),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1563: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in ... */ -static void C_ccall f_11382(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11382,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11385,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_14104,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14106,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1575: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11385,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11388,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_14052,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14054,a[2]=((C_word)li172),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1589: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in ... */ -static void C_ccall f_11388(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11388,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11391,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_13661,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13663,a[2]=((C_word)li171),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1605: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in ... */ -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; -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_11391,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11394,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_13425,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13427,a[2]=((C_word)li169),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1671: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in ... */ -static void C_ccall f_11394(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11394,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11397,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_13374,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13376,a[2]=((C_word)li165),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1716: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in ... */ -static void C_ccall f_11397(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11397,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11400,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_13178,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13180,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1729: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in ... */ -static void C_ccall f_11400(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11400,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11403,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_12885,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12887,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1758: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in ... */ -static void C_ccall f_11403(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11403,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11406,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_12852,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12854,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1810: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11406,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11409,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_12832,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12834,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1820: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -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 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_11409,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11412,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_12796,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12798,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp); -/* synrules.scm:44: ##sys#er-transformer */ -t5=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,4)))){ -C_save_and_reclaim((void *)f_11412,c,av);} -a=C_alloc(23); -t2=C_a_i_provide(&a,1,lf[225]); -t3=C_mutate((C_word*)lf[46]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11414,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[227]+1 /* (set! chicken.internal.syntax-rules#drop-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11420,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[229]+1 /* (set! chicken.internal.syntax-rules#take-right ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11456,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[228]+1 /* (set! chicken.internal.syntax-rules#safe-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11486,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12773,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1829: chicken.internal#macro-subset */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[238]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[238]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* chicken.internal.syntax-rules#syntax-rules-mismatch in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 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=av[2]; -C_word 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_11414,c,av);} -/* synrules.scm:65: ##sys#syntax-error */ -t3=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[226]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* chicken.internal.syntax-rules#drop-right in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -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=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_11420,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11428,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* synrules.scm:68: safe-length */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k11426 in chicken.internal.syntax-rules#drop-right in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_11428(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_11428,c,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_11430,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li125),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_11430(t5,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* loop in k11426 in chicken.internal.syntax-rules#drop-right in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void f_11430(C_word t0,C_word t1,C_word t2,C_word 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_11430,4,t0,t1,t2,t3);} -a=C_alloc(4); -if(C_truep(C_fixnum_greaterp(t2,((C_word*)t0)[2]))){ -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11448,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* synrules.scm:73: loop */ -t7=t5; -t8=C_fixnum_difference(t2,C_fix(1)); -t9=C_u_i_cdr(t3); -t1=t7; -t2=t8; -t3=t9; -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);}}} - -/* k11446 in loop in k11426 in chicken.internal.syntax-rules#drop-right in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11448,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.internal.syntax-rules#take-right in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_11456(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11456,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11464,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* synrules.scm:77: safe-length */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k11462 in chicken.internal.syntax-rules#take-right in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_11464(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11464,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11466,a[2]=((C_word*)t0)[2],a[3]=((C_word)li127),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_11466(t2,t1,((C_word*)t0)[4]) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* loop in k11462 in chicken.internal.syntax-rules#take-right in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static C_word f_11466(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_stack_overflow_check; -loop:{} -if(C_truep(C_fixnum_greaterp(t1,((C_word*)t0)[2]))){ -t4=C_fixnum_difference(t1,C_fix(1)); -t5=C_i_cdr(t2); -t1=t4; -t2=t5; -goto loop;} -else{ -return(t2);}} - -/* chicken.internal.syntax-rules#safe-length in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_11486(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_11486,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11492,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( - f_11492(t2,C_fix(0)) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* loop in chicken.internal.syntax-rules#safe-length in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static C_word f_11492(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_pairp(t1))){ -t4=C_u_i_cdr(t1); -t5=C_fixnum_plus(C_fix(1),t2); -t1=t4; -t2=t5; -goto loop;} -else{ -return(t2);}} - -/* k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_11517(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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(57,c,2)))){ -C_save_and_reclaim((void *)f_11517,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[241]); -t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[242]); -t5=C_mutate(((C_word *)((C_word*)t0)[5])+1,lf[243]); -t6=C_mutate(((C_word *)((C_word*)t0)[6])+1,lf[244]); -t7=C_mutate(((C_word *)((C_word*)t0)[7])+1,lf[245]); -t8=C_mutate(((C_word *)((C_word*)t0)[8])+1,lf[246]); -t9=C_mutate(((C_word *)((C_word*)t0)[9])+1,lf[247]); -t10=C_mutate(((C_word *)((C_word*)t0)[10])+1,lf[248]); -t11=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11532,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[14],a[6]=((C_word*)t0)[15],a[7]=((C_word*)t0)[16],a[8]=((C_word*)t0)[17],a[9]=((C_word*)t0)[18],a[10]=((C_word*)t0)[19],a[11]=((C_word*)t0)[20],a[12]=((C_word*)t0)[21],a[13]=((C_word*)t0)[22],a[14]=((C_word*)t0)[23],a[15]=((C_word*)t0)[24],a[16]=((C_word*)t0)[25],a[17]=((C_word*)t0)[26],a[18]=((C_word*)t0)[27],a[19]=((C_word*)t0)[28],a[20]=((C_word*)t0)[29],a[21]=((C_word*)t0)[30],a[22]=((C_word*)t0)[31],a[23]=((C_word*)t0)[32],a[24]=((C_word*)t0)[33],a[25]=((C_word*)t0)[34],a[26]=((C_word*)t0)[35],a[27]=((C_word*)t0)[36],a[28]=((C_word*)t0)[37],a[29]=((C_word*)t0)[38],a[30]=((C_word*)t0)[39],a[31]=((C_word*)t0)[40],a[32]=((C_word*)t0)[4],a[33]=((C_word*)t0)[41],a[34]=((C_word*)t0)[2],a[35]=((C_word*)t0)[42],a[36]=((C_word*)t0)[43],a[37]=((C_word*)t0)[44],a[38]=((C_word*)t0)[45],a[39]=((C_word*)t0)[46],a[40]=((C_word*)t0)[47],a[41]=((C_word*)t0)[3],a[42]=((C_word*)t0)[5],a[43]=((C_word*)t0)[6],a[44]=((C_word*)t0)[48],a[45]=((C_word*)t0)[8],a[46]=((C_word*)t0)[9],a[47]=((C_word*)t0)[10],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[50],a[50]=((C_word*)t0)[51],a[51]=((C_word*)t0)[7],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:106: r */ -t12=((C_word*)t0)[39];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t12; -av2[1]=t11; -av2[2]=lf[272]; -((C_proc)C_fast_retrieve_proc(t12))(3,av2);}} - -/* k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_11532(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11532,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11536,a[2]=((C_word*)t0)[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)[2],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:107: r */ -t4=((C_word*)t0)[30];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[271]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in ... */ -static void C_ccall f_11536(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11536,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[249]); -t4=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11541,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[10],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[15],a[14]=((C_word*)t0)[16],a[15]=((C_word*)t0)[17],a[16]=((C_word*)t0)[18],a[17]=((C_word*)t0)[19],a[18]=((C_word*)t0)[20],a[19]=((C_word*)t0)[21],a[20]=((C_word*)t0)[22],a[21]=((C_word*)t0)[23],a[22]=((C_word*)t0)[24],a[23]=((C_word*)t0)[25],a[24]=((C_word*)t0)[26],a[25]=((C_word*)t0)[27],a[26]=((C_word*)t0)[28],a[27]=((C_word*)t0)[29],a[28]=((C_word*)t0)[30],a[29]=((C_word*)t0)[31],a[30]=((C_word*)t0)[32],a[31]=((C_word*)t0)[2],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[44],a[44]=((C_word*)t0)[45],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[50],a[50]=((C_word*)t0)[3],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:109: r */ -t5=((C_word*)t0)[29];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[221]; -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} - -/* k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in ... */ -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 t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11541,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[250]); -t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[251]); -t5=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11547,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)[2],a[31]=((C_word*)t0)[33],a[32]=((C_word*)t0)[34],a[33]=((C_word*)t0)[35],a[34]=((C_word*)t0)[36],a[35]=((C_word*)t0)[37],a[36]=((C_word*)t0)[38],a[37]=((C_word*)t0)[39],a[38]=((C_word*)t0)[40],a[39]=((C_word*)t0)[41],a[40]=((C_word*)t0)[42],a[41]=((C_word*)t0)[3],a[42]=((C_word*)t0)[4],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:112: r */ -t6=((C_word*)t0)[27];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[270]; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in ... */ -static void C_ccall f_11547(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11547,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11551,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[2],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:113: r */ -t4=((C_word*)t0)[24];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[269]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in ... */ -static void C_ccall f_11551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11551,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11555,a[2]=((C_word*)t0)[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)[2],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:114: r */ -t4=((C_word*)t0)[23];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[268]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in ... */ -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; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11555,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11559,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[2],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:115: r */ -t4=((C_word*)t0)[22];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[267]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in ... */ -static void C_ccall f_11559(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11559,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11563,a[2]=((C_word*)t0)[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],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:116: r */ -t4=((C_word*)t0)[21];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[55]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in ... */ -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; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11563,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11567,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[2],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:117: r */ -t4=((C_word*)t0)[20];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[90]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in ... */ -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(57,c,2)))){ -C_save_and_reclaim((void *)f_11567,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11571,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[2],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:118: r */ -t4=((C_word*)t0)[19];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[266]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in ... */ -static void C_ccall f_11571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11571,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[252]); -t4=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[253]); -t5=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11578,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[12],a[10]=((C_word*)t0)[13],a[11]=((C_word*)t0)[14],a[12]=((C_word*)t0)[15],a[13]=((C_word*)t0)[16],a[14]=((C_word*)t0)[17],a[15]=((C_word*)t0)[18],a[16]=((C_word*)t0)[19],a[17]=((C_word*)t0)[20],a[18]=((C_word*)t0)[21],a[19]=((C_word*)t0)[22],a[20]=((C_word*)t0)[23],a[21]=((C_word*)t0)[24],a[22]=((C_word*)t0)[25],a[23]=((C_word*)t0)[26],a[24]=((C_word*)t0)[27],a[25]=((C_word*)t0)[28],a[26]=((C_word*)t0)[29],a[27]=((C_word*)t0)[30],a[28]=((C_word*)t0)[31],a[29]=((C_word*)t0)[32],a[30]=((C_word*)t0)[33],a[31]=((C_word*)t0)[34],a[32]=((C_word*)t0)[35],a[33]=((C_word*)t0)[36],a[34]=((C_word*)t0)[37],a[35]=((C_word*)t0)[38],a[36]=((C_word*)t0)[39],a[37]=((C_word*)t0)[40],a[38]=((C_word*)t0)[41],a[39]=((C_word*)t0)[42],a[40]=((C_word*)t0)[43],a[41]=((C_word*)t0)[44],a[42]=((C_word*)t0)[45],a[43]=((C_word*)t0)[2],a[44]=((C_word*)t0)[46],a[45]=((C_word*)t0)[3],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[4],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:122: r */ -t6=((C_word*)t0)[18];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[209]; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in ... */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11578,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[254]); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11583,a[2]=((C_word*)t0)[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)[2],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:124: r */ -t4=((C_word*)t0)[15];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[257]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in ... */ -static void C_ccall f_11583(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11583,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11587,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[44],a[44]=((C_word*)t0)[45],a[45]=((C_word*)t0)[46],a[46]=((C_word*)t0)[47],a[47]=((C_word*)t0)[48],a[48]=((C_word*)t0)[49],a[49]=((C_word*)t0)[50],a[50]=((C_word*)t0)[51],a[51]=((C_word*)t0)[2],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:125: r */ -t4=((C_word*)t0)[14];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[265]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in ... */ -static void C_ccall f_11587(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11587,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11591,a[2]=((C_word*)t0)[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)[2],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:126: r */ -t4=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[264]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in ... */ -static void C_ccall f_11591(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(57,c,2)))){ -C_save_and_reclaim((void *)f_11591,c,av);} -a=C_alloc(57); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11595,a[2]=((C_word*)t0)[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)[2],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],a[56]=((C_word*)t0)[56],tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:127: r */ -t4=((C_word*)t0)[12];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[263]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in ... */ -static void C_ccall f_11595(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ -C_save_and_reclaim((void *)f_11595,c,av);} -a=C_alloc(56); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_11600,a[2]=((C_word*)t0)[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)[2],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); -/* synrules.scm:129: r */ -t4=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[56]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in k11404 in ... */ -static void C_ccall f_11600(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ -C_save_and_reclaim((void *)f_11600,c,av);} -a=C_alloc(56); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_11604,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[16],a[17]=((C_word*)t0)[17],a[18]=((C_word*)t0)[18],a[19]=((C_word*)t0)[19],a[20]=((C_word*)t0)[20],a[21]=((C_word*)t0)[21],a[22]=((C_word*)t0)[22],a[23]=((C_word*)t0)[23],a[24]=((C_word*)t0)[24],a[25]=((C_word*)t0)[25],a[26]=((C_word*)t0)[26],a[27]=((C_word*)t0)[27],a[28]=((C_word*)t0)[28],a[29]=((C_word*)t0)[29],a[30]=((C_word*)t0)[30],a[31]=((C_word*)t0)[31],a[32]=((C_word*)t0)[32],a[33]=((C_word*)t0)[33],a[34]=((C_word*)t0)[34],a[35]=((C_word*)t0)[35],a[36]=((C_word*)t0)[36],a[37]=((C_word*)t0)[37],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); -/* synrules.scm:130: r */ -t4=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[228]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in k11407 in ... */ -static void C_ccall f_11604(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ -C_save_and_reclaim((void *)f_11604,c,av);} -a=C_alloc(56); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_11608,a[2]=((C_word*)t0)[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)[2],a[38]=((C_word*)t0)[38],a[39]=((C_word*)t0)[39],a[40]=((C_word*)t0)[40],a[41]=((C_word*)t0)[41],a[42]=((C_word*)t0)[42],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); -/* synrules.scm:131: r */ -t4=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[229]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in a12797 in ... */ -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(56,c,2)))){ -C_save_and_reclaim((void *)f_11608,c,av);} -a=C_alloc(56); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_11612,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[43],a[43]=((C_word*)t0)[2],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); -/* synrules.scm:132: r */ -t4=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[227]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in k12800 in ... */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(56,c,2)))){ -C_save_and_reclaim((void *)f_11612,c,av);} -a=C_alloc(56); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|55,a[1]=(C_word)f_11616,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[16],a[16]=((C_word*)t0)[17],a[17]=((C_word*)t0)[18],a[18]=((C_word*)t0)[19],a[19]=((C_word*)t0)[20],a[20]=((C_word*)t0)[21],a[21]=((C_word*)t0)[22],a[22]=((C_word*)t0)[23],a[23]=((C_word*)t0)[24],a[24]=((C_word*)t0)[25],a[25]=((C_word*)t0)[26],a[26]=((C_word*)t0)[27],a[27]=((C_word*)t0)[28],a[28]=((C_word*)t0)[29],a[29]=((C_word*)t0)[30],a[30]=((C_word*)t0)[31],a[31]=((C_word*)t0)[32],a[32]=((C_word*)t0)[33],a[33]=((C_word*)t0)[34],a[34]=((C_word*)t0)[35],a[35]=((C_word*)t0)[36],a[36]=((C_word*)t0)[37],a[37]=((C_word*)t0)[38],a[38]=((C_word*)t0)[39],a[39]=((C_word*)t0)[40],a[40]=((C_word*)t0)[41],a[41]=((C_word*)t0)[42],a[42]=((C_word*)t0)[2],a[43]=((C_word*)t0)[43],a[44]=((C_word*)t0)[44],a[45]=((C_word*)t0)[45],a[46]=((C_word*)t0)[46],a[47]=((C_word*)t0)[47],a[48]=((C_word*)t0)[48],a[49]=((C_word*)t0)[49],a[50]=((C_word*)t0)[50],a[51]=((C_word*)t0)[51],a[52]=((C_word*)t0)[52],a[53]=((C_word*)t0)[53],a[54]=((C_word*)t0)[54],a[55]=((C_word*)t0)[55],tmp=(C_word)a,a+=56,tmp); -/* synrules.scm:134: r */ -t4=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[46]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in k12808 in ... */ -static void C_ccall f_11616(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(131,c,7)))){ -C_save_and_reclaim((void *)f_11616,c,av);} -a=C_alloc(131); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11618,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp)); -t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11624,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word)li132),tmp=(C_word)a,a+=5,tmp)); -t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_11634,a[2]=((C_word*)t0)[9],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]=((C_word*)t0)[15],a[9]=((C_word*)t0)[16],a[10]=((C_word*)t0)[17],a[11]=((C_word*)t0)[2],a[12]=((C_word*)t0)[18],a[13]=((C_word)li134),tmp=(C_word)a,a+=14,tmp)); -t6=C_mutate(((C_word *)((C_word*)t0)[17])+1,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11728,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[20],a[4]=((C_word*)t0)[21],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[22],a[7]=((C_word*)t0)[23],a[8]=((C_word*)t0)[13],a[9]=((C_word*)t0)[24],a[10]=((C_word)li136),tmp=(C_word)a,a+=11,tmp)); -t7=C_mutate(((C_word *)((C_word*)t0)[24])+1,(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_11794,a[2]=((C_word*)t0)[25],a[3]=((C_word*)t0)[10],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[26],a[6]=((C_word*)t0)[27],a[7]=((C_word*)t0)[28],a[8]=((C_word*)t0)[19],a[9]=((C_word*)t0)[15],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[24],a[12]=((C_word*)t0)[29],a[13]=((C_word*)t0)[30],a[14]=((C_word*)t0)[31],a[15]=((C_word*)t0)[32],a[16]=((C_word*)t0)[33],a[17]=((C_word*)t0)[34],a[18]=((C_word)li137),tmp=(C_word)a,a+=19,tmp)); -t8=C_mutate(((C_word *)((C_word*)t0)[26])+1,(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_11975,a[2]=((C_word*)t0)[35],a[3]=((C_word*)t0)[36],a[4]=((C_word*)t0)[37],a[5]=((C_word*)t0)[38],a[6]=((C_word*)t0)[39],a[7]=((C_word*)t0)[19],a[8]=((C_word*)t0)[18],a[9]=((C_word*)t0)[14],a[10]=((C_word*)t0)[15],a[11]=((C_word*)t0)[40],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[41],a[14]=((C_word*)t0)[24],a[15]=((C_word*)t0)[29],a[16]=((C_word)li138),tmp=(C_word)a,a+=17,tmp)); -t9=C_mutate(((C_word *)((C_word*)t0)[23])+1,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12087,a[2]=((C_word*)t0)[25],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[42],a[5]=((C_word*)t0)[43],a[6]=((C_word*)t0)[23],a[7]=((C_word*)t0)[27],a[8]=((C_word*)t0)[16],a[9]=((C_word*)t0)[44],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[29],a[12]=((C_word*)t0)[31],a[13]=((C_word*)t0)[34],a[14]=((C_word)li140),tmp=(C_word)a,a+=15,tmp)); -t10=C_mutate(((C_word *)((C_word*)t0)[21])+1,(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_12243,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[21],a[4]=((C_word*)t0)[45],a[5]=((C_word*)t0)[16],a[6]=((C_word*)t0)[46],a[7]=((C_word*)t0)[47],a[8]=((C_word*)t0)[48],a[9]=((C_word*)t0)[49],a[10]=((C_word*)t0)[50],a[11]=((C_word*)t0)[51],a[12]=((C_word*)t0)[52],a[13]=((C_word*)t0)[53],a[14]=((C_word)li143),tmp=(C_word)a,a+=15,tmp)); -t11=C_mutate(((C_word *)((C_word*)t0)[22])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12481,a[2]=((C_word*)t0)[25],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[22],a[5]=((C_word*)t0)[34],a[6]=((C_word)li144),tmp=(C_word)a,a+=7,tmp)); -t12=C_mutate(((C_word *)((C_word*)t0)[47])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12567,a[2]=((C_word*)t0)[47],a[3]=((C_word*)t0)[52],a[4]=((C_word)li145),tmp=(C_word)a,a+=5,tmp)); -t13=C_mutate(((C_word *)((C_word*)t0)[53])+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12656,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate(((C_word *)((C_word*)t0)[34])+1,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12670,a[2]=((C_word*)t0)[52],a[3]=((C_word)li147),tmp=(C_word)a,a+=4,tmp)); -t15=C_mutate(((C_word *)((C_word*)t0)[52])+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12685,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate(((C_word *)((C_word*)t0)[48])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12712,a[2]=((C_word*)t0)[48],a[3]=((C_word*)t0)[52],a[4]=((C_word)li149),tmp=(C_word)a,a+=5,tmp)); -t17=C_mutate(((C_word *)((C_word*)t0)[45])+1,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12732,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp)); -/* synrules.scm:359: make-transformer */ -t18=((C_word*)((C_word*)t0)[8])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t18; -av2[1]=((C_word*)t0)[54]; -av2[2]=((C_word*)t0)[55]; -((C_proc)(void*)(*((C_word*)t18+1)))(3,av2);}} - -/* f_11618 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_11618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_11618,c,av);} -/* synrules.scm:137: c */ -t3=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -av2[3]=((C_word*)((C_word*)t0)[3])[1]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* f_11624 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_11624(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_11624,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11632,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* synrules.scm:141: r */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[174]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k11630 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11632,c,av);} -/* synrules.scm:141: c */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* f_11634 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_11634(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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(52,c,3)))){ -C_save_and_reclaim((void *)f_11634,c,av);} -a=C_alloc(52); -t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); -t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[2])[1]); -t5=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],t4); -t6=C_a_i_list(&a,1,t5); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11662,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=t6,a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=t1,tmp=(C_word)a,a+=8,tmp); -t8=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t9=t8; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=((C_word*)t10)[1]; -t12=((C_word*)((C_word*)t0)[10])[1]; -t13=C_i_check_list_2(t2,lf[16]); -t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11672,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[12],a[5]=t7,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|6,a[1]=(C_word)f_11686,a[2]=t10,a[3]=t16,a[4]=t12,a[5]=t11,a[6]=((C_word)li133),tmp=(C_word)a,a+=7,tmp)); -t18=((C_word*)t16)[1]; -f_11686(t18,t14,t2);} - -/* k11660 */ -static void C_ccall f_11662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11662,c,av);} -a=C_alloc(27); -t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); -t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t2); -t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],((C_word*)t0)[6],t3); -t5=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,2,lf[202],t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k11670 */ -static void C_ccall f_11672(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11672,c,av);} -a=C_alloc(15); -t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); -t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],t2); -t4=C_a_i_list(&a,1,t3); -/* synrules.scm:144: ##sys#append */ -t5=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[5]; -av2[2]=t1; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* map-loop3637 */ -static void f_11686(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_11686,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11711,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); -/* synrules.scm:147: g3643 */ -t4=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t4))(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);}}} - -/* k11709 in map-loop3637 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11711,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_11686(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* f_11728 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_11728(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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(12,c,2)))){ -C_save_and_reclaim((void *)f_11728,c,av);} -a=C_alloc(12); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11735,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],a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); -if(C_truep(C_i_pairp(t2))){ -t4=C_i_pairp(C_u_i_cdr(t2)); -t5=t3; -f_11735(t5,(C_truep(t4)?C_i_nullp(C_i_cddr(t2)):C_SCHEME_FALSE));} -else{ -t4=t3; -f_11735(t4,C_SCHEME_FALSE);}} - -/* k11733 */ -static void f_11735(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_11735,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_i_cdar(((C_word*)t0)[2]); -t3=C_i_cadr(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_11771,a[2]=((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]=t2,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -/* synrules.scm:156: process-match */ -t5=((C_word*)((C_word*)t0)[11])[1];{ -C_word av2[6]; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)((C_word*)t0)[10])[1]; -av2[3]=t2; -av2[4]=C_SCHEME_FALSE; -av2[5]=((C_word*)((C_word*)t0)[7])[1]; -((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} -else{ -/* synrules.scm:163: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[5]; -av2[2]=lf[255]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k11754 in k11769 in k11733 */ -static void C_ccall f_11756(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,6)))){ -C_save_and_reclaim((void *)f_11756,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11760,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); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11764,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); -/* synrules.scm:162: meta-variables */ -t4=((C_word*)((C_word*)t0)[8])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -av2[3]=C_fix(0); -av2[4]=((C_word*)((C_word*)t0)[7])[1]; -av2[5]=C_SCHEME_END_OF_LIST; -av2[6]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t4))(7,av2);}} - -/* k11758 in k11754 in k11769 in k11733 */ -static void C_ccall f_11760(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ -C_save_and_reclaim((void *)f_11760,c,av);} -a=C_alloc(15); -t2=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],t1); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,2,((C_word*)t0)[5],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11762 in k11754 in k11769 in k11733 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_11764,c,av);} -/* synrules.scm:160: process-template */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(0); -av2[4]=((C_word*)((C_word*)t0)[5])[1]; -av2[5]=t1; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} - -/* a11765 in k11769 in k11733 */ -static void C_ccall f_11766(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11766,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k11769 in k11733 */ -static void C_ccall f_11771(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,6)))){ -C_save_and_reclaim((void *)f_11771,c,av);} -a=C_alloc(16); -t2=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[2])[1],t1); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11756,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],tmp=(C_word)a,a+=10,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11766,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp); -/* synrules.scm:157: process-pattern */ -t5=((C_word*)((C_word*)t0)[10])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -av2[3]=((C_word*)((C_word*)t0)[11])[1]; -av2[4]=t4; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)((C_word*)t0)[7])[1]; -((C_proc)C_fast_retrieve_proc(t5))(7,av2);}} - -/* f_11794 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_11794(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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(24,c,4)))){ -C_save_and_reclaim((void *)f_11794,c,av);} -a=C_alloc(24); -if(C_truep(C_i_symbolp(t3))){ -if(C_truep(C_i_memq(t3,((C_word*)t0)[2]))){ -t6=C_a_i_list(&a,2,lf[256],t3); -t7=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t6); -t8=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],t2,t7); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_a_i_list(&a,1,t8); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t6=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_11828,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t5,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); -/* synrules.scm:172: segment-pattern? */ -t7=((C_word*)((C_word*)t0)[17])[1];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t3; -av2[3]=t4; -av2[4]=t5; -((C_proc)C_fast_retrieve_proc(t7))(5,av2);}}} - -/* k11826 */ -static void C_ccall f_11828(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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,5)))){ -C_save_and_reclaim((void *)f_11828,c,av);} -a=C_alloc(36); -if(C_truep(t1)){ -/* synrules.scm:173: process-segment-match */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[5]))){ -t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[4]); -t3=C_a_i_list(&a,1,t2); -t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[8])[1],((C_word*)((C_word*)t0)[7])[1]); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11864,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11868,a[2]=t5,a[3]=((C_word*)t0)[11],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[12],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -t7=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[13])[1],((C_word*)((C_word*)t0)[7])[1]); -/* synrules.scm:177: process-match */ -t8=((C_word*)((C_word*)t0)[12])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t8; -av2[1]=t6; -av2[2]=t7; -av2[3]=C_u_i_car(((C_word*)t0)[5]); -av2[4]=C_SCHEME_FALSE; -av2[5]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t8))(6,av2);}} -else{ -if(C_truep(C_i_vectorp(((C_word*)t0)[5]))){ -t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[4]); -t3=C_a_i_list(&a,1,t2); -t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)((C_word*)t0)[7])[1]); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11921,a[2]=t4,a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=t3,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[15])[1],((C_word*)((C_word*)t0)[7])[1]); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11929,a[2]=((C_word*)t0)[12],a[3]=t5,a[4]=t6,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); -/* synrules.scm:183: scheme#vector->list */ -t8=*((C_word*)lf[198]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t2=C_i_nullp(((C_word*)t0)[5]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11942,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[16],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[17],tmp=(C_word)a,a+=7,tmp); -if(C_truep(t2)){ -t4=t3; -f_11942(t4,t2);} -else{ -t4=C_booleanp(((C_word*)t0)[5]); -t5=t3; -f_11942(t5,(C_truep(t4)?t4:C_charp(((C_word*)t0)[5])));}}}}} - -/* k11862 in k11826 */ -static void C_ccall f_11864(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11864,c,av);} -a=C_alloc(18); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); -t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3); -t5=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,1,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k11866 in k11826 */ -static void C_ccall f_11868(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_11868,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11872,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); -/* synrules.scm:178: process-match */ -t4=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t3; -av2[3]=C_u_i_cdr(((C_word*)t0)[6]); -av2[4]=C_SCHEME_FALSE; -av2[5]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t4))(6,av2);}} - -/* k11870 in k11866 in k11826 */ -static void C_ccall f_11872(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11872,c,av);} -/* synrules.scm:175: ##sys#append */ -t2=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k11919 in k11826 */ -static void C_ccall f_11921(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ -C_save_and_reclaim((void *)f_11921,c,av);} -a=C_alloc(18); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[3])[1],t2); -t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],t3); -t5=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,1,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k11927 in k11826 */ -static void C_ccall f_11929(C_word c,C_word *av){ -C_word tmp; -C_word 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_11929,c,av);} -/* synrules.scm:182: process-match */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -av2[4]=C_SCHEME_FALSE; -av2[5]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} - -/* k11940 in k11826 */ -static void f_11942(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_11942,2,t0,t1);} -a=C_alloc(18); -if(C_truep(t1)){ -t2=C_a_i_list(&a,2,lf[257],((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[257],((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[4],t2); -t4=((C_word*)t0)[5];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_a_i_list(&a,1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* f_11975 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_11975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(25,c,5)))){ -C_save_and_reclaim((void *)f_11975,c,av);} -a=C_alloc(25); -t5=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_11979,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],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]=t1,a[14]=((C_word*)t0)[12],a[15]=((C_word*)t0)[13],a[16]=((C_word*)t0)[14],a[17]=t3,a[18]=t4,tmp=(C_word)a,a+=19,tmp); -t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[15])[1],((C_word*)((C_word*)t0)[5])[1]); -/* synrules.scm:190: process-match */ -t7=((C_word*)((C_word*)t0)[14])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -av2[3]=C_i_car(t3); -av2[4]=C_SCHEME_FALSE; -av2[5]=t4; -((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} - -/* k11977 */ -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(20,c,2)))){ -C_save_and_reclaim((void *)f_11979,c,av);} -a=C_alloc(20); -t2=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_11982,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=t1,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); -/* synrules.scm:191: safe-length */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t2; -av2[2]=C_i_cddr(((C_word*)t0)[17]); -tp(3,av2);}} - -/* k11980 in k11977 */ -static void C_ccall f_11982(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(68,c,5)))){ -C_save_and_reclaim((void *)f_11982,c,av);} -a=C_alloc(68); -t2=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); -t3=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],t2); -t4=C_a_i_list(&a,1,t3); -t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],((C_word*)((C_word*)t0)[4])[1],t1); -t6=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[3]); -t7=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],((C_word*)((C_word*)t0)[4])[1]); -t8=C_a_i_list(&a,2,t6,t7); -t9=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[4])[1],t1); -t10=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12053,a[2]=t9,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]=t8,a[9]=t5,a[10]=t4,a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[14],a[13]=((C_word*)t0)[6],a[14]=((C_word*)t0)[15],a[15]=((C_word*)t0)[4],a[16]=((C_word*)t0)[16],tmp=(C_word)a,a+=17,tmp); -/* synrules.scm:197: process-match */ -t11=((C_word*)((C_word*)t0)[17])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t11; -av2[1]=t10; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=C_i_cddr(((C_word*)t0)[18]); -av2[4]=C_SCHEME_TRUE; -av2[5]=((C_word*)t0)[19]; -((C_proc)C_fast_retrieve_proc(t11))(6,av2);}} - -/* k12027 in k12051 in k11980 in k11977 */ -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 t3; -C_word 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_12029,c,av);} -a=C_alloc(51); -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_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_list(&a,1,t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* k12051 in k11980 in k11977 */ -static void C_ccall f_12053(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){ -C_save_and_reclaim((void *)f_12053,c,av);} -a=C_alloc(42); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12029,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],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); -t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[12])[1],((C_word*)((C_word*)t0)[13])[1]); -t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[14])[1],((C_word*)((C_word*)t0)[15])[1],C_fix(-1)); -t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[7])[1],t4,t5); -t7=C_a_i_list(&a,1,t6); -/* synrules.scm:192: ##sys#append */ -t8=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t8; -av2[1]=t3; -av2[2]=((C_word*)t0)[16]; -av2[3]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} - -/* f_12087 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_12087(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(16,c,4)))){ -C_save_and_reclaim((void *)f_12087,c,av);} -a=C_alloc(16); -if(C_truep(C_i_symbolp(t2))){ -t7=C_i_memq(t2,((C_word*)t0)[2]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12103,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t7)){ -t9=t8;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t7; -f_12103(2,av2);}} -else{ -/* synrules.scm:208: underscore? */ -t9=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}} -else{ -t7=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12126,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]=t4,a[9]=t6,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); -/* synrules.scm:211: segment-pattern? */ -t8=((C_word*)((C_word*)t0)[13])[1];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -av2[3]=t5; -av2[4]=t6; -((C_proc)C_fast_retrieve_proc(t8))(5,av2);}}} - -/* k12101 */ -static void C_ccall f_12103(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_12103,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12114,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* synrules.scm:210: mapit */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} - -/* k12112 in k12101 */ -static void C_ccall f_12114(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_12114,c,av);} -a=C_alloc(9); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list1(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k12124 */ -static void C_ccall f_12126(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,6)))){ -C_save_and_reclaim((void *)f_12126,c,av);} -a=C_alloc(15); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12129,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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); -/* synrules.scm:212: safe-length */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[228]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[228]+1); -av2[1]=t2; -av2[2]=C_i_cddr(((C_word*)t0)[2]); -tp(3,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12208,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[13],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); -t3=C_u_i_car(((C_word*)t0)[2]); -t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[14])[1],((C_word*)t0)[3]); -/* synrules.scm:230: process-pattern */ -t5=((C_word*)((C_word*)t0)[7])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -av2[4]=((C_word*)t0)[8]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[9]; -((C_proc)C_fast_retrieve_proc(t5))(7,av2);}} -else{ -if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12237,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],tmp=(C_word)a,a+=8,tmp); -/* synrules.scm:233: scheme#vector->list */ -t3=*((C_word*)lf[198]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} - -/* k12127 in k12124 */ -static void C_ccall f_12129(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(27,c,6)))){ -C_save_and_reclaim((void *)f_12129,c,av);} -a=C_alloc(27); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=C_i_listp(t2); -t4=(C_truep(t3)?C_i_zerop(t1):C_SCHEME_FALSE); -t5=(C_truep(t4)?((C_word*)t0)[3]:C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[3],t1)); -t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12139,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]=t1,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); -t7=C_u_i_car(((C_word*)t0)[2]); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12155,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[8],a[4]=t5,a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word)li139),tmp=(C_word)a,a+=8,tmp); -/* synrules.scm:218: process-pattern */ -t9=((C_word*)((C_word*)t0)[7])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t9; -av2[1]=t6; -av2[2]=t7; -av2[3]=((C_word*)((C_word*)t0)[10])[1]; -av2[4]=t8; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[9]; -((C_proc)C_fast_retrieve_proc(t9))(7,av2);}} - -/* k12137 in k12127 in k12124 */ -static void C_ccall f_12139(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12139,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12143,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_i_cddr(((C_word*)t0)[3]); -t4=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]); -/* synrules.scm:226: process-pattern */ -t5=((C_word*)((C_word*)t0)[7])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -av2[4]=((C_word*)t0)[8]; -av2[5]=C_SCHEME_TRUE; -av2[6]=((C_word*)t0)[9]; -((C_proc)C_fast_retrieve_proc(t5))(7,av2);}} - -/* k12141 in k12137 in k12127 in k12124 */ -static void C_ccall f_12143(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12143,c,av);} -/* synrules.scm:217: scheme#append */ -t2=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a12154 in k12127 in k12124 */ -static void C_ccall f_12155(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_12155,c,av);} -a=C_alloc(21); -t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],t2); -if(C_truep(t3)){ -/* synrules.scm:221: mapit */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} -else{ -t4=C_a_i_list(&a,1,((C_word*)((C_word*)t0)[2])[1]); -t5=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[5])[1],t4,t2); -t6=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[6])[1],t5,((C_word*)t0)[4]); -/* synrules.scm:221: mapit */ -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -av2[2]=t6; -((C_proc)C_fast_retrieve_proc(t7))(3,av2);}}} - -/* k12206 in k12124 */ -static void C_ccall f_12208(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,6)))){ -C_save_and_reclaim((void *)f_12208,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12212,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5]); -/* synrules.scm:231: process-pattern */ -t5=((C_word*)((C_word*)t0)[6])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -av2[4]=((C_word*)t0)[7]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t5))(7,av2);}} - -/* k12210 in k12206 in k12124 */ -static void C_ccall f_12212(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12212,c,av);} -/* synrules.scm:230: scheme#append */ -t2=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k12235 in k12124 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ -C_save_and_reclaim((void *)f_12237,c,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:233: process-pattern */ -t3=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -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; -av2[6]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t3))(7,av2);}} - -/* f_12243 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_12243(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(17,c,3)))){ -C_save_and_reclaim((void *)f_12243,c,av);} -a=C_alloc(17); -if(C_truep(C_i_symbolp(t2))){ -t6=C_i_assq(t2,t5); -if(C_truep(t6)){ -t7=C_i_cdr(t6); -if(C_truep(C_fixnum_less_or_equal_p(t7,t3))){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -/* synrules.scm:246: ##sys#syntax-error */ -t8=*((C_word*)lf[43]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t1; -av2[2]=lf[258]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} -else{ -t7=C_a_i_list(&a,2,lf[256],t2); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[2])[1],t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} -else{ -t6=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_12282,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t5,a[7]=t4,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],a[15]=((C_word*)t0)[11],a[16]=((C_word*)t0)[12],tmp=(C_word)a,a+=17,tmp); -/* synrules.scm:250: ellipsis-escaped-pattern? */ -t7=((C_word*)((C_word*)t0)[13])[1];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=t4; -((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} - -/* k12280 */ -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 t3; -C_word 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_12282,c,av);} -a=C_alloc(16); -if(C_truep(t1)){ -t2=C_i_cdr(((C_word*)t0)[2]); -t3=C_i_pairp(t2); -t4=C_i_not(t3); -t5=(C_truep(t4)?t4:C_i_pairp(C_i_cddr(((C_word*)t0)[2]))); -if(C_truep(t5)){ -/* synrules.scm:252: ##sys#syntax-error */ -t6=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[259]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=C_i_cadr(((C_word*)t0)[2]); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12303,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp); -/* synrules.scm:253: process-template */ -t8=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t8; -av2[1]=((C_word*)t0)[3]; -av2[2]=t6; -av2[3]=((C_word*)t0)[5]; -av2[4]=t7; -av2[5]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t8))(6,av2);}}} -else{ -t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_12325,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)[7],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],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); -/* synrules.scm:254: segment-template? */ -t3=((C_word*)((C_word*)t0)[16])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* a12302 in k12280 */ -static void C_ccall f_12303(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12303,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12323 in k12280 */ -static void C_ccall f_12325(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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,5)))){ -C_save_and_reclaim((void *)f_12325,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12328,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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); -/* synrules.scm:255: segment-depth */ -t3=((C_word*)((C_word*)t0)[12])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[4]))){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12448,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[13],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* synrules.scm:280: process-template */ -t3=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_car(((C_word*)t0)[4]); -av2[3]=((C_word*)t0)[2]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} -else{ -if(C_truep(C_i_vectorp(((C_word*)t0)[4]))){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12469,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[14],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12473,a[2]=((C_word*)t0)[5],a[3]=t2,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); -/* synrules.scm:284: scheme#vector->list */ -t4=*((C_word*)lf[198]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[15])[1],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} - -/* k12326 in k12323 in k12280 */ -static void C_ccall f_12328(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12328,c,av);} -a=C_alloc(13); -t2=C_fixnum_plus(((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12334,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]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=t2,tmp=(C_word)a,a+=13,tmp); -/* synrules.scm:258: free-meta-variables */ -t4=((C_word*)((C_word*)t0)[11])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_car(((C_word*)t0)[4]); -av2[3]=t2; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=C_SCHEME_END_OF_LIST; -((C_proc)C_fast_retrieve_proc(t4))(7,av2);}} - -/* k12332 in k12326 in k12323 in k12280 */ -static void C_ccall f_12334(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_12334,c,av);} -a=C_alloc(13); -if(C_truep(C_i_nullp(t1))){ -/* synrules.scm:260: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[260]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_12346,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)[3],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,a[12]=((C_word*)t0)[11],tmp=(C_word)a,a+=13,tmp); -/* synrules.scm:261: process-template */ -t3=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_car(((C_word*)t0)[3]); -av2[3]=((C_word*)t0)[12]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}}} - -/* k12344 in k12332 in k12326 in k12323 in k12280 */ -static void C_ccall f_12346(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12346,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12349,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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|6,a[1]=(C_word)f_12396,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_pairp(((C_word*)t0)[11]))){ -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[11])))){ -t4=C_i_symbolp(t1); -t5=t3; -f_12396(t5,(C_truep(t4)?C_eqp(t1,C_u_i_car(((C_word*)t0)[11])):C_SCHEME_FALSE));} -else{ -t4=t3; -f_12396(t4,C_SCHEME_FALSE);}} -else{ -t4=t3; -f_12396(t4,C_SCHEME_FALSE);}} - -/* k12347 in k12344 in k12332 in k12326 in k12323 in k12280 */ -static void f_12349(C_word 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_12349,2,t0,t1);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_12375,a[2]=t4,a[3]=((C_word)li142),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_12375(t6,t2,((C_word*)t0)[9],t1);} - -/* k12350 in k12347 in k12344 in k12332 in k12326 in k12323 in k12280 */ -static void C_ccall f_12352(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_12352,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12373,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); -/* synrules.scm:275: segment-tail */ -t3=((C_word*)((C_word*)t0)[7])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* k12363 in k12371 in k12350 in k12347 in k12344 in k12332 in k12326 in k12323 in k12280 */ -static void C_ccall f_12365(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_12365,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[72],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12367 in k12371 in k12350 in k12347 in k12344 in k12332 in k12326 in k12323 in k12280 */ -static void C_ccall f_12369(C_word c,C_word *av){ -C_word tmp; -C_word 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_12369,c,av);} -/* synrules.scm:277: process-template */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} - -/* k12371 in k12350 in k12347 in k12344 in k12332 in k12326 in k12323 in k12280 */ -static void C_ccall f_12373(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_12373,c,av);} -a=C_alloc(11); -if(C_truep(C_i_nullp(t1))){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12365,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12369,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],tmp=(C_word)a,a+=7,tmp); -/* synrules.scm:277: segment-tail */ -t4=((C_word*)((C_word*)t0)[8])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -av2[3]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} - -/* doloop3786 in k12347 in k12344 in k12332 in k12326 in k12323 in k12280 */ -static void f_12375(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(9,0,3)))){ -C_save_and_reclaim_args((void *)trf_12375,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_eqp(t2,C_fix(1)); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_fixnum_difference(t2,C_fix(1)); -t6=C_a_i_list(&a,3,lf[261],lf[72],t3); -t8=t1; -t9=t5; -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;}} - -/* k12394 in k12344 in k12332 in k12326 in k12323 in k12280 */ -static void f_12396(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_12396,2,t0,t1);} -a=C_alloc(15); -if(C_truep(t1)){ -t2=((C_word*)t0)[2]; -f_12349(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_12349(t4,C_a_i_cons(&a,2,((C_word*)((C_word*)t0)[6])[1],t3));}} - -/* k12446 in k12323 in k12280 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ -C_save_and_reclaim((void *)f_12448,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12452,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* synrules.scm:281: process-template */ -t3=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_cdr(((C_word*)t0)[5]); -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} - -/* k12450 in k12446 in k12323 in k12280 */ -static void C_ccall f_12452(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_12452,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12467 in k12323 in k12280 */ -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(6,c,1)))){ -C_save_and_reclaim((void *)f_12469,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,((C_word*)((C_word*)t0)[3])[1],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12471 in k12323 in k12280 */ -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,5)))){ -C_save_and_reclaim((void *)f_12473,c,av);} -/* synrules.scm:284: process-template */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} - -/* f_12481 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -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=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(8,c,4)))){ -C_save_and_reclaim((void *)f_12481,c,av);} -a=C_alloc(8); -if(C_truep(C_i_symbolp(t2))){ -t7=C_i_memq(t2,((C_word*)t0)[2]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12497,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t7)){ -t9=t8;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t7; -f_12497(2,av2);}} -else{ -/* synrules.scm:293: underscore? */ -t9=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}} -else{ -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12516,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp); -/* synrules.scm:296: segment-pattern? */ -t8=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -av2[3]=t6; -av2[4]=t4; -((C_proc)C_fast_retrieve_proc(t8))(5,av2);}}} - -/* k12495 */ -static void C_ccall f_12497(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_12497,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k12514 */ -static void C_ccall f_12516(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12516,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=C_i_car(((C_word*)t0)[2]); -t3=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12531,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -/* synrules.scm:298: meta-variables */ -t5=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_i_cddr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t5))(7,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t2=C_u_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12550,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -/* synrules.scm:301: meta-variables */ -t4=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_u_i_cdr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t4))(7,av2);}} -else{ -if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12565,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],tmp=(C_word)a,a+=7,tmp); -/* synrules.scm:303: scheme#vector->list */ -t3=*((C_word*)lf[198]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} - -/* k12529 in k12514 */ -static void C_ccall f_12531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_12531,c,av);} -/* synrules.scm:297: meta-variables */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=t1; -av2[6]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t2))(7,av2);}} - -/* k12548 in k12514 */ -static void C_ccall f_12550(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_12550,c,av);} -/* synrules.scm:300: meta-variables */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=t1; -av2[6]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t2))(7,av2);}} - -/* k12563 in k12514 */ -static void C_ccall f_12565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_12565,c,av);} -/* synrules.scm:303: meta-variables */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -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]; -av2[6]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t2))(7,av2);}} - -/* f_12567 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -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=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(c!=7) C_bad_argc_2(c,7,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_12567,c,av);} -a=C_alloc(9); -if(C_truep(C_i_symbolp(t2))){ -t7=C_i_memq(t2,t6); -if(C_truep(C_i_not(t7))){ -t8=C_i_assq(t2,t5); -if(C_truep(t8)){ -t9=C_i_cdr(t8); -t10=C_fixnum_greater_or_equal_p(t9,t3); -t11=t1;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=(C_truep(t10)?C_a_i_cons(&a,2,t2,t6):t6); -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} -else{ -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} -else{ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} -else{ -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12609,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* synrules.scm:315: segment-template? */ -t8=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -av2[3]=t4; -((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}} - -/* k12607 */ -static void C_ccall f_12609(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12609,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=C_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12620,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); -/* synrules.scm:318: free-meta-variables */ -t4=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_cddr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t4))(7,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t2=C_u_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12639,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); -/* synrules.scm:323: free-meta-variables */ -t4=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_u_i_cdr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t4))(7,av2);}} -else{ -if(C_truep(C_i_vectorp(((C_word*)t0)[2]))){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12654,a[2]=((C_word*)t0)[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); -/* synrules.scm:326: scheme#vector->list */ -t3=*((C_word*)lf[198]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}} - -/* k12618 in k12607 */ -static void C_ccall f_12620(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_12620,c,av);} -/* synrules.scm:316: free-meta-variables */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -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; -((C_proc)C_fast_retrieve_proc(t2))(7,av2);}} - -/* k12637 in k12607 */ -static void C_ccall f_12639(C_word c,C_word *av){ -C_word tmp; -C_word 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_12639,c,av);} -/* synrules.scm:321: free-meta-variables */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -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; -((C_proc)C_fast_retrieve_proc(t2))(7,av2);}} - -/* k12652 in k12607 */ -static void C_ccall f_12654(C_word c,C_word *av){ -C_word tmp; -C_word 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_12654,c,av);} -/* synrules.scm:326: free-meta-variables */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -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]; -av2[6]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t2))(7,av2);}} - -/* f_12656 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_12656(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *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_12656,c,av);} -if(C_truep(C_i_pairp(t2))){ -/* synrules.scm:330: el? */ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=C_u_i_car(t2); -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* f_12670 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_12670(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12670,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12677,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* synrules.scm:333: segment-template? */ -t6=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=t4; -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} - -/* k12675 */ -static void C_ccall f_12677(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12677,c,av);} -if(C_truep(t1)){ -if(C_truep(((C_word*)t0)[2])){ -/* synrules.scm:335: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[262]; -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; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* f_12685 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_12685(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,2)))){ -C_save_and_reclaim((void *)f_12685,c,av);} -if(C_truep(C_i_pairp(t2))){ -if(C_truep(C_i_pairp(C_u_i_cdr(t2)))){ -/* synrules.scm:339: g3842 */ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=C_i_cadr(t2); -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* f_12712 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 in ... */ -static void C_ccall f_12712(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_12712,c,av);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12719,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* synrules.scm:346: segment-template? */ -t5=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=t3; -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} - -/* k12717 */ -static void C_ccall f_12719(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_12719,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12726,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* synrules.scm:347: segment-depth */ -t3=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cdr(((C_word*)t0)[4]); -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k12724 in k12717 */ -static void C_ccall f_12726(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12726,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fixnum_plus(C_fix(1),t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_12732 in k11614 in k11610 in k11606 in k11602 in k11598 in k11593 in k11589 in k11585 in k11581 in k11576 in k11569 in k11565 in k11561 in k11557 in k11553 in k11549 in k11545 in k11539 in k11534 in k11530 in k11515 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=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_12732,c,av);} -a=C_alloc(7); -t4=C_i_cdr(t2); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12742,a[2]=t6,a[3]=t3,a[4]=((C_word)li150),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_12742(t8,t1,t4);} - -/* loop */ -static void f_12742(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_12742,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12749,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_pairp(t2))){ -/* synrules.scm:354: g3851 */ -t4=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_u_i_car(t2); -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k12747 in loop */ -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,2)))){ -C_save_and_reclaim((void *)f_12749,c,av);} -if(C_truep(t1)){ -/* synrules.scm:356: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_12742(t2,((C_word*)t0)[3],C_i_cdr(((C_word*)t0)[4]));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k12771 in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_12773(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12773,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[18]+1 /* (set! ##sys#scheme-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12777,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12792,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1835: ##sys#macro-environment */ -t5=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k12775 in k12771 in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 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; -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_12777,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[91]+1 /* (set! ##sys#default-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12781,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12788,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1837: ##sys#macro-environment */ -t5=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k12779 in k12775 in k12771 in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_12781(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_12781,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[230]+1 /* (set! ##sys#meta-macro-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12784,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1841: chicken.platform#register-feature! */ -t4=*((C_word*)lf[231]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[232]; -av2[3]=lf[233]; -av2[4]=lf[234]; -av2[5]=lf[235]; -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} - -/* k12782 in k12779 in k12775 in k12771 in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_12784(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12784,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12786 in k12775 in k12771 in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12788,c,av);} -/* expand.scm:1837: scheme#make-parameter */ -t2=*((C_word*)lf[236]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k12790 in k12771 in k11410 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_12792(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12792,c,av);} -/* expand.scm:1835: chicken.internal#fixup-macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[237]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[237]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k12794 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_12796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12796,c,av);} -/* synrules.scm:41: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[239]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_12798(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12798,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12802,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* synrules.scm:46: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[239]; -av2[3]=t2; -av2[4]=lf[274]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_12802(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_12802,c,av);} -a=C_alloc(20); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_u_i_cdr(((C_word*)t0)[2]); -t6=C_u_i_cdr(t5); -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=lf[240]; -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_12810,a[2]=t9,a[3]=t7,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); -if(C_truep(C_i_symbolp(((C_word*)t4)[1]))){ -t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12819,a[2]=t9,a[3]=t4,a[4]=t7,a[5]=t10,tmp=(C_word)a,a+=6,tmp); -/* synrules.scm:51: ##sys#check-syntax */ -t12=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t12; -av2[1]=t11; -av2[2]=lf[239]; -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[273]; -((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} -else{ -t11=t10; -f_12810(t11,C_SCHEME_UNDEFINED);}} - -/* k12808 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void f_12810(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(155,0,2)))){ -C_save_and_reclaim_args((void *)trf_12810,2,t0,t1);} -a=C_alloc(155); -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=((C_word*)((C_word*)t0)[3])[1]; -t4=((C_word*)((C_word*)t0)[4])[1]; -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_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=C_SCHEME_UNDEFINED; -t98=(*a=C_VECTOR_TYPE|1,a[1]=t97,tmp=(C_word)a,a+=2,tmp); -t99=C_SCHEME_UNDEFINED; -t100=(*a=C_VECTOR_TYPE|1,a[1]=t99,tmp=(C_word)a,a+=2,tmp); -t101=C_SCHEME_UNDEFINED; -t102=(*a=C_VECTOR_TYPE|1,a[1]=t101,tmp=(C_word)a,a+=2,tmp); -t103=(*a=C_CLOSURE_TYPE|56,a[1]=(C_word)f_11517,a[2]=t6,a[3]=t8,a[4]=t10,a[5]=t12,a[6]=t14,a[7]=t16,a[8]=t18,a[9]=t20,a[10]=t22,a[11]=t24,a[12]=t26,a[13]=t28,a[14]=t30,a[15]=t32,a[16]=t34,a[17]=t36,a[18]=t38,a[19]=t40,a[20]=t42,a[21]=t44,a[22]=t46,a[23]=t48,a[24]=t50,a[25]=t52,a[26]=t54,a[27]=t56,a[28]=t58,a[29]=t60,a[30]=t62,a[31]=t64,a[32]=t66,a[33]=t68,a[34]=t70,a[35]=t72,a[36]=t74,a[37]=((C_word*)t0)[5],a[38]=t76,a[39]=((C_word*)t0)[6],a[40]=t78,a[41]=t80,a[42]=t88,a[43]=t90,a[44]=t86,a[45]=t82,a[46]=t4,a[47]=t84,a[48]=t96,a[49]=t102,a[50]=t92,a[51]=t100,a[52]=t98,a[53]=t94,a[54]=((C_word*)t0)[7],a[55]=t3,a[56]=t2,tmp=(C_word)a,a+=57,tmp); -/* synrules.scm:94: r */ -t104=((C_word*)t0)[6];{ -C_word av2[3]; -av2[0]=t104; -av2[1]=t103; -av2[2]=lf[208]; -((C_proc)C_fast_retrieve_proc(t104))(3,av2);}} - -/* k12817 in k12800 in a12797 in k11407 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_12819(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_12819,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); -t3=C_i_car(((C_word*)((C_word*)t0)[4])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); -t5=C_i_cdr(((C_word*)((C_word*)t0)[4])[1]); -t6=C_mutate(((C_word *)((C_word*)t0)[4])+1,t5); -t7=((C_word*)t0)[5]; -f_12810(t7,t6);} - -/* k12830 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void C_ccall f_12832(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12832,c,av);} -/* expand.scm:1817: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[275]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12833 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void C_ccall f_12834(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_12834,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12838,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1822: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[275]; -av2[3]=t2; -av2[4]=lf[276]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12836 in a12833 in k11404 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_12838(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12838,c,av);} -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[2]);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=*((C_word*)lf[43]+1); -av2[3]=t2; -av2[4]=C_u_i_cdr(t3); -C_apply(5,av2);}} - -/* k12850 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in ... */ -static void C_ccall f_12852(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12852,c,av);} -/* expand.scm:1807: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[277]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12853 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 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=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_12854,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12858,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1812: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[277]; -av2[3]=t2; -av2[4]=lf[281]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k12856 in a12853 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void C_ccall f_12858(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_12858,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12865,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1813: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[280]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k12863 in k12856 in a12853 in k11401 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_12865(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_12865,c,av);} -a=C_alloc(30); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,lf[74],C_SCHEME_END_OF_LIST,t2); -t4=C_a_i_list(&a,3,lf[93],t3,lf[278]); -t5=C_a_i_list(&a,2,lf[279],t4); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,2,t1,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k12883 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in ... */ -static void C_ccall f_12885(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_12885,c,av);} -/* expand.scm:1755: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[282]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in ... */ -static void C_ccall f_12887(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12887,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12891,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1760: r */ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[282]; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in ... */ -static void C_ccall f_12891(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_12891,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12894,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); -/* expand.scm:1761: r */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[283]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void C_ccall f_12894(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_12894,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12897,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); -/* expand.scm:1762: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[285]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_12897(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_12897,c,av);} -a=C_alloc(28); -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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12899,a[2]=t7,a[3]=t5,a[4]=((C_word)li155),tmp=(C_word)a,a+=5,tmp)); -t9=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12909,a[2]=t3,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)li156),tmp=(C_word)a,a+=8,tmp)); -t10=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13072,a[2]=t7,a[3]=((C_word)li159),tmp=(C_word)a,a+=4,tmp)); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13167,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1804: ##sys#check-syntax */ -t12=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t12; -av2[1]=t11; -av2[2]=lf[282]; -av2[3]=((C_word*)t0)[6]; -av2[4]=lf[295]; -((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} - -/* walk in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void f_12899(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_12899,4,t0,t1,t2,t3);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12907,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1763: walk1 */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_12909(t5,t4,t2,t3);} - -/* k12905 in walk in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_12907(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12907,c,av);} -/* expand.scm:1763: simplify */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13072(t2,((C_word*)t0)[3],t1);} - -/* walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void f_12909(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_12909,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_12923,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12927,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1766: scheme#vector->list */ -t6=*((C_word*)lf[198]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_a_i_list(&a,2,lf[73],t2); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -t6=C_u_i_cdr(t2); -t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12946,a[2]=t3,a[3]=t1,a[4]=t6,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:1771: c */ -t8=((C_word*)t0)[6];{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[3]; -av2[3]=t5; -((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}}} - -/* k12921 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_12923,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,lf[245],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12925 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_12927(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12927,c,av);} -/* expand.scm:1766: walk */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_12899(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_12946(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12946,c,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_12955,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1773: ##sys#check-syntax */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[283]; -av2[3]=((C_word*)t0)[5]; -av2[4]=lf[284]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t3=C_a_i_list(&a,2,lf[73],((C_word*)t0)[6]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12969,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1776: walk */ -t5=((C_word*)((C_word*)t0)[7])[1]; -f_12899(t5,t4,((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}} -else{ -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12979,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],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:1777: c */ -t3=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=((C_word*)t0)[9]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k12953 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_12955(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12955,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12967 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_12969,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list3(&a,3,lf[249],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_12979(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_12979,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=C_a_i_list(&a,2,lf[73],((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12990,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1779: walk */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_12899(t4,t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[6],C_fix(1)));} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13000,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); -if(C_truep(C_i_pairp(((C_word*)t0)[7]))){ -/* expand.scm:1780: c */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_u_i_car(((C_word*)t0)[7]); -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_13000(2,av2);}}}} - -/* k12988 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_12990(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_12990,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list3(&a,3,lf[249],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k12998 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_13000(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13000,c,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_13009,a[2]=((C_word*)t0)[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:1782: ##sys#check-syntax */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[285]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[286]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t3=C_a_i_list(&a,2,lf[73],((C_word*)t0)[7]); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13039,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)[2],tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1787: walk */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_12899(t5,t4,C_i_cdr(((C_word*)t0)[3]),C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13054,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:1790: walk */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_12899(t3,t2,((C_word*)t0)[3],((C_word*)t0)[2]);}} - -/* k13007 in k12998 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in ... */ -static void C_ccall f_13009(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_13009,c,av);} -a=C_alloc(4); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13020,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1783: walk */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_12899(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k13018 in k13007 in k12998 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in ... */ -static void C_ccall f_13020(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_13020,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[72],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13029 in k13037 in k12998 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in ... */ -static void C_ccall f_13031(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_13031,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[249],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13037 in k12998 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 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(13,c,3)))){ -C_save_and_reclaim((void *)f_13039,c,av);} -a=C_alloc(13); -t2=C_a_i_list(&a,3,lf[249],((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13031,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1788: walk */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_12899(t4,t3,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k13052 in k12998 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in ... */ -static void C_ccall f_13054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13054,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13058,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1790: walk */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_12899(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k13056 in k13052 in k12998 in k12977 in k12944 in walk1 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in ... */ -static void C_ccall f_13058(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_13058,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[249],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* simplify in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void f_13072(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_13072,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13076,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1792: chicken.syntax#match-expression */ -t4=*((C_word*)lf[119]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[293]; -av2[4]=lf[294]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k13074 in simplify in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_13076(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13076,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13080,a[2]=((C_word*)t0)[2],a[3]=((C_word)li157),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1792: g3487 */ -t3=t2; -f_13080(t3,((C_word*)t0)[3],t1);} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13102,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:1794: chicken.syntax#match-expression */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[291]; -av2[4]=lf[292]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* g3487 in k13074 in simplify in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void f_13080(C_word 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_13080,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_assq(lf[287],t2); -t4=C_i_cdr(t3); -t5=C_a_i_list(&a,2,lf[278],t4); -/* expand.scm:1793: simplify */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_13072(t6,t1,t5);} - -/* k13100 in k13074 in simplify in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_13102(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_13102,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13106,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li158),tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1792: g3494 */ -t3=t2; -f_13106(t3,((C_word*)t0)[4],t1);} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13149,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1801: chicken.syntax#match-expression */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[289]; -av2[4]=lf[290]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* g3494 in k13100 in k13074 in simplify in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void f_13106(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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_13106,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_assq(lf[288],t2); -t4=C_i_length(t3); -if(C_truep(C_fixnum_lessp(t4,C_fix(32)))){ -t5=C_i_assq(lf[287],t2); -t6=C_i_cdr(t5); -t7=C_i_cdr(t3); -t8=C_a_i_cons(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,lf[278],t8); -/* expand.scm:1798: simplify */ -t10=((C_word*)((C_word*)t0)[2])[1]; -f_13072(t10,t1,t9);} -else{ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k13147 in k13100 in k13074 in simplify in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_13149(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13149,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_i_cdr(C_i_assq(lf[287],t1)):((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13165 in k12895 in k12892 in k12889 in a12886 in k11398 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -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(0,c,3)))){ -C_save_and_reclaim((void *)f_13167,c,av);} -/* expand.scm:1805: walk */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_12899(t2,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[4]),C_fix(0));} - -/* k13176 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in ... */ -static void C_ccall f_13178(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13178,c,av);} -/* expand.scm:1726: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[296]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in ... */ -static void C_ccall f_13180(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_13180,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13184,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1731: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[296]; -av2[3]=t2; -av2[4]=lf[301]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in ... */ -static void C_ccall f_13184(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_13184,c,av);} -a=C_alloc(6); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_caddr(((C_word*)t0)[2]); -t4=C_u_i_cdr(((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_13196,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t6,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1735: r */ -t8=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[300]; -((C_proc)C_fast_retrieve_proc(t8))(3,av2);}} - -/* k13194 in k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in ... */ -static void C_ccall f_13196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ -C_save_and_reclaim((void *)f_13196,c,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_i_check_list_2(((C_word*)t0)[2],lf[16]); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13224,a[2]=((C_word*)t0)[3],a[3]=t1,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); -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_13338,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li162),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_13338(t11,t7,((C_word*)t0)[2]);} - -/* k13222 in k13194 in k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -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 t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ -C_save_and_reclaim((void *)f_13224,c,av);} -a=C_alloc(17); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_eqp(t3,C_SCHEME_END_OF_LIST); -t5=(C_truep(t4)?lf[297]:C_a_i_cons(&a,2,lf[102],t3)); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13245,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -t7=C_eqp(((C_word*)t0)[6],C_SCHEME_END_OF_LIST); -if(C_truep(t7)){ -t8=t6; -f_13245(t8,lf[299]);} -else{ -t8=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[6]); -t9=t6; -f_13245(t9,C_a_i_cons(&a,2,lf[50],t8));}} - -/* k13243 in k13222 in k13194 in k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void f_13245(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,0,3)))){ -C_save_and_reclaim_args((void *)trf_13245,2,t0,t1);} -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|7,a[1]=(C_word)f_13286,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); -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_13288,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li161),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_13288(t10,t6,((C_word*)t0)[7]);} - -/* k13284 in k13243 in k13222 in k13194 in k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_13286(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13286,c,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[102],((C_word*)t0)[3],t3); -t5=C_a_i_list(&a,4,lf[298],((C_word*)t0)[4],((C_word*)t0)[5],t4); -t6=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,4,lf[50],((C_word*)t0)[2],((C_word*)t0)[7],t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* map-loop3399 in k13243 in k13222 in k13194 in k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void f_13288(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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_13288,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_13298,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_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_13298(t9,C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST));} -else{ -t8=C_i_cdr(C_u_i_cdr(t4)); -t9=C_i_car(t8); -t10=t3; -f_13298(t10,C_a_i_cons(&a,2,t9,C_SCHEME_END_OF_LIST));}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k13296 in map-loop3399 in k13243 in k13222 in k13194 in k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void f_13298(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_13298,2,t0,t1);} -t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1); -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t4=((C_word*)((C_word*)t0)[3])[1]; -f_13288(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop3365 in k13194 in k13182 in a13179 in k11395 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void f_13338(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ -C_save_and_reclaim_args((void *)trf_13338,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_i_car(C_u_i_cdr(t3)); -t6=C_a_i_list2(&a,2,t4,t5); -t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST); -t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7); -t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); -t11=t1; -t12=C_slot(t2,C_fix(1)); -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);}}} - -/* k13372 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13374,c,av);} -/* expand.scm:1713: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[90]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13375 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in ... */ -static void C_ccall f_13376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13376,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13380,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1718: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[90]; -av2[3]=t2; -av2[4]=lf[302]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k13378 in a13375 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 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; -C_word t3; -C_word 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_13380,c,av);} -a=C_alloc(7); -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_SCHEME_UNDEFINED; -t6=(*a=C_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_13390,a[2]=t4,a[3]=t6,a[4]=((C_word)li164),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_13390(t8,((C_word*)t0)[3],t2);} - -/* expand in k13378 in a13375 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in ... */ -static void f_13390(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_13390,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13415,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1724: expand */ -t8=t6; -t9=C_u_i_cdr(t2); -t1=t8; -t2=t9; -goto loop;}} - -/* k13413 in expand in k13378 in a13375 in k11392 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in ... */ -static void C_ccall f_13415(C_word c,C_word *av){ -C_word tmp; -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_13415,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13423 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in ... */ -static void C_ccall f_13425(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13425,c,av);} -/* expand.scm:1668: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[303]; -av2[3]=lf[304]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in ... */ -static void C_ccall f_13427(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13427,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13431,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1673: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[303]; -av2[3]=t2; -av2[4]=lf[314]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in ... */ -static void C_ccall f_13431(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13431,c,av);} -a=C_alloc(7); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_u_i_cdr(t3); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13439,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1676: r */ -t6=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[313]; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_13439,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13442,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); -/* expand.scm:1677: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[209]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in ... */ -static void C_ccall f_13442(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_13442,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13445,a[2]=((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],tmp=(C_word)a,a+=9,tmp); -/* expand.scm:1678: r */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[312]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in ... */ -static void C_ccall f_13445(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_13445,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13448,a[2]=((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); -/* expand.scm:1679: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[311]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void C_ccall f_13448(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_13448,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13451,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); -/* expand.scm:1680: r */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[221]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_13451(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_13451,c,av);} -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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13462,a[2]=((C_word*)t0)[4],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|9,a[1]=(C_word)f_13464,a[2]=t6,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]=t1,a[9]=((C_word)li168),tmp=(C_word)a,a+=10,tmp)); -t8=((C_word*)t6)[1]; -f_13464(t8,t4,((C_word*)t0)[9],C_SCHEME_FALSE);} - -/* k13460 in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_13462(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_13462,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[55],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void f_13464(C_word t0,C_word t1,C_word 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(13,0,4)))){ -C_save_and_reclaim_args((void *)trf_13464,4,t0,t1,t2,t3);} -a=C_alloc(13); -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=lf[305]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -t6=C_u_i_cdr(t2); -t7=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_13478,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,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:1687: ##sys#check-syntax */ -t8=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[303]; -av2[3]=t5; -av2[4]=lf[310]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} - -/* k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_13478(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_13478,c,av);} -a=C_alloc(11); -if(C_truep(((C_word*)t0)[2])){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13484,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_13491,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1691: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13497,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); -/* expand.scm:1694: c */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[12]; -av2[3]=C_i_car(((C_word*)t0)[6]); -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k13482 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_13484(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_13484,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13487,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1692: expand */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_13464(t3,t2,((C_word*)t0)[4],C_SCHEME_TRUE);} - -/* k13485 in k13482 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_13487(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13487,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[306]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13489 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_13491(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13491,c,av);} -/* expand.scm:1689: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[307]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[307]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[308]; -av2[3]=t1; -tp(4,av2);}} - -/* k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -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 t6; -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_13497,c,av);} -a=C_alloc(29); -if(C_truep(t1)){ -t2=(*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]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1695: expand */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_13464(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_13596,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[4],a[4]=((C_word)li166),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_13611,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_13613,a[2]=t6,a[3]=t4,a[4]=t11,a[5]=t5,a[6]=((C_word)li167),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_13613(t13,t9,t7);}} - -/* k13498 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_13500,c,av);} -a=C_alloc(5); -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,1,lf[309]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13515,a[2]=((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)){ -/* expand.scm:1699: c */ -t5=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_i_cadr(((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} -else{ -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -f_13515(2,av2);}}}} - -/* k13513 in k13498 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in ... */ -static void C_ccall f_13515(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13515,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_i_caddr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,2,t2,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[102],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k13554 in k13609 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in ... */ -static void f_13556(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_13556,2,t0,t1);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13560,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1711: expand */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_13464(t3,t2,((C_word*)t0)[5],C_SCHEME_FALSE);} - -/* k13558 in k13554 in k13609 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in ... */ -static void C_ccall f_13560(C_word c,C_word *av){ -C_word tmp; -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_13560,c,av);} -a=C_alloc(12); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,4,lf[298],((C_word*)t0)[3],((C_word*)t0)[4],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13561 in k13609 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_13563,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_i_caddr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3]; -f_13556(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_13556(t3,C_a_i_cons(&a,2,lf[102],t2));}} - -/* g3306 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static C_word f_13596(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[257],t1); -return(C_a_i_list(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t2));} - -/* k13609 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_13611(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_13611,c,av);} -a=C_alloc(14); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13556,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13563,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); -t5=C_i_length(((C_word*)t0)[6]); -t6=C_eqp(t5,C_fix(3)); -if(C_truep(t6)){ -/* expand.scm:1708: c */ -t7=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t7; -av2[1]=t4; -av2[2]=((C_word*)t0)[9]; -av2[3]=C_i_cadr(((C_word*)t0)[6]); -((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} -else{ -t7=t4;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -f_13563(2,av2);}}} - -/* map-loop3300 in k13495 in k13476 in expand in k13449 in k13446 in k13443 in k13440 in k13437 in k13429 in a13426 in k11389 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void f_13613(C_word t0,C_word t1,C_word t2){ -C_word 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(18,0,2)))){ -C_save_and_reclaim_args((void *)trf_13613,3,t0,t1,t2);} -a=C_alloc(18); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* expand.scm:1704: g3306 */ - f_13596(C_a_i(&a,15),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* k13659 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 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,4)))){ -C_save_and_reclaim((void *)f_13661,c,av);} -/* expand.scm:1602: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[271]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in ... */ -static void C_ccall f_13663(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_13663,c,av);} -a=C_alloc(6); -t5=C_i_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13670,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1608: r */ -t7=t3;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[312]; -((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} - -/* k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 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(7,c,2)))){ -C_save_and_reclaim((void *)f_13670,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13673,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); -/* expand.scm:1609: r */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[209]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in ... */ -static void C_ccall f_13673(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_13673,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13676,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); -/* expand.scm:1610: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[221]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in ... */ -static void C_ccall f_13676(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13676,c,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_13681,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]=((C_word*)t0)[5],a[8]=((C_word)li170),tmp=(C_word)a,a+=9,tmp)); -t5=((C_word*)t3)[1]; -f_13681(t5,((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_FALSE);} - -/* expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in ... */ -static void f_13681(C_word t0,C_word t1,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_13681,4,t0,t1,t2,t3);} -a=C_alloc(12); -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=lf[315]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -t6=C_u_i_cdr(t2); -t7=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_13695,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,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:1616: ##sys#check-syntax */ -t8=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[271]; -av2[3]=t5; -av2[4]=lf[323]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} - -/* k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 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(11,c,3)))){ -C_save_and_reclaim((void *)f_13695,c,av);} -a=C_alloc(11); -if(C_truep(((C_word*)t0)[2])){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13701,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_13708,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1619: scheme#open-output-string */ -t4=*((C_word*)lf[144]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13733,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); -/* expand.scm:1623: c */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_i_car(((C_word*)t0)[6]); -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k13699 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void C_ccall f_13701(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_13701,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13704,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1621: expand */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_13681(t3,t2,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k13702 in k13699 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_13704(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13704,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[316]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13706 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_13708,c,av);} -a=C_alloc(6); -t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[317]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13714,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); -/* expand.scm:1619: ##sys#print */ -t4=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[319]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k13712 in k13706 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_13714(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_13714,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13717,a[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:1619: ##sys#print */ -t3=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k13715 in k13712 in k13706 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_13717(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_13717,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13720,a[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:1619: ##sys#print */ -t3=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[318]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k13718 in k13715 in k13712 in k13706 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_13720(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_13720,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13723,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1619: scheme#get-output-string */ -t3=*((C_word*)lf[128]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13721 in k13718 in k13715 in k13712 in k13706 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_13723(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_13723,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13727,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1620: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k13725 in k13721 in k13718 in k13715 in k13712 in k13706 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_13727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13727,c,av);} -/* expand.scm:1618: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[307]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[307]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in ... */ -static void C_ccall f_13733(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_13733,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13736,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); -if(C_truep(t1)){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -f_13736(2,av2);}} -else{ -t3=C_eqp(C_SCHEME_TRUE,C_u_i_car(((C_word*)t0)[2])); -if(C_truep(t3)){ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_13736(2,av2);}} -else{ -t4=C_i_numberp(C_u_i_car(((C_word*)t0)[2])); -if(C_truep(t4)){ -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -f_13736(2,av2);}} -else{ -t5=C_charp(C_u_i_car(((C_word*)t0)[2])); -if(C_truep(t5)){ -t6=t2;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -f_13736(2,av2);}} -else{ -t6=C_i_stringp(C_u_i_car(((C_word*)t0)[2])); -if(C_truep(t6)){ -t7=t2;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -f_13736(2,av2);}} -else{ -t7=C_eofp(C_u_i_car(((C_word*)t0)[2])); -if(C_truep(t7)){ -t8=t2;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -f_13736(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13982,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1630: chicken.bytevector#bytevector? */ -t9=*((C_word*)lf[322]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}}} - -/* k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in ... */ -static void C_ccall f_13736(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13736,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13739,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_13799,a[2]=((C_word*)t0)[7],a[3]=t2,a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1636: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])))){ -t2=C_u_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13816,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[9],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1646: expand */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_13681(t4,t3,((C_word*)t0)[8],C_SCHEME_FALSE);} -else{ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13822,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); -t3=C_i_length(((C_word*)t0)[2]); -t4=C_eqp(t3,C_fix(3)); -if(C_truep(t4)){ -/* expand.scm:1648: c */ -t5=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_i_cadr(((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} -else{ -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -f_13822(2,av2);}}}}} - -/* k13737 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_13739(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13739,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -t3=C_i_length(((C_word*)t0)[2]); -t4=C_eqp(t3,C_fix(3)); -if(C_truep(t4)){ -/* expand.scm:1638: c */ -t5=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_i_cadr(((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} -else{ -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -f_13745(2,av2);}}} - -/* k13743 in k13737 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_13745(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_13745,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_i_caddr(((C_word*)t0)[2]); -t3=C_u_i_car(((C_word*)t0)[2]); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=C_i_cdr(((C_word*)t0)[2]); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,lf[102],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13771,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1642: c */ -t4=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}}} - -/* k13769 in k13743 in k13737 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_13771(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_13771,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_a_i_list(&a,1,lf[309]):C_u_i_car(((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13797 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_13799(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13799,c,av);} -/* expand.scm:1636: expand */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13681(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k13814 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_13816,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13820 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_13822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_13822,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13825,a[2]=((C_word*)t0)[2],a[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:1649: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[313]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13862,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_u_i_length(((C_word*)t0)[2]),C_fix(4)); -if(C_truep(t3)){ -/* expand.scm:1655: c */ -t4=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_i_caddr(((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_13862(2,av2);}}}} - -/* k13823 in k13820 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_13825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_13825,c,av);} -a=C_alloc(21); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,t1,t2); -t4=C_a_i_list(&a,1,t3); -t5=C_i_caddr(((C_word*)t0)[2]); -t6=C_a_i_list(&a,2,t5,t1); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13844,a[2]=t1,a[3]=t6,a[4]=((C_word*)t0)[3],a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1653: expand */ -t8=((C_word*)((C_word*)t0)[4])[1]; -f_13681(t8,t7,((C_word*)t0)[5],C_SCHEME_FALSE);} - -/* k13842 in k13823 in k13820 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_13844(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ -C_save_and_reclaim((void *)f_13844,c,av);} -a=C_alloc(21); -t2=C_a_i_list(&a,4,lf[298],((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[5],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k13860 in k13820 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in ... */ -static void C_ccall f_13862(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13862,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13865,a[2]=((C_word*)t0)[2],a[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:1656: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[313]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} -else{ -t2=C_i_car(((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_a_i_cons(&a,2,lf[102],t3); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13919,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1666: expand */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_13681(t6,t5,((C_word*)t0)[5],C_SCHEME_FALSE);}} - -/* k13863 in k13860 in k13820 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -static void C_ccall f_13865(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ -C_save_and_reclaim((void *)f_13865,c,av);} -a=C_alloc(34); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,lf[74],C_SCHEME_END_OF_LIST,t2); -t4=C_i_cadr(((C_word*)t0)[2]); -t5=C_a_i_list(&a,3,lf[261],t4,t1); -t6=C_i_cadddr(((C_word*)t0)[2]); -t7=C_a_i_list(&a,3,lf[261],t6,t1); -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13892,a[2]=t5,a[3]=t7,a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=t3,tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1663: expand */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_13681(t9,t8,((C_word*)t0)[5],C_SCHEME_FALSE);} - -/* k13890 in k13863 in k13860 in k13820 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in ... */ -static void C_ccall f_13892(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(30,c,1)))){ -C_save_and_reclaim((void *)f_13892,c,av);} -a=C_alloc(30); -t2=C_a_i_list(&a,4,lf[320],((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=C_a_i_list(&a,3,lf[74],((C_word*)t0)[4],t2); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,3,lf[93],((C_word*)t0)[6],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k13917 in k13860 in k13820 in k13734 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ -C_save_and_reclaim((void *)f_13919,c,av);} -a=C_alloc(12); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,4,lf[298],((C_word*)t0)[3],((C_word*)t0)[4],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k13980 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_13982,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_13736(2,av2);}} -else{ -t2=C_bwpp(C_u_i_car(((C_word*)t0)[3])); -if(C_truep(t2)){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -f_13736(2,av2);}} -else{ -t3=C_i_vectorp(C_u_i_car(((C_word*)t0)[3])); -if(C_truep(t3)){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_13736(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14000,a[2]=((C_word*)t0)[2],a[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:1633: ##sys#srfi-4-vector? */ -t5=*((C_word*)lf[321]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_u_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}} - -/* k13998 in k13980 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in ... */ -static void C_ccall f_14000(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14000,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_13736(2,av2);}} -else{ -if(C_truep(C_i_pairp(C_u_i_car(((C_word*)t0)[3])))){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14016,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); -/* expand.scm:1635: r */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[257]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_13736(2,av2);}}}} - -/* k14014 in k13998 in k13980 in k13731 in k13693 in expand in k13674 in k13671 in k13668 in a13662 in k11386 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 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,3)))){ -C_save_and_reclaim((void *)f_14016,c,av);} -/* expand.scm:1635: c */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_i_caar(((C_word*)t0)[4]); -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* k14050 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in ... */ -static void C_ccall f_14052(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14052,c,av);} -/* expand.scm:1586: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[209]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14053 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in ... */ -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=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_14054,c,av);} -a=C_alloc(6); -t5=C_i_cdr(t2); -if(C_truep(C_i_nullp(t5))){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_i_cdr(t5); -t7=C_u_i_car(t5); -if(C_truep(C_i_nullp(t6))){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14077,a[2]=t7,a[3]=t6,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1598: r */ -t9=t3;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[313]; -((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}} - -/* k14075 in a14053 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_14077,c,av);} -a=C_alloc(15); -t2=C_a_i_list(&a,2,t1,((C_word*)t0)[2]); -t3=C_a_i_list(&a,1,t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14096,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1600: r */ -t5=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[209]; -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} - -/* k14094 in k14075 in a14053 in k11383 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in ... */ -static void C_ccall f_14096(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_14096,c,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[298],((C_word*)t0)[3],((C_word*)t0)[3],t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,3,lf[50],((C_word*)t0)[5],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k14102 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in ... */ -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,4)))){ -C_save_and_reclaim((void *)f_14104,c,av);} -/* expand.scm:1572: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[208]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14105 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in ... */ -static void C_ccall f_14106(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14106,c,av);} -a=C_alloc(5); -t5=C_i_cdr(t2); -if(C_truep(C_i_nullp(t5))){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_i_cdr(t5); -t7=C_u_i_car(t5); -if(C_truep(C_i_nullp(t6))){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14137,a[2]=t6,a[3]=t1,a[4]=t7,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1584: r */ -t9=t3;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[208]; -((C_proc)C_fast_retrieve_proc(t9))(3,av2);}}}} - -/* k14135 in a14105 in k11380 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in ... */ -static void C_ccall f_14137(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_14137,c,av);} -a=C_alloc(15); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,4,lf[298],((C_word*)t0)[4],t2,C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14139 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in ... */ -static void C_ccall f_14141(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14141,c,av);} -/* expand.scm:1560: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[324]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14142 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in ... */ -static void C_ccall f_14143(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14143,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14147,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1565: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[324]; -av2[3]=t2; -av2[4]=lf[326]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14145 in a14142 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in ... */ -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 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_14147,c,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[325],t4); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14170,a[2]=((C_word*)t0)[3],a[3]=t5,tmp=(C_word)a,a+=4,tmp); -t7=C_u_i_cdr(t2); -t8=C_a_i_list(&a,1,t3); -/* expand.scm:1569: ##sys#append */ -t9=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t9; -av2[1]=t6; -av2[2]=t7; -av2[3]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,3,lf[95],t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k14168 in k14145 in a14142 in k11377 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in ... */ -static void C_ccall f_14170(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14170,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k14183 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in ... */ -static void C_ccall f_14185(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14185,c,av);} -/* expand.scm:1551: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[327]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14186 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in ... */ -static void C_ccall f_14187(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14187,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14191,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1556: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[327]; -av2[3]=t2; -av2[4]=lf[330]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14189 in a14186 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in ... */ -static void C_ccall f_14191(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14191,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14194,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1557: chicken.internal#check-for-multiple-bindings */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[328]+1); -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[329]; -tp(5,av2);}} - -/* k14192 in k14189 in a14186 in k11374 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in ... */ -static void C_ccall f_14194(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14194,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[106],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14205 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14207(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14207,c,av);} -/* expand.scm:1542: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[331]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14208 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -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=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_14209,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14213,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1547: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[331]; -av2[3]=t2; -av2[4]=lf[334]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14211 in a14208 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in ... */ -static void C_ccall f_14213(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_14213,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14216,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1548: chicken.internal#check-for-multiple-bindings */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[328]+1); -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[333]; -tp(5,av2);}} - -/* k14214 in k14211 in a14208 in k11371 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in ... */ -static void C_ccall f_14216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14216,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[332],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14227 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14229(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14229,c,av);} -/* expand.scm:1533: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[335]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14230 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 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=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_14231,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14235,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1538: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[335]; -av2[3]=t2; -av2[4]=lf[338]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14233 in a14230 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14235(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_14235,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14238,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1539: chicken.internal#check-for-multiple-bindings */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[328]+1); -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[337]; -tp(5,av2);}} - -/* k14236 in k14233 in a14230 in k11368 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 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,1)))){ -C_save_and_reclaim((void *)f_14238,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[336],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14249 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in ... */ -static void C_ccall f_14251(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14251,c,av);} -/* expand.scm:1520: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[55]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14252 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in ... */ -static void C_ccall f_14253(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(8,c,4)))){ -C_save_and_reclaim((void *)f_14253,c,av);} -a=C_alloc(8); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14257,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t6=C_i_cdr(t2); -t7=C_i_pairp(t6); -t8=(C_truep(t7)?C_i_symbolp(C_i_cadr(t2)):C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14268,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1526: ##sys#check-syntax */ -t10=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[55]; -av2[3]=t2; -av2[4]=lf[340]; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14278,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1529: ##sys#check-syntax */ -t10=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[55]; -av2[3]=t2; -av2[4]=lf[342]; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} - -/* k14255 in a14252 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14257(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14257,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[50],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14266 in a14252 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14268(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14268,c,av);} -/* expand.scm:1527: chicken.internal#check-for-multiple-bindings */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[328]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_caddr(((C_word*)t0)[3]); -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[339]; -tp(5,av2);}} - -/* k14276 in a14252 in k11365 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14278(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14278,c,av);} -/* expand.scm:1530: chicken.internal#check-for-multiple-bindings */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[328]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[328]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[341]; -tp(5,av2);}} - -/* k14301 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in ... */ -static void C_ccall f_14303(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14303,c,av);} -/* expand.scm:1506: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[115]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14304 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in ... */ -static void C_ccall f_14305(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14305,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14309,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1511: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[115]; -av2[3]=t2; -av2[4]=lf[346]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14307 in a14304 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in ... */ -static void C_ccall f_14309(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_14309,c,av);} -a=C_alloc(12); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_caddr(((C_word*)t0)[2]); -t4=C_i_getprop(t2,lf[6],C_SCHEME_FALSE); -t5=(C_truep(t4)?t4:t2); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14326,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14346,a[2]=t6,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1515: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[345]+1); -av2[1]=t7; -tp(2,av2);}} - -/* k14324 in k14307 in a14304 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14326,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14329,a[2]=((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_14335,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_14342,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1516: r */ -t5=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[115]; -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} - -/* k14327 in k14324 in k14307 in a14304 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14329(C_word c,C_word *av){ -C_word tmp; -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_14329,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[343],((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k14333 in k14324 in k14307 in a14304 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14335(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_14335,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -/* expand.scm:428: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[107]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[343],((C_word*)t0)[5],((C_word*)t0)[6]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k14340 in k14324 in k14307 in a14304 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14342(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_14342,c,av);} -/* expand.scm:1516: c */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* k14344 in k14307 in a14304 in k11361 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14346(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_14346,c,av);} -/* expand.scm:1515: ##sys#register-export */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[344]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[344]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k14348 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in ... */ -static void C_ccall f_14350(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14350,c,av);} -/* expand.scm:1478: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[109]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in ... */ -static void C_ccall f_14352(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14352,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14356,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1483: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[109]; -av2[3]=t2; -av2[4]=lf[352]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in ... */ -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 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_14356,c,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_14361,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)li180),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_14361(t5,((C_word*)t0)[5],((C_word*)t0)[2]);} - -/* loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in ... */ -static void f_14361(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ -C_save_and_reclaim_args((void *)trf_14361,3,t0,t1,t2);} -a=C_alloc(8); -t3=C_i_cadr(t2); -t4=C_u_i_cdr(t2); -t5=C_u_i_cdr(t4); -t6=C_i_pairp(t3); -if(C_truep(C_i_not(t6))){ -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14376,a[2]=t3,a[3]=t5,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); -/* expand.scm:1488: ##sys#check-syntax */ -t8=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[109]; -av2[3]=t2; -av2[4]=lf[349]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} -else{ -t7=C_i_car(t3); -if(C_truep(C_i_pairp(t7))){ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14432,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1499: ##sys#check-syntax */ -t9=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[109]; -av2[3]=t2; -av2[4]=lf[350]; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14442,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1502: ##sys#check-syntax */ -t9=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[109]; -av2[3]=t2; -av2[4]=lf[351]; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}} - -/* k14374 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_14376,c,av);} -a=C_alloc(12); -t2=C_i_getprop(((C_word*)t0)[2],lf[6],C_SCHEME_FALSE); -t3=(C_truep(t2)?t2:((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14387,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14423,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1490: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[345]+1); -av2[1]=t5; -tp(2,av2);}} - -/* k14385 in k14374 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14387(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_14387,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14390,a[2]=((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_14412,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_14419,a[2]=((C_word*)t0)[6],a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1491: r */ -t5=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[109]; -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} - -/* k14388 in k14385 in k14374 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in ... */ -static void C_ccall f_14390(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ -C_save_and_reclaim((void *)f_14390,c,av);} -a=C_alloc(24); -t2=C_a_i_list(&a,2,lf[347],((C_word*)t0)[2]); -if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ -t3=C_u_i_car(((C_word*)t0)[3]); -t4=C_a_i_list(&a,3,lf[95],((C_word*)t0)[2],t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,3,lf[102],t2,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t3=C_a_i_list(&a,3,lf[95],((C_word*)t0)[2],lf[348]); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,3,lf[102],t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k14410 in k14385 in k14374 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in ... */ -static void C_ccall f_14412(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_14412,c,av);} -if(C_truep(t1)){ -/* expand.scm:428: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[107]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_14390(2,av2);}}} - -/* k14417 in k14385 in k14374 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in ... */ -static void C_ccall f_14419(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_14419,c,av);} -/* expand.scm:1491: c */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* k14421 in k14374 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14423(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_14423,c,av);} -/* expand.scm:1490: ##sys#register-export */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[344]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[344]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k14430 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in ... */ -static void C_ccall f_14432(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14432,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14439,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1500: chicken.syntax#expand-curried-define */ -t3=*((C_word*)lf[111]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k14437 in k14430 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in ... */ -static void C_ccall f_14439(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_14439,c,av);} -/* expand.scm:1500: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_14361(t2,((C_word*)t0)[3],t1);} - -/* k14440 in loop in k14354 in a14351 in k11357 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 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 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_14442,c,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[74],t5); -t7=C_a_i_list3(&a,3,t2,t3,t6); -/* expand.scm:1503: loop */ -t8=((C_word*)((C_word*)t0)[5])[1]; -f_14361(t8,((C_word*)t0)[6],t7);} - -/* k14475 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in ... */ -static void C_ccall f_14477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14477,c,av);} -/* expand.scm:1469: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[353]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14478 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 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=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_14479,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14483,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1474: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[353]; -av2[3]=t2; -av2[4]=lf[354]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14481 in a14478 in k11354 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14483,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[102],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14492 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in ... */ -static void C_ccall f_14494(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14494,c,av);} -/* expand.scm:1461: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[320]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14495 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in ... */ -static void C_ccall f_14496(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14496,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14500,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1466: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[320]; -av2[3]=t2; -av2[4]=lf[355]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14498 in a14495 in k11351 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14500,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[298],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14509 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -static void C_ccall f_14511(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14511,c,av);} -/* expand.scm:1453: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[257]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14512 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -static void C_ccall f_14513(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14513,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14517,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1458: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[257]; -av2[3]=t2; -av2[4]=lf[356]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14515 in a14512 in k11348 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in ... */ -static void C_ccall f_14517(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14517,c,av);} -a=C_alloc(6); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list(&a,2,lf[73],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14526 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_14528(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14528,c,av);} -/* expand.scm:1445: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[267]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14529 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_14530(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14530,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14534,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1450: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[267]; -av2[3]=t2; -av2[4]=lf[357]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14532 in a14529 in k11345 in k11341 in k11337 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -static void C_ccall f_14534(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14534,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[74],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14543 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14545,c,av);} -/* expand.scm:1431: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[358]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14546 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14547(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_14547,c,av);} -a=C_alloc(3); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14551,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1435: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[358]; -av2[3]=t2; -av2[4]=lf[360]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14549 in a14546 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_14551,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14554,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1436: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[345]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k14552 in k14549 in a14546 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_14554(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_14554,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14564,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1437: ##sys#module-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[359]+1); -av2[1]=t2; -av2[2]=t1; -tp(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k14562 in k14552 in k14549 in a14546 in k11334 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_14564(C_word c,C_word *av){ -C_word tmp; -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_14564,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,lf[73],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k14566 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14568(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14568,c,av);} -/* expand.scm:1408: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[361]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14569 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14570(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14570,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14574,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1412: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[361]; -av2[3]=t2; -av2[4]=lf[370]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14572 in a14569 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14574(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14574,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14577,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1413: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k14575 in k14572 in a14569 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14577(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_14577,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14580,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_eqp(lf[365],t1); -if(C_truep(t3)){ -/* expand.scm:1415: ##sys#syntax-error */ -t4=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[361]; -av2[3]=lf[369]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_14580(2,av2);}}} - -/* k14578 in k14575 in k14572 in a14569 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_14580(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14580,c,av);} -a=C_alloc(18); -t2=C_a_i_list(&a,2,lf[73],((C_word*)t0)[2]); -t3=C_a_i_list(&a,2,lf[73],lf[362]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14603,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1422: chicken.syntax#strip-syntax */ -t5=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_i_caddr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k14601 in k14578 in k14575 in k14572 in a14569 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -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; -C_word 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_14603,c,av);} -a=C_alloc(35); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14606,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -t3=C_eqp(lf[365],t1); -if(C_truep(t3)){ -t4=C_a_i_list(&a,2,lf[73],lf[365]); -t5=C_a_i_list(&a,4,lf[363],((C_word*)t0)[2],((C_word*)t0)[3],t4); -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,2,lf[364],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[366],t1); -t5=C_a_i_list(&a,2,lf[73],t4); -t6=C_a_i_list(&a,4,lf[363],((C_word*)t0)[2],((C_word*)t0)[3],t5); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_list(&a,2,lf[364],t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -if(C_truep(C_i_listp(t1))){ -/* expand.scm:1426: ##sys#validate-exports */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[367]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[367]+1); -av2[1]=t2; -av2[2]=t1; -av2[3]=lf[361]; -tp(4,av2);}} -else{ -/* expand.scm:1428: ##sys#syntax-error */ -t4=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[361]; -av2[3]=lf[368]; -av2[4]=C_i_caddr(((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}}} - -/* k14604 in k14601 in k14578 in k14575 in k14572 in a14569 in k11331 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(24,c,1)))){ -C_save_and_reclaim((void *)f_14606,c,av);} -a=C_alloc(24); -t2=C_a_i_list(&a,2,lf[73],t1); -t3=C_a_i_list(&a,4,lf[363],((C_word*)t0)[2],((C_word*)t0)[3],t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,lf[364],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k14650 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14652,c,av);} -/* expand.scm:1373: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[371]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14654(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14654,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14658,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1377: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[371]; -av2[3]=t2; -av2[4]=lf[379]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14658(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_14658,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14661,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1378: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14661(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_14661,c,av);} -a=C_alloc(7); -t2=C_i_cadr(t1); -t3=C_i_car(t2); -t4=C_u_i_cdr(t2); -t5=C_i_caddr(t1); -t6=C_u_i_cdr(t1); -t7=C_u_i_cdr(t6); -t8=C_u_i_cdr(t7); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14819,a[2]=t3,a[3]=t4,a[4]=t8,a[5]=((C_word*)t0)[2],a[6]=t5,tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1386: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[219]+1); -av2[1]=t9; -av2[2]=t3; -tp(3,av2);}} - -/* k14682 in k14710 in k14779 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -static void C_ccall f_14684(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_14684,c,av);} -a=C_alloc(30); -t2=C_a_i_list(&a,3,lf[375],lf[376],lf[377]); -t3=C_a_i_list(&a,2,lf[378],((C_word*)t0)[2]); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,5,lf[104],t1,C_SCHEME_TRUE,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k14710 in k14779 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_14712(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(31,c,2)))){ -C_save_and_reclaim((void *)f_14712,c,av);} -a=C_alloc(31); -t2=C_a_i_list(&a,2,lf[73],t1); -t3=C_a_i_list(&a,2,lf[73],((C_word*)t0)[2]); -t4=C_a_i_list(&a,5,lf[374],((C_word*)t0)[3],((C_word*)t0)[4],t2,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14684,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1401: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[219]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} - -/* g2950 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void f_14717(C_word t0,C_word t1,C_word t2){ -C_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_14717,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14724,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1390: ##sys#validate-exports */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[367]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[367]+1); -av2[1]=t4; -av2[2]=C_i_cadr(t2); -av2[3]=lf[371]; -tp(4,av2);}} - -/* k14722 in g2950 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_14724(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_14724,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14727,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_symbolp(((C_word*)t0)[3]); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14736,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); -if(C_truep(t3)){ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -f_14736(2,av2);}} -else{ -if(C_truep(C_i_listp(((C_word*)t0)[3]))){ -t5=C_eqp(C_fix(2),C_u_i_length(((C_word*)t0)[3])); -if(C_truep(t5)){ -t6=C_i_car(((C_word*)t0)[3]); -if(C_truep(C_i_symbolp(t6))){ -/* expand.scm:1395: chicken.internal#valid-library-specifier? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[373]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[373]+1); -av2[1]=t4; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -tp(3,av2);}} -else{ -t7=t4;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -f_14736(2,av2);}}} -else{ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_14736(2,av2);}}} -else{ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -f_14736(2,av2);}}}} - -/* k14725 in k14722 in g2950 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -static void C_ccall f_14727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14727,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k14734 in k14722 in g2950 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -static void C_ccall f_14736(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_14736,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* expand.scm:1396: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[5]; -av2[2]=lf[372]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} - -/* k14779 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_14781(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_14781,c,av);} -a=C_alloc(13); -t2=C_a_i_list(&a,2,lf[73],t1); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14712,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); -/* expand.scm:1399: ##sys#validate-exports */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[367]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[367]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=lf[371]; -tp(4,av2);}} - -/* map-loop2944 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void f_14783(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_14783,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14808,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); -/* expand.scm:1388: g2950 */ -t4=((C_word*)t0)[4]; -f_14717(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k14806 in map-loop2944 in k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_14808(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14808,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_14783(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k14817 in k14659 in k14656 in a14653 in k11328 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14819(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(31,c,3)))){ -C_save_and_reclaim((void *)f_14819,c,av);} -a=C_alloc(31); -t2=C_a_i_list(&a,2,lf[73],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_14717,a[2]=((C_word*)t0)[2],a[3]=((C_word)li188),tmp=(C_word)a,a+=4,tmp); -t8=C_i_check_list_2(((C_word*)t0)[3],lf[16]); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14781,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],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_14783,a[2]=t5,a[3]=t11,a[4]=t7,a[5]=t6,a[6]=((C_word)li189),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_14783(t13,t9,((C_word*)t0)[3]);} - -/* k14821 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14823(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14823,c,av);} -/* expand.scm:1364: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[380]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14824 in k11325 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14825,c,av);} -t5=*((C_word*)lf[381]+1); -/* expand.scm:1367: g2927 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[381]+1)); -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=*((C_word*)lf[381]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=*((C_word*)lf[3]+1); -av2[6]=*((C_word*)lf[17]+1); -av2[7]=C_SCHEME_FALSE; -av2[8]=C_SCHEME_TRUE; -av2[9]=lf[380]; -tp(10,av2);}} - -/* k14831 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14833(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14833,c,av);} -/* expand.scm:1345: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[382]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14835(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(10,c,2)))){ -C_save_and_reclaim((void *)f_14835,c,av);} -a=C_alloc(10); -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_14899,a[2]=t1,a[3]=t7,a[4]=t8,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1358: chicken.syntax#strip-syntax */ -t10=*((C_word*)lf[11]+1);{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -av2[2]=C_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} - -/* k14845 in map-loop2885 in k14897 in a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_14847(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_14847,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); -f_14941(2,av2);}} -else{ -/* expand.scm:1356: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[385]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k14897 in a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14899(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_14899,c,av);} -a=C_alloc(11); -t2=C_i_check_list_2(t1,lf[16]); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14905,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_14916,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[4],a[5]=((C_word)li192),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_14916(t7,t3,t1);} - -/* k14903 in k14897 in a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14905(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_14905,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14908,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1359: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[345]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k14906 in k14903 in k14897 in a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14908(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14908,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14911,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(t1)){ -/* expand.scm:1361: ##sys#add-to-export/rename-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[384]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[384]+1); -av2[1]=t2; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[383]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k14909 in k14906 in k14903 in k14897 in a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14911(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14911,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[383]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2885 in k14897 in a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_14916(C_word t0,C_word t1,C_word 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_14916,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_14941,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_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14847,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_pairp(t4))){ -if(C_truep(C_i_symbolp(C_u_i_car(t4)))){ -if(C_truep(C_i_pairp(C_u_i_cdr(t4)))){ -t6=C_i_cadr(t4); -if(C_truep(C_i_symbolp(t6))){ -t7=C_u_i_cdr(t4); -t8=t5; -f_14847(t8,C_i_nullp(C_u_i_cdr(t7)));} -else{ -t7=t5; -f_14847(t7,C_SCHEME_FALSE);}} -else{ -t6=t5; -f_14847(t6,C_SCHEME_FALSE);}} -else{ -t6=t5; -f_14847(t6,C_SCHEME_FALSE);}} -else{ -t6=t5; -f_14847(t6,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);}}} - -/* k14939 in map-loop2885 in k14897 in a14834 in k11322 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14941(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14941,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_14916(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k14954 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14956(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14956,c,av);} -/* expand.scm:1335: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[386]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14957 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14958(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_14958,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14962,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14975,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1339: chicken.syntax#strip-syntax */ -t7=*((C_word*)lf[11]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=C_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k14960 in a14957 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14962(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_14962,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14965,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1340: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[345]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k14963 in k14960 in a14957 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_14965,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14968,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(t1)){ -/* expand.scm:1342: ##sys#add-to-export-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[388]+1); -av2[1]=t2; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[387]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k14966 in k14963 in k14960 in a14957 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14968(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14968,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[387]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k14973 in a14957 in k11319 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_14975,c,av);} -/* expand.scm:1339: ##sys#validate-exports */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[367]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[367]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[386]; -tp(4,av2);}} - -/* k14981 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14983(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14983,c,av);} -/* expand.scm:1229: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[389]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14985(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_14985,c,av);} -a=C_alloc(5); -t5=lf[390]; -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15011,a[2]=t5,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1246: ##sys#check-syntax */ -t7=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[389]; -av2[3]=t2; -av2[4]=lf[419]; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} - -/* k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14992(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_14992,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14995,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); -/* expand.scm:1235: ##sys#put! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[415]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[415]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[416]; -av2[4]=t1; -tp(5,av2);}} - -/* k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(126,c,4)))){ -C_save_and_reclaim((void *)f_14995,c,av);} -a=C_alloc(126); -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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15028,a[2]=((C_word*)t0)[2],a[3]=((C_word)li197),tmp=(C_word)a,a+=4,tmp)); -t15=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15126,a[2]=t9,a[3]=((C_word)li200),tmp=(C_word)a,a+=4,tmp)); -t16=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15198,a[2]=t7,a[3]=((C_word)li202),tmp=(C_word)a,a+=4,tmp)); -t17=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15268,a[2]=t7,a[3]=((C_word)li208),tmp=(C_word)a,a+=4,tmp)); -t18=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15351,a[2]=t13,a[3]=t9,a[4]=((C_word)li210),tmp=(C_word)a,a+=5,tmp)); -t19=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15373,a[2]=t13,a[3]=t3,a[4]=t5,a[5]=t11,a[6]=((C_word)li211),tmp=(C_word)a,a+=7,tmp)); -t20=C_a_i_list(&a,1,((C_word*)t0)[3]); -t21=C_a_i_list(&a,1,t20); -t22=C_a_i_list(&a,3,lf[408],lf[409],lf[410]); -t23=C_a_i_list(&a,1,lf[309]); -t24=C_a_i_list(&a,3,lf[74],t22,t23); -t25=C_a_i_list(&a,2,lf[202],t24); -t26=C_a_i_list(&a,3,lf[343],((C_word*)t0)[3],t25); -t27=C_a_i_cons(&a,2,lf[411],((C_word*)t0)[4]); -t28=C_a_i_cons(&a,2,lf[412],t27); -t29=C_a_i_list(&a,2,lf[413],t28); -t30=C_a_i_cons(&a,2,lf[411],((C_word*)t0)[4]); -t31=C_a_i_cons(&a,2,lf[412],t30); -t32=C_a_i_list(&a,3,lf[412],lf[414],lf[382]); -t33=C_a_i_list(&a,3,lf[375],t31,t32); -t34=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15613,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t21,a[5]=t26,a[6]=t29,a[7]=t33,tmp=(C_word)a,a+=8,tmp); -/* expand.scm:1333: parse-decls */ -t35=((C_word*)t13)[1]; -f_15373(t35,t34,((C_word*)t0)[7]);} - -/* k14997 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_14999(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_14999,c,av);} -/* expand.scm:1234: scheme#string->symbol */ -t2=*((C_word*)lf[417]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k15005 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15007(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15007,c,av);} -/* expand.scm:1234: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[418]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15011(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15011,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15014,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1247: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15014(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_15014,c,av);} -a=C_alloc(6); -t2=C_i_cadr(t1); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15020,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1249: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[219]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15020(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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,2)))){ -C_save_and_reclaim((void *)f_15020,c,av);} -a=C_alloc(22); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14992,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14999,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=C_a_i_string(&a,1,C_make_character(4)); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15007,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1234: scheme#symbol->string */ -t7=*((C_word*)lf[134]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* parse-exports in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15028(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_15028,3,t0,t1,t2);} -a=C_alloc(18); -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_15033,a[2]=((C_word*)t0)[2],a[3]=((C_word)li195),tmp=(C_word)a,a+=4,tmp); -t8=C_i_check_list_2(t2,lf[16]); -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_15086,a[2]=t5,a[3]=t10,a[4]=t7,a[5]=t6,a[6]=((C_word)li196),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_15086(t12,t1,t2);} - -/* g2676 in parse-exports in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15033(C_word t0,C_word t1,C_word 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_15033,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15040,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=C_eqp(C_fix(3),C_u_i_length(t2)); -t5=t3; -f_15040(t5,(C_truep(t4)?C_eqp(lf[265],C_i_car(t2)):C_SCHEME_FALSE));} -else{ -t4=t3; -f_15040(t4,C_SCHEME_FALSE);}} - -/* k15038 in g2676 in parse-exports in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void f_15040(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,5)))){ -C_save_and_reclaim_args((void *)trf_15040,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -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{ -if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ -t2=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,lf[386],((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* expand.scm:1260: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word av2[6]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[389]; -av2[3]=lf[391]; -av2[4]=((C_word*)t0)[2]; -av2[5]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} - -/* map-loop2670 in parse-exports in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15086(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_15086,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15111,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); -/* expand.scm:1253: g2676 */ -t4=((C_word*)t0)[4]; -f_15033(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15109 in map-loop2670 in parse-exports in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_15111,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15086(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15126(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word 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_15126,4,t0,t1,t2,t3);} -a=C_alloc(22); -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_15135,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li198),tmp=(C_word)a,a+=5,tmp); -t9=C_i_check_list_2(t2,lf[16]); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15162,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_15164,a[2]=t6,a[3]=t12,a[4]=t8,a[5]=t7,a[6]=((C_word)li199),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_15164(t14,t10,t2);} - -/* g2724 in process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15135(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_15135,3,t0,t1,t2);} -a=C_alloc(4); -if(C_truep(C_i_stringp(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15156,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1269: read-forms */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_15268(t4,t3,t2,((C_word*)t0)[3]);} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f17024,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1270: ##sys#syntax-error */ -t4=*((C_word*)lf[43]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[392]; -av2[3]=lf[393]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k15154 in g2724 in process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15156(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15156,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f17020,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1270: ##sys#syntax-error */ -t3=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[392]; -av2[3]=lf[393]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k15160 in process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15162(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15162,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2718 in process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15164(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_15164,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15189,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); -/* expand.scm:1267: g2724 */ -t4=((C_word*)t0)[4]; -f_15135(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15187 in map-loop2718 in process-includes in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15189(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15189,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15164(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* expand/begin in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15198(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_15198,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15202,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1273: chicken.syntax#expand */ -t4=*((C_word*)lf[64]+1);{ -C_word av2[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);}} - -/* k15200 in expand/begin in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15202(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_15202,c,av);} -a=C_alloc(17); -t2=C_i_pairp(t1); -t3=(C_truep(t2)?C_eqp(lf[102],C_u_i_car(t1)):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_cdr(t1); -t9=C_i_check_list_2(t8,lf[16]); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15224,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t11=C_SCHEME_UNDEFINED; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15226,a[2]=t6,a[3]=t12,a[4]=((C_word*)t0)[3],a[5]=t7,a[6]=((C_word)li201),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_15226(t14,t10,t8);} -else{ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k15222 in k15200 in expand/begin in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15224(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15224,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2752 in k15200 in expand/begin in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void f_15226(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_15226,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15251,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); -/* expand.scm:1275: g2758 */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_15198(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15249 in map-loop2752 in k15200 in expand/begin in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_15251(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15251,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15226(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15268(C_word 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_15268,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15272,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15340,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1280: chicken.platform#feature? */ -t6=*((C_word*)lf[207]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[398]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k15270 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15272(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ -C_save_and_reclaim_args((void *)trf_15272,2,t0,t1);} -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|4,a[1]=(C_word)f_15277,a[2]=t5,a[3]=t3,a[4]=((C_word)li203),tmp=(C_word)a,a+=5,tmp); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15282,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li206),tmp=(C_word)a,a+=6,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15334,a[2]=t3,a[3]=t5,a[4]=((C_word)li207),tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1278: ##sys#dynamic-wind */ -t9=*((C_word*)lf[47]+1);{ -C_word av2[5]; -av2[0]=t9; -av2[1]=((C_word*)t0)[5]; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a15276 in k15270 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15277(C_word c,C_word *av){ -C_word tmp; -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_15277,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[394]+1)); -t3=C_mutate((C_word*)lf[394]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a15281 in k15270 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -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; -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,5)))){ -C_save_and_reclaim((void *)f_15282,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15288,a[2]=((C_word*)t0)[2],a[3]=((C_word)li205),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1283: ##sys#include-forms-from-file */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[395]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[395]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=*((C_word*)lf[2]+1); -av2[4]=((C_word*)t0)[4]; -av2[5]=t2; -tp(6,av2);}} - -/* a15287 in a15281 in k15270 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_15288(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(14,c,3)))){ -C_save_and_reclaim((void *)f_15288,c,av);} -a=C_alloc(14); -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[16]); -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_15300,a[2]=t6,a[3]=t10,a[4]=((C_word*)t0)[2],a[5]=t7,a[6]=((C_word)li204),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_15300(t12,t1,t2);} - -/* map-loop2793 in a15287 in a15281 in k15270 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in ... */ -static void f_15300(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_15300,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15325,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); -/* expand.scm:1286: g2799 */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_15198(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15323 in map-loop2793 in a15287 in a15281 in k15270 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in ... */ -static void C_ccall f_15325(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_15325,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15300(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* a15333 in k15270 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -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; -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_15334,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[394]+1)); -t3=C_mutate((C_word*)lf[394]+1 /* (set! ##sys#default-read-info-hook ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k15338 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15340(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_15340,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15346,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1281: ##sys#symbol-has-toplevel-binding? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[397]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[397]+1); -av2[1]=t2; -av2[2]=lf[396]; -tp(3,av2);}} -else{ -t2=((C_word*)t0)[2]; -f_15272(t2,C_SCHEME_FALSE);}} - -/* k15344 in k15338 in read-forms in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15346(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_15346,c,av);} -t2=((C_word*)t0)[2]; -f_15272(t2,(C_truep(t1)?C_slot(lf[396],C_fix(0)):C_SCHEME_FALSE));} - -/* process-include-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15351(C_word t0,C_word t1,C_word 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_15351,3,t0,t1,t2);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15359,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15361,a[2]=((C_word*)t0)[3],a[3]=((C_word)li209),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1288: append-map */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[399]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[399]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=t2; -tp(4,av2);}} - -/* k15357 in process-include-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_15359,c,av);} -/* expand.scm:1288: parse-decls */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_15373(t2,((C_word*)t0)[3],t1);} - -/* a15360 in process-include-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15361(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_15361,c,av);} -/* expand.scm:1288: read-forms */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_15268(t3,t1,t2,C_SCHEME_TRUE);} - -/* parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15373(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word 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_15373,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]=lf[400]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_pairp(t2); -t4=(C_truep(t3)?C_i_pairp(C_u_i_car(t2)):C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=C_i_car(t2); -t6=C_u_i_cdr(t2); -t7=C_i_car(t5); -t8=C_eqp(t7,lf[386]); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15402,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[3],a[6]=t5,tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1298: ##sys#check-syntax */ -t10=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[386]; -av2[3]=t5; -av2[4]=lf[401]; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} -else{ -t9=C_eqp(t7,lf[375]); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15432,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t6,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:1302: ##sys#check-syntax */ -t11=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t11; -av2[1]=t10; -av2[2]=lf[375]; -av2[3]=t5; -av2[4]=lf[402]; -((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} -else{ -t10=C_eqp(t7,lf[392]); -if(C_truep(t10)){ -t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15454,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[4],a[6]=t5,tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1306: ##sys#check-syntax */ -t12=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t12; -av2[1]=t11; -av2[2]=lf[392]; -av2[3]=t5; -av2[4]=lf[403]; -((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} -else{ -t11=C_eqp(t7,lf[404]); -if(C_truep(t11)){ -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15476,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word*)t0)[4],a[6]=t5,tmp=(C_word)a,a+=7,tmp); -/* expand.scm:1310: ##sys#check-syntax */ -t13=*((C_word*)lf[54]+1);{ -C_word av2[5]; -av2[0]=t13; -av2[1]=t12; -av2[2]=lf[404]; -av2[3]=t5; -av2[4]=lf[405]; -((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} -else{ -t12=C_eqp(t7,lf[406]); -if(C_truep(t12)){ -t13=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15502,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1314: process-include-decls */ -t14=((C_word*)((C_word*)t0)[5])[1]; -f_15351(t14,t13,C_u_i_cdr(t5));} -else{ -t13=C_eqp(t7,lf[205]); -if(C_truep(t13)){ -t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15521,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15525,a[2]=t14,a[3]=((C_word*)t0)[2],a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1317: process-cond-expand */ -t16=*((C_word*)lf[204]+1);{ -C_word av2[3]; -av2[0]=t16; -av2[1]=t15; -av2[2]=C_u_i_cdr(t5); -((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} -else{ -t14=C_eqp(t7,lf[353]); -if(C_truep(t14)){ -t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15548,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t16=C_u_i_cdr(t5); -t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15558,a[2]=t15,a[3]=t16,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1321: parse-decls */ -t19=t17; -t20=t6; -t1=t19; -t2=t20; -goto loop;} -else{ -/* expand.scm:1290: ##sys#syntax-error */ -t15=*((C_word*)lf[43]+1);{ -C_word av2[5]; -av2[0]=t15; -av2[1]=t1; -av2[2]=lf[389]; -av2[3]=lf[407]; -av2[4]=t5; -((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}}}}}}}}} -else{ -/* expand.scm:1290: ##sys#syntax-error */ -t5=*((C_word*)lf[43]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[389]; -av2[3]=lf[407]; -av2[4]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}}} - -/* k15400 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15402(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_15402,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15409,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15413,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1299: parse-exports */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_15028(t4,t3,C_u_i_cdr(((C_word*)t0)[6]));} - -/* k15407 in k15400 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15409(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15409,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15411 in k15400 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15413(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_15413,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15421,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1300: parse-decls */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_15373(t3,t2,((C_word*)t0)[4]);} - -/* k15419 in k15411 in k15400 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_15421(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_15421,c,av);} -a=C_alloc(3); -t2=C_a_i_list(&a,1,t1); -/* expand.scm:1299: ##sys#append */ -t3=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k15430 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15432(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15432,c,av);} -a=C_alloc(7); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,lf[375],t2); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15443,a[2]=((C_word*)t0)[3],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1304: parse-decls */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_15373(t5,t4,((C_word*)t0)[5]);} - -/* k15441 in k15430 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15443(C_word c,C_word *av){ -C_word tmp; -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_15443,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[102],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15452 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(5,c,3)))){ -C_save_and_reclaim((void *)f_15454,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15461,a[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:1307: process-includes */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_15126(t3,t2,C_u_i_cdr(((C_word*)t0)[6]),C_SCHEME_FALSE);} - -/* k15459 in k15452 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15461(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_15461,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15465,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1308: parse-decls */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_15373(t3,t2,((C_word*)t0)[4]);} - -/* k15463 in k15459 in k15452 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_15465(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_15465,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[102],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15474 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15476(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_15476,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15483,a[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:1311: process-includes */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_15126(t3,t2,C_u_i_cdr(((C_word*)t0)[6]),C_SCHEME_TRUE);} - -/* k15481 in k15474 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15483(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_15483,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15487,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1312: parse-decls */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_15373(t3,t2,((C_word*)t0)[4]);} - -/* k15485 in k15481 in k15474 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in ... */ -static void C_ccall f_15487(C_word c,C_word *av){ -C_word tmp; -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_15487,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[102],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15500 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15502(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15502,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15506,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1315: parse-decls */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_15373(t3,t2,((C_word*)t0)[4]);} - -/* k15504 in k15500 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 in ... */ -static void C_ccall f_15506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_15506,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[102],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15519 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15521(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15521,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15523 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15525(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_15525,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15533,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1318: parse-decls */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_15373(t3,t2,((C_word*)t0)[4]);} - -/* k15531 in k15523 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_15533,c,av);} -a=C_alloc(3); -t2=C_a_i_list(&a,1,t1); -/* expand.scm:1317: ##sys#append */ -t3=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k15546 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15548,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15556 in parse-decls in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_15558,c,av);} -a=C_alloc(3); -t2=C_a_i_list(&a,1,t1); -/* expand.scm:1320: ##sys#append */ -t3=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k15611 in k14993 in k14990 in k15018 in k15012 in k15009 in a14984 in k11316 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15613(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,1)))){ -C_save_and_reclaim((void *)f_15613,c,av);} -a=C_alloc(21); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,7,lf[104],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15655 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(0,c,4)))){ -C_save_and_reclaim((void *)f_15657,c,av);} -/* expand.scm:1167: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[420]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15659(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15659,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15663,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1171: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[420]; -av2[3]=t2; -av2[4]=lf[426]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15663(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_15663,c,av);} -a=C_alloc(6); -t2=C_i_length(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15669,a[2]=t2,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); -/* expand.scm:1173: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[219]+1); -av2[1]=t3; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -tp(3,av2);}} - -/* k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15669(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_15669,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15675,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_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(4)))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15820,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1180: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_caddr(((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=t2; -f_15675(t3,C_SCHEME_FALSE);}} - -/* k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15675(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_15675,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15678,a[2]=((C_word*)t0)[2],a[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:1181: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15747,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15806,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1214: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_caddr(((C_word*)t0)[6]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k15676 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15678(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_15678,c,av);} -a=C_alloc(13); -t2=C_i_cadddr(t1); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],C_fix(4)))){ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15690,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15724,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15728,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1200: scheme#symbol->string */ -t6=*((C_word*)lf[134]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15731,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:1206: ##sys#check-syntax */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[420]; -av2[3]=t1; -av2[4]=lf[425]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k15688 in k15676 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15690(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_15690,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15693,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); -/* expand.scm:1201: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[420]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k15691 in k15688 in k15676 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 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_15693,c,av);} -a=C_alloc(36); -t2=C_i_cddddr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,lf[365],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[421],t6); -t8=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_list(&a,3,lf[102],t5,t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* k15722 in k15676 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15724(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_15724,c,av);} -/* expand.scm:1197: scheme#string->symbol */ -t2=*((C_word*)lf[417]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k15726 in k15676 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15728(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_15728,c,av);} -/* expand.scm:1198: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[422]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[422]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[423]; -av2[3]=t1; -tp(4,av2);}} - -/* k15729 in k15676 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15731(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15731,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15738,a[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:1210: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[219]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[219]+1); -av2[1]=t2; -av2[2]=C_i_car(((C_word*)t0)[4]); -tp(3,av2);}} - -/* k15736 in k15729 in k15676 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15738(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15738,c,av);} -/* expand.scm:1208: ##sys#instantiate-functor */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[424]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[424]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_u_i_cdr(((C_word*)t0)[4]); -tp(5,av2);}} - -/* k15745 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_15747,c,av);} -a=C_alloc(6); -t2=C_eqp(lf[365],t1); -t3=(C_truep(t2)?C_SCHEME_TRUE:t1); -t4=C_i_cdddr(((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15772,a[2]=t4,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(t4))){ -t6=C_i_nullp(C_u_i_cdr(t4)); -t7=t5; -f_15772(t7,(C_truep(t6)?C_i_stringp(C_u_i_car(t4)):C_SCHEME_FALSE));} -else{ -t6=t5; -f_15772(t6,C_SCHEME_FALSE);}} - -/* k15770 in k15745 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15772(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(21,0,1)))){ -C_save_and_reclaim_args((void *)trf_15772,2,t0,t1);} -a=C_alloc(21); -if(C_truep(t1)){ -t2=C_i_car(((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,lf[103],t2,*((C_word*)lf[2]+1)); -t4=C_a_i_list(&a,1,t3); -t5=C_a_i_cons(&a,2,((C_word*)t0)[3],t4); -t6=C_a_i_cons(&a,2,((C_word*)t0)[4],t5); -t7=((C_word*)t0)[5];{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_a_i_cons(&a,2,lf[104],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[104],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k15804 in k15673 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,c,av);} -/* expand.scm:1214: ##sys#validate-exports */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[367]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[367]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[420]; -tp(4,av2);}} - -/* k15818 in k15667 in k15661 in a15658 in k11313 in k11309 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_15820,c,av);} -t2=((C_word*)t0)[2]; -f_15675(t2,C_eqp(lf[421],t1));} - -/* k15830 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15832(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15832,c,av);} -/* expand.scm:1154: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[205]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a15833 in k10921 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15834(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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,2)))){ -C_save_and_reclaim((void *)f_15834,c,av);} -/* expand.scm:1159: process-cond-expand */ -t5=*((C_word*)lf[204]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=C_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k15844 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15846(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15846,c,av);} -/* expand.scm:1084: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[413]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a15847 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15848(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_15848,c,av);} -a=C_alloc(9); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15852,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15873,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1088: r */ -t7=t3;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[375]; -((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} - -/* k15850 in a15847 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15852(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15852,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15863,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1089: r */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[375]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k15861 in k15850 in a15847 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_15863,c,av);} -a=C_alloc(9); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,2,lf[364],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k15871 in a15847 in k10918 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15873(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_15873,c,av);} -a=C_alloc(3); -t2=C_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -/* expand.scm:1088: ##sys#register-meta-expression */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[427]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[427]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t3; -tp(3,av2);}} - -/* k15879 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15881,c,av);} -/* expand.scm:1062: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[375]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ -C_save_and_reclaim((void *)f_15883,c,av);} -a=C_alloc(22); -t5=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t6=t5; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=((C_word*)t7)[1]; -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15892,a[2]=t3,a[3]=t4,a[4]=((C_word)li218),tmp=(C_word)a,a+=5,tmp); -t10=C_i_cdr(t2); -t11=C_i_check_list_2(t10,lf[16]); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15954,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t13=C_SCHEME_UNDEFINED; -t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); -t15=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15956,a[2]=t7,a[3]=t14,a[4]=t9,a[5]=t8,a[6]=((C_word)li219),tmp=(C_word)a,a+=7,tmp)); -t16=((C_word*)t14)[1]; -f_15956(t16,t12,t10);} - -/* g2438 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15892(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,8)))){ -C_save_and_reclaim_args((void *)trf_15892,3,t0,t1,t2);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15898,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li216),tmp=(C_word)a,a+=6,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15904,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1068: ##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);}} - -/* a15897 in g2438 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15898(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_15898,c,av);} -/* expand.scm:1068: ##sys#decompose-import */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[428]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[428]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=lf[375]; -tp(6,av2);}} - -/* a15903 in g2438 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15904(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8; -C_word t9; -C_word *a; -if(c!=8) C_bad_argc_2(c,8,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_15904,c,av);} -a=C_alloc(9); -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15908,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,tmp=(C_word)a,a+=9,tmp); -/* expand.scm:1069: ##sys#current-module */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[345]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[345]+1); -av2[1]=t8; -tp(2,av2);}} - -/* k15906 in a15903 in g2438 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15908(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_15908,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15911,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15945,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:1070: ##sys#module-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[359]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[359]+1); -av2[1]=t3; -av2[2]=t1; -tp(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_15911(2,av2);}}} - -/* k15909 in k15906 in a15903 in g2438 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ -C_save_and_reclaim((void *)f_15911,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15914,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_not(((C_word*)t0)[5]))){ -/* expand.scm:1074: ##sys#syntax-error */ -t3=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[375]; -av2[3]=lf[431]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -/* expand.scm:1076: ##sys#import */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[432]+1)); -C_word *av2; -if(c >= 11) { - av2=av; -} else { - av2=C_alloc(11); -} -av2[0]=*((C_word*)lf[432]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -av2[6]=*((C_word*)lf[3]+1); -av2[7]=*((C_word*)lf[17]+1); -av2[8]=C_SCHEME_FALSE; -av2[9]=C_SCHEME_FALSE; -av2[10]=lf[375]; -tp(11,av2);}}} - -/* k15912 in k15909 in k15906 in a15903 in g2438 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15914(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_15914,c,av);} -a=C_alloc(9); -t2=C_i_not(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?lf[429]:C_a_i_list(&a,3,lf[430],((C_word*)t0)[2],((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k15943 in k15906 in a15903 in g2438 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15945,c,av);} -t2=C_eqp(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -/* expand.scm:1071: ##sys#syntax-error */ -t3=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[375]; -av2[3]=lf[433]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_15911(2,av2);}}} - -/* k15952 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15954,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2432 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_15956(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_15956,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15981,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); -/* expand.scm:1067: g2438 */ -t4=((C_word*)t0)[4]; -f_15892(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15979 in map-loop2432 in a15882 in k10914 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15981(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15981,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15956(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k15990 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_15992(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15992,c,av);} -/* expand.scm:1054: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[434]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a15993 in k10911 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_15994,c,av);} -t5=*((C_word*)lf[381]+1); -/* expand.scm:1057: g2422 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[381]+1)); -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=*((C_word*)lf[381]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=*((C_word*)lf[4]+1); -av2[6]=*((C_word*)lf[230]+1); -av2[7]=C_SCHEME_TRUE; -av2[8]=C_SCHEME_FALSE; -av2[9]=lf[434]; -tp(10,av2);}} - -/* k16000 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,4)))){ -C_save_and_reclaim((void *)f_16002,c,av);} -/* expand.scm:1047: ##sys#extend-macro-environment */ -t2=*((C_word*)lf[29]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[435]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a16003 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_16004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_16004,c,av);} -t5=*((C_word*)lf[381]+1); -/* expand.scm:1050: g2408 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[381]+1)); -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=*((C_word*)lf[381]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=*((C_word*)lf[3]+1); -av2[6]=*((C_word*)lf[17]+1); -av2[7]=C_SCHEME_FALSE; -av2[8]=C_SCHEME_FALSE; -av2[9]=lf[435]; -tp(10,av2);}} - -/* k4862 */ -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; -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_4864,c,av);} -a=C_alloc(19); -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4867,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -/* k4865 in k4862 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_4867,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4870,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_data_2dstructures_toplevel(2,av2);}} - -/* k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_4870,c,av);} -a=C_alloc(3); -t2=C_set_block_item(lf[2] /* ##sys#current-source-filename */,0,C_SCHEME_FALSE); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6153,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:88: scheme#make-parameter */ -t4=*((C_word*)lf[236]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6153(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_6153,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[3]+1 /* (set! ##sys#current-environment ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6157,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:89: scheme#make-parameter */ -t4=*((C_word*)lf[236]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ -C_save_and_reclaim((void *)f_6157,c,av);} -a=C_alloc(15); -t2=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#current-meta-environment ...) */,t1); -t3=C_mutate(&lf[5] /* (set! chicken.syntax#lookup ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6159,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate(&lf[7] /* (set! chicken.syntax#macro-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6176,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[11]+1 /* (set! chicken.syntax#strip-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6223,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[13]+1 /* (set! ##sys#extend-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6365,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6547,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:147: scheme#make-parameter */ -t8=*((C_word*)lf[236]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} - -/* chicken.syntax#lookup in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_6159(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_stack_overflow_check;{} -t3=C_u_i_assq(t1,t2); -if(C_truep(t3)){ -return(C_i_cdr(t3));} -else{ -t4=C_i_getprop(t1,lf[6],C_SCHEME_FALSE); -return((C_truep(t4)?t4:C_SCHEME_FALSE));}} - -/* chicken.syntax#macro-alias in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6176(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_6176,3,t1,t2,t3);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6183,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:97: chicken.keyword#keyword? */ -t5=*((C_word*)lf[10]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k6181 in chicken.syntax#macro-alias in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6183(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_6183,c,av);} -a=C_alloc(5); -t2=(C_truep(t1)?t1:C_u_i_namespaced_symbolp(((C_word*)t0)[2])); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6189,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:99: chicken.base#gensym */ -t4=*((C_word*)lf[9]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k6187 in k6181 in chicken.syntax#macro-alias in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6189(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,1)))){ -C_save_and_reclaim((void *)f_6189,c,av);} -a=C_alloc(16); -t2=( -/* expand.scm:100: lookup */ - f_6159(((C_word*)t0)[2],((C_word*)t0)[3]) -); -t3=(C_truep(t2)?t2:((C_word*)t0)[2]); -t4=C_i_getprop(((C_word*)t0)[2],lf[8],C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=C_a_i_putprop(&a,3,t1,lf[6],t3); -t6=C_a_i_putprop(&a,3,t1,lf[8],t4); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t5=C_a_i_putprop(&a,3,t1,lf[6],t3); -t6=C_a_i_putprop(&a,3,t1,lf[8],((C_word*)t0)[2]); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6223(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_6223,c,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_6229,a[2]=t4,a[3]=t6,a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_6229(t8,t1,t2);} - -/* walk in chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6229(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_6229,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_assq(t2,((C_word*)((C_word*)t0)[2])[1]); -if(C_truep(t3)){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_i_cdr(t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6245,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* expand.scm:114: chicken.keyword#keyword? */ -t5=*((C_word*)lf[10]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} - -/* k6243 in walk in chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 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_6245,c,av);} -a=C_alloc(15); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ -t2=C_i_getprop(((C_word*)t0)[3],lf[6],C_SCHEME_FALSE); -t3=C_i_getprop(((C_word*)t0)[3],lf[8],C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_not(t2))){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_pairp(t2); -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?((C_word*)t0)[3]:t2); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ -t2=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[4])[1]); -t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,t4); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6307,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* expand.scm:124: walk */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_6229(t7,t6,C_u_i_car(((C_word*)t0)[3]));} -else{ -if(C_truep(C_i_vectorp(((C_word*)t0)[3]))){ -t2=C_block_size(((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6325,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); -/* expand.scm:129: scheme#make-vector */ -t4=*((C_word*)lf[12]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}}}} - -/* k6298 in k6305 in k6243 in walk in chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6300,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],C_fix(1),t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k6305 in k6243 in walk in chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_6307,c,av);} -a=C_alloc(4); -t2=C_i_setslot(((C_word*)t0)[2],C_fix(0),t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6300,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:125: walk */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_6229(t4,t3,C_u_i_cdr(((C_word*)t0)[5]));} - -/* k6323 in k6243 in walk in chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word 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_6325,c,av);} -a=C_alloc(16); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[3])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_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_6334,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word)li2),tmp=(C_word)a,a+=8,tmp)); -t8=((C_word*)t6)[1]; -f_6334(t8,((C_word*)t0)[6],C_fix(0));} - -/* doloop890 in k6323 in k6243 in walk in chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6334(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_6334,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_6355,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); -/* expand.scm:133: walk */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_6229(t4,t3,C_slot(((C_word*)t0)[6],t2));}} - -/* k6353 in doloop890 in k6323 in k6243 in walk in chicken.syntax#strip-syntax in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(0,c,2)))){ -C_save_and_reclaim((void *)f_6355,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)((C_word*)t0)[4])[1]; -f_6334(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} - -/* ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -C_word t5; -C_word t6; -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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ -C_save_and_reclaim((void *)f_6365,c,av);} -a=C_alloc(18); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6369,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_rest_nullp(c,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_i_check_list_2(t3,lf[16]); -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_6508,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_6508(t13,t4,t3);} -else{ -t5=t4;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_get_rest_arg(c,4,av,4,t0); -f_6369(2,av2);}}} - -/* k6367 in ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6369(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_6369,c,av);} -a=C_alloc(12); -t2=C_i_check_list_2(t1,lf[14]); -t3=C_i_check_list_2(((C_word*)t0)[2],lf[14]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6394,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t1,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_6459,a[2]=t6,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_6459(t8,t4,t1,((C_word*)t0)[2]);} - -/* k6392 in k6367 in ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6394(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_6394,c,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_6409,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_6411,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_6411(t10,t6,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k6407 in k6392 in k6367 in ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6409(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6409,c,av);} -/* expand.scm:142: scheme#append */ -t2=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop975 in k6392 in k6367 in ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6411(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_6411,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?C_i_pairp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_slot(t2,C_fix(0)); -t7=C_slot(t3,C_fix(0)); -t8=C_a_i_cons(&a,2,t6,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* for-each-loop938 in k6367 in ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6459(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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_6459,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[8],C_SCHEME_FALSE); -t9=(C_truep(t8)?C_a_i_putprop(&a,3,t6,lf[8],t8):C_a_i_putprop(&a,3,t6,lf[8],t7)); -t11=t1; -t12=C_slot(t2,C_fix(1)); -t13=C_slot(t3,C_fix(1)); -t1=t11; -t2=t12; -t3=t13; -goto loop;} -else{ -t6=C_SCHEME_UNDEFINED; -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* map-loop912 in ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6508(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_6508,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6533,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); -/* expand.scm:136: g918 */ -t4=*((C_word*)lf[9]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k6531 in map-loop912 in ##sys#extend-se in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_6533,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_6508(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(90,c,6)))){ -C_save_and_reclaim((void *)f_6547,c,av);} -a=C_alloc(90); -t2=C_mutate((C_word*)lf[17]+1 /* (set! ##sys#macro-environment ...) */,t1); -t3=C_set_block_item(lf[18] /* ##sys#scheme-macro-environment */,0,C_SCHEME_END_OF_LIST); -t4=C_set_block_item(lf[19] /* ##sys#chicken-ffi-macro-environment */,0,C_SCHEME_END_OF_LIST); -t5=C_set_block_item(lf[20] /* ##sys#chicken.condition-macro-environment */,0,C_SCHEME_END_OF_LIST); -t6=C_set_block_item(lf[21] /* ##sys#chicken.time-macro-environment */,0,C_SCHEME_END_OF_LIST); -t7=C_set_block_item(lf[22] /* ##sys#chicken.type-macro-environment */,0,C_SCHEME_END_OF_LIST); -t8=C_set_block_item(lf[23] /* ##sys#chicken.syntax-macro-environment */,0,C_SCHEME_END_OF_LIST); -t9=C_set_block_item(lf[24] /* ##sys#chicken.base-macro-environment */,0,C_SCHEME_END_OF_LIST); -t10=C_mutate((C_word*)lf[25]+1 /* (set! ##sys#ensure-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6556,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[29]+1 /* (set! ##sys#extend-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6580,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[30]+1 /* (set! ##sys#macro? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6622,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[31]+1 /* (set! ##sys#undefine-macro! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6659,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[32]+1 /* (set! ##sys#expand-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6704,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); -t15=C_set_block_item(lf[58] /* ##sys#compiler-syntax-hook */,0,C_SCHEME_FALSE); -t16=C_set_block_item(lf[63] /* ##sys#enable-runtime-macros */,0,C_SCHEME_FALSE); -t17=C_mutate((C_word*)lf[42]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7208,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate((C_word*)lf[64]+1 /* (set! chicken.syntax#expand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7211,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[65]+1 /* (set! ##sys#extended-lambda-list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7277,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[69]+1 /* (set! ##sys#expand-extended-lambda-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7324,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[92]+1 /* (set! ##sys#expand-multiple-values-assignment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7933,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); -t22=C_set_block_item(lf[97] /* chicken.syntax#define-definition */,0,C_SCHEME_UNDEFINED); -t23=C_set_block_item(lf[98] /* chicken.syntax#define-syntax-definition */,0,C_SCHEME_UNDEFINED); -t24=C_set_block_item(lf[99] /* chicken.syntax#define-values-definition */,0,C_SCHEME_UNDEFINED); -t25=lf[100] /* chicken.syntax#import-definition */ =C_SCHEME_UNDEFINED;; -t26=C_mutate((C_word*)lf[101]+1 /* (set! ##sys#canonicalize-body ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8113,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); -t27=C_mutate((C_word*)lf[119]+1 /* (set! chicken.syntax#match-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9177,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); -t28=C_mutate((C_word*)lf[111]+1 /* (set! chicken.syntax#expand-curried-define ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9259,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); -t29=C_set_block_item(lf[120] /* ##sys#line-number-database */,0,C_SCHEME_FALSE); -t30=C_set_block_item(lf[121] /* ##sys#syntax-error-culprit */,0,C_SCHEME_FALSE); -t31=C_set_block_item(lf[122] /* ##sys#syntax-context */,0,C_SCHEME_END_OF_LIST); -t32=C_mutate((C_word*)lf[123]+1 /* (set! ##sys#syntax-error-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9314,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); -t33=C_mutate((C_word*)lf[43]+1 /* (set! ##sys#syntax-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9324,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); -t34=C_mutate((C_word*)lf[126]+1 /* (set! ##sys#syntax-error/context ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9330,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); -t35=C_mutate(&lf[145] /* (set! chicken.syntax#assq/drop-bwp! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9557,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); -t36=C_mutate(&lf[146] /* (set! chicken.syntax#read-with-source-info-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9607,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); -t37=C_mutate((C_word*)lf[153]+1 /* (set! chicken.syntax#read-with-source-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9658,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); -t38=C_mutate((C_word*)lf[157]+1 /* (set! chicken.syntax#get-line-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9683,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); -t39=C_mutate((C_word*)lf[158]+1 /* (set! ##sys#get-line-2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9722,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); -t40=C_mutate((C_word*)lf[159]+1 /* (set! ##sys#display-line-number-database ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9763,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); -t41=C_mutate((C_word*)lf[164]+1 /* (set! ##sys#update-line-number-database! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9831,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); -t42=C_mutate((C_word*)lf[54]+1 /* (set! ##sys#check-syntax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9921,a[2]=((C_word)li105),tmp=(C_word)a,a+=3,tmp)); -t43=C_mutate(&lf[196] /* (set! chicken.syntax#make-er/ir-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10365,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp)); -t44=C_mutate((C_word*)lf[200]+1 /* (set! chicken.syntax#er-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10894,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp)); -t45=C_mutate((C_word*)lf[201]+1 /* (set! chicken.syntax#ir-macro-transformer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10900,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); -t46=C_mutate((C_word*)lf[202]+1 /* (set! ##sys#er-transformer ...) */,*((C_word*)lf[200]+1)); -t47=C_mutate((C_word*)lf[203]+1 /* (set! ##sys#ir-transformer ...) */,*((C_word*)lf[201]+1)); -t48=C_mutate((C_word*)lf[97]+1 /* (set! chicken.syntax#define-definition ...) */,*((C_word*)lf[97]+1)); -t49=C_mutate((C_word*)lf[98]+1 /* (set! chicken.syntax#define-syntax-definition ...) */,*((C_word*)lf[98]+1)); -t50=C_mutate((C_word*)lf[99]+1 /* (set! chicken.syntax#define-values-definition ...) */,*((C_word*)lf[99]+1)); -t51=C_mutate((C_word*)lf[42]+1 /* (set! chicken.syntax#expansion-result-hook ...) */,*((C_word*)lf[42]+1)); -t52=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10913,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t53=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16002,a[2]=t52,tmp=(C_word)a,a+=3,tmp); -t54=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16004,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:1049: ##sys#er-transformer */ -t55=*((C_word*)lf[202]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t55; -av2[1]=t53; -av2[2]=t54; -((C_proc)(void*)(*((C_word*)t55+1)))(3,av2);}} - -/* ##sys#ensure-transformer in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6556,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -if(C_truep(C_i_structurep(t2,lf[26]))){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_slot(t2,C_fix(1)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -/* expand.scm:161: ##sys#error */ -t5=*((C_word*)lf[27]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t4; -av2[3]=lf[28]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* ##sys#extend-macro-environment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6580(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_6580,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6584,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:164: ##sys#macro-environment */ -t6=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k6582 in ##sys#extend-macro-environment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_6584,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6587,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:165: ##sys#ensure-transformer */ -t3=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k6585 in k6582 in ##sys#extend-macro-environment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ -C_save_and_reclaim((void *)f_6587,c,av);} -a=C_alloc(16); -t2=( -/* expand.scm:166: lookup */ - f_6159(((C_word*)t0)[2],((C_word*)t0)[3]) -); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6594,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp); -/* expand.scm:166: g1039 */ -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( -/* expand.scm:166: g1039 */ - f_6594(t3,t2) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_a_i_list2(&a,2,((C_word*)t0)[4],t1); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6612,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t3); -t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); -/* expand.scm:173: ##sys#macro-environment */ -t7=*((C_word*)lf[17]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t4; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} - -/* g1039 in k6585 in k6582 in ##sys#extend-macro-environment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_6594(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_set_car(t1,((C_word*)t0)[2]); -t3=C_i_set_car(C_u_i_cdr(t1),((C_word*)t0)[3]); -return(t1);} - -/* k6610 in k6585 in k6582 in ##sys#extend-macro-environment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6612(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6612,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#macro? in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6622(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_6622,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6626,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_rest_nullp(c,3))){ -/* expand.scm:177: ##sys#current-environment */ -t4=*((C_word*)lf[3]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=t3;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_get_rest_arg(c,3,av,3,t0); -f_6626(2,av2);}}} - -/* k6624 in ##sys#macro? in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6626(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_6626,c,av);} -a=C_alloc(4); -t2=( -/* expand.scm:178: lookup */ - f_6159(((C_word*)t0)[2],t1) -); -t3=C_i_pairp(t2); -if(C_truep(t3)){ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6648,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:180: ##sys#macro-environment */ -t5=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k6646 in k6624 in ##sys#macro? in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6648(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6648,c,av);} -t2=( -/* expand.scm:180: lookup */ - f_6159(((C_word*)t0)[2],t1) -); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_i_pairp(t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#undefine-macro! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_6659,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6667,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6671,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:186: ##sys#macro-environment */ -t5=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k6665 in ##sys#undefine-macro! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6667,c,av);} -/* expand.scm:184: ##sys#macro-environment */ -t2=*((C_word*)lf[17]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k6669 in ##sys#undefine-macro! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_6671,c,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_6673,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li13),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_6673(t5,((C_word*)t0)[3],t1);} - -/* loop in k6669 in ##sys#undefine-macro! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6673(C_word t0,C_word t1,C_word t2){ -C_word 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_6673,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=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_u_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_u_i_car(t2); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6696,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:189: loop */ -t8=t6; -t9=C_u_i_cdr(t2); -t1=t8; -t2=t9; -goto loop;}}} - -/* k6694 in loop in k6669 in ##sys#undefine-macro! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_6696,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6704(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_6704,c,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_6707,a[2]=t3,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp)); -t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6906,a[2]=t6,a[3]=((C_word)li28),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_6937,a[2]=t3,a[3]=t8,a[4]=t12,a[5]=t6,a[6]=t4,a[7]=((C_word)li32),tmp=(C_word)a,a+=8,tmp)); -t14=((C_word*)t12)[1]; -f_6937(t14,t1,t2);} - -/* call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6707(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_6707,7,t0,t1,t2,t3,t4,t5,t6);} -a=C_alloc(12); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6717,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6722,a[2]=t2,a[3]=t4,a[4]=t6,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[2],a[8]=((C_word)li26),tmp=(C_word)a,a+=9,tmp); -/* expand.scm:197: scheme#call-with-current-continuation */ -t9=*((C_word*)lf[49]+1);{ -C_word av2[3]; -av2[0]=t9; -av2[1]=t7; -av2[2]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k6715 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6717,c,av);} -/* g10911092 */ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_6722,c,av);} -a=C_alloc(15); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6728,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li17),tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6829,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)li25),tmp=(C_word)a,a+=10,tmp); -/* expand.scm:197: chicken.condition#with-exception-handler */ -t5=*((C_word*)lf[48]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* a6727 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=av[2]; -C_word t3; -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_6728,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6734,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li16),tmp=(C_word)a,a+=5,tmp); -/* expand.scm:197: k1088 */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a6733 in a6727 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t8; -C_word t9; -C_word t10; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_6734,c,av);} -a=C_alloc(11); -t2=C_i_structurep(((C_word*)t0)[2],lf[33]); -t3=(C_truep(t2)?C_i_memq(lf[34],C_slot(((C_word*)t0)[2],C_fix(1))):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=C_slot(((C_word*)t0)[2],C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6756,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t6=C_slot(((C_word*)t0)[2],C_fix(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|4,a[1]=(C_word)f_6762,a[2]=((C_word*)t0)[3],a[3]=t8,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_6762(t10,t5,t6);} -else{ -/* expand.scm:200: chicken.condition#abort */ -t4=*((C_word*)lf[35]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k6754 in a6733 in a6727 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6756(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_6756,c,av);} -a=C_alloc(4); -t2=C_a_i_record3(&a,3,lf[33],((C_word*)t0)[2],t1); -/* expand.scm:200: chicken.condition#abort */ -t3=*((C_word*)lf[35]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* copy in a6733 in a6727 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6762(C_word t0,C_word 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_6762,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=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6779,a[2]=t4,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[41],t3))){ -t6=C_i_pairp(t4); -t7=t5; -f_6779(t7,(C_truep(t6)?C_i_stringp(C_u_i_car(t4)):C_SCHEME_FALSE));} -else{ -t6=t5; -f_6779(t6,C_SCHEME_FALSE);}}} - -/* k6777 in copy in a6733 in a6727 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6779(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_6779,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6790,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_6796,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:218: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[40]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} -else{ -/* expand.scm:222: copy */ -t2=((C_word*)((C_word*)t0)[5])[1]; -f_6762(t2,((C_word*)t0)[3],((C_word*)t0)[2]);}} - -/* k6788 in k6777 in copy in a6733 in a6727 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6790(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_6790,c,av);} -a=C_alloc(6); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,lf[36],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k6794 in k6777 in copy in a6733 in a6727 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_6796,c,av);} -/* expand.scm:216: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[38]; -av2[3]=t1; -av2[4]=lf[39]; -av2[5]=C_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word t4; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ -C_save_and_reclaim((void *)f_6829,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li22),tmp=(C_word)a,a+=9,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6894,a[2]=((C_word*)t0)[8],a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:197: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6835(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(31,c,4)))){ -C_save_and_reclaim((void *)f_6835,c,av);} -a=C_alloc(31); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6839,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -if(C_truep(((C_word*)t0)[3])){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6869,a[2]=((C_word*)t0)[2],a[3]=((C_word)li18),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_6875,a[2]=t6,a[3]=t4,a[4]=((C_word)li19),tmp=(C_word)a,a+=5,tmp); -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6880,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)li20),tmp=(C_word)a,a+=7,tmp); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6886,a[2]=t4,a[3]=t6,a[4]=((C_word)li21),tmp=(C_word)a,a+=5,tmp); -/* expand.scm:227: ##sys#dynamic-wind */ -t10=*((C_word*)lf[47]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t10; -av2[1]=t2; -av2[2]=t7; -av2[3]=t8; -av2[4]=t9; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} -else{ -/* expand.scm:230: handler */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}}} - -/* k6837 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 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_6839,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6842,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_not(((C_word*)t0)[4]); -t4=(C_truep(t3)?C_eqp(((C_word*)t0)[3],t1):C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6858,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6862,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:234: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[40]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -/* expand.scm:238: expansion-result-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[42]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}}} - -/* k6840 in k6837 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(0,c,3)))){ -C_save_and_reclaim((void *)f_6842,c,av);} -/* expand.scm:238: expansion-result-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[42]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[42]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}} - -/* k6856 in k6837 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,3)))){ -C_save_and_reclaim((void *)f_6858,c,av);} -/* expand.scm:232: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k6860 in k6837 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6862(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6862,c,av);} -/* expand.scm:233: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[44]; -av2[3]=t1; -av2[4]=lf[45]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* f_6869 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_6869,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a6874 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6875(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -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_6875,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[46]+1)); -t3=C_mutate((C_word*)lf[46]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a6879 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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!=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_6880,c,av);} -/* expand.scm:229: handler */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* a6885 in a6834 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -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_6886,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[46]+1)); -t3=C_mutate((C_word*)lf[46]+1 /* (set! chicken.internal.syntax-rules#syntax-rules-mismatch ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a6893 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_6894,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_6900,a[2]=t2,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:197: k1088 */ -t4=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a6899 in a6893 in a6828 in a6721 in call-handler in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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!=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_6900,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -C_apply_values(3,av2);}} - -/* expand in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6906(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(3,0,6)))){ -C_save_and_reclaim_args((void *)trf_6906,5,t0,t1,t2,t3,t4);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t4))){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6923,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:252: call-handler */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_6707(t6,t5,t2,C_i_cadr(t4),t3,C_u_i_car(t4),C_SCHEME_FALSE);} -else{ -/* expand.scm:254: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -C_values(4,av2);}}} - -/* k6921 in expand in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6923,c,av);} -/* expand.scm:250: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -C_values(4,av2);}} - -/* loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6937(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_6937,3,t0,t1,t2);} -a=C_alloc(18); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -t4=C_u_i_cdr(t2); -if(C_truep(C_i_symbolp(t3))){ -t5=( -/* expand.scm:260: lookup */ - f_6159(t3,((C_word*)t0)[2]) -); -t6=(C_truep(t5)?t5:t3); -t7=t6; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6961,a[2]=t1,a[3]=t2,a[4]=t8,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=t3,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*)t8)[1]))){ -t10=t9; -f_6961(t10,C_SCHEME_UNDEFINED);} -else{ -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7198,a[2]=t8,a[3]=t9,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:262: ##sys#macro-environment */ -t11=*((C_word*)lf[17]+1);{ -C_word av2[2]; -av2[0]=t11; -av2[1]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} -else{ -/* expand.scm:291: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -C_values(4,av2);}}} -else{ -/* expand.scm:292: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -C_values(4,av2);}}} - -/* k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6961(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_6961,2,t0,t1);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_6967,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_pairp(((C_word*)((C_word*)t0)[4])[1]))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7184,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:264: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[61]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -av2[3]=lf[62]; -tp(4,av2);}} -else{ -t3=t2; -f_6967(t3,C_SCHEME_FALSE);}} - -/* k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_6967(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_6967,2,t0,t1);} -a=C_alloc(9); -if(C_truep(t1)){ -/* expand.scm:265: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_FALSE; -C_values(4,av2);}} -else{ -t2=C_eqp(((C_word*)((C_word*)t0)[4])[1],lf[50]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6979,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* expand.scm:267: ##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)[5]; -av2[4]=lf[57]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7125,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],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],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)[4])[1]))){ -t4=((C_word*)((C_word*)t0)[4])[1]; -t5=t3; -f_7125(t5,C_i_getprop(t4,lf[59],C_SCHEME_FALSE));} -else{ -t4=t3; -f_7125(t4,C_SCHEME_FALSE);}} -else{ -t4=t3; -f_7125(t4,C_SCHEME_FALSE);}}}} - -/* k6977 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6979(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,6)))){ -C_save_and_reclaim((void *)f_6979,c,av);} -a=C_alloc(5); -t2=C_i_car(((C_word*)t0)[2]); -if(C_truep(C_i_symbolp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6991,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:270: ##sys#check-syntax */ -t4=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=t3; -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*)t4+1)))(7,av2);}} -else{ -/* expand.scm:281: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -C_values(4,av2);}}} - -/* k6989 in k6977 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_6991(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_6991,c,av);} -a=C_alloc(19); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=C_i_check_list_2(t2,lf[16]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7081,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|5,a[1]=(C_word)f_7087,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li30),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_7087(t12,t8,t2);} - -/* k7014 in k7079 in k6989 in k6977 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7016(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_7016,c,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:272: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=t3; -av2[3]=C_SCHEME_TRUE; -C_values(4,av2);}} - -/* map-loop1184 in k7079 in k6989 in k6977 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void 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 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,2)))){ -C_save_and_reclaim_args((void *)trf_7018,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cadr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k7079 in k6989 in k6977 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7081(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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(41,c,3)))){ -C_save_and_reclaim((void *)f_7081,c,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=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_7016,a[2]=t7,a[3]=((C_word*)t0)[4],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_7018,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp)); -t16=((C_word*)t14)[1]; -f_7018(t16,t12,((C_word*)t0)[5]);} - -/* map-loop1157 in k6989 in k6977 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7087(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_7087,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k7123 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7125(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_7125,2,t0,t1);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|8,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]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li31),tmp=(C_word)a,a+=9,tmp); -/* expand.scm:263: g1217 */ -t3=t2; -f_7129(t3,((C_word*)t0)[8],t1);} -else{ -/* expand.scm:290: expand */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_6906(t2,((C_word*)t0)[8],((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)((C_word*)t0)[5])[1]);}} - -/* g1217 in k7123 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7129(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,6)))){ -C_save_and_reclaim_args((void *)trf_7129,3,t0,t1,t2);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7133,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); -/* expand.scm:284: call-handler */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_6707(t4,t3,((C_word*)t0)[4],C_i_car(t2),((C_word*)t0)[2],C_u_i_cdr(t2),C_SCHEME_TRUE);} - -/* k7131 in g1217 in k7123 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_7133,c,av);} -a=C_alloc(5); -t2=C_eqp(t1,((C_word*)t0)[2]); -if(C_truep(t2)){ -/* expand.scm:285: expand */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_6906(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)((C_word*)t0)[6])[1]);} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7145,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(*((C_word*)lf[58]+1))){ -/* expand.scm:288: ##sys#compiler-syntax-hook */ -t4=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -/* expand.scm:289: loop */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_6937(t4,((C_word*)t0)[4],t1);}}} - -/* k7143 in k7131 in g1217 in k7123 in k6965 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7145,c,av);} -/* expand.scm:289: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6937(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k7182 in k6959 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,1)))){ -C_save_and_reclaim((void *)f_7184,c,av);} -t2=((C_word*)t0)[2]; -f_6967(t2,C_eqp(t1,lf[60]));} - -/* k7196 in loop in ##sys#expand-0 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7198,c,av);} -t2=( -/* expand.scm:262: lookup */ - f_6159(((C_word*)((C_word*)t0)[2])[1],t1) -); -if(C_truep(t2)){ -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t4=((C_word*)t0)[3]; -f_6961(t4,t3);} -else{ -t3=((C_word*)((C_word*)t0)[2])[1]; -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); -t5=((C_word*)t0)[3]; -f_6961(t5,t4);}} - -/* chicken.syntax#expansion-result-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_7208,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.syntax#expand in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7211(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_7211,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_7215,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_nullp(t3))){ -/* expand.scm:301: ##sys#current-environment */ -t5=*((C_word*)lf[3]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_car(t3); -f_7215(2,av2);}}} - -/* k7213 in chicken.syntax#expand in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_7215,c,av);} -a=C_alloc(8); -t2=C_i_nullp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); -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_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_7229,a[2]=t1,a[3]=t5,a[4]=t9,a[5]=((C_word)li37),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_7229(t11,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* loop in k7213 in chicken.syntax#expand in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7229(C_word t0,C_word t1,C_word 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_7229,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7235,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li35),tmp=(C_word)a,a+=6,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7241,a[2]=((C_word*)t0)[4],a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:303: ##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);}} - -/* a7234 in loop in k7213 in chicken.syntax#expand in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7235(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_7235,c,av);} -/* expand.scm:303: ##sys#expand-0 */ -t2=*((C_word*)lf[32]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* a7240 in loop in k7213 in chicken.syntax#expand in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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,2)))){ -C_save_and_reclaim((void *)f_7241,c,av);} -if(C_truep(t3)){ -/* expand.scm:305: loop */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_7229(t4,t1,t2);} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* ##sys#extended-lambda-list? in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=av[2]; -C_word t3; -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_7277,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7283,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( - f_7283(t2) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* loop in ##sys#extended-lambda-list? in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_7283(C_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_eqp(t2,lf[66]); -if(C_truep(t3)){ -if(C_truep(t3)){ -return(C_SCHEME_TRUE);} -else{ -t7=C_u_i_cdr(t1); -t1=t7; -goto loop;}} -else{ -t4=C_eqp(t2,lf[67]); -if(C_truep(t4)){ -if(C_truep(t4)){ -return(C_SCHEME_TRUE);} -else{ -t7=C_u_i_cdr(t1); -t1=t7; -goto loop;}} -else{ -t5=C_eqp(t2,lf[68]); -if(C_truep(t5)){ -return(C_SCHEME_TRUE);} -else{ -t7=C_u_i_cdr(t1); -t1=t7; -goto loop;}}}} -else{ -return(C_SCHEME_FALSE);}} - -/* ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_7324,c,av);} -a=C_alloc(18); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7327,a[2]=t4,a[3]=t2,a[4]=((C_word)li41),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_7344,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:336: macro-alias */ -f_6176(t11,lf[90],*((C_word*)lf[91]+1));} - -/* err in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7327(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_7327,3,t0,t1,t2);} -/* expand.scm:331: 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);}} - -/* k7339 in k7568 in g1320 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7341,c,av);} -/* expand.scm:332: chicken.keyword#string->keyword */ -t2=*((C_word*)lf[76]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7344(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_7344,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7347,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],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* expand.scm:338: macro-alias */ -f_6176(t2,lf[89],*((C_word*)lf[24]+1));} - -/* k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7347(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_7347,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7350,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); -/* expand.scm:339: macro-alias */ -f_6176(t2,lf[88],*((C_word*)lf[24]+1));} - -/* k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7350(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,7)))){ -C_save_and_reclaim((void *)f_7350,c,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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_7355,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],a[9]=t3,a[10]=((C_word*)t0)[8],a[11]=((C_word)li44),tmp=(C_word)a,a+=12,tmp)); -t5=((C_word*)t3)[1]; -f_7355(t5,((C_word*)t0)[9],C_fix(0),C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,((C_word*)t0)[10]);} - -/* loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7355(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_7355,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_7369,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_7617,a[2]=t7,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:348: reverse */ -t9=*((C_word*)lf[71]+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:348: reverse */ -t8=*((C_word*)lf[71]+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:376: err */ -t7=((C_word*)t0)[8]; -f_7327(t7,t1,lf[77]);} -else{ -if(C_truep(((C_word*)((C_word*)t0)[3])[1])){ -t7=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); -/* expand.scm:380: 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_mutate(((C_word *)((C_word*)t0)[3])+1,t6); -t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,t6); -/* expand.scm:380: 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_i_pairp(t6); -if(C_truep(C_i_not(t7))){ -/* expand.scm:382: err */ -t8=((C_word*)t0)[8]; -f_7327(t8,t1,lf[78]);} -else{ -t8=C_i_car(t6); -t9=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_7658,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); -/* expand.scm:385: lookup */ -t11=t9; -f_7658(t11,(C_truep(C_i_not(t10))?( -/* expand.scm:385: lookup */ - f_6159(t8,((C_word*)t0)[10]) -):C_SCHEME_FALSE));} -else{ -t10=t9; -f_7658(t10,C_SCHEME_FALSE);}}}}} - -/* k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7369(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_7369,c,av);} -a=C_alloc(28); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -if(C_truep(C_i_nullp(((C_word*)t0)[7]))){ -t3=t2; -f_7373(t3,((C_word*)t0)[9]);} -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_7513,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word)li42),tmp=(C_word)a,a+=5,tmp); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7573,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[10],a[4]=t2,a[5]=t5,a[6]=t7,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* expand.scm:360: reverse */ -t9=*((C_word*)lf[71]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} - -/* k7371 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7373(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_7373,2,t0,t1);} -a=C_alloc(11); -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -/* expand.scm:347: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -C_values(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7385,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -if(C_truep(C_i_not(((C_word*)((C_word*)t0)[7])[1]))){ -t3=C_i_nullp(((C_word*)t0)[8]); -t4=t2; -f_7385(t4,(C_truep(t3)?C_i_nullp(C_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE));} -else{ -t3=t2; -f_7385(t3,C_SCHEME_FALSE);}}} - -/* k7383 in k7371 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7385(C_word 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_7385,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_i_caar(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7416,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); -/* expand.scm:365: scheme#cadar */ -t4=*((C_word*)lf[70]+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{ -t2=C_i_not(((C_word*)((C_word*)t0)[8])[1]); -t3=(C_truep(t2)?C_i_nullp(((C_word*)t0)[9]):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7441,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:369: reverse */ -t5=*((C_word*)lf[71]+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_7460,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_7464,a[2]=((C_word*)t0)[8],a[3]=t4,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:372: reverse */ -t6=*((C_word*)lf[71]+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);}}}} - -/* k7414 in k7383 in k7371 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7416(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_7416,c,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:347: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[6]; -av2[2]=((C_word*)t0)[7]; -av2[3]=t7; -C_values(4,av2);}} - -/* k7439 in k7383 in k7371 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7441(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_7441,c,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:347: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=t5; -C_values(4,av2);}} - -/* k7458 in k7383 in k7371 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7460(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_7460,c,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:347: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=t5; -C_values(4,av2);}} - -/* k7462 in k7383 in k7371 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_7464,c,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:372: ##sys#append */ -t4=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=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:372: ##sys#append */ -t5=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* g1320 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7513(C_word 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_7513,3,t0,t1,t2);} -a=C_alloc(10); -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7566,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7570,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:356: chicken.syntax#strip-syntax */ -t6=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k7564 in g1320 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7566(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,1)))){ -C_save_and_reclaim((void *)f_7566,c,av);} -a=C_alloc(30); -t2=C_a_i_list(&a,2,lf[73],t1); -t3=((C_word*)((C_word*)t0)[2])[1]; -t4=(C_truep(t3)?t3:((C_word*)((C_word*)t0)[3])[1]); -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){ -t5=C_u_i_cdr(((C_word*)t0)[4]); -t6=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t5); -t7=C_a_i_cons(&a,2,lf[74],t6); -t8=C_a_i_list(&a,1,t7); -t9=C_a_i_cons(&a,2,t4,t8); -t10=C_a_i_cons(&a,2,t2,t9); -t11=C_a_i_cons(&a,2,lf[75],t10); -t12=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t11); -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} -else{ -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_a_i_cons(&a,2,t2,t5); -t7=C_a_i_cons(&a,2,lf[75],t6); -t8=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_list(&a,2,((C_word*)t0)[6],t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} - -/* k7568 in g1320 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7570(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_7570,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7341,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:332: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[40]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[40]+1); -av2[1]=t2; -av2[2]=t1; -tp(3,av2);}} - -/* k7571 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7573(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ -C_save_and_reclaim((void *)f_7573,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7576,a[2]=((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_7578,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)li43),tmp=(C_word)a,a+=7,tmp)); -t6=((C_word*)t4)[1]; -f_7578(t6,t2,t1);} - -/* k7574 in k7571 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7576(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_7576,c,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_7373(t4,C_a_i_list(&a,1,t3));} - -/* map-loop1314 in k7571 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7578(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_7578,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7603,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:353: g1320 */ -t4=((C_word*)t0)[4]; -f_7513(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k7601 in map-loop1314 in k7571 in k7367 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_7603,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_7578(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k7615 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7617(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_7617,c,av);} -/* expand.scm:348: ##sys#append */ -t2=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)((C_word*)t0)[3])[1]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k7656 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7658(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,6)))){ -C_save_and_reclaim_args((void *)trf_7658,2,t0,t1);} -a=C_alloc(13); -t2=(C_truep(t1)?t1:((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=C_eqp(t2,lf[67]); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7671,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]=t3,a[7]=((C_word*)t0)[8],tmp=(C_word)a,a+=8,tmp); -if(C_truep(((C_word*)((C_word*)t0)[9])[1])){ -t6=t5; -f_7671(t6,C_SCHEME_UNDEFINED);} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7687,a[2]=((C_word*)t0)[9],a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:389: macro-alias */ -f_6176(t6,lf[80],((C_word*)t0)[10]);}} -else{ -t5=C_eqp(t2,lf[66]); -if(C_truep(t5)){ -if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[4],C_fix(1)))){ -t6=C_i_pairp(t3); -t7=(C_truep(t6)?C_i_symbolp(C_u_i_car(t3)):C_SCHEME_FALSE); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7708,a[2]=t3,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],tmp=(C_word)a,a+=8,tmp); -if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){ -t9=C_i_car(t3); -t10=C_mutate(((C_word *)((C_word*)t0)[9])+1,t9); -t11=t8; -f_7708(t11,t10);} -else{ -t9=t8; -f_7708(t9,C_SCHEME_UNDEFINED);}} -else{ -/* expand.scm:400: err */ -t8=((C_word*)t0)[8]; -f_7327(t8,((C_word*)t0)[6],lf[81]);}} -else{ -/* expand.scm:401: err */ -t6=((C_word*)t0)[8]; -f_7327(t6,((C_word*)t0)[6],lf[82]);}} -else{ -t6=C_eqp(t2,lf[68]); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7747,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]=t3,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -if(C_truep(C_i_not(((C_word*)((C_word*)t0)[9])[1]))){ -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7766,a[2]=((C_word*)t0)[9],a[3]=t7,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:403: macro-alias */ -f_6176(t8,lf[80],((C_word*)t0)[10]);} -else{ -t8=t7; -f_7747(t8,C_SCHEME_UNDEFINED);}} -else{ -if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ -switch(((C_word*)t0)[4]){ -case C_fix(0): -t7=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[7]); -/* expand.scm:410: loop */ -t8=((C_word*)((C_word*)t0)[5])[1]; -f_7355(t8,((C_word*)t0)[6],C_fix(0),t7,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t3); -case C_fix(1): -t7=C_a_i_list2(&a,2,((C_word*)t0)[2],C_SCHEME_FALSE); -t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[12]); -/* expand.scm:411: loop */ -t9=((C_word*)((C_word*)t0)[5])[1]; -f_7355(t9,((C_word*)t0)[6],C_fix(1),((C_word*)t0)[7],t8,C_SCHEME_END_OF_LIST,t3); -case C_fix(2): -/* expand.scm:412: err */ -t7=((C_word*)t0)[8]; -f_7327(t7,((C_word*)t0)[6],lf[84]); -default: -t7=C_a_i_list1(&a,1,((C_word*)t0)[2]); -t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[13]); -/* expand.scm:413: loop */ -t9=((C_word*)((C_word*)t0)[5])[1]; -f_7355(t9,((C_word*)t0)[6],C_fix(3),((C_word*)t0)[7],((C_word*)t0)[12],t8,t3);}} -else{ -t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_7834,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]=t3,a[10]=((C_word*)t0)[13],tmp=(C_word)a,a+=11,tmp); -if(C_truep(C_i_listp(((C_word*)t0)[2]))){ -t8=C_eqp(C_fix(2),C_u_i_length(((C_word*)t0)[2])); -t9=t7; -f_7834(t9,(C_truep(t8)?C_i_symbolp(C_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE));} -else{ -t8=t7; -f_7834(t8,C_SCHEME_FALSE);}}}}}} - -/* k7669 in k7656 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7671(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_7671,2,t0,t1);} -t2=C_eqp(((C_word*)t0)[2],C_fix(0)); -if(C_truep(t2)){ -/* expand.scm:391: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_7355(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:392: err */ -t3=((C_word*)t0)[7]; -f_7327(t3,((C_word*)t0)[4],lf[79]);}} - -/* k7685 in k7656 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7687,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3]; -f_7671(t3,t2);} - -/* k7706 in k7656 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void 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(0,0,6)))){ -C_save_and_reclaim_args((void *)trf_7708,2,t0,t1);} -t2=C_i_car(((C_word*)t0)[2]); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); -/* expand.scm:399: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_7355(t4,((C_word*)t0)[5],C_fix(2),((C_word*)t0)[6],((C_word*)t0)[7],C_SCHEME_END_OF_LIST,C_u_i_cdr(((C_word*)t0)[2]));} - -/* k7745 in k7656 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7747(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_7747,2,t0,t1);} -if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(2)))){ -/* expand.scm:405: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_7355(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:406: err */ -t2=((C_word*)t0)[8]; -f_7327(t2,((C_word*)t0)[4],lf[83]);}} - -/* k7764 in k7656 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7766(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7766,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3]; -f_7747(t3,t2);} - -/* k7832 in k7656 in loop in k7348 in k7345 in k7342 in ##sys#expand-extended-lambda-list in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_7834(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,6)))){ -C_save_and_reclaim_args((void *)trf_7834,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -switch(((C_word*)t0)[2]){ -case C_fix(0): -/* expand.scm:416: err */ -t2=((C_word*)t0)[3]; -f_7327(t2,((C_word*)t0)[4],lf[85]); -case C_fix(1): -t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); -/* expand.scm:417: loop */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_7355(t3,((C_word*)t0)[4],C_fix(1),((C_word*)t0)[8],t2,C_SCHEME_END_OF_LIST,((C_word*)t0)[9]); -case C_fix(2): -/* expand.scm:418: err */ -t2=((C_word*)t0)[3]; -f_7327(t2,((C_word*)t0)[4],lf[86]); -default: -t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[10]); -/* expand.scm:419: loop */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_7355(t3,((C_word*)t0)[4],C_fix(3),((C_word*)t0)[8],((C_word*)t0)[6],t2,((C_word*)t0)[9]);}} -else{ -/* expand.scm:420: err */ -t2=((C_word*)t0)[3]; -f_7327(t2,((C_word*)t0)[4],lf[87]);}} - -/* ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7933(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_7933,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7939,a[2]=t3,a[3]=t2,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp); -/* expand.scm:438: ##sys#decompose-lambda-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[96]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[96]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -tp(4,av2);}} - -/* a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7939(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(20,c,3)))){ -C_save_and_reclaim((void *)f_7939,c,av);} -a=C_alloc(20); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7943,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_END_OF_LIST; -f_7943(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_i_check_list_2(((C_word*)t0)[3],lf[16]); -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_8075,a[2]=t8,a[3]=t12,a[4]=t9,a[5]=((C_word)li47),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_8075(t14,t5,((C_word*)t0)[3]);}} - -/* k7941 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7943(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_7943,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7946,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_i_not(((C_word*)t0)[6]))){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -f_7946(2,av2);}} -else{ -/* expand.scm:442: chicken.base#gensym */ -t3=*((C_word*)lf[9]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k7944 in k7941 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7946(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ -C_save_and_reclaim((void *)f_7946,c,av);} -a=C_alloc(18); -t2=C_a_i_list(&a,3,lf[74],C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7965,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]=t1,a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* expand.scm:446: scheme#append */ -t4=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k7963 in k7944 in k7941 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_7965,c,av);} -a=C_alloc(24); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7969,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=C_i_check_list_2(((C_word*)t0)[4],lf[16]); -t8=C_i_check_list_2(((C_word*)t0)[5],lf[16]); -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7987,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); -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_8009,a[2]=t5,a[3]=t11,a[4]=t6,a[5]=((C_word)li46),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_8009(t13,t9,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k7967 in k7963 in k7944 in k7941 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_7969(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_7969,c,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[74],t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -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);}} - -/* k7985 in k7963 in k7944 in k7941 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_7987,c,av);} -a=C_alloc(12); -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -/* expand.scm:443: ##sys#append */ -t2=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=lf[94]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ -/* expand.scm:443: ##sys#append */ -t2=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=C_a_i_list(&a,3,lf[95],((C_word*)t0)[5],((C_word*)t0)[4]); -t3=C_a_i_list(&a,1,t2); -/* expand.scm:443: ##sys#append */ -t4=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}} - -/* map-loop1451 in k7963 in k7944 in k7941 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_8009(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_8009,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_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -t15=C_slot(t3,C_fix(1)); -t1=t13; -t2=t14; -t3=t15; -goto loop;} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* map-loop1422 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_8075(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_8075,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8100,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); -/* expand.scm:441: g1428 */ -t4=*((C_word*)lf[9]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k8098 in map-loop1422 in a7938 in ##sys#expand-multiple-values-assignment in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_8100(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_8100,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_8075(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -C_word *a; -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_8113,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_8117,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_nullp(t3))){ -/* expand.scm:463: ##sys#current-environment */ -t5=*((C_word*)lf[3]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_car(t3); -f_8117(2,av2);}}} - -/* k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(41,c,4)))){ -C_save_and_reclaim((void *)f_8117,c,av);} -a=C_alloc(41); -t2=C_i_nullp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); -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_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(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8128,a[2]=t1,a[3]=((C_word)li50),tmp=(C_word)a,a+=4,tmp)); -t27=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8177,a[2]=t1,a[3]=((C_word)li53),tmp=(C_word)a,a+=4,tmp)); -t28=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8252,a[2]=t13,a[3]=t15,a[4]=t17,a[5]=t19,a[6]=t21,a[7]=t25,a[8]=t9,a[9]=t1,a[10]=t5,a[11]=t23,a[12]=((C_word*)t0)[3],a[13]=((C_word*)t0)[4],a[14]=t11,tmp=(C_word)a,a+=15,tmp); -/* expand.scm:481: comp-def */ -t29=((C_word*)t11)[1]; -f_8177(t29,t28,*((C_word*)lf[97]+1));} - -/* comp in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_8128(C_word t0,C_word 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_8128,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=( -/* expand.scm:465: lookup */ - f_6159(t3,((C_word*)t0)[2]) -); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8135,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -t6=t5; -f_8135(t6,t4);} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8175,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:466: ##sys#macro-environment */ -t7=*((C_word*)lf[17]+1);{ -C_word av2[2]; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* k8133 in comp in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_8135(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ -C_save_and_reclaim_args((void *)trf_8135,2,t0,t1);} -a=C_alloc(9); -t2=C_i_symbolp(t1); -t3=C_i_not(t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8144,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(t3)){ -t5=t4; -f_8144(t5,t3);} -else{ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8164,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:468: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[61]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[62]; -tp(4,av2);}}} - -/* k8142 in k8133 in comp in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_8144(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,0,1)))){ -C_save_and_reclaim_args((void *)trf_8144,2,t0,t1);} -if(C_truep(t1)){ -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[3],((C_word*)t0)[5])); -((C_proc)(void*)(*((C_word*)t3+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);}}} - -/* k8162 in k8133 in comp in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,1)))){ -C_save_and_reclaim((void *)f_8164,c,av);} -t2=((C_word*)t0)[2]; -f_8144(t2,C_i_not(C_eqp(t1,lf[60])));} - -/* k8173 in comp in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_8175(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8175,c,av);} -/* expand.scm:466: lookup */ -t2=((C_word*)t0)[2]; -f_8135(t2,( -/* expand.scm:466: lookup */ - f_6159(((C_word*)t0)[3],t1) -));} - -/* comp-def in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_8177(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(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_8177,3,t0,t1,t2);} -a=C_alloc(5); -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8179,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li52),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_8179 in comp-def in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_8179(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_8179,c,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_8185,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=((C_word)li51),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_8185(t6,t1,t2);} - -/* repeat */ -static void f_8185(C_word 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_8185,3,t0,t1,t2);} -a=C_alloc(10); -t3=( -/* expand.scm:473: lookup */ - f_6159(t2,((C_word*)t0)[2]) -); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8192,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -if(C_truep(t3)){ -t5=t4; -f_8192(t5,t3);} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8248,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:474: ##sys#macro-environment */ -t6=*((C_word*)lf[17]+1);{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k8190 in repeat */ -static void f_8192(C_word 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_8192,2,t0,t1);} -a=C_alloc(10); -t2=C_i_symbolp(t1); -t3=C_i_not(t2); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8201,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(t3)){ -t5=t4; -f_8201(t5,t3);} -else{ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8237,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:476: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[61]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[62]; -tp(4,av2);}}} - -/* k8199 in k8190 in repeat */ -static void f_8201(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_8201,2,t0,t1);} -if(C_truep(t1)){ -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -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{ -if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ -t3=C_eqp(((C_word*)t0)[2],((C_word*)t0)[5]); -if(C_truep(C_i_not(t3))){ -/* expand.scm:480: repeat */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_8185(t4,((C_word*)t0)[4],((C_word*)t0)[2]);} -else{ -t4=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t3=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} -else{ -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);}}} - -/* k8235 in k8190 in repeat */ -static void C_ccall f_8237(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8237,c,av);} -t2=((C_word*)t0)[2]; -f_8201(t2,C_i_not(C_eqp(t1,lf[60])));} - -/* k8246 in repeat */ -static void C_ccall f_8248(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8248,c,av);} -/* expand.scm:474: lookup */ -t2=((C_word*)t0)[2]; -f_8192(t2,( -/* expand.scm:474: lookup */ - f_6159(((C_word*)t0)[3],t1) -));} - -/* k8250 in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_8252(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_8252,c,av);} -a=C_alloc(15); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8256,a[2]=((C_word*)t0)[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],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); -/* expand.scm:482: comp-def */ -t4=((C_word*)((C_word*)t0)[14])[1]; -f_8177(t4,t3,*((C_word*)lf[98]+1));} - -/* k8254 in k8250 in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_8256(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_8256,c,av);} -a=C_alloc(15); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8260,a[2]=((C_word*)t0)[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],tmp=(C_word)a,a+=15,tmp); -/* expand.scm:483: comp-def */ -t4=((C_word*)((C_word*)t0)[14])[1]; -f_8177(t4,t3,*((C_word*)lf[99]+1));} - -/* k8258 in k8254 in k8250 in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_8260(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_8260,c,av);} -a=C_alloc(14); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8264,a[2]=((C_word*)t0)[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],tmp=(C_word)a,a+=14,tmp); -/* expand.scm:484: comp-def */ -t4=((C_word*)((C_word*)t0)[14])[1]; -f_8177(t4,t3,lf[100]);} - -/* k8262 in k8258 in k8254 in k8250 in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(27,c,6)))){ -C_save_and_reclaim((void *)f_8264,c,av);} -a=C_alloc(27); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8266,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)li60),tmp=(C_word)a,a+=11,tmp)); -t4=C_mutate(((C_word *)((C_word*)t0)[11])+1,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8703,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[8],a[4]=((C_word)li63),tmp=(C_word)a,a+=5,tmp)); -t5=C_mutate(((C_word *)((C_word*)t0)[4])+1,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8859,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[11],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[10],a[10]=((C_word)li66),tmp=(C_word)a,a+=11,tmp)); -/* expand.scm:633: expand */ -t6=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[12]; -av2[2]=((C_word*)t0)[13]; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* f_8266 in k8262 in k8258 in k8254 in k8250 in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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(14,c,4)))){ -C_save_and_reclaim((void *)f_8266,c,av);} -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|11,a[1]=(C_word)f_8278,a[2]=t9,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)li55),tmp=(C_word)a,a+=12,tmp)); -t11=((C_word*)t9)[1]; -f_8278(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_8531,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:540: scheme#reverse */ -t13=*((C_word*)lf[71]+1);{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t12; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}} - -/* loop */ -static void f_8278(C_word t0,C_word t1,C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_8278,4,t0,t1,t2,t3);} -a=C_alloc(16); -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8292,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:492: scheme#reverse */ -t6=*((C_word*)lf[71]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8297,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]=t6,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)li54),tmp=(C_word)a,a+=14,tmp)); -t8=((C_word*)t6)[1]; -f_8297(t8,t1,t2);}} - -/* k8290 in loop */ -static void C_ccall f_8292(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8292,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop2 in loop */ -static void f_8297(C_word t0,C_word t1,C_word 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(22,0,3)))){ -C_save_and_reclaim_args((void *)trf_8297,3,t0,t1,t2);} -a=C_alloc(22); -t3=C_i_car(t2); -t4=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8308,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t4,a[7]=((C_word*)t0)[4],a[8]=t2,a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],a[12]=((C_word*)t0)[8],a[13]=((C_word*)t0)[9],tmp=(C_word)a,a+=14,tmp); -if(C_truep(C_i_pairp(t3))){ -t6=C_u_i_car(t3); -if(C_truep(C_i_symbolp(t6))){ -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8469,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=t6,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); -/* expand.scm:499: comp */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_8128(t8,t7,lf[102],t6);} -else{ -t7=t5;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -f_8308(2,av2);}}} -else{ -t6=t5;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_8308(2,av2);}}} - -/* k8306 in loop2 in loop */ -static void C_ccall f_8308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_8308,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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); -/* expand.scm:505: comp-import */ -t3=((C_word*)((C_word*)t0)[9])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_car(((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8347,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[10],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[11],tmp=(C_word)a,a+=9,tmp); -/* expand.scm:510: ##sys#expand-0 */ -t3=*((C_word*)lf[32]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[12]; -av2[4]=((C_word*)t0)[13]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k8312 in k8306 in loop2 in loop */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_8314,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -/* expand.scm:506: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_8278(t3,((C_word*)t0)[5],((C_word*)t0)[6],t2);} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8328,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8332,a[2]=t2,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:509: scheme#reverse */ -t4=*((C_word*)lf[71]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k8326 in k8312 in k8306 in loop2 in loop */ -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_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8328,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8330 in k8312 in k8306 in loop2 in loop */ -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(4,c,2)))){ -C_save_and_reclaim((void *)f_8332,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8340,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:509: expand */ -t3=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k8338 in k8330 in k8312 in k8306 in loop2 in loop */ -static void C_ccall f_8340(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_8340,c,av);} -a=C_alloc(3); -t2=C_a_i_list1(&a,1,t1); -/* expand.scm:509: ##sys#append */ -t3=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k8345 in k8306 in loop2 in loop */ -static void C_ccall f_8347(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ -C_save_and_reclaim((void *)f_8347,c,av);} -a=C_alloc(13); -t2=C_eqp(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8359,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -if(C_truep(C_i_symbolp(C_u_i_car(((C_word*)t0)[2])))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8437,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:517: comp */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_8128(t5,t4,lf[104],C_u_i_car(((C_word*)t0)[2]));} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_8359(2,av2);}}} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_8359(2,av2);}}} -else{ -t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); -/* expand.scm:527: loop2 */ -t4=((C_word*)((C_word*)t0)[8])[1]; -f_8297(t4,((C_word*)t0)[3],t3);}} - -/* k8357 in k8345 in k8306 in loop2 in loop */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_8359,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8366,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8370,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); -/* expand.scm:520: scheme#reverse */ -t4=*((C_word*)lf[71]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[6]); -/* expand.scm:526: loop */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_8278(t3,((C_word*)t0)[2],((C_word*)t0)[3],t2);}} - -/* k8364 in k8357 in k8345 in k8306 in loop2 in loop */ -static void C_ccall f_8366(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8366,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[102],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8368 in k8357 in k8345 in k8306 in loop2 in loop */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_8370,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8377,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); -/* expand.scm:521: comp */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_8128(t3,t2,lf[104],C_i_car(((C_word*)t0)[3]));} - -/* k8375 in k8368 in k8357 in k8345 in k8306 in loop2 in loop */ -static void C_ccall f_8377(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8377,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -t2=C_a_i_list(&a,1,((C_word*)t0)[3]); -/* expand.scm:519: ##sys#append */ -t3=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,lf[50],t2); -t4=C_a_i_list(&a,2,((C_word*)t0)[3],t3); -/* expand.scm:519: ##sys#append */ -t5=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8408,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=C_a_i_list(&a,1,((C_word*)t0)[2]); -/* expand.scm:525: ##sys#append */ -t5=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k8406 in k8375 in k8368 in k8357 in k8345 in k8306 in loop2 in loop */ -static void C_ccall f_8408(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_8408,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,lf[103],t1); -t3=C_a_i_list(&a,1,t2); -/* expand.scm:519: ##sys#append */ -t4=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k8435 in k8345 in k8306 in loop2 in loop */ -static void C_ccall f_8437(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8437,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_8359(2,av2);}} -else{ -/* expand.scm:518: comp */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_8128(t2,((C_word*)t0)[2],lf[103],C_u_i_car(((C_word*)t0)[4]));}} - -/* k8467 in loop2 in loop */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_8469,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_8308(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8475,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:500: comp-define */ -t3=((C_word*)((C_word*)t0)[7])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} - -/* k8473 in k8467 in loop2 in loop */ -static void C_ccall f_8475(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_8475,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_8308(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8481,a[2]=((C_word*)t0)[2],a[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:501: comp-define-values */ -t3=((C_word*)((C_word*)t0)[6])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} - -/* k8479 in k8473 in k8467 in loop2 in loop */ -static void C_ccall f_8481(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_8481,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_8308(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8487,a[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:502: comp-define-syntax */ -t3=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} - -/* k8485 in k8479 in k8473 in k8467 in loop2 in loop */ -static void C_ccall f_8487(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8487,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_8308(2,av2);}} -else{ -/* expand.scm:503: comp-import */ -t2=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}} - -/* k8523 in foldl1630 in k8529 */ -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,3)))){ -C_save_and_reclaim((void *)f_8525,c,av);} -/* expand.scm:537: ##sys#append */ -t2=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a8526 in foldl1630 in k8529 */ -static void C_ccall f_8527(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_8527,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k8529 */ -static void C_ccall f_8531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ -C_save_and_reclaim((void *)f_8531,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8534,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_8673,a[2]=t4,a[3]=((C_word)li59),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_8673(t6,t2,t1,C_SCHEME_END_OF_LIST);} - -/* k8532 in k8529 */ -static void C_ccall f_8534(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ -C_save_and_reclaim((void *)f_8534,c,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_8540,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_8639,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word)li57),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_8639(t7,t3,t1);} - -/* k8538 in k8532 in k8529 */ -static void C_ccall f_8540(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_8540,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8544,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8566,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=t6,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -/* expand.scm:548: scheme#reverse */ -t8=*((C_word*)lf[71]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} - -/* k8542 in k8538 in k8532 in k8529 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_8544,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[50],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k8564 in k8538 in k8532 in k8529 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_8566,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8569,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -/* expand.scm:549: scheme#reverse */ -t3=*((C_word*)lf[71]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8567 in k8564 in k8538 in k8532 in k8529 */ -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(8,c,2)))){ -C_save_and_reclaim((void *)f_8569,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8572,a[2]=((C_word*)t0)[2],a[3]=((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); -/* expand.scm:550: scheme#reverse */ -t3=*((C_word*)lf[71]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8570 in k8567 in k8564 in k8538 in k8532 in k8529 */ -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; -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_8572,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8575,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_8577,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_8577(t6,t2,((C_word*)t0)[6],((C_word*)t0)[7],t1);} - -/* k8573 in k8570 in k8567 in k8564 in k8538 in k8532 in k8529 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8575,c,av);} -/* expand.scm:532: ##sys#append */ -t2=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop1654 in k8570 in k8567 in k8564 in k8538 in k8532 in k8529 */ -static void f_8577(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_8577,5,t0,t1,t2,t3,t4);} -a=C_alloc(9); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8584,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=t4,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_8584(t7,(C_truep(t6)?C_i_pairp(t4):C_SCHEME_FALSE));} -else{ -t6=t5; -f_8584(t6,C_SCHEME_FALSE);}} - -/* k8582 in map-loop1654 in k8570 in k8567 in k8564 in k8538 in k8532 in k8529 */ -static void f_8584(C_word 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_8584,2,t0,t1);} -a=C_alloc(17); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8610,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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)); -t4=C_slot(((C_word*)t0)[6],C_fix(0)); -if(C_truep(C_slot(((C_word*)t0)[7],C_fix(0)))){ -/* expand.scm:546: ##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_8610(2,av2);}}} -else{ -t2=((C_word*)t0)[4];{ -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);}}} - -/* k8608 in k8582 in map-loop1654 in k8570 in k8567 in k8564 in k8538 in k8532 in k8529 */ -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; -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_8610,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_8577(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),C_slot(((C_word*)t0)[6],C_fix(1)),C_slot(((C_word*)t0)[7],C_fix(1)));} - -/* map-loop1606 in k8532 in k8529 */ -static void f_8639(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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_8639,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_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* foldl1630 in k8529 */ -static void f_8673(C_word t0,C_word t1,C_word t2,C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_8673,4,t0,t1,t2,t3);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t4=C_slot(t2,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8691,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(0)); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8525,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8527,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:537: ##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]=t7; -av2[2]=t6; -av2[3]=t8; -tp(4,av2);}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k8689 in foldl1630 in k8529 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8691,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8673(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* f_8703 in k8262 in k8258 in k8254 in k8250 in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_8703(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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(14,c,5)))){ -C_save_and_reclaim((void *)f_8703,c,av);} -a=C_alloc(14); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8711,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_8713,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=((C_word)li62),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_8713(t10,t6,t5,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} - -/* k8709 */ -static void C_ccall f_8711(C_word c,C_word *av){ -C_word tmp; -C_word 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_8711,c,av);} -/* expand.scm:555: fini */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=t1; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} - -/* loop */ -static void f_8713(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_8713,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_8735,a[2]=t2,a[3]=t1,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:559: scheme#reverse */ -t10=*((C_word*)lf[71]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} -else{ -t5=C_i_pairp(t2); -if(C_truep(C_i_not(t5))){ -/* expand.scm:560: loop */ -t12=t1; -t13=t2; -t14=t3; -t15=C_SCHEME_TRUE; -t1=t12; -t2=t13; -t3=t14; -t4=t15; -goto loop;} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8787,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -t7=C_i_car(t2); -if(C_truep(C_i_listp(t7))){ -t8=C_i_length(C_u_i_car(t2)); -if(C_truep(C_fixnum_greater_or_equal_p(C_fix(3),t8))){ -t9=C_i_caar(t2); -if(C_truep(C_i_symbolp(t9))){ -t10=C_u_i_car(t2); -/* expand.scm:564: comp-define-syntax */ -t11=((C_word*)((C_word*)t0)[3])[1];{ -C_word av2[3]; -av2[0]=t11; -av2[1]=t6; -av2[2]=C_u_i_car(t10); -((C_proc)C_fast_retrieve_proc(t11))(3,av2);}} -else{ -t10=t6;{ -C_word av2[2]; -av2[0]=t10; -av2[1]=C_SCHEME_FALSE; -f_8787(2,av2);}}} -else{ -t9=t6;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=C_SCHEME_FALSE; -f_8787(2,av2);}}} -else{ -t8=t6;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_FALSE; -f_8787(2,av2);}}}}} - -/* k8733 in loop */ -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(12,c,3)))){ -C_save_and_reclaim((void *)f_8735,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8738,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_8740,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=((C_word)li61),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_8740(t6,t2,t1);} - -/* k8736 in k8733 in loop */ -static void C_ccall f_8738(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_8738,c,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; -av2[0]=t4; -av2[1]=C_a_i_list(&a,1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* map-loop1714 in k8733 in loop */ -static void f_8740(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_8740,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cdr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k8785 in loop */ -static void C_ccall f_8787(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_8787,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=C_u_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8791,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_i_car(t2); -t5=C_i_cadr(t2); -t6=C_eqp(t4,t5); -if(C_truep(t6)){ -/* expand.scm:428: ##sys#syntax-error */ -t7=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t7; -av2[1]=t3; -av2[2]=lf[107]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -t7=C_u_i_cdr(((C_word*)t0)[2]); -t8=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -/* expand.scm:570: loop */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_8713(t9,((C_word*)t0)[5],t7,t8,C_SCHEME_FALSE);}} -else{ -/* expand.scm:571: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_8713(t2,((C_word*)t0)[5],((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_TRUE);}} - -/* k8789 in k8785 in loop */ -static void C_ccall f_8791(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_8791,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -/* expand.scm:570: loop */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_8713(t4,((C_word*)t0)[6],t2,t3,C_SCHEME_FALSE);} - -/* f_8859 in k8262 in k8258 in k8254 in k8250 in k8115 in ##sys#canonicalize-body in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(14,c,6)))){ -C_save_and_reclaim((void *)f_8859,c,av);} -a=C_alloc(14); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8865,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word)li65),tmp=(C_word)a,a+=12,tmp)); -t6=((C_word*)t4)[1]; -f_8865(t6,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} - -/* loop */ -static void f_8865(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(18,0,5)))){ -C_save_and_reclaim_args((void *)trf_8865,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(18); -t6=C_i_pairp(t2); -if(C_truep(C_i_not(t6))){ -/* expand.scm:580: fini */ -t7=((C_word*)((C_word*)t0)[2])[1];{ -C_word av2[6]; -av2[0]=t7; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -av2[4]=t5; -av2[5]=t2; -((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} -else{ -t7=C_i_car(t2); -t8=C_u_i_cdr(t2); -t9=C_i_pairp(t7); -t10=(C_truep(t9)?C_u_i_car(t7):C_SCHEME_FALSE); -t11=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8888,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t2,a[8]=((C_word*)t0)[3],a[9]=t8,a[10]=((C_word*)t0)[4],a[11]=t7,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],a[17]=((C_word*)t0)[10],tmp=(C_word)a,a+=18,tmp); -if(C_truep(t10)){ -t12=C_i_symbolp(t10); -t13=t11; -f_8888(t13,(C_truep(t12)?t10:C_SCHEME_FALSE));} -else{ -t12=t11; -f_8888(t12,C_SCHEME_FALSE);}}} - -/* k8886 in loop */ -static void f_8888(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,5)))){ -C_save_and_reclaim_args((void *)trf_8888,2,t0,t1);} -a=C_alloc(18); -t2=C_i_symbolp(t1); -if(C_truep(C_i_not(t2))){ -/* expand.scm:586: fini */ -t3=((C_word*)((C_word*)t0)[2])[1];{ -C_word av2[6]; -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_8903,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],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)[3],a[9]=((C_word*)t0)[11],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[7],a[12]=t1,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],tmp=(C_word)a,a+=18,tmp); -/* expand.scm:588: comp-define */ -t4=((C_word*)((C_word*)t0)[17])[1];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} - -/* k8901 in k8886 in loop */ -static void C_ccall f_8903(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,6)))){ -C_save_and_reclaim((void *)f_8903,c,av);} -a=C_alloc(17); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8906,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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); -/* expand.scm:589: ##sys#check-syntax */ -t3=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[109]; -av2[3]=((C_word*)t0)[9]; -av2[4]=lf[114]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_9040,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[12],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); -/* expand.scm:615: comp-define-syntax */ -t3=((C_word*)((C_word*)t0)[17])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[12]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} - -/* k8904 in k8901 in k8886 in loop */ -static void C_ccall f_8906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8906,c,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_8911,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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)li64),tmp=(C_word)a,a+=10,tmp)); -t5=((C_word*)t3)[1]; -f_8911(t5,((C_word*)t0)[8],((C_word*)t0)[9]);} - -/* loop2 in k8904 in k8901 in k8886 in loop */ -static void f_8911(C_word t0,C_word 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_8911,3,t0,t1,t2);} -a=C_alloc(10); -t3=C_i_cadr(t2); -t4=C_i_pairp(t3); -if(C_truep(C_i_not(t4))){ -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8924,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); -/* expand.scm:593: ##sys#check-syntax */ -t6=*((C_word*)lf[54]+1);{ -C_word av2[7]; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[109]; -av2[3]=t2; -av2[4]=lf[110]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}} -else{ -t5=C_i_car(t3); -if(C_truep(C_i_pairp(t5))){ -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8977,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t3,a[5]=t2,a[6]=((C_word*)t0)[7],tmp=(C_word)a,a+=7,tmp); -/* expand.scm:603: ##sys#check-syntax */ -t7=*((C_word*)lf[54]+1);{ -C_word av2[7]; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[109]; -av2[3]=t2; -av2[4]=lf[112]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8991,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); -/* expand.scm:608: ##sys#check-syntax */ -t7=*((C_word*)lf[54]+1);{ -C_word av2[7]; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[109]; -av2[3]=t2; -av2[4]=lf[113]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t7+1)))(7,av2);}}}} - -/* k8922 in loop2 in k8904 in k8901 in k8886 in loop */ -static void C_ccall f_8924(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_8924,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8927,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_eqp(C_u_i_car(((C_word*)t0)[4]),((C_word*)t0)[2]); -if(C_truep(t3)){ -/* expand.scm:428: ##sys#syntax-error */ -t4=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[107]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_8927(2,av2);}}} - -/* k8925 in k8922 in loop2 in k8904 in k8901 in k8886 in loop */ -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 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_8927,c,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:596: loop */ -t8=((C_word*)((C_word*)t0)[7])[1]; -f_8865(t8,((C_word*)t0)[8],((C_word*)t0)[9],t3,t6,t7);} -else{ -t5=C_a_i_cons(&a,2,lf[108],((C_word*)t0)[5]); -t6=C_a_i_cons(&a,2,C_SCHEME_FALSE,((C_word*)t0)[6]); -/* expand.scm:596: loop */ -t7=((C_word*)((C_word*)t0)[7])[1]; -f_8865(t7,((C_word*)t0)[8],((C_word*)t0)[9],t3,t5,t6);}} - -/* k8975 in loop2 in k8904 in k8901 in k8886 in loop */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_8977,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8984,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:606: chicken.syntax#expand-curried-define */ -t3=*((C_word*)lf[111]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_i_cddr(((C_word*)t0)[5]); -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k8982 in k8975 in loop2 in k8904 in k8901 in k8886 in loop */ -static void C_ccall f_8984(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8984,c,av);} -/* expand.scm:605: loop2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8911(t2,((C_word*)t0)[3],t1);} - -/* k8989 in loop2 in k8904 in k8901 in k8886 in loop */ -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 t6; -C_word 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_8991,c,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[74],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:611: loop */ -t11=((C_word*)((C_word*)t0)[7])[1]; -f_8865(t11,((C_word*)t0)[8],((C_word*)t0)[9],t4,t9,t10);} - -/* k9038 in k8901 in k8886 in loop */ -static void C_ccall f_9040(C_word c,C_word *av){ -C_word tmp; -C_word t0=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,5)))){ -C_save_and_reclaim((void *)f_9040,c,av);} -a=C_alloc(15); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9043,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:616: ##sys#check-syntax */ -t3=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[115]; -av2[3]=((C_word*)t0)[8]; -av2[4]=lf[116]; -av2[5]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_9052,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[11],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[12],a[11]=((C_word*)t0)[13],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[14],a[14]=((C_word*)t0)[15],tmp=(C_word)a,a+=15,tmp); -/* expand.scm:618: comp-define-values */ -t3=((C_word*)((C_word*)t0)[16])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[12]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}}} - -/* k9041 in k9038 in k8901 in k8886 in loop */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_9043,c,av);} -/* expand.scm:617: fini/syntax */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}} - -/* k9050 in k9038 in k8901 in k8886 in loop */ -static void C_ccall f_9052(C_word c,C_word *av){ -C_word tmp; -C_word t0=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,6)))){ -C_save_and_reclaim((void *)f_9052,c,av);} -a=C_alloc(14); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|8,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]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -/* expand.scm:620: ##sys#check-syntax */ -t3=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[117]; -av2[3]=((C_word*)t0)[2]; -av2[4]=lf[118]; -av2[5]=C_SCHEME_FALSE; -av2[6]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t3+1)))(7,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9084,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[13],tmp=(C_word)a,a+=14,tmp); -/* expand.scm:622: comp */ -t3=((C_word*)((C_word*)t0)[14])[1]; -f_8128(t3,t2,lf[102],((C_word*)t0)[10]);}} - -/* k9053 in k9050 in k9038 in k8901 in k8886 in loop */ -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 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_9055,c,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:621: loop */ -t7=((C_word*)((C_word*)t0)[6])[1]; -f_8865(t7,((C_word*)t0)[7],((C_word*)t0)[8],t3,t5,t6);} - -/* k9082 in k9050 in k9038 in k8901 in k8886 in loop */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ -C_save_and_reclaim((void *)f_9084,c,av);} -a=C_alloc(14); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9091,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:623: ##sys#append */ -t3=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cdr(((C_word*)t0)[7]); -av2[3]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t2=C_a_i_list1(&a,1,((C_word*)t0)[9]); -if(C_truep(C_i_member(t2,((C_word*)t0)[4]))){ -/* expand.scm:628: fini */ -t3=((C_word*)((C_word*)t0)[10])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[11]; -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9107,a[2]=((C_word*)t0)[7],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)[11],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[2],tmp=(C_word)a,a+=11,tmp); -/* expand.scm:629: ##sys#expand-0 */ -t4=*((C_word*)lf[32]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[12]; -av2[4]=((C_word*)t0)[13]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}}} - -/* k9089 in k9082 in k9050 in k9038 in k8901 in k8886 in loop */ -static void C_ccall f_9091(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_9091,c,av);} -/* expand.scm:623: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8865(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k9105 in k9082 in k9050 in k9038 in k8901 in k8886 in loop */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_9107,c,av);} -a=C_alloc(3); -t2=C_eqp(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -/* expand.scm:631: fini */ -t3=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -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]; -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} -else{ -t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[9]); -/* expand.scm:632: loop */ -t4=((C_word*)((C_word*)t0)[10])[1]; -f_8865(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} - -/* chicken.syntax#match-expression in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9177(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ -C_save_and_reclaim((void *)f_9177,c,av);} -a=C_alloc(14); -t5=C_SCHEME_END_OF_LIST; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_SCHEME_UNDEFINED; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9180,a[2]=t6,a[3]=t4,a[4]=t8,a[5]=((C_word)li69),tmp=(C_word)a,a+=6,tmp)); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9257,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:653: mwalk */ -t11=((C_word*)t8)[1]; -f_9180(t11,t10,t2,t3);} - -/* mwalk in chicken.syntax#match-expression in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9180(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -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_9180,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=C_i_pairp(t3); -if(C_truep(C_i_not(t4))){ -t5=C_i_assq(t3,((C_word*)((C_word*)t0)[2])[1]); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9194,a[2]=t2,a[3]=((C_word)li68),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:644: g1811 */ -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=( -/* expand.scm:644: g1811 */ - f_9194(t6,t5) -); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -if(C_truep(C_i_memq(t3,((C_word*)t0)[3]))){ -t6=C_a_i_cons(&a,2,t3,t2); -t7=C_a_i_cons(&a,2,t6,((C_word*)((C_word*)t0)[2])[1]); -t8=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_eqp(t2,t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} -else{ -if(C_truep(C_i_pairp(t2))){ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9234,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* expand.scm:650: mwalk */ -t10=t5; -t11=C_u_i_car(t2); -t12=C_i_car(t3); -t1=t10; -t2=t11; -t3=t12; -goto loop;} -else{ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}}} - -/* g1811 in mwalk in chicken.syntax#match-expression in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_9194(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_equalp(((C_word*)t0)[2],C_i_cdr(t1)));} - -/* k9232 in mwalk in chicken.syntax#match-expression in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(0,c,3)))){ -C_save_and_reclaim((void *)f_9234,c,av);} -if(C_truep(t1)){ -/* expand.scm:651: mwalk */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9180(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k9255 in chicken.syntax#match-expression in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9257(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_9257,c,av);} -if(C_truep(t1)){ -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.syntax#expand-curried-define in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9259(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_9259,c,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_9262,a[2]=t6,a[3]=t8,a[4]=((C_word)li71),tmp=(C_word)a,a+=5,tmp)); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9306,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:667: loop */ -t11=((C_word*)t8)[1]; -f_9262(t11,t10,t2,t3);} - -/* loop in chicken.syntax#expand-curried-define in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9262(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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_9262,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_i_car(t2); -if(C_truep(C_i_symbolp(t4))){ -t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_u_i_car(t2)); -t6=C_u_i_cdr(t2); -t7=C_a_i_cons(&a,2,t6,t3); -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_a_i_cons(&a,2,lf[74],t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t5=C_u_i_car(t2); -t6=C_u_i_cdr(t2); -t7=C_a_i_cons(&a,2,t6,t3); -t8=C_a_i_cons(&a,2,lf[74],t7); -t9=C_a_i_list(&a,1,t8); -/* expand.scm:666: loop */ -t11=t1; -t12=t5; -t13=t9; -t1=t11; -t2=t12; -t3=t13; -goto loop;}} - -/* k9304 in chicken.syntax#expand-curried-define in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9306(C_word c,C_word *av){ -C_word tmp; -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_9306,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list3(&a,3,lf[109],((C_word*)((C_word*)t0)[3])[1],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#syntax-error-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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((c-2)*C_SIZEOF_PAIR +3,c,2)))){ -C_save_and_reclaim((void*)f_9314,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_9322,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:683: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k9320 in ##sys#syntax-error-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9322,c,av);}{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[124]+1); -av2[3]=lf[125]; -av2[4]=t1; -C_apply(5,av2);}} - -/* ##sys#syntax-error in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9324(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,3)))){ -C_save_and_reclaim((void*)f_9324,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 >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[123]+1); -av2[3]=t2; -C_apply(4,av2);}} - -/* ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_9330,c,av);} -a=C_alloc(5); -if(C_truep(C_i_nullp(*((C_word*)lf[122]+1)))){ -/* expand.scm:697: ##sys#syntax-error-hook */ -t4=*((C_word*)lf[123]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9397,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:698: scheme#open-output-string */ -t5=*((C_word*)lf[144]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k9339 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(6,c,3)))){ -C_save_and_reclaim((void *)f_9341,c,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_9346,a[2]=t4,a[3]=((C_word)li77),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_9346(t6,((C_word*)t0)[2],t2);} - -/* loop in k9339 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9346(C_word t0,C_word t1,C_word 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_9346,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[142],t3); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9366,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:694: scheme#cadar */ -t6=*((C_word*)lf[70]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -/* expand.scm:695: loop */ -t7=t1; -t8=C_u_i_cdr(t2); -t1=t7; -t2=t8; -goto loop;}}} - -/* k9364 in loop in k9339 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_9366,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9370,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:694: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_9346(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));} - -/* k9368 in k9364 in loop in k9339 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_9370,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9383 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9385(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9385,c,av);} -/* expand.scm:691: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[61]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[61]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[143]; -tp(4,av2);}} - -/* k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9397(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9397,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9399,a[2]=t1,a[3]=((C_word)li75),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9406,a[2]=((C_word*)t0)[2],a[3]=t1,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_9415,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word)li78),tmp=(C_word)a,a+=8,tmp)); -t7=((C_word*)t5)[1]; -f_9415(t7,t3,*((C_word*)lf[122]+1));} - -/* outstr in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9399(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_9399,3,t0,t1,t2);} -/* expand.scm:700: ##sys#print */ -t3=*((C_word*)lf[127]+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);}} - -/* k9404 in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9406(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_9406,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9413,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* expand.scm:735: scheme#get-output-string */ -t3=*((C_word*)lf[128]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k9411 in k9404 in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9413,c,av);} -/* expand.scm:735: ##sys#syntax-error-hook */ -t2=*((C_word*)lf[123]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9415(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_9415,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_9425,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:703: outstr */ -t4=((C_word*)t0)[2]; -f_9399(t4,t3,((C_word*)t0)[5]);} -else{ -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9451,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t2,tmp=(C_word)a,a+=9,tmp); -/* expand.scm:710: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k9423 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_9425,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); -/* expand.scm:704: outstr */ -t3=((C_word*)t0)[2]; -f_9399(t3,t2,lf[131]);} - -/* k9426 in k9423 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(5,c,4)))){ -C_save_and_reclaim((void *)f_9428,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9431,a[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:705: ##sys#print */ -t3=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k9429 in k9426 in k9423 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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(5,c,2)))){ -C_save_and_reclaim((void *)f_9431,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9434,a[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:706: outstr */ -t3=((C_word*)t0)[2]; -f_9399(t3,t2,lf[130]);} - -/* k9432 in k9429 in k9426 in k9423 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9434(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_9434,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9437,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_9444,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:707: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_car(*((C_word*)lf[122]+1)); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k9435 in k9432 in k9429 in k9426 in k9423 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9437,c,av);} -/* expand.scm:708: outstr */ -t2=((C_word*)t0)[2]; -f_9399(t2,((C_word*)t0)[3],lf[129]);} - -/* k9442 in k9432 in k9429 in k9426 in k9423 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,4)))){ -C_save_and_reclaim((void *)f_9444,c,av);} -/* expand.scm:707: ##sys#print */ -t2=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9451(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_9451,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_9454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9341,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9385,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:691: chicken.syntax#strip-syntax */ -t5=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_9454,c,av);} -a=C_alloc(8); -if(C_truep(C_i_pairp(t1))){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9463,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); -/* expand.scm:713: outstr */ -t3=((C_word*)t0)[2]; -f_9399(t3,t2,((C_word*)t0)[7]);} -else{ -/* expand.scm:734: loop */ -t2=((C_word*)((C_word*)t0)[8])[1]; -f_9415(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[9]));}} - -/* k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_9463,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9466,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:714: outstr */ -t3=((C_word*)t0)[3]; -f_9399(t3,t2,lf[141]);} - -/* k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_9466,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9469,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:715: ##sys#print */ -t3=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9469(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_9469,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); -/* expand.scm:716: outstr */ -t3=((C_word*)t0)[3]; -f_9399(t3,t2,lf[140]);} - -/* k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_9472,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9475,a[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:717: ##sys#print */ -t3=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9475(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_9475,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9478,a[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:718: outstr */ -t3=((C_word*)t0)[3]; -f_9399(t3,t2,lf[139]);} - -/* k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ -C_save_and_reclaim((void *)f_9478,c,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_9491,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_9495,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:723: scheme#symbol->string */ -t6=*((C_word*)lf[134]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9506,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_9510,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_9512,a[2]=t7,a[3]=((C_word)li76),tmp=(C_word)a,a+=4,tmp)); -t9=((C_word*)t7)[1]; -f_9512(t9,t5,((C_word*)t0)[2]);}} - -/* k9489 in k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9491(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9491,c,av);} -/* expand.scm:720: outstr */ -t2=((C_word*)t0)[2]; -f_9399(t2,((C_word*)t0)[3],t1);} - -/* k9493 in k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9495(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9495,c,av);} -/* expand.scm:721: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[132]; -av2[3]=t1; -av2[4]=lf[133]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k9504 in k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,2)))){ -C_save_and_reclaim((void *)f_9506,c,av);} -/* expand.scm:725: outstr */ -t2=((C_word*)t0)[2]; -f_9399(t2,((C_word*)t0)[3],t1);} - -/* k9508 in k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9510(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9510,c,av);} -/* expand.scm:726: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[135]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* loop in k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9512(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_9512,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[136]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9526,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:732: scheme#symbol->string */ -t4=*((C_word*)lf[134]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k9524 in loop in k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9526(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_9526,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9530,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:733: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_9512(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));} - -/* k9528 in k9524 in loop in k9476 in k9473 in k9470 in k9467 in k9464 in k9461 in k9452 in k9449 in loop in k9395 in ##sys#syntax-error/context in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9530(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_9530,c,av);} -/* expand.scm:731: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[137]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[138]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* chicken.syntax#assq/drop-bwp! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9557(C_word 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_9557,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_9563,a[2]=t2,a[3]=t5,a[4]=((C_word)li80),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_9563(t7,t1,t3,C_SCHEME_FALSE);} - -/* lp in chicken.syntax#assq/drop-bwp! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9563(C_word t0,C_word t1,C_word 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_9563,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_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_caar(t2); -t5=C_eqp(((C_word*)t0)[2],t4); -if(C_truep(t5)){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_u_i_car(t2); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9583,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t3)){ -t7=C_u_i_car(t2); -t8=t6; -f_9583(t8,C_bwpp(C_u_i_car(t7)));} -else{ -t7=t6; -f_9583(t7,C_SCHEME_FALSE);}}}} - -/* k9581 in lp in chicken.syntax#assq/drop-bwp! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9583(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_9583,2,t0,t1);} -if(C_truep(t1)){ -t2=C_i_set_cdr(((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3])); -/* expand.scm:750: lp */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_9563(t3,((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]),((C_word*)t0)[2]);} -else{ -/* expand.scm:751: lp */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_9563(t2,((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]),((C_word*)t0)[3]);}} - -/* chicken.syntax#read-with-source-info-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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,3)))){ -C_save_and_reclaim((void *)f_9607,c,av);} -a=C_alloc(9); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9611,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t6=C_eqp(lf[147],t2); -t7=(C_truep(t6)?C_i_symbolp(C_i_car(t3)):C_SCHEME_FALSE); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9617,a[2]=t3,a[3]=t5,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:755: chicken.internal#hash-table-ref */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[152]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[152]+1); -av2[1]=t8; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=C_i_car(t3); -tp(4,av2);}} -else{ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} - -/* k9609 in chicken.syntax#read-with-source-info-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,1)))){ -C_save_and_reclaim((void *)f_9611,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k9615 in chicken.syntax#read-with-source-info-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_9617,c,av);} -a=C_alloc(6); -t2=(C_truep(t1)?t1:C_SCHEME_END_OF_LIST); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9623,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:756: assq/drop-bwp! */ -f_9557(t3,C_u_i_car(((C_word*)t0)[2]),t2);} - -/* k9621 in k9615 in chicken.syntax#read-with-source-info-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9623(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_9623,c,av);} -a=C_alloc(6); -t2=C_u_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9636,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*)lf[2]+1); -if(C_truep(*((C_word*)lf[2]+1))){ -t5=*((C_word*)lf[2]+1); -t6=*((C_word*)lf[2]+1); -/* expand.scm:761: chicken.string#conc */ -t7=*((C_word*)lf[149]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t3; -av2[2]=*((C_word*)lf[2]+1); -av2[3]=lf[150]; -av2[4]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -/* expand.scm:761: chicken.string#conc */ -t5=*((C_word*)lf[149]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[151]; -av2[3]=lf[150]; -av2[4]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* k9634 in k9621 in k9615 in chicken.syntax#read-with-source-info-hook in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9636(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_9636,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,C_a_i_weak_cons(&a,2,((C_word*)t0)[2],t1),((C_word*)t0)[3]); -/* expand.scm:757: chicken.internal#hash-table-set! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[148]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[148]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=((C_word*)t0)[5]; -av2[4]=t2; -tp(5,av2);}} - -/* chicken.syntax#read-with-source-info in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_9658,c,av);} -a=C_alloc(4); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?*((C_word*)lf[154]+1):C_get_rest_arg(c,2,av,2,t0)); -if(C_truep(*((C_word*)lf[120]+1))){ -t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[155]); -/* expand.scm:772: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[156]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[156]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=lf[146]; -tp(4,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9675,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:770: scheme#make-vector */ -t5=*((C_word*)lf[12]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_fix(997); -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k9673 in chicken.syntax#read-with-source-info in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9675(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_9675,c,av);} -t2=C_mutate((C_word*)lf[120]+1 /* (set! ##sys#line-number-database ...) */,t1); -t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(1),C_SCHEME_TRUE,lf[155]); -/* expand.scm:772: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[156]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[156]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[146]; -tp(4,av2);}} - -/* chicken.syntax#get-line-number in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9683(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_9683,c,av);} -a=C_alloc(4); -if(C_truep(*((C_word*)lf[120]+1))){ -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -if(C_truep(C_i_symbolp(t3))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9703,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:780: chicken.internal#hash-table-ref */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[152]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[152]+1); -av2[1]=t4; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=t3; -tp(4,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k9701 in chicken.syntax#get-line-number in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9703(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_9703,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9707,a[2]=((C_word*)t0)[2],a[3]=((C_word)li84),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:780: g1945 */ -t3=t2; -f_9707(t3,((C_word*)t0)[3],t1);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* g1945 in k9701 in chicken.syntax#get-line-number in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9707(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_9707,3,t0,t1,t2);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9711,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* expand.scm:782: assq/drop-bwp! */ -f_9557(t3,((C_word*)t0)[2],t2);} - -/* k9709 in g1945 in k9701 in chicken.syntax#get-line-number in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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,1)))){ -C_save_and_reclaim((void *)f_9711,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_i_cdr(t1):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#get-line-2 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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=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_9722,c,av);} -a=C_alloc(5); -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9729,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:789: chicken.internal#hash-table-ref */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[152]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[152]+1); -av2[1]=t4; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=t3; -tp(4,av2);}} - -/* k9727 in ##sys#get-line-2 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_9729,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9732,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(t1)){ -/* expand.scm:790: assq/drop-bwp! */ -f_9557(t2,((C_word*)t0)[4],C_i_cdr(t1));} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_9732(2,av2);}}} - -/* k9730 in k9727 in ##sys#get-line-2 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_9732,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9736,a[2]=((C_word*)t0)[2],a[3]=((C_word)li86),tmp=(C_word)a,a+=4,tmp); -/* expand.scm:790: g1961 */ -t3=t2; -f_9736(t3,((C_word*)t0)[3],t1);} -else{ -/* expand.scm:792: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -C_values(4,av2);}}} - -/* g1961 in k9730 in k9727 in ##sys#get-line-2 in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9736(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_9736,3,t0,t1,t2);} -/* expand.scm:791: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=C_i_car(((C_word*)t0)[2]); -av2[3]=C_i_cdr(t2); -C_values(4,av2);}} - -/* ##sys#display-line-number-database in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9763(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(c!=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_9763,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9769,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp); -/* expand.scm:795: chicken.internal#hash-table-for-each */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[163]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=*((C_word*)lf[120]+1); -tp(4,av2);}} - -/* a9768 in ##sys#display-line-number-database in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9769(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9769,c,av);} -a=C_alloc(5); -if(C_truep(t3)){ -t4=*((C_word*)lf[160]+1); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9776,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:799: ##sys#print */ -t6=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=C_SCHEME_TRUE; -av2[4]=*((C_word*)lf[160]+1); -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k9774 in a9768 in ##sys#display-line-number-database in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9776(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_9776,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9779,a[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:800: ##sys#print */ -t3=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[162]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k9777 in k9774 in a9768 in ##sys#display-line-number-database in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9779(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_9779,c,av);} -a=C_alloc(21); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9782,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(((C_word*)t0)[4],lf[16]); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9795,a[2]=t2,a[3]=((C_word*)t0)[3],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_9797,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li88),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_9797(t12,t8,((C_word*)t0)[4]);} - -/* k9780 in k9777 in k9774 in a9768 in ##sys#display-line-number-database in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9782(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9782,c,av);} -/* expand.scm:802: ##sys#print */ -t2=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[161]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k9793 in k9777 in k9774 in a9768 in ##sys#display-line-number-database in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9795,c,av);} -/* expand.scm:801: ##sys#print */ -t2=*((C_word*)lf[127]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* map-loop1970 in k9777 in k9774 in a9768 in ##sys#display-line-number-database in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9797(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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,2)))){ -C_save_and_reclaim_args((void *)trf_9797,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cdr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* ##sys#update-line-number-database! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -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(13,c,3)))){ -C_save_and_reclaim((void *)f_9831,c,av);} -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_9834,a[2]=t7,a[3]=((C_word)li92),tmp=(C_word)a,a+=4,tmp)); -t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9859,a[2]=t5,a[3]=t3,a[4]=((C_word)li93),tmp=(C_word)a,a+=5,tmp)); -/* expand.scm:822: walk */ -t10=((C_word*)t7)[1]; -f_9859(t10,t1,t2);} - -/* mapupdate in ##sys#update-line-number-database! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9834(C_word 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_9834,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_9840,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_9840(t6,t1,t2);} - -/* loop in mapupdate in ##sys#update-line-number-database! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9840(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_9840,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9850,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:811: walk */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_9859(t4,t3,C_u_i_car(t2));} -else{ -t3=C_SCHEME_UNDEFINED; -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k9848 in loop in mapupdate in ##sys#update-line-number-database! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9850(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9850,c,av);} -/* expand.scm:812: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9840(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} - -/* walk in ##sys#update-line-number-database! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9859(C_word t0,C_word t1,C_word 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_9859,3,t0,t1,t2);} -a=C_alloc(7); -t3=C_i_pairp(t2); -t4=C_i_not(t3); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -if(C_truep(C_i_symbolp(t5))){ -t6=C_u_i_car(t2); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9876,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); -/* expand.scm:817: chicken.internal#hash-table-ref */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[152]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[152]+1); -av2[1]=t7; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=t6; -tp(4,av2);}} -else{ -/* expand.scm:821: mapupdate */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_9834(t6,t1,t2);}}} - -/* k9874 in walk in ##sys#update-line-number-database! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9876(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ -C_save_and_reclaim((void *)f_9876,c,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_9882,a[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=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_9882(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,t2); -/* expand.scm:819: chicken.internal#hash-table-set! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[148]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[148]+1); -av2[1]=t3; -av2[2]=*((C_word*)lf[120]+1); -av2[3]=((C_word*)t0)[6]; -av2[4]=t5; -tp(5,av2);}}} - -/* k9880 in k9874 in walk in ##sys#update-line-number-database! in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9882(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9882,c,av);} -if(C_truep(C_i_listp(((C_word*)t0)[2]))){ -/* expand.scm:820: mapupdate */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_9834(t2,((C_word*)t0)[4],C_i_cdr(((C_word*)t0)[2]));} -else{ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9921(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9921,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; -t6=C_rest_nullp(c,5); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,5,t0)); -t8=C_rest_nullp(c,5); -t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_cdr(t5)); -t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9931,a[2]=t9,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t4,a[7]=t7,tmp=(C_word)a,a+=8,tmp); -if(C_truep(C_i_nullp(t9))){ -/* expand.scm:828: ##sys#current-environment */ -t11=*((C_word*)lf[3]+1);{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} -else{ -t11=t10;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_i_car(t9); -f_9931(2,av2);}}} - -/* k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word 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(39,c,5)))){ -C_save_and_reclaim((void *)f_9931,c,av);} -a=C_alloc(39); -t2=C_i_nullp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); -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_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9936,a[2]=t7,a[3]=((C_word)li95),tmp=(C_word)a,a+=4,tmp)); -t15=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9948,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li96),tmp=(C_word)a,a+=5,tmp)); -t16=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9975,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); -t17=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10020,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); -t18=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10026,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); -t19=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10053,a[2]=t7,a[3]=t5,a[4]=t11,a[5]=t13,a[6]=t9,a[7]=t1,a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); -if(C_truep(((C_word*)t0)[7])){ -t20=C_mutate((C_word*)lf[121]+1 /* (set! ##sys#syntax-error-culprit ...) */,((C_word*)t0)[7]); -t21=t19; -f_10053(t21,t20);} -else{ -t20=t19; -f_10053(t20,C_SCHEME_UNDEFINED);}} - -/* test in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9936(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_9936,5,t0,t1,t2,t3,t4);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9943,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* expand.scm:831: 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);}} - -/* k9941 in test in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9943,c,av);} -if(C_truep(t1)){ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* expand.scm:831: err */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_9948(t2,((C_word*)t0)[2],((C_word*)t0)[4]);}} - -/* err in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void f_9948(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_9948,3,t0,t1,t2);} -a=C_alloc(6); -t3=*((C_word*)lf[121]+1); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9952,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:835: get-line-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[157]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[157]+1); -av2[1]=t4; -av2[2]=*((C_word*)lf[121]+1); -tp(3,av2);}} - -/* k9950 in err in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9952(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_9952,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9959,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|4,a[1]=(C_word)f_9966,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* expand.scm:838: scheme#symbol->string */ -t4=*((C_word*)lf[134]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9973,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* expand.scm:839: scheme#symbol->string */ -t4=*((C_word*)lf[134]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k9957 in k9950 in err in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9959,c,av);} -/* expand.scm:836: ##sys#syntax-error */ -t2=*((C_word*)lf[43]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k9964 in k9950 in err in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9966(C_word c,C_word *av){ -C_word tmp; -C_word 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_9966,c,av);} -/* expand.scm:838: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[165]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[166]; -av2[5]=t1; -av2[6]=lf[167]; -av2[7]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(8,av2);}} - -/* k9971 in k9950 in err in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9973(C_word c,C_word *av){ -C_word tmp; -C_word 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_9973,c,av);} -/* expand.scm:839: scheme#string-append */ -t2=*((C_word*)lf[37]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[168]; -av2[3]=t1; -av2[4]=lf[169]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* lambda-list? in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static void C_ccall f_9975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_9975,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9979,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* expand.scm:843: ##sys#extended-lambda-list? */ -t4=*((C_word*)lf[65]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k9977 in lambda-list? in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_9979,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9987,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_9987(((C_word*)t0)[3]) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* loop in k9977 in lambda-list? in k9929 in ##sys#check-syntax in k6545 in k6155 in k6151 in k4868 in k4865 in k4862 */ -static C_word f_9987(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_nullp(t1); -if(C_truep(t2)){ -return(t2);} -else{ -t3=C_i_symbolp(t1); -if(C_truep(t3)){ -return(t3);} -else{ -if(C_truep(C_i_pairp(t1))){ -t4=C_u_i_car(t1); -if(C_truep(C_i_symbolp(t4))){ -t6=C_u_i_cdr(t1); -t1=t6; -goto loop;} -else{ -return(C_SCHEME_FALSE);}} -else{ -return(C_SCHEME_FALSE);}}}} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_expand_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("expand")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_expand_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(3781))){ -C_save(t1); -C_rereclaim2(3781*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,436); -lf[0]=C_h_intern(&lf[0],6, C_text("expand")); -lf[1]=C_h_intern(&lf[1],15, C_text("chicken.syntax#")); -lf[2]=C_h_intern(&lf[2],29, C_text("##sys#current-source-filename")); -lf[3]=C_h_intern(&lf[3],25, C_text("##sys#current-environment")); -lf[4]=C_h_intern(&lf[4],30, C_text("##sys#current-meta-environment")); -lf[6]=C_h_intern(&lf[6],18, C_text("##core#macro-alias")); -lf[8]=C_h_intern(&lf[8],16, C_text("##core#real-name")); -lf[9]=C_h_intern(&lf[9],19, C_text("chicken.base#gensym")); -lf[10]=C_h_intern(&lf[10],24, C_text("chicken.keyword#keyword?")); -lf[11]=C_h_intern(&lf[11],27, C_text("chicken.syntax#strip-syntax")); -lf[12]=C_h_intern(&lf[12],18, C_text("scheme#make-vector")); -lf[13]=C_h_intern(&lf[13],15, C_text("##sys#extend-se")); -lf[14]=C_h_intern(&lf[14],8, C_text("for-each")); -lf[15]=C_h_intern(&lf[15],13, C_text("scheme#append")); -lf[16]=C_h_intern(&lf[16],3, C_text("map")); -lf[17]=C_h_intern(&lf[17],23, C_text("##sys#macro-environment")); -lf[18]=C_h_intern(&lf[18],30, C_text("##sys#scheme-macro-environment")); -lf[19]=C_h_intern(&lf[19],35, C_text("##sys#chicken-ffi-macro-environment")); -lf[20]=C_h_intern(&lf[20],41, C_text("##sys#chicken.condition-macro-environment")); -lf[21]=C_h_intern(&lf[21],36, C_text("##sys#chicken.time-macro-environment")); -lf[22]=C_h_intern(&lf[22],36, C_text("##sys#chicken.type-macro-environment")); -lf[23]=C_h_intern(&lf[23],38, C_text("##sys#chicken.syntax-macro-environment")); -lf[24]=C_h_intern(&lf[24],36, C_text("##sys#chicken.base-macro-environment")); -lf[25]=C_h_intern(&lf[25],24, C_text("##sys#ensure-transformer")); -lf[26]=C_h_intern(&lf[26],11, C_text("transformer")); -lf[27]=C_h_intern(&lf[27],11, C_text("##sys#error")); -lf[28]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\145\170\160\145\143\164\145\144\040\163\171\156\164\141\170\055\164\162\141\156\163\146\157\162\155\145\162\054\040\142\165\164\040\147\157\164\000")); -lf[29]=C_h_intern(&lf[29],30, C_text("##sys#extend-macro-environment")); -lf[30]=C_h_intern(&lf[30],12, C_text("##sys#macro?")); -lf[31]=C_h_intern(&lf[31],21, C_text("##sys#undefine-macro!")); -lf[32]=C_h_intern(&lf[32],14, C_text("##sys#expand-0")); -lf[33]=C_h_intern(&lf[33],9, C_text("condition")); -lf[34]=C_h_intern(&lf[34],3, C_text("exn")); -lf[35]=C_h_intern(&lf[35],23, C_text("chicken.condition#abort")); -lf[36]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145")); -lf[37]=C_h_intern(&lf[37],20, C_text("scheme#string-append")); -lf[38]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\144\165\162\151\156\147\040\145\170\160\141\156\163\151\157\156\040\157\146\040\050\000")); -lf[39]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\056\056\056\051\040\055\040\000")); -lf[40]=C_h_intern(&lf[40],27, C_text("##sys#symbol->string/shared")); -lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145")); -lf[42]=C_h_intern(&lf[42],36, C_text("chicken.syntax#expansion-result-hook")); -lf[43]=C_h_intern(&lf[43],18, C_text("##sys#syntax-error")); -lf[44]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\163\171\156\164\141\170\040\164\162\141\156\163\146\157\162\155\145\162\040\146\157\162\040\140\000")); -lf[45]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\101\047\040\162\145\164\165\162\156\163\040\157\162\151\147\151\156\141\154\040\146\157\162\155\054\040\167\150\151\143\150\040\167\157\165\154\144\040\162\145\163\165\154\164\040\151\156\040\145\156\144\154\145\163\163\040\145\170\160\141\156\163\151\157\156\000")); -lf[46]=C_h_intern(&lf[46],51, C_text("chicken.internal.syntax-rules#syntax-rules-mismatch")); -lf[47]=C_h_intern(&lf[47],18, C_text("##sys#dynamic-wind")); -lf[48]=C_h_intern(&lf[48],40, C_text("chicken.condition#with-exception-handler")); -lf[49]=C_h_intern(&lf[49],37, C_text("scheme#call-with-current-continuation")); -lf[50]=C_h_intern(&lf[50],10, C_text("##core#let")); -lf[51]=C_h_intern(&lf[51],18, C_text("##core#loop-lambda")); -lf[52]=C_h_intern(&lf[52],14, C_text("##core#letrec*")); -lf[53]=C_h_intern(&lf[53],10, C_text("##core#app")); -lf[54]=C_h_intern(&lf[54],18, C_text("##sys#check-syntax")); -lf[55]=C_h_intern(&lf[55],3, C_text("let")); -lf[56]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[57]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\002")); -lf[58]=C_h_intern(&lf[58],26, C_text("##sys#compiler-syntax-hook")); -lf[59]=C_h_intern(&lf[59],26, C_text("##compiler#compiler-syntax")); -lf[60]=C_h_intern(&lf[60],5, C_text("value")); -lf[61]=C_h_intern(&lf[61],9, C_text("##sys#get")); -lf[62]=C_h_intern(&lf[62],14, C_text("##sys#override")); -lf[63]=C_h_intern(&lf[63],27, C_text("##sys#enable-runtime-macros")); -lf[64]=C_h_intern(&lf[64],21, C_text("chicken.syntax#expand")); -lf[65]=C_h_intern(&lf[65],27, C_text("##sys#extended-lambda-list?")); -lf[66]=C_h_intern(&lf[66],6, C_text("#!rest")); -lf[67]=C_h_intern(&lf[67],10, C_text("#!optional")); -lf[68]=C_h_intern(&lf[68],5, C_text("#!key")); -lf[69]=C_h_intern(&lf[69],33, C_text("##sys#expand-extended-lambda-list")); -lf[70]=C_h_intern(&lf[70],12, C_text("scheme#cadar")); -lf[71]=C_h_intern(&lf[71],14, C_text("scheme#reverse")); -lf[72]=C_h_intern(&lf[72],12, C_text("##sys#append")); -lf[73]=C_h_intern(&lf[73],12, C_text("##core#quote")); -lf[74]=C_h_intern(&lf[74],13, C_text("##core#lambda")); -lf[75]=C_h_intern(&lf[75],17, C_text("##sys#get-keyword")); -lf[76]=C_h_intern(&lf[76],31, C_text("chicken.keyword#string->keyword")); -lf[77]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\162\145\163\164\040\141\162\147\165\155\145\156\164\040\154\151\163\164\040\163\160\145\143\151\146\151\145\144\040\155\157\162\145\040\164\150\141\156\040\157\156\143\145\000")); -lf[78]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\000")); -lf[79]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\140\043\041\157\160\164\151\157\156\141\154\047\040\141\162\147\165\155\145\156\164\040\155\141\162\153\145\162\040\151\156\040\167\162\157\156\147\040\143\157\156\164\145\170\164\000")); -lf[80]=C_h_intern(&lf[80],4, C_text("rest")); -lf[81]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\151\156\166\141\154\151\144\040\163\171\156\164\141\170\040\157\146\040\140\043\041\162\145\163\164\047\040\141\162\147\165\155\145\156\164\000")); -lf[82]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\140\043\041\162\145\163\164\047\040\141\162\147\165\155\145\156\164\040\155\141\162\153\145\162\040\151\156\040\167\162\157\156\147\040\143\157\156\164\145\170\164\000")); -lf[83]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\140\043\041\153\145\171\047\040\141\162\147\165\155\145\156\164\040\155\141\162\153\145\162\040\151\156\040\167\162\157\156\147\040\143\157\156\164\145\170\164\000")); -lf[84]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\040\141\146\164\145\162\040\140\043\041\162\145\163\164\047\040\155\141\162\153\145\162\000")); -lf[85]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\151\156\166\141\154\151\144\040\162\145\161\165\151\162\145\144\040\141\162\147\165\155\145\156\164\040\163\171\156\164\141\170\000")); -lf[86]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\040\141\146\164\145\162\040\140\043\041\162\145\163\164\047\040\155\141\162\153\145\162\000")); -lf[87]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\154\141\155\142\144\141\040\154\151\163\164\040\163\171\156\164\141\170\000")); -lf[88]=C_h_intern(&lf[88],14, C_text("let-optionals*")); -lf[89]=C_h_intern(&lf[89],8, C_text("optional")); -lf[90]=C_h_intern(&lf[90],4, C_text("let*")); -lf[91]=C_h_intern(&lf[91],31, C_text("##sys#default-macro-environment")); -lf[92]=C_h_intern(&lf[92],39, C_text("##sys#expand-multiple-values-assignment")); -lf[93]=C_h_intern(&lf[93],22, C_text("##sys#call-with-values")); -lf[94]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016\376\377\016")); -lf[95]=C_h_intern(&lf[95],11, C_text("##core#set!")); -lf[96]=C_h_intern(&lf[96],27, C_text("##sys#decompose-lambda-list")); -lf[97]=C_h_intern(&lf[97],32, C_text("chicken.syntax#define-definition")); -lf[98]=C_h_intern(&lf[98],39, C_text("chicken.syntax#define-syntax-definition")); -lf[99]=C_h_intern(&lf[99],39, C_text("chicken.syntax#define-values-definition")); -lf[101]=C_h_intern(&lf[101],23, C_text("##sys#canonicalize-body")); -lf[102]=C_h_intern(&lf[102],12, C_text("##core#begin")); -lf[103]=C_h_intern(&lf[103],14, C_text("##core#include")); -lf[104]=C_h_intern(&lf[104],13, C_text("##core#module")); -lf[105]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[106]=C_h_intern(&lf[106],20, C_text("##core#letrec-syntax")); -lf[107]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\162\145\144\145\146\151\156\151\164\151\157\156\040\157\146\040\143\165\162\162\145\156\164\154\171\040\165\163\145\144\040\144\145\146\151\156\151\156\147\040\146\157\162\155\000")); -lf[108]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[109]=C_h_intern(&lf[109],6, C_text("define")); -lf[110]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[111]=C_h_intern(&lf[111],36, C_text("chicken.syntax#expand-curried-define")); -lf[112]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[113]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[114]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[115]=C_h_intern(&lf[115],13, C_text("define-syntax")); -lf[116]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[117]=C_h_intern(&lf[117],13, C_text("define-values")); -lf[118]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[119]=C_h_intern(&lf[119],31, C_text("chicken.syntax#match-expression")); -lf[120]=C_h_intern(&lf[120],26, C_text("##sys#line-number-database")); -lf[121]=C_h_intern(&lf[121],26, C_text("##sys#syntax-error-culprit")); -lf[122]=C_h_intern(&lf[122],20, C_text("##sys#syntax-context")); -lf[123]=C_h_intern(&lf[123],23, C_text("##sys#syntax-error-hook")); -lf[124]=C_h_intern(&lf[124],17, C_text("##sys#signal-hook")); -lf[125]=C_h_intern_kw(&lf[125],12, C_text("syntax-error")); -lf[126]=C_h_intern(&lf[126],26, C_text("##sys#syntax-error/context")); -lf[127]=C_h_intern(&lf[127],11, C_text("##sys#print")); -lf[128]=C_h_intern(&lf[128],24, C_text("scheme#get-output-string")); -lf[129]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\056\056\056\051\047\000")); -lf[130]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\012\151\156\163\151\144\145\040\145\170\160\162\145\163\163\151\157\156\040\140\050\000")); -lf[131]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[132]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\040\040\123\165\147\147\145\163\164\151\156\147\072\040\140\050\151\155\160\157\162\164\040\000")); -lf[133]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\047\000")); -lf[134]=C_h_intern(&lf[134],21, C_text("scheme#symbol->string")); -lf[135]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\040\040\123\165\147\147\145\163\164\151\156\147\040\157\156\145\040\157\146\072\012\000")); -lf[136]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[137]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\012\040\040\040\040\040\040\050\151\155\160\157\162\164\040\000")); -lf[138]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\047\000")); -lf[139]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\040\056\056\056\051\047\040\167\151\164\150\157\165\164\040\151\155\160\157\162\164\151\156\147\040\151\164\040\146\151\162\163\164\056\012\000")); -lf[140]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\012\012\040\040\120\145\162\150\141\160\163\040\171\157\165\040\151\156\164\145\156\144\145\144\040\164\157\040\165\163\145\040\164\150\145\040\163\171\156\164\141\170\040\140\050\000")); -lf[141]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[142]=C_h_intern(&lf[142],6, C_text("syntax")); -lf[143]=C_h_intern(&lf[143],9, C_text("##core#db")); -lf[144]=C_h_intern(&lf[144],25, C_text("scheme#open-output-string")); -lf[147]=C_h_intern(&lf[147],9, C_text("list-info")); -lf[148]=C_h_intern(&lf[148],32, C_text("chicken.internal#hash-table-set!")); -lf[149]=C_h_intern(&lf[149],19, C_text("chicken.string#conc")); -lf[150]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000")); -lf[151]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\074\163\164\144\151\156\076\000")); -lf[152]=C_h_intern(&lf[152],31, C_text("chicken.internal#hash-table-ref")); -lf[153]=C_h_intern(&lf[153],36, C_text("chicken.syntax#read-with-source-info")); -lf[154]=C_h_intern(&lf[154],20, C_text("##sys#standard-input")); -lf[155]=C_h_intern(&lf[155],21, C_text("read-with-source-info")); -lf[156]=C_h_intern(&lf[156],10, C_text("##sys#read")); -lf[157]=C_h_intern(&lf[157],30, C_text("chicken.syntax#get-line-number")); -lf[158]=C_h_intern(&lf[158],16, C_text("##sys#get-line-2")); -lf[159]=C_h_intern(&lf[159],34, C_text("##sys#display-line-number-database")); -lf[160]=C_h_intern(&lf[160],21, C_text("##sys#standard-output")); -lf[161]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000")); -lf[162]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000")); -lf[163]=C_h_intern(&lf[163],36, C_text("chicken.internal#hash-table-for-each")); -lf[164]=C_h_intern(&lf[164],34, C_text("##sys#update-line-number-database!")); -lf[165]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[166]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\051\040\151\156\040\140\000")); -lf[167]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\047\040\055\040\000")); -lf[168]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\151\156\040\140\000")); -lf[169]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\047\040\055\040\000")); -lf[170]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\145\156\157\165\147\150\040\141\162\147\165\155\145\156\164\163\000")); -lf[171]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\164\157\157\040\155\141\156\171\040\141\162\147\165\155\145\156\164\163\000")); -lf[172]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\156\157\164\040\141\040\160\162\157\160\145\162\040\154\151\163\164\000")); -lf[173]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\165\156\145\170\160\145\143\164\145\144\040\157\142\152\145\143\164\000")); -lf[174]=C_h_intern(&lf[174],1, C_text("_")); -lf[175]=C_h_intern(&lf[175],4, C_text("pair")); -lf[176]=C_h_intern(&lf[176],12, C_text("scheme#pair?")); -lf[177]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\160\141\151\162\040\145\170\160\145\143\164\145\144\000")); -lf[178]=C_h_intern(&lf[178],8, C_text("variable")); -lf[179]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\144\145\156\164\151\146\151\145\162\040\145\170\160\145\143\164\145\144\000")); -lf[180]=C_h_intern(&lf[180],6, C_text("symbol")); -lf[181]=C_h_intern(&lf[181],14, C_text("scheme#symbol?")); -lf[182]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\163\171\155\142\157\154\040\145\170\160\145\143\164\145\144\000")); -lf[183]=C_h_intern(&lf[183],4, C_text("list")); -lf[184]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\160\162\157\160\145\162\040\154\151\163\164\040\145\170\160\145\143\164\145\144\000")); -lf[185]=C_h_intern(&lf[185],6, C_text("number")); -lf[186]=C_h_intern(&lf[186],14, C_text("scheme#number?")); -lf[187]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\156\165\155\142\145\162\040\145\170\160\145\143\164\145\144\000")); -lf[188]=C_h_intern(&lf[188],6, C_text("string")); -lf[189]=C_h_intern(&lf[189],14, C_text("scheme#string?")); -lf[190]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\163\164\162\151\156\147\040\145\170\160\145\143\164\145\144\000")); -lf[191]=C_h_intern(&lf[191],11, C_text("lambda-list")); -lf[192]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\154\141\155\142\144\141\055\154\151\163\164\040\145\170\160\145\143\164\145\144\000")); -lf[193]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\155\151\163\163\151\156\147\040\153\145\171\167\157\162\144\000")); -lf[194]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\151\156\143\157\155\160\154\145\164\145\040\146\157\162\155\000")); -lf[195]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\160\141\151\162\040\145\170\160\145\143\164\145\144\000")); -lf[197]=C_h_intern(&lf[197],19, C_text("scheme#list->vector")); -lf[198]=C_h_intern(&lf[198],19, C_text("scheme#vector->list")); -lf[199]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\050\145\170\160\141\156\144\056\163\143\155\072\071\062\066\051\040\156\157\164\040\141\040\154\151\163\164\000")); -lf[200]=C_h_intern(&lf[200],35, C_text("chicken.syntax#er-macro-transformer")); -lf[201]=C_h_intern(&lf[201],35, C_text("chicken.syntax#ir-macro-transformer")); -lf[202]=C_h_intern(&lf[202],20, C_text("##sys#er-transformer")); -lf[203]=C_h_intern(&lf[203],20, C_text("##sys#ir-transformer")); -lf[204]=C_h_intern(&lf[204],19, C_text("process-cond-expand")); -lf[205]=C_h_intern(&lf[205],11, C_text("cond-expand")); -lf[206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\163\171\156\164\141\170\040\145\162\162\157\162\040\151\156\040\140\143\157\156\144\055\145\170\160\141\156\144\047\040\146\157\162\155\000")); -lf[207]=C_h_intern(&lf[207],25, C_text("chicken.platform#feature?")); -lf[208]=C_h_intern(&lf[208],3, C_text("and")); -lf[209]=C_h_intern(&lf[209],2, C_text("or")); -lf[210]=C_h_intern(&lf[210],3, C_text("not")); -lf[211]=C_h_intern(&lf[211],7, C_text("library")); -lf[212]=C_h_intern(&lf[212],18, C_text("##sys#file-exists?")); -lf[213]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[214]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\056\151\155\160\157\162\164\056\163\143\155\000")); -lf[215]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\056\151\155\160\157\162\164\056\163\157\000")); -lf[217]=C_h_intern(&lf[217],32, C_text("chicken.platform#repository-path")); -lf[218]=C_h_intern(&lf[218],17, C_text("##sys#find-module")); -lf[219]=C_h_intern(&lf[219],27, C_text("chicken.internal#library-id")); -lf[220]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\156\157\040\155\141\164\143\150\151\156\147\040\143\154\141\165\163\145\040\151\156\040\140\143\157\156\144\055\145\170\160\141\156\144\047\040\146\157\162\155\000")); -lf[221]=C_h_intern(&lf[221],4, C_text("else")); -lf[222]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[223]=C_h_intern(&lf[223],31, C_text("##sys#initial-macro-environment")); -lf[224]=C_h_intern(&lf[224],38, C_text("##sys#chicken.module-macro-environment")); -lf[225]=C_h_intern(&lf[225],30, C_text("chicken.internal.syntax-rules#")); -lf[226]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\040\162\165\154\145\040\155\141\164\143\150\145\163\040\146\157\162\155\000")); -lf[227]=C_h_intern(&lf[227],40, C_text("chicken.internal.syntax-rules#drop-right")); -lf[228]=C_h_intern(&lf[228],41, C_text("chicken.internal.syntax-rules#safe-length")); -lf[229]=C_h_intern(&lf[229],40, C_text("chicken.internal.syntax-rules#take-right")); -lf[230]=C_h_intern(&lf[230],28, C_text("##sys#meta-macro-environment")); -lf[231]=C_h_intern(&lf[231],34, C_text("chicken.platform#register-feature!")); -lf[232]=C_h_intern(&lf[232],6, C_text("srfi-0")); -lf[233]=C_h_intern(&lf[233],7, C_text("srfi-46")); -lf[234]=C_h_intern(&lf[234],7, C_text("srfi-61")); -lf[235]=C_h_intern(&lf[235],7, C_text("srfi-87")); -lf[236]=C_h_intern(&lf[236],21, C_text("scheme#make-parameter")); -lf[237]=C_h_intern(&lf[237],40, C_text("chicken.internal#fixup-macro-environment")); -lf[238]=C_h_intern(&lf[238],29, C_text("chicken.internal#macro-subset")); -lf[239]=C_h_intern(&lf[239],12, C_text("syntax-rules")); -lf[240]=C_h_intern(&lf[240],3, C_text("...")); -lf[241]=C_h_intern(&lf[241],9, C_text("##sys#car")); -lf[242]=C_h_intern(&lf[242],9, C_text("##sys#cdr")); -lf[243]=C_h_intern(&lf[243],13, C_text("##sys#vector?")); -lf[244]=C_h_intern(&lf[244],18, C_text("##sys#vector->list")); -lf[245]=C_h_intern(&lf[245],18, C_text("##sys#list->vector")); -lf[246]=C_h_intern(&lf[246],8, C_text("##sys#>=")); -lf[247]=C_h_intern(&lf[247],7, C_text("##sys#=")); -lf[248]=C_h_intern(&lf[248],7, C_text("##sys#+")); -lf[249]=C_h_intern(&lf[249],10, C_text("##sys#cons")); -lf[250]=C_h_intern(&lf[250],9, C_text("##sys#eq?")); -lf[251]=C_h_intern(&lf[251],12, C_text("##sys#equal?")); -lf[252]=C_h_intern(&lf[252],9, C_text("##sys#map")); -lf[253]=C_h_intern(&lf[253],11, C_text("##sys#map-n")); -lf[254]=C_h_intern(&lf[254],11, C_text("##sys#pair?")); -lf[255]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\151\154\154\055\146\157\162\155\145\144\040\163\171\156\164\141\170\040\162\165\154\145\000")); -lf[256]=C_h_intern(&lf[256],13, C_text("##core#syntax")); -lf[257]=C_h_intern(&lf[257],5, C_text("quote")); -lf[258]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\164\145\155\160\154\141\164\145\040\144\151\155\145\156\163\151\157\156\040\145\162\162\157\162\040\050\164\157\157\040\146\145\167\040\145\154\154\151\160\163\145\163\077\051\000")); -lf[259]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\111\156\166\141\154\151\144\040\145\163\143\141\160\145\144\040\145\154\154\151\160\163\151\163\040\164\145\155\160\154\141\164\145\000")); -lf[260]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\164\157\157\040\155\141\156\171\040\145\154\154\151\160\163\145\163\000")); -lf[261]=C_h_intern(&lf[261],11, C_text("##sys#apply")); -lf[262]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\117\156\154\171\040\157\156\145\040\163\145\147\155\145\156\164\040\160\145\162\040\154\145\166\145\154\040\151\163\040\141\154\154\157\167\145\144\000")); -lf[263]=C_h_intern(&lf[263],4, C_text("temp")); -lf[264]=C_h_intern(&lf[264],4, C_text("tail")); -lf[265]=C_h_intern(&lf[265],6, C_text("rename")); -lf[266]=C_h_intern(&lf[266],4, C_text("loop")); -lf[267]=C_h_intern(&lf[267],6, C_text("lambda")); -lf[268]=C_h_intern(&lf[268],3, C_text("len")); -lf[269]=C_h_intern(&lf[269],1, C_text("l")); -lf[270]=C_h_intern(&lf[270],5, C_text("input")); -lf[271]=C_h_intern(&lf[271],4, C_text("cond")); -lf[272]=C_h_intern(&lf[272],7, C_text("compare")); -lf[273]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\004\001\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[274]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\002")); -lf[275]=C_h_intern(&lf[275],12, C_text("syntax-error")); -lf[276]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[277]=C_h_intern(&lf[277],5, C_text("delay")); -lf[278]=C_h_intern(&lf[278],10, C_text("##sys#list")); -lf[279]=C_h_intern(&lf[279],18, C_text("##sys#make-promise")); -lf[280]=C_h_intern(&lf[280],11, C_text("delay-force")); -lf[281]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[282]=C_h_intern(&lf[282],10, C_text("quasiquote")); -lf[283]=C_h_intern(&lf[283],7, C_text("unquote")); -lf[284]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[285]=C_h_intern(&lf[285],16, C_text("unquote-splicing")); -lf[286]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[287]=C_h_intern(&lf[287],1, C_text("a")); -lf[288]=C_h_intern(&lf[288],1, C_text("b")); -lf[289]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\163\171\163\043\141\160\160\145\156\144\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\161\165\157\164\145\376\003\000\000\002\376\377\016\376\377\016\376\377\016")); -lf[290]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\141\376\377\016")); -lf[291]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001\043\043\163\171\163\043\143\157\156\163\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\043\043\163\171\163\043\154\151\163\164\376\001\000\000\001\001\142\376\377\016")); -lf[292]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\001\000\000\001\001\142\376\377\016")); -lf[293]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001\043\043\163\171\163\043\143\157\156\163\376\003\000\000\002\376\001\000\000\001\001\141\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\161\165\157\164\145\376\003\000\000\002\376\377\016\376\377\016\376\377\016")); -lf[294]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\141\376\377\016")); -lf[295]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[296]=C_h_intern(&lf[296],2, C_text("do")); -lf[297]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[298]=C_h_intern(&lf[298],9, C_text("##core#if")); -lf[299]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[300]=C_h_intern(&lf[300],6, C_text("doloop")); -lf[301]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\001\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[302]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[303]=C_h_intern(&lf[303],4, C_text("case")); -lf[304]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\161\166\077\376\001\000\000\013\001\163\143\150\145\155\145\043\145\161\166\077\376\377\016")); -lf[305]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[306]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\142\145\147\151\156\376\377\016")); -lf[307]=C_h_intern(&lf[307],10, C_text("##sys#warn")); -lf[308]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\143\154\141\165\163\145\040\146\157\154\154\157\167\151\156\147\040\140\145\154\163\145\047\040\143\154\141\165\163\145\040\151\156\040\140\143\141\163\145\047\000")); -lf[309]=C_h_intern(&lf[309],16, C_text("##core#undefined")); -lf[310]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[311]=C_h_intern(&lf[311],4, C_text("eqv?")); -lf[312]=C_h_intern(&lf[312],2, C_text("=>")); -lf[313]=C_h_intern(&lf[313],3, C_text("tmp")); -lf[314]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[315]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[316]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\142\145\147\151\156\376\377\016")); -lf[317]=C_h_intern(&lf[317],7, C_text("sprintf")); -lf[318]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\047\040\143\154\141\165\163\145\040\151\156\040\140\143\157\156\144\047\000")); -lf[319]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\143\154\141\165\163\145\040\146\157\154\154\157\167\151\156\147\040\140\000")); -lf[320]=C_h_intern(&lf[320],2, C_text("if")); -lf[321]=C_h_intern(&lf[321],20, C_text("##sys#srfi-4-vector?")); -lf[322]=C_h_intern(&lf[322],30, C_text("chicken.bytevector#bytevector?")); -lf[323]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[324]=C_h_intern(&lf[324],4, C_text("set!")); -lf[325]=C_h_intern(&lf[325],12, C_text("##sys#setter")); -lf[326]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[327]=C_h_intern(&lf[327],13, C_text("letrec-syntax")); -lf[328]=C_h_intern(&lf[328],44, C_text("chicken.internal#check-for-multiple-bindings")); -lf[329]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\154\145\164\162\145\143\055\163\171\156\164\141\170\000")); -lf[330]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[331]=C_h_intern(&lf[331],10, C_text("let-syntax")); -lf[332]=C_h_intern(&lf[332],17, C_text("##core#let-syntax")); -lf[333]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\154\145\164\055\163\171\156\164\141\170\000")); -lf[334]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[335]=C_h_intern(&lf[335],6, C_text("letrec")); -lf[336]=C_h_intern(&lf[336],13, C_text("##core#letrec")); -lf[337]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\154\145\164\162\145\143\000")); -lf[338]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[339]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\145\164\000")); -lf[340]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\154\145\164\000")); -lf[342]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\000\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[343]=C_h_intern(&lf[343],20, C_text("##core#define-syntax")); -lf[344]=C_h_intern(&lf[344],21, C_text("##sys#register-export")); -lf[345]=C_h_intern(&lf[345],20, C_text("##sys#current-module")); -lf[346]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[347]=C_h_intern(&lf[347],33, C_text("##core#ensure-toplevel-definition")); -lf[348]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[349]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\000\000\000\003\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); -lf[350]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[351]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[352]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[353]=C_h_intern(&lf[353],5, C_text("begin")); -lf[354]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[355]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\001\376\001\000\000\001\001\137")); -lf[356]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[357]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\013\001\154\141\155\142\144\141\055\154\151\163\164\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[358]=C_h_intern(&lf[358],14, C_text("current-module")); -lf[359]=C_h_intern(&lf[359],17, C_text("##sys#module-name")); -lf[360]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[361]=C_h_intern(&lf[361],16, C_text("define-interface")); -lf[362]=C_h_intern(&lf[362],16, C_text("##core#interface")); -lf[363]=C_h_intern(&lf[363],18, C_text("##sys#put/restore!")); -lf[364]=C_h_intern(&lf[364],26, C_text("##core#elaborationtimeonly")); -lf[365]=C_h_intern(&lf[365],1, C_text("*")); -lf[366]=C_h_intern_kw(&lf[366],9, C_text("interface")); -lf[367]=C_h_intern(&lf[367],22, C_text("##sys#validate-exports")); -lf[368]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\151\156\166\141\154\151\144\040\145\170\160\157\162\164\163\000")); -lf[369]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\140\052\047\040\151\163\040\156\157\164\040\141\154\154\157\167\145\144\040\141\163\040\141\040\156\141\155\145\040\146\157\162\040\141\156\040\151\156\164\145\162\146\141\143\145\000")); -lf[370]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\010\001\166\141\162\151\141\142\154\145\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[371]=C_h_intern(&lf[371],7, C_text("functor")); -lf[372]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\156\166\141\154\151\144\040\146\165\156\143\164\157\162\040\141\162\147\165\155\145\156\164\000")); -lf[373]=C_h_intern(&lf[373],41, C_text("chicken.internal#valid-library-specifier?")); -lf[374]=C_h_intern(&lf[374],22, C_text("##sys#register-functor")); -lf[375]=C_h_intern(&lf[375],6, C_text("import")); -lf[376]=C_h_intern(&lf[376],6, C_text("scheme")); -lf[377]=C_h_intern(&lf[377],14, C_text("chicken.syntax")); -lf[378]=C_h_intern(&lf[378],16, C_text("begin-for-syntax")); -lf[379]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016\376\377\001\000\000\000\000\376\003\000\000\002\376\001\000\000\001\001\137\376\001\000\000\001\001\137")); -lf[380]=C_h_intern(&lf[380],8, C_text("reexport")); -lf[381]=C_h_intern(&lf[381],19, C_text("##sys#expand-import")); -lf[382]=C_h_intern(&lf[382],13, C_text("export/rename")); -lf[383]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[384]=C_h_intern(&lf[384],31, C_text("##sys#add-to-export/rename-list")); -lf[385]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\151\156\166\141\154\151\144\040\151\164\145\155\040\151\156\040\145\170\160\157\162\164\040\162\145\156\141\155\145\040\154\151\163\164\000")); -lf[386]=C_h_intern(&lf[386],6, C_text("export")); -lf[387]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[388]=C_h_intern(&lf[388],24, C_text("##sys#add-to-export-list")); -lf[389]=C_h_intern(&lf[389],14, C_text("define-library")); -lf[390]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\142\145\147\151\156\376\003\000\000\002\376\001\000\000\013\001\143\157\156\144\055\145\170\160\141\156\144\376\003\000\000\002\376\001\000\000\006\001\145\170\160\157\162\164\376\003\000\000\002\376\001\000\000\006\001\151\155\160\157\162\164\376\003\000\000\002\376\001\000\000\021\001\151\155\160\157\162\164\055\146\157\162\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\007\001\151\156\143\154\165\144\145\376\003\000\000\002\376\001\000\000\012\001\151\156\143\154\165\144\145\055\143\151\376\003\000\000\002\376\001\000\000\014\001\163\171\156\164\141\170\055\162\165\154\145\163\376\377\016")); -lf[391]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\156\166\141\154\151\144\040\145\170\160\157\162\164\040\163\160\145\143\151\146\151\145\162\000")); -lf[392]=C_h_intern(&lf[392],7, C_text("include")); -lf[393]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\156\166\141\154\151\144\040\151\156\143\154\165\144\145\055\146\151\154\145\156\141\155\145\000")); -lf[394]=C_h_intern(&lf[394],28, C_text("##sys#default-read-info-hook")); -lf[395]=C_h_intern(&lf[395],29, C_text("##sys#include-forms-from-file")); -lf[396]=C_h_intern(&lf[396],39, C_text("chicken.compiler.support#read-info-hook")); -lf[397]=C_h_intern(&lf[397],34, C_text("##sys#symbol-has-toplevel-binding?")); -lf[398]=C_h_intern(&lf[398],9, C_text("compiling")); -lf[399]=C_h_intern(&lf[399],10, C_text("append-map")); -lf[400]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\014\001\043\043\143\157\162\145\043\142\145\147\151\156\376\377\016")); -lf[401]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[402]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[403]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[404]=C_h_intern(&lf[404],10, C_text("include-ci")); -lf[405]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[406]=C_h_intern(&lf[406],28, C_text("include-library-declarations")); -lf[407]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\151\156\166\141\154\151\144\040\154\151\142\162\141\162\171\040\144\145\143\154\141\162\141\164\151\157\156\000")); -lf[408]=C_h_intern(&lf[408],1, C_text("x")); -lf[409]=C_h_intern(&lf[409],1, C_text("r")); -lf[410]=C_h_intern(&lf[410],1, C_text("c")); -lf[411]=C_h_intern(&lf[411],11, C_text("scheme.base")); -lf[412]=C_h_intern(&lf[412],4, C_text("only")); -lf[413]=C_h_intern(&lf[413],17, C_text("import-for-syntax")); -lf[414]=C_h_intern(&lf[414],14, C_text("chicken.module")); -lf[415]=C_h_intern(&lf[415],10, C_text("##sys#put!")); -lf[416]=C_h_intern(&lf[416],13, C_text("##r7rs#module")); -lf[417]=C_h_intern(&lf[417],21, C_text("scheme#string->symbol")); -lf[418]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\162\067\162\163\000")); -lf[419]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[420]=C_h_intern(&lf[420],6, C_text("module")); -lf[421]=C_h_intern(&lf[421],1, C_text("=")); -lf[422]=C_h_intern(&lf[422],19, C_text("##sys#string-append")); -lf[423]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\137\000")); -lf[424]=C_h_intern(&lf[424],25, C_text("##sys#instantiate-functor")); -lf[425]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000\376\377\016")); -lf[426]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\000")); -lf[427]=C_h_intern(&lf[427],30, C_text("##sys#register-meta-expression")); -lf[428]=C_h_intern(&lf[428],22, C_text("##sys#decompose-import")); -lf[429]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[430]=C_h_intern(&lf[430],14, C_text("##core#require")); -lf[431]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\143\141\156\156\157\164\040\151\155\160\157\162\164\040\146\162\157\155\040\165\156\144\145\146\151\156\145\144\040\155\157\144\165\154\145\000")); -lf[432]=C_h_intern(&lf[432],12, C_text("##sys#import")); -lf[433]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\143\141\156\156\157\164\040\151\155\160\157\162\164\040\146\162\157\155\040\155\157\144\165\154\145\040\143\165\162\162\145\156\164\154\171\040\142\145\151\156\147\040\144\145\146\151\156\145\144\000")); -lf[434]=C_h_intern(&lf[434],24, C_text("import-syntax-for-syntax")); -lf[435]=C_h_intern(&lf[435],13, C_text("import-syntax")); -C_register_lf2(lf,436,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4864,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_internal_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[829] = { -{C_text("f17020:expand_2escm"),(void*)f17020}, -{C_text("f17024:expand_2escm"),(void*)f17024}, -{C_text("f_10020:expand_2escm"),(void*)f_10020}, -{C_text("f_10026:expand_2escm"),(void*)f_10026}, -{C_text("f_10032:expand_2escm"),(void*)f_10032}, -{C_text("f_10053:expand_2escm"),(void*)f_10053}, -{C_text("f_10058:expand_2escm"),(void*)f_10058}, -{C_text("f_10077:expand_2escm"),(void*)f_10077}, -{C_text("f_10082:expand_2escm"),(void*)f_10082}, -{C_text("f_10101:expand_2escm"),(void*)f_10101}, -{C_text("f_10255:expand_2escm"),(void*)f_10255}, -{C_text("f_10312:expand_2escm"),(void*)f_10312}, -{C_text("f_10365:expand_2escm"),(void*)f_10365}, -{C_text("f_10371:expand_2escm"),(void*)f_10371}, -{C_text("f_10374:expand_2escm"),(void*)f_10374}, -{C_text("f_10381:expand_2escm"),(void*)f_10381}, -{C_text("f_10390:expand_2escm"),(void*)f_10390}, -{C_text("f_10396:expand_2escm"),(void*)f_10396}, -{C_text("f_10421:expand_2escm"),(void*)f_10421}, -{C_text("f_10423:expand_2escm"),(void*)f_10423}, -{C_text("f_10441:expand_2escm"),(void*)f_10441}, -{C_text("f_10445:expand_2escm"),(void*)f_10445}, -{C_text("f_10462:expand_2escm"),(void*)f_10462}, -{C_text("f_10466:expand_2escm"),(void*)f_10466}, -{C_text("f_10492:expand_2escm"),(void*)f_10492}, -{C_text("f_10509:expand_2escm"),(void*)f_10509}, -{C_text("f_10531:expand_2escm"),(void*)f_10531}, -{C_text("f_10568:expand_2escm"),(void*)f_10568}, -{C_text("f_10589:expand_2escm"),(void*)f_10589}, -{C_text("f_10620:expand_2escm"),(void*)f_10620}, -{C_text("f_10628:expand_2escm"),(void*)f_10628}, -{C_text("f_10650:expand_2escm"),(void*)f_10650}, -{C_text("f_10665:expand_2escm"),(void*)f_10665}, -{C_text("f_10678:expand_2escm"),(void*)f_10678}, -{C_text("f_10693:expand_2escm"),(void*)f_10693}, -{C_text("f_10728:expand_2escm"),(void*)f_10728}, -{C_text("f_10753:expand_2escm"),(void*)f_10753}, -{C_text("f_10771:expand_2escm"),(void*)f_10771}, -{C_text("f_10775:expand_2escm"),(void*)f_10775}, -{C_text("f_10792:expand_2escm"),(void*)f_10792}, -{C_text("f_10796:expand_2escm"),(void*)f_10796}, -{C_text("f_10885:expand_2escm"),(void*)f_10885}, -{C_text("f_10889:expand_2escm"),(void*)f_10889}, -{C_text("f_10894:expand_2escm"),(void*)f_10894}, -{C_text("f_10900:expand_2escm"),(void*)f_10900}, -{C_text("f_10913:expand_2escm"),(void*)f_10913}, -{C_text("f_10916:expand_2escm"),(void*)f_10916}, -{C_text("f_10920:expand_2escm"),(void*)f_10920}, -{C_text("f_10923:expand_2escm"),(void*)f_10923}, -{C_text("f_10925:expand_2escm"),(void*)f_10925}, -{C_text("f_10928:expand_2escm"),(void*)f_10928}, -{C_text("f_10948:expand_2escm"),(void*)f_10948}, -{C_text("f_10951:expand_2escm"),(void*)f_10951}, -{C_text("f_10954:expand_2escm"),(void*)f_10954}, -{C_text("f_10964:expand_2escm"),(void*)f_10964}, -{C_text("f_10966:expand_2escm"),(void*)f_10966}, -{C_text("f_10977:expand_2escm"),(void*)f_10977}, -{C_text("f_10983:expand_2escm"),(void*)f_10983}, -{C_text("f_10995:expand_2escm"),(void*)f_10995}, -{C_text("f_10999:expand_2escm"),(void*)f_10999}, -{C_text("f_11001:expand_2escm"),(void*)f_11001}, -{C_text("f_11015:expand_2escm"),(void*)f_11015}, -{C_text("f_11031:expand_2escm"),(void*)f_11031}, -{C_text("f_11055:expand_2escm"),(void*)f_11055}, -{C_text("f_11090:expand_2escm"),(void*)f_11090}, -{C_text("f_11124:expand_2escm"),(void*)f_11124}, -{C_text("f_11147:expand_2escm"),(void*)f_11147}, -{C_text("f_11182:expand_2escm"),(void*)f_11182}, -{C_text("f_11207:expand_2escm"),(void*)f_11207}, -{C_text("f_11209:expand_2escm"),(void*)f_11209}, -{C_text("f_11288:expand_2escm"),(void*)f_11288}, -{C_text("f_11300:expand_2escm"),(void*)f_11300}, -{C_text("f_11311:expand_2escm"),(void*)f_11311}, -{C_text("f_11315:expand_2escm"),(void*)f_11315}, -{C_text("f_11318:expand_2escm"),(void*)f_11318}, -{C_text("f_11321:expand_2escm"),(void*)f_11321}, -{C_text("f_11324:expand_2escm"),(void*)f_11324}, -{C_text("f_11327:expand_2escm"),(void*)f_11327}, -{C_text("f_11330:expand_2escm"),(void*)f_11330}, -{C_text("f_11333:expand_2escm"),(void*)f_11333}, -{C_text("f_11336:expand_2escm"),(void*)f_11336}, -{C_text("f_11339:expand_2escm"),(void*)f_11339}, -{C_text("f_11343:expand_2escm"),(void*)f_11343}, -{C_text("f_11347:expand_2escm"),(void*)f_11347}, -{C_text("f_11350:expand_2escm"),(void*)f_11350}, -{C_text("f_11353:expand_2escm"),(void*)f_11353}, -{C_text("f_11356:expand_2escm"),(void*)f_11356}, -{C_text("f_11359:expand_2escm"),(void*)f_11359}, -{C_text("f_11363:expand_2escm"),(void*)f_11363}, -{C_text("f_11367:expand_2escm"),(void*)f_11367}, -{C_text("f_11370:expand_2escm"),(void*)f_11370}, -{C_text("f_11373:expand_2escm"),(void*)f_11373}, -{C_text("f_11376:expand_2escm"),(void*)f_11376}, -{C_text("f_11379:expand_2escm"),(void*)f_11379}, -{C_text("f_11382:expand_2escm"),(void*)f_11382}, -{C_text("f_11385:expand_2escm"),(void*)f_11385}, -{C_text("f_11388:expand_2escm"),(void*)f_11388}, -{C_text("f_11391:expand_2escm"),(void*)f_11391}, -{C_text("f_11394:expand_2escm"),(void*)f_11394}, -{C_text("f_11397:expand_2escm"),(void*)f_11397}, -{C_text("f_11400:expand_2escm"),(void*)f_11400}, -{C_text("f_11403:expand_2escm"),(void*)f_11403}, -{C_text("f_11406:expand_2escm"),(void*)f_11406}, -{C_text("f_11409:expand_2escm"),(void*)f_11409}, -{C_text("f_11412:expand_2escm"),(void*)f_11412}, -{C_text("f_11414:expand_2escm"),(void*)f_11414}, -{C_text("f_11420:expand_2escm"),(void*)f_11420}, -{C_text("f_11428:expand_2escm"),(void*)f_11428}, -{C_text("f_11430:expand_2escm"),(void*)f_11430}, -{C_text("f_11448:expand_2escm"),(void*)f_11448}, -{C_text("f_11456:expand_2escm"),(void*)f_11456}, -{C_text("f_11464:expand_2escm"),(void*)f_11464}, -{C_text("f_11466:expand_2escm"),(void*)f_11466}, -{C_text("f_11486:expand_2escm"),(void*)f_11486}, -{C_text("f_11492:expand_2escm"),(void*)f_11492}, -{C_text("f_11517:expand_2escm"),(void*)f_11517}, -{C_text("f_11532:expand_2escm"),(void*)f_11532}, -{C_text("f_11536:expand_2escm"),(void*)f_11536}, -{C_text("f_11541:expand_2escm"),(void*)f_11541}, -{C_text("f_11547:expand_2escm"),(void*)f_11547}, -{C_text("f_11551:expand_2escm"),(void*)f_11551}, -{C_text("f_11555:expand_2escm"),(void*)f_11555}, -{C_text("f_11559:expand_2escm"),(void*)f_11559}, -{C_text("f_11563:expand_2escm"),(void*)f_11563}, -{C_text("f_11567:expand_2escm"),(void*)f_11567}, -{C_text("f_11571:expand_2escm"),(void*)f_11571}, -{C_text("f_11578:expand_2escm"),(void*)f_11578}, -{C_text("f_11583:expand_2escm"),(void*)f_11583}, -{C_text("f_11587:expand_2escm"),(void*)f_11587}, -{C_text("f_11591:expand_2escm"),(void*)f_11591}, -{C_text("f_11595:expand_2escm"),(void*)f_11595}, -{C_text("f_11600:expand_2escm"),(void*)f_11600}, -{C_text("f_11604:expand_2escm"),(void*)f_11604}, -{C_text("f_11608:expand_2escm"),(void*)f_11608}, -{C_text("f_11612:expand_2escm"),(void*)f_11612}, -{C_text("f_11616:expand_2escm"),(void*)f_11616}, -{C_text("f_11618:expand_2escm"),(void*)f_11618}, -{C_text("f_11624:expand_2escm"),(void*)f_11624}, -{C_text("f_11632:expand_2escm"),(void*)f_11632}, -{C_text("f_11634:expand_2escm"),(void*)f_11634}, -{C_text("f_11662:expand_2escm"),(void*)f_11662}, -{C_text("f_11672:expand_2escm"),(void*)f_11672}, -{C_text("f_11686:expand_2escm"),(void*)f_11686}, -{C_text("f_11711:expand_2escm"),(void*)f_11711}, -{C_text("f_11728:expand_2escm"),(void*)f_11728}, -{C_text("f_11735:expand_2escm"),(void*)f_11735}, -{C_text("f_11756:expand_2escm"),(void*)f_11756}, -{C_text("f_11760:expand_2escm"),(void*)f_11760}, -{C_text("f_11764:expand_2escm"),(void*)f_11764}, -{C_text("f_11766:expand_2escm"),(void*)f_11766}, -{C_text("f_11771:expand_2escm"),(void*)f_11771}, -{C_text("f_11794:expand_2escm"),(void*)f_11794}, -{C_text("f_11828:expand_2escm"),(void*)f_11828}, -{C_text("f_11864:expand_2escm"),(void*)f_11864}, -{C_text("f_11868:expand_2escm"),(void*)f_11868}, -{C_text("f_11872:expand_2escm"),(void*)f_11872}, -{C_text("f_11921:expand_2escm"),(void*)f_11921}, -{C_text("f_11929:expand_2escm"),(void*)f_11929}, -{C_text("f_11942:expand_2escm"),(void*)f_11942}, -{C_text("f_11975:expand_2escm"),(void*)f_11975}, -{C_text("f_11979:expand_2escm"),(void*)f_11979}, -{C_text("f_11982:expand_2escm"),(void*)f_11982}, -{C_text("f_12029:expand_2escm"),(void*)f_12029}, -{C_text("f_12053:expand_2escm"),(void*)f_12053}, -{C_text("f_12087:expand_2escm"),(void*)f_12087}, -{C_text("f_12103:expand_2escm"),(void*)f_12103}, -{C_text("f_12114:expand_2escm"),(void*)f_12114}, -{C_text("f_12126:expand_2escm"),(void*)f_12126}, -{C_text("f_12129:expand_2escm"),(void*)f_12129}, -{C_text("f_12139:expand_2escm"),(void*)f_12139}, -{C_text("f_12143:expand_2escm"),(void*)f_12143}, -{C_text("f_12155:expand_2escm"),(void*)f_12155}, -{C_text("f_12208:expand_2escm"),(void*)f_12208}, -{C_text("f_12212:expand_2escm"),(void*)f_12212}, -{C_text("f_12237:expand_2escm"),(void*)f_12237}, -{C_text("f_12243:expand_2escm"),(void*)f_12243}, -{C_text("f_12282:expand_2escm"),(void*)f_12282}, -{C_text("f_12303:expand_2escm"),(void*)f_12303}, -{C_text("f_12325:expand_2escm"),(void*)f_12325}, -{C_text("f_12328:expand_2escm"),(void*)f_12328}, -{C_text("f_12334:expand_2escm"),(void*)f_12334}, -{C_text("f_12346:expand_2escm"),(void*)f_12346}, -{C_text("f_12349:expand_2escm"),(void*)f_12349}, -{C_text("f_12352:expand_2escm"),(void*)f_12352}, -{C_text("f_12365:expand_2escm"),(void*)f_12365}, -{C_text("f_12369:expand_2escm"),(void*)f_12369}, -{C_text("f_12373:expand_2escm"),(void*)f_12373}, -{C_text("f_12375:expand_2escm"),(void*)f_12375}, -{C_text("f_12396:expand_2escm"),(void*)f_12396}, -{C_text("f_12448:expand_2escm"),(void*)f_12448}, -{C_text("f_12452:expand_2escm"),(void*)f_12452}, -{C_text("f_12469:expand_2escm"),(void*)f_12469}, -{C_text("f_12473:expand_2escm"),(void*)f_12473}, -{C_text("f_12481:expand_2escm"),(void*)f_12481}, -{C_text("f_12497:expand_2escm"),(void*)f_12497}, -{C_text("f_12516:expand_2escm"),(void*)f_12516}, -{C_text("f_12531:expand_2escm"),(void*)f_12531}, -{C_text("f_12550:expand_2escm"),(void*)f_12550}, -{C_text("f_12565:expand_2escm"),(void*)f_12565}, -{C_text("f_12567:expand_2escm"),(void*)f_12567}, -{C_text("f_12609:expand_2escm"),(void*)f_12609}, -{C_text("f_12620:expand_2escm"),(void*)f_12620}, -{C_text("f_12639:expand_2escm"),(void*)f_12639}, -{C_text("f_12654:expand_2escm"),(void*)f_12654}, -{C_text("f_12656:expand_2escm"),(void*)f_12656}, -{C_text("f_12670:expand_2escm"),(void*)f_12670}, -{C_text("f_12677:expand_2escm"),(void*)f_12677}, -{C_text("f_12685:expand_2escm"),(void*)f_12685}, -{C_text("f_12712:expand_2escm"),(void*)f_12712}, -{C_text("f_12719:expand_2escm"),(void*)f_12719}, -{C_text("f_12726:expand_2escm"),(void*)f_12726}, -{C_text("f_12732:expand_2escm"),(void*)f_12732}, -{C_text("f_12742:expand_2escm"),(void*)f_12742}, -{C_text("f_12749:expand_2escm"),(void*)f_12749}, -{C_text("f_12773:expand_2escm"),(void*)f_12773}, -{C_text("f_12777:expand_2escm"),(void*)f_12777}, -{C_text("f_12781:expand_2escm"),(void*)f_12781}, -{C_text("f_12784:expand_2escm"),(void*)f_12784}, -{C_text("f_12788:expand_2escm"),(void*)f_12788}, -{C_text("f_12792:expand_2escm"),(void*)f_12792}, -{C_text("f_12796:expand_2escm"),(void*)f_12796}, -{C_text("f_12798:expand_2escm"),(void*)f_12798}, -{C_text("f_12802:expand_2escm"),(void*)f_12802}, -{C_text("f_12810:expand_2escm"),(void*)f_12810}, -{C_text("f_12819:expand_2escm"),(void*)f_12819}, -{C_text("f_12832:expand_2escm"),(void*)f_12832}, -{C_text("f_12834:expand_2escm"),(void*)f_12834}, -{C_text("f_12838:expand_2escm"),(void*)f_12838}, -{C_text("f_12852:expand_2escm"),(void*)f_12852}, -{C_text("f_12854:expand_2escm"),(void*)f_12854}, -{C_text("f_12858:expand_2escm"),(void*)f_12858}, -{C_text("f_12865:expand_2escm"),(void*)f_12865}, -{C_text("f_12885:expand_2escm"),(void*)f_12885}, -{C_text("f_12887:expand_2escm"),(void*)f_12887}, -{C_text("f_12891:expand_2escm"),(void*)f_12891}, -{C_text("f_12894:expand_2escm"),(void*)f_12894}, -{C_text("f_12897:expand_2escm"),(void*)f_12897}, -{C_text("f_12899:expand_2escm"),(void*)f_12899}, -{C_text("f_12907:expand_2escm"),(void*)f_12907}, -{C_text("f_12909:expand_2escm"),(void*)f_12909}, -{C_text("f_12923:expand_2escm"),(void*)f_12923}, -{C_text("f_12927:expand_2escm"),(void*)f_12927}, -{C_text("f_12946:expand_2escm"),(void*)f_12946}, -{C_text("f_12955:expand_2escm"),(void*)f_12955}, -{C_text("f_12969:expand_2escm"),(void*)f_12969}, -{C_text("f_12979:expand_2escm"),(void*)f_12979}, -{C_text("f_12990:expand_2escm"),(void*)f_12990}, -{C_text("f_13000:expand_2escm"),(void*)f_13000}, -{C_text("f_13009:expand_2escm"),(void*)f_13009}, -{C_text("f_13020:expand_2escm"),(void*)f_13020}, -{C_text("f_13031:expand_2escm"),(void*)f_13031}, -{C_text("f_13039:expand_2escm"),(void*)f_13039}, -{C_text("f_13054:expand_2escm"),(void*)f_13054}, -{C_text("f_13058:expand_2escm"),(void*)f_13058}, -{C_text("f_13072:expand_2escm"),(void*)f_13072}, -{C_text("f_13076:expand_2escm"),(void*)f_13076}, -{C_text("f_13080:expand_2escm"),(void*)f_13080}, -{C_text("f_13102:expand_2escm"),(void*)f_13102}, -{C_text("f_13106:expand_2escm"),(void*)f_13106}, -{C_text("f_13149:expand_2escm"),(void*)f_13149}, -{C_text("f_13167:expand_2escm"),(void*)f_13167}, -{C_text("f_13178:expand_2escm"),(void*)f_13178}, -{C_text("f_13180:expand_2escm"),(void*)f_13180}, -{C_text("f_13184:expand_2escm"),(void*)f_13184}, -{C_text("f_13196:expand_2escm"),(void*)f_13196}, -{C_text("f_13224:expand_2escm"),(void*)f_13224}, -{C_text("f_13245:expand_2escm"),(void*)f_13245}, -{C_text("f_13286:expand_2escm"),(void*)f_13286}, -{C_text("f_13288:expand_2escm"),(void*)f_13288}, -{C_text("f_13298:expand_2escm"),(void*)f_13298}, -{C_text("f_13338:expand_2escm"),(void*)f_13338}, -{C_text("f_13374:expand_2escm"),(void*)f_13374}, -{C_text("f_13376:expand_2escm"),(void*)f_13376}, -{C_text("f_13380:expand_2escm"),(void*)f_13380}, -{C_text("f_13390:expand_2escm"),(void*)f_13390}, -{C_text("f_13415:expand_2escm"),(void*)f_13415}, -{C_text("f_13425:expand_2escm"),(void*)f_13425}, -{C_text("f_13427:expand_2escm"),(void*)f_13427}, -{C_text("f_13431:expand_2escm"),(void*)f_13431}, -{C_text("f_13439:expand_2escm"),(void*)f_13439}, -{C_text("f_13442:expand_2escm"),(void*)f_13442}, -{C_text("f_13445:expand_2escm"),(void*)f_13445}, -{C_text("f_13448:expand_2escm"),(void*)f_13448}, -{C_text("f_13451:expand_2escm"),(void*)f_13451}, -{C_text("f_13462:expand_2escm"),(void*)f_13462}, -{C_text("f_13464:expand_2escm"),(void*)f_13464}, -{C_text("f_13478:expand_2escm"),(void*)f_13478}, -{C_text("f_13484:expand_2escm"),(void*)f_13484}, -{C_text("f_13487:expand_2escm"),(void*)f_13487}, -{C_text("f_13491:expand_2escm"),(void*)f_13491}, -{C_text("f_13497:expand_2escm"),(void*)f_13497}, -{C_text("f_13500:expand_2escm"),(void*)f_13500}, -{C_text("f_13515:expand_2escm"),(void*)f_13515}, -{C_text("f_13556:expand_2escm"),(void*)f_13556}, -{C_text("f_13560:expand_2escm"),(void*)f_13560}, -{C_text("f_13563:expand_2escm"),(void*)f_13563}, -{C_text("f_13596:expand_2escm"),(void*)f_13596}, -{C_text("f_13611:expand_2escm"),(void*)f_13611}, -{C_text("f_13613:expand_2escm"),(void*)f_13613}, -{C_text("f_13661:expand_2escm"),(void*)f_13661}, -{C_text("f_13663:expand_2escm"),(void*)f_13663}, -{C_text("f_13670:expand_2escm"),(void*)f_13670}, -{C_text("f_13673:expand_2escm"),(void*)f_13673}, -{C_text("f_13676:expand_2escm"),(void*)f_13676}, -{C_text("f_13681:expand_2escm"),(void*)f_13681}, -{C_text("f_13695:expand_2escm"),(void*)f_13695}, -{C_text("f_13701:expand_2escm"),(void*)f_13701}, -{C_text("f_13704:expand_2escm"),(void*)f_13704}, -{C_text("f_13708:expand_2escm"),(void*)f_13708}, -{C_text("f_13714:expand_2escm"),(void*)f_13714}, -{C_text("f_13717:expand_2escm"),(void*)f_13717}, -{C_text("f_13720:expand_2escm"),(void*)f_13720}, -{C_text("f_13723:expand_2escm"),(void*)f_13723}, -{C_text("f_13727:expand_2escm"),(void*)f_13727}, -{C_text("f_13733:expand_2escm"),(void*)f_13733}, -{C_text("f_13736:expand_2escm"),(void*)f_13736}, -{C_text("f_13739:expand_2escm"),(void*)f_13739}, -{C_text("f_13745:expand_2escm"),(void*)f_13745}, -{C_text("f_13771:expand_2escm"),(void*)f_13771}, -{C_text("f_13799:expand_2escm"),(void*)f_13799}, -{C_text("f_13816:expand_2escm"),(void*)f_13816}, -{C_text("f_13822:expand_2escm"),(void*)f_13822}, -{C_text("f_13825:expand_2escm"),(void*)f_13825}, -{C_text("f_13844:expand_2escm"),(void*)f_13844}, -{C_text("f_13862:expand_2escm"),(void*)f_13862}, -{C_text("f_13865:expand_2escm"),(void*)f_13865}, -{C_text("f_13892:expand_2escm"),(void*)f_13892}, -{C_text("f_13919:expand_2escm"),(void*)f_13919}, -{C_text("f_13982:expand_2escm"),(void*)f_13982}, -{C_text("f_14000:expand_2escm"),(void*)f_14000}, -{C_text("f_14016:expand_2escm"),(void*)f_14016}, -{C_text("f_14052:expand_2escm"),(void*)f_14052}, -{C_text("f_14054:expand_2escm"),(void*)f_14054}, -{C_text("f_14077:expand_2escm"),(void*)f_14077}, -{C_text("f_14096:expand_2escm"),(void*)f_14096}, -{C_text("f_14104:expand_2escm"),(void*)f_14104}, -{C_text("f_14106:expand_2escm"),(void*)f_14106}, -{C_text("f_14137:expand_2escm"),(void*)f_14137}, -{C_text("f_14141:expand_2escm"),(void*)f_14141}, -{C_text("f_14143:expand_2escm"),(void*)f_14143}, -{C_text("f_14147:expand_2escm"),(void*)f_14147}, -{C_text("f_14170:expand_2escm"),(void*)f_14170}, -{C_text("f_14185:expand_2escm"),(void*)f_14185}, -{C_text("f_14187:expand_2escm"),(void*)f_14187}, -{C_text("f_14191:expand_2escm"),(void*)f_14191}, -{C_text("f_14194:expand_2escm"),(void*)f_14194}, -{C_text("f_14207:expand_2escm"),(void*)f_14207}, -{C_text("f_14209:expand_2escm"),(void*)f_14209}, -{C_text("f_14213:expand_2escm"),(void*)f_14213}, -{C_text("f_14216:expand_2escm"),(void*)f_14216}, -{C_text("f_14229:expand_2escm"),(void*)f_14229}, -{C_text("f_14231:expand_2escm"),(void*)f_14231}, -{C_text("f_14235:expand_2escm"),(void*)f_14235}, -{C_text("f_14238:expand_2escm"),(void*)f_14238}, -{C_text("f_14251:expand_2escm"),(void*)f_14251}, -{C_text("f_14253:expand_2escm"),(void*)f_14253}, -{C_text("f_14257:expand_2escm"),(void*)f_14257}, -{C_text("f_14268:expand_2escm"),(void*)f_14268}, -{C_text("f_14278:expand_2escm"),(void*)f_14278}, -{C_text("f_14303:expand_2escm"),(void*)f_14303}, -{C_text("f_14305:expand_2escm"),(void*)f_14305}, -{C_text("f_14309:expand_2escm"),(void*)f_14309}, -{C_text("f_14326:expand_2escm"),(void*)f_14326}, -{C_text("f_14329:expand_2escm"),(void*)f_14329}, -{C_text("f_14335:expand_2escm"),(void*)f_14335}, -{C_text("f_14342:expand_2escm"),(void*)f_14342}, -{C_text("f_14346:expand_2escm"),(void*)f_14346}, -{C_text("f_14350:expand_2escm"),(void*)f_14350}, -{C_text("f_14352:expand_2escm"),(void*)f_14352}, -{C_text("f_14356:expand_2escm"),(void*)f_14356}, -{C_text("f_14361:expand_2escm"),(void*)f_14361}, -{C_text("f_14376:expand_2escm"),(void*)f_14376}, -{C_text("f_14387:expand_2escm"),(void*)f_14387}, -{C_text("f_14390:expand_2escm"),(void*)f_14390}, -{C_text("f_14412:expand_2escm"),(void*)f_14412}, -{C_text("f_14419:expand_2escm"),(void*)f_14419}, -{C_text("f_14423:expand_2escm"),(void*)f_14423}, -{C_text("f_14432:expand_2escm"),(void*)f_14432}, -{C_text("f_14439:expand_2escm"),(void*)f_14439}, -{C_text("f_14442:expand_2escm"),(void*)f_14442}, -{C_text("f_14477:expand_2escm"),(void*)f_14477}, -{C_text("f_14479:expand_2escm"),(void*)f_14479}, -{C_text("f_14483:expand_2escm"),(void*)f_14483}, -{C_text("f_14494:expand_2escm"),(void*)f_14494}, -{C_text("f_14496:expand_2escm"),(void*)f_14496}, -{C_text("f_14500:expand_2escm"),(void*)f_14500}, -{C_text("f_14511:expand_2escm"),(void*)f_14511}, -{C_text("f_14513:expand_2escm"),(void*)f_14513}, -{C_text("f_14517:expand_2escm"),(void*)f_14517}, -{C_text("f_14528:expand_2escm"),(void*)f_14528}, -{C_text("f_14530:expand_2escm"),(void*)f_14530}, -{C_text("f_14534:expand_2escm"),(void*)f_14534}, -{C_text("f_14545:expand_2escm"),(void*)f_14545}, -{C_text("f_14547:expand_2escm"),(void*)f_14547}, -{C_text("f_14551:expand_2escm"),(void*)f_14551}, -{C_text("f_14554:expand_2escm"),(void*)f_14554}, -{C_text("f_14564:expand_2escm"),(void*)f_14564}, -{C_text("f_14568:expand_2escm"),(void*)f_14568}, -{C_text("f_14570:expand_2escm"),(void*)f_14570}, -{C_text("f_14574:expand_2escm"),(void*)f_14574}, -{C_text("f_14577:expand_2escm"),(void*)f_14577}, -{C_text("f_14580:expand_2escm"),(void*)f_14580}, -{C_text("f_14603:expand_2escm"),(void*)f_14603}, -{C_text("f_14606:expand_2escm"),(void*)f_14606}, -{C_text("f_14652:expand_2escm"),(void*)f_14652}, -{C_text("f_14654:expand_2escm"),(void*)f_14654}, -{C_text("f_14658:expand_2escm"),(void*)f_14658}, -{C_text("f_14661:expand_2escm"),(void*)f_14661}, -{C_text("f_14684:expand_2escm"),(void*)f_14684}, -{C_text("f_14712:expand_2escm"),(void*)f_14712}, -{C_text("f_14717:expand_2escm"),(void*)f_14717}, -{C_text("f_14724:expand_2escm"),(void*)f_14724}, -{C_text("f_14727:expand_2escm"),(void*)f_14727}, -{C_text("f_14736:expand_2escm"),(void*)f_14736}, -{C_text("f_14781:expand_2escm"),(void*)f_14781}, -{C_text("f_14783:expand_2escm"),(void*)f_14783}, -{C_text("f_14808:expand_2escm"),(void*)f_14808}, -{C_text("f_14819:expand_2escm"),(void*)f_14819}, -{C_text("f_14823:expand_2escm"),(void*)f_14823}, -{C_text("f_14825:expand_2escm"),(void*)f_14825}, -{C_text("f_14833:expand_2escm"),(void*)f_14833}, -{C_text("f_14835:expand_2escm"),(void*)f_14835}, -{C_text("f_14847:expand_2escm"),(void*)f_14847}, -{C_text("f_14899:expand_2escm"),(void*)f_14899}, -{C_text("f_14905:expand_2escm"),(void*)f_14905}, -{C_text("f_14908:expand_2escm"),(void*)f_14908}, -{C_text("f_14911:expand_2escm"),(void*)f_14911}, -{C_text("f_14916:expand_2escm"),(void*)f_14916}, -{C_text("f_14941:expand_2escm"),(void*)f_14941}, -{C_text("f_14956:expand_2escm"),(void*)f_14956}, -{C_text("f_14958:expand_2escm"),(void*)f_14958}, -{C_text("f_14962:expand_2escm"),(void*)f_14962}, -{C_text("f_14965:expand_2escm"),(void*)f_14965}, -{C_text("f_14968:expand_2escm"),(void*)f_14968}, -{C_text("f_14975:expand_2escm"),(void*)f_14975}, -{C_text("f_14983:expand_2escm"),(void*)f_14983}, -{C_text("f_14985:expand_2escm"),(void*)f_14985}, -{C_text("f_14992:expand_2escm"),(void*)f_14992}, -{C_text("f_14995:expand_2escm"),(void*)f_14995}, -{C_text("f_14999:expand_2escm"),(void*)f_14999}, -{C_text("f_15007:expand_2escm"),(void*)f_15007}, -{C_text("f_15011:expand_2escm"),(void*)f_15011}, -{C_text("f_15014:expand_2escm"),(void*)f_15014}, -{C_text("f_15020:expand_2escm"),(void*)f_15020}, -{C_text("f_15028:expand_2escm"),(void*)f_15028}, -{C_text("f_15033:expand_2escm"),(void*)f_15033}, -{C_text("f_15040:expand_2escm"),(void*)f_15040}, -{C_text("f_15086:expand_2escm"),(void*)f_15086}, -{C_text("f_15111:expand_2escm"),(void*)f_15111}, -{C_text("f_15126:expand_2escm"),(void*)f_15126}, -{C_text("f_15135:expand_2escm"),(void*)f_15135}, -{C_text("f_15156:expand_2escm"),(void*)f_15156}, -{C_text("f_15162:expand_2escm"),(void*)f_15162}, -{C_text("f_15164:expand_2escm"),(void*)f_15164}, -{C_text("f_15189:expand_2escm"),(void*)f_15189}, -{C_text("f_15198:expand_2escm"),(void*)f_15198}, -{C_text("f_15202:expand_2escm"),(void*)f_15202}, -{C_text("f_15224:expand_2escm"),(void*)f_15224}, -{C_text("f_15226:expand_2escm"),(void*)f_15226}, -{C_text("f_15251:expand_2escm"),(void*)f_15251}, -{C_text("f_15268:expand_2escm"),(void*)f_15268}, -{C_text("f_15272:expand_2escm"),(void*)f_15272}, -{C_text("f_15277:expand_2escm"),(void*)f_15277}, -{C_text("f_15282:expand_2escm"),(void*)f_15282}, -{C_text("f_15288:expand_2escm"),(void*)f_15288}, -{C_text("f_15300:expand_2escm"),(void*)f_15300}, -{C_text("f_15325:expand_2escm"),(void*)f_15325}, -{C_text("f_15334:expand_2escm"),(void*)f_15334}, -{C_text("f_15340:expand_2escm"),(void*)f_15340}, -{C_text("f_15346:expand_2escm"),(void*)f_15346}, -{C_text("f_15351:expand_2escm"),(void*)f_15351}, -{C_text("f_15359:expand_2escm"),(void*)f_15359}, -{C_text("f_15361:expand_2escm"),(void*)f_15361}, -{C_text("f_15373:expand_2escm"),(void*)f_15373}, -{C_text("f_15402:expand_2escm"),(void*)f_15402}, -{C_text("f_15409:expand_2escm"),(void*)f_15409}, -{C_text("f_15413:expand_2escm"),(void*)f_15413}, -{C_text("f_15421:expand_2escm"),(void*)f_15421}, -{C_text("f_15432:expand_2escm"),(void*)f_15432}, -{C_text("f_15443:expand_2escm"),(void*)f_15443}, -{C_text("f_15454:expand_2escm"),(void*)f_15454}, -{C_text("f_15461:expand_2escm"),(void*)f_15461}, -{C_text("f_15465:expand_2escm"),(void*)f_15465}, -{C_text("f_15476:expand_2escm"),(void*)f_15476}, -{C_text("f_15483:expand_2escm"),(void*)f_15483}, -{C_text("f_15487:expand_2escm"),(void*)f_15487}, -{C_text("f_15502:expand_2escm"),(void*)f_15502}, -{C_text("f_15506:expand_2escm"),(void*)f_15506}, -{C_text("f_15521:expand_2escm"),(void*)f_15521}, -{C_text("f_15525:expand_2escm"),(void*)f_15525}, -{C_text("f_15533:expand_2escm"),(void*)f_15533}, -{C_text("f_15548:expand_2escm"),(void*)f_15548}, -{C_text("f_15558:expand_2escm"),(void*)f_15558}, -{C_text("f_15613:expand_2escm"),(void*)f_15613}, -{C_text("f_15657:expand_2escm"),(void*)f_15657}, -{C_text("f_15659:expand_2escm"),(void*)f_15659}, -{C_text("f_15663:expand_2escm"),(void*)f_15663}, -{C_text("f_15669:expand_2escm"),(void*)f_15669}, -{C_text("f_15675:expand_2escm"),(void*)f_15675}, -{C_text("f_15678:expand_2escm"),(void*)f_15678}, -{C_text("f_15690:expand_2escm"),(void*)f_15690}, -{C_text("f_15693:expand_2escm"),(void*)f_15693}, -{C_text("f_15724:expand_2escm"),(void*)f_15724}, -{C_text("f_15728:expand_2escm"),(void*)f_15728}, -{C_text("f_15731:expand_2escm"),(void*)f_15731}, -{C_text("f_15738:expand_2escm"),(void*)f_15738}, -{C_text("f_15747:expand_2escm"),(void*)f_15747}, -{C_text("f_15772:expand_2escm"),(void*)f_15772}, -{C_text("f_15806:expand_2escm"),(void*)f_15806}, -{C_text("f_15820:expand_2escm"),(void*)f_15820}, -{C_text("f_15832:expand_2escm"),(void*)f_15832}, -{C_text("f_15834:expand_2escm"),(void*)f_15834}, -{C_text("f_15846:expand_2escm"),(void*)f_15846}, -{C_text("f_15848:expand_2escm"),(void*)f_15848}, -{C_text("f_15852:expand_2escm"),(void*)f_15852}, -{C_text("f_15863:expand_2escm"),(void*)f_15863}, -{C_text("f_15873:expand_2escm"),(void*)f_15873}, -{C_text("f_15881:expand_2escm"),(void*)f_15881}, -{C_text("f_15883:expand_2escm"),(void*)f_15883}, -{C_text("f_15892:expand_2escm"),(void*)f_15892}, -{C_text("f_15898:expand_2escm"),(void*)f_15898}, -{C_text("f_15904:expand_2escm"),(void*)f_15904}, -{C_text("f_15908:expand_2escm"),(void*)f_15908}, -{C_text("f_15911:expand_2escm"),(void*)f_15911}, -{C_text("f_15914:expand_2escm"),(void*)f_15914}, -{C_text("f_15945:expand_2escm"),(void*)f_15945}, -{C_text("f_15954:expand_2escm"),(void*)f_15954}, -{C_text("f_15956:expand_2escm"),(void*)f_15956}, -{C_text("f_15981:expand_2escm"),(void*)f_15981}, -{C_text("f_15992:expand_2escm"),(void*)f_15992}, -{C_text("f_15994:expand_2escm"),(void*)f_15994}, -{C_text("f_16002:expand_2escm"),(void*)f_16002}, -{C_text("f_16004:expand_2escm"),(void*)f_16004}, -{C_text("f_4864:expand_2escm"),(void*)f_4864}, -{C_text("f_4867:expand_2escm"),(void*)f_4867}, -{C_text("f_4870:expand_2escm"),(void*)f_4870}, -{C_text("f_6153:expand_2escm"),(void*)f_6153}, -{C_text("f_6157:expand_2escm"),(void*)f_6157}, -{C_text("f_6159:expand_2escm"),(void*)f_6159}, -{C_text("f_6176:expand_2escm"),(void*)f_6176}, -{C_text("f_6183:expand_2escm"),(void*)f_6183}, -{C_text("f_6189:expand_2escm"),(void*)f_6189}, -{C_text("f_6223:expand_2escm"),(void*)f_6223}, -{C_text("f_6229:expand_2escm"),(void*)f_6229}, -{C_text("f_6245:expand_2escm"),(void*)f_6245}, -{C_text("f_6300:expand_2escm"),(void*)f_6300}, -{C_text("f_6307:expand_2escm"),(void*)f_6307}, -{C_text("f_6325:expand_2escm"),(void*)f_6325}, -{C_text("f_6334:expand_2escm"),(void*)f_6334}, -{C_text("f_6355:expand_2escm"),(void*)f_6355}, -{C_text("f_6365:expand_2escm"),(void*)f_6365}, -{C_text("f_6369:expand_2escm"),(void*)f_6369}, -{C_text("f_6394:expand_2escm"),(void*)f_6394}, -{C_text("f_6409:expand_2escm"),(void*)f_6409}, -{C_text("f_6411:expand_2escm"),(void*)f_6411}, -{C_text("f_6459:expand_2escm"),(void*)f_6459}, -{C_text("f_6508:expand_2escm"),(void*)f_6508}, -{C_text("f_6533:expand_2escm"),(void*)f_6533}, -{C_text("f_6547:expand_2escm"),(void*)f_6547}, -{C_text("f_6556:expand_2escm"),(void*)f_6556}, -{C_text("f_6580:expand_2escm"),(void*)f_6580}, -{C_text("f_6584:expand_2escm"),(void*)f_6584}, -{C_text("f_6587:expand_2escm"),(void*)f_6587}, -{C_text("f_6594:expand_2escm"),(void*)f_6594}, -{C_text("f_6612:expand_2escm"),(void*)f_6612}, -{C_text("f_6622:expand_2escm"),(void*)f_6622}, -{C_text("f_6626:expand_2escm"),(void*)f_6626}, -{C_text("f_6648:expand_2escm"),(void*)f_6648}, -{C_text("f_6659:expand_2escm"),(void*)f_6659}, -{C_text("f_6667:expand_2escm"),(void*)f_6667}, -{C_text("f_6671:expand_2escm"),(void*)f_6671}, -{C_text("f_6673:expand_2escm"),(void*)f_6673}, -{C_text("f_6696:expand_2escm"),(void*)f_6696}, -{C_text("f_6704:expand_2escm"),(void*)f_6704}, -{C_text("f_6707:expand_2escm"),(void*)f_6707}, -{C_text("f_6717:expand_2escm"),(void*)f_6717}, -{C_text("f_6722:expand_2escm"),(void*)f_6722}, -{C_text("f_6728:expand_2escm"),(void*)f_6728}, -{C_text("f_6734:expand_2escm"),(void*)f_6734}, -{C_text("f_6756:expand_2escm"),(void*)f_6756}, -{C_text("f_6762:expand_2escm"),(void*)f_6762}, -{C_text("f_6779:expand_2escm"),(void*)f_6779}, -{C_text("f_6790:expand_2escm"),(void*)f_6790}, -{C_text("f_6796:expand_2escm"),(void*)f_6796}, -{C_text("f_6829:expand_2escm"),(void*)f_6829}, -{C_text("f_6835:expand_2escm"),(void*)f_6835}, -{C_text("f_6839:expand_2escm"),(void*)f_6839}, -{C_text("f_6842:expand_2escm"),(void*)f_6842}, -{C_text("f_6858:expand_2escm"),(void*)f_6858}, -{C_text("f_6862:expand_2escm"),(void*)f_6862}, -{C_text("f_6869:expand_2escm"),(void*)f_6869}, -{C_text("f_6875:expand_2escm"),(void*)f_6875}, -{C_text("f_6880:expand_2escm"),(void*)f_6880}, -{C_text("f_6886:expand_2escm"),(void*)f_6886}, -{C_text("f_6894:expand_2escm"),(void*)f_6894}, -{C_text("f_6900:expand_2escm"),(void*)f_6900}, -{C_text("f_6906:expand_2escm"),(void*)f_6906}, -{C_text("f_6923:expand_2escm"),(void*)f_6923}, -{C_text("f_6937:expand_2escm"),(void*)f_6937}, -{C_text("f_6961:expand_2escm"),(void*)f_6961}, -{C_text("f_6967:expand_2escm"),(void*)f_6967}, -{C_text("f_6979:expand_2escm"),(void*)f_6979}, -{C_text("f_6991:expand_2escm"),(void*)f_6991}, -{C_text("f_7016:expand_2escm"),(void*)f_7016}, -{C_text("f_7018:expand_2escm"),(void*)f_7018}, -{C_text("f_7081:expand_2escm"),(void*)f_7081}, -{C_text("f_7087:expand_2escm"),(void*)f_7087}, -{C_text("f_7125:expand_2escm"),(void*)f_7125}, -{C_text("f_7129:expand_2escm"),(void*)f_7129}, -{C_text("f_7133:expand_2escm"),(void*)f_7133}, -{C_text("f_7145:expand_2escm"),(void*)f_7145}, -{C_text("f_7184:expand_2escm"),(void*)f_7184}, -{C_text("f_7198:expand_2escm"),(void*)f_7198}, -{C_text("f_7208:expand_2escm"),(void*)f_7208}, -{C_text("f_7211:expand_2escm"),(void*)f_7211}, -{C_text("f_7215:expand_2escm"),(void*)f_7215}, -{C_text("f_7229:expand_2escm"),(void*)f_7229}, -{C_text("f_7235:expand_2escm"),(void*)f_7235}, -{C_text("f_7241:expand_2escm"),(void*)f_7241}, -{C_text("f_7277:expand_2escm"),(void*)f_7277}, -{C_text("f_7283:expand_2escm"),(void*)f_7283}, -{C_text("f_7324:expand_2escm"),(void*)f_7324}, -{C_text("f_7327:expand_2escm"),(void*)f_7327}, -{C_text("f_7341:expand_2escm"),(void*)f_7341}, -{C_text("f_7344:expand_2escm"),(void*)f_7344}, -{C_text("f_7347:expand_2escm"),(void*)f_7347}, -{C_text("f_7350:expand_2escm"),(void*)f_7350}, -{C_text("f_7355:expand_2escm"),(void*)f_7355}, -{C_text("f_7369:expand_2escm"),(void*)f_7369}, -{C_text("f_7373:expand_2escm"),(void*)f_7373}, -{C_text("f_7385:expand_2escm"),(void*)f_7385}, -{C_text("f_7416:expand_2escm"),(void*)f_7416}, -{C_text("f_7441:expand_2escm"),(void*)f_7441}, -{C_text("f_7460:expand_2escm"),(void*)f_7460}, -{C_text("f_7464:expand_2escm"),(void*)f_7464}, -{C_text("f_7513:expand_2escm"),(void*)f_7513}, -{C_text("f_7566:expand_2escm"),(void*)f_7566}, -{C_text("f_7570:expand_2escm"),(void*)f_7570}, -{C_text("f_7573:expand_2escm"),(void*)f_7573}, -{C_text("f_7576:expand_2escm"),(void*)f_7576}, -{C_text("f_7578:expand_2escm"),(void*)f_7578}, -{C_text("f_7603:expand_2escm"),(void*)f_7603}, -{C_text("f_7617:expand_2escm"),(void*)f_7617}, -{C_text("f_7658:expand_2escm"),(void*)f_7658}, -{C_text("f_7671:expand_2escm"),(void*)f_7671}, -{C_text("f_7687:expand_2escm"),(void*)f_7687}, -{C_text("f_7708:expand_2escm"),(void*)f_7708}, -{C_text("f_7747:expand_2escm"),(void*)f_7747}, -{C_text("f_7766:expand_2escm"),(void*)f_7766}, -{C_text("f_7834:expand_2escm"),(void*)f_7834}, -{C_text("f_7933:expand_2escm"),(void*)f_7933}, -{C_text("f_7939:expand_2escm"),(void*)f_7939}, -{C_text("f_7943:expand_2escm"),(void*)f_7943}, -{C_text("f_7946:expand_2escm"),(void*)f_7946}, -{C_text("f_7965:expand_2escm"),(void*)f_7965}, -{C_text("f_7969:expand_2escm"),(void*)f_7969}, -{C_text("f_7987:expand_2escm"),(void*)f_7987}, -{C_text("f_8009:expand_2escm"),(void*)f_8009}, -{C_text("f_8075:expand_2escm"),(void*)f_8075}, -{C_text("f_8100:expand_2escm"),(void*)f_8100}, -{C_text("f_8113:expand_2escm"),(void*)f_8113}, -{C_text("f_8117:expand_2escm"),(void*)f_8117}, -{C_text("f_8128:expand_2escm"),(void*)f_8128}, -{C_text("f_8135:expand_2escm"),(void*)f_8135}, -{C_text("f_8144:expand_2escm"),(void*)f_8144}, -{C_text("f_8164:expand_2escm"),(void*)f_8164}, -{C_text("f_8175:expand_2escm"),(void*)f_8175}, -{C_text("f_8177:expand_2escm"),(void*)f_8177}, -{C_text("f_8179:expand_2escm"),(void*)f_8179}, -{C_text("f_8185:expand_2escm"),(void*)f_8185}, -{C_text("f_8192:expand_2escm"),(void*)f_8192}, -{C_text("f_8201:expand_2escm"),(void*)f_8201}, -{C_text("f_8237:expand_2escm"),(void*)f_8237}, -{C_text("f_8248:expand_2escm"),(void*)f_8248}, -{C_text("f_8252:expand_2escm"),(void*)f_8252}, -{C_text("f_8256:expand_2escm"),(void*)f_8256}, -{C_text("f_8260:expand_2escm"),(void*)f_8260}, -{C_text("f_8264:expand_2escm"),(void*)f_8264}, -{C_text("f_8266:expand_2escm"),(void*)f_8266}, -{C_text("f_8278:expand_2escm"),(void*)f_8278}, -{C_text("f_8292:expand_2escm"),(void*)f_8292}, -{C_text("f_8297:expand_2escm"),(void*)f_8297}, -{C_text("f_8308:expand_2escm"),(void*)f_8308}, -{C_text("f_8314:expand_2escm"),(void*)f_8314}, -{C_text("f_8328:expand_2escm"),(void*)f_8328}, -{C_text("f_8332:expand_2escm"),(void*)f_8332}, -{C_text("f_8340:expand_2escm"),(void*)f_8340}, -{C_text("f_8347:expand_2escm"),(void*)f_8347}, -{C_text("f_8359:expand_2escm"),(void*)f_8359}, -{C_text("f_8366:expand_2escm"),(void*)f_8366}, -{C_text("f_8370:expand_2escm"),(void*)f_8370}, -{C_text("f_8377:expand_2escm"),(void*)f_8377}, -{C_text("f_8408:expand_2escm"),(void*)f_8408}, -{C_text("f_8437:expand_2escm"),(void*)f_8437}, -{C_text("f_8469:expand_2escm"),(void*)f_8469}, -{C_text("f_8475:expand_2escm"),(void*)f_8475}, -{C_text("f_8481:expand_2escm"),(void*)f_8481}, -{C_text("f_8487:expand_2escm"),(void*)f_8487}, -{C_text("f_8525:expand_2escm"),(void*)f_8525}, -{C_text("f_8527:expand_2escm"),(void*)f_8527}, -{C_text("f_8531:expand_2escm"),(void*)f_8531}, -{C_text("f_8534:expand_2escm"),(void*)f_8534}, -{C_text("f_8540:expand_2escm"),(void*)f_8540}, -{C_text("f_8544:expand_2escm"),(void*)f_8544}, -{C_text("f_8566:expand_2escm"),(void*)f_8566}, -{C_text("f_8569:expand_2escm"),(void*)f_8569}, -{C_text("f_8572:expand_2escm"),(void*)f_8572}, -{C_text("f_8575:expand_2escm"),(void*)f_8575}, -{C_text("f_8577:expand_2escm"),(void*)f_8577}, -{C_text("f_8584:expand_2escm"),(void*)f_8584}, -{C_text("f_8610:expand_2escm"),(void*)f_8610}, -{C_text("f_8639:expand_2escm"),(void*)f_8639}, -{C_text("f_8673:expand_2escm"),(void*)f_8673}, -{C_text("f_8691:expand_2escm"),(void*)f_8691}, -{C_text("f_8703:expand_2escm"),(void*)f_8703}, -{C_text("f_8711:expand_2escm"),(void*)f_8711}, -{C_text("f_8713:expand_2escm"),(void*)f_8713}, -{C_text("f_8735:expand_2escm"),(void*)f_8735}, -{C_text("f_8738:expand_2escm"),(void*)f_8738}, -{C_text("f_8740:expand_2escm"),(void*)f_8740}, -{C_text("f_8787:expand_2escm"),(void*)f_8787}, -{C_text("f_8791:expand_2escm"),(void*)f_8791}, -{C_text("f_8859:expand_2escm"),(void*)f_8859}, -{C_text("f_8865:expand_2escm"),(void*)f_8865}, -{C_text("f_8888:expand_2escm"),(void*)f_8888}, -{C_text("f_8903:expand_2escm"),(void*)f_8903}, -{C_text("f_8906:expand_2escm"),(void*)f_8906}, -{C_text("f_8911:expand_2escm"),(void*)f_8911}, -{C_text("f_8924:expand_2escm"),(void*)f_8924}, -{C_text("f_8927:expand_2escm"),(void*)f_8927}, -{C_text("f_8977:expand_2escm"),(void*)f_8977}, -{C_text("f_8984:expand_2escm"),(void*)f_8984}, -{C_text("f_8991:expand_2escm"),(void*)f_8991}, -{C_text("f_9040:expand_2escm"),(void*)f_9040}, -{C_text("f_9043:expand_2escm"),(void*)f_9043}, -{C_text("f_9052:expand_2escm"),(void*)f_9052}, -{C_text("f_9055:expand_2escm"),(void*)f_9055}, -{C_text("f_9084:expand_2escm"),(void*)f_9084}, -{C_text("f_9091:expand_2escm"),(void*)f_9091}, -{C_text("f_9107:expand_2escm"),(void*)f_9107}, -{C_text("f_9177:expand_2escm"),(void*)f_9177}, -{C_text("f_9180:expand_2escm"),(void*)f_9180}, -{C_text("f_9194:expand_2escm"),(void*)f_9194}, -{C_text("f_9234:expand_2escm"),(void*)f_9234}, -{C_text("f_9257:expand_2escm"),(void*)f_9257}, -{C_text("f_9259:expand_2escm"),(void*)f_9259}, -{C_text("f_9262:expand_2escm"),(void*)f_9262}, -{C_text("f_9306:expand_2escm"),(void*)f_9306}, -{C_text("f_9314:expand_2escm"),(void*)f_9314}, -{C_text("f_9322:expand_2escm"),(void*)f_9322}, -{C_text("f_9324:expand_2escm"),(void*)f_9324}, -{C_text("f_9330:expand_2escm"),(void*)f_9330}, -{C_text("f_9341:expand_2escm"),(void*)f_9341}, -{C_text("f_9346:expand_2escm"),(void*)f_9346}, -{C_text("f_9366:expand_2escm"),(void*)f_9366}, -{C_text("f_9370:expand_2escm"),(void*)f_9370}, -{C_text("f_9385:expand_2escm"),(void*)f_9385}, -{C_text("f_9397:expand_2escm"),(void*)f_9397}, -{C_text("f_9399:expand_2escm"),(void*)f_9399}, -{C_text("f_9406:expand_2escm"),(void*)f_9406}, -{C_text("f_9413:expand_2escm"),(void*)f_9413}, -{C_text("f_9415:expand_2escm"),(void*)f_9415}, -{C_text("f_9425:expand_2escm"),(void*)f_9425}, -{C_text("f_9428:expand_2escm"),(void*)f_9428}, -{C_text("f_9431:expand_2escm"),(void*)f_9431}, -{C_text("f_9434:expand_2escm"),(void*)f_9434}, -{C_text("f_9437:expand_2escm"),(void*)f_9437}, -{C_text("f_9444:expand_2escm"),(void*)f_9444}, -{C_text("f_9451:expand_2escm"),(void*)f_9451}, -{C_text("f_9454:expand_2escm"),(void*)f_9454}, -{C_text("f_9463:expand_2escm"),(void*)f_9463}, -{C_text("f_9466:expand_2escm"),(void*)f_9466}, -{C_text("f_9469:expand_2escm"),(void*)f_9469}, -{C_text("f_9472:expand_2escm"),(void*)f_9472}, -{C_text("f_9475:expand_2escm"),(void*)f_9475}, -{C_text("f_9478:expand_2escm"),(void*)f_9478}, -{C_text("f_9491:expand_2escm"),(void*)f_9491}, -{C_text("f_9495:expand_2escm"),(void*)f_9495}, -{C_text("f_9506:expand_2escm"),(void*)f_9506}, -{C_text("f_9510:expand_2escm"),(void*)f_9510}, -{C_text("f_9512:expand_2escm"),(void*)f_9512}, -{C_text("f_9526:expand_2escm"),(void*)f_9526}, -{C_text("f_9530:expand_2escm"),(void*)f_9530}, -{C_text("f_9557:expand_2escm"),(void*)f_9557}, -{C_text("f_9563:expand_2escm"),(void*)f_9563}, -{C_text("f_9583:expand_2escm"),(void*)f_9583}, -{C_text("f_9607:expand_2escm"),(void*)f_9607}, -{C_text("f_9611:expand_2escm"),(void*)f_9611}, -{C_text("f_9617:expand_2escm"),(void*)f_9617}, -{C_text("f_9623:expand_2escm"),(void*)f_9623}, -{C_text("f_9636:expand_2escm"),(void*)f_9636}, -{C_text("f_9658:expand_2escm"),(void*)f_9658}, -{C_text("f_9675:expand_2escm"),(void*)f_9675}, -{C_text("f_9683:expand_2escm"),(void*)f_9683}, -{C_text("f_9703:expand_2escm"),(void*)f_9703}, -{C_text("f_9707:expand_2escm"),(void*)f_9707}, -{C_text("f_9711:expand_2escm"),(void*)f_9711}, -{C_text("f_9722:expand_2escm"),(void*)f_9722}, -{C_text("f_9729:expand_2escm"),(void*)f_9729}, -{C_text("f_9732:expand_2escm"),(void*)f_9732}, -{C_text("f_9736:expand_2escm"),(void*)f_9736}, -{C_text("f_9763:expand_2escm"),(void*)f_9763}, -{C_text("f_9769:expand_2escm"),(void*)f_9769}, -{C_text("f_9776:expand_2escm"),(void*)f_9776}, -{C_text("f_9779:expand_2escm"),(void*)f_9779}, -{C_text("f_9782:expand_2escm"),(void*)f_9782}, -{C_text("f_9795:expand_2escm"),(void*)f_9795}, -{C_text("f_9797:expand_2escm"),(void*)f_9797}, -{C_text("f_9831:expand_2escm"),(void*)f_9831}, -{C_text("f_9834:expand_2escm"),(void*)f_9834}, -{C_text("f_9840:expand_2escm"),(void*)f_9840}, -{C_text("f_9850:expand_2escm"),(void*)f_9850}, -{C_text("f_9859:expand_2escm"),(void*)f_9859}, -{C_text("f_9876:expand_2escm"),(void*)f_9876}, -{C_text("f_9882:expand_2escm"),(void*)f_9882}, -{C_text("f_9921:expand_2escm"),(void*)f_9921}, -{C_text("f_9931:expand_2escm"),(void*)f_9931}, -{C_text("f_9936:expand_2escm"),(void*)f_9936}, -{C_text("f_9943:expand_2escm"),(void*)f_9943}, -{C_text("f_9948:expand_2escm"),(void*)f_9948}, -{C_text("f_9952:expand_2escm"),(void*)f_9952}, -{C_text("f_9959:expand_2escm"),(void*)f_9959}, -{C_text("f_9966:expand_2escm"),(void*)f_9966}, -{C_text("f_9973:expand_2escm"),(void*)f_9973}, -{C_text("f_9975:expand_2escm"),(void*)f_9975}, -{C_text("f_9979:expand_2escm"),(void*)f_9979}, -{C_text("f_9987:expand_2escm"),(void*)f_9987}, -{C_text("toplevel:expand_2escm"),(void*)C_expand_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.syntax#d -o|hiding unexported module binding: chicken.syntax#define-alias -o|hiding unexported module binding: chicken.syntax#partition -o|hiding unexported module binding: chicken.syntax#span -o|hiding unexported module binding: chicken.syntax#take -o|hiding unexported module binding: chicken.syntax#drop -o|hiding unexported module binding: chicken.syntax#split-at -o|hiding unexported module binding: chicken.syntax#append-map -o|hiding unexported module binding: chicken.syntax#every -o|hiding unexported module binding: chicken.syntax#any -o|hiding unexported module binding: chicken.syntax#cons* -o|hiding unexported module binding: chicken.syntax#concatenate -o|hiding unexported module binding: chicken.syntax#delete -o|hiding unexported module binding: chicken.syntax#first -o|hiding unexported module binding: chicken.syntax#second -o|hiding unexported module binding: chicken.syntax#third -o|hiding unexported module binding: chicken.syntax#fourth -o|hiding unexported module binding: chicken.syntax#fifth -o|hiding unexported module binding: chicken.syntax#delete-duplicates -o|hiding unexported module binding: chicken.syntax#alist-cons -o|hiding unexported module binding: chicken.syntax#filter -o|hiding unexported module binding: chicken.syntax#filter-map -o|hiding unexported module binding: chicken.syntax#remove -o|hiding unexported module binding: chicken.syntax#unzip1 -o|hiding unexported module binding: chicken.syntax#last -o|hiding unexported module binding: chicken.syntax#list-index -o|hiding unexported module binding: chicken.syntax#lset-adjoin/eq? -o|hiding unexported module binding: chicken.syntax#lset-difference/eq? -o|hiding unexported module binding: chicken.syntax#lset-union/eq? -o|hiding unexported module binding: chicken.syntax#lset-intersection/eq? -o|hiding unexported module binding: chicken.syntax#list-tabulate -o|hiding unexported module binding: chicken.syntax#lset<=/eq? -o|hiding unexported module binding: chicken.syntax#lset=/eq? -o|hiding unexported module binding: chicken.syntax#length+ -o|hiding unexported module binding: chicken.syntax#find -o|hiding unexported module binding: chicken.syntax#find-tail -o|hiding unexported module binding: chicken.syntax#iota -o|hiding unexported module binding: chicken.syntax#make-list -o|hiding unexported module binding: chicken.syntax#posq -o|hiding unexported module binding: chicken.syntax#posv -o|hiding unexported module binding: chicken.syntax#d -o|hiding unexported module binding: chicken.syntax#map-se -o|hiding unexported module binding: chicken.syntax#dd -o|hiding unexported module binding: chicken.syntax#dm -o|hiding unexported module binding: chicken.syntax#dx -o|hiding unexported module binding: chicken.syntax#lookup -o|hiding unexported module binding: chicken.syntax#macro-alias -o|hiding unexported module binding: chicken.syntax#expansion-result-hook -o|hiding unexported module binding: chicken.syntax#defjam-error -o|hiding unexported module binding: chicken.syntax#define-definition -o|hiding unexported module binding: chicken.syntax#define-syntax-definition -o|hiding unexported module binding: chicken.syntax#define-values-definition -o|hiding unexported module binding: chicken.syntax#import-definition -o|hiding unexported module binding: chicken.syntax#alist-weak-cons -o|hiding unexported module binding: chicken.syntax#assq/drop-bwp! -o|hiding unexported module binding: chicken.syntax#read-with-source-info-hook -o|hiding unexported module binding: chicken.syntax#make-er/ir-transformer -o|hiding unexported module binding: chicken.internal.syntax-rules#process-syntax-rules -S|applied compiler syntax: -S| chicken.format#sprintf 1 -S| ##sys#map 5 -S| scheme#for-each 1 -S| chicken.base#foldl 4 -S| scheme#map 21 -S| chicken.base#foldr 3 -o|eliminated procedure checks: 657 -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|specializations: -o| 1 (scheme#zero? *) -o| 1 (##sys#check-output-port * * *) -o| 2 (scheme#cdddr (pair * (pair * pair))) -o| 6 (scheme#cddr (pair * pair)) -o| 2 (scheme#= fixnum fixnum) -o| 2 (scheme#vector-length vector) -o| 8 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) -o| 1 (scheme#current-output-port) -o| 1 (##sys#check-input-port * * *) -o| 2 (scheme#caar (pair pair *)) -o| 1 (scheme#>= fixnum fixnum) -o| 4 (scheme#length list) -o| 23 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) -o| 1 (scheme#set-cdr! pair *) -o| 1 (scheme#set-car! pair *) -o| 1 (scheme#eqv? * *) -o| 13 (##sys#check-list (or pair list) *) -o| 109 (scheme#cdr pair) -o| 77 (scheme#car pair) -(o e)|safe calls: 1605 -(o e)|assignments to immediate values: 8 -o|safe globals: (##sys#current-source-filename chicken.syntax#posv chicken.syntax#posq chicken.syntax#make-list chicken.syntax#iota chicken.syntax#find-tail chicken.syntax#find chicken.syntax#length+ chicken.syntax#lset=/eq? chicken.syntax#lset<=/eq? chicken.syntax#list-tabulate chicken.syntax#lset-intersection/eq? chicken.syntax#lset-union/eq? chicken.syntax#lset-difference/eq? chicken.syntax#lset-adjoin/eq? chicken.syntax#list-index chicken.syntax#last chicken.syntax#unzip1 chicken.syntax#remove chicken.syntax#filter-map chicken.syntax#filter chicken.syntax#alist-cons chicken.syntax#delete-duplicates chicken.syntax#fifth chicken.syntax#fourth chicken.syntax#third chicken.syntax#second chicken.syntax#first chicken.syntax#delete chicken.syntax#concatenate chicken.syntax#cons* chicken.syntax#any chicken.syntax#every chicken.syntax#append-map chicken.syntax#split-at chicken.syntax#drop chicken.syntax#take chicken.syntax#span chicken.syntax#partition) -o|removed side-effect free assignment to unused variable: chicken.syntax#partition -o|removed side-effect free assignment to unused variable: chicken.syntax#span -o|removed side-effect free assignment to unused variable: chicken.syntax#drop -o|removed side-effect free assignment to unused variable: chicken.syntax#split-at -o|removed side-effect free assignment to unused variable: chicken.syntax#append-map -o|inlining procedure: k5252 -o|inlining procedure: k5252 -o|inlining procedure: k5283 -o|inlining procedure: k5283 -o|removed side-effect free assignment to unused variable: chicken.syntax#cons* -o|removed side-effect free assignment to unused variable: chicken.syntax#concatenate -o|removed side-effect free assignment to unused variable: chicken.syntax#first -o|removed side-effect free assignment to unused variable: chicken.syntax#second -o|removed side-effect free assignment to unused variable: chicken.syntax#third -o|removed side-effect free assignment to unused variable: chicken.syntax#fourth -o|removed side-effect free assignment to unused variable: chicken.syntax#fifth -o|removed side-effect free assignment to unused variable: chicken.syntax#delete-duplicates -o|inlining procedure: k5500 -o|inlining procedure: k5500 -o|inlining procedure: k5492 -o|inlining procedure: k5492 -o|removed side-effect free assignment to unused variable: chicken.syntax#filter-map -o|removed side-effect free assignment to unused variable: chicken.syntax#remove -o|removed side-effect free assignment to unused variable: chicken.syntax#unzip1 -o|removed side-effect free assignment to unused variable: chicken.syntax#last -o|removed side-effect free assignment to unused variable: chicken.syntax#list-index -o|removed side-effect free assignment to unused variable: chicken.syntax#lset-adjoin/eq? -o|removed side-effect free assignment to unused variable: chicken.syntax#lset-difference/eq? -o|removed side-effect free assignment to unused variable: chicken.syntax#lset-union/eq? -o|removed side-effect free assignment to unused variable: chicken.syntax#lset-intersection/eq? -o|inlining procedure: k5891 -o|inlining procedure: k5891 -o|removed side-effect free assignment to unused variable: chicken.syntax#lset<=/eq? -o|removed side-effect free assignment to unused variable: chicken.syntax#lset=/eq? -o|removed side-effect free assignment to unused variable: chicken.syntax#length+ -o|removed side-effect free assignment to unused variable: chicken.syntax#find -o|removed side-effect free assignment to unused variable: chicken.syntax#find-tail -o|removed side-effect free assignment to unused variable: chicken.syntax#iota -o|removed side-effect free assignment to unused variable: chicken.syntax#make-list -o|removed side-effect free assignment to unused variable: chicken.syntax#posq -o|removed side-effect free assignment to unused variable: chicken.syntax#posv -o|inlining procedure: k6161 -o|inlining procedure: k6161 -o|contracted procedure: "(expand.scm:93) g816817" -o|inlining procedure: k6178 -o|inlining procedure: k6178 -o|contracted procedure: "(expand.scm:103) g849850" -o|contracted procedure: "(expand.scm:102) g844845" -o|contracted procedure: "(expand.scm:101) g838839" -o|contracted procedure: "(expand.scm:97) g826827" -o|inlining procedure: k6234 -o|inlining procedure: k6234 -o|inlining procedure: k6246 -o|inlining procedure: k6265 -o|inlining procedure: k6265 -o|contracted procedure: "(expand.scm:117) g880881" -o|contracted procedure: "(expand.scm:116) g869870" -o|inlining procedure: k6246 -o|inlining procedure: k6314 -o|inlining procedure: k6336 -o|inlining procedure: k6336 -o|inlining procedure: k6314 -o|inlining procedure: k6413 -o|contracted procedure: "(expand.scm:142) g981991" -o|inlining procedure: k6413 -o|inlining procedure: k6461 -o|contracted procedure: "(expand.scm:137) g939947" -o|contracted procedure: "(expand.scm:140) g957958" -o|contracted procedure: "(expand.scm:139) g953954" -o|inlining procedure: k6461 -o|inlining procedure: k6510 -o|inlining procedure: k6510 -o|inlining procedure: k6561 -o|inlining procedure: k6561 -o|inlining procedure: k6591 -o|inlining procedure: k6591 -o|inlining procedure: k6633 -o|inlining procedure: k6633 -o|inlining procedure: k6675 -o|inlining procedure: k6675 -o|inlining procedure: k6740 -o|inlining procedure: k6764 -o|inlining procedure: k6764 -o|inlining procedure: k6807 -o|inlining procedure: k6807 -o|inlining procedure: k6740 -o|inlining procedure: k6911 -o|inlining procedure: k6911 -o|inlining procedure: k6939 -o|inlining procedure: k6962 -o|inlining procedure: k6962 -o|inlining procedure: k6983 -o|inlining procedure: k7020 -o|inlining procedure: k7020 -o|inlining procedure: k7089 -o|contracted procedure: "(expand.scm:277) g11631172" -o|inlining procedure: k7089 -o|inlining procedure: k6983 -o|inlining procedure: k7134 -o|inlining procedure: k7134 -o|inlining procedure: k7126 -o|inlining procedure: k7126 -o|inlining procedure: k7164 -o|contracted procedure: "(expand.scm:282) g12131214" -o|inlining procedure: k7164 -o|inlining procedure: k7192 -o|inlining procedure: k7192 -o|inlining procedure: k6939 -o|inlining procedure: k7243 -o|inlining procedure: k7243 -o|inlining procedure: k7285 -o|inlining procedure: k7311 -o|inlining procedure: k7311 -o|substituted constant variable: a7318 -o|substituted constant variable: a7320 -o|substituted constant variable: a7322 -o|inlining procedure: k7285 -o|inlining procedure: k7357 -o|inlining procedure: k7374 -o|inlining procedure: k7374 -o|substituted constant variable: %let1297 -o|inlining procedure: k7417 -o|inlining procedure: k7417 -o|inlining procedure: k7470 -o|inlining procedure: k7470 -o|inlining procedure: k7482 -o|inlining procedure: k7482 -o|inlining procedure: k7542 -o|substituted constant variable: %lambda1294 -o|inlining procedure: k7542 -o|contracted procedure: "(expand.scm:356) ->keyword1288" -o|inlining procedure: k7580 -o|inlining procedure: k7580 -o|inlining procedure: k7357 -o|inlining procedure: k7627 -o|inlining procedure: k7627 -o|inlining procedure: k7644 -o|inlining procedure: k7644 -o|inlining procedure: k7672 -o|inlining procedure: k7672 -o|inlining procedure: k7688 -o|inlining procedure: k7700 -o|inlining procedure: k7700 -o|inlining procedure: k7688 -o|inlining procedure: k7748 -o|inlining procedure: k7748 -o|inlining procedure: k7767 -o|inlining procedure: k7786 -o|inlining procedure: k7786 -o|substituted constant variable: a7824 -o|substituted constant variable: a7826 -o|substituted constant variable: a7828 -o|inlining procedure: k7767 -o|inlining procedure: k7835 -o|inlining procedure: k7835 -o|inlining procedure: k7857 -o|inlining procedure: k7857 -o|substituted constant variable: a7874 -o|substituted constant variable: a7876 -o|substituted constant variable: a7878 -o|inlining procedure: k7885 -o|inlining procedure: k7885 -o|substituted constant variable: a7901 -o|substituted constant variable: a7903 -o|substituted constant variable: a7905 -o|inlining procedure: k7909 -o|inlining procedure: k7909 -o|inlining procedure: k7989 -o|inlining procedure: k7989 -o|inlining procedure: k8011 -o|contracted procedure: "(expand.scm:447) g14571467" -o|inlining procedure: k8011 -o|inlining procedure: k8077 -o|inlining procedure: k8077 -o|inlining procedure: k8136 -o|inlining procedure: k8136 -o|inlining procedure: k8193 -o|inlining procedure: k8208 -o|inlining procedure: k8208 -o|inlining procedure: k8193 -o|inlining procedure: k8268 -o|inlining procedure: k8280 -o|inlining procedure: k8280 -o|inlining procedure: k8303 -o|inlining procedure: k8303 -o|inlining procedure: k8354 -o|inlining procedure: k8372 -o|inlining procedure: k8372 -o|inlining procedure: k8354 -o|inlining procedure: k8429 -o|inlining procedure: k8429 -o|inlining procedure: k8461 -o|inlining procedure: k8476 -o|inlining procedure: k8476 -o|inlining procedure: k8488 -o|inlining procedure: k8488 -o|inlining procedure: k8461 -o|inlining procedure: k8268 -o|inlining procedure: k8579 -o|contracted procedure: "(expand.scm:541) g16601671" -o|inlining procedure: k8551 -o|inlining procedure: k8551 -o|inlining procedure: k8579 -o|inlining procedure: k8629 -o|inlining procedure: k8629 -o|inlining procedure: k8641 -o|contracted procedure: "(expand.scm:533) g16121621" -o|inlining procedure: k8641 -o|inlining procedure: k8675 -o|contracted procedure: "(expand.scm:536) g16281633" -o|inlining procedure: k8675 -o|substituted constant variable: g16291632 -o|inlining procedure: k8715 -o|inlining procedure: k8742 -o|inlining procedure: k8742 -o|inlining procedure: k8715 -o|inlining procedure: k8782 -o|inlining procedure: "(expand.scm:569) chicken.syntax#defjam-error" -o|inlining procedure: k8782 -o|inlining procedure: k8821 -o|inlining procedure: k8821 -o|substituted constant variable: a8843 -o|inlining procedure: k8870 -o|inlining procedure: k8870 -o|inlining procedure: k8898 -o|inlining procedure: k8916 -o|inlining procedure: k8944 -o|inlining procedure: k8944 -o|inlining procedure: "(expand.scm:595) chicken.syntax#defjam-error" -o|inlining procedure: k8916 -o|inlining procedure: k8898 -o|inlining procedure: k9047 -o|inlining procedure: k9047 -o|inlining procedure: k9096 -o|inlining procedure: k9096 -o|inlining procedure: k9132 -o|inlining procedure: k9132 -o|inlining procedure: k9182 -o|inlining procedure: k9206 -o|inlining procedure: k9206 -o|inlining procedure: k9182 -o|inlining procedure: k9229 -o|inlining procedure: k9229 -o|inlining procedure: k9252 -o|inlining procedure: k9252 -o|inlining procedure: k9264 -o|inlining procedure: k9264 -o|inlining procedure: k9386 -o|inlining procedure: k9386 -o|inlining procedure: k9417 -o|inlining procedure: k9417 -o|inlining procedure: k9479 -o|inlining procedure: k9479 -o|inlining procedure: k9514 -o|inlining procedure: k9514 -o|contracted procedure: "(expand.scm:711) syntax-imports1844" -o|inlining procedure: k9348 -o|inlining procedure: k9348 -o|inlining procedure: k9565 -o|inlining procedure: k9565 -o|inlining procedure: k9578 -o|inlining procedure: k9578 -o|inlining procedure: k9609 -o|inlining procedure: "(expand.scm:760) chicken.syntax#alist-weak-cons" -o|propagated global variable: tmp19151917 ##sys#current-source-filename -o|inlining procedure: k9638 -o|propagated global variable: tmp19151917 ##sys#current-source-filename -o|inlining procedure: k9638 -o|inlining procedure: k9609 -o|substituted constant variable: a9667 -o|substituted constant variable: a9668 -o|inlining procedure: k9685 -o|inlining procedure: k9695 -o|inlining procedure: k9712 -o|inlining procedure: k9712 -o|inlining procedure: k9695 -o|inlining procedure: k9685 -o|inlining procedure: k9733 -o|inlining procedure: k9733 -o|inlining procedure: k9771 -o|inlining procedure: k9799 -o|inlining procedure: k9799 -o|propagated global variable: port1967 ##sys#standard-output -o|inlining procedure: k9771 -o|inlining procedure: k9842 -o|inlining procedure: k9842 -o|inlining procedure: k9864 -o|inlining procedure: k9864 -o|inlining procedure: k9883 -o|inlining procedure: k9883 -o|contracted procedure: "(expand.scm:819) chicken.syntax#alist-cons" -o|inlining procedure: k9938 -o|inlining procedure: k9938 -o|inlining procedure: k9957 -o|inlining procedure: k9957 -o|propagated global variable: sexp2051 ##sys#syntax-error-culprit -o|inlining procedure: k9980 -o|inlining procedure: k9980 -o|inlining procedure: k9992 -o|inlining procedure: k9992 -o|inlining procedure: k10001 -o|inlining procedure: k10001 -o|inlining procedure: k10037 -o|inlining procedure: k10037 -o|inlining procedure: k10060 -o|inlining procedure: k10084 -o|inlining procedure: k10084 -o|inlining procedure: k10119 -o|inlining procedure: k10119 -o|inlining procedure: k10142 -o|inlining procedure: k10142 -o|inlining procedure: k10060 -o|inlining procedure: k10163 -o|inlining procedure: k10163 -o|inlining procedure: k10176 -o|inlining procedure: k10188 -o|inlining procedure: k10188 -o|inlining procedure: k10206 -o|inlining procedure: k10206 -o|inlining procedure: k10224 -o|inlining procedure: k10224 -o|inlining procedure: k10242 -o|inlining procedure: k10242 -o|inlining procedure: k10264 -o|inlining procedure: k10264 -o|substituted constant variable: a10277 -o|substituted constant variable: a10279 -o|substituted constant variable: a10281 -o|substituted constant variable: a10283 -o|substituted constant variable: a10285 -o|substituted constant variable: a10287 -o|substituted constant variable: a10289 -o|substituted constant variable: a10291 -o|inlining procedure: k10176 -o|inlining procedure: k10301 -o|inlining procedure: k10301 -o|inlining procedure: k10379 -o|inlining procedure: k10391 -o|inlining procedure: k10403 -o|inlining procedure: k10403 -o|inlining procedure: "(expand.scm:924) chicken.syntax#alist-weak-cons" -o|inlining procedure: k10391 -o|inlining procedure: k10379 -o|inlining procedure: k10425 -o|inlining procedure: k10425 -o|inlining procedure: k10467 -o|inlining procedure: k10467 -o|contracted procedure: "(expand.scm:928) g21612162" -o|inlining procedure: k10511 -o|inlining procedure: k10526 -o|inlining procedure: k10526 -o|inlining procedure: k10511 -o|inlining procedure: k10549 -o|inlining procedure: k10570 -o|inlining procedure: k10570 -o|inlining procedure: k10549 -o|inlining procedure: k10607 -o|inlining procedure: k10635 -o|inlining procedure: k10635 -o|inlining procedure: k10666 -o|inlining procedure: k10666 -o|inlining procedure: k10700 -o|inlining procedure: k10700 -o|removed unused parameter to known procedure: n2240 "(expand.scm:961) lookup22151" -o|contracted procedure: "(expand.scm:960) g22082209" -o|inlining procedure: k10706 -o|inlining procedure: k10706 -o|removed unused parameter to known procedure: n2240 "(expand.scm:958) lookup22151" -o|contracted procedure: "(expand.scm:957) g21982199" -o|inlining procedure: k10607 -o|removed unused formal parameters: (n2240) -o|inlining procedure: k10730 -o|inlining procedure: k10730 -o|inlining procedure: k10755 -o|inlining procedure: k10755 -o|inlining procedure: k10797 -o|inlining procedure: k10797 -o|contracted procedure: "(expand.scm:998) g22652266" -o|inlining procedure: k10823 -o|inlining procedure: k10823 -o|inlining procedure: k10852 -o|contracted procedure: "(expand.scm:998) g22822283" -o|inlining procedure: k10852 -o|contracted procedure: "(expand.scm:1005) g22782279" -o|inlining procedure: k10873 -o|inlining procedure: k10873 -o|inlining procedure: k10955 -o|inlining procedure: k10955 -o|inlining procedure: k10968 -o|inlining procedure: k10984 -o|inlining procedure: k10984 -o|inlining procedure: "(expand.scm:1106) file-exists?2504" -o|inlining procedure: "(expand.scm:1105) file-exists?2504" -o|inlining procedure: k10968 -o|inlining procedure: k11003 -o|inlining procedure: k11003 -o|inlining procedure: k11032 -o|inlining procedure: k11044 -o|inlining procedure: k11044 -o|inlining procedure: k11032 -o|inlining procedure: k11076 -o|inlining procedure: k11091 -o|inlining procedure: k11091 -o|inlining procedure: k11076 -o|inlining procedure: k11112 -o|inlining procedure: k11112 -o|inlining procedure: k11135 -o|inlining procedure: k11135 -o|substituted constant variable: a11167 -o|substituted constant variable: a11169 -o|substituted constant variable: a11171 -o|substituted constant variable: a11173 -o|inlining procedure: k11184 -o|inlining procedure: k11211 -o|contracted procedure: "(expand.scm:1138) g25682577" -o|inlining procedure: k11211 -o|inlining procedure: k11184 -o|inlining procedure: k11255 -o|inlining procedure: k11255 -o|inlining procedure: k11274 -o|inlining procedure: k11274 -o|inlining procedure: k11283 -o|inlining procedure: k11283 -o|inlining procedure: k11432 -o|inlining procedure: k11432 -o|inlining procedure: k11468 -o|inlining procedure: k11468 -o|inlining procedure: k11494 -o|inlining procedure: k11494 -o|contracted procedure: "(synrules.scm:55) chicken.internal.syntax-rules#process-syntax-rules" -o|removed side-effect free assignment to unused variable: %length3577 -o|removed side-effect free assignment to unused variable: %vector-length3579 -o|removed side-effect free assignment to unused variable: %vector-ref3580 -o|removed side-effect free assignment to unused variable: %null?3601 -o|removed side-effect free assignment to unused variable: %or3602 -o|removed side-effect free assignment to unused variable: %syntax-error3608 -o|inlining procedure: k11688 -o|inlining procedure: k11688 -o|inlining procedure: k11730 -o|inlining procedure: k11730 -o|inlining procedure: k11778 -o|inlining procedure: k11778 -o|inlining procedure: k11796 -o|inlining procedure: k11796 -o|inlining procedure: k11832 -o|inlining procedure: k11832 -o|inlining procedure: k11934 -o|inlining procedure: k11934 -o|inlining procedure: k11968 -o|inlining procedure: k11968 -o|inlining procedure: k12089 -o|inlining procedure: k12115 -o|inlining procedure: k12115 -o|inlining procedure: k12089 -o|inlining procedure: k12161 -o|inlining procedure: k12161 -o|inlining procedure: k12196 -o|inlining procedure: k12196 -o|inlining procedure: k12245 -o|inlining procedure: k12257 -o|inlining procedure: k12257 -o|inlining procedure: k12245 -o|inlining procedure: k12283 -o|inlining procedure: k12283 -o|inlining procedure: k12320 -o|inlining procedure: k12353 -o|inlining procedure: k12353 -o|substituted constant variable: %append3572 -o|inlining procedure: k12377 -o|inlining procedure: k12377 -o|substituted constant variable: %apply3573 -o|substituted constant variable: %append3572 -o|inlining procedure: k12411 -o|inlining procedure: k12411 -o|inlining procedure: k12320 -o|inlining procedure: k12457 -o|inlining procedure: k12457 -o|inlining procedure: k12483 -o|inlining procedure: k12505 -o|inlining procedure: k12505 -o|inlining procedure: k12483 -o|inlining procedure: k12536 -o|inlining procedure: k12536 -o|inlining procedure: k12569 -o|inlining procedure: k12590 -o|inlining procedure: k12590 -o|inlining procedure: k12569 -o|inlining procedure: k12625 -o|inlining procedure: k12625 -o|inlining procedure: k12658 -o|inlining procedure: k12658 -o|inlining procedure: k12672 -o|inlining procedure: k12672 -o|inlining procedure: k12687 -o|inlining procedure: k12687 -o|inlining procedure: k12714 -o|inlining procedure: k12714 -o|inlining procedure: k12744 -o|inlining procedure: k12744 -o|inlining procedure: k12911 -o|inlining procedure: k12911 -o|inlining procedure: k12941 -o|inlining procedure: k12941 -o|inlining procedure: k12995 -o|inlining procedure: k12995 -o|inlining procedure: k13077 -o|inlining procedure: k13077 -o|inlining procedure: k13111 -o|inlining procedure: k13111 -o|inlining procedure: k13150 -o|contracted procedure: "(expand.scm:1792) g35023503" -o|inlining procedure: k13150 -o|inlining procedure: k13290 -o|contracted procedure: "(expand.scm:1749) g34053414" -o|inlining procedure: k13260 -o|inlining procedure: k13260 -o|inlining procedure: k13290 -o|inlining procedure: k13340 -o|contracted procedure: "(expand.scm:1738) g33713380" -o|inlining procedure: k13340 -o|inlining procedure: k13392 -o|inlining procedure: k13392 -o|inlining procedure: k13466 -o|inlining procedure: k13466 -o|inlining procedure: k13492 -o|inlining procedure: k13510 -o|inlining procedure: k13510 -o|inlining procedure: k13492 -o|inlining procedure: k13615 -o|inlining procedure: k13615 -o|inlining procedure: k13683 -o|inlining procedure: k13683 -o|substituted constant variable: a13710 -o|substituted constant variable: a13711 -o|inlining procedure: k13728 -o|inlining procedure: k13755 -o|inlining procedure: k13755 -o|inlining procedure: k13728 -o|inlining procedure: k13817 -o|inlining procedure: k13817 -o|inlining procedure: k13953 -o|inlining procedure: k13953 -o|inlining procedure: k13965 -o|inlining procedure: k13965 -o|inlining procedure: k13977 -o|inlining procedure: k13977 -o|inlining procedure: k13989 -o|inlining procedure: k13989 -o|inlining procedure: k14001 -o|inlining procedure: k14001 -o|inlining procedure: k14059 -o|inlining procedure: k14059 -o|inlining procedure: k14111 -o|inlining procedure: k14111 -o|inlining procedure: k14154 -o|inlining procedure: k14154 -o|inlining procedure: "(expand.scm:1517) chicken.syntax#defjam-error" -o|contracted procedure: "(expand.scm:1514) g30823083" -o|inlining procedure: k14368 -o|inlining procedure: k14403 -o|inlining procedure: k14403 -o|inlining procedure: "(expand.scm:1492) chicken.syntax#defjam-error" -o|contracted procedure: "(expand.scm:1489) g30533054" -o|inlining procedure: k14368 -o|inlining procedure: k14555 -o|inlining procedure: k14555 -o|inlining procedure: k14604 -o|inlining procedure: k14604 -o|inlining procedure: k14619 -o|inlining procedure: k14619 -o|inlining procedure: k14725 -o|inlining procedure: k14725 -o|inlining procedure: k14740 -o|inlining procedure: k14752 -o|inlining procedure: k14752 -o|substituted constant variable: a14769 -o|inlining procedure: k14740 -o|inlining procedure: k14785 -o|inlining procedure: k14785 -o|propagated global variable: g29272928 ##sys#expand-import -o|inlining procedure: k14909 -o|inlining procedure: k14909 -o|inlining procedure: k14918 -o|contracted procedure: "(expand.scm:1349) g28912900" -o|inlining procedure: k14842 -o|inlining procedure: k14842 -o|inlining procedure: k14865 -o|inlining procedure: k14877 -o|inlining procedure: k14877 -o|inlining procedure: k14865 -o|inlining procedure: k14918 -o|inlining procedure: k14966 -o|inlining procedure: k14966 -o|inlining procedure: k15035 -o|inlining procedure: k15035 -o|inlining procedure: k15063 -o|inlining procedure: k15063 -o|substituted constant variable: a15076 -o|inlining procedure: k15088 -o|inlining procedure: k15088 -o|inlining procedure: k15166 -o|inlining procedure: k15166 -o|inlining procedure: k15203 -o|inlining procedure: k15228 -o|inlining procedure: k15228 -o|inlining procedure: k15203 -o|inlining procedure: k15302 -o|inlining procedure: k15302 -o|inlining procedure: k15341 -o|substituted constant variable: name2784 -o|inlining procedure: k15341 -o|substituted constant variable: name2784 -o|inlining procedure: k15375 -o|inlining procedure: k15375 -o|inlining procedure: k15394 -o|inlining procedure: k15394 -o|contracted procedure: "(expand.scm:1303) parse-imports2660" -o|inlining procedure: k15446 -o|inlining procedure: k15446 -o|inlining procedure: k15490 -o|inlining procedure: k15490 -o|inlining procedure: k15536 -o|inlining procedure: k15536 -o|inlining procedure: "(expand.scm:1322) fail2665" -o|substituted constant variable: a15563 -o|substituted constant variable: a15565 -o|substituted constant variable: a15567 -o|substituted constant variable: a15569 -o|substituted constant variable: a15571 -o|substituted constant variable: a15573 -o|substituted constant variable: a15575 -o|inlining procedure: "(expand.scm:1323) fail2665" -o|contracted procedure: "(expand.scm:1251) register-r7rs-module2646" -o|inlining procedure: k15670 -o|inlining procedure: k15670 -o|inlining procedure: k15767 -o|inlining procedure: k15767 -o|inlining procedure: k15787 -o|inlining procedure: k15787 -o|inlining procedure: k15915 -o|inlining procedure: k15915 -o|inlining procedure: k15958 -o|inlining procedure: k15958 -o|propagated global variable: g24222423 ##sys#expand-import -o|propagated global variable: g24082409 ##sys#expand-import -o|replaced variables: 2810 -o|removed binding forms: 606 -o|removed side-effect free assignment to unused variable: chicken.syntax#every -o|removed side-effect free assignment to unused variable: chicken.syntax#any -o|removed side-effect free assignment to unused variable: chicken.syntax#filter -o|removed side-effect free assignment to unused variable: chicken.syntax#list-tabulate -o|substituted constant variable: prop819 -o|removed call to pure procedure with unused result: "(expand.scm:104) chicken.base#void" -o|substituted constant variable: prop852 -o|substituted constant variable: prop847 -o|substituted constant variable: prop841 -o|substituted constant variable: prop883 -o|substituted constant variable: prop872 -o|substituted constant variable: prop960 -o|inlining procedure: k6383 -o|inlining procedure: k6383 -o|substituted constant variable: prop956 -o|substituted constant variable: r667616045 -o|substituted constant variable: r676516049 -o|substituted constant variable: r680816052 -o|removed call to pure procedure with unused result: "(expand.scm:237) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:196) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:195) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:240) chicken.base#void" -o|inlining procedure: k7143 -o|substituted constant variable: prop1216 -o|substituted constant variable: r716516071 -o|substituted constant variable: r728616082 -o|substituted constant variable: r748316095 -o|substituted constant variable: r754316098 -o|substituted constant variable: r754316098 -o|substituted constant variable: r788616124 -o|substituted constant variable: r791016126 -o|converted assignments to bindings: (err1287) -o|removed side-effect free assignment to unused variable: chicken.syntax#defjam-error -o|substituted constant variable: r799016127 -o|substituted constant variable: r799016127 -o|inlining procedure: k7989 -o|substituted constant variable: r813716136 -o|substituted constant variable: r820916139 -o|substituted constant variable: r819416140 -o|substituted constant variable: r843016153 -o|substituted constant variable: r846216159 -o|removed call to pure procedure with unused result: "(expand.scm:552) chicken.base#void" -o|substituted constant variable: r863016166 -o|substituted constant variable: r882216183 -o|substituted constant variable: r894516190 -o|substituted constant variable: r894516190 -o|substituted constant variable: r913316204 -o|removed call to pure procedure with unused result: "(expand.scm:578) chicken.base#void" -o|substituted constant variable: r920716206 -o|substituted constant variable: r923016210 -o|substituted constant variable: r925316212 -o|substituted constant variable: r951516221 -o|substituted constant variable: r934916223 -o|converted assignments to bindings: (outstr1857) -o|removed side-effect free assignment to unused variable: chicken.syntax#alist-weak-cons -o|substituted constant variable: r956616225 -o|propagated global variable: r963916238 ##sys#current-source-filename -o|substituted constant variable: r963916240 -o|substituted constant variable: r963916240 -o|substituted constant variable: r971316247 -o|substituted constant variable: r969616248 -o|substituted constant variable: r968616249 -o|substituted constant variable: r1000216273 -o|substituted constant variable: r1014316282 -o|inlining procedure: k10379 -o|inlining procedure: k10379 -o|inlining procedure: k10379 -o|substituted constant variable: r1039216314 -o|inlining procedure: k10379 -o|removed call to pure procedure with unused result: "(expand.scm:935) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:939) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:974) chicken.base#void" -o|inlining procedure: k10511 -o|substituted constant variable: r1052716328 -o|inlining procedure: k10511 -o|inlining procedure: k10511 -o|inlining procedure: k10511 -o|substituted constant variable: r1055016338 -o|inlining procedure: k10511 -o|inlining procedure: k10511 -o|substituted constant variable: prop2211 -o|substituted constant variable: prop2201 -o|removed call to pure procedure with unused result: "(expand.scm:978) chicken.base#void" -o|substituted constant variable: r1073116349 -o|removed call to pure procedure with unused result: "(expand.scm:1000) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:1002) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:1004) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:1007) chicken.base#void" -o|removed call to pure procedure with unused result: "(expand.scm:1012) chicken.base#void" -o|substituted constant variable: prop2281 -o|converted assignments to bindings: (inherit-pair-line-numbers2134) -o|removed side-effect free assignment to unused variable: file-exists?2504 -o|substituted constant variable: r1107716386 -o|contracted procedure: "(expand.scm:1131) locate-library2505" -o|substituted constant variable: r1096916376 -o|substituted constant variable: r1127516397 -o|substituted constant variable: r1143316402 -o|removed side-effect free assignment to unused variable: %append3572 -o|removed side-effect free assignment to unused variable: %apply3573 -o|substituted constant variable: r1177916412 -o|substituted constant variable: r7ext3571 -o|substituted constant variable: r1211616423 -o|substituted constant variable: r1241216443 -o|substituted constant variable: r7ext3571 -o|substituted constant variable: r7ext3571 -o|substituted constant variable: r1250616449 -o|substituted constant variable: r1259116455 -o|substituted constant variable: r1265916460 -o|substituted constant variable: r1267316462 -o|substituted constant variable: r7ext3571 -o|substituted constant variable: r1268816464 -o|substituted constant variable: r1271516466 -o|substituted constant variable: r7ext3571 -o|substituted constant variable: r1346716489 -o|substituted constant variable: r1368416497 -o|substituted constant variable: r1406016515 -o|substituted constant variable: r1411216517 -o|inlining procedure: k14327 -o|substituted constant variable: prop3085 -o|substituted constant variable: r1440416529 -o|substituted constant variable: r1440416529 -o|substituted constant variable: prop3056 -o|substituted constant variable: r1455616538 -o|substituted constant variable: r1460516539 -o|substituted constant variable: r1460516539 -o|substituted constant variable: r1475316557 -o|substituted constant variable: r1474116558 -o|substituted constant variable: r1487816570 -o|substituted constant variable: r1486616571 -o|substituted constant variable: r1506416580 -o|removed call to pure procedure with unused result: "(expand.scm:1269) ##sys#cons" -o|substituted constant variable: r1534216592 -o|removed side-effect free assignment to unused variable: fail2665 -o|substituted constant variable: r1537616593 -o|converted assignments to bindings: (implicit-r7rs-library-bindings2647) -o|substituted constant variable: r1578816620 -o|substituted constant variable: r1591616621 -o|simplifications: ((let . 4)) -o|replaced variables: 223 -o|removed binding forms: 2296 -o|removed conditional forms: 5 -o|inlining procedure: k6169 -o|contracted procedure: k6214 -o|substituted constant variable: prop96016639 -o|substituted constant variable: prop96016645 -o|contracted procedure: k6709 -o|contracted procedure: k6712 -o|contracted procedure: k6843 -o|contracted procedure: k6908 -o|inlining procedure: k7300 -o|inlining procedure: k7300 -o|inlining procedure: k7636 -o|inlining procedure: k7636 -o|contracted procedure: k8501 -o|contracted procedure: k8867 -o|propagated global variable: r963916238 ##sys#current-source-filename -o|inlining procedure: k9663 -o|inlining procedure: k9663 -o|contracted procedure: k10481 -o|contracted procedure: k10493 -o|contracted procedure: k10514 -o|substituted constant variable: r1051216776 -o|removed call to pure procedure with unused result: "(expand.scm:974) chicken.base#void" -o|substituted constant variable: r1051216781 -o|removed call to pure procedure with unused result: "(expand.scm:974) chicken.base#void" -o|substituted constant variable: r1051216790 -o|removed call to pure procedure with unused result: "(expand.scm:974) chicken.base#void" -o|substituted constant variable: r1051216795 -o|removed call to pure procedure with unused result: "(expand.scm:974) chicken.base#void" -o|substituted constant variable: r1051216800 -o|removed call to pure procedure with unused result: "(expand.scm:974) chicken.base#void" -o|substituted constant variable: r1051216805 -o|removed call to pure procedure with unused result: "(expand.scm:974) chicken.base#void" -o|contracted procedure: k10724 -o|contracted procedure: k10814 -o|contracted procedure: k10829 -o|contracted procedure: k10841 -o|contracted procedure: k10857 -o|contracted procedure: k10866 -o|inlining procedure: k12578 -o|inlining procedure: k12578 -o|contracted procedure: k12699 -o|contracted procedure: k12760 -o|inlining procedure: k13311 -o|inlining procedure: k15137 -o|inlining procedure: k15137 -o|inlining procedure: k15933 -o|replaced variables: 11 -o|removed binding forms: 314 -o|contracted procedure: k6198 -o|contracted procedure: k6206 -o|contracted procedure: k6211 -o|contracted procedure: k6254 -o|contracted procedure: k6259 -o|contracted procedure: k6374 -o|inlining procedure: k6840 -o|substituted constant variable: r799016693 -o|contracted procedure: k1051416780 -o|contracted procedure: k1051416785 -o|contracted procedure: k1051416794 -o|contracted procedure: k1051416799 -o|contracted procedure: k10615 -o|contracted procedure: k10623 -o|contracted procedure: k1051416804 -o|contracted procedure: k1051416809 -o|inlining procedure: "(expand.scm:961) lookup22151" -o|inlining procedure: "(expand.scm:958) lookup22151" -o|contracted procedure: k10849 -o|substituted constant variable: r1257916993 -o|substituted constant variable: r1257916994 -o|contracted procedure: k14318 -o|contracted procedure: k14379 -o|contracted procedure: k15024 -o|substituted constant variable: r1593417032 -o|replaced variables: 5 -o|removed binding forms: 63 -o|removed conditional forms: 3 -o|inlining procedure: k6201 -o|inlining procedure: k6201 -o|removed side-effect free assignment to unused variable: lookup22151 -o|replaced variables: 17 -o|removed binding forms: 19 -o|inlining procedure: k10697 -o|inlining procedure: k10703 -o|replaced variables: 4 -o|removed binding forms: 13 -o|removed binding forms: 4 -o|simplifications: ((let . 99) (if . 61) (##core#call . 1238)) -o| call simplifications: -o| scheme#cdddr -o| scheme#cddddr -o| scheme#string -o| scheme#number? -o| scheme#eof-object? -o| chicken.base#bwp-object? -o| scheme#cadddr 2 -o| chicken.fixnum#fx- 2 -o| scheme#>= -o| scheme#= -o| scheme#<= -o| scheme#boolean? -o| scheme#char? 2 -o| scheme#+ 4 -o| scheme#> 2 -o| scheme#- 3 -o| scheme#cdar 2 -o| ##sys#immediate? -o| scheme#vector-ref 5 -o| chicken.fixnum#fx< 2 -o| scheme#set-cdr! -o| chicken.fixnum#fx= 7 -o| scheme#apply 3 -o| scheme#memq 5 -o| scheme#member -o| scheme#caddr 16 -o| scheme#length 8 -o| scheme#list? 8 -o| chicken.fixnum#fx<= 2 -o| chicken.fixnum#fx> 4 -o| scheme#cddr 14 -o| ##sys#list 197 -o| ##sys#cons 95 -o| scheme#cadr 40 -o| scheme#values 11 -o| ##sys#call-with-values 3 -o| ##sys#apply 2 -o| scheme#memv -o| scheme#equal? 2 -o| scheme#string? 4 -o| ##sys#make-structure 2 -o| scheme#caar 6 -o| scheme#eq? 88 -o| scheme#list 16 -o| scheme#set-car! 2 -o| ##sys#structure? 2 -o| scheme#null? 51 -o| scheme#car 81 -o| ##sys#check-list 20 -o| scheme#assq 13 -o| scheme#symbol? 51 -o| scheme#vector? 13 -o| ##sys#size 4 -o| chicken.fixnum#fx>= 5 -o| ##sys#slot 90 -o| chicken.fixnum#fx+ 4 -o| scheme#cons 100 -o| ##sys#setslot 26 -o| scheme#not 42 -o| scheme#pair? 107 -o| scheme#cdr 56 -o|contracted procedure: k6184 -o|contracted procedure: k6193 -o|contracted procedure: k6231 -o|contracted procedure: k6249 -o|contracted procedure: k6268 -o|contracted procedure: k6274 -o|contracted procedure: k6280 -o|contracted procedure: k6283 -o|contracted procedure: k6311 -o|contracted procedure: k6287 -o|contracted procedure: k6290 -o|contracted procedure: k6293 -o|contracted procedure: k6317 -o|contracted procedure: k6320 -o|contracted procedure: k6361 -o|contracted procedure: k6327 -o|contracted procedure: k6339 -o|contracted procedure: k6342 -o|contracted procedure: k6349 -o|contracted procedure: k6357 -o|contracted procedure: k6386 -o|contracted procedure: k6389 -o|contracted procedure: k6399 -o|contracted procedure: k6452 -o|contracted procedure: k6416 -o|contracted procedure: k6442 -o|contracted procedure: k6446 -o|contracted procedure: k6438 -o|contracted procedure: k6419 -o|contracted procedure: k6422 -o|contracted procedure: k6430 -o|contracted procedure: k6434 -o|contracted procedure: k6489 -o|contracted procedure: k6464 -o|contracted procedure: k6482 -o|contracted procedure: k6486 -o|contracted procedure: k6467 -o|contracted procedure: k6474 -o|contracted procedure: k6478 -o|contracted procedure: k6495 -o|contracted procedure: k6498 -o|contracted procedure: k6501 -o|contracted procedure: k6513 -o|contracted procedure: k6516 -o|contracted procedure: k6519 -o|contracted procedure: k6527 -o|contracted procedure: k6535 -o|contracted procedure: k6573 -o|contracted procedure: k6558 -o|contracted procedure: k6564 -o|contracted procedure: k6596 -o|contracted procedure: k6599 -o|contracted procedure: k6607 -o|contracted procedure: k6618 -o|contracted procedure: k6614 -o|contracted procedure: k6630 -o|contracted procedure: k6649 -o|contracted procedure: k6678 -o|contracted procedure: k6700 -o|contracted procedure: k6684 -o|contracted procedure: k6750 -o|contracted procedure: k6740 -o|contracted procedure: k6758 -o|contracted procedure: k6767 -o|contracted procedure: k6770 -o|contracted procedure: k6784 -o|contracted procedure: k6798 -o|contracted procedure: k6804 -o|contracted procedure: k6810 -o|contracted procedure: k6818 -o|contracted procedure: k6825 -o|contracted procedure: k6863 -o|contracted procedure: k6849 -o|contracted procedure: k6914 -o|contracted procedure: k6925 -o|contracted procedure: k6942 -o|contracted procedure: k6950 -o|contracted procedure: k6956 -o|contracted procedure: k6974 -o|contracted procedure: k6980 -o|contracted procedure: k6986 -o|contracted procedure: k6992 -o|contracted procedure: k7068 -o|contracted procedure: k7076 -o|contracted procedure: k7083 -o|contracted procedure: k7064 -o|contracted procedure: k7060 -o|contracted procedure: k7056 -o|contracted procedure: k7052 -o|contracted procedure: k7007 -o|contracted procedure: k7011 -o|contracted procedure: k7003 -o|contracted procedure: k6999 -o|contracted procedure: k7023 -o|contracted procedure: k7045 -o|contracted procedure: k7041 -o|contracted procedure: k7026 -o|contracted procedure: k7029 -o|contracted procedure: k7037 -o|contracted procedure: k7092 -o|contracted procedure: k7114 -o|contracted procedure: k7110 -o|contracted procedure: k7095 -o|contracted procedure: k7098 -o|contracted procedure: k7106 -o|contracted procedure: k7137 -o|contracted procedure: k7153 -o|contracted procedure: k7167 -o|contracted procedure: k7175 -o|contracted procedure: k7185 -o|contracted procedure: k7261 -o|contracted procedure: k7216 -o|contracted procedure: k7255 -o|contracted procedure: k7219 -o|contracted procedure: k7249 -o|contracted procedure: k7222 -o|contracted procedure: k7267 -o|contracted procedure: k7288 -o|contracted procedure: k7291 -o|contracted procedure: k7297 -o|contracted procedure: k7308 -o|contracted procedure: k7300 -o|contracted procedure: k7360 -o|contracted procedure: k7377 -o|contracted procedure: k7406 -o|contracted procedure: k7410 -o|contracted procedure: k7402 -o|contracted procedure: k7398 -o|contracted procedure: k7394 -o|contracted procedure: k7390 -o|inlining procedure: k7374 -o|contracted procedure: k7473 -o|contracted procedure: k7420 -o|contracted procedure: k7435 -o|contracted procedure: k7431 -o|contracted procedure: k7427 -o|inlining procedure: k7374 -o|contracted procedure: k7454 -o|contracted procedure: k7450 -o|contracted procedure: k7446 -o|inlining procedure: k7374 -o|inlining procedure: k7466 -o|inlining procedure: k7466 -o|contracted procedure: k7479 -o|contracted procedure: k7485 -o|contracted procedure: k7492 -o|contracted procedure: k7495 -o|contracted procedure: k7510 -o|contracted procedure: k7515 -o|contracted procedure: k7530 -o|contracted procedure: k7526 -o|contracted procedure: k7522 -o|contracted procedure: k7538 -o|contracted procedure: k7545 -o|contracted procedure: k7556 -o|contracted procedure: k7552 -o|contracted procedure: k7542 -o|contracted procedure: k7506 -o|contracted procedure: k7502 -o|contracted procedure: k7583 -o|contracted procedure: k7586 -o|contracted procedure: k7589 -o|contracted procedure: k7597 -o|contracted procedure: k7605 -o|contracted procedure: k7624 -o|contracted procedure: k7630 -o|contracted procedure: k7923 -o|contracted procedure: k7647 -o|contracted procedure: k7653 -o|contracted procedure: k7659 -o|contracted procedure: k7666 -o|contracted procedure: k7675 -o|contracted procedure: k7691 -o|contracted procedure: k7697 -o|contracted procedure: k7728 -o|contracted procedure: k7703 -o|contracted procedure: k7710 -o|contracted procedure: k7718 -o|contracted procedure: k7722 -o|contracted procedure: k7742 -o|contracted procedure: k7751 -o|contracted procedure: k7760 -o|contracted procedure: k7770 -o|contracted procedure: k7776 -o|contracted procedure: k7783 -o|contracted procedure: k7789 -o|contracted procedure: k7800 -o|contracted procedure: k7796 -o|contracted procedure: k7806 -o|contracted procedure: k7820 -o|contracted procedure: k7816 -o|contracted procedure: k7838 -o|contracted procedure: k7847 -o|contracted procedure: k7854 -o|contracted procedure: k7860 -o|contracted procedure: k7870 -o|contracted procedure: k7882 -o|contracted procedure: k7888 -o|contracted procedure: k7895 -o|contracted procedure: k7906 -o|contracted procedure: k7919 -o|contracted procedure: k7912 -o|contracted procedure: k7951 -o|contracted procedure: k7959 -o|contracted procedure: k7955 -o|contracted procedure: k7971 -o|contracted procedure: k7979 -o|contracted procedure: k7982 -o|contracted procedure: k7992 -o|contracted procedure: k7998 -o|contracted procedure: k8005 -o|contracted procedure: k7989 -o|contracted procedure: k8050 -o|contracted procedure: k8014 -o|contracted procedure: k8040 -o|contracted procedure: k8044 -o|contracted procedure: k8036 -o|contracted procedure: k8017 -o|contracted procedure: k8020 -o|contracted procedure: k8028 -o|contracted procedure: k8032 -o|contracted procedure: k8056 -o|contracted procedure: k8062 -o|contracted procedure: k8065 -o|contracted procedure: k8068 -o|contracted procedure: k8080 -o|contracted procedure: k8083 -o|contracted procedure: k8086 -o|contracted procedure: k8094 -o|contracted procedure: k8102 -o|contracted procedure: k9161 -o|contracted procedure: k8118 -o|contracted procedure: k9155 -o|contracted procedure: k8121 -o|contracted procedure: k9149 -o|contracted procedure: k8124 -o|contracted procedure: k8166 -o|contracted procedure: k8139 -o|contracted procedure: k8145 -o|contracted procedure: k8158 -o|contracted procedure: k8239 -o|contracted procedure: k8196 -o|contracted procedure: k8202 -o|contracted procedure: k8211 -o|contracted procedure: k8224 -o|contracted procedure: k8217 -o|contracted procedure: k8231 -o|contracted procedure: k8696 -o|contracted procedure: k8271 -o|contracted procedure: k8495 -o|contracted procedure: k8283 -o|contracted procedure: k8299 -o|contracted procedure: k8319 -o|contracted procedure: k8334 -o|contracted procedure: k8342 -o|contracted procedure: k8351 -o|contracted procedure: k8381 -o|inlining procedure: k8372 -o|contracted procedure: k8395 -o|contracted procedure: k8391 -o|inlining procedure: k8372 -o|contracted procedure: k8402 -o|inlining procedure: k8372 -o|contracted procedure: k8412 -o|contracted procedure: k8416 -o|contracted procedure: k8423 -o|contracted procedure: k8426 -o|contracted procedure: k8432 -o|contracted procedure: k8454 -o|contracted procedure: k8457 -o|contracted procedure: k8464 -o|contracted procedure: k8509 -o|contracted procedure: k8535 -o|contracted procedure: k8505 -o|contracted procedure: k8546 -o|contracted procedure: k8585 -o|contracted procedure: k8588 -o|contracted procedure: k8596 -o|contracted procedure: k8600 -o|contracted procedure: k8604 -o|contracted procedure: k8612 -o|contracted procedure: k8616 -o|contracted procedure: k8620 -o|contracted procedure: k8561 -o|contracted procedure: k8626 -o|contracted procedure: k8632 -o|contracted procedure: k8644 -o|contracted procedure: k8666 -o|contracted procedure: k8662 -o|contracted procedure: k8647 -o|contracted procedure: k8650 -o|contracted procedure: k8658 -o|contracted procedure: k8678 -o|contracted procedure: k8685 -o|contracted procedure: k8693 -o|contracted procedure: k8730 -o|contracted procedure: k8726 -o|contracted procedure: k8722 -o|contracted procedure: k8745 -o|contracted procedure: k8767 -o|contracted procedure: k8763 -o|contracted procedure: k8748 -o|contracted procedure: k8751 -o|contracted procedure: k8759 -o|contracted procedure: k8855 -o|contracted procedure: k8776 -o|contracted procedure: k8798 -o|contracted procedure: k8808 -o|contracted procedure: k8812 -o|contracted procedure: k8801 -o|contracted procedure: k8851 -o|contracted procedure: k8818 -o|contracted procedure: k8845 -o|contracted procedure: k8824 -o|contracted procedure: k8840 -o|contracted procedure: k8830 -o|contracted procedure: k9143 -o|contracted procedure: k8873 -o|contracted procedure: k8879 -o|contracted procedure: k9138 -o|contracted procedure: k8883 -o|contracted procedure: k9129 -o|contracted procedure: k8892 -o|contracted procedure: k8913 -o|contracted procedure: k9032 -o|contracted procedure: k8919 -o|contracted procedure: k8958 -o|contracted procedure: k8932 -o|contracted procedure: k8940 -o|contracted procedure: k8954 -o|contracted procedure: k8947 -o|contracted procedure: k8944 -o|contracted procedure: k8961 -o|contracted procedure: k9028 -o|contracted procedure: k8972 -o|contracted procedure: k8986 -o|contracted procedure: k9022 -o|contracted procedure: k8996 -o|contracted procedure: k9018 -o|contracted procedure: k9012 -o|contracted procedure: k9008 -o|contracted procedure: k9000 -o|contracted procedure: k9004 -o|contracted procedure: k9076 -o|contracted procedure: k9060 -o|contracted procedure: k9072 -o|contracted procedure: k9064 -o|contracted procedure: k9068 -o|contracted procedure: k9093 -o|contracted procedure: k9125 -o|contracted procedure: k9099 -o|contracted procedure: k9111 -o|contracted procedure: k9121 -o|contracted procedure: k9135 -o|contracted procedure: k9167 -o|contracted procedure: k9249 -o|contracted procedure: k9185 -o|contracted procedure: k9188 -o|contracted procedure: k9200 -o|contracted procedure: k9209 -o|contracted procedure: k9217 -o|contracted procedure: k9213 -o|contracted procedure: k9226 -o|contracted procedure: k9245 -o|contracted procedure: k9301 -o|contracted procedure: k9267 -o|contracted procedure: k9276 -o|contracted procedure: k9295 -o|contracted procedure: k9291 -o|contracted procedure: k9287 -o|contracted procedure: k9389 -o|contracted procedure: k9420 -o|contracted procedure: k9446 -o|contracted procedure: k9458 -o|contracted procedure: k9538 -o|contracted procedure: k9482 -o|contracted procedure: k9497 -o|contracted procedure: k9517 -o|contracted procedure: k9534 -o|contracted procedure: k9342 -o|contracted procedure: k9351 -o|contracted procedure: k9379 -o|contracted procedure: k9357 -o|contracted procedure: k9547 -o|contracted procedure: k9568 -o|contracted procedure: k9603 -o|contracted procedure: k9574 -o|contracted procedure: k9584 -o|contracted procedure: k9618 -o|contracted procedure: k9630 -o|contracted procedure: k9644 -o|contracted procedure: k9647 -o|contracted procedure: k9654 -o|contracted procedure: k9676 -o|contracted procedure: k9660 -o|contracted procedure: k9691 -o|contracted procedure: k9698 -o|contracted procedure: k9724 -o|contracted procedure: k9742 -o|contracted procedure: k9746 -o|contracted procedure: k9759 -o|contracted procedure: k9787 -o|contracted procedure: k9790 -o|contracted procedure: k9802 -o|contracted procedure: k9824 -o|contracted procedure: k9820 -o|contracted procedure: k9805 -o|contracted procedure: k9808 -o|contracted procedure: k9816 -o|contracted procedure: k9845 -o|contracted procedure: k9914 -o|contracted procedure: k9861 -o|contracted procedure: k9910 -o|contracted procedure: k9870 -o|contracted procedure: k9877 -o|contracted procedure: k9886 -o|contracted procedure: k9893 -o|contracted procedure: k9896 -o|contracted procedure: k5477 -o|contracted procedure: k9903 -o|contracted procedure: k10358 -o|contracted procedure: k9923 -o|contracted procedure: k10352 -o|contracted procedure: k9926 -o|contracted procedure: k10337 -o|contracted procedure: k9932 -o|contracted procedure: k9989 -o|contracted procedure: k9995 -o|contracted procedure: k10004 -o|contracted procedure: k10011 -o|contracted procedure: k10034 -o|contracted procedure: k10043 -o|contracted procedure: k10063 -o|contracted procedure: k10066 -o|contracted procedure: k10069 -o|contracted procedure: k10151 -o|contracted procedure: k10072 -o|contracted procedure: k10087 -o|contracted procedure: k10093 -o|contracted procedure: k10106 -o|contracted procedure: k10110 -o|contracted procedure: k10113 -o|contracted procedure: k10136 -o|contracted procedure: k10122 -o|contracted procedure: k10132 -o|contracted procedure: k10139 -o|contracted procedure: k10145 -o|contracted procedure: k10160 -o|contracted procedure: k10173 -o|contracted procedure: k10166 -o|contracted procedure: k10179 -o|contracted procedure: k10185 -o|contracted procedure: k10191 -o|contracted procedure: k10200 -o|contracted procedure: k10209 -o|contracted procedure: k10218 -o|contracted procedure: k10227 -o|contracted procedure: k10236 -o|contracted procedure: k10245 -o|contracted procedure: k10267 -o|contracted procedure: k10270 -o|contracted procedure: k10333 -o|contracted procedure: k10295 -o|contracted procedure: k10329 -o|contracted procedure: k10304 -o|contracted procedure: k10321 -o|contracted procedure: k10325 -o|contracted procedure: k10343 -o|contracted procedure: k10376 -o|contracted procedure: k10382 -o|contracted procedure: k10397 -o|contracted procedure: k10406 -o|contracted procedure: k10413 -o|contracted procedure: k10416 -o|contracted procedure: k10428 -o|contracted procedure: k10435 -o|contracted procedure: k10453 -o|contracted procedure: k10505 -o|contracted procedure: k10470 -o|contracted procedure: k10473 -o|contracted procedure: k10501 -o|contracted procedure: k10497 -o|contracted procedure: k10517 -o|contracted procedure: k10523 -o|contracted procedure: k10546 -o|contracted procedure: k10552 -o|contracted procedure: k10555 -o|contracted procedure: k10602 -o|contracted procedure: k10561 -o|contracted procedure: k10573 -o|contracted procedure: k10576 -o|contracted procedure: k10583 -o|contracted procedure: k10591 -o|contracted procedure: k10595 -o|contracted procedure: k10712 -o|contracted procedure: k10610 -o|contracted procedure: k10632 -o|contracted procedure: k10638 -o|contracted procedure: k10644 -o|contracted procedure: k10656 -o|contracted procedure: k10669 -o|contracted procedure: k10672 -o|contracted procedure: k10684 -o|contracted procedure: k10733 -o|contracted procedure: k10749 -o|contracted procedure: k10739 -o|contracted procedure: k10758 -o|contracted procedure: k10765 -o|contracted procedure: k10783 -o|contracted procedure: k10870 -o|contracted procedure: k10800 -o|contracted procedure: k10826 -o|contracted procedure: k10838 -o|contracted procedure: k10934 -o|contracted procedure: k11006 -o|contracted procedure: k11175 -o|contracted procedure: k11019 -o|contracted procedure: k11025 -o|contracted procedure: k11035 -o|contracted procedure: k11038 -o|contracted procedure: k11047 -o|contracted procedure: k11060 -o|contracted procedure: k11073 -o|contracted procedure: k11109 -o|contracted procedure: k11079 -o|contracted procedure: k11085 -o|contracted procedure: k11098 -o|contracted procedure: k11115 -o|contracted procedure: k11126 -o|contracted procedure: k11132 -o|contracted procedure: k11155 -o|contracted procedure: k11138 -o|contracted procedure: k10971 -o|contracted procedure: k11149 -o|contracted procedure: k11187 -o|contracted procedure: k11194 -o|contracted procedure: k11202 -o|contracted procedure: k11214 -o|contracted procedure: k11236 -o|contracted procedure: k11232 -o|contracted procedure: k11217 -o|contracted procedure: k11220 -o|contracted procedure: k11228 -o|contracted procedure: k11306 -o|contracted procedure: k11245 -o|contracted procedure: k11251 -o|contracted procedure: k11302 -o|contracted procedure: k11258 -o|contracted procedure: k11264 -o|contracted procedure: k11270 -o|contracted procedure: k11277 -o|contracted procedure: k11435 -o|contracted procedure: k11442 -o|contracted procedure: k11450 -o|contracted procedure: k11471 -o|contracted procedure: k11478 -o|contracted procedure: k11482 -o|contracted procedure: k11497 -o|contracted procedure: k11506 -o|contracted procedure: k12803 -o|contracted procedure: k11644 -o|contracted procedure: k11724 -o|contracted procedure: k11720 -o|contracted procedure: k11652 -o|contracted procedure: k11656 -o|contracted procedure: k11648 -o|contracted procedure: k11640 -o|contracted procedure: k11664 -o|contracted procedure: k11667 -o|contracted procedure: k11682 -o|contracted procedure: k11678 -o|contracted procedure: k11674 -o|contracted procedure: k11691 -o|contracted procedure: k11694 -o|contracted procedure: k11697 -o|contracted procedure: k11705 -o|contracted procedure: k11713 -o|contracted procedure: k11736 -o|contracted procedure: k11739 -o|contracted procedure: k11746 -o|contracted procedure: k11750 -o|contracted procedure: k11775 -o|contracted procedure: k11781 -o|contracted procedure: k11788 -o|contracted procedure: k11799 -o|contracted procedure: k11805 -o|contracted procedure: k11820 -o|contracted procedure: k11816 -o|contracted procedure: k11812 -o|contracted procedure: k11835 -o|contracted procedure: k11886 -o|contracted procedure: k11846 -o|contracted procedure: k11858 -o|contracted procedure: k11854 -o|contracted procedure: k11850 -o|contracted procedure: k11842 -o|contracted procedure: k11874 -o|contracted procedure: k11880 -o|contracted procedure: k11892 -o|contracted procedure: k11931 -o|contracted procedure: k11903 -o|contracted procedure: k11915 -o|contracted procedure: k11911 -o|contracted procedure: k11907 -o|contracted procedure: k11899 -o|contracted procedure: k11923 -o|contracted procedure: k11937 -o|contracted procedure: k11951 -o|contracted procedure: k11947 -o|contracted procedure: k11962 -o|contracted procedure: k11958 -o|contracted procedure: k11965 -o|contracted procedure: k12071 -o|contracted procedure: k12067 -o|contracted procedure: k11991 -o|contracted procedure: k11999 -o|contracted procedure: k12059 -o|contracted procedure: k12063 -o|contracted procedure: k12007 -o|contracted procedure: k12047 -o|contracted procedure: k12015 -o|contracted procedure: k12023 -o|contracted procedure: k12019 -o|contracted procedure: k12011 -o|contracted procedure: k12003 -o|contracted procedure: k11995 -o|contracted procedure: k11987 -o|contracted procedure: k12039 -o|contracted procedure: k12043 -o|contracted procedure: k12035 -o|contracted procedure: k12031 -o|contracted procedure: k12055 -o|contracted procedure: k12075 -o|contracted procedure: k12079 -o|contracted procedure: k12083 -o|contracted procedure: k12092 -o|contracted procedure: k12098 -o|contracted procedure: k12108 -o|contracted procedure: k12189 -o|contracted procedure: k12184 -o|contracted procedure: k12178 -o|contracted procedure: k12130 -o|contracted procedure: k12145 -o|contracted procedure: k12149 -o|contracted procedure: k12164 -o|contracted procedure: k12175 -o|contracted procedure: k12171 -o|contracted procedure: k12161 -o|contracted procedure: k12193 -o|contracted procedure: k12199 -o|contracted procedure: k12216 -o|contracted procedure: k12222 -o|contracted procedure: k12228 -o|contracted procedure: k12239 -o|contracted procedure: k12248 -o|contracted procedure: k12251 -o|contracted procedure: k12267 -o|contracted procedure: k12260 -o|contracted procedure: k12274 -o|contracted procedure: k12317 -o|contracted procedure: k12313 -o|contracted procedure: k12286 -o|contracted procedure: k12299 -o|contracted procedure: k12309 -o|contracted procedure: k12329 -o|contracted procedure: k12338 -o|contracted procedure: k12356 -o|contracted procedure: k12380 -o|substituted constant variable: g17779 -o|contracted procedure: k12387 -o|contracted procedure: k12391 -o|contracted procedure: k12405 -o|contracted procedure: k12401 -o|contracted procedure: k12408 -o|contracted procedure: k12414 -o|contracted procedure: k12420 -o|contracted procedure: k12433 -o|contracted procedure: k12439 -o|contracted procedure: k12460 -o|contracted procedure: k12486 -o|contracted procedure: k12492 -o|contracted procedure: k12502 -o|contracted procedure: k12521 -o|contracted procedure: k12525 -o|contracted procedure: k12533 -o|contracted procedure: k12539 -o|contracted procedure: k12556 -o|contracted procedure: k12572 -o|contracted procedure: k12601 -o|contracted procedure: k12584 -o|contracted procedure: k12587 -o|contracted procedure: k12597 -o|contracted procedure: k12578 -o|contracted procedure: k12614 -o|contracted procedure: k12622 -o|contracted procedure: k12628 -o|contracted procedure: k12645 -o|contracted procedure: k12661 -o|contracted procedure: k12690 -o|contracted procedure: k12696 -o|contracted procedure: k12706 -o|contracted procedure: k12728 -o|contracted procedure: k12738 -o|contracted procedure: k12754 -o|contracted procedure: k12757 -o|contracted procedure: k12814 -o|contracted procedure: k12822 -o|contracted procedure: k12826 -o|contracted procedure: k12843 -o|contracted procedure: k12879 -o|contracted procedure: k12875 -o|contracted procedure: k12871 -o|contracted procedure: k12867 -o|contracted procedure: k12914 -o|contracted procedure: k13068 -o|contracted procedure: k12931 -o|contracted procedure: k12937 -o|contracted procedure: k12950 -o|contracted procedure: k12963 -o|contracted procedure: k12971 -o|contracted procedure: k12984 -o|contracted procedure: k12992 -o|contracted procedure: k13004 -o|contracted procedure: k13014 -o|contracted procedure: k13033 -o|contracted procedure: k13025 -o|contracted procedure: k13041 -o|contracted procedure: k13045 -o|contracted procedure: k13059 -o|contracted procedure: k13094 -o|contracted procedure: k13090 -o|contracted procedure: k13086 -o|contracted procedure: k13108 -o|contracted procedure: k13141 -o|contracted procedure: k13114 -o|contracted procedure: k13137 -o|contracted procedure: k13129 -o|contracted procedure: k13133 -o|contracted procedure: k13125 -o|contracted procedure: k13121 -o|contracted procedure: k13159 -o|contracted procedure: k13172 -o|contracted procedure: k13185 -o|contracted procedure: k13188 -o|contracted procedure: k13201 -o|contracted procedure: k13219 -o|contracted procedure: k13230 -o|contracted procedure: k13331 -o|contracted procedure: k13235 -o|contracted procedure: k13255 -o|contracted procedure: k13251 -o|contracted procedure: k13247 -o|contracted procedure: k13239 -o|contracted procedure: k13226 -o|contracted procedure: k13293 -o|contracted procedure: k13299 -o|contracted procedure: k13307 -o|contracted procedure: k13315 -o|contracted procedure: k13281 -o|contracted procedure: k13277 -o|contracted procedure: k13263 -o|contracted procedure: k13271 -o|contracted procedure: k13311 -o|contracted procedure: k13321 -o|contracted procedure: k13328 -o|contracted procedure: k13343 -o|contracted procedure: k13365 -o|contracted procedure: k13210 -o|contracted procedure: k13214 -o|contracted procedure: k13361 -o|contracted procedure: k13346 -o|contracted procedure: k13349 -o|contracted procedure: k13357 -o|contracted procedure: k13381 -o|contracted procedure: k13395 -o|contracted procedure: k13402 -o|contracted procedure: k13419 -o|contracted procedure: k13409 -o|contracted procedure: k13432 -o|contracted procedure: k13655 -o|contracted procedure: k13456 -o|contracted procedure: k13651 -o|contracted procedure: k13469 -o|contracted procedure: k13472 -o|contracted procedure: k13504 -o|contracted procedure: k13520 -o|contracted procedure: k13527 -o|contracted procedure: k13541 -o|contracted procedure: k13530 -o|contracted procedure: k13537 -o|contracted procedure: k13593 -o|contracted procedure: k13602 -o|contracted procedure: k13606 -o|contracted procedure: k13550 -o|contracted procedure: k13568 -o|contracted procedure: k13575 -o|contracted procedure: k13589 -o|contracted procedure: k13578 -o|contracted procedure: k13585 -o|contracted procedure: k13618 -o|contracted procedure: k13621 -o|contracted procedure: k13624 -o|contracted procedure: k13632 -o|contracted procedure: k13640 -o|contracted procedure: k13647 -o|contracted procedure: k13665 -o|contracted procedure: k14046 -o|contracted procedure: k13686 -o|contracted procedure: k13689 -o|contracted procedure: k13750 -o|contracted procedure: k13779 -o|contracted procedure: k13758 -o|contracted procedure: k13793 -o|contracted procedure: k13782 -o|contracted procedure: k13789 -o|contracted procedure: k13805 -o|contracted procedure: k13854 -o|contracted procedure: k13850 -o|contracted procedure: k13830 -o|contracted procedure: k13846 -o|contracted procedure: k13838 -o|contracted procedure: k13834 -o|contracted procedure: k13902 -o|contracted procedure: k13870 -o|contracted procedure: k13898 -o|contracted procedure: k13882 -o|contracted procedure: k13894 -o|contracted procedure: k13886 -o|contracted procedure: k13878 -o|contracted procedure: k13874 -o|contracted procedure: k13909 -o|contracted procedure: k13913 -o|contracted procedure: k13922 -o|contracted procedure: k13929 -o|contracted procedure: k13945 -o|contracted procedure: k13934 -o|contracted procedure: k13941 -o|contracted procedure: k13950 -o|contracted procedure: k13956 -o|contracted procedure: k13962 -o|contracted procedure: k13968 -o|contracted procedure: k13974 -o|contracted procedure: k13986 -o|contracted procedure: k13992 -o|contracted procedure: k14007 -o|contracted procedure: k14018 -o|contracted procedure: k14042 -o|contracted procedure: k14056 -o|contracted procedure: k14062 -o|contracted procedure: k14065 -o|contracted procedure: k14072 -o|contracted procedure: k14098 -o|contracted procedure: k14082 -o|contracted procedure: k14090 -o|contracted procedure: k14086 -o|contracted procedure: k14108 -o|contracted procedure: k14114 -o|contracted procedure: k14117 -o|contracted procedure: k14124 -o|contracted procedure: k14131 -o|contracted procedure: k14148 -o|contracted procedure: k14151 -o|contracted procedure: k14157 -o|contracted procedure: k14164 -o|contracted procedure: k14174 -o|contracted procedure: k14201 -o|contracted procedure: k14223 -o|contracted procedure: k14245 -o|contracted procedure: k14273 -o|contracted procedure: k14283 -o|contracted procedure: k14297 -o|contracted procedure: k14286 -o|contracted procedure: k14293 -o|contracted procedure: k14310 -o|contracted procedure: k14313 -o|contracted procedure: k14321 -o|contracted procedure: k14363 -o|contracted procedure: k14471 -o|contracted procedure: k14371 -o|contracted procedure: k14382 -o|contracted procedure: k14395 -o|contracted procedure: k14406 -o|inlining procedure: k14399 -o|inlining procedure: k14399 -o|contracted procedure: k14467 -o|contracted procedure: k14427 -o|contracted procedure: k14451 -o|contracted procedure: k14461 -o|contracted procedure: k14457 -o|contracted procedure: k14447 -o|contracted procedure: k14488 -o|contracted procedure: k14505 -o|contracted procedure: k14522 -o|contracted procedure: k14539 -o|contracted procedure: k14589 -o|contracted procedure: k14593 -o|contracted procedure: k14585 -o|contracted procedure: k14607 -o|contracted procedure: k14613 -o|inlining procedure: k14604 -o|contracted procedure: k14622 -o|contracted procedure: k14632 -o|contracted procedure: k14636 -o|contracted procedure: k14639 -o|contracted procedure: k14646 -o|contracted procedure: k14662 -o|contracted procedure: k14665 -o|contracted procedure: k14669 -o|contracted procedure: k14694 -o|contracted procedure: k14714 -o|contracted procedure: k14719 -o|contracted procedure: k14731 -o|contracted procedure: k14743 -o|contracted procedure: k14749 -o|contracted procedure: k14766 -o|contracted procedure: k14755 -o|contracted procedure: k14762 -o|contracted procedure: k14773 -o|contracted procedure: k14776 -o|contracted procedure: k14698 -o|contracted procedure: k14702 -o|contracted procedure: k14706 -o|contracted procedure: k14675 -o|contracted procedure: k14686 -o|contracted procedure: k14690 -o|contracted procedure: k14788 -o|contracted procedure: k14791 -o|contracted procedure: k14794 -o|contracted procedure: k14802 -o|contracted procedure: k14810 -o|contracted procedure: k14837 -o|contracted procedure: k14900 -o|contracted procedure: k14921 -o|contracted procedure: k14924 -o|contracted procedure: k14927 -o|contracted procedure: k14935 -o|contracted procedure: k14943 -o|contracted procedure: k14852 -o|contracted procedure: k14856 -o|contracted procedure: k14862 -o|contracted procedure: k14868 -o|contracted procedure: k14874 -o|contracted procedure: k14890 -o|contracted procedure: k14880 -o|contracted procedure: k14950 -o|contracted procedure: k14977 -o|contracted procedure: k15015 -o|contracted procedure: k15021 -o|contracted procedure: k15030 -o|contracted procedure: k15045 -o|contracted procedure: k15051 -o|contracted procedure: k15060 -o|contracted procedure: k15066 -o|contracted procedure: k15073 -o|contracted procedure: k15079 -o|contracted procedure: k15091 -o|contracted procedure: k15094 -o|contracted procedure: k15097 -o|contracted procedure: k15105 -o|contracted procedure: k15113 -o|contracted procedure: k15132 -o|contracted procedure: k15147 -o|contracted procedure: k15157 -o|contracted procedure: k15169 -o|contracted procedure: k15172 -o|contracted procedure: k15175 -o|contracted procedure: k15183 -o|contracted procedure: k15191 -o|contracted procedure: k15259 -o|contracted procedure: k15206 -o|contracted procedure: k15213 -o|contracted procedure: k15216 -o|contracted procedure: k15219 -o|contracted procedure: k15231 -o|contracted procedure: k15234 -o|contracted procedure: k15237 -o|contracted procedure: k15245 -o|contracted procedure: k15253 -o|contracted procedure: k15290 -o|contracted procedure: k15293 -o|contracted procedure: k15305 -o|contracted procedure: k15308 -o|contracted procedure: k15311 -o|contracted procedure: k15319 -o|contracted procedure: k15327 -o|contracted procedure: k15378 -o|contracted procedure: k15583 -o|contracted procedure: k15384 -o|contracted procedure: k15387 -o|contracted procedure: k15391 -o|contracted procedure: k15397 -o|contracted procedure: k15415 -o|contracted procedure: k15427 -o|contracted procedure: k15437 -o|contracted procedure: k15449 -o|contracted procedure: k15471 -o|contracted procedure: k15493 -o|contracted procedure: k15512 -o|contracted procedure: k15527 -o|contracted procedure: k15539 -o|contracted procedure: k15552 -o|contracted procedure: k15580 -o|contracted procedure: k15651 -o|contracted procedure: k15595 -o|contracted procedure: k15643 -o|contracted procedure: k15647 -o|contracted procedure: k15639 -o|contracted procedure: k15635 -o|contracted procedure: k15599 -o|contracted procedure: k15631 -o|contracted procedure: k15627 -o|contracted procedure: k15603 -o|contracted procedure: k15623 -o|contracted procedure: k15615 -o|contracted procedure: k15619 -o|contracted procedure: k15607 -o|contracted procedure: k15001 -o|contracted procedure: k15664 -o|contracted procedure: k15679 -o|contracted procedure: k15685 -o|contracted procedure: k15718 -o|contracted procedure: k15714 -o|contracted procedure: k15710 -o|contracted procedure: k15698 -o|contracted procedure: k15706 -o|contracted procedure: k15702 -o|contracted procedure: k15742 -o|contracted procedure: k15752 -o|contracted procedure: k15800 -o|contracted procedure: k15760 -o|contracted procedure: k15764 -o|contracted procedure: k15781 -o|contracted procedure: k15777 -o|contracted procedure: k15767 -o|contracted procedure: k15784 -o|contracted procedure: k15790 -o|contracted procedure: k15808 -o|contracted procedure: k15811 -o|contracted procedure: k15822 -o|contracted procedure: k15826 -o|contracted procedure: k15840 -o|contracted procedure: k15857 -o|contracted procedure: k15875 -o|contracted procedure: k15867 -o|contracted procedure: k15889 -o|contracted procedure: k15918 -o|contracted procedure: k15924 -o|contracted procedure: k15933 -o|contracted procedure: k15946 -o|contracted procedure: k15949 -o|contracted procedure: k15961 -o|contracted procedure: k15964 -o|contracted procedure: k15967 -o|contracted procedure: k15975 -o|contracted procedure: k15983 -o|simplifications: ((if . 9) (let . 336)) -o|replaced variables: 9 -o|removed binding forms: 1043 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest901904 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest901904 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest10191021 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest10191021 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest10501052 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest10501052 0 -o|contracted procedure: k6743 -o|inlining procedure: k7534 -o|inlining procedure: k7534 -o|inlining procedure: k8789 -o|inlining procedure: k8936 -o|inlining procedure: k8936 -o|contracted procedure: k9612 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest19241925 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest19241925 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20272031 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest20272031 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20272031 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20272031 0 -o|inlining procedure: k10257 -o|contracted procedure: k12289 -o|inlining procedure: k12747 -o|contracted procedure: k14263 -o|inlining procedure: k14597 -o|inlining procedure: k14597 -o|inlining procedure: k14597 -o|inlining procedure: k15756 -o|inlining procedure: k15756 -o|removed binding forms: 18 -o|substituted constant variable: r1025818038 -o|substituted constant variable: r1025818038 -o|substituted constant variable: r1274818060 -o|removed binding forms: 5 -o|removed conditional forms: 1 -o|removed binding forms: 2 -o|direct leaf routine/allocation: chicken.syntax#lookup 0 -o|direct leaf routine/allocation: g10391040 0 -o|direct leaf routine/allocation: loop1265 0 -o|direct leaf routine/allocation: g18111812 0 -o|direct leaf routine/allocation: loop2057 0 -o|direct leaf routine/allocation: loop2074 0 -o|direct leaf routine/allocation: g22252226 0 -o|direct leaf routine/allocation: g22342235 0 -o|direct leaf routine/allocation: assq-reverse2152 0 -o|direct leaf routine/allocation: loop3551 0 -o|direct leaf routine/allocation: loop3561 0 -o|direct leaf routine/allocation: g33063315 15 -o|contracted procedure: "(expand.scm:100) k6190" -o|contracted procedure: "(expand.scm:166) k6588" -o|contracted procedure: "(expand.scm:178) k6627" -o|contracted procedure: "(expand.scm:180) k6636" -o|contracted procedure: "(expand.scm:260) k6953" -o|contracted procedure: "(expand.scm:262) k7189" -o|converted assignments to bindings: (loop1265) -o|contracted procedure: "(expand.scm:465) k8130" -o|contracted procedure: "(expand.scm:473) k8187" -o|converted assignments to bindings: (loop2057) -o|converted assignments to bindings: (loop2074) -o|contracted procedure: "(expand.scm:899) k10257" -o|contracted procedure: "(expand.scm:977) k10697" -o|contracted procedure: "(expand.scm:977) k10703" -o|contracted procedure: "(expand.scm:997) k10803" -o|contracted procedure: "(expand.scm:998) k10806" -o|converted assignments to bindings: (loop3551) -o|converted assignments to bindings: (loop3561) -o|contracted procedure: "(expand.scm:1704) k13636" -o|simplifications: ((if . 1) (let . 5)) -o|removed binding forms: 14 -o|customizable procedures: (g24382447 map-loop24322484 k15673 k15770 process-include-decls2664 process-includes2661 parse-exports2659 parse-decls2666 k15270 map-loop27932810 expand/begin2662 map-loop27522769 g27242733 map-loop27182740 read-forms2663 g26762685 map-loop26702700 k15038 k14845 map-loop28852907 g29502959 map-loop29442971 loop3041 expand3169 map-loop33003321 k13554 expand3269 expand3343 map-loop33653383 k13243 k13296 map-loop33993417 g34943495 g34873488 walk3431 walk13432 simplify3433 k12808 loop3848 k12394 k12347 doloop37863787 k11940 k11733 map-loop36373654 loop3540 expand2554 map-loop25622580 loop2515 test2506 err2503 chicken.syntax#make-er/ir-transformer mirror-rename2153 k10618 k10626 doloop21842185 inherit-pair-line-numbers2134 k10051 test2042 k10075 walk2084 doloop20992100 err2043 mapupdate2000 walk2001 loop2003 map-loop19701987 g19611962 g19451946 chicken.syntax#assq/drop-bwp! k9581 lp1896 loop1846 loop1859 loop1876 outstr1857 loop1822 mwalk1798 comp-def1514 k8886 loop21762 loop1745 loop1701 map-loop17141731 foldl16301640 map-loop16061645 k8582 map-loop16541681 loop21561 comp1513 loop1558 k8190 k8199 repeat1537 k8133 k8142 map-loop14221439 map-loop14511475 k7656 k7832 k7745 k7706 chicken.syntax#macro-alias k7669 loop1298 err1287 g13201329 map-loop13141342 k7371 k7383 loop1252 k6959 k6965 k7123 g12171218 loop1129 expand1078 map-loop11571175 map-loop11841201 call-handler1077 k6777 copy1096 loop1066 map-loop912929 for-each-loop938965 map-loop975996 doloop890891 walk860) -o|calls to known targets: 408 -o|identified direct recursive calls: f_6411 1 -o|identified direct recursive calls: f_6459 1 -o|unused rest argument: rest901904 f_6365 -o|unused rest argument: rest10191021 f_6556 -o|unused rest argument: rest10501052 f_6622 -o|identified direct recursive calls: f_6673 1 -o|identified direct recursive calls: f_7018 1 -o|identified direct recursive calls: f_7087 1 -o|identified direct recursive calls: f_7283 3 -o|identified direct recursive calls: f_7355 2 -o|identified direct recursive calls: f_8009 1 -o|identified direct recursive calls: f_8639 1 -o|identified direct recursive calls: f_8740 1 -o|identified direct recursive calls: f_8713 1 -o|identified direct recursive calls: f_9180 1 -o|identified direct recursive calls: f_9262 1 -o|identified direct recursive calls: f_9346 1 -o|unused rest argument: rest19241925 f_9658 -o|identified direct recursive calls: f_9797 1 -o|identified direct recursive calls: f_9987 1 -o|identified direct recursive calls: f_10032 1 -o|identified direct recursive calls: f_10058 1 -o|identified direct recursive calls: f_10423 1 -o|identified direct recursive calls: f_10509 1 -o|identified direct recursive calls: f_10728 1 -o|identified direct recursive calls: f_10753 1 -o|identified direct recursive calls: f_11209 1 -o|identified direct recursive calls: f_11430 1 -o|identified direct recursive calls: f_11466 1 -o|identified direct recursive calls: f_11492 1 -o|unused rest argument: _3773 f_12303 -o|identified direct recursive calls: f_12375 1 -o|identified direct recursive calls: f_13338 1 -o|identified direct recursive calls: f_13390 1 -o|identified direct recursive calls: f_13613 1 -o|identified direct recursive calls: f_15373 1 -o|fast box initializations: 83 -o|fast global references: 29 -o|fast global assignments: 7 -o|dropping unused closure argument: f_10032 -o|dropping unused closure argument: f_10365 -o|dropping unused closure argument: f_10374 -o|dropping unused closure argument: f_10728 -o|dropping unused closure argument: f_11492 -o|dropping unused closure argument: f_6159 -o|dropping unused closure argument: f_6176 -o|dropping unused closure argument: f_7283 -o|dropping unused closure argument: f_9557 -o|dropping unused closure argument: f_9987 -*/ -/* end of file */ diff --git a/chicken/src/extras.c b/chicken/src/extras.c deleted file mode 100644 index 4b177e8..0000000 --- a/chicken/src/extras.c +++ /dev/null @@ -1,5772 +0,0 @@ -/* Generated from extras.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: extras.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file extras.c -emit-import-library chicken.format -emit-import-library chicken.pretty-print -emit-import-library chicken.random - unit: extras - uses: data-structures library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_data_2dstructures_toplevel) -C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[125]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,15),40,114,101,97,100,45,109,97,99,114,111,63,32,108,41,0}; -static C_char li1[] 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 li2[] C_aligned={C_lihdr(0,0,13),40,111,117,116,32,115,116,114,32,99,111,108,41,0,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,18),40,119,114,45,101,120,112,114,32,101,120,112,114,32,99,111,108,41,0,0,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,32,99,111,108,41,0,0,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,14),40,119,114,45,108,115,116,32,108,32,99,111,108,41,0,0}; -static C_char li6[] C_aligned={C_lihdr(0,0,8),40,103,50,48,48,32,97,41}; -static C_char li7[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,105,32,106,32,99,111,108,41,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,9),40,103,50,49,50,32,99,110,41,0,0,0,0,0,0,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,12),40,119,114,32,111,98,106,32,99,111,108,41,0,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,14),40,115,112,97,99,101,115,32,110,32,99,111,108,41,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,15),40,105,110,100,101,110,116,32,116,111,32,99,111,108,41,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,11),40,97,49,53,54,51,32,115,116,114,41,0,0,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,26),40,112,114,32,111,98,106,32,99,111,108,32,101,120,116,114,97,32,112,112,45,112,97,105,114,41,0,0,0,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,24),40,112,112,45,101,120,112,114,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41}; -static C_char li15[] C_aligned={C_lihdr(0,0,32),40,112,112,45,99,97,108,108,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,32,112,112,45,105,116,101,109,41}; -static C_char li16[] C_aligned={C_lihdr(0,0,29),40,112,112,45,108,105,115,116,32,108,32,99,111,108,32,101,120,116,114,97,32,112,112,45,105,116,101,109,41,0,0,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,32,99,111,108,41,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,35),40,112,112,45,100,111,119,110,32,108,32,99,111,108,49,32,99,111,108,50,32,101,120,116,114,97,32,112,112,45,105,116,101,109,41,0,0,0,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,27),40,116,97,105,108,49,32,114,101,115,116,32,99,111,108,49,32,99,111,108,50,32,99,111,108,51,41,0,0,0,0,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,27),40,116,97,105,108,50,32,114,101,115,116,32,99,111,108,49,32,99,111,108,50,32,99,111,108,51,41,0,0,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,22),40,116,97,105,108,51,32,114,101,115,116,32,99,111,108,49,32,99,111,108,50,41,0,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,49),40,112,112,45,103,101,110,101,114,97,108,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,32,110,97,109,101,100,63,32,112,112,45,49,32,112,112,45,50,32,112,112,45,51,41,0,0,0,0,0,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,26),40,112,112,45,101,120,112,114,45,108,105,115,116,32,108,32,99,111,108,32,101,120,116,114,97,41,0,0,0,0,0,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,26),40,112,112,45,108,97,109,98,100,97,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0,0,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,22),40,112,112,45,105,102,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,24),40,112,112,45,99,111,110,100,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41}; -static C_char li27[] C_aligned={C_lihdr(0,0,24),40,112,112,45,99,97,115,101,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41}; -static C_char li28[] C_aligned={C_lihdr(0,0,23),40,112,112,45,97,110,100,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,23),40,112,112,45,108,101,116,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,25),40,112,112,45,98,101,103,105,110,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0,0,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,22),40,112,112,45,100,111,32,101,120,112,114,32,99,111,108,32,101,120,116,114,97,41,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,12),40,115,116,121,108,101,32,104,101,97,100,41,0,0,0,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,12),40,112,112,32,111,98,106,32,99,111,108,41,0,0,0,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,62),40,99,104,105,99,107,101,110,46,112,114,101,116,116,121,45,112,114,105,110,116,35,103,101,110,101,114,105,99,45,119,114,105,116,101,32,111,98,106,32,100,105,115,112,108,97,121,63,32,119,105,100,116,104,32,111,117,116,112,117,116,41,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,9),40,97,50,49,51,55,32,115,41,0,0,0,0,0,0,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,112,114,101,116,116,121,45,112,114,105,110,116,35,112,114,101,116,116,121,45,112,114,105,110,116,32,111,98,106,32,46,32,111,112,116,41,0,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,6),40,110,101,120,116,41,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,6),40,115,107,105,112,41,0,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,14),40,114,101,99,32,109,115,103,32,97,114,103,115,41,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,102,112,114,105,110,116,102,48,32,108,111,99,32,112,111,114,116,32,109,115,103,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,102,112,114,105,110,116,102,32,112,111,114,116,32,102,115,116,114,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,112,114,105,110,116,102,32,102,115,116,114,32,46,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,115,112,114,105,110,116,102,32,102,115,116,114,32,46,32,97,114,103,115,41,0,0,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,102,111,114,109,97,116,35,102,111,114,109,97,116,32,102,109,116,45,111,114,45,100,115,116,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,115,101,116,45,112,115,101,117,100,111,45,114,97,110,100,111,109,45,115,101,101,100,33,32,98,117,102,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li47[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,112,115,101,117,100,111,45,114,97,110,100,111,109,45,105,110,116,101,103,101,114,32,110,41}; -static C_char li48[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,112,115,101,117,100,111,45,114,97,110,100,111,109,45,114,101,97,108,41,0,0,0,0,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,114,97,110,100,111,109,35,114,97,110,100,111,109,45,98,121,116,101,115,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; - - -C_noret_decl(f_1001) -static void C_ccall f_1001(C_word c,C_word *av) C_noret; -C_noret_decl(f_1053) -static void C_ccall f_1053(C_word c,C_word *av) C_noret; -C_noret_decl(f_1057) -static void C_ccall f_1057(C_word c,C_word *av) C_noret; -C_noret_decl(f_1083) -static void C_ccall f_1083(C_word c,C_word *av) C_noret; -C_noret_decl(f_1089) -static void C_ccall f_1089(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_1105) -static void C_ccall f_1105(C_word c,C_word *av) C_noret; -C_noret_decl(f_1118) -static void C_ccall f_1118(C_word c,C_word *av) C_noret; -C_noret_decl(f_1137) -static void C_ccall f_1137(C_word c,C_word *av) C_noret; -C_noret_decl(f_1139) -static void f_1139(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_1167) -static void C_ccall f_1167(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_1175) -static void C_ccall f_1175(C_word c,C_word *av) C_noret; -C_noret_decl(f_1198) -static void C_ccall f_1198(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_1204) -static void f_1204(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1222) -static void C_ccall f_1222(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_1235) -static void C_ccall f_1235(C_word c,C_word *av) C_noret; -C_noret_decl(f_1253) -static void C_ccall f_1253(C_word c,C_word *av) C_noret; -C_noret_decl(f_1257) -static void C_ccall f_1257(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_1288) -static void C_ccall f_1288(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_1295) -static void f_1295(C_word t0,C_word t1,C_word t2) 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_1322) -static void C_ccall f_1322(C_word c,C_word *av) C_noret; -C_noret_decl(f_1326) -static void C_ccall f_1326(C_word c,C_word *av) C_noret; -C_noret_decl(f_1335) -static void C_ccall f_1335(C_word c,C_word *av) 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_1377) -static void C_ccall f_1377(C_word c,C_word *av) C_noret; -C_noret_decl(f_1380) -static void C_ccall f_1380(C_word c,C_word *av) C_noret; -C_noret_decl(f_1387) -static void C_ccall f_1387(C_word c,C_word *av) C_noret; -C_noret_decl(f_1393) -static void C_ccall f_1393(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_1410) -static void C_ccall f_1410(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_1427) -static void C_ccall f_1427(C_word c,C_word *av) C_noret; -C_noret_decl(f_1431) -static void C_ccall f_1431(C_word c,C_word *av) C_noret; -C_noret_decl(f_1435) -static void C_ccall f_1435(C_word c,C_word *av) C_noret; -C_noret_decl(f_1443) -static void f_1443(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_1446) -static void f_1446(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_1470) -static void C_ccall f_1470(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_1479) -static void f_1479(C_word t0,C_word t1,C_word t2,C_word t3) 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_1502) -static void C_ccall f_1502(C_word c,C_word *av) C_noret; -C_noret_decl(f_1513) -static void f_1513(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_1526) -static void C_ccall f_1526(C_word c,C_word *av) C_noret; -C_noret_decl(f_1529) -static void C_ccall f_1529(C_word c,C_word *av) C_noret; -C_noret_decl(f_1542) -static void C_ccall f_1542(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_1562) -static void C_ccall f_1562(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_1600) -static void C_ccall f_1600(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_1618) -static void C_ccall f_1618(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_1660) -static void C_ccall f_1660(C_word c,C_word *av) C_noret; -C_noret_decl(f_1665) -static void f_1665(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_1689) -static void C_ccall f_1689(C_word c,C_word *av) C_noret; -C_noret_decl(f_1691) -static void f_1691(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_1700) -static void f_1700(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_1706) -static void f_1706(C_word t0,C_word t1,C_word t2,C_word t3) 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_1733) -static void C_ccall f_1733(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_1767) -static void C_ccall f_1767(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_1773) -static void f_1773(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_1776) -static void f_1776(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_1797) -static void C_ccall f_1797(C_word c,C_word *av) C_noret; -C_noret_decl(f_1801) -static void C_ccall f_1801(C_word c,C_word *av) C_noret; -C_noret_decl(f_1815) -static void f_1815(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_1836) -static void C_ccall f_1836(C_word c,C_word *av) C_noret; -C_noret_decl(f_1840) -static void C_ccall f_1840(C_word c,C_word *av) C_noret; -C_noret_decl(f_1854) -static void f_1854(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_1878) -static void C_ccall f_1878(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_1911) -static void C_ccall f_1911(C_word c,C_word *av) C_noret; -C_noret_decl(f_1913) -static void C_ccall f_1913(C_word c,C_word *av) C_noret; -C_noret_decl(f_1919) -static void C_ccall f_1919(C_word c,C_word *av) C_noret; -C_noret_decl(f_1925) -static void C_ccall f_1925(C_word c,C_word *av) C_noret; -C_noret_decl(f_1931) -static void C_ccall f_1931(C_word c,C_word *av) C_noret; -C_noret_decl(f_1937) -static void C_ccall f_1937(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_1949) -static void C_ccall f_1949(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_1975) -static void C_ccall f_1975(C_word c,C_word *av) C_noret; -C_noret_decl(f_1984) -static void f_1984(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1994) -static void f_1994(C_word t0,C_word t1) C_noret; -C_noret_decl(f_2110) -static void C_ccall f_2110(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_2123) -static void C_ccall f_2123(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_2132) -static void C_ccall f_2132(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_2138) -static void C_ccall f_2138(C_word c,C_word *av) C_noret; -C_noret_decl(f_2142) -static void C_ccall f_2142(C_word c,C_word *av) C_noret; -C_noret_decl(f_2149) -static void f_2149(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_2159) -static void C_ccall f_2159(C_word c,C_word *av) C_noret; -C_noret_decl(f_2181) -static void C_ccall f_2181(C_word c,C_word *av) C_noret; -C_noret_decl(f_2187) -static void f_2187(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_2194) -static C_word f_2194(C_word t0); -C_noret_decl(f_2204) -static void f_2204(C_word t0,C_word t1) C_noret; -C_noret_decl(f_2223) -static void f_2223(C_word t0,C_word t1) 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_2261) -static void C_ccall f_2261(C_word c,C_word *av) C_noret; -C_noret_decl(f_2274) -static void C_ccall f_2274(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_2300) -static void C_ccall f_2300(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_2317) -static void C_ccall f_2317(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_2334) -static void C_ccall f_2334(C_word c,C_word *av) C_noret; -C_noret_decl(f_2338) -static void C_ccall f_2338(C_word c,C_word *av) C_noret; -C_noret_decl(f_2356) -static void C_ccall f_2356(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_2365) -static void C_ccall f_2365(C_word c,C_word *av) C_noret; -C_noret_decl(f_2401) -static C_word f_2401(C_word t0,C_word t1); -C_noret_decl(f_2459) -static void C_ccall f_2459(C_word c,C_word *av) C_noret; -C_noret_decl(f_2470) -static void C_ccall f_2470(C_word c,C_word *av) C_noret; -C_noret_decl(f_2476) -static void C_ccall f_2476(C_word c,C_word *av) C_noret; -C_noret_decl(f_2482) -static void C_ccall f_2482(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_2496) -static void C_ccall f_2496(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_2531) -static void C_ccall f_2531(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_2540) -static void C_ccall f_2540(C_word c,C_word *av) C_noret; -C_noret_decl(f_2569) -static void C_ccall f_2569(C_word c,C_word *av) C_noret; -C_noret_decl(f_2585) -static void C_ccall f_2585(C_word c,C_word *av) C_noret; -C_noret_decl(f_2588) -static void C_ccall f_2588(C_word c,C_word *av) C_noret; -C_noret_decl(f_2604) -static void C_ccall f_2604(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_2614) -static void C_ccall f_2614(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_768) -static void C_ccall f_768(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_773) -static void f_773(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_776) -static void f_776(C_word t0,C_word t1) C_noret; -C_noret_decl(f_804) -static void f_804(C_word t0,C_word t1) C_noret; -C_noret_decl(f_838) -static C_word f_838(C_word t0); -C_noret_decl(f_877) -static void f_877(C_word t0,C_word t1,C_word t2,C_word t3) 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_896) -static void f_896(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_899) -static void f_899(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_906) -static void C_ccall f_906(C_word c,C_word *av) C_noret; -C_noret_decl(f_917) -static void C_ccall f_917(C_word c,C_word *av) C_noret; -C_noret_decl(f_926) -static void f_926(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_942) -static void C_ccall f_942(C_word c,C_word *av) C_noret; -C_noret_decl(f_944) -static void f_944(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_966) -static void C_ccall f_966(C_word c,C_word *av) C_noret; -C_noret_decl(f_972) -static void C_ccall f_972(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_992) -static void C_ccall f_992(C_word c,C_word *av) C_noret; -C_noret_decl(C_extras_toplevel) -C_extern void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; - -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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_1139(t0,t1,t2,t3,t4);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1204(t0,t1,t2);} - -C_noret_decl(trf_1295) -static void C_ccall trf_1295(C_word c,C_word *av) C_noret; -static void C_ccall trf_1295(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1295(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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1443(t0,t1,t2,t3);} - -C_noret_decl(trf_1446) -static void C_ccall trf_1446(C_word c,C_word *av) C_noret; -static void C_ccall trf_1446(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1446(t0,t1,t2,t3);} - -C_noret_decl(trf_1479) -static void C_ccall trf_1479(C_word c,C_word *av) C_noret; -static void C_ccall trf_1479(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1479(t0,t1,t2,t3);} - -C_noret_decl(trf_1513) -static void C_ccall trf_1513(C_word c,C_word *av) C_noret; -static void C_ccall trf_1513(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_1513(t0,t1,t2,t3,t4,t5);} - -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[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_1665(t0,t1,t2,t3,t4,t5);} - -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[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_1691(t0,t1,t2,t3,t4,t5);} - -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[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_1700(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_1706) -static void C_ccall trf_1706(C_word c,C_word *av) C_noret; -static void C_ccall trf_1706(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1706(t0,t1,t2,t3);} - -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[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_1773(t0,t1,t2,t3,t4,t5,t6,t7,t8);} - -C_noret_decl(trf_1776) -static void C_ccall trf_1776(C_word c,C_word *av) C_noret; -static void C_ccall trf_1776(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_1776(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_1815) -static void C_ccall trf_1815(C_word c,C_word *av) C_noret; -static void C_ccall trf_1815(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_1815(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_1854) -static void C_ccall trf_1854(C_word c,C_word *av) C_noret; -static void C_ccall trf_1854(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_1854(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_1984) -static void C_ccall trf_1984(C_word c,C_word *av) C_noret; -static void C_ccall trf_1984(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1984(t0,t1,t2);} - -C_noret_decl(trf_1994) -static void C_ccall trf_1994(C_word c,C_word *av) C_noret; -static void C_ccall trf_1994(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1994(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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_2149(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_2187) -static void C_ccall trf_2187(C_word c,C_word *av) C_noret; -static void C_ccall trf_2187(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2187(t0,t1,t2,t3);} - -C_noret_decl(trf_2204) -static void C_ccall trf_2204(C_word c,C_word *av) C_noret; -static void C_ccall trf_2204(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_2204(t0,t1);} - -C_noret_decl(trf_2223) -static void C_ccall trf_2223(C_word c,C_word *av) C_noret; -static void C_ccall trf_2223(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_2223(t0,t1);} - -C_noret_decl(trf_773) -static void C_ccall trf_773(C_word c,C_word *av) C_noret; -static void C_ccall trf_773(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_773(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_776) -static void C_ccall trf_776(C_word c,C_word *av) C_noret; -static void C_ccall trf_776(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_776(t0,t1);} - -C_noret_decl(trf_804) -static void C_ccall trf_804(C_word c,C_word *av) C_noret; -static void C_ccall trf_804(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_804(t0,t1);} - -C_noret_decl(trf_877) -static void C_ccall trf_877(C_word c,C_word *av) C_noret; -static void C_ccall trf_877(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_877(t0,t1,t2,t3);} - -C_noret_decl(trf_896) -static void C_ccall trf_896(C_word c,C_word *av) C_noret; -static void C_ccall trf_896(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_896(t0,t1,t2,t3);} - -C_noret_decl(trf_899) -static void C_ccall trf_899(C_word c,C_word *av) C_noret; -static void C_ccall trf_899(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_899(t0,t1,t2,t3);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_926(t0,t1,t2,t3);} - -C_noret_decl(trf_944) -static void C_ccall trf_944(C_word c,C_word *av) C_noret; -static void C_ccall trf_944(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_944(t0,t1,t2,t3);} - -/* k999 in wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1001(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1001,c,av);} -/* extras.scm:83: wr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_896(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k1051 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_1053,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1057,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:95: out */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_877(t3,t2,lf[19],((C_word*)t0)[5]);} - -/* k1055 in k1051 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1057(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1057,c,av);} -/* extras.scm:95: wr-lst */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_926(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k1081 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1083,c,av);} -/* extras.scm:97: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1089(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_1089,c,av);} -a=C_alloc(7); -t2=(C_truep(t1)?t1:C_i_symbolp(((C_word*)t0)[2])); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1095,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* extras.scm:99: scheme#open-output-string */ -t4=*((C_word*)lf[26]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1118,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:102: ##sys#procedure->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[27]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} -else{ -if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ -if(C_truep(((C_word*)t0)[6])){ -/* extras.scm:105: out */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_877(t3,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]);} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1137,a[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:106: out */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_877(t4,t3,lf[36],((C_word*)t0)[5]);}} -else{ -if(C_truep(C_charp(((C_word*)t0)[2]))){ -if(C_truep(((C_word*)t0)[6])){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1280,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); -/* ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[37]+1); -av2[1]=t3; -av2[2]=C_fix(1); -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} -else{ -t3=C_fix(C_character_code(((C_word*)t0)[2])); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1288,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* extras.scm:145: out */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_877(t5,t4,lf[41],((C_word*)t0)[5]);}} -else{ -if(C_truep(C_undefinedp(((C_word*)t0)[2]))){ -/* extras.scm:153: out */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_877(t3,((C_word*)t0)[4],lf[42],((C_word*)t0)[5]);} -else{ -if(C_truep(C_unboundvaluep(((C_word*)t0)[2]))){ -/* extras.scm:154: out */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_877(t3,((C_word*)t0)[4],lf[43],((C_word*)t0)[5]);} -else{ -if(C_truep(C_immp(((C_word*)t0)[2]))){ -/* extras.scm:155: out */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_877(t3,((C_word*)t0)[4],lf[44],((C_word*)t0)[5]);} -else{ -if(C_truep(C_anypointerp(((C_word*)t0)[2]))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1368,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:156: ##sys#pointer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[45]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[45]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} -else{ -if(C_truep(C_structurep(((C_word*)t0)[2]))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1377,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* extras.scm:158: scheme#open-output-string */ -t4=*((C_word*)lf[26]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1393,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],tmp=(C_word)a,a+=7,tmp); -/* extras.scm:161: scheme#port? */ -t4=*((C_word*)lf[55]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}}}}}}}}}} - -/* k1093 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_1095,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1098,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); -/* extras.scm:100: ##sys#print */ -t3=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_TRUE; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k1096 in k1093 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1098,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1105,a[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:101: scheme#get-output-string */ -t3=*((C_word*)lf[24]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1103 in k1096 in k1093 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1105(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1105,c,av);} -/* extras.scm:101: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1116 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1118(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1118,c,av);} -/* extras.scm:102: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1137(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_1137,c,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_1139,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li7),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_1139(t5,((C_word*)t0)[4],C_fix(0),C_fix(0),t1);} - -/* loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1139(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ -C_save_and_reclaim_args((void *)trf_1139,5,t0,t1,t2,t3,t4);} -a=C_alloc(20); -t5=(C_truep(t4)?C_fixnum_lessp(t3,C_i_string_length(((C_word*)t0)[2])):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_i_string_ref(((C_word*)t0)[2],t3); -t7=C_u_i_char_equalp(t6,C_make_character(92)); -t8=(C_truep(t7)?t7:C_u_i_char_equalp(t6,C_make_character(34))); -if(C_truep(t8)){ -t9=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1167,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t9,tmp=(C_word)a,a+=6,tmp); -t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1171,a[2]=((C_word*)t0)[4],a[3]=t10,tmp=(C_word)a,a+=4,tmp); -t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1175,a[2]=((C_word*)t0)[4],a[3]=t11,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:115: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[29]+1); -av2[1]=t12; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t3; -tp(5,av2);}} -else{ -t9=C_u_i_char_lessp(t6,C_make_character(32)); -t10=(C_truep(t9)?t9:C_u_i_char_greater_or_equal_p(t6,C_make_character(127))); -if(C_truep(t10)){ -t11=C_fixnum_plus(t3,C_fix(1)); -t12=C_fixnum_plus(t3,C_fix(1)); -t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1198,a[2]=t6,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t11,a[6]=t12,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); -t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1235,a[2]=((C_word*)t0)[4],a[3]=t13,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:122: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[29]+1); -av2[1]=t14; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t3; -tp(5,av2);}} -else{ -/* extras.scm:139: loop */ -t16=t1; -t17=t2; -t18=C_fixnum_plus(t3,C_fix(1)); -t19=t4; -t1=t16; -t2=t17; -t3=t18; -t4=t19; -goto loop;}}} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1253,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1257,a[2]=((C_word*)t0)[4],a[3]=t6,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:141: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[29]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t3; -tp(5,av2);}}} - -/* k1165 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1167(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1167,c,av);} -/* extras.scm:112: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1139(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k1169 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1171,c,av);} -/* extras.scm:114: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],lf[28],t1);} - -/* k1173 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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(0,c,3)))){ -C_save_and_reclaim((void *)f_1175,c,av);} -/* extras.scm:115: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1196 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1198(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_1198,c,av);} -a=C_alloc(14); -t2=C_u_i_assq(((C_word*)t0)[2],lf[30]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1203,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(t2)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1204,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp); -/* extras.scm:123: g200 */ -t5=t4; -f_1204(t5,t3,t2);} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1222,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1226,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#fixnum->string */ -t6=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_fix(C_character_code(((C_word*)t0)[2])); -av2[3]=C_fix(16); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k1201 in k1196 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1203,c,av);} -/* extras.scm:119: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1139(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* g200 in k1196 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1204(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_1204,3,t0,t1,t2);} -/* extras.scm:132: out */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_877(t3,t1,C_i_cdr(t2),((C_word*)t0)[3]);} - -/* k1220 in k1196 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1222(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1222,c,av);} -/* extras.scm:134: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1224 in k1196 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1226,c,av);} -/* extras.scm:134: scheme#string-append */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[32]; -av2[3]=t1; -av2[4]=lf[33]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k1233 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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,3)))){ -C_save_and_reclaim((void *)f_1235,c,av);} -/* extras.scm:122: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1251 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1253(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1253,c,av);} -/* extras.scm:140: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],lf[35],t1);} - -/* k1255 in loop in k1135 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1257,c,av);} -/* extras.scm:141: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1278 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1280,c,av);} -/* extras.scm:143: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1286 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1288(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_1288,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1291,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:146: chicken.base#char-name */ -t3=*((C_word*)lf[40]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1289 in k1286 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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(5,c,3)))){ -C_save_and_reclaim((void *)f_1291,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li8),tmp=(C_word)a,a+=5,tmp); -/* extras.scm:146: g212 */ -t3=t2; -f_1295(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(127))); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* ##sys#fixnum->string */ -t5=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(16); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1335,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[37]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[37]+1); -av2[1]=t4; -av2[2]=C_fix(1); -av2[3]=((C_word*)t0)[6]; -tp(4,av2);}}}} - -/* g212 in k1289 in k1286 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1295(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_1295,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1303,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* extras.scm:148: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[38]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k1301 in g212 in k1289 in k1286 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1303,c,av);} -/* extras.scm:148: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1320 in k1289 in k1286 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_1322,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:151: out */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_877(t3,t2,lf[39],((C_word*)t0)[4]);} - -/* k1324 in k1320 in k1289 in k1286 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1326,c,av);} -/* extras.scm:150: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k1333 in k1289 in k1286 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1335(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1335,c,av);} -/* extras.scm:152: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1366 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1368,c,av);} -/* extras.scm:156: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1375 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1377(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_1377,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1380,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); -/* extras.scm:159: ##sys#user-print-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[46]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[46]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_TRUE; -av2[4]=t1; -tp(5,av2);}} - -/* k1378 in k1375 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1380(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_1380,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1387,a[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:160: scheme#get-output-string */ -t3=*((C_word*)lf[24]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1385 in k1378 in k1375 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1387(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1387,c,av);} -/* extras.scm:160: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1391 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_1393,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1400,a[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:161: scheme#string-append */ -t3=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[47]; -av2[3]=C_slot(((C_word*)t0)[5],C_fix(3)); -av2[4]=lf[48]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -if(C_truep(C_bytevectorp(((C_word*)t0)[5]))){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1410,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* extras.scm:163: out */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_877(t3,t2,lf[50],((C_word*)t0)[4]);} -else{ -if(C_truep(C_lambdainfop(((C_word*)t0)[5]))){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1427,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_1431,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* extras.scm:167: ##sys#lambda-info->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[53]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[53]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -/* extras.scm:169: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],lf[54],((C_word*)t0)[4]);}}}} - -/* k1398 in k1391 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1400,c,av);} -/* extras.scm:161: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1408 in k1391 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1410,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1417,a[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:164: ##sys#bytevector->list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[49]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[49]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k1415 in k1408 in k1391 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1417,c,av);} -/* extras.scm:164: wr-lst */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_926(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1425 in k1391 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1427,c,av);} -/* extras.scm:166: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],lf[51],t1);} - -/* k1429 in k1391 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1431(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_1431,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1435,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:168: out */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_877(t3,t2,lf[52],((C_word*)t0)[4]);} - -/* k1433 in k1429 in k1391 in k1087 in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1435(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1435,c,av);} -/* extras.scm:167: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1443(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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_1443,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_1446,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li10),tmp=(C_word)a,a+=5,tmp)); -t41=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1479,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp)); -t42=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1513,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)li13),tmp=(C_word)a,a+=9,tmp)); -t43=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1600,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)li14),tmp=(C_word)a,a+=12,tmp)); -t44=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1665,a[2]=t17,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li15),tmp=(C_word)a,a+=6,tmp)); -t45=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1691,a[2]=t17,a[3]=((C_word*)t0)[2],a[4]=((C_word)li16),tmp=(C_word)a,a+=5,tmp)); -t46=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1700,a[2]=t9,a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=((C_word)li18),tmp=(C_word)a,a+=6,tmp)); -t47=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1773,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)li22),tmp=(C_word)a,a+=8,tmp)); -t48=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1913,a[2]=t15,a[3]=t11,a[4]=((C_word)li23),tmp=(C_word)a,a+=5,tmp)); -t49=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1919,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li24),tmp=(C_word)a,a+=6,tmp)); -t50=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1925,a[2]=t19,a[3]=t11,a[4]=((C_word)li25),tmp=(C_word)a,a+=5,tmp)); -t51=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1931,a[2]=t13,a[3]=t21,a[4]=((C_word)li26),tmp=(C_word)a,a+=5,tmp)); -t52=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1937,a[2]=t19,a[3]=t11,a[4]=t21,a[5]=((C_word)li27),tmp=(C_word)a,a+=6,tmp)); -t53=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1943,a[2]=t13,a[3]=t11,a[4]=((C_word)li28),tmp=(C_word)a,a+=5,tmp)); -t54=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1949,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li29),tmp=(C_word)a,a+=6,tmp)); -t55=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1969,a[2]=t19,a[3]=t11,a[4]=((C_word)li30),tmp=(C_word)a,a+=5,tmp)); -t56=C_set_block_item(t37,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1975,a[2]=t19,a[3]=t21,a[4]=t11,a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp)); -t57=C_set_block_item(t39,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1984,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)li32),tmp=(C_word)a,a+=11,tmp)); -/* extras.scm:331: pr */ -t58=((C_word*)t9)[1]; -f_1513(t58,t1,t2,t3,C_fix(0),((C_word*)t11)[1]);} - -/* spaces in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1446(C_word 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(34,0,4)))){ -C_save_and_reclaim_args((void *)trf_1446,4,t0,t1,t2,t3);} -a=C_alloc(34); -if(C_truep(C_i_greaterp(t2,C_fix(0)))){ -if(C_truep(C_i_greaterp(t2,C_fix(7)))){ -t4=C_s_a_i_minus(&a,2,t2,C_fix(8)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1470,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:176: out */ -t6=((C_word*)((C_word*)t0)[3])[1]; -f_877(t6,t5,lf[57],t3);} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1477,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:177: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[29]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[29]+1); -av2[1]=t4; -av2[2]=lf[58]; -av2[3]=C_fix(0); -av2[4]=t2; -tp(5,av2);}}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k1468 in spaces in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1470(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1470,c,av);} -/* extras.scm:176: spaces */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1446(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k1475 in spaces in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1477,c,av);} -/* extras.scm:177: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* indent in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1479(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ -C_save_and_reclaim_args((void *)trf_1479,4,t0,t1,t2,t3);} -a=C_alloc(29); -if(C_truep(t3)){ -if(C_truep(C_i_lessp(t2,t3))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1495,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_1502,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[37]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[37]+1); -av2[1]=t5; -av2[2]=C_fix(1); -av2[3]=C_make_character(10); -tp(4,av2);}} -else{ -t4=C_s_a_i_minus(&a,2,t2,t3); -/* extras.scm:184: spaces */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1446(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);}}} - -/* k1493 in indent in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1495,c,av);} -if(C_truep(t1)){ -/* extras.scm:183: spaces */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1446(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k1500 in indent in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1502(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1502,c,av);} -/* extras.scm:183: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* pr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1513(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ -C_word tmp; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(101,0,3)))){ -C_save_and_reclaim_args((void *)trf_1513,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(101); -t6=C_i_pairp(t2); -t7=(C_truep(t6)?t6:C_i_vectorp(t2)); -if(C_truep(t7)){ -t8=C_SCHEME_END_OF_LIST; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1526,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t9,a[6]=t2,a[7]=t5,a[8]=t4,a[9]=((C_word*)t0)[3],a[10]=((C_word*)t0)[4],a[11]=((C_word*)t0)[5],tmp=(C_word)a,a+=12,tmp); -t11=C_s_a_i_minus(&a,2,((C_word*)t0)[6],t3); -t12=C_s_a_i_minus(&a,2,t11,t4); -t13=C_s_a_i_plus(&a,2,t12,C_fix(1)); -/* extras.scm:189: scheme#max */ -t14=*((C_word*)lf[61]+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:200: wr */ -t8=((C_word*)((C_word*)t0)[7])[1]; -f_896(t8,t1,t2,t3);}} - -/* k1524 in pr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1526(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,5)))){ -C_save_and_reclaim((void *)f_1526,c,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_1529,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_1564,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word)li12),tmp=(C_word)a,a+=5,tmp); -/* extras.scm:190: generic-write */ -f_773(t4,((C_word*)t0)[6],((C_word*)t0)[11],C_SCHEME_FALSE,t5);} - -/* k1527 in k1524 in pr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1529(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_1529,c,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_1542,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:196: chicken.string#reverse-string-append */ -t3=*((C_word*)lf[59]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((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:198: pp-pair */ -t2=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[9]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1558,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:199: scheme#vector->list */ -t3=*((C_word*)lf[20]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} - -/* k1540 in k1527 in k1524 in pr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1542,c,av);} -/* extras.scm:196: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k1556 in k1527 in k1524 in pr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_1558,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1562,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); -/* extras.scm:199: out */ -t3=((C_word*)((C_word*)t0)[6])[1]; -f_877(t3,t2,lf[60],((C_word*)t0)[7]);} - -/* k1560 in k1556 in k1527 in k1524 in pr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1562,c,av);} -/* extras.scm:199: pp-list */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1691(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} - -/* a1563 in k1524 in pr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ -C_save_and_reclaim((void *)f_1564,c,av);} -a=C_alloc(32); -t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); -t5=C_i_string_length(t2); -t6=C_s_a_i_minus(&a,2,((C_word*)((C_word*)t0)[3])[1],t5); -t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_i_greaterp(((C_word*)((C_word*)t0)[3])[1],C_fix(0)); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* pp-expr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1600(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_1600,c,av);} -a=C_alloc(14); -t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_1607,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:203: read-macro? */ -f_776(t5,t2);} - -/* k1605 in pp-expr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_1607,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=C_i_cadr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1618,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t4=( -/* extras.scm:205: read-macro-prefix */ - f_838(((C_word*)t0)[2]) -); -/* extras.scm:205: out */ -t5=((C_word*)((C_word*)t0)[8])[1]; -f_877(t5,t3,t4,((C_word*)t0)[9]);} -else{ -t2=C_i_car(((C_word*)t0)[2]); -if(C_truep(C_i_symbolp(t2))){ -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1634,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]=t2,tmp=(C_word)a,a+=10,tmp); -/* extras.scm:210: style */ -t4=((C_word*)((C_word*)t0)[12])[1]; -f_1984(t4,t3,t2);} -else{ -/* extras.scm:217: pp-list */ -t3=((C_word*)((C_word*)t0)[13])[1]; -f_1691(t3,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[9],((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);}}} - -/* k1616 in k1605 in pp-expr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1618,c,av);} -/* extras.scm:204: pr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1513(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]);} - -/* k1632 in k1605 in pp-expr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_1634,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -/* extras.scm:212: proc */ -t2=t1;{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1660,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:213: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[38]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[38]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[9]; -tp(3,av2);}}} - -/* k1658 in k1632 in k1605 in pp-expr in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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(0,c,8)))){ -C_save_and_reclaim((void *)f_1660,c,av);} -t2=C_i_string_length(t1); -if(C_truep(C_i_greaterp(t2,C_fix(5)))){ -/* extras.scm:215: pp-general */ -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],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[7])[1]);} -else{ -/* extras.scm:216: pp-call */ -t3=((C_word*)((C_word*)t0)[8])[1]; -f_1665(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)((C_word*)t0)[7])[1]);}} - -/* pp-call in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1665(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(13,0,3)))){ -C_save_and_reclaim_args((void *)trf_1665,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(13); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1669,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1689,a[2]=((C_word*)t0)[3],a[3]=t6,a[4]=t7,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:223: out */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_877(t9,t8,lf[62],t3);} - -/* k1667 in pp-call in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ -C_save_and_reclaim((void *)f_1669,c,av);} -a=C_alloc(29); -if(C_truep(((C_word*)t0)[2])){ -t2=C_u_i_cdr(((C_word*)t0)[3]); -t3=C_s_a_i_plus(&a,2,t1,C_fix(1)); -/* extras.scm:225: pp-down */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_1700(t4,((C_word*)t0)[5],t2,t1,t3,((C_word*)t0)[6],((C_word*)t0)[7]);} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k1687 in pp-call in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1689(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1689,c,av);} -/* extras.scm:223: wr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_896(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* pp-list in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1691(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_1691,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1695,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:231: out */ -t7=((C_word*)((C_word*)t0)[3])[1]; -f_877(t7,t6,lf[63],t3);} - -/* k1693 in pp-list in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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,6)))){ -C_save_and_reclaim((void *)f_1695,c,av);} -/* extras.scm:232: pp-down */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1700(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1700(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_1700,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_1706,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)li17),tmp=(C_word)a,a+=10,tmp)); -t10=((C_word*)t8)[1]; -f_1706(t10,t1,t2,t3);} - -/* loop in pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1706(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(41,0,3)))){ -C_save_and_reclaim_args((void *)trf_1706,4,t0,t1,t2,t3);} -a=C_alloc(41); -if(C_truep(t3)){ -if(C_truep(C_i_pairp(t2))){ -t4=C_u_i_cdr(t2); -t5=C_i_nullp(t4); -t6=(C_truep(t5)?C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)):C_fix(0)); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1727,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t8=C_u_i_car(t2); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1733,a[2]=((C_word*)t0)[4],a[3]=t7,a[4]=t8,a[5]=t6,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* extras.scm:241: indent */ -t10=((C_word*)((C_word*)t0)[6])[1]; -f_1479(t10,t9,((C_word*)t0)[7],t3);} -else{ -if(C_truep(C_i_nullp(t2))){ -/* extras.scm:243: out */ -t4=((C_word*)((C_word*)t0)[8])[1]; -f_877(t4,t1,lf[64],t3);} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1755,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_1759,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_1767,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_1771,a[2]=((C_word*)t0)[8],a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* extras.scm:247: indent */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_1479(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);}}} - -/* k1725 in loop in pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1727,c,av);} -/* extras.scm:240: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1706(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k1731 in loop in pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1733(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1733,c,av);} -/* extras.scm:241: pr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1513(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k1753 in loop in pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1755,c,av);} -/* extras.scm:245: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],lf[65],t1);} - -/* k1757 in loop in pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,5)))){ -C_save_and_reclaim((void *)f_1759,c,av);} -a=C_alloc(29); -t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* extras.scm:246: pr */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_1513(t3,((C_word*)t0)[4],((C_word*)t0)[5],t1,t2,((C_word*)t0)[6]);} - -/* k1765 in loop in pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1767,c,av);} -/* extras.scm:247: indent */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1479(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k1769 in loop in pp-down in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1771,c,av);} -/* extras.scm:247: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],lf[66],t1);} - -/* pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1773(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(42,0,6)))){ -C_save_and_reclaim_args((void *)trf_1773,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_1776,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)li19),tmp=(C_word)a,a+=8,tmp)); -t16=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1815,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)li20),tmp=(C_word)a,a+=8,tmp)); -t17=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1854,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t8,a[5]=((C_word)li21),tmp=(C_word)a,a+=6,tmp)); -t18=C_i_car(t2); -t19=C_u_i_cdr(t2); -t20=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1865,a[2]=t5,a[3]=t19,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); -t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1911,a[2]=((C_word*)t0)[5],a[3]=t20,a[4]=t18,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:274: out */ -t22=((C_word*)((C_word*)t0)[6])[1]; -f_877(t22,t21,lf[68],t3);} - -/* tail1 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1776(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(43,0,5)))){ -C_save_and_reclaim_args((void *)trf_1776,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(43); -t6=(C_truep(((C_word*)t0)[2])?C_i_pairp(t2):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=C_i_car(t2); -t8=C_u_i_cdr(t2); -t9=C_i_nullp(t8); -t10=(C_truep(t9)?C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)):C_fix(0)); -t11=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1797,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1801,a[2]=((C_word*)t0)[5],a[3]=t11,a[4]=t7,a[5]=t10,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -/* extras.scm:258: indent */ -t13=((C_word*)((C_word*)t0)[6])[1]; -f_1479(t13,t12,t5,t4);} -else{ -/* extras.scm:259: tail2 */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_1815(t7,t1,t2,t3,t4,t5);}} - -/* k1795 in tail1 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1797(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1797,c,av);} -/* extras.scm:258: tail2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1815(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,((C_word*)t0)[6]);} - -/* k1799 in tail1 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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(0,c,5)))){ -C_save_and_reclaim((void *)f_1801,c,av);} -/* extras.scm:258: pr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1513(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* tail2 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1815(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(42,0,4)))){ -C_save_and_reclaim_args((void *)trf_1815,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(42); -t6=(C_truep(((C_word*)t0)[2])?C_i_pairp(t2):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=C_i_car(t2); -t8=C_u_i_cdr(t2); -t9=C_i_nullp(t8); -t10=(C_truep(t9)?C_s_a_i_plus(&a,2,((C_word*)t0)[3],C_fix(1)):C_fix(0)); -t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1836,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1840,a[2]=((C_word*)t0)[5],a[3]=t11,a[4]=t7,a[5]=t10,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -/* extras.scm:266: indent */ -t13=((C_word*)((C_word*)t0)[6])[1]; -f_1479(t13,t12,t5,t4);} -else{ -/* extras.scm:267: tail3 */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_1854(t7,t1,t2,t3,t4);}} - -/* k1834 in tail2 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1836(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1836,c,av);} -/* extras.scm:266: tail3 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1854(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k1838 in tail2 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1840(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1840,c,av);} -/* extras.scm:266: pr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1513(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* tail3 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1854(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_1854,5,t0,t1,t2,t3,t4);} -/* extras.scm:270: pp-down */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1700(t5,t1,t2,t4,t3,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k1863 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1865(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(58,c,5)))){ -C_save_and_reclaim((void *)f_1865,c,av);} -a=C_alloc(58); -t2=(C_truep(((C_word*)t0)[2])?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE); -if(C_truep(t2)){ -t3=C_i_car(((C_word*)t0)[3]); -t4=C_u_i_cdr(((C_word*)t0)[3]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1878,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1893,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:278: out */ -t7=((C_word*)((C_word*)t0)[8])[1]; -f_877(t7,t6,lf[67],t1);} -else{ -t3=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(2)); -t4=C_s_a_i_plus(&a,2,t1,C_fix(1)); -/* extras.scm:280: tail1 */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_1776(t5,((C_word*)t0)[6],((C_word*)t0)[3],t3,t1,t4);}} - -/* k1876 in k1863 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(58,c,5)))){ -C_save_and_reclaim((void *)f_1878,c,av);} -a=C_alloc(58); -t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],C_fix(2)); -t3=C_s_a_i_plus(&a,2,t1,C_fix(1)); -/* extras.scm:279: tail1 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_1776(t4,((C_word*)t0)[4],((C_word*)t0)[5],t2,t1,t3);} - -/* k1891 in k1863 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1893,c,av);} -/* extras.scm:278: wr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_896(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k1909 in pp-general in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1911,c,av);} -/* extras.scm:274: wr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_896(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* pp-expr-list in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_1913,c,av);} -/* extras.scm:283: pp-list */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1691(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} - -/* pp-lambda in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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=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_1919,c,av);} -/* extras.scm:286: pp-general */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1773(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);} - -/* pp-if in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1925(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_1925,c,av);} -/* extras.scm:289: pp-general */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1773(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1]);} - -/* pp-cond in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1931(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_1931,c,av);} -/* extras.scm:292: pp-call */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1665(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} - -/* pp-case in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1937(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_1937,c,av);} -/* extras.scm:295: pp-general */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1773(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);} - -/* pp-and in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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=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_1943,c,av);} -/* extras.scm:298: pp-call */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1665(t5,t1,t2,t3,t4,((C_word*)((C_word*)t0)[3])[1]);} - -/* pp-let in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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=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(0,c,8)))){ -C_save_and_reclaim((void *)f_1949,c,av);} -t5=C_i_cdr(t2); -if(C_truep(C_i_pairp(t5))){ -/* extras.scm:303: pp-general */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_1773(t6,t1,t2,t3,t4,C_i_symbolp(C_u_i_car(t5)),((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);} -else{ -/* extras.scm:303: pp-general */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_1773(t6,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],C_SCHEME_FALSE,((C_word*)((C_word*)t0)[4])[1]);}} - -/* pp-begin in pp in chicken.pretty-print#generic-write in k769 in k766 */ -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=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_1969,c,av);} -/* extras.scm:306: pp-general */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1773(t5,t1,t2,t3,t4,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1]);} - -/* pp-do in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_1975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_1975,c,av);} -/* extras.scm:309: pp-general */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_1773(t5,t1,t2,t3,t4,C_SCHEME_FALSE,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]);} - -/* style in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1984(C_word t0,C_word t1,C_word 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,2)))){ -C_save_and_reclaim_args((void *)trf_1984,3,t0,t1,t2);} -a=C_alloc(12); -t3=C_eqp(t2,lf[69]); -t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_1994,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((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(t3)){ -t5=t4; -f_1994(t5,t3);} -else{ -t5=C_eqp(t2,lf[79]); -if(C_truep(t5)){ -t6=t4; -f_1994(t6,t5);} -else{ -t6=C_eqp(t2,lf[80]); -if(C_truep(t6)){ -t7=t4; -f_1994(t7,t6);} -else{ -t7=C_eqp(t2,lf[81]); -t8=t4; -f_1994(t8,(C_truep(t7)?t7:C_eqp(t2,lf[82])));}}}} - -/* k1992 in style in pp in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_1994(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -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_1994,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[70]); -t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[4],lf[71])); -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[72]); -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[73]); -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[74]); -t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[4],lf[75])); -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[76]); -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[77]); -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[78]); -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);}}}}}}}}} - -/* k2108 in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_2110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_2110,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2114,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:334: pp */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_1443(t3,t2,((C_word*)t0)[5],C_fix(0));} - -/* k2112 in k2108 in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2114,c,av);} -/* extras.scm:334: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k2121 in k769 in k766 */ -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 t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,6)))){ -C_save_and_reclaim((void *)f_2123,c,av);} -a=C_alloc(29); -t2=C_mutate((C_word*)lf[83]+1 /* (set! chicken.pretty-print#pretty-print-width ...) */,t1); -t3=C_mutate((C_word*)lf[84]+1 /* (set! chicken.pretty-print#pretty-print ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2125,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[87]+1 /* (set! chicken.pretty-print#pp ...) */,*((C_word*)lf[84]+1)); -t5=C_a_i_provide(&a,1,lf[88]); -t6=C_mutate(&lf[89] /* (set! chicken.format#fprintf0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2149,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[98]+1 /* (set! chicken.format#fprintf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2470,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[100]+1 /* (set! chicken.format#printf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2476,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[102]+1 /* (set! chicken.format#sprintf ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2482,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[104]+1 /* (set! chicken.format#format ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2488,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); -t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2531,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* extras.scm:430: chicken.platform#register-feature! */ -t12=*((C_word*)lf[122]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t12; -av2[1]=t11; -av2[2]=lf[123]; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} - -/* chicken.pretty-print#pretty-print in k2121 in k769 in k766 */ -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 *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +8,c,2)))){ -C_save_and_reclaim((void*)f_2125,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_pairp(t3); -t5=(C_truep(t4)?C_get_rest_arg(c,3,av,3,t0):*((C_word*)lf[85]+1)); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2132,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2136,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:344: pretty-print-width */ -t8=*((C_word*)lf[83]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* k2130 in chicken.pretty-print#pretty-print in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2132,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k2134 in chicken.pretty-print#pretty-print in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ -C_save_and_reclaim((void *)f_2136,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2138,a[2]=((C_word*)t0)[2],a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); -/* extras.scm:344: generic-write */ -f_773(((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1,t2);} - -/* a2137 in k2134 in chicken.pretty-print#pretty-print in k2121 in k769 in k766 */ -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=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_2138,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2142,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* extras.scm:344: scheme#display */ -t4=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k2140 in a2137 in k2134 in chicken.pretty-print#pretty-print in k2121 in k769 in k766 */ -static void C_ccall f_2142(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2142,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void f_2149(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(11,0,2)))){ -C_save_and_reclaim_args((void *)trf_2149,5,t1,t2,t3,t4,t5);} -a=C_alloc(11); -t6=(C_truep(t3)?C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,t2):C_SCHEME_UNDEFINED); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2156,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2459,a[2]=t7,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t3)){ -/* extras.scm:361: ##sys#tty-port? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[97]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[97]+1); -av2[1]=t8; -av2[2]=t3; -tp(3,av2);}} -else{ -/* extras.scm:363: scheme#open-output-string */ -t9=*((C_word*)lf[26]+1);{ -C_word av2[2]; -av2[0]=t9; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} - -/* k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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(13,c,4)))){ -C_save_and_reclaim((void *)f_2156,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2159,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_2187,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t4,a[5]=((C_word)li40),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_2187(t6,t2,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k2157 in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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 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_2159,c,av);} -a=C_alloc(4); -if(C_truep(C_i_not(((C_word*)t0)[2]))){ -/* extras.scm:407: scheme#get-output-string */ -t2=*((C_word*)lf[24]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=C_eqp(((C_word*)t0)[4],((C_word*)t0)[2]); -if(C_truep(C_i_not(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2181,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* extras.scm:409: scheme#get-output-string */ -t4=*((C_word*)lf[24]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k2179 in k2157 in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void C_ccall f_2181(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2181,c,av);} -/* extras.scm:409: ##sys#print */ -t2=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void f_2187(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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(30,0,2)))){ -C_save_and_reclaim_args((void *)trf_2187,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_u_i_string_length(t2); -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_2194,a[2]=t2,a[3]=t7,tmp=(C_word)a,a+=4,tmp)); -t14=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2204,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li37),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|10,a[1]=(C_word)f_2223,a[2]=t7,a[3]=t8,a[4]=t10,a[5]=t16,a[6]=((C_word*)t0)[3],a[7]=t12,a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[4],a[10]=((C_word)li39),tmp=(C_word)a,a+=11,tmp)); -t18=((C_word*)t16)[1]; -f_2223(t18,t1);} - -/* fetch in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static C_word f_2194(C_word t0){ -C_word tmp; -C_word t1; -C_word t2; -C_word t3; -C_word t4; -C_stack_overflow_check;{} -t1=C_i_string_ref(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); -t2=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],C_fix(1)); -t3=C_set_block_item(((C_word*)t0)[3],0,t2); -return(t1);} - -/* next in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void f_2204(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_2204,2,t0,t1);} -if(C_truep(C_eqp(((C_word*)((C_word*)t0)[2])[1],C_SCHEME_END_OF_LIST))){ -/* extras.scm:374: ##sys#error */ -t2=*((C_word*)lf[90]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[91]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=C_slot(((C_word*)((C_word*)t0)[2])[1],C_fix(0)); -t3=C_slot(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void f_2223(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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_2223,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:380: fetch */ - f_2194(((C_word*)((C_word*)t0)[4])[1]) -); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2236,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:382: fetch */ - f_2194(((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_2261,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* extras.scm:384: next */ -t9=((C_word*)((C_word*)t0)[7])[1]; -f_2204(t9,t8); -case C_make_character(65): -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2274,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* extras.scm:385: next */ -t9=((C_word*)((C_word*)t0)[7])[1]; -f_2204(t9,t8); -case C_make_character(67): -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2287,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* extras.scm:386: next */ -t9=((C_word*)((C_word*)t0)[7])[1]; -f_2204(t9,t8); -case C_make_character(66): -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2300,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_2304,a[2]=t8,tmp=(C_word)a,a+=3,tmp); -/* extras.scm:387: next */ -t10=((C_word*)((C_word*)t0)[7])[1]; -f_2204(t10,t9); -case C_make_character(79): -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2317,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_2321,a[2]=t8,tmp=(C_word)a,a+=3,tmp); -/* extras.scm:388: next */ -t10=((C_word*)((C_word*)t0)[7])[1]; -f_2204(t10,t9); -case C_make_character(88): -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2334,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_2338,a[2]=t8,tmp=(C_word)a,a+=3,tmp); -/* extras.scm:389: next */ -t10=((C_word*)((C_word*)t0)[7])[1]; -f_2204(t10,t9); -case C_make_character(33): -/* extras.scm:390: ##sys#flush-output */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[94]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[94]+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_2356,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:392: next */ -t9=((C_word*)((C_word*)t0)[7])[1]; -f_2204(t9,t8); -case C_make_character(126): -/* extras.scm:396: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[93]+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:397: scheme#newline */ -t10=*((C_word*)lf[95]+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:400: fetch */ - f_2194(((C_word*)((C_word*)t0)[4])[1]) -); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2401,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp); -t12=( - f_2401(t11,t10) -); -/* extras.scm:406: loop */ -t24=t1; -t1=t24; -goto loop;} -else{ -/* extras.scm:404: ##sys#error */ -t10=*((C_word*)lf[90]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -av2[3]=lf[96]; -av2[4]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}} -else{ -/* extras.scm:405: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[93]+1); -av2[1]=t3; -av2[2]=t2; -av2[3]=((C_word*)t0)[6]; -tp(4,av2);}}}} - -/* k2234 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void C_ccall f_2236(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2236,c,av);} -/* extras.scm:406: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2223(t2,((C_word*)t0)[3]);} - -/* k2259 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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,3)))){ -C_save_and_reclaim((void *)f_2261,c,av);} -/* extras.scm:384: scheme#write */ -t2=*((C_word*)lf[92]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k2272 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void C_ccall f_2274(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2274,c,av);} -/* extras.scm:385: scheme#display */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k2285 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2287,c,av);} -/* extras.scm:386: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[93]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[93]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k2298 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2300,c,av);} -/* extras.scm:387: scheme#display */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k2302 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2304,c,av);} -/* extras.scm:387: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[23]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(2); -tp(4,av2);}} - -/* k2315 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void C_ccall f_2317(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2317,c,av);} -/* extras.scm:388: scheme#display */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k2319 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2321,c,av);} -/* extras.scm:388: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[23]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(8); -tp(4,av2);}} - -/* k2332 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void C_ccall f_2334(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2334,c,av);} -/* extras.scm:389: scheme#display */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k2336 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void C_ccall f_2338(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2338,c,av);} -/* extras.scm:389: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[23]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* k2354 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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 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_2356,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_2359,a[2]=((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); -/* extras.scm:393: next */ -t3=((C_word*)((C_word*)t0)[6])[1]; -f_2204(t3,t2);} - -/* k2357 in k2354 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_2359,c,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_2365,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* extras.scm:395: rec */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_2187(t4,t3,((C_word*)t0)[6],t1);} - -/* k2363 in k2357 in k2354 in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -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,1)))){ -C_save_and_reclaim((void *)f_2365,c,av);} -/* extras.scm:406: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2223(t2,((C_word*)t0)[3]);} - -/* skip in loop in rec in k2154 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static C_word f_2401(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:402: fetch */ - f_2194(((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);}} - -/* k2457 in chicken.format#fprintf0 in k2121 in k769 in k766 */ -static void C_ccall f_2459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2459,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -f_2156(2,av2);}} -else{ -/* extras.scm:363: scheme#open-output-string */ -t2=*((C_word*)lf[26]+1);{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.format#fprintf in k2121 in k769 in k766 */ -static void C_ccall f_2470(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_2470,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+0); -t4=C_build_rest(&a,c,4,av); -C_word t5; -/* extras.scm:412: fprintf0 */ -f_2149(t1,lf[99],t2,t3,t4);} - -/* chicken.format#printf in k2121 in k769 in k766 */ -static void C_ccall f_2476(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_2476,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+0); -t3=C_build_rest(&a,c,3,av); -C_word t4; -/* extras.scm:415: fprintf0 */ -f_2149(t1,lf[101],*((C_word*)lf[85]+1),t2,t3);} - -/* chicken.format#sprintf in k2121 in k769 in k766 */ -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=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_2482,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+0); -t3=C_build_rest(&a,c,3,av); -C_word t4; -/* extras.scm:418: fprintf0 */ -f_2149(t1,lf[103],C_SCHEME_FALSE,t2,t3);} - -/* chicken.format#format in k2121 in k769 in k766 */ -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=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_2488,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+12); -t3=C_build_rest(&a,c,3,av); -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2496,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_not(t2))){{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[102]+1); -av2[3]=((C_word*)t4)[1]; -C_apply(4,av2);}} -else{ -if(C_truep(C_booleanp(t2))){{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[100]+1); -av2[3]=((C_word*)t4)[1]; -C_apply(4,av2);}} -else{ -if(C_truep(C_i_stringp(t2))){ -t6=C_a_i_cons(&a,2,t2,((C_word*)t4)[1]); -t7=C_set_block_item(t4,0,t6);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[102]+1); -av2[3]=((C_word*)t4)[1]; -C_apply(4,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2521,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* extras.scm:425: scheme#output-port? */ -t7=*((C_word*)lf[107]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}} - -/* k2494 in chicken.format#format in k2121 in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2496,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)((C_word*)t0)[3])[1]; -C_apply(4,av2);}} - -/* k2519 in chicken.format#format in k2121 in k769 in k766 */ -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(3,c,5)))){ -C_save_and_reclaim((void *)f_2521,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=*((C_word*)lf[98]+1); -av2[3]=((C_word*)((C_word*)t0)[3])[1]; -C_apply(4,av2);}} -else{ -/* extras.scm:427: ##sys#error */ -t2=*((C_word*)lf[90]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[5]; -av2[2]=lf[105]; -av2[3]=lf[106]; -av2[4]=((C_word*)t0)[2]; -av2[5]=((C_word*)((C_word*)t0)[3])[1]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* k2529 in k2121 in k769 in k766 */ -static void C_ccall f_2531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ -C_save_and_reclaim((void *)f_2531,c,av);} -a=C_alloc(21); -t2=C_a_i_provide(&a,1,lf[108]); -t3=C_mutate((C_word*)lf[109]+1 /* (set! chicken.random#set-pseudo-random-seed! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2533,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[112]+1 /* (set! chicken.random#pseudo-random-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2569,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[115]+1 /* (set! chicken.random#pseudo-random-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2585,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp)); -t6=C_fix(C_MOST_POSITIVE_FIXNUM&(C_word)C_RANDOM_STATE_SIZE); -t7=C_mutate((C_word*)lf[116]+1 /* (set! chicken.random#random-bytes ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2588,a[2]=t6,a[3]=((C_word)li49),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* chicken.random#set-pseudo-random-seed! in k2529 in k2121 in k769 in k766 */ -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=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_min_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_2533,c,av);} -a=C_alloc(7); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=t4; -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_2540,a[2]=t2,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -if(C_truep(((C_word*)t6)[1])){ -t8=C_i_check_fixnum_2(((C_word*)t6)[1],lf[110]); -if(C_truep(C_fixnum_lessp(((C_word*)t6)[1],C_fix(0)))){ -/* extras.scm:443: ##sys#error */ -t9=*((C_word*)lf[90]+1);{ -C_word av2[5]; -av2[0]=t9; -av2[1]=t7; -av2[2]=lf[110]; -av2[3]=lf[111]; -av2[4]=((C_word*)t6)[1]; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} -else{ -t9=C_SCHEME_UNDEFINED; -t10=t7;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -f_2540(2,av2);}}} -else{ -t8=C_block_size(t2); -t9=C_set_block_item(t6,0,t8); -t10=t7;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -f_2540(2,av2);}}} - -/* k2538 in chicken.random#set-pseudo-random-seed! in k2529 in k2121 in k769 in k766 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2540,c,av);} -t2=C_i_check_bytevector_2(((C_word*)t0)[2],lf[110]); -t3=C_block_size(((C_word*)t0)[2]); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_set_random_seed(((C_word*)t0)[2],C_i_fixnum_min(((C_word*)((C_word*)t0)[4])[1],t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.random#pseudo-random-integer in k2529 in k2121 in k769 in k766 */ -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; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(2,c,4)))){ -C_save_and_reclaim((void *)f_2569,c,av);} -a=C_alloc(2); -if(C_truep(C_fixnump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_random_fixnum(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_not(C_i_bignump(t2)))){ -/* extras.scm:455: ##sys#error */ -t3=*((C_word*)lf[90]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[113]; -av2[3]=lf[114]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_u_i_random_int(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* chicken.random#pseudo-random-real in k2529 in k2121 in k769 in k766 */ -static void C_ccall f_2585(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(2,c,1)))){ -C_save_and_reclaim((void *)f_2585,c,av);} -a=C_alloc(2); -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_random_real(&a,0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.random#random-bytes in k2529 in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_2588,c,av);} -a=C_alloc(6); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0)); -t4=C_rest_nullp(c,2); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,2,t0)); -t7=C_rest_nullp(c,3); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2604,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -if(C_truep(t6)){ -t9=C_i_check_fixnum_2(t6,lf[117]); -if(C_truep(C_fixnum_lessp(t6,C_fix(0)))){ -/* extras.scm:468: ##sys#error */ -t10=*((C_word*)lf[90]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t8; -av2[2]=lf[117]; -av2[3]=lf[121]; -av2[4]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} -else{ -t10=C_SCHEME_UNDEFINED; -t11=t8;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -f_2604(2,av2);}}} -else{ -t9=t8;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_SCHEME_UNDEFINED; -f_2604(2,av2);}}} - -/* k2602 in chicken.random#random-bytes in k2529 in k2121 in k769 in k766 */ -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 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_2604,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2607,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_2623,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -t4=C_immp(((C_word*)t0)[4]); -if(C_truep(t4)){ -if(C_truep(t4)){ -/* extras.scm:472: ##sys#error */ -t5=*((C_word*)lf[90]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[117]; -av2[3]=lf[119]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[4]; -f_2607(2,av2);}}} -else{ -if(C_truep(C_i_not(C_byteblockp(((C_word*)t0)[4])))){ -/* extras.scm:472: ##sys#error */ -t5=*((C_word*)lf[90]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[117]; -av2[3]=lf[119]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=t2;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[4]; -f_2607(2,av2);}}}} -else{ -if(C_truep(((C_word*)t0)[2])){ -/* extras.scm:475: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[120]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[120]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} -else{ -/* extras.scm:475: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[120]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[120]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}}}} - -/* k2605 in k2602 in chicken.random#random-bytes in k2529 in k2121 in k769 in k766 */ -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 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_2607,c,av);} -a=C_alloc(4); -t2=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_block_size(t1)); -t3=C_random_bytes(t1,t2); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2614,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t3)){ -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -/* extras.scm:479: ##sys#error */ -t5=*((C_word*)lf[90]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[117]; -av2[3]=lf[118]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k2612 in k2605 in k2602 in chicken.random#random-bytes in k2529 in k2121 in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2614,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k2621 in k2602 in chicken.random#random-bytes in k2529 in k2121 in k769 in k766 */ -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,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -f_2607(2,av2);}} - -/* k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_768,c,av);} -a=C_alloc(19); -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_771,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -/* k769 in k766 */ -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 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_771,c,av);} -a=C_alloc(6); -t2=C_mutate(&lf[2] /* (set! chicken.pretty-print#generic-write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_773,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* extras.scm:340: scheme#make-parameter */ -t4=*((C_word*)lf[124]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_fix(79); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* chicken.pretty-print#generic-write in k769 in k766 */ -static void f_773(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_773,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_776,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t17=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_838,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t18=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_877,a[2]=t5,a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp)); -t19=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_896,a[2]=t13,a[3]=t9,a[4]=t11,a[5]=t7,a[6]=t3,a[7]=((C_word)li9),tmp=(C_word)a,a+=8,tmp)); -t20=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1443,a[2]=t11,a[3]=t3,a[4]=t4,a[5]=t13,a[6]=t9,a[7]=t7,a[8]=((C_word)li33),tmp=(C_word)a,a+=9,tmp)); -if(C_truep(t4)){ -t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2110,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[37]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[37]+1); -av2[1]=t21; -av2[2]=C_fix(1); -av2[3]=C_make_character(10); -tp(4,av2);}} -else{ -/* extras.scm:335: wr */ -t21=((C_word*)t13)[1]; -f_896(t21,t1,t2,C_fix(0));}} - -/* read-macro? in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_776(C_word t1,C_word t2){ -C_word 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(4,0,2)))){ -C_save_and_reclaim_args((void *)trf_776,2,t1,t2);} -a=C_alloc(4); -t3=C_i_car(t2); -t4=C_u_i_cdr(t2); -t5=C_eqp(t3,lf[3]); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_804,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t5)){ -t7=t6; -f_804(t7,t5);} -else{ -t7=C_eqp(t3,lf[4]); -if(C_truep(t7)){ -t8=t6; -f_804(t8,t7);} -else{ -t8=C_eqp(t3,lf[5]); -t9=t6; -f_804(t9,(C_truep(t8)?t8:C_eqp(t3,lf[6])));}}} - -/* k802 in read-macro? in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_804(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,1)))){ -C_save_and_reclaim_args((void *)trf_804,2,t0,t1);} -if(C_truep(t1)){ -t2=C_i_pairp(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE); -((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_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* read-macro-prefix in chicken.pretty-print#generic-write in k769 in k766 */ -static C_word f_838(C_word t1){ -C_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_car(t1); -t3=C_u_i_cdr(t1); -t4=C_eqp(t2,lf[3]); -if(C_truep(t4)){ -return(lf[7]);} -else{ -t5=C_eqp(t2,lf[4]); -if(C_truep(t5)){ -return(lf[8]);} -else{ -t6=C_eqp(t2,lf[5]); -if(C_truep(t6)){ -return(lf[9]);} -else{ -t7=C_eqp(t2,lf[6]); -return((C_truep(t7)?lf[10]:C_SCHEME_UNDEFINED));}}}} - -/* out in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_877(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_877,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_887,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:71: 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);}}} - -/* k885 in out in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_887(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ -C_save_and_reclaim((void *)f_887,c,av);} -a=C_alloc(29); -if(C_truep(t1)){ -t2=C_i_string_length(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_plus(&a,2,((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_896(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(23,0,4)))){ -C_save_and_reclaim_args((void *)trf_896,4,t0,t1,t2,t3);} -a=C_alloc(23); -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_899,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)li3),tmp=(C_word)a,a+=8,tmp); -t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_926,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li5),tmp=(C_word)a,a+=5,tmp)); -if(C_truep(C_i_pairp(t2))){ -/* extras.scm:91: wr-expr */ -t9=t4; -f_899(t9,t1,t2,t3);} -else{ -if(C_truep(C_i_nullp(t2))){ -/* extras.scm:92: wr-lst */ -t9=((C_word*)t6)[1]; -f_926(t9,t1,t2,t3);} -else{ -if(C_truep(C_eofp(t2))){ -/* extras.scm:93: out */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_877(t9,t1,lf[17],t3);} -else{ -if(C_truep(C_bwpp(t2))){ -/* extras.scm:94: out */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_877(t9,t1,lf[18],t3);} -else{ -if(C_truep(C_i_vectorp(t2))){ -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1053,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* extras.scm:95: scheme#vector->list */ -t10=*((C_word*)lf[20]+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:96: out */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_877(t9,t1,lf[21],t3);} -else{ -/* extras.scm:96: out */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_877(t9,t1,lf[22],t3);}} -else{ -if(C_truep(C_i_numberp(t2))){ -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1083,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:97: ##sys#number->string */ -{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]=t9; -av2[2]=t2; -tp(3,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1089,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t3,a[6]=((C_word*)t0)[6],a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* extras.scm:98: chicken.keyword#keyword? */ -t10=*((C_word*)lf[56]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}}}}}} - -/* wr-expr in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_899(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_899,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_906,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:76: read-macro? */ -f_776(t4,t2);} - -/* k904 in wr-expr in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_906,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_i_cadr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_917,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=( -/* extras.scm:77: read-macro-prefix */ - f_838(((C_word*)t0)[2]) -); -/* extras.scm:77: out */ -t5=((C_word*)((C_word*)t0)[6])[1]; -f_877(t5,t3,t4,((C_word*)t0)[7]);} -else{ -/* extras.scm:78: wr-lst */ -t2=((C_word*)((C_word*)t0)[8])[1]; -f_926(t2,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[7]);}} - -/* k915 in k904 in wr-expr in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_917,c,av);} -/* extras.scm:77: wr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_896(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_926(C_word t0,C_word t1,C_word 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(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_926,4,t0,t1,t2,t3);} -a=C_alloc(11); -if(C_truep(C_i_pairp(t2))){ -t4=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t3)){ -t6=C_u_i_car(t2); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1001,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:83: out */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_877(t8,t7,lf[15],t3);} -else{ -t6=t5;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_942(2,av2);}}} -else{ -/* extras.scm:89: out */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_877(t4,t1,lf[16],t3);}} - -/* k940 in wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_942(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_942,c,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_944,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li4),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_944(t5,((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* loop in k940 in wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void f_944(C_word t0,C_word t1,C_word 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(10,0,3)))){ -C_save_and_reclaim_args((void *)trf_944,4,t0,t1,t2,t3);} -a=C_alloc(10); -if(C_truep(C_i_not(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=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_966,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t6=C_u_i_car(t2); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_972,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:86: out */ -t8=((C_word*)((C_word*)t0)[4])[1]; -f_877(t8,t7,lf[11],t3);} -else{ -if(C_truep(C_i_nullp(t2))){ -/* extras.scm:87: out */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_877(t4,t1,lf[12],t3);} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_988,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_992,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* extras.scm:88: out */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_877(t6,t5,lf[14],t3);}}}} - -/* k964 in loop in k940 in wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_966(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_966,c,av);} -/* extras.scm:86: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_944(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k970 in loop in k940 in wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -static void C_ccall f_972(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_972,c,av);} -/* extras.scm:86: wr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_896(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k986 in loop in k940 in wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_988,c,av);} -/* extras.scm:88: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_877(t2,((C_word*)t0)[3],lf[13],t1);} - -/* k990 in loop in k940 in wr-lst in wr in chicken.pretty-print#generic-write in k769 in k766 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_992,c,av);} -/* extras.scm:88: wr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_896(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_extras_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("extras")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_extras_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(553))){ -C_save(t1); -C_rereclaim2(553*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,125); -lf[0]=C_h_intern(&lf[0],6, C_text("extras")); -lf[1]=C_h_intern(&lf[1],21, C_text("chicken.pretty-print#")); -lf[3]=C_h_intern(&lf[3],5, C_text("quote")); -lf[4]=C_h_intern(&lf[4],10, C_text("quasiquote")); -lf[5]=C_h_intern(&lf[5],7, C_text("unquote")); -lf[6]=C_h_intern(&lf[6],16, C_text("unquote-splicing")); -lf[7]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000")); -lf[8]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\140\000")); -lf[9]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\054\000")); -lf[10]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\100\000")); -lf[11]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000")); -lf[12]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[13]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[14]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\056\040\000")); -lf[15]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[16]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\050\051\000")); -lf[17]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\043\041\145\157\146\000")); -lf[18]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\043\041\142\167\160\000")); -lf[19]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\043\000")); -lf[20]=C_h_intern(&lf[20],19, C_text("scheme#vector->list")); -lf[21]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\164\000")); -lf[22]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\146\000")); -lf[23]=C_h_intern(&lf[23],20, C_text("##sys#number->string")); -lf[24]=C_h_intern(&lf[24],24, C_text("scheme#get-output-string")); -lf[25]=C_h_intern(&lf[25],11, C_text("##sys#print")); -lf[26]=C_h_intern(&lf[26],25, C_text("scheme#open-output-string")); -lf[27]=C_h_intern(&lf[27],23, C_text("##sys#procedure->string")); -lf[28]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\134\000")); -lf[29]=C_h_intern(&lf[29],15, C_text("##sys#substring")); -lf[30]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\011\376\002\000\000\003\134\164\000\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\012\376\002\000\000\003\134\156\000\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\015\376\002\000\000\003\134\162\000\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\013\376\002\000\000\003\134\166\000\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\014\376\002\000\000\003\134\146\000\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\007\376\002\000\000\003\134\141\000\376\003\000\000\002\376\003\000\000\002\376\377\012\000\000\010\376\002\000\000\003\134\142\000\376\377\016")); -lf[31]=C_h_intern(&lf[31],20, C_text("scheme#string-append")); -lf[32]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\170\000")); -lf[33]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\073\000")); -lf[34]=C_h_intern(&lf[34],20, C_text("##sys#fixnum->string")); -lf[35]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\042\000")); -lf[36]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\042\000")); -lf[37]=C_h_intern(&lf[37],17, C_text("##sys#make-string")); -lf[38]=C_h_intern(&lf[38],27, C_text("##sys#symbol->string/shared")); -lf[39]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\170\000")); -lf[40]=C_h_intern(&lf[40],22, C_text("chicken.base#char-name")); -lf[41]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\134\000")); -lf[42]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\165\156\163\160\145\143\151\146\151\145\144\076\000")); -lf[43]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\043\074\165\156\142\157\165\156\144\040\166\141\154\165\145\076\000")); -lf[44]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\043\074\165\156\160\162\151\156\164\141\142\154\145\040\157\142\152\145\143\164\076\000")); -lf[45]=C_h_intern(&lf[45],21, C_text("##sys#pointer->string")); -lf[46]=C_h_intern(&lf[46],21, C_text("##sys#user-print-hook")); -lf[47]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\043\074\160\157\162\164\040\000")); -lf[48]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000")); -lf[49]=C_h_intern(&lf[49],22, C_text("##sys#bytevector->list")); -lf[50]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\043\165\070\000")); -lf[51]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000")); -lf[52]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\154\141\155\142\144\141\040\151\156\146\157\040\000")); -lf[53]=C_h_intern(&lf[53],25, C_text("##sys#lambda-info->string")); -lf[54]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\043\074\165\156\160\162\151\156\164\141\142\154\145\040\157\142\152\145\143\164\076\000")); -lf[55]=C_h_intern(&lf[55],12, C_text("scheme#port?")); -lf[56]=C_h_intern(&lf[56],24, C_text("chicken.keyword#keyword?")); -lf[57]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\040\040\040\040\040\040\040\000")); -lf[58]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\040\040\040\040\040\040\040\000")); -lf[59]=C_h_intern(&lf[59],36, C_text("chicken.string#reverse-string-append")); -lf[60]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\043\000")); -lf[61]=C_h_intern(&lf[61],10, C_text("scheme#max")); -lf[62]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[63]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[64]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[65]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[66]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[67]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000")); -lf[68]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[69]=C_h_intern(&lf[69],6, C_text("lambda")); -lf[70]=C_h_intern(&lf[70],2, C_text("if")); -lf[71]=C_h_intern(&lf[71],4, C_text("set!")); -lf[72]=C_h_intern(&lf[72],4, C_text("cond")); -lf[73]=C_h_intern(&lf[73],4, C_text("case")); -lf[74]=C_h_intern(&lf[74],3, C_text("and")); -lf[75]=C_h_intern(&lf[75],2, C_text("or")); -lf[76]=C_h_intern(&lf[76],3, C_text("let")); -lf[77]=C_h_intern(&lf[77],5, C_text("begin")); -lf[78]=C_h_intern(&lf[78],2, C_text("do")); -lf[79]=C_h_intern(&lf[79],4, C_text("let*")); -lf[80]=C_h_intern(&lf[80],6, C_text("letrec")); -lf[81]=C_h_intern(&lf[81],7, C_text("letrec*")); -lf[82]=C_h_intern(&lf[82],6, C_text("define")); -lf[83]=C_h_intern(&lf[83],39, C_text("chicken.pretty-print#pretty-print-width")); -lf[84]=C_h_intern(&lf[84],33, C_text("chicken.pretty-print#pretty-print")); -lf[85]=C_h_intern(&lf[85],21, C_text("##sys#standard-output")); -lf[86]=C_h_intern(&lf[86],14, C_text("scheme#display")); -lf[87]=C_h_intern(&lf[87],23, C_text("chicken.pretty-print#pp")); -lf[88]=C_h_intern(&lf[88],15, C_text("chicken.format#")); -lf[90]=C_h_intern(&lf[90],11, C_text("##sys#error")); -lf[91]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\164\157\157\040\146\145\167\040\141\162\147\165\155\145\156\164\163\040\164\157\040\146\157\162\155\141\164\164\145\144\040\157\165\164\160\165\164\040\160\162\157\143\145\144\165\162\145\000")); -lf[92]=C_h_intern(&lf[92],12, C_text("scheme#write")); -lf[93]=C_h_intern(&lf[93],18, C_text("##sys#write-char-0")); -lf[94]=C_h_intern(&lf[94],18, C_text("##sys#flush-output")); -lf[95]=C_h_intern(&lf[95],14, C_text("scheme#newline")); -lf[96]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\151\154\154\145\147\141\154\040\146\157\162\155\141\164\055\163\164\162\151\156\147\040\143\150\141\162\141\143\164\145\162\000")); -lf[97]=C_h_intern(&lf[97],15, C_text("##sys#tty-port?")); -lf[98]=C_h_intern(&lf[98],22, C_text("chicken.format#fprintf")); -lf[99]=C_h_intern(&lf[99],7, C_text("fprintf")); -lf[100]=C_h_intern(&lf[100],21, C_text("chicken.format#printf")); -lf[101]=C_h_intern(&lf[101],6, C_text("printf")); -lf[102]=C_h_intern(&lf[102],22, C_text("chicken.format#sprintf")); -lf[103]=C_h_intern(&lf[103],7, C_text("sprintf")); -lf[104]=C_h_intern(&lf[104],21, C_text("chicken.format#format")); -lf[105]=C_h_intern(&lf[105],6, C_text("format")); -lf[106]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\154\154\145\147\141\154\040\144\145\163\164\151\156\141\164\151\157\156\000")); -lf[107]=C_h_intern(&lf[107],19, C_text("scheme#output-port?")); -lf[108]=C_h_intern(&lf[108],15, C_text("chicken.random#")); -lf[109]=C_h_intern(&lf[109],38, C_text("chicken.random#set-pseudo-random-seed!")); -lf[110]=C_h_intern(&lf[110],23, C_text("set-pseudo-random-seed!")); -lf[111]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\151\156\166\141\154\151\144\040\163\151\172\145\000")); -lf[112]=C_h_intern(&lf[112],36, C_text("chicken.random#pseudo-random-integer")); -lf[113]=C_h_intern(&lf[113],21, C_text("pseudo-random-integer")); -lf[114]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000")); -lf[115]=C_h_intern(&lf[115],33, C_text("chicken.random#pseudo-random-real")); -lf[116]=C_h_intern(&lf[116],27, C_text("chicken.random#random-bytes")); -lf[117]=C_h_intern(&lf[117],12, C_text("random-bytes")); -lf[118]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\165\156\141\142\154\145\040\164\157\040\162\145\141\144\040\162\141\156\144\157\155\040\142\171\164\145\163\000")); -lf[119]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\142\165\146\146\145\162\040\164\171\160\145\000")); -lf[120]=C_h_intern(&lf[120],21, C_text("##sys#make-bytevector")); -lf[121]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\151\156\166\141\154\151\144\040\163\151\172\145\000")); -lf[122]=C_h_intern(&lf[122],34, C_text("chicken.platform#register-feature!")); -lf[123]=C_h_intern(&lf[123],7, C_text("srfi-28")); -lf[124]=C_h_intern(&lf[124],21, C_text("scheme#make-parameter")); -C_register_lf2(lf,125,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_768,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_data_2dstructures_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[164] = { -{C_text("f_1001:extras_2escm"),(void*)f_1001}, -{C_text("f_1053:extras_2escm"),(void*)f_1053}, -{C_text("f_1057:extras_2escm"),(void*)f_1057}, -{C_text("f_1083:extras_2escm"),(void*)f_1083}, -{C_text("f_1089:extras_2escm"),(void*)f_1089}, -{C_text("f_1095:extras_2escm"),(void*)f_1095}, -{C_text("f_1098:extras_2escm"),(void*)f_1098}, -{C_text("f_1105:extras_2escm"),(void*)f_1105}, -{C_text("f_1118:extras_2escm"),(void*)f_1118}, -{C_text("f_1137:extras_2escm"),(void*)f_1137}, -{C_text("f_1139:extras_2escm"),(void*)f_1139}, -{C_text("f_1167:extras_2escm"),(void*)f_1167}, -{C_text("f_1171:extras_2escm"),(void*)f_1171}, -{C_text("f_1175:extras_2escm"),(void*)f_1175}, -{C_text("f_1198:extras_2escm"),(void*)f_1198}, -{C_text("f_1203:extras_2escm"),(void*)f_1203}, -{C_text("f_1204:extras_2escm"),(void*)f_1204}, -{C_text("f_1222:extras_2escm"),(void*)f_1222}, -{C_text("f_1226:extras_2escm"),(void*)f_1226}, -{C_text("f_1235:extras_2escm"),(void*)f_1235}, -{C_text("f_1253:extras_2escm"),(void*)f_1253}, -{C_text("f_1257:extras_2escm"),(void*)f_1257}, -{C_text("f_1280:extras_2escm"),(void*)f_1280}, -{C_text("f_1288:extras_2escm"),(void*)f_1288}, -{C_text("f_1291:extras_2escm"),(void*)f_1291}, -{C_text("f_1295:extras_2escm"),(void*)f_1295}, -{C_text("f_1303:extras_2escm"),(void*)f_1303}, -{C_text("f_1322:extras_2escm"),(void*)f_1322}, -{C_text("f_1326:extras_2escm"),(void*)f_1326}, -{C_text("f_1335:extras_2escm"),(void*)f_1335}, -{C_text("f_1368:extras_2escm"),(void*)f_1368}, -{C_text("f_1377:extras_2escm"),(void*)f_1377}, -{C_text("f_1380:extras_2escm"),(void*)f_1380}, -{C_text("f_1387:extras_2escm"),(void*)f_1387}, -{C_text("f_1393:extras_2escm"),(void*)f_1393}, -{C_text("f_1400:extras_2escm"),(void*)f_1400}, -{C_text("f_1410:extras_2escm"),(void*)f_1410}, -{C_text("f_1417:extras_2escm"),(void*)f_1417}, -{C_text("f_1427:extras_2escm"),(void*)f_1427}, -{C_text("f_1431:extras_2escm"),(void*)f_1431}, -{C_text("f_1435:extras_2escm"),(void*)f_1435}, -{C_text("f_1443:extras_2escm"),(void*)f_1443}, -{C_text("f_1446:extras_2escm"),(void*)f_1446}, -{C_text("f_1470:extras_2escm"),(void*)f_1470}, -{C_text("f_1477:extras_2escm"),(void*)f_1477}, -{C_text("f_1479:extras_2escm"),(void*)f_1479}, -{C_text("f_1495:extras_2escm"),(void*)f_1495}, -{C_text("f_1502:extras_2escm"),(void*)f_1502}, -{C_text("f_1513:extras_2escm"),(void*)f_1513}, -{C_text("f_1526:extras_2escm"),(void*)f_1526}, -{C_text("f_1529:extras_2escm"),(void*)f_1529}, -{C_text("f_1542:extras_2escm"),(void*)f_1542}, -{C_text("f_1558:extras_2escm"),(void*)f_1558}, -{C_text("f_1562:extras_2escm"),(void*)f_1562}, -{C_text("f_1564:extras_2escm"),(void*)f_1564}, -{C_text("f_1600:extras_2escm"),(void*)f_1600}, -{C_text("f_1607:extras_2escm"),(void*)f_1607}, -{C_text("f_1618:extras_2escm"),(void*)f_1618}, -{C_text("f_1634:extras_2escm"),(void*)f_1634}, -{C_text("f_1660:extras_2escm"),(void*)f_1660}, -{C_text("f_1665:extras_2escm"),(void*)f_1665}, -{C_text("f_1669:extras_2escm"),(void*)f_1669}, -{C_text("f_1689:extras_2escm"),(void*)f_1689}, -{C_text("f_1691:extras_2escm"),(void*)f_1691}, -{C_text("f_1695:extras_2escm"),(void*)f_1695}, -{C_text("f_1700:extras_2escm"),(void*)f_1700}, -{C_text("f_1706:extras_2escm"),(void*)f_1706}, -{C_text("f_1727:extras_2escm"),(void*)f_1727}, -{C_text("f_1733:extras_2escm"),(void*)f_1733}, -{C_text("f_1755:extras_2escm"),(void*)f_1755}, -{C_text("f_1759:extras_2escm"),(void*)f_1759}, -{C_text("f_1767:extras_2escm"),(void*)f_1767}, -{C_text("f_1771:extras_2escm"),(void*)f_1771}, -{C_text("f_1773:extras_2escm"),(void*)f_1773}, -{C_text("f_1776:extras_2escm"),(void*)f_1776}, -{C_text("f_1797:extras_2escm"),(void*)f_1797}, -{C_text("f_1801:extras_2escm"),(void*)f_1801}, -{C_text("f_1815:extras_2escm"),(void*)f_1815}, -{C_text("f_1836:extras_2escm"),(void*)f_1836}, -{C_text("f_1840:extras_2escm"),(void*)f_1840}, -{C_text("f_1854:extras_2escm"),(void*)f_1854}, -{C_text("f_1865:extras_2escm"),(void*)f_1865}, -{C_text("f_1878:extras_2escm"),(void*)f_1878}, -{C_text("f_1893:extras_2escm"),(void*)f_1893}, -{C_text("f_1911:extras_2escm"),(void*)f_1911}, -{C_text("f_1913:extras_2escm"),(void*)f_1913}, -{C_text("f_1919:extras_2escm"),(void*)f_1919}, -{C_text("f_1925:extras_2escm"),(void*)f_1925}, -{C_text("f_1931:extras_2escm"),(void*)f_1931}, -{C_text("f_1937:extras_2escm"),(void*)f_1937}, -{C_text("f_1943:extras_2escm"),(void*)f_1943}, -{C_text("f_1949:extras_2escm"),(void*)f_1949}, -{C_text("f_1969:extras_2escm"),(void*)f_1969}, -{C_text("f_1975:extras_2escm"),(void*)f_1975}, -{C_text("f_1984:extras_2escm"),(void*)f_1984}, -{C_text("f_1994:extras_2escm"),(void*)f_1994}, -{C_text("f_2110:extras_2escm"),(void*)f_2110}, -{C_text("f_2114:extras_2escm"),(void*)f_2114}, -{C_text("f_2123:extras_2escm"),(void*)f_2123}, -{C_text("f_2125:extras_2escm"),(void*)f_2125}, -{C_text("f_2132:extras_2escm"),(void*)f_2132}, -{C_text("f_2136:extras_2escm"),(void*)f_2136}, -{C_text("f_2138:extras_2escm"),(void*)f_2138}, -{C_text("f_2142:extras_2escm"),(void*)f_2142}, -{C_text("f_2149:extras_2escm"),(void*)f_2149}, -{C_text("f_2156:extras_2escm"),(void*)f_2156}, -{C_text("f_2159:extras_2escm"),(void*)f_2159}, -{C_text("f_2181:extras_2escm"),(void*)f_2181}, -{C_text("f_2187:extras_2escm"),(void*)f_2187}, -{C_text("f_2194:extras_2escm"),(void*)f_2194}, -{C_text("f_2204:extras_2escm"),(void*)f_2204}, -{C_text("f_2223:extras_2escm"),(void*)f_2223}, -{C_text("f_2236:extras_2escm"),(void*)f_2236}, -{C_text("f_2261:extras_2escm"),(void*)f_2261}, -{C_text("f_2274:extras_2escm"),(void*)f_2274}, -{C_text("f_2287:extras_2escm"),(void*)f_2287}, -{C_text("f_2300:extras_2escm"),(void*)f_2300}, -{C_text("f_2304:extras_2escm"),(void*)f_2304}, -{C_text("f_2317:extras_2escm"),(void*)f_2317}, -{C_text("f_2321:extras_2escm"),(void*)f_2321}, -{C_text("f_2334:extras_2escm"),(void*)f_2334}, -{C_text("f_2338:extras_2escm"),(void*)f_2338}, -{C_text("f_2356:extras_2escm"),(void*)f_2356}, -{C_text("f_2359:extras_2escm"),(void*)f_2359}, -{C_text("f_2365:extras_2escm"),(void*)f_2365}, -{C_text("f_2401:extras_2escm"),(void*)f_2401}, -{C_text("f_2459:extras_2escm"),(void*)f_2459}, -{C_text("f_2470:extras_2escm"),(void*)f_2470}, -{C_text("f_2476:extras_2escm"),(void*)f_2476}, -{C_text("f_2482:extras_2escm"),(void*)f_2482}, -{C_text("f_2488:extras_2escm"),(void*)f_2488}, -{C_text("f_2496:extras_2escm"),(void*)f_2496}, -{C_text("f_2521:extras_2escm"),(void*)f_2521}, -{C_text("f_2531:extras_2escm"),(void*)f_2531}, -{C_text("f_2533:extras_2escm"),(void*)f_2533}, -{C_text("f_2540:extras_2escm"),(void*)f_2540}, -{C_text("f_2569:extras_2escm"),(void*)f_2569}, -{C_text("f_2585:extras_2escm"),(void*)f_2585}, -{C_text("f_2588:extras_2escm"),(void*)f_2588}, -{C_text("f_2604:extras_2escm"),(void*)f_2604}, -{C_text("f_2607:extras_2escm"),(void*)f_2607}, -{C_text("f_2614:extras_2escm"),(void*)f_2614}, -{C_text("f_2623:extras_2escm"),(void*)f_2623}, -{C_text("f_768:extras_2escm"),(void*)f_768}, -{C_text("f_771:extras_2escm"),(void*)f_771}, -{C_text("f_773:extras_2escm"),(void*)f_773}, -{C_text("f_776:extras_2escm"),(void*)f_776}, -{C_text("f_804:extras_2escm"),(void*)f_804}, -{C_text("f_838:extras_2escm"),(void*)f_838}, -{C_text("f_877:extras_2escm"),(void*)f_877}, -{C_text("f_887:extras_2escm"),(void*)f_887}, -{C_text("f_896:extras_2escm"),(void*)f_896}, -{C_text("f_899:extras_2escm"),(void*)f_899}, -{C_text("f_906:extras_2escm"),(void*)f_906}, -{C_text("f_917:extras_2escm"),(void*)f_917}, -{C_text("f_926:extras_2escm"),(void*)f_926}, -{C_text("f_942:extras_2escm"),(void*)f_942}, -{C_text("f_944:extras_2escm"),(void*)f_944}, -{C_text("f_966:extras_2escm"),(void*)f_966}, -{C_text("f_972:extras_2escm"),(void*)f_972}, -{C_text("f_988:extras_2escm"),(void*)f_988}, -{C_text("f_992:extras_2escm"),(void*)f_992}, -{C_text("toplevel:extras_2escm"),(void*)C_extras_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.pretty-print#generic-write -o|hiding unexported module binding: chicken.format#fprintf0 -o|eliminated procedure checks: 13 -o|specializations: -o| 1 (scheme#< fixnum fixnum) -o| 11 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) -o| 1 (scheme#string-length string) -o| 1 (##sys#check-output-port * * *) -o| 1 (scheme#current-output-port) -o| 4 (scheme#make-string fixnum char) -o| 2 (scheme#number->string fixnum fixnum) -o| 1 (scheme#assq * (list-of pair)) -o| 1 (scheme#char>=? char char) -o| 1 (scheme#char= -o| scheme#char-upcase -o| scheme#char-whitespace? 2 -o| chicken.fixnum#fx- -o| ##sys#check-list -o| scheme#cons 3 -o| scheme#< -o| scheme#> 5 -o| scheme#- 5 -o| scheme#eof-object? -o| chicken.base#bwp-object? -o| scheme#vector? 2 -o| scheme#boolean? 2 -o| scheme#number? -o| scheme#symbol? 3 -o| scheme#procedure? -o| scheme#string? 2 -o| scheme#char? -o| ##sys#generic-structure? -o| ##sys#slot 3 -o| chicken.fixnum#fx> -o| chicken.fixnum#fx< 4 -o| scheme#string-ref 2 -o| chicken.fixnum#fx+ 4 -o| scheme#char->integer 2 -o| scheme#cdr 4 -o| scheme#not 6 -o| scheme#cadr 2 -o| scheme#string-length 4 -o| scheme#+ 11 -o| scheme#car 11 -o| scheme#eq? 35 -o| scheme#pair? 12 -o| scheme#null? 12 -o|contracted procedure: k792 -o|contracted procedure: k799 -o|contracted procedure: k784 -o|contracted procedure: k808 -o|contracted procedure: k814 -o|contracted procedure: k840 -o|contracted procedure: k847 -o|contracted procedure: k853 -o|contracted procedure: k859 -o|contracted procedure: k865 -o|contracted procedure: k892 -o|contracted procedure: k911 -o|contracted procedure: k931 -o|contracted procedure: k949 -o|contracted procedure: k955 -o|contracted procedure: k976 -o|contracted procedure: k1008 -o|contracted procedure: k1017 -o|contracted procedure: k1026 -o|contracted procedure: k1035 -o|contracted procedure: k1044 -o|contracted procedure: k1061 -o|contracted procedure: k1074 -o|contracted procedure: k1090 -o|contracted procedure: k1109 -o|contracted procedure: k1122 -o|contracted procedure: k1147 -o|contracted procedure: k1155 -o|contracted procedure: k1181 -o|contracted procedure: k1188 -o|contracted procedure: k1192 -o|contracted procedure: k1210 -o|contracted procedure: k1228 -o|contracted procedure: k1240 -o|contracted procedure: k1262 -o|contracted procedure: k1268 -o|contracted procedure: k1283 -o|contracted procedure: k1310 -o|contracted procedure: k1313 -o|contracted procedure: k1372 -o|contracted procedure: k1402 -o|contracted procedure: k1451 -o|contracted procedure: k1457 -o|contracted procedure: k1464 -o|contracted procedure: k1487 -o|contracted procedure: k1509 -o|contracted procedure: k1518 -o|contracted procedure: k1521 -o|contracted procedure: k1533 -o|contracted procedure: k1546 -o|contracted procedure: k1567 -o|contracted procedure: k1578 -o|contracted procedure: k1571 -o|contracted procedure: k1590 -o|contracted procedure: k1586 -o|contracted procedure: k1582 -o|contracted procedure: k1612 -o|contracted procedure: k1623 -o|contracted procedure: k1629 -o|contracted procedure: k1654 -o|contracted procedure: k1644 -o|contracted procedure: k1679 -o|contracted procedure: k1683 -o|contracted procedure: k1714 -o|contracted procedure: k1734 -o|contracted procedure: k1718 -o|contracted procedure: k1743 -o|contracted procedure: k1761 -o|contracted procedure: k1781 -o|contracted procedure: k1784 -o|contracted procedure: k1802 -o|contracted procedure: k1788 -o|contracted procedure: k1820 -o|contracted procedure: k1823 -o|contracted procedure: k1841 -o|contracted procedure: k1827 -o|contracted procedure: k1859 -o|contracted procedure: k1869 -o|contracted procedure: k1872 -o|contracted procedure: k1883 -o|contracted procedure: k1887 -o|contracted procedure: k1898 -o|contracted procedure: k1902 -o|contracted procedure: k1951 -o|contracted procedure: k1960 -o|contracted procedure: k1954 -o|contracted procedure: k1989 -o|contracted procedure: k1998 -o|contracted procedure: k2001 -o|contracted procedure: k2007 -o|contracted procedure: k2013 -o|contracted procedure: k2019 -o|contracted procedure: k2022 -o|contracted procedure: k2028 -o|contracted procedure: k2034 -o|contracted procedure: k2040 -o|contracted procedure: k2067 -o|contracted procedure: k2073 -o|contracted procedure: k2079 -o|contracted procedure: k2143 -o|contracted procedure: k2127 -o|contracted procedure: k2151 -o|contracted procedure: k2163 -o|contracted procedure: k2183 -o|contracted procedure: k2172 -o|contracted procedure: k2189 -o|contracted procedure: k2196 -o|contracted procedure: k2200 -o|contracted procedure: k2212 -o|contracted procedure: k2216 -o|contracted procedure: k2228 -o|contracted procedure: k2451 -o|contracted procedure: k2240 -o|contracted procedure: k2246 -o|contracted procedure: k2252 -o|contracted procedure: k2265 -o|contracted procedure: k2278 -o|contracted procedure: k2291 -o|contracted procedure: k2308 -o|contracted procedure: k2325 -o|contracted procedure: k2342 -o|contracted procedure: k2351 -o|contracted procedure: k2360 -o|contracted procedure: k2369 -o|contracted procedure: k2378 -o|contracted procedure: k2381 -o|contracted procedure: k2390 -o|contracted procedure: k2406 -o|contracted procedure: k2417 -o|contracted procedure: k2497 -o|contracted procedure: k2503 -o|contracted procedure: k2509 -o|contracted procedure: k2513 -o|contracted procedure: k2523 -o|contracted procedure: k2562 -o|contracted procedure: k2535 -o|contracted procedure: k2541 -o|contracted procedure: k2546 -o|contracted procedure: k2549 -o|contracted procedure: k2559 -o|contracted procedure: k2577 -o|contracted procedure: k2676 -o|contracted procedure: k2590 -o|contracted procedure: k2670 -o|contracted procedure: k2593 -o|contracted procedure: k2664 -o|contracted procedure: k2596 -o|contracted procedure: k2658 -o|contracted procedure: k2599 -o|contracted procedure: k2609 -o|contracted procedure: k2624 -o|contracted procedure: k2627 -o|contracted procedure: k2644 -o|contracted procedure: k2650 -o|simplifications: ((if . 1) (let . 50)) -o|removed binding forms: 154 -o|contracted procedure: k1144 -(o x)|known list op on rest arg sublist: ##core#rest-car opt421 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest569571 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest569571 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest596597 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest596597 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest596597 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest596597 0 -o|removed binding forms: 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r2594 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r2594 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r2594 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r2594 1 -o|removed binding forms: 2 -o|direct leaf routine/allocation: read-macro-prefix111 0 -o|direct leaf routine/allocation: fetch469 0 -o|contracted procedure: "(extras.scm:77) k919" -o|contracted procedure: "(extras.scm:205) k1620" -o|contracted procedure: "(extras.scm:380) k2231" -o|contracted procedure: "(extras.scm:382) k2243" -o|contracted procedure: "(extras.scm:400) k2397" -o|contracted procedure: "(extras.scm:402) k2413" -o|removed binding forms: 6 -o|direct leaf routine/allocation: skip492 0 -o|inlining procedure: k2234 -o|converted assignments to bindings: (skip492) -o|simplifications: ((let . 1)) -o|customizable procedures: (chicken.format#fprintf0 rec464 next470 loop475 pp114 k1992 tail1304 tail3306 tail2305 indent226 loop286 pp-down231 style245 pp-call229 pp-general232 pr227 chicken.pretty-print#generic-write pp-list230 spaces225 g212213 g200201 loop177 wr-expr157 loop163 read-macro?109 wr-lst158 out112 wr113 k802) -o|calls to known targets: 155 -o|identified direct recursive calls: f_1139 1 -o|identified direct recursive calls: f_2401 1 -o|identified direct recursive calls: f_2223 1 -o|unused rest argument: rest569571 f_2533 -o|unused rest argument: rest596597 f_2588 -o|fast box initializations: 35 -o|fast global references: 5 -o|fast global assignments: 2 -o|dropping unused closure argument: f_2149 -o|dropping unused closure argument: f_773 -o|dropping unused closure argument: f_776 -o|dropping unused closure argument: f_838 -*/ -/* end of file */ diff --git a/chicken/src/file.c b/chicken/src/file.c deleted file mode 100644 index 9cd04ab..0000000 --- a/chicken/src/file.c +++ /dev/null @@ -1,6123 +0,0 @@ -/* Generated from file.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: file.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file file.c -emit-import-library chicken.file - unit: file - uses: extras pathname irregex library -*/ -#include "chicken.h" - -#include - -#define C_test_access(fn, m) C_fix(access(C_c_string(fn), C_unfix(m))) - -/* For Windows */ -#ifndef R_OK -# define R_OK 2 -#endif -#ifndef W_OK -# define W_OK 4 -#endif -#ifndef X_OK -# define X_OK 2 -#endif - -#define C_rename(old, new) C_fix(rename(C_c_string(old), C_c_string(new))) -#define C_remove(str) C_fix(remove(C_c_string(str))) -#define C_rmdir(str) C_fix(rmdir(C_c_string(str))) - -#ifndef _WIN32 -# include -# define C_mkdir(str) C_fix(mkdir(C_c_string(str), S_IRWXU | S_IRWXG | S_IRWXO)) -#else -# define C_mkdir(str) C_fix(mkdir(C_c_string(str))) -#endif - -#include -#include - -#define C_opendir(s,h) C_set_block_item(h, 0, (C_word) opendir(C_c_string(s))) -#define C_readdir(h,e) C_set_block_item(e, 0, (C_word) readdir((DIR *)C_block_item(h, 0))) -#define C_closedir(h) (closedir((DIR *)C_block_item(h, 0)), C_SCHEME_UNDEFINED) -#define C_foundfile(e,b,l) (C_strlcpy(C_c_string(b), ((struct dirent *) C_block_item(e, 0))->d_name, l), C_fix(strlen(((struct dirent *) C_block_item(e, 0))->d_name))) - -static C_word C_u_i_symbolic_linkp(C_word path) -{ -#if !defined(_WIN32) || defined(__CYGWIN__) - struct stat buf; - if (lstat(C_c_string(path), &buf) == 0) - return C_mk_bool(S_ISLNK(buf.st_mode)); -#endif - return C_SCHEME_FALSE; -} - - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_extras_toplevel) -C_extern void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_pathname_toplevel) -C_extern void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_irregex_toplevel) -C_extern void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[112]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,102,105,108,101,35,112,111,115,105,120,45,101,114,114,111,114,32,116,121,112,101,32,108,111,99,32,109,115,103,32,97,114,103,115,41,0,0,0,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,41}; -static C_char li2[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,105,114,101,99,116,111,114,121,45,101,120,105,115,116,115,63,32,110,97,109,101,41,0,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,116,101,115,116,45,97,99,99,101,115,115,32,102,105,108,101,110,97,109,101,32,97,99,99,32,108,111,99,41,0,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,114,101,97,100,97,98,108,101,63,32,102,105,108,101,110,97,109,101,41,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,119,114,105,116,97,98,108,101,63,32,102,105,108,101,110,97,109,101,41,0,0}; -static C_char li6[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,108,101,45,101,120,101,99,117,116,97,98,108,101,63,32,102,105,108,101,110,97,109,101,41}; -static C_char li7[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,105,114,101,99,116,111,114,121,32,46,32,114,101,115,116,41,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,100,105,114,41,0,0,0,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,7),40,97,49,48,53,51,41,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,29),40,97,49,48,53,57,32,100,105,114,50,51,56,32,102,105,108,101,50,52,48,32,101,120,116,50,52,50,41,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,114,101,97,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,11),40,114,109,100,105,114,32,100,105,114,41,0,0,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,8),40,103,50,55,53,32,102,41}; -static C_char li15[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,55,52,32,103,50,56,49,41,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,101,108,101,116,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,101,108,101,116,101,45,102,105,108,101,32,102,105,108,101,110,97,109,101,41,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,102,105,108,101,35,100,101,108,101,116,101,45,102,105,108,101,42,32,102,105,108,101,41}; -static C_char li19[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,102,105,108,101,35,114,101,110,97,109,101,45,102,105,108,101,32,111,108,100,102,105,108,101,32,110,101,119,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,100,32,108,41,0,0,0,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,111,112,121,45,102,105,108,101,32,111,108,100,102,105,108,101,32,110,101,119,102,105,108,101,32,46,32,114,101,115,116,41,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,100,32,108,41,0,0,0,0,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,102,105,108,101,35,109,111,118,101,45,102,105,108,101,32,111,108,100,102,105,108,101,32,110,101,119,102,105,108,101,32,46,32,114,101,115,116,41,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,9),40,116,101,109,112,100,105,114,41,0,0,0,0,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,9),40,97,49,54,50,53,32,112,41,0,0,0,0,0,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,114,101,97,116,101,45,116,101,109,112,111,114,97,114,121,45,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,102,105,108,101,35,99,114,101,97,116,101,45,116,101,109,112,111,114,97,114,121,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,7),40,97,49,55,52,51,41,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,8),40,103,52,55,56,32,109,41}; -static C_char li32[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,110,115,41,0,0,0,0,0,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,7),40,97,49,56,51,57,41,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,13),40,97,49,56,51,51,32,101,120,118,97,114,41,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,9),40,116,109,112,49,55,50,55,41,0,0,0,0,0,0,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,7),40,97,49,56,56,56,41,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,14),40,116,109,112,50,55,50,56,32,97,114,103,115,41,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,7),40,97,49,56,55,53,41,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,9),40,97,49,56,50,55,32,107,41,0,0,0,0,0,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,28),40,97,49,55,52,57,32,100,105,114,52,53,48,32,102,105,108,52,53,50,32,101,120,116,52,53,52,41,0,0,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,17),40,99,111,110,99,45,108,111,111,112,32,112,97,116,104,115,41,0,0,0,0,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,102,105,108,101,35,103,108,111,98,32,46,32,112,97,116,104,115,41,0,0,0,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,7),40,97,50,48,49,56,41,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,7),40,97,50,48,50,51,41,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,7),40,97,50,48,52,51,41,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,100,105,114,32,102,115,32,114,41,0}; -static C_char li47[] C_aligned={C_lihdr(0,0,10),40,102,95,50,48,57,53,32,120,41,0,0,0,0,0,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,12),40,102,95,50,49,48,51,32,46,32,95,41,0,0,0,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,12),40,102,95,50,49,49,49,32,46,32,95,41,0,0,0,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,7),40,97,50,49,49,54,41,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,7),40,97,50,49,49,57,41,0}; -static C_char li52[] C_aligned={C_lihdr(0,0,7),40,97,50,49,50,50,41,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,7),40,97,50,49,50,53,41,0}; -static C_char li54[] C_aligned={C_lihdr(0,0,12),40,102,95,50,49,51,49,32,120,32,121,41,0,0,0,0}; -static C_char li55[] C_aligned={C_lihdr(0,0,7),40,97,50,49,50,56,41,0}; -static C_char li56[] C_aligned={C_lihdr(0,0,12),40,102,95,50,49,51,57,32,46,32,95,41,0,0,0,0}; -static C_char li57[] C_aligned={C_lihdr(0,0,7),40,97,50,49,51,54,41,0}; -static C_char li58[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,102,105,108,101,35,102,105,110,100,45,102,105,108,101,115,32,100,105,114,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li59[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; - - -/* from getpid */ -C_regparm static C_word stub438(C_word C_buf){ -C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; -C_r=C_fix((C_word)C_getpid()); -return C_r;} - -/* from getpid */ -C_regparm static C_word stub429(C_word C_buf){ -C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; -C_r=C_fix((C_word)C_getpid()); -return C_r;} - -/* from k755 */ -C_regparm static C_word stub143(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_1000) -static void C_ccall f_1000(C_word c,C_word *av) C_noret; -C_noret_decl(f_1010) -static void C_ccall f_1010(C_word c,C_word *av) C_noret; -C_noret_decl(f_1012) -static void f_1012(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1019) -static void f_1019(C_word t0,C_word t1) 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_1038) -static void C_ccall f_1038(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_1052) -static void C_ccall f_1052(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_1060) -static void C_ccall f_1060(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(f_1099) -static void C_ccall f_1099(C_word c,C_word *av) C_noret; -C_noret_decl(f_1105) -static void f_1105(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_1128) -static void C_ccall f_1128(C_word c,C_word *av) C_noret; -C_noret_decl(f_1129) -static void f_1129(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1142) -static void C_ccall f_1142(C_word c,C_word *av) C_noret; -C_noret_decl(f_1151) -static void C_ccall f_1151(C_word c,C_word *av) C_noret; -C_noret_decl(f_1154) -static void C_ccall f_1154(C_word c,C_word *av) C_noret; -C_noret_decl(f_1159) -static void f_1159(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1169) -static void C_ccall f_1169(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_1204) -static void C_ccall f_1204(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_1212) -static void C_ccall f_1212(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_1221) -static void C_ccall f_1221(C_word c,C_word *av) 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_1230) -static void C_ccall f_1230(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_1248) -static void C_ccall f_1248(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_1261) -static void C_ccall f_1261(C_word c,C_word *av) C_noret; -C_noret_decl(f_1265) -static void C_ccall f_1265(C_word c,C_word *av) C_noret; -C_noret_decl(f_1269) -static void C_ccall f_1269(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_1278) -static void C_ccall f_1278(C_word c,C_word *av) C_noret; -C_noret_decl(f_1281) -static void C_ccall f_1281(C_word c,C_word *av) C_noret; -C_noret_decl(f_1298) -static void C_ccall f_1298(C_word c,C_word *av) C_noret; -C_noret_decl(f_1323) -static void C_ccall f_1323(C_word c,C_word *av) C_noret; -C_noret_decl(f_1326) -static void C_ccall f_1326(C_word c,C_word *av) C_noret; -C_noret_decl(f_1329) -static void C_ccall f_1329(C_word c,C_word *av) C_noret; -C_noret_decl(f_1332) -static void C_ccall f_1332(C_word c,C_word *av) C_noret; -C_noret_decl(f_1335) -static void C_ccall f_1335(C_word c,C_word *av) C_noret; -C_noret_decl(f_1338) -static void C_ccall f_1338(C_word c,C_word *av) 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_1347) -static void f_1347(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_1357) -static void C_ccall f_1357(C_word c,C_word *av) C_noret; -C_noret_decl(f_1360) -static void C_ccall f_1360(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_1370) -static void C_ccall f_1370(C_word c,C_word *av) C_noret; -C_noret_decl(f_1377) -static void C_ccall f_1377(C_word c,C_word *av) 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_1428) -static void C_ccall f_1428(C_word c,C_word *av) C_noret; -C_noret_decl(f_1453) -static void C_ccall f_1453(C_word c,C_word *av) C_noret; -C_noret_decl(f_1456) -static void C_ccall f_1456(C_word c,C_word *av) C_noret; -C_noret_decl(f_1459) -static void C_ccall f_1459(C_word c,C_word *av) C_noret; -C_noret_decl(f_1462) -static void C_ccall f_1462(C_word c,C_word *av) C_noret; -C_noret_decl(f_1465) -static void C_ccall f_1465(C_word c,C_word *av) C_noret; -C_noret_decl(f_1468) -static void C_ccall f_1468(C_word c,C_word *av) C_noret; -C_noret_decl(f_1475) -static void C_ccall f_1475(C_word c,C_word *av) C_noret; -C_noret_decl(f_1477) -static void f_1477(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_1487) -static void C_ccall f_1487(C_word c,C_word *av) C_noret; -C_noret_decl(f_1490) -static void C_ccall f_1490(C_word c,C_word *av) C_noret; -C_noret_decl(f_1493) -static void C_ccall f_1493(C_word c,C_word *av) C_noret; -C_noret_decl(f_1496) -static void C_ccall f_1496(C_word c,C_word *av) C_noret; -C_noret_decl(f_1503) -static void C_ccall f_1503(C_word c,C_word *av) C_noret; -C_noret_decl(f_1510) -static void C_ccall f_1510(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_1561) -static void f_1561(C_word t0) C_noret; -C_noret_decl(f_1565) -static void C_ccall f_1565(C_word c,C_word *av) C_noret; -C_noret_decl(f_1571) -static void C_ccall f_1571(C_word c,C_word *av) 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_1586) -static void C_ccall f_1586(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_1606) -static void f_1606(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_1618) -static void C_ccall f_1618(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_1631) -static void C_ccall f_1631(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_1639) -static void C_ccall f_1639(C_word c,C_word *av) C_noret; -C_noret_decl(f_1643) -static void C_ccall f_1643(C_word c,C_word *av) C_noret; -C_noret_decl(f_1657) -static void C_ccall f_1657(C_word c,C_word *av) C_noret; -C_noret_decl(f_1663) -static void f_1663(C_word t0,C_word t1) 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_1675) -static void C_ccall f_1675(C_word c,C_word *av) C_noret; -C_noret_decl(f_1682) -static void C_ccall f_1682(C_word c,C_word *av) C_noret; -C_noret_decl(f_1695) -static void C_ccall f_1695(C_word c,C_word *av) C_noret; -C_noret_decl(f_1699) -static void C_ccall f_1699(C_word c,C_word *av) C_noret; -C_noret_decl(f_1703) -static void C_ccall f_1703(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_1711) -static void C_ccall f_1711(C_word c,C_word *av) C_noret; -C_noret_decl(f_1715) -static void C_ccall f_1715(C_word c,C_word *av) C_noret; -C_noret_decl(f_1723) -static void C_ccall f_1723(C_word c,C_word *av) C_noret; -C_noret_decl(f_1729) -static void f_1729(C_word t0,C_word t1,C_word t2) 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_1750) -static void C_ccall f_1750(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_1764) -static void C_ccall f_1764(C_word c,C_word *av) C_noret; -C_noret_decl(f_1767) -static void C_ccall f_1767(C_word c,C_word *av) C_noret; -C_noret_decl(f_1769) -static void f_1769(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1786) -static void C_ccall f_1786(C_word c,C_word *av) C_noret; -C_noret_decl(f_1790) -static void f_1790(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1798) -static void C_ccall f_1798(C_word c,C_word *av) C_noret; -C_noret_decl(f_1802) -static void C_ccall f_1802(C_word c,C_word *av) C_noret; -C_noret_decl(f_1810) -static void C_ccall f_1810(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_1834) -static void C_ccall f_1834(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_1876) -static void C_ccall f_1876(C_word c,C_word *av) C_noret; -C_noret_decl(f_1878) -static void f_1878(C_word t0,C_word t1) C_noret; -C_noret_decl(f_1883) -static void f_1883(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_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_1908) -static void C_ccall f_1908(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_1918) -static void C_ccall f_1918(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(f_1924) -static void C_ccall f_1924(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_1930) -static void C_ccall f_1930(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_1939) -static void f_1939(C_word t0,C_word t1) C_noret; -C_noret_decl(f_1942) -static void f_1942(C_word t0,C_word t1) 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_1951) -static void f_1951(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_1973) -static void C_ccall f_1973(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_1998) -static void C_ccall f_1998(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_2017) -static void C_ccall f_2017(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_2024) -static void C_ccall f_2024(C_word c,C_word *av) C_noret; -C_noret_decl(f_2032) -static void C_ccall f_2032(C_word c,C_word *av) C_noret; -C_noret_decl(f_2036) -static void C_ccall f_2036(C_word c,C_word *av) C_noret; -C_noret_decl(f_2039) -static void C_ccall f_2039(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_2054) -static void C_ccall f_2054(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_2066) -static void C_ccall f_2066(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_2085) -static void C_ccall f_2085(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_2095) -static void C_ccall f_2095(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_2111) -static void C_ccall f_2111(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_2120) -static void C_ccall f_2120(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_2131) -static void C_ccall f_2131(C_word c,C_word *av) C_noret; -C_noret_decl(f_2137) -static void C_ccall f_2137(C_word c,C_word *av) C_noret; -C_noret_decl(f_2139) -static void C_ccall f_2139(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_740) -static void C_ccall f_740(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_758) -static void f_758(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_762) -static void C_ccall f_762(C_word c,C_word *av) C_noret; -C_noret_decl(f_769) -static void C_ccall f_769(C_word c,C_word *av) C_noret; -C_noret_decl(f_773) -static void C_ccall f_773(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_785) -static void C_ccall f_785(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_797) -static void C_ccall f_797(C_word c,C_word *av) C_noret; -C_noret_decl(f_799) -static void f_799(C_word t0,C_word t1,C_word t2,C_word t3) 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_826) -static void C_ccall f_826(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_835) -static void C_ccall f_835(C_word c,C_word *av) C_noret; -C_noret_decl(f_841) -static void C_ccall f_841(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_851) -static void C_ccall f_851(C_word c,C_word *av) C_noret; -C_noret_decl(f_866) -static void C_ccall f_866(C_word c,C_word *av) C_noret; -C_noret_decl(f_869) -static void C_ccall f_869(C_word c,C_word *av) C_noret; -C_noret_decl(f_872) -static void C_ccall f_872(C_word c,C_word *av) C_noret; -C_noret_decl(f_876) -static void C_ccall f_876(C_word c,C_word *av) C_noret; -C_noret_decl(f_890) -static void f_890(C_word t0,C_word t1) C_noret; -C_noret_decl(f_904) -static void C_ccall f_904(C_word c,C_word *av) C_noret; -C_noret_decl(f_916) -static void f_916(C_word t0,C_word t1) 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_984) -static void C_ccall f_984(C_word c,C_word *av) C_noret; -C_noret_decl(f_994) -static void C_ccall f_994(C_word c,C_word *av) C_noret; -C_noret_decl(C_file_toplevel) -C_extern void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_1012) -static void C_ccall trf_1012(C_word c,C_word *av) C_noret; -static void C_ccall trf_1012(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1012(t0,t1,t2);} - -C_noret_decl(trf_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_1105) -static void C_ccall trf_1105(C_word c,C_word *av) C_noret; -static void C_ccall trf_1105(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1105(t0,t1);} - -C_noret_decl(trf_1129) -static void C_ccall trf_1129(C_word c,C_word *av) C_noret; -static void C_ccall trf_1129(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1129(t0,t1,t2);} - -C_noret_decl(trf_1159) -static void C_ccall trf_1159(C_word c,C_word *av) C_noret; -static void C_ccall trf_1159(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1159(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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1347(t0,t1,t2,t3);} - -C_noret_decl(trf_1477) -static void C_ccall trf_1477(C_word c,C_word *av) C_noret; -static void C_ccall trf_1477(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1477(t0,t1,t2,t3);} - -C_noret_decl(trf_1561) -static void C_ccall trf_1561(C_word c,C_word *av) C_noret; -static void C_ccall trf_1561(C_word c,C_word *av){ -C_word t0=av[0]; -f_1561(t0);} - -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[1]; -C_word t1=av[0]; -f_1606(t0,t1);} - -C_noret_decl(trf_1663) -static void C_ccall trf_1663(C_word c,C_word *av) C_noret; -static void C_ccall trf_1663(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1663(t0,t1);} - -C_noret_decl(trf_1729) -static void C_ccall trf_1729(C_word c,C_word *av) C_noret; -static void C_ccall trf_1729(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1729(t0,t1,t2);} - -C_noret_decl(trf_1769) -static void C_ccall trf_1769(C_word c,C_word *av) C_noret; -static void C_ccall trf_1769(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1769(t0,t1,t2);} - -C_noret_decl(trf_1790) -static void C_ccall trf_1790(C_word c,C_word *av) C_noret; -static void C_ccall trf_1790(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1790(t0,t1,t2);} - -C_noret_decl(trf_1878) -static void C_ccall trf_1878(C_word c,C_word *av) C_noret; -static void C_ccall trf_1878(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1878(t0,t1);} - -C_noret_decl(trf_1883) -static void C_ccall trf_1883(C_word c,C_word *av) C_noret; -static void C_ccall trf_1883(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1883(t0,t1,t2);} - -C_noret_decl(trf_1939) -static void C_ccall trf_1939(C_word c,C_word *av) C_noret; -static void C_ccall trf_1939(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1939(t0,t1);} - -C_noret_decl(trf_1942) -static void C_ccall trf_1942(C_word c,C_word *av) C_noret; -static void C_ccall trf_1942(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1942(t0,t1);} - -C_noret_decl(trf_1951) -static void C_ccall trf_1951(C_word c,C_word *av) C_noret; -static void C_ccall trf_1951(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_1951(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_758) -static void C_ccall trf_758(C_word c,C_word *av) C_noret; -static void C_ccall trf_758(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_758(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_799) -static void C_ccall trf_799(C_word c,C_word *av) C_noret; -static void C_ccall trf_799(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_799(t0,t1,t2,t3);} - -C_noret_decl(trf_890) -static void C_ccall trf_890(C_word c,C_word *av) C_noret; -static void C_ccall trf_890(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_890(t0,t1);} - -C_noret_decl(trf_916) -static void C_ccall trf_916(C_word c,C_word *av) C_noret; -static void C_ccall trf_916(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_916(t0,t1);} - -/* k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_1000,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[4])){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1010,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1054,a[2]=((C_word*)t0)[3],a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1060,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp); -/* file.scm:193: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1083,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); -/* file.scm:184: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[31]; -tp(4,av2);}}}} - -/* k1008 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1010(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_1010,c,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_1012,a[2]=t3,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_1012(t5,((C_word*)t0)[2],t1);} - -/* loop in k1008 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -static void f_1012(C_word t0,C_word t1,C_word 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_1012,3,t0,t1,t2);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1019,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_1052,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* file.scm:195: directory-exists? */ -t5=*((C_word*)lf[11]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t4=t3; -f_1019(t4,C_SCHEME_FALSE);}} - -/* k1017 in loop in k1008 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -static void f_1019(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_1019,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1045,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* file.scm:196: chicken.pathname#pathname-directory */ -t4=*((C_word*)lf[33]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k1020 in k1017 in loop in k1008 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_1022,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1038,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* file.scm:184: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[31]; -tp(4,av2);}} - -/* k1036 in k1020 in k1017 in loop in k1008 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_1038,c,av);} -a=C_alloc(3); -t2=C_eqp(C_fix(0),C_mkdir(t1)); -if(C_truep(t2)){ -t3=C_SCHEME_UNDEFINED; -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* file.scm:185: posix-error */ -f_758(((C_word*)t0)[2],lf[14],lf[31],lf[32],C_a_i_list(&a,1,((C_word*)t0)[3]));}} - -/* k1043 in k1017 in loop in k1008 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1045,c,av);} -/* file.scm:196: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1012(t2,((C_word*)t0)[3],t1);} - -/* k1050 in loop in k1008 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1052(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1052,c,av);} -t2=((C_word*)t0)[2]; -f_1019(t2,C_i_not(t1));} - -/* a1053 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -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; -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_1054,c,av);} -/* file.scm:193: chicken.pathname#decompose-pathname */ -t2=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1059 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1060(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_1060,c,av);} -if(C_truep(t3)){ -/* file.scm:194: chicken.pathname#make-pathname */ -t5=*((C_word*)lf[35]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k1081 in k998 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_1083,c,av);} -a=C_alloc(3); -t2=C_eqp(C_fix(0),C_mkdir(t1)); -if(C_truep(t2)){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* file.scm:185: posix-error */ -f_758(((C_word*)t0)[4],lf[14],lf[31],lf[32],C_a_i_list(&a,1,((C_word*)t0)[3]));}} - -/* chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -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=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ -C_save_and_reclaim((void *)f_1099,c,av);} -a=C_alloc(8); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1105,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp); -t6=C_i_check_string_2(t2,lf[37]); -if(C_truep(t4)){ -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1128,a[2]=t5,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* file.scm:209: find-files */ -t8=*((C_word*)lf[40]+1);{ -C_word av2[7]; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -av2[3]=lf[41]; -av2[4]=C_SCHEME_TRUE; -av2[5]=lf[42]; -av2[6]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t8+1)))(7,av2);}} -else{ -/* file.scm:221: rmdir */ -f_1105(t1,t2);}} - -/* rmdir in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -static void f_1105(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_1105,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1109,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* file.scm:204: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k1107 in rmdir in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_1109,c,av);} -a=C_alloc(3); -t2=C_eqp(C_fix(0),C_rmdir(t1)); -if(C_truep(t2)){ -t3=C_SCHEME_UNDEFINED; -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* file.scm:206: posix-error */ -f_758(((C_word*)t0)[2],lf[14],lf[37],lf[38],C_a_i_list(&a,1,((C_word*)t0)[3]));}} - -/* k1126 in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,3)))){ -C_save_and_reclaim((void *)f_1128,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1129,a[2]=((C_word*)t0)[2],a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1154,a[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_1159,a[2]=t5,a[3]=t2,a[4]=((C_word)li15),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_1159(t7,t3,t1);} - -/* g275 in k1126 in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -static void f_1129(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_1129,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1142,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* file.scm:181: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[37]; -tp(4,av2);}} - -/* k1140 in g275 in k1126 in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1142(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_1142,c,av);} -a=C_alloc(5); -if(C_truep(C_u_i_symbolic_linkp(t1))){ -t2=*((C_word*)lf[39]+1); -t3=*((C_word*)lf[39]+1); -/* file.scm:214: g285 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[39]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1151,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* file.scm:216: directory-exists? */ -t3=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k1149 in k1140 in g275 in k1126 in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1151,c,av);} -if(C_truep(t1)){ -/* file.scm:214: g285 */ -f_1105(((C_word*)t0)[3],((C_word*)t0)[4]);} -else{ -t2=*((C_word*)lf[39]+1); -t3=*((C_word*)lf[39]+1); -/* file.scm:214: g285 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[39]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[39]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}}} - -/* k1152 in k1126 in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1154(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1154,c,av);} -/* file.scm:220: rmdir */ -f_1105(((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* for-each-loop274 in k1126 in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -static void f_1159(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_1159,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1169,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* file.scm:213: g275 */ -t4=((C_word*)t0)[3]; -f_1129(t4,t3,C_slot(t2,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);}}} - -/* k1167 in for-each-loop274 in k1126 in chicken.file#delete-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1169(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1169,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1159(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* chicken.file#delete-file in k744 in k741 in k738 in k735 */ -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=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_1191,c,av);} -a=C_alloc(4); -t3=C_i_check_string_2(t2,lf[43]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1221,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* file.scm:228: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[43]; -tp(4,av2);}} - -/* k1202 in k1219 in chicken.file#delete-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1204,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k1206 in k1219 in chicken.file#delete-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_1208,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1212,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1216,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t4=*((C_word*)lf[6]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k1210 in k1206 in k1219 in chicken.file#delete-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_1212,c,av);} -/* file.scm:229: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[3]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[14]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[43]; -av2[5]=t1; -av2[6]=((C_word*)t0)[4]; -tp(7,av2);}} - -/* k1214 in k1206 in k1219 in chicken.file#delete-file in k744 in k741 in k738 in k735 */ -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,c,av);} -/* file.scm:231: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[44]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[45]; -av2[3]=t1; -tp(4,av2);}} - -/* k1219 in chicken.file#delete-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1221(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_1221,c,av);} -a=C_alloc(8); -t2=C_eqp(C_fix(0),C_remove(t1)); -if(C_truep(t2)){ -t3=C_SCHEME_UNDEFINED; -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1204,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_1208,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* file.scm:230: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[7]+1); -av2[1]=t4; -tp(2,av2);}}} - -/* chicken.file#delete-file* in k744 in k741 in k738 in k735 */ -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=av[2]; -C_word t3; -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_1223,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1230,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* file.scm:235: file-exists? */ -t4=*((C_word*)lf[8]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k1228 in chicken.file#delete-file* in k744 in k741 in k738 in k735 */ -static void C_ccall f_1230(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1230,c,av);} -if(C_truep(t1)){ -/* file.scm:235: delete-file */ -t2=*((C_word*)lf[39]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.file#rename-file in k744 in k741 in k738 in k735 */ -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=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_1235,c,av);} -a=C_alloc(9); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=C_i_check_string_2(t2,lf[48]); -t7=C_i_check_string_2(t3,lf[48]); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1248,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1281,a[2]=t8,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_not(t5))){ -/* file.scm:240: file-exists? */ -t10=*((C_word*)lf[8]+1);{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} -else{ -t10=t8;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_SCHEME_UNDEFINED; -f_1248(2,av2);}}} - -/* k1246 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_1248,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1251,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_1274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* file.scm:244: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[48]; -tp(4,av2);}} - -/* k1249 in k1246 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1251,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k1259 in k1276 in k1272 in k1246 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -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_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_1261,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1265,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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1269,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t4=*((C_word*)lf[6]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k1263 in k1259 in k1276 in k1272 in k1246 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1265(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_1265,c,av);} -/* file.scm:246: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[3]+1)); -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=*((C_word*)lf[3]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[14]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[48]; -av2[5]=t1; -av2[6]=((C_word*)t0)[4]; -av2[7]=((C_word*)t0)[5]; -tp(8,av2);}} - -/* k1267 in k1259 in k1276 in k1272 in k1246 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1269,c,av);} -/* file.scm:248: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[44]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[49]; -av2[3]=t1; -tp(4,av2);}} - -/* k1272 in k1246 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_1274,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1278,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); -/* file.scm:245: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[48]; -tp(4,av2);}} - -/* k1276 in k1272 in k1246 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1278(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1278,c,av);} -a=C_alloc(5); -t2=C_eqp(C_fix(0),C_rename(((C_word*)t0)[2],t1)); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1261,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* file.scm:247: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[7]+1); -av2[1]=t3; -tp(2,av2);}}} - -/* k1279 in chicken.file#rename-file in k744 in k741 in k738 in k735 */ -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,4)))){ -C_save_and_reclaim((void *)f_1281,c,av);} -if(C_truep(t1)){ -/* file.scm:241: ##sys#error */ -t2=*((C_word*)lf[50]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[48]; -av2[3]=lf[51]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_1248(2,av2);}}} - -/* chicken.file#copy-file in k744 in k741 in k738 in k735 */ -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=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_1298,c,av);} -a=C_alloc(7); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=C_rest_nullp(c,4); -t7=C_rest_nullp(c,5); -t8=(C_truep(t7)?C_fix(1024):C_get_rest_arg(c,5,av,4,t0)); -t9=C_rest_nullp(c,5); -t10=C_i_check_string_2(t2,lf[53]); -t11=C_i_check_string_2(t3,lf[53]); -t12=C_i_check_number_2(t8,lf[53]); -t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1323,a[2]=t1,a[3]=t8,a[4]=t3,a[5]=t2,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_integerp(t8))){ -if(C_truep(C_fixnum_greaterp(t8,C_fix(0)))){ -t14=t13;{ -C_word *av2=av; -av2[0]=t14; -av2[1]=C_SCHEME_UNDEFINED; -f_1323(2,av2);}} -else{ -/* file.scm:256: ##sys#error */ -t14=*((C_word*)lf[50]+1);{ -C_word av2[5]; -av2[0]=t14; -av2[1]=t13; -av2[2]=lf[53]; -av2[3]=lf[63]; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} -else{ -/* file.scm:256: ##sys#error */ -t14=*((C_word*)lf[50]+1);{ -C_word av2[5]; -av2[0]=t14; -av2[1]=t13; -av2[2]=lf[53]; -av2[3]=lf[63]; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} - -/* k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1323(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_1323,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1389,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* file.scm:257: directory-exists? */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_1326,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1329,a[2]=((C_word*)t0)[2],a[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_1377,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_not(((C_word*)t0)[6]))){ -/* file.scm:259: file-exists? */ -t4=*((C_word*)lf[8]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_1329(2,av2);}}} - -/* k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1329(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_1329,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* file.scm:261: scheme#open-input-file */ -t3=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[59]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -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(5,c,3)))){ -C_save_and_reclaim((void *)f_1332,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1335,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* file.scm:262: scheme#open-output-file */ -t3=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[59]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1335(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1335,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1338,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* file.scm:263: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[28]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k1336 in k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1338(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_1338,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1345,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); -/* file.scm:264: chicken.io#read-bytevector! */ -t3=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1343 in k1336 in k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -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; -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_1345,c,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_1347,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)li20),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_1347(t5,((C_word*)t0)[5],t1,C_fix(0));} - -/* loop in k1343 in k1336 in k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void f_1347(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_1347,4,t0,t1,t2,t3);} -a=C_alloc(8); -t4=C_eqp(C_fix(0),t2); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1357,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* file.scm:268: scheme#close-input-port */ -t6=*((C_word*)lf[55]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1363,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); -/* file.scm:272: chicken.io#write-bytevector */ -t6=*((C_word*)lf[57]+1);{ -C_word av2[6]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[2]; -av2[4]=C_fix(0); -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} - -/* k1355 in loop in k1343 in k1336 in k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1357(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_1357,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1360,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* file.scm:269: scheme#close-output-port */ -t3=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1358 in k1355 in loop in k1343 in k1336 in k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1360,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k1361 in loop in k1343 in k1336 in k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_1363,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1370,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* file.scm:273: chicken.io#read-bytevector! */ -t3=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1368 in k1361 in loop in k1343 in k1336 in k1333 in k1330 in k1327 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1370,c,av);} -/* file.scm:273: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1347(t2,((C_word*)t0)[3],t1,C_fixnum_plus(((C_word*)t0)[4],((C_word*)t0)[5]));} - -/* k1375 in k1324 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1377(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1377,c,av);} -if(C_truep(t1)){ -/* file.scm:260: ##sys#error */ -t2=*((C_word*)lf[50]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[53]; -av2[3]=lf[61]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_1329(2,av2);}}} - -/* k1387 in k1321 in chicken.file#copy-file in k744 in k741 in k738 in k735 */ -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,4)))){ -C_save_and_reclaim((void *)f_1389,c,av);} -if(C_truep(t1)){ -/* file.scm:258: ##sys#error */ -t2=*((C_word*)lf[50]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[53]; -av2[3]=lf[62]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_1326(2,av2);}}} - -/* chicken.file#move-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1428(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_1428,c,av);} -a=C_alloc(7); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=C_rest_nullp(c,4); -t7=C_rest_nullp(c,5); -t8=(C_truep(t7)?C_fix(1024):C_get_rest_arg(c,5,av,4,t0)); -t9=C_rest_nullp(c,5); -t10=C_i_check_string_2(t2,lf[65]); -t11=C_i_check_string_2(t3,lf[65]); -t12=C_i_check_number_2(t8,lf[65]); -t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1453,a[2]=t2,a[3]=t1,a[4]=t8,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_integerp(t8))){ -if(C_truep(C_fixnum_greaterp(t8,C_fix(0)))){ -t14=t13;{ -C_word *av2=av; -av2[0]=t14; -av2[1]=C_SCHEME_UNDEFINED; -f_1453(2,av2);}} -else{ -/* file.scm:280: ##sys#error */ -t14=*((C_word*)lf[50]+1);{ -C_word av2[5]; -av2[0]=t14; -av2[1]=t13; -av2[2]=lf[65]; -av2[3]=lf[68]; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} -else{ -/* file.scm:280: ##sys#error */ -t14=*((C_word*)lf[50]+1);{ -C_word av2[5]; -av2[0]=t14; -av2[1]=t13; -av2[2]=lf[65]; -av2[3]=lf[68]; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} - -/* k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1453(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_1453,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1456,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1522,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* file.scm:281: directory-exists? */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_1456,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1459,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1510,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_not(((C_word*)t0)[6]))){ -/* file.scm:283: file-exists? */ -t4=*((C_word*)lf[8]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_1459(2,av2);}}} - -/* k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_1459,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1462,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* file.scm:285: scheme#open-input-file */ -t3=*((C_word*)lf[60]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[59]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_1462,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1465,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); -/* file.scm:286: scheme#open-output-file */ -t3=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[59]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_1465,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1468,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); -/* file.scm:287: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[28]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_1468,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1475,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],tmp=(C_word)a,a+=7,tmp); -/* file.scm:288: chicken.io#read-bytevector! */ -t3=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1473 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_1475,c,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_1477,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)li22),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_1477(t5,((C_word*)t0)[6],t1,C_fix(0));} - -/* loop in k1473 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -static void f_1477(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_1477,4,t0,t1,t2,t3);} -a=C_alloc(8); -t4=C_eqp(C_fix(0),t2); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1487,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); -/* file.scm:292: scheme#close-input-port */ -t6=*((C_word*)lf[55]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1496,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)[4],tmp=(C_word)a,a+=8,tmp); -/* file.scm:297: chicken.io#write-bytevector */ -t6=*((C_word*)lf[57]+1);{ -C_word av2[6]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[3]; -av2[4]=C_fix(0); -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} - -/* k1485 in loop in k1473 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1487(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1487,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1490,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* file.scm:293: scheme#close-output-port */ -t3=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1488 in k1485 in loop in k1473 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1490(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_1490,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* file.scm:294: delete-file */ -t3=*((C_word*)lf[39]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1491 in k1488 in k1485 in loop in k1473 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1493,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k1494 in loop in k1473 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_1496,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1503,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* file.scm:298: chicken.io#read-bytevector! */ -t3=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1501 in k1494 in loop in k1473 in k1466 in k1463 in k1460 in k1457 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1503(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1503,c,av);} -/* file.scm:298: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1477(t2,((C_word*)t0)[3],t1,C_fixnum_plus(((C_word*)t0)[4],((C_word*)t0)[5]));} - -/* k1508 in k1454 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1510,c,av);} -if(C_truep(t1)){ -/* file.scm:284: ##sys#error */ -t2=*((C_word*)lf[50]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[65]; -av2[3]=lf[66]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_1459(2,av2);}}} - -/* k1520 in k1451 in chicken.file#move-file in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1522,c,av);} -if(C_truep(t1)){ -/* file.scm:282: ##sys#error */ -t2=*((C_word*)lf[50]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[65]; -av2[3]=lf[67]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_1456(2,av2);}}} - -/* tempdir in k744 in k741 in k738 in k735 */ -static void f_1561(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_1561,1,t1);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1565,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* file.scm:309: chicken.process-context#get-environment-variable */ -t3=*((C_word*)lf[73]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[78]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1563 in tempdir in k744 in k741 in k738 in k735 */ -static void C_ccall f_1565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_1565,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1571,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* file.scm:310: chicken.process-context#get-environment-variable */ -t3=*((C_word*)lf[73]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[77]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k1569 in k1563 in tempdir in k744 in k741 in k738 in k735 */ -static void C_ccall f_1571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_1571,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1577,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* file.scm:311: chicken.process-context#get-environment-variable */ -t3=*((C_word*)lf[73]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[76]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k1575 in k1569 in k1563 in tempdir in k744 in k741 in k738 in k735 */ -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(3,c,2)))){ -C_save_and_reclaim((void *)f_1577,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(*((C_word*)lf[70]+1))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1586,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* file.scm:313: chicken.process-context#get-environment-variable */ -t3=*((C_word*)lf[73]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[74]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[75]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} - -/* k1584 in k1575 in k1569 in k1563 in tempdir in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1586,c,av);} -if(C_truep(t1)){ -/* file.scm:315: string-append */ -t2=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[71]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[72]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1594(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_1594,c,av);} -a=C_alloc(9); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?lf[80]:C_get_rest_arg(c,2,av,2,t0)); -t4=C_i_check_string_2(t3,lf[81]); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_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_1606,a[2]=t6,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li26),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_1606(t8,t1);} - -/* loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -static void f_1606(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_1606,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_1612,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_1631,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* file.scm:325: tempdir */ -f_1561(t4);} - -/* k1610 in loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1612,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1618,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* file.scm:332: file-exists? */ -t3=*((C_word*)lf[8]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1616 in k1610 in loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -static void C_ccall f_1618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_1618,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -/* file.scm:333: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1606(t2,((C_word*)t0)[3]);} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1626,a[2]=((C_word*)t0)[4],a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp); -/* file.scm:334: scheme#call-with-output-file */ -t3=*((C_word*)lf[82]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* a1625 in k1616 in k1610 in loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1626,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k1629 in loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_1631,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1635,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1639,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[84]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* k1633 in k1629 in loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1635,c,av);} -/* file.scm:324: chicken.pathname#make-pathname */ -t2=*((C_word*)lf[35]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k1637 in k1629 in loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1639,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1643,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* file.scm:330: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[84]+1); -av2[1]=t2; -av2[2]=stub429(C_SCHEME_UNDEFINED); -tp(3,av2);}} - -/* k1641 in k1637 in k1629 in loop in chicken.file#create-temporary-file in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1643,c,av);} -/* file.scm:326: string-append */ -t2=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=lf[83]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -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 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_1657,c,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_1663,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li28),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_1663(t5,t1);} - -/* loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -static void f_1663(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_1663,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_1669,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_1703,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* file.scm:341: tempdir */ -f_1561(t4);} - -/* k1667 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1669,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1675,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* file.scm:347: file-exists? */ -t3=*((C_word*)lf[8]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1673 in k1667 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_1675,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -/* file.scm:348: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1663(t2,((C_word*)t0)[3]);} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1682,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* file.scm:349: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[87]; -tp(4,av2);}}} - -/* k1680 in k1673 in k1667 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1682(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_1682,c,av);} -a=C_alloc(10); -t2=C_mkdir(t1); -t3=C_eqp(t2,C_fix(0)); -if(C_truep(t3)){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1695,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_1699,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t6=*((C_word*)lf[6]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k1693 in k1680 in k1673 in k1667 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1695,c,av);} -/* file.scm:352: ##sys#signal-hook */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[14]; -av2[3]=lf[87]; -av2[4]=t1; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k1697 in k1680 in k1673 in k1667 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1699,c,av);} -/* file.scm:354: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[44]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[44]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[88]; -av2[3]=t1; -tp(4,av2);}} - -/* k1701 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1703(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_1703,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1707,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_1711,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[84]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* k1705 in k1701 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1707,c,av);} -/* file.scm:340: chicken.pathname#make-pathname */ -t2=*((C_word*)lf[35]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k1709 in k1701 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1711(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1711,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1715,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* file.scm:346: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[84]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[84]+1); -av2[1]=t2; -av2[2]=stub438(C_SCHEME_UNDEFINED); -tp(3,av2);}} - -/* k1713 in k1709 in k1701 in loop in chicken.file#create-temporary-directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_1715(C_word c,C_word *av){ -C_word tmp; -C_word 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_1715,c,av);} -/* file.scm:342: string-append */ -t2=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=lf[89]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* chicken.file#glob in k744 in k741 in k738 in k735 */ -static void C_ccall f_1723(C_word c,C_word *av){ -C_word tmp; -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_1723,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_1729,a[2]=t4,a[3]=((C_word)li41),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_1729(t6,t1,t2);} - -/* conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void f_1729(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_1729,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1744,a[2]=t3,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1750,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp); -/* file.scm:365: ##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);}}} - -/* a1743 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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 *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_1744,c,av);} -/* file.scm:365: chicken.pathname#decompose-pathname */ -t2=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void C_ccall f_1750(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(13,c,4)))){ -C_save_and_reclaim((void *)f_1750,c,av);} -a=C_alloc(13); -t5=(C_truep(t2)?t2:lf[91]); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t1,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1904,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1908,a[2]=t7,tmp=(C_word)a,a+=3,tmp); -if(C_truep(t3)){ -/* file.scm:367: chicken.pathname#make-pathname */ -t9=*((C_word*)lf[35]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_SCHEME_FALSE; -av2[3]=t3; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} -else{ -/* file.scm:367: chicken.pathname#make-pathname */ -t9=*((C_word*)lf[35]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_SCHEME_FALSE; -av2[3]=lf[102]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}} - -/* k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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; -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_1757,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1764,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],tmp=(C_word)a,a+=7,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1828,a[2]=((C_word*)t0)[6],a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp); -/* file.scm:368: scheme#call-with-current-continuation */ -t4=*((C_word*)lf[99]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void C_ccall f_1764(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_1764,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); -/* file.scm:368: g492 */ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k1765 in k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_1767,c,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_1769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li32),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_1769(t5,((C_word*)t0)[6],t1);} - -/* loop in k1765 in k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void f_1769(C_word t0,C_word t1,C_word t2){ -C_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_1769,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -/* file.scm:370: conc-loop */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_1729(t4,t1,C_i_cdr(((C_word*)t0)[3]));} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1786,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); -/* file.scm:371: chicken.irregex#irregex-match */ -t5=*((C_word*)lf[93]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k1784 in loop in k1765 in k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void C_ccall f_1786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_1786,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1790,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li31),tmp=(C_word)a,a+=6,tmp); -/* file.scm:370: g478 */ -t3=t2; -f_1790(t3,((C_word*)t0)[5],t1);} -else{ -/* file.scm:375: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1769(t2,((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[3]));}} - -/* g478 in k1784 in loop in k1765 in k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void f_1790(C_word t0,C_word t1,C_word 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_1790,3,t0,t1,t2);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1798,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_1810,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* file.scm:373: chicken.irregex#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);}} - -/* k1796 in g478 in k1784 in loop in k1765 in k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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(4,c,2)))){ -C_save_and_reclaim((void *)f_1798,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1802,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* file.scm:374: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_1769(t3,t2,C_i_cdr(((C_word*)t0)[4]));} - -/* k1800 in k1796 in g478 in k1784 in loop in k1765 in k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_1802,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k1808 in g478 in k1784 in loop in k1765 in k1762 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1810,c,av);} -/* file.scm:373: chicken.pathname#make-pathname */ -t2=*((C_word*)lf[35]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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=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_1828,c,av);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1834,a[2]=t2,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1876,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp); -/* file.scm:368: chicken.condition#with-exception-handler */ -t5=*((C_word*)lf[98]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* a1833 in a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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=av[2]; -C_word t3; -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_1834,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1840,a[2]=t2,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp); -/* file.scm:368: k489 */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a1839 in a1833 in a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void C_ccall f_1840(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1840,c,av);} -t2=C_i_structurep(((C_word*)t0)[2],lf[94]); -t3=(C_truep(t2)?C_slot(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE); -if(C_truep(t3)){ -if(C_truep(C_i_memq(lf[95],t3))){ -if(C_truep(C_i_memq(lf[96],t3))){ -if(C_truep(C_i_memq(lf[0],t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* file.scm:368: chicken.condition#signal */ -t4=*((C_word*)lf[97]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} -else{ -/* file.scm:368: chicken.condition#signal */ -t4=*((C_word*)lf[97]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} -else{ -/* file.scm:368: chicken.condition#signal */ -t4=*((C_word*)lf[97]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} -else{ -/* file.scm:368: chicken.condition#signal */ -t4=*((C_word*)lf[97]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* a1875 in a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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 *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_1876,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1878,a[2]=((C_word*)t0)[2],a[3]=((C_word)li35),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1883,a[2]=((C_word*)t0)[3],a[3]=((C_word)li37),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1900,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* tmp1727 */ -t5=t2; -f_1878(t5,t4);} - -/* tmp1727 in a1875 in a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void f_1878(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_1878,2,t0,t1);} -/* file.scm:368: directory */ -t2=*((C_word*)lf[23]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* tmp2728 in a1875 in a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void f_1883(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_1883,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1889,a[2]=t2,a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp); -/* file.scm:368: k489 */ -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);}} - -/* a1888 in tmp2728 in a1875 in a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -static void C_ccall f_1889(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=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_1889,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -C_apply_values(3,av2);}} - -/* k1898 in a1875 in a1827 in k1755 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_1900,c,av);} -a=C_alloc(3); -/* tmp2728 */ -t2=((C_word*)t0)[2]; -f_1883(t2,((C_word*)t0)[3],C_a_i_list(&a,1,t1));} - -/* k1902 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1904,c,av);} -/* file.scm:367: chicken.irregex#irregex */ -t2=*((C_word*)lf[100]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k1906 in a1749 in conc-loop in chicken.file#glob in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1908,c,av);} -/* file.scm:367: chicken.irregex#glob->sre */ -t2=*((C_word*)lf[101]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* chicken.file#find-files in k744 in k741 in k738 in k735 */ -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=av[2]; -C_word t3; -C_word *a; -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_1914,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_1918,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2137,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp); -/* file.scm:380: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[107]+1); -av2[1]=t4; -av2[2]=lf[111]; -av2[3]=t3; -av2[4]=t5; -tp(5,av2);}} - -/* k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_1918,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1921,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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2129,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp); -/* file.scm:380: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[107]+1); -av2[1]=t2; -av2[2]=lf[110]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t3; -tp(5,av2);}} - -/* k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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; -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_1921,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1924,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|2,a[1]=(C_word)f_2126,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp); -/* file.scm:380: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[107]+1); -av2[1]=t2; -av2[2]=lf[109]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t3; -tp(5,av2);}} - -/* k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ -C_save_and_reclaim((void *)f_1924,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1927,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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2123,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp); -/* file.scm:380: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[107]+1); -av2[1]=t2; -av2[2]=lf[108]; -av2[3]=((C_word*)t0)[6]; -av2[4]=t3; -tp(5,av2);}} - -/* k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_1927(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_1927,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1930,a[2]=((C_word*)t0)[2],a[3]=((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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2120,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp); -/* file.scm:380: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[107]+1); -av2[1]=t2; -av2[2]=lf[41]; -av2[3]=((C_word*)t0)[7]; -av2[4]=t3; -tp(5,av2);}} - -/* k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_1930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_1930,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1933,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2117,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp); -/* file.scm:380: ##sys#get-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[107]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[107]+1); -av2[1]=t2; -av2[2]=lf[42]; -av2[3]=((C_word*)t0)[8]; -av2[4]=t3; -tp(5,av2);}} - -/* k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_1933(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ -C_save_and_reclaim((void *)f_1933,c,av);} -a=C_alloc(17); -t2=C_i_check_string_2(((C_word*)t0)[2],lf[103]); -t3=C_fix(0); -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1939,a[2]=t1,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],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); -if(C_truep(C_i_not(((C_word*)t0)[8]))){ -t6=t5; -f_1939(t6,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2103,a[2]=((C_word)li48),tmp=(C_word)a,a+=3,tmp));} -else{ -if(C_truep(C_fixnump(((C_word*)t0)[8]))){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2111,a[2]=t4,a[3]=((C_word*)t0)[8],a[4]=((C_word)li49),tmp=(C_word)a,a+=5,tmp); -t7=t5; -f_1939(t7,t6);} -else{ -t6=t5; -f_1939(t6,((C_word*)t0)[8]);}}} - -/* k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void f_1939(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(13,0,2)))){ -C_save_and_reclaim_args((void *)trf_1939,2,t0,t1);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|9,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]=((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_i_closurep(((C_word*)t0)[9]))){ -t3=t2; -f_1942(t3,((C_word*)t0)[9]);} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2094,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* file.scm:395: chicken.irregex#irregex */ -t4=*((C_word*)lf[100]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void f_1942(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_1942,2,t0,t1);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_1949,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* file.scm:398: directory */ -t3=*((C_word*)lf[23]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[8]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ -C_save_and_reclaim((void *)f_1949,c,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_1951,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li46),tmp=(C_word)a,a+=10,tmp)); -t5=((C_word*)t3)[1]; -f_1951(t5,((C_word*)t0)[8],((C_word*)t0)[9],t1,((C_word*)t0)[10]);} - -/* loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void f_1951(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(14,0,3)))){ -C_save_and_reclaim_args((void *)trf_1951,5,t0,t1,t2,t3,t4);} -a=C_alloc(14); -if(C_truep(C_i_nullp(t3))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_slot(t3,C_fix(0)); -t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_1964,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,a[7]=t4,a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[5],a[11]=((C_word*)t0)[6],a[12]=((C_word*)t0)[7],a[13]=((C_word*)t0)[8],tmp=(C_word)a,a+=14,tmp); -/* file.scm:403: chicken.pathname#make-pathname */ -t7=*((C_word*)lf[35]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_1964,c,av);} -a=C_alloc(15); -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_1973,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t2,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); -/* file.scm:405: directory-exists? */ -t4=*((C_word*)lf[11]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ -C_save_and_reclaim((void *)f_1973,c,av);} -a=C_alloc(14); -if(C_truep(t1)){ -if(C_truep((C_truep(C_i_equalp(((C_word*)t0)[2],lf[104]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(((C_word*)t0)[2],lf[105]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ -/* file.scm:406: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_1951(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_2066,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); -/* file.scm:181: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[10]; -av2[3]=lf[103]; -tp(4,av2);}}} -else{ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2078,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* file.scm:417: pproc */ -t3=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k1993 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1995,c,av);} -/* file.scm:408: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1951(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k1996 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1998,c,av);} -if(C_truep(t1)){ -/* file.scm:408: action */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} -else{ -/* file.scm:408: loop */ -t2=((C_word*)((C_word*)t0)[6])[1]; -f_1951(t2,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[5]);}} - -/* k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 t5; -C_word t6; -C_word 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_2007,c,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_2017,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_2019,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li43),tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2024,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word)li44),tmp=(C_word)a,a+=9,tmp); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2044,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li45),tmp=(C_word)a,a+=6,tmp); -/* file.scm:412: ##sys#dynamic-wind */ -t11=*((C_word*)lf[106]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t11; -av2[1]=t7; -av2[2]=t8; -av2[3]=t9; -av2[4]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2054,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_2057,a[2]=((C_word*)t0)[8],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); -/* file.scm:416: pproc */ -t4=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k2015 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2017,c,av);} -/* file.scm:410: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1951(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* a2018 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_2019(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *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_2019,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a2023 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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!=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_2024,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_2032,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* file.scm:414: directory */ -t3=*((C_word*)lf[23]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k2030 in a2023 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_2032(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_2032,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2036,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); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_2039,a[2]=((C_word*)t0)[5],a[3]=t2,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]=t1,tmp=(C_word)a,a+=9,tmp); -/* file.scm:415: pproc */ -t4=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k2034 in k2030 in a2023 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 in ... */ -static void C_ccall f_2036(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2036,c,av);} -/* file.scm:413: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1951(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k2037 in k2030 in a2023 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 in ... */ -static void C_ccall f_2039(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2039,c,av);} -if(C_truep(t1)){ -/* file.scm:415: action */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} -else{ -/* file.scm:413: loop */ -t2=((C_word*)((C_word*)t0)[6])[1]; -f_1951(t2,((C_word*)t0)[7],((C_word*)t0)[4],((C_word*)t0)[8],((C_word*)t0)[5]);}} - -/* a2043 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *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_2044,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k2052 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2054,c,av);} -/* file.scm:416: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1951(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k2055 in k2005 in k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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(0,c,4)))){ -C_save_and_reclaim((void *)f_2057,c,av);} -if(C_truep(t1)){ -/* file.scm:416: action */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} -else{ -/* file.scm:416: loop */ -t2=((C_word*)((C_word*)t0)[6])[1]; -f_1951(t2,((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[5]);}} - -/* k2064 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_2066(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_2066,c,av);} -a=C_alloc(16); -t2=(C_truep(C_u_i_symbolic_linkp(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_1995,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_1998,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); -/* file.scm:408: pproc */ -t5=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_2007,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[12],tmp=(C_word)a,a+=12,tmp); -/* file.scm:409: lproc */ -t4=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}}} - -/* k2076 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_2078,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2085,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* file.scm:417: action */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} -else{ -/* file.scm:418: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1951(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[8]);}} - -/* k2083 in k2076 in k1971 in k1962 in loop in k1947 in k1940 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2085,c,av);} -/* file.scm:417: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1951(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k2092 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_2094,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2]; -f_1942(t2,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2095,a[2]=t1,a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp));} - -/* f_2095 in k2092 in k1937 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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=av[2]; -C_word 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_2095,c,av);} -/* file.scm:396: chicken.irregex#irregex-match */ -t3=*((C_word*)lf[93]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* f_2103 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_2103(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2103,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_2111 in k1931 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2111,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fixnum_lessp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a2116 in k1928 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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; -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_2117,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a2119 in k1925 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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!=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_2120,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a2122 in k1922 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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 *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_2123,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a2125 in k1919 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_2126(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2126,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a2128 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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; -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_2129,c,av);} -a=C_alloc(3); -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2131,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_2131 in a2128 in k1916 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_2131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_2131,c,av);} -a=C_alloc(3); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a2136 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -static void C_ccall f_2137(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=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_2137,c,av);} -a=C_alloc(3); -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2139,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_2139 in a2136 in chicken.file#find-files in k744 in k741 in k738 in k735 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2139,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_737,c,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; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_irregex_toplevel(2,av2);}} - -/* k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_740,c,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; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_pathname_toplevel(2,av2);}} - -/* k741 in k738 in k735 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_743,c,av);} -a=C_alloc(19); -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_746,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -/* k744 in k741 in k738 in k735 */ -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 t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word 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(64,c,6)))){ -C_save_and_reclaim((void *)f_746,c,av);} -a=C_alloc(64); -t2=C_mutate(&lf[2] /* (set! chicken.file#posix-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_758,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[8]+1 /* (set! chicken.file#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_775,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[11]+1 /* (set! chicken.file#directory-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_787,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate(&lf[13] /* (set! chicken.file#test-access ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_799,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[17]+1 /* (set! chicken.file#file-readable? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_829,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[19]+1 /* (set! chicken.file#file-writable? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_835,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[21]+1 /* (set! chicken.file#file-executable? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_841,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[23]+1 /* (set! chicken.file#directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_847,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[30]+1 /* (set! chicken.file#create-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_984,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[36]+1 /* (set! chicken.file#delete-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1099,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[39]+1 /* (set! chicken.file#delete-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1191,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[46]+1 /* (set! chicken.file#delete-file* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1223,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[47]+1 /* (set! chicken.file#rename-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1235,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[52]+1 /* (set! chicken.file#copy-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1298,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[64]+1 /* (set! chicken.file#move-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1428,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); -t17=lf[69]; -t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1561,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); -t19=C_mutate((C_word*)lf[79]+1 /* (set! chicken.file#create-temporary-file ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1594,a[2]=t17,a[3]=t18,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); -t20=C_mutate((C_word*)lf[85]+1 /* (set! chicken.file#create-temporary-directory ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1657,a[2]=t17,a[3]=t18,a[4]=((C_word)li29),tmp=(C_word)a,a+=5,tmp)); -t21=C_mutate((C_word*)lf[90]+1 /* (set! chicken.file#glob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1723,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate((C_word*)lf[40]+1 /* (set! chicken.file#find-files ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1914,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); -t23=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t23; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} - -/* chicken.file#posix-error in k744 in k741 in k738 in k735 */ -static void f_758(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ -C_word tmp; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_758,5,t1,t2,t3,t4,t5);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_762,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* file.scm:118: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[7]+1); -av2[1]=t6; -tp(2,av2);}} - -/* k760 in chicken.file#posix-error in k744 in k741 in k738 in k735 */ -static void C_ccall f_762(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_762,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_769,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_773,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); -/* file.scm:115: ##sys#peek-c-string */ -t6=*((C_word*)lf[6]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t3; -av2[2]=stub143(t4,t5); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k767 in k760 in chicken.file#posix-error in k744 in k741 in k738 in k735 */ -static void C_ccall f_769(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_769,c,av);}{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[3]+1); -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[5]; -av2[6]=t1; -av2[7]=((C_word*)t0)[6]; -C_apply(8,av2);}} - -/* k771 in k760 in chicken.file#posix-error in k744 in k741 in k738 in k735 */ -static void C_ccall f_773(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_773,c,av);} -/* file.scm:120: string-append */ -t2=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[5]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* chicken.file#file-exists? in k744 in k741 in k738 in k735 */ -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=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_775,c,av);} -a=C_alloc(4); -t3=C_i_check_string_2(t2,lf[9]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_785,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* file.scm:127: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[10]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_FALSE; -av2[5]=lf[9]; -tp(6,av2);}} - -/* k783 in chicken.file#file-exists? in k744 in k741 in k738 in k735 */ -static void C_ccall f_785(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_785,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.file#directory-exists? in k744 in k741 in k738 in k735 */ -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=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_787,c,av);} -a=C_alloc(4); -t3=C_i_check_string_2(t2,lf[12]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_797,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* file.scm:131: ##sys#file-exists? */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[10]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[10]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -av2[5]=lf[12]; -tp(6,av2);}} - -/* k795 in chicken.file#directory-exists? in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_797,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?((C_word*)t0)[3]:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.file#test-access in k744 in k741 in k738 in k735 */ -static void f_799(C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_799,4,t1,t2,t3,t4);} -a=C_alloc(6); -t5=C_i_check_string_2(t2,t4); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_807,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* file.scm:142: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t6; -av2[2]=t2; -av2[3]=t4; -tp(4,av2);}} - -/* k805 in chicken.file#test-access in k744 in k741 in k738 in k735 */ -static void C_ccall f_807(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_807,c,av);} -a=C_alloc(5); -t2=C_test_access(t1,((C_word*)t0)[2]); -t3=C_eqp(t2,C_fix(0)); -if(C_truep(t3)){ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_826,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); -/* file.scm:144: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[7]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[7]+1); -av2[1]=t4; -tp(2,av2);}}} - -/* k824 in k805 in chicken.file#test-access in k744 in k741 in k738 in k735 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_826,c,av);} -a=C_alloc(3); -t2=C_fix((C_word)EACCES); -t3=C_eqp(t1,t2); -if(C_truep(t3)){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* file.scm:146: posix-error */ -f_758(((C_word*)t0)[2],lf[14],((C_word*)t0)[3],lf[15],C_a_i_list(&a,1,((C_word*)t0)[4]));}} - -/* chicken.file#file-readable? in k744 in k741 in k738 in k735 */ -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=av[2]; -C_word 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_829,c,av);} -/* file.scm:148: test-access */ -f_799(t1,t2,C_fix((C_word)R_OK),lf[18]);} - -/* chicken.file#file-writable? in k744 in k741 in k738 in k735 */ -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=av[2]; -C_word 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_835,c,av);} -/* file.scm:149: test-access */ -f_799(t1,t2,C_fix((C_word)W_OK),lf[20]);} - -/* chicken.file#file-executable? in k744 in k741 in k738 in k735 */ -static void C_ccall f_841(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_841,c,av);} -/* file.scm:150: test-access */ -f_799(t1,t2,C_fix((C_word)X_OK),lf[22]);} - -/* chicken.file#directory in k744 in k741 in k738 in k735 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_847,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_851,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_nullp(t2))){ -/* file.scm:155: chicken.process-context#current-directory */ -t4=*((C_word*)lf[29]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_car(t2); -f_851(2,av2);}}} - -/* k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -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 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,c,2)))){ -C_save_and_reclaim((void *)f_851,c,av);} -a=C_alloc(5); -t2=C_i_nullp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_SCHEME_END_OF_LIST:C_i_cdr(((C_word*)t0)[2])); -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_check_string_2(t1,lf[24]); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_866,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* file.scm:157: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[28]+1); -av2[1]=t9; -av2[2]=C_fix(256); -tp(3,av2);}} - -/* k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_866(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_866,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_869,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); -/* file.scm:158: ##sys#make-pointer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[27]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k867 in k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_869(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_869,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_872,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); -/* file.scm:159: ##sys#make-pointer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[27]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k870 in k867 in k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_872(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_872,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_876,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); -/* file.scm:162: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[16]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[16]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[24]; -tp(4,av2);}} - -/* k874 in k870 in k867 in k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -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 t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_876,c,av);} -a=C_alloc(10); -t2=C_opendir(t1,((C_word*)t0)[2]); -if(C_truep(C_null_pointerp(((C_word*)t0)[2]))){ -/* file.scm:164: posix-error */ -f_758(((C_word*)t0)[3],lf[14],lf[24],lf[25],C_a_i_list(&a,1,((C_word*)t0)[4]));} -else{ -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_890,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t4,a[6]=((C_word*)t0)[7],a[7]=((C_word)li7),tmp=(C_word)a,a+=8,tmp)); -t6=((C_word*)t4)[1]; -f_890(t6,((C_word*)t0)[3]);}} - -/* loop in k874 in k870 in k867 in k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -static void f_890(C_word 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_890,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_904,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t1,a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); -/* file.scm:170: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[26]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(0); -av2[4]=t4; -tp(5,av2);}}} - -/* k902 in loop in k874 in k870 in k867 in k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -static void C_ccall f_904(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,c,2)))){ -C_save_and_reclaim((void *)f_904,c,av);} -a=C_alloc(5); -t2=C_i_string_ref(t1,C_fix(0)); -t3=C_fixnum_greaterp(((C_word*)t0)[2],C_fix(1)); -t4=(C_truep(t3)?C_i_string_ref(t1,C_fix(1)):C_SCHEME_FALSE); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_916,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t6=C_eqp(C_make_character(46),t2); -if(C_truep(t6)){ -t7=C_i_not(t4); -if(C_truep(t7)){ -t8=t5; -f_916(t8,t7);} -else{ -t8=C_eqp(C_make_character(46),t4); -if(C_truep(t8)){ -t9=C_eqp(C_fix(2),((C_word*)t0)[2]); -t10=t5; -f_916(t10,(C_truep(t9)?t9:C_i_not(((C_word*)t0)[5])));} -else{ -t9=t5; -f_916(t9,C_i_not(((C_word*)t0)[5]));}}} -else{ -t7=t5; -f_916(t7,C_SCHEME_FALSE);}} - -/* k914 in k902 in loop in k874 in k870 in k867 in k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -static void f_916(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_916,2,t0,t1);} -a=C_alloc(4); -if(C_truep(t1)){ -/* file.scm:177: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_890(t2,((C_word*)t0)[3]);} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_926,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* file.scm:178: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_890(t3,t2);}} - -/* k924 in k914 in k902 in loop in k874 in k870 in k867 in k864 in k849 in chicken.file#directory in k744 in k741 in k738 in k735 */ -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,1)))){ -C_save_and_reclaim((void *)f_926,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.file#create-directory in k744 in k741 in k738 in k735 */ -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 t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_984,c,av);} -a=C_alloc(10); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_string_2(t2,lf[31]); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_994,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t7=C_eqp(C_fix(0),C_u_i_string_length(t2)); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1000,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t6,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t7)){ -t9=t8;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t7; -f_1000(2,av2);}} -else{ -/* file.scm:191: file-exists? */ -t9=*((C_word*)lf[8]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}} - -/* k992 in chicken.file#create-directory in k744 in k741 in k738 in k735 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_994,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_file_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("file")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_file_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(560))){ -C_save(t1); -C_rereclaim2(560*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,112); -lf[0]=C_h_intern(&lf[0],4, C_text("file")); -lf[1]=C_h_intern(&lf[1],13, C_text("chicken.file#")); -lf[3]=C_h_intern(&lf[3],23, C_text("##sys#signal-hook/errno")); -lf[4]=C_h_intern(&lf[4],20, C_text("scheme#string-append")); -lf[5]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\055\040\000")); -lf[6]=C_h_intern(&lf[6],19, C_text("##sys#peek-c-string")); -lf[7]=C_h_intern(&lf[7],18, C_text("##sys#update-errno")); -lf[8]=C_h_intern(&lf[8],25, C_text("chicken.file#file-exists?")); -lf[9]=C_h_intern(&lf[9],12, C_text("file-exists?")); -lf[10]=C_h_intern(&lf[10],18, C_text("##sys#file-exists?")); -lf[11]=C_h_intern(&lf[11],30, C_text("chicken.file#directory-exists?")); -lf[12]=C_h_intern(&lf[12],17, C_text("directory-exists?")); -lf[14]=C_h_intern_kw(&lf[14],10, C_text("file-error")); -lf[15]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\143\141\156\156\157\164\040\141\143\143\145\163\163\040\146\151\154\145\000")); -lf[16]=C_h_intern(&lf[16],19, C_text("##sys#make-c-string")); -lf[17]=C_h_intern(&lf[17],27, C_text("chicken.file#file-readable?")); -lf[18]=C_h_intern(&lf[18],14, C_text("file-readable?")); -lf[19]=C_h_intern(&lf[19],27, C_text("chicken.file#file-writable?")); -lf[20]=C_h_intern(&lf[20],14, C_text("file-writable?")); -lf[21]=C_h_intern(&lf[21],29, C_text("chicken.file#file-executable?")); -lf[22]=C_h_intern(&lf[22],16, C_text("file-executable?")); -lf[23]=C_h_intern(&lf[23],22, C_text("chicken.file#directory")); -lf[24]=C_h_intern(&lf[24],9, C_text("directory")); -lf[25]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\143\141\156\156\157\164\040\157\160\145\156\040\144\151\162\145\143\164\157\162\171\000")); -lf[26]=C_h_intern(&lf[26],20, C_text("##sys#buffer->string")); -lf[27]=C_h_intern(&lf[27],18, C_text("##sys#make-pointer")); -lf[28]=C_h_intern(&lf[28],21, C_text("##sys#make-bytevector")); -lf[29]=C_h_intern(&lf[29],41, C_text("chicken.process-context#current-directory")); -lf[30]=C_h_intern(&lf[30],29, C_text("chicken.file#create-directory")); -lf[31]=C_h_intern(&lf[31],16, C_text("create-directory")); -lf[32]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\143\141\156\156\157\164\040\143\162\145\141\164\145\040\144\151\162\145\143\164\157\162\171\000")); -lf[33]=C_h_intern(&lf[33],35, C_text("chicken.pathname#pathname-directory")); -lf[34]=C_h_intern(&lf[34],35, C_text("chicken.pathname#decompose-pathname")); -lf[35]=C_h_intern(&lf[35],30, C_text("chicken.pathname#make-pathname")); -lf[36]=C_h_intern(&lf[36],29, C_text("chicken.file#delete-directory")); -lf[37]=C_h_intern(&lf[37],16, C_text("delete-directory")); -lf[38]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\143\141\156\156\157\164\040\144\145\154\145\164\145\040\144\151\162\145\143\164\157\162\171\000")); -lf[39]=C_h_intern(&lf[39],24, C_text("chicken.file#delete-file")); -lf[40]=C_h_intern(&lf[40],23, C_text("chicken.file#find-files")); -lf[41]=C_h_intern_kw(&lf[41],8, C_text("dotfiles")); -lf[42]=C_h_intern_kw(&lf[42],15, C_text("follow-symlinks")); -lf[43]=C_h_intern(&lf[43],11, C_text("delete-file")); -lf[44]=C_h_intern(&lf[44],19, C_text("##sys#string-append")); -lf[45]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\143\141\156\156\157\164\040\144\145\154\145\164\145\040\146\151\154\145\040\055\040\000")); -lf[46]=C_h_intern(&lf[46],25, C_text("chicken.file#delete-file*")); -lf[47]=C_h_intern(&lf[47],24, C_text("chicken.file#rename-file")); -lf[48]=C_h_intern(&lf[48],11, C_text("rename-file")); -lf[49]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\143\141\156\156\157\164\040\162\145\156\141\155\145\040\146\151\154\145\040\055\040\000")); -lf[50]=C_h_intern(&lf[50],11, C_text("##sys#error")); -lf[51]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\156\145\167\146\151\154\145\040\145\170\151\163\164\163\040\142\165\164\040\143\154\157\142\142\145\162\040\151\163\040\146\141\154\163\145\000")); -lf[52]=C_h_intern(&lf[52],22, C_text("chicken.file#copy-file")); -lf[53]=C_h_intern(&lf[53],9, C_text("copy-file")); -lf[54]=C_h_intern(&lf[54],24, C_text("scheme#close-output-port")); -lf[55]=C_h_intern(&lf[55],23, C_text("scheme#close-input-port")); -lf[56]=C_h_intern(&lf[56],27, C_text("chicken.io#read-bytevector!")); -lf[57]=C_h_intern(&lf[57],27, C_text("chicken.io#write-bytevector")); -lf[58]=C_h_intern(&lf[58],23, C_text("scheme#open-output-file")); -lf[59]=C_h_intern_kw(&lf[59],6, C_text("binary")); -lf[60]=C_h_intern(&lf[60],22, C_text("scheme#open-input-file")); -lf[61]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\156\145\167\146\151\154\145\040\145\170\151\163\164\163\040\142\165\164\040\143\154\157\142\142\145\162\040\151\163\040\146\141\154\163\145\000")); -lf[62]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\143\141\156\156\157\164\040\143\157\160\171\040\144\151\162\145\143\164\157\162\151\145\163\000")); -lf[63]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\151\156\166\141\154\151\144\040\142\154\157\143\153\163\151\172\145\040\055\040\156\157\164\040\141\040\160\157\163\151\164\151\166\145\040\151\156\164\145\147\145\162\000")); -lf[64]=C_h_intern(&lf[64],22, C_text("chicken.file#move-file")); -lf[65]=C_h_intern(&lf[65],9, C_text("move-file")); -lf[66]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\156\145\167\146\151\154\145\040\145\170\151\163\164\163\040\142\165\164\040\143\154\157\142\142\145\162\040\151\163\040\146\141\154\163\145\000")); -lf[67]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\143\141\156\156\157\164\040\155\157\166\145\040\144\151\162\145\143\164\157\162\151\145\163\000")); -lf[68]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\151\156\166\141\154\151\144\040\142\154\157\143\153\163\151\172\145\040\055\040\156\157\164\040\141\040\160\157\163\151\164\151\166\145\040\151\156\164\145\147\145\162\000")); -lf[69]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\164\145\155\160\000")); -lf[70]=C_h_intern(&lf[70],22, C_text("##sys#windows-platform")); -lf[71]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\057\101\160\160\104\141\164\141\057\114\157\143\141\154\057\124\145\155\160\000")); -lf[72]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[73]=C_h_intern(&lf[73],48, C_text("chicken.process-context#get-environment-variable")); -lf[74]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\125\123\105\122\120\122\117\106\111\114\105\000")); -lf[75]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\057\164\155\160\000")); -lf[76]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\124\115\120\000")); -lf[77]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\124\105\115\120\000")); -lf[78]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\124\115\120\104\111\122\000")); -lf[79]=C_h_intern(&lf[79],34, C_text("chicken.file#create-temporary-file")); -lf[80]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\164\155\160\000")); -lf[81]=C_h_intern(&lf[81],21, C_text("create-temporary-file")); -lf[82]=C_h_intern(&lf[82],28, C_text("scheme#call-with-output-file")); -lf[83]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[84]=C_h_intern(&lf[84],20, C_text("##sys#number->string")); -lf[85]=C_h_intern(&lf[85],39, C_text("chicken.file#create-temporary-directory")); -lf[86]=C_h_intern(&lf[86],17, C_text("##sys#signal-hook")); -lf[87]=C_h_intern(&lf[87],26, C_text("create-temporary-directory")); -lf[88]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\143\141\156\156\157\164\040\143\162\145\141\164\145\040\164\145\155\160\157\162\141\162\171\040\144\151\162\145\143\164\157\162\171\040\055\040\000")); -lf[89]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[90]=C_h_intern(&lf[90],17, C_text("chicken.file#glob")); -lf[91]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[92]=C_h_intern(&lf[92],39, C_text("chicken.irregex#irregex-match-substring")); -lf[93]=C_h_intern(&lf[93],29, C_text("chicken.irregex#irregex-match")); -lf[94]=C_h_intern(&lf[94],9, C_text("condition")); -lf[95]=C_h_intern(&lf[95],3, C_text("exn")); -lf[96]=C_h_intern(&lf[96],3, C_text("i/o")); -lf[97]=C_h_intern(&lf[97],24, C_text("chicken.condition#signal")); -lf[98]=C_h_intern(&lf[98],40, C_text("chicken.condition#with-exception-handler")); -lf[99]=C_h_intern(&lf[99],37, C_text("scheme#call-with-current-continuation")); -lf[100]=C_h_intern(&lf[100],23, C_text("chicken.irregex#irregex")); -lf[101]=C_h_intern(&lf[101],25, C_text("chicken.irregex#glob->sre")); -lf[102]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\052\000")); -lf[103]=C_h_intern(&lf[103],10, C_text("find-files")); -lf[104]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[105]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\056\056\000")); -lf[106]=C_h_intern(&lf[106],18, C_text("##sys#dynamic-wind")); -lf[107]=C_h_intern(&lf[107],17, C_text("##sys#get-keyword")); -lf[108]=C_h_intern_kw(&lf[108],5, C_text("limit")); -lf[109]=C_h_intern_kw(&lf[109],4, C_text("seed")); -lf[110]=C_h_intern_kw(&lf[110],6, C_text("action")); -lf[111]=C_h_intern_kw(&lf[111],4, C_text("test")); -C_register_lf2(lf,112,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_737,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_extras_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[189] = { -{C_text("f_1000:file_2escm"),(void*)f_1000}, -{C_text("f_1010:file_2escm"),(void*)f_1010}, -{C_text("f_1012:file_2escm"),(void*)f_1012}, -{C_text("f_1019:file_2escm"),(void*)f_1019}, -{C_text("f_1022:file_2escm"),(void*)f_1022}, -{C_text("f_1038:file_2escm"),(void*)f_1038}, -{C_text("f_1045:file_2escm"),(void*)f_1045}, -{C_text("f_1052:file_2escm"),(void*)f_1052}, -{C_text("f_1054:file_2escm"),(void*)f_1054}, -{C_text("f_1060:file_2escm"),(void*)f_1060}, -{C_text("f_1083:file_2escm"),(void*)f_1083}, -{C_text("f_1099:file_2escm"),(void*)f_1099}, -{C_text("f_1105:file_2escm"),(void*)f_1105}, -{C_text("f_1109:file_2escm"),(void*)f_1109}, -{C_text("f_1128:file_2escm"),(void*)f_1128}, -{C_text("f_1129:file_2escm"),(void*)f_1129}, -{C_text("f_1142:file_2escm"),(void*)f_1142}, -{C_text("f_1151:file_2escm"),(void*)f_1151}, -{C_text("f_1154:file_2escm"),(void*)f_1154}, -{C_text("f_1159:file_2escm"),(void*)f_1159}, -{C_text("f_1169:file_2escm"),(void*)f_1169}, -{C_text("f_1191:file_2escm"),(void*)f_1191}, -{C_text("f_1204:file_2escm"),(void*)f_1204}, -{C_text("f_1208:file_2escm"),(void*)f_1208}, -{C_text("f_1212:file_2escm"),(void*)f_1212}, -{C_text("f_1216:file_2escm"),(void*)f_1216}, -{C_text("f_1221:file_2escm"),(void*)f_1221}, -{C_text("f_1223:file_2escm"),(void*)f_1223}, -{C_text("f_1230:file_2escm"),(void*)f_1230}, -{C_text("f_1235:file_2escm"),(void*)f_1235}, -{C_text("f_1248:file_2escm"),(void*)f_1248}, -{C_text("f_1251:file_2escm"),(void*)f_1251}, -{C_text("f_1261:file_2escm"),(void*)f_1261}, -{C_text("f_1265:file_2escm"),(void*)f_1265}, -{C_text("f_1269:file_2escm"),(void*)f_1269}, -{C_text("f_1274:file_2escm"),(void*)f_1274}, -{C_text("f_1278:file_2escm"),(void*)f_1278}, -{C_text("f_1281:file_2escm"),(void*)f_1281}, -{C_text("f_1298:file_2escm"),(void*)f_1298}, -{C_text("f_1323:file_2escm"),(void*)f_1323}, -{C_text("f_1326:file_2escm"),(void*)f_1326}, -{C_text("f_1329:file_2escm"),(void*)f_1329}, -{C_text("f_1332:file_2escm"),(void*)f_1332}, -{C_text("f_1335:file_2escm"),(void*)f_1335}, -{C_text("f_1338:file_2escm"),(void*)f_1338}, -{C_text("f_1345:file_2escm"),(void*)f_1345}, -{C_text("f_1347:file_2escm"),(void*)f_1347}, -{C_text("f_1357:file_2escm"),(void*)f_1357}, -{C_text("f_1360:file_2escm"),(void*)f_1360}, -{C_text("f_1363:file_2escm"),(void*)f_1363}, -{C_text("f_1370:file_2escm"),(void*)f_1370}, -{C_text("f_1377:file_2escm"),(void*)f_1377}, -{C_text("f_1389:file_2escm"),(void*)f_1389}, -{C_text("f_1428:file_2escm"),(void*)f_1428}, -{C_text("f_1453:file_2escm"),(void*)f_1453}, -{C_text("f_1456:file_2escm"),(void*)f_1456}, -{C_text("f_1459:file_2escm"),(void*)f_1459}, -{C_text("f_1462:file_2escm"),(void*)f_1462}, -{C_text("f_1465:file_2escm"),(void*)f_1465}, -{C_text("f_1468:file_2escm"),(void*)f_1468}, -{C_text("f_1475:file_2escm"),(void*)f_1475}, -{C_text("f_1477:file_2escm"),(void*)f_1477}, -{C_text("f_1487:file_2escm"),(void*)f_1487}, -{C_text("f_1490:file_2escm"),(void*)f_1490}, -{C_text("f_1493:file_2escm"),(void*)f_1493}, -{C_text("f_1496:file_2escm"),(void*)f_1496}, -{C_text("f_1503:file_2escm"),(void*)f_1503}, -{C_text("f_1510:file_2escm"),(void*)f_1510}, -{C_text("f_1522:file_2escm"),(void*)f_1522}, -{C_text("f_1561:file_2escm"),(void*)f_1561}, -{C_text("f_1565:file_2escm"),(void*)f_1565}, -{C_text("f_1571:file_2escm"),(void*)f_1571}, -{C_text("f_1577:file_2escm"),(void*)f_1577}, -{C_text("f_1586:file_2escm"),(void*)f_1586}, -{C_text("f_1594:file_2escm"),(void*)f_1594}, -{C_text("f_1606:file_2escm"),(void*)f_1606}, -{C_text("f_1612:file_2escm"),(void*)f_1612}, -{C_text("f_1618:file_2escm"),(void*)f_1618}, -{C_text("f_1626:file_2escm"),(void*)f_1626}, -{C_text("f_1631:file_2escm"),(void*)f_1631}, -{C_text("f_1635:file_2escm"),(void*)f_1635}, -{C_text("f_1639:file_2escm"),(void*)f_1639}, -{C_text("f_1643:file_2escm"),(void*)f_1643}, -{C_text("f_1657:file_2escm"),(void*)f_1657}, -{C_text("f_1663:file_2escm"),(void*)f_1663}, -{C_text("f_1669:file_2escm"),(void*)f_1669}, -{C_text("f_1675:file_2escm"),(void*)f_1675}, -{C_text("f_1682:file_2escm"),(void*)f_1682}, -{C_text("f_1695:file_2escm"),(void*)f_1695}, -{C_text("f_1699:file_2escm"),(void*)f_1699}, -{C_text("f_1703:file_2escm"),(void*)f_1703}, -{C_text("f_1707:file_2escm"),(void*)f_1707}, -{C_text("f_1711:file_2escm"),(void*)f_1711}, -{C_text("f_1715:file_2escm"),(void*)f_1715}, -{C_text("f_1723:file_2escm"),(void*)f_1723}, -{C_text("f_1729:file_2escm"),(void*)f_1729}, -{C_text("f_1744:file_2escm"),(void*)f_1744}, -{C_text("f_1750:file_2escm"),(void*)f_1750}, -{C_text("f_1757:file_2escm"),(void*)f_1757}, -{C_text("f_1764:file_2escm"),(void*)f_1764}, -{C_text("f_1767:file_2escm"),(void*)f_1767}, -{C_text("f_1769:file_2escm"),(void*)f_1769}, -{C_text("f_1786:file_2escm"),(void*)f_1786}, -{C_text("f_1790:file_2escm"),(void*)f_1790}, -{C_text("f_1798:file_2escm"),(void*)f_1798}, -{C_text("f_1802:file_2escm"),(void*)f_1802}, -{C_text("f_1810:file_2escm"),(void*)f_1810}, -{C_text("f_1828:file_2escm"),(void*)f_1828}, -{C_text("f_1834:file_2escm"),(void*)f_1834}, -{C_text("f_1840:file_2escm"),(void*)f_1840}, -{C_text("f_1876:file_2escm"),(void*)f_1876}, -{C_text("f_1878:file_2escm"),(void*)f_1878}, -{C_text("f_1883:file_2escm"),(void*)f_1883}, -{C_text("f_1889:file_2escm"),(void*)f_1889}, -{C_text("f_1900:file_2escm"),(void*)f_1900}, -{C_text("f_1904:file_2escm"),(void*)f_1904}, -{C_text("f_1908:file_2escm"),(void*)f_1908}, -{C_text("f_1914:file_2escm"),(void*)f_1914}, -{C_text("f_1918:file_2escm"),(void*)f_1918}, -{C_text("f_1921:file_2escm"),(void*)f_1921}, -{C_text("f_1924:file_2escm"),(void*)f_1924}, -{C_text("f_1927:file_2escm"),(void*)f_1927}, -{C_text("f_1930:file_2escm"),(void*)f_1930}, -{C_text("f_1933:file_2escm"),(void*)f_1933}, -{C_text("f_1939:file_2escm"),(void*)f_1939}, -{C_text("f_1942:file_2escm"),(void*)f_1942}, -{C_text("f_1949:file_2escm"),(void*)f_1949}, -{C_text("f_1951:file_2escm"),(void*)f_1951}, -{C_text("f_1964:file_2escm"),(void*)f_1964}, -{C_text("f_1973:file_2escm"),(void*)f_1973}, -{C_text("f_1995:file_2escm"),(void*)f_1995}, -{C_text("f_1998:file_2escm"),(void*)f_1998}, -{C_text("f_2007:file_2escm"),(void*)f_2007}, -{C_text("f_2017:file_2escm"),(void*)f_2017}, -{C_text("f_2019:file_2escm"),(void*)f_2019}, -{C_text("f_2024:file_2escm"),(void*)f_2024}, -{C_text("f_2032:file_2escm"),(void*)f_2032}, -{C_text("f_2036:file_2escm"),(void*)f_2036}, -{C_text("f_2039:file_2escm"),(void*)f_2039}, -{C_text("f_2044:file_2escm"),(void*)f_2044}, -{C_text("f_2054:file_2escm"),(void*)f_2054}, -{C_text("f_2057:file_2escm"),(void*)f_2057}, -{C_text("f_2066:file_2escm"),(void*)f_2066}, -{C_text("f_2078:file_2escm"),(void*)f_2078}, -{C_text("f_2085:file_2escm"),(void*)f_2085}, -{C_text("f_2094:file_2escm"),(void*)f_2094}, -{C_text("f_2095:file_2escm"),(void*)f_2095}, -{C_text("f_2103:file_2escm"),(void*)f_2103}, -{C_text("f_2111:file_2escm"),(void*)f_2111}, -{C_text("f_2117:file_2escm"),(void*)f_2117}, -{C_text("f_2120:file_2escm"),(void*)f_2120}, -{C_text("f_2123:file_2escm"),(void*)f_2123}, -{C_text("f_2126:file_2escm"),(void*)f_2126}, -{C_text("f_2129:file_2escm"),(void*)f_2129}, -{C_text("f_2131:file_2escm"),(void*)f_2131}, -{C_text("f_2137:file_2escm"),(void*)f_2137}, -{C_text("f_2139:file_2escm"),(void*)f_2139}, -{C_text("f_737:file_2escm"),(void*)f_737}, -{C_text("f_740:file_2escm"),(void*)f_740}, -{C_text("f_743:file_2escm"),(void*)f_743}, -{C_text("f_746:file_2escm"),(void*)f_746}, -{C_text("f_758:file_2escm"),(void*)f_758}, -{C_text("f_762:file_2escm"),(void*)f_762}, -{C_text("f_769:file_2escm"),(void*)f_769}, -{C_text("f_773:file_2escm"),(void*)f_773}, -{C_text("f_775:file_2escm"),(void*)f_775}, -{C_text("f_785:file_2escm"),(void*)f_785}, -{C_text("f_787:file_2escm"),(void*)f_787}, -{C_text("f_797:file_2escm"),(void*)f_797}, -{C_text("f_799:file_2escm"),(void*)f_799}, -{C_text("f_807:file_2escm"),(void*)f_807}, -{C_text("f_826:file_2escm"),(void*)f_826}, -{C_text("f_829:file_2escm"),(void*)f_829}, -{C_text("f_835:file_2escm"),(void*)f_835}, -{C_text("f_841:file_2escm"),(void*)f_841}, -{C_text("f_847:file_2escm"),(void*)f_847}, -{C_text("f_851:file_2escm"),(void*)f_851}, -{C_text("f_866:file_2escm"),(void*)f_866}, -{C_text("f_869:file_2escm"),(void*)f_869}, -{C_text("f_872:file_2escm"),(void*)f_872}, -{C_text("f_876:file_2escm"),(void*)f_876}, -{C_text("f_890:file_2escm"),(void*)f_890}, -{C_text("f_904:file_2escm"),(void*)f_904}, -{C_text("f_916:file_2escm"),(void*)f_916}, -{C_text("f_926:file_2escm"),(void*)f_926}, -{C_text("f_984:file_2escm"),(void*)f_984}, -{C_text("f_994:file_2escm"),(void*)f_994}, -{C_text("toplevel:file_2escm"),(void*)C_file_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.file#d -o|hiding unexported module binding: chicken.file#define-alias -o|hiding unexported module binding: chicken.file#posix-error -o|hiding unexported module binding: chicken.file#test-access -S|applied compiler syntax: -S| scheme#for-each 1 -o|eliminated procedure checks: 22 -o|specializations: -o| 1 (##sys#call-with-values (procedure () *) *) -o| 1 (scheme#cdr pair) -o| 2 (scheme#number->string * *) -o| 2 (scheme#integer? *) -o| 1 (##sys#check-list (or pair list) *) -o| 1 (scheme#string-length string) -o| 1 (scheme#string-ref string fixnum) -(o e)|safe calls: 199 -o|dropping redundant toplevel assignment: chicken.file#create-temporary-file -o|dropping redundant toplevel assignment: chicken.file#create-temporary-directory -o|safe globals: (chicken.file#find-files chicken.file#glob chicken.file#create-temporary-directory chicken.file#create-temporary-file chicken.file#move-file chicken.file#copy-file chicken.file#rename-file chicken.file#delete-file* chicken.file#delete-file chicken.file#delete-directory chicken.file#create-directory chicken.file#directory chicken.file#file-executable? chicken.file#file-writable? chicken.file#file-readable? chicken.file#test-access chicken.file#directory-exists? chicken.file#file-exists? chicken.file#posix-error) -o|merged explicitly consed rest parameter: args150 -o|contracted procedure: "(file.scm:120) strerror140" -o|inlining procedure: k780 -o|inlining procedure: k780 -o|inlining procedure: k792 -o|inlining procedure: k792 -o|inlining procedure: k811 -o|inlining procedure: k811 -o|consed rest parameter at call site: "(file.scm:146) chicken.file#posix-error" 4 -o|inlining procedure: k877 -o|consed rest parameter at call site: "(file.scm:164) chicken.file#posix-error" 4 -o|inlining procedure: k877 -o|inlining procedure: k892 -o|inlining procedure: k892 -o|inlining procedure: k933 -o|inlining procedure: k933 -o|substituted constant variable: a955 -o|inlining procedure: k992 -o|inlining procedure: k992 -o|inlining procedure: k1014 -o|contracted procedure: "(file.scm:197) g232233" -o|inlining procedure: k1025 -o|inlining procedure: k1025 -o|consed rest parameter at call site: "(file.scm:185) chicken.file#posix-error" 4 -o|inlining procedure: k1014 -o|inlining procedure: k1062 -o|inlining procedure: k1062 -o|contracted procedure: "(file.scm:198) g250251" -o|inlining procedure: k1070 -o|inlining procedure: k1070 -o|consed rest parameter at call site: "(file.scm:185) chicken.file#posix-error" 4 -o|inlining procedure: k1110 -o|inlining procedure: k1110 -o|consed rest parameter at call site: "(file.scm:206) chicken.file#posix-error" 4 -o|inlining procedure: k1131 -o|propagated global variable: r11322167 chicken.file#delete-file -o|inlining procedure: k1131 -o|contracted procedure: "(file.scm:215) g291292" -o|inlining procedure: k1123 -o|inlining procedure: k1161 -o|inlining procedure: k1161 -o|inlining procedure: k1123 -o|inlining procedure: k1196 -o|inlining procedure: k1196 -o|inlining procedure: k1225 -o|inlining procedure: k1225 -o|inlining procedure: k1249 -o|inlining procedure: k1249 -o|inlining procedure: k1349 -o|inlining procedure: k1349 -o|inlining procedure: k1479 -o|inlining procedure: k1479 -o|inlining procedure: k1566 -o|inlining procedure: k1566 -o|inlining procedure: k1578 -o|inlining procedure: k1578 -o|inlining procedure: k1587 -o|inlining procedure: k1587 -o|inlining procedure: k1613 -o|inlining procedure: k1613 -o|contracted procedure: "(file.scm:330) getpid428" -o|substituted constant variable: a1649 -o|inlining procedure: k1670 -o|inlining procedure: k1670 -o|contracted procedure: "(file.scm:346) getpid437" -o|substituted constant variable: a1721 -o|inlining procedure: k1731 -o|inlining procedure: k1731 -o|inlining procedure: k1771 -o|inlining procedure: k1771 -o|inlining procedure: k1845 -o|inlining procedure: k1845 -o|inlining procedure: k1854 -o|inlining procedure: k1854 -o|merged explicitly consed rest parameter: args490505 -o|consed rest parameter at call site: tmp2728 1 -o|inlining procedure: k1910 -o|inlining procedure: k1910 -o|inlining procedure: k1953 -o|inlining procedure: k1953 -o|inlining procedure: k1974 -o|inlining procedure: k1974 -o|inlining procedure: k1993 -o|inlining procedure: k1993 -o|inlining procedure: k2002 -o|inlining procedure: k2034 -o|inlining procedure: k2034 -o|inlining procedure: k2002 -o|inlining procedure: k2052 -o|inlining procedure: k2052 -o|contracted procedure: "(file.scm:407) g550551" -o|inlining procedure: k2073 -o|inlining procedure: k2073 -o|inlining procedure: k2105 -o|inlining procedure: k2105 -o|replaced variables: 400 -o|removed binding forms: 97 -o|substituted constant variable: r7812142 -o|substituted constant variable: r7932144 -o|substituted constant variable: r8932149 -o|substituted constant variable: loc234 -o|substituted constant variable: loc234 -o|substituted constant variable: loc252 -o|substituted constant variable: loc252 -o|propagated global variable: g2852862168 chicken.file#delete-file -o|inlining procedure: k1131 -o|inlining procedure: k1131 -o|propagated global variable: r11322250 chicken.file#delete-file -o|propagated global variable: r11322250 chicken.file#delete-file -o|substituted constant variable: loc294 -o|converted assignments to bindings: (rmdir268) -o|substituted constant variable: r12262184 -o|substituted constant variable: r15882198 -o|substituted constant variable: r17322203 -o|substituted constant variable: r18462207 -o|substituted constant variable: r18552210 -o|substituted constant variable: r19112213 -o|substituted constant variable: r19112213 -o|substituted constant variable: loc553 -o|converted assignments to bindings: (tempdir405) -o|simplifications: ((let . 2)) -o|replaced variables: 37 -o|removed binding forms: 294 -o|inlining procedure: k936 -o|inlining procedure: k992 -o|inlining procedure: k1279 -o|inlining procedure: k1375 -o|inlining procedure: k1393 -o|inlining procedure: k1508 -o|inlining procedure: k1526 -o|inlining procedure: k1645 -o|inlining procedure: k1717 -o|inlining procedure: k1848 -o|inlining procedure: k1848 -o|inlining procedure: k1848 -o|inlining procedure: k2067 -o|replaced variables: 1 -o|removed binding forms: 53 -o|substituted constant variable: r9372287 -o|substituted constant variable: r9372287 -o|contracted procedure: k1143 -o|substituted constant variable: r12802295 -o|substituted constant variable: r13762298 -o|substituted constant variable: r13942299 -o|substituted constant variable: r15092302 -o|substituted constant variable: r15272303 -o|substituted constant variable: r18492312 -o|substituted constant variable: r18492314 -o|substituted constant variable: r18492316 -o|simplifications: ((let . 2)) -o|removed binding forms: 9 -o|removed conditional forms: 9 -o|removed binding forms: 10 -o|simplifications: ((if . 22) (let . 10) (##core#call . 112)) -o| call simplifications: -o| chicken.base#fixnum? -o| chicken.fixnum#fx< -o| scheme#procedure? -o| scheme#member -o| ##sys#apply -o| ##sys#structure? -o| scheme#memv 3 -o| ##sys#check-number 2 -o| scheme#> 2 -o| chicken.fixnum#fx+ 3 -o| scheme#pair? 2 -o| ##sys#slot 5 -o| ##sys#call-with-values 2 -o| scheme#car 12 -o| scheme#null? 18 -o| scheme#cdr 8 -o| ##sys#null-pointer? 2 -o| ##sys#size -o| scheme#string-ref -o| chicken.fixnum#fx> -o| scheme#eq? 6 -o| scheme#not 10 -o| scheme#cons 3 -o| chicken.fixnum#fx= 8 -o| ##sys#check-string 15 -o| ##sys#foreign-fixnum-argument -o| scheme#apply -o|contracted procedure: k755 -o|contracted procedure: k777 -o|contracted procedure: k789 -o|contracted procedure: k801 -o|contracted procedure: k808 -o|contracted procedure: k817 -o|contracted procedure: k968 -o|contracted procedure: k852 -o|contracted procedure: k962 -o|contracted procedure: k855 -o|contracted procedure: k956 -o|contracted procedure: k858 -o|contracted procedure: k861 -o|contracted procedure: k880 -o|contracted procedure: k895 -o|contracted procedure: k899 -o|contracted procedure: k905 -o|contracted procedure: k951 -o|contracted procedure: k908 -o|contracted procedure: k927 -o|contracted procedure: k930 -o|contracted procedure: k945 -o|contracted procedure: k936 -o|contracted procedure: k974 -o|contracted procedure: k1092 -o|contracted procedure: k986 -o|contracted procedure: k989 -o|contracted procedure: k995 -o|contracted procedure: k1028 -o|contracted procedure: k1073 -o|contracted procedure: k1184 -o|contracted procedure: k1101 -o|contracted procedure: k1113 -o|contracted procedure: k1120 -o|contracted procedure: k1164 -o|contracted procedure: k1174 -o|contracted procedure: k1178 -o|contracted procedure: k1193 -o|contracted procedure: k1199 -o|contracted procedure: k1291 -o|contracted procedure: k1237 -o|contracted procedure: k1240 -o|contracted procedure: k1243 -o|contracted procedure: k1252 -o|contracted procedure: k1285 -o|contracted procedure: k1421 -o|contracted procedure: k1300 -o|contracted procedure: k1415 -o|contracted procedure: k1303 -o|contracted procedure: k1409 -o|contracted procedure: k1306 -o|contracted procedure: k1403 -o|contracted procedure: k1309 -o|contracted procedure: k1312 -o|contracted procedure: k1315 -o|contracted procedure: k1318 -o|contracted procedure: k1352 -o|contracted procedure: k1372 -o|contracted procedure: k1381 -o|contracted procedure: k1393 -o|substituted constant variable: g2392 -o|contracted procedure: k1554 -o|contracted procedure: k1430 -o|contracted procedure: k1548 -o|contracted procedure: k1433 -o|contracted procedure: k1542 -o|contracted procedure: k1436 -o|contracted procedure: k1536 -o|contracted procedure: k1439 -o|contracted procedure: k1442 -o|contracted procedure: k1445 -o|contracted procedure: k1448 -o|contracted procedure: k1482 -o|contracted procedure: k1505 -o|contracted procedure: k1514 -o|contracted procedure: k1526 -o|substituted constant variable: g2396 -o|contracted procedure: k1650 -o|contracted procedure: k1596 -o|contracted procedure: k1599 -o|contracted procedure: k1686 -o|contracted procedure: k1734 -o|contracted procedure: k1737 -o|contracted procedure: k1752 -o|contracted procedure: k1824 -o|contracted procedure: k1774 -o|contracted procedure: k1781 -o|contracted procedure: k1804 -o|contracted procedure: k1820 -o|contracted procedure: k1869 -o|contracted procedure: k1842 -o|contracted procedure: k1857 -o|contracted procedure: k1863 -o|contracted procedure: k1848 -o|contracted procedure: k1934 -o|contracted procedure: k1956 -o|contracted procedure: k1959 -o|contracted procedure: k1965 -o|contracted procedure: k1977 -o|contracted procedure: k1986 -o|contracted procedure: k2012 -o|contracted procedure: k2089 -o|contracted procedure: k2100 -o|contracted procedure: k2108 -o|simplifications: ((if . 1) (let . 26)) -o|replaced variables: 2 -o|removed binding forms: 102 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest218220 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest218220 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest260262 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest260262 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest314317 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest314317 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest332335 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest332335 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest332335 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest332335 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest368371 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest368371 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest368371 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest368371 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest419420 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest419420 0 -o|replaced variables: 2 -o|removed binding forms: 4 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1304 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r1304 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1304 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r1304 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1434 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r1434 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r1434 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r1434 1 -o|removed binding forms: 1 -o|removed binding forms: 4 -o|customizable procedures: (k1937 k1940 loop534 tmp1727 tmp2728 g478479 loop470 conc-loop447 loop435 tempdir405 loop426 loop387 loop351 g275282 for-each-loop274295 rmdir268 k1017 loop229 k914 loop195 chicken.file#test-access chicken.file#posix-error) -o|calls to known targets: 71 -o|unused rest argument: rest218220 f_984 -o|unused rest argument: rest260262 f_1099 -o|unused rest argument: rest314317 f_1235 -o|unused rest argument: rest332335 f_1298 -o|unused rest argument: rest368371 f_1428 -o|unused rest argument: rest419420 f_1594 -o|unused rest argument: _529 f_2103 -o|unused rest argument: _530 f_2111 -o|unused rest argument: _515 f_2139 -o|fast box initializations: 10 -o|fast global references: 8 -o|fast global assignments: 2 -o|dropping unused closure argument: f_1105 -o|dropping unused closure argument: f_1561 -o|dropping unused closure argument: f_758 -o|dropping unused closure argument: f_799 -*/ -/* end of file */ diff --git a/chicken/src/internal.c b/chicken/src/internal.c deleted file mode 100644 index f65b84f..0000000 --- a/chicken/src/internal.c +++ /dev/null @@ -1,2347 +0,0 @@ -/* Generated from internal.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: internal.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file internal.c -emit-import-library chicken.internal - unit: internal - uses: library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[44]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,53,55,50,32,105,41,0,0,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,115,116,114,105,110,103,45,62,99,45,105,100,101,110,116,105,102,105,101,114,32,115,116,114,41,0,0,0,0,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,118,97,108,105,100,45,108,105,98,114,97,114,121,45,115,112,101,99,105,102,105,101,114,63,32,120,41,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,6),40,102,97,105,108,41,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,24),40,108,105,98,114,97,114,121,45,112,97,114,116,45,62,115,116,114,105,110,103,32,120,41}; -static C_char li6[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,54,49,52,32,108,115,116,32,115,116,114,41,0,0,0,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,108,105,98,114,97,114,121,45,105,100,32,108,105,98,41,0,0,0,0,0,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,111,100,117,108,101,45,114,101,113,117,105,114,101,109,101,110,116,32,105,100,41}; -static C_char li9[] C_aligned={C_lihdr(0,0,21),40,108,111,111,112,32,98,115,32,115,101,101,110,32,119,97,114,110,101,100,41,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,64),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,99,104,101,99,107,45,102,111,114,45,109,117,108,116,105,112,108,101,45,98,105,110,100,105,110,103,115,32,98,105,110,100,105,110,103,115,32,102,111,114,109,32,108,111,99,41}; -static C_char li11[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,97,99,114,111,45,115,117,98,115,101,116,32,109,101,48,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,11),40,103,54,55,55,32,115,100,101,102,41,0,0,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,55,54,32,103,54,56,51,41,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,102,105,120,117,112,45,109,97,99,114,111,45,101,110,118,105,114,111,110,109,101,110,116,32,115,101,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,115,121,109,98,111,108,32,110,41}; -static C_char li17[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,109,97,107,101,45,104,97,115,104,45,116,97,98,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,114,101,102,32,104,116,32,107,101,121,41}; -static C_char li20[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,98,117,99,107,101,116,41,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,115,101,116,33,32,104,116,32,107,101,121,32,118,97,108,41,0,0,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,62),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,117,112,100,97,116,101,33,32,104,116,32,107,101,121,32,117,112,100,116,102,117,110,99,32,118,97,108,117,102,117,110,99,41,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,13),40,103,55,52,55,32,98,117,99,107,101,116,41,0,0,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,52,54,32,103,55,53,51,41,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,55,52,49,32,105,41,0,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,102,111,114,45,101,97,99,104,32,112,32,104,116,41,0,0,0,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,108,101,110,32,98,107,116,32,115,105,122,101,41,0,0,0,0,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,110,116,101,114,110,97,108,35,104,97,115,104,45,116,97,98,108,101,45,115,105,122,101,32,104,116,41,0,0,0}; -static C_char li29[] 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_1022) -static void C_ccall f_1022(C_word c,C_word *av) C_noret; -C_noret_decl(f_1399) -static C_word f_1399(C_word t0); -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_2314) -static void f_2314(C_word t0,C_word t1,C_word t2) 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_2340) -static void f_2340(C_word t0,C_word t1) 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_2356) -static void C_ccall f_2356(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_2429) -static void C_ccall f_2429(C_word c,C_word *av) C_noret; -C_noret_decl(f_2432) -static void f_2432(C_word t0,C_word t1) C_noret; -C_noret_decl(f_2475) -static void f_2475(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_2527) -static void f_2527(C_word t0,C_word t1) C_noret; -C_noret_decl(f_2534) -static void C_ccall f_2534(C_word c,C_word *av) C_noret; -C_noret_decl(f_2538) -static void C_ccall f_2538(C_word c,C_word *av) C_noret; -C_noret_decl(f_2553) -static void C_ccall f_2553(C_word c,C_word *av) C_noret; -C_noret_decl(f_2555) -static void f_2555(C_word t0,C_word t1,C_word t2,C_word t3) 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_2580) -static void C_ccall f_2580(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_2598) -static void C_ccall f_2598(C_word c,C_word *av) C_noret; -C_noret_decl(f_2602) -static void C_ccall f_2602(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_2610) -static void f_2610(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_2623) -static void f_2623(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_2643) -static void C_ccall f_2643(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_2685) -static void C_ccall f_2685(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_2694) -static void f_2694(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_2715) -static void C_ccall f_2715(C_word c,C_word *av) C_noret; -C_noret_decl(f_2728) -static void C_ccall f_2728(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_2736) -static void f_2736(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_2752) -static void C_ccall f_2752(C_word c,C_word *av) C_noret; -C_noret_decl(f_2775) -static void C_ccall f_2775(C_word c,C_word *av) C_noret; -C_noret_decl(f_2777) -static void f_2777(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_2787) -static void C_ccall f_2787(C_word c,C_word *av) C_noret; -C_noret_decl(f_2809) -static C_word f_2809(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_2831) -static void C_ccall f_2831(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_2856) -static C_word f_2856(C_word t0,C_word t1); -C_noret_decl(f_2905) -static void C_ccall f_2905(C_word c,C_word *av) C_noret; -C_noret_decl(f_2917) -static void f_2917(C_word t0,C_word t1,C_word t2) 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_2977) -static void C_ccall f_2977(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_2984) -static void C_ccall f_2984(C_word c,C_word *av) C_noret; -C_noret_decl(f_2989) -static void C_ccall f_2989(C_word c,C_word *av) C_noret; -C_noret_decl(f_2995) -static void f_2995(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_3003) -static void f_3003(C_word t0,C_word t1,C_word t2) 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_3033) -static void f_3033(C_word t0,C_word t1,C_word t2) 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_3056) -static void C_ccall f_3056(C_word c,C_word *av) C_noret; -C_noret_decl(f_3066) -static void f_3066(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_3088) -static void C_ccall f_3088(C_word c,C_word *av) C_noret; -C_noret_decl(C_internal_toplevel) -C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_2314) -static void C_ccall trf_2314(C_word c,C_word *av) C_noret; -static void C_ccall trf_2314(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2314(t0,t1,t2);} - -C_noret_decl(trf_2340) -static void C_ccall trf_2340(C_word c,C_word *av) C_noret; -static void C_ccall trf_2340(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_2340(t0,t1);} - -C_noret_decl(trf_2432) -static void C_ccall trf_2432(C_word c,C_word *av) C_noret; -static void C_ccall trf_2432(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_2432(t0,t1);} - -C_noret_decl(trf_2475) -static void C_ccall trf_2475(C_word c,C_word *av) C_noret; -static void C_ccall trf_2475(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2475(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_2555) -static void C_ccall trf_2555(C_word c,C_word *av) C_noret; -static void C_ccall trf_2555(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_2555(t0,t1,t2,t3);} - -C_noret_decl(trf_2610) -static void C_ccall trf_2610(C_word c,C_word *av) C_noret; -static void C_ccall trf_2610(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_2610(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_2623) -static void C_ccall trf_2623(C_word c,C_word *av) C_noret; -static void C_ccall trf_2623(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_2623(t0,t1);} - -C_noret_decl(trf_2694) -static void C_ccall trf_2694(C_word c,C_word *av) C_noret; -static void C_ccall trf_2694(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2694(t0,t1,t2);} - -C_noret_decl(trf_2736) -static void C_ccall trf_2736(C_word c,C_word *av) C_noret; -static void C_ccall trf_2736(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2736(t0,t1,t2);} - -C_noret_decl(trf_2777) -static void C_ccall trf_2777(C_word c,C_word *av) C_noret; -static void C_ccall trf_2777(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2777(t0,t1,t2);} - -C_noret_decl(trf_2917) -static void C_ccall trf_2917(C_word c,C_word *av) C_noret; -static void C_ccall trf_2917(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2917(t0,t1,t2);} - -C_noret_decl(trf_2995) -static void C_ccall trf_2995(C_word c,C_word *av) C_noret; -static void C_ccall trf_2995(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_2995(t0,t1,t2);} - -C_noret_decl(trf_3003) -static void C_ccall trf_3003(C_word c,C_word *av) C_noret; -static void C_ccall trf_3003(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_3003(t0,t1,t2);} - -C_noret_decl(trf_3033) -static void C_ccall trf_3033(C_word c,C_word *av) C_noret; -static void C_ccall trf_3033(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_3033(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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_3066(t0,t1,t2,t3,t4);} - -/* k1020 */ -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 t21; -C_word t22; -C_word t23; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(49,c,6)))){ -C_save_and_reclaim((void *)f_1022,c,av);} -a=C_alloc(49); -t2=C_mutate((C_word*)lf[2]+1 /* (set! chicken.internal#string->c-identifier ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2302,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[8]+1 /* (set! chicken.internal#valid-library-specifier? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2389,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[9]+1 /* (set! chicken.internal#library-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2429,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[20]+1 /* (set! chicken.internal#module-requirement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2590,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[22]+1 /* (set! chicken.internal#check-for-multiple-bindings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2604,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[26]+1 /* (set! chicken.internal#macro-subset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2678,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[27]+1 /* (set! chicken.internal#fixup-macro-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2728,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); -t9=C_SCHEME_FALSE; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=C_SCHEME_FALSE; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_rand(C_fix(65536)); -t14=C_mutate(&lf[31] /* (set! chicken.internal#hash-symbol ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_2809,a[2]=t10,a[3]=t12,a[4]=t13,a[5]=((C_word)li16),tmp=(C_word)a,a+=6,tmp)); -t15=C_mutate((C_word*)lf[32]+1 /* (set! chicken.internal#make-hash-table ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2831,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[34]+1 /* (set! chicken.internal#hash-table-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2846,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[35]+1 /* (set! chicken.internal#hash-table-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2905,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate((C_word*)lf[36]+1 /* (set! chicken.internal#hash-table-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2969,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[37]+1 /* (set! chicken.internal#hash-table-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2989,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[38]+1 /* (set! chicken.internal#hash-table-size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3056,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[40]+1 /* (set! chicken.internal#default-imports ...) */,lf[41]); -t22=C_mutate((C_word*)lf[42]+1 /* (set! chicken.internal#default-syntax-imports ...) */,lf[43]); -t23=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t23; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} - -/* loop in chicken.internal#valid-library-specifier? in k1020 */ -static C_word f_1399(C_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); -t4=C_i_symbolp(t3); -if(C_truep(t4)){ -if(C_truep(C_i_not(t4))){ -return(C_SCHEME_FALSE);} -else{ -t7=C_u_i_cdr(t1); -t1=t7; -goto loop;}} -else{ -t5=C_fixnump(t3); -if(C_truep(C_i_not(t5))){ -return(C_SCHEME_FALSE);} -else{ -t7=C_u_i_cdr(t1); -t1=t7; -goto loop;}}}} - -/* chicken.internal#string->c-identifier in k1020 */ -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; -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_2302,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2306,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* internal.scm:69: scheme#open-output-string */ -t4=*((C_word*)lf[7]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k2304 in chicken.internal#string->c-identifier in k1020 */ -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(9,c,3)))){ -C_save_and_reclaim((void *)f_2306,c,av);} -a=C_alloc(9); -t2=C_i_string_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|6,a[1]=(C_word)f_2314,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t4,a[6]=((C_word)li0),tmp=(C_word)a,a+=7,tmp)); -t6=((C_word*)t4)[1]; -f_2314(t6,((C_word*)t0)[3],C_fix(0));} - -/* doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */ -static void f_2314(C_word t0,C_word t1,C_word t2){ -C_word 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_2314,3,t0,t1,t2);} -a=C_alloc(10); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ -/* internal.scm:72: scheme#get-output-string */ -t3=*((C_word*)lf[3]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=C_i_string_ref(((C_word*)t0)[4],t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2330,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2340,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t6=C_u_i_char_alphabeticp(t3); -if(C_truep(C_i_not(t6))){ -t7=C_u_i_char_numericp(t3); -t8=C_i_not(t7); -t9=t5; -f_2340(t9,(C_truep(t8)?t8:C_eqp(t2,C_fix(0))));} -else{ -t7=t5; -f_2340(t7,C_SCHEME_FALSE);}}} - -/* k2328 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */ -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,2)))){ -C_save_and_reclaim((void *)f_2330,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2314(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */ -static void f_2340(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_2340,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_fix(C_character_code(((C_word*)t0)[2])); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2346,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* ##sys#write-char/port */ -t4=*((C_word*)lf[6]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_make_character(95); -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -/* ##sys#write-char/port */ -t2=*((C_word*)lf[6]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k2344 in k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_2346,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2349,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],C_fix(16)))){ -/* ##sys#write-char/port */ -t3=*((C_word*)lf[6]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_make_character(48); -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_2349(2,av2);}}} - -/* k2347 in k2344 in k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_2349,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2356,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* ##sys#fixnum->string */ -t3=*((C_word*)lf[5]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(16); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k2354 in k2347 in k2344 in k2338 in doloop572 in k2304 in chicken.internal#string->c-identifier in k1020 */ -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(0,c,3)))){ -C_save_and_reclaim((void *)f_2356,c,av);} -/* internal.scm:79: scheme#display */ -t2=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.internal#valid-library-specifier? in k1020 */ -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 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_2389,c,av);} -a=C_alloc(3); -t3=C_i_symbolp(t2); -if(C_truep(t3)){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_listp(t2))){ -t4=C_i_nullp(t2); -if(C_truep(C_i_not(t4))){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1399,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=( - f_1399(t2) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} - -/* chicken.internal#library-id in k1020 */ -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 t5; -C_word t6; -C_word t7; -C_word 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(17,c,3)))){ -C_save_and_reclaim((void *)f_2429,c,av);} -a=C_alloc(17); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2432,a[2]=t2,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp)); -t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2475,a[2]=t4,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); -if(C_truep(C_i_symbolp(t2))){ -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -if(C_truep(C_i_nullp(t2))){ -/* internal.scm:105: fail */ -t9=((C_word*)t4)[1]; -f_2432(t9,t1);} -else{ -t9=C_i_listp(t2); -if(C_truep(C_i_not(t9))){ -/* internal.scm:106: fail */ -t10=((C_word*)t4)[1]; -f_2432(t10,t1);} -else{ -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2527,a[2]=t1,a[3]=t2,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -t11=C_i_cdr(t2); -if(C_truep(C_i_pairp(t11))){ -t12=C_i_cddr(t2); -if(C_truep(C_i_nullp(t12))){ -t13=C_eqp(lf[19],C_u_i_car(t2)); -if(C_truep(t13)){ -t14=C_u_i_cdr(t2); -t15=t10; -f_2527(t15,C_fixnump(C_u_i_car(t14)));} -else{ -t14=t10; -f_2527(t14,C_SCHEME_FALSE);}} -else{ -t13=t10; -f_2527(t13,C_SCHEME_FALSE);}} -else{ -t12=t10; -f_2527(t12,C_SCHEME_FALSE);}}}}} - -/* fail in chicken.internal#library-id in k1020 */ -static void f_2432(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_2432,2,t0,t1);} -/* internal.scm:93: ##sys#error */ -t2=*((C_word*)lf[10]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=t1; -av2[2]=lf[11]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* library-part->string in chicken.internal#library-id in k1020 */ -static void f_2475(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,0,2)))){ -C_save_and_reclaim_args((void *)trf_2475,3,t0,t1,t2);} -if(C_truep(C_i_symbolp(t2))){ -/* internal.scm:100: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[12]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} -else{ -if(C_truep(C_fixnump(t2))){ -/* internal.scm:101: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[13]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} -else{ -/* internal.scm:102: fail */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_2432(t3,t1);}}} - -/* k2525 in chicken.internal#library-id in k1020 */ -static void f_2527(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_2527,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2534,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2538,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* internal.scm:109: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[13]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[13]+1); -av2[1]=t3; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -tp(3,av2);}} -else{ -t2=C_i_cdr(((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2553,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* internal.scm:112: library-part->string */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_2475(t4,t3,C_u_i_car(((C_word*)t0)[3]));}} - -/* k2532 in k2525 in chicken.internal#library-id in k1020 */ -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,2)))){ -C_save_and_reclaim((void *)f_2534,c,av);} -/* internal.scm:108: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[14]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k2536 in k2525 in chicken.internal#library-id in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2538,c,av);} -/* internal.scm:109: ##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; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[15]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[16]; -av2[3]=t1; -tp(4,av2);}} - -/* k2551 in k2525 in chicken.internal#library-id in k1020 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_2553,c,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_2555,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li6),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_2555(t5,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* doloop614 in k2551 in k2525 in chicken.internal#library-id in k1020 */ -static void f_2555(C_word t0,C_word 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_2555,4,t0,t1,t2,t3);} -a=C_alloc(9); -if(C_truep(C_i_nullp(t2))){ -/* internal.scm:115: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[14]+1); -av2[1]=t1; -av2[2]=t3; -tp(3,av2);}} -else{ -t4=C_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2576,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2580,a[2]=t5,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* internal.scm:113: library-part->string */ -t7=((C_word*)((C_word*)t0)[3])[1]; -f_2475(t7,t6,C_u_i_car(t2));}} - -/* k2574 in doloop614 in k2551 in k2525 in chicken.internal#library-id in k1020 */ -static void C_ccall f_2576(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2576,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2555(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k2578 in doloop614 in k2551 in k2525 in chicken.internal#library-id in k1020 */ -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,4)))){ -C_save_and_reclaim((void *)f_2580,c,av);} -/* internal.scm:113: scheme#string-append */ -t2=*((C_word*)lf[17]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[18]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* chicken.internal#module-requirement in k1020 */ -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=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_2590,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2598,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_2602,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* internal.scm:122: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[12]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[12]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k2596 in chicken.internal#module-requirement in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_2598,c,av);} -/* internal.scm:121: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[14]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[14]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k2600 in chicken.internal#module-requirement in k1020 */ -static void C_ccall f_2602(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2602,c,av);} -/* internal.scm:122: ##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; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[15]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[21]; -tp(4,av2);}} - -/* chicken.internal#check-for-multiple-bindings in k1020 */ -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=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ -C_save_and_reclaim((void *)f_2604,c,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_2610,a[2]=t6,a[3]=t3,a[4]=t4,a[5]=((C_word)li9),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_2610(t8,t1,t2,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} - -/* loop in chicken.internal#check-for-multiple-bindings in k1020 */ -static void f_2610(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(9,0,2)))){ -C_save_and_reclaim_args((void *)trf_2610,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_2623,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=C_u_i_car(t2); -t9=t6; -f_2623(t9,C_i_not(C_i_memq(C_u_i_car(t8),t4)));} -else{ -t8=t6; -f_2623(t8,C_SCHEME_FALSE);}}} - -/* k2621 in loop in chicken.internal#check-for-multiple-bindings in k1020 */ -static void f_2623(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ -C_save_and_reclaim_args((void *)trf_2623,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,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],tmp=(C_word)a,a+=7,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2643,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); -/* internal.scm:134: scheme#string-append */ -t4=*((C_word*)lf[17]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[24]; -av2[3]=((C_word*)t0)[8]; -av2[4]=lf[25]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_caar(((C_word*)t0)[2]); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[6]); -/* internal.scm:138: loop */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_2610(t5,((C_word*)t0)[5],t2,t4,((C_word*)t0)[3]);}} - -/* k2624 in k2621 in loop in chicken.internal#check-for-multiple-bindings in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_2626,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_caar(((C_word*)t0)[2]); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); -/* internal.scm:137: loop */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_2610(t5,((C_word*)t0)[5],t2,((C_word*)t0)[6],t4);} - -/* k2641 in k2621 in loop in chicken.internal#check-for-multiple-bindings in k1020 */ -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(0,c,4)))){ -C_save_and_reclaim((void *)f_2643,c,av);} -t2=C_u_i_car(((C_word*)t0)[2]); -/* internal.scm:133: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[23]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[23]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_u_i_car(t2); -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* chicken.internal#macro-subset in k1020 */ -static void C_ccall f_2678(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_2678,c,av);} -a=C_alloc(8); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2685,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2692,a[2]=t2,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* internal.scm:143: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[28]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[28]+1); -av2[1]=t6; -tp(2,av2);}} - -/* k2683 in chicken.internal#macro-subset in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2685,c,av);} -/* internal.scm:147: fixup-macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[27]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[27]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k2690 in chicken.internal#macro-subset in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_2692,c,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_2694,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li11),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_2694(t5,((C_word*)t0)[3],t1);} - -/* loop in k2690 in chicken.internal#macro-subset in k1020 */ -static void f_2694(C_word t0,C_word t1,C_word t2){ -C_word 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_2694,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2715,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* internal.scm:146: loop */ -t8=t6; -t9=C_u_i_cdr(t2); -t1=t8; -t2=t9; -goto loop;}} - -/* k2713 in loop in k2690 in chicken.internal#macro-subset in k1020 */ -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(3,c,1)))){ -C_save_and_reclaim((void *)f_2715,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.internal#fixup-macro-environment in k1020 */ -static void C_ccall f_2728(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_2728,c,av);} -a=C_alloc(4); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2735,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t4)){ -/* internal.scm:151: ##sys#append */ -t6=*((C_word*)lf[29]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t2; -f_2735(2,av2);}}} - -/* k2733 in chicken.internal#fixup-macro-environment in k1020 */ -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 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_2735,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2736,a[2]=t1,a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[2],lf[30]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2775,a[2]=((C_word*)t0)[3],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_2777,a[2]=t6,a[3]=t2,a[4]=((C_word)li14),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_2777(t8,t4,((C_word*)t0)[2]);} - -/* g677 in k2733 in chicken.internal#fixup-macro-environment in k1020 */ -static void f_2736(C_word t0,C_word t1,C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_2736,3,t0,t1,t2);} -a=C_alloc(4); -t3=C_i_cdr(t2); -if(C_truep(C_i_pairp(t3))){ -t4=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2752,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=C_i_cadr(t2); -if(C_truep(C_i_nullp(t6))){ -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_i_set_car(t4,((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_u_i_cdr(t2); -/* internal.scm:159: ##sys#append */ -t8=*((C_word*)lf[29]+1);{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t5; -av2[2]=C_u_i_car(t7); -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t8+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);}}} - -/* k2750 in g677 in k2733 in chicken.internal#fixup-macro-environment in k1020 */ -static void C_ccall f_2752(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2752,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_set_car(((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k2773 in k2733 in chicken.internal#fixup-macro-environment in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_2775,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* for-each-loop676 in k2733 in chicken.internal#fixup-macro-environment in k1020 */ -static void f_2777(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_2777,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2787,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* internal.scm:152: g677 */ -t4=((C_word*)t0)[3]; -f_2736(t4,t3,C_slot(t2,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);}}} - -/* k2785 in for-each-loop676 in k2733 in chicken.internal#fixup-macro-environment in k1020 */ -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,2)))){ -C_save_and_reclaim((void *)f_2787,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2777(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* chicken.internal#hash-symbol in k1020 */ -static C_word 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 t8; -C_word t9; -C_stack_overflow_check;{} -t3=C_eqp(t1,((C_word*)((C_word*)t0)[2])[1]); -if(C_truep(t3)){ -return(C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2));} -else{ -t4=C_slot(t1,C_fix(1)); -t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t6=C_block_size(t4); -t7=C_fixnum_difference(t6,C_fix(1)); -t8=C_mutate(((C_word *)((C_word*)t0)[3])+1,C_u_i_bytevector_hash(t4,C_fix(0),t7,((C_word*)t0)[4])); -return(C_fixnum_modulo(((C_word*)((C_word*)t0)[3])[1],t2));}} - -/* chicken.internal#make-hash-table in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_2831,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -/* internal.scm:180: scheme#make-vector */ -t2=*((C_word*)lf[33]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=t1; -av2[2]=C_fix(301); -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -/* internal.scm:180: scheme#make-vector */ -t2=*((C_word*)lf[33]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=t1; -av2[2]=C_get_rest_arg(c,2,av,2,t0); -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* chicken.internal#hash-table-ref in k1020 */ -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; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_2846,c,av);} -a=C_alloc(4); -t4=( -/* internal.scm:183: hash-symbol */ - f_2809(lf[31],t3,C_block_size(t2)) -); -t5=C_slot(t2,t4); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2856,a[2]=t3,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=( - f_2856(t6,t5) -); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* loop in chicken.internal#hash-table-ref in k1020 */ -static C_word f_2856(C_word t0,C_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(C_SCHEME_END_OF_LIST,t1); -if(C_truep(C_i_not(t2))){ -t3=C_slot(t1,C_fix(0)); -t4=C_slot(t3,C_fix(0)); -t5=C_eqp(((C_word*)t0)[2],t4); -if(C_truep(t5)){ -return(C_slot(C_slot(t1,C_fix(0)),C_fix(1)));} -else{ -t7=C_slot(t1,C_fix(1)); -t1=t7; -goto loop;}} -else{ -return(C_SCHEME_FALSE);}} - -/* chicken.internal#hash-table-set! in k1020 */ -static void C_ccall f_2905(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(11,c,3)))){ -C_save_and_reclaim((void *)f_2905,c,av);} -a=C_alloc(11); -t5=( -/* internal.scm:190: hash-symbol */ - f_2809(lf[31],t3,C_block_size(t2)) -); -t6=C_slot(t2,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|8,a[1]=(C_word)f_2917,a[2]=t3,a[3]=t4,a[4]=t6,a[5]=t2,a[6]=t5,a[7]=t8,a[8]=((C_word)li20),tmp=(C_word)a,a+=9,tmp)); -t10=((C_word*)t8)[1]; -f_2917(t10,t1,t6);} - -/* loop in chicken.internal#hash-table-set! in k1020 */ -static void f_2917(C_word t0,C_word t1,C_word t2){ -C_word 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(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_2917,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=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_i_setslot(C_slot(t2,C_fix(0)),C_fix(1),((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -/* internal.scm:197: loop */ -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -goto loop;}}} - -/* chicken.internal#hash-table-update! in k1020 */ -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=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_2969,c,av);} -a=C_alloc(10); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_2977,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_2981,a[2]=t4,a[3]=t6,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* internal.scm:200: hash-table-ref */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[34]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[34]+1); -av2[1]=t7; -av2[2]=t2; -av2[3]=t3; -tp(4,av2);}} - -/* k2975 in chicken.internal#hash-table-update! in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_2977,c,av);} -/* internal.scm:200: hash-table-set! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[35]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[35]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -tp(5,av2);}} - -/* k2979 in chicken.internal#hash-table-update! in k1020 */ -static void C_ccall f_2981(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_2981,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_2984,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -if(C_truep(t1)){ -/* internal.scm:200: updtfunc */ -t3=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} -else{ -/* internal.scm:200: valufunc */ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}}} - -/* k2982 in k2979 in chicken.internal#hash-table-update! in k1020 */ -static void C_ccall f_2984(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_2984,c,av);} -/* internal.scm:200: updtfunc */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* chicken.internal#hash-table-for-each in k1020 */ -static void C_ccall f_2989(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_2989,c,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_2995,a[2]=t4,a[3]=t2,a[4]=t3,a[5]=t6,a[6]=((C_word)li25),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_2995(t8,t1,C_fix(0));} - -/* doloop741 in chicken.internal#hash-table-for-each in k1020 */ -static void f_2995(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,0,3)))){ -C_save_and_reclaim_args((void *)trf_2995,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_3003,a[2]=((C_word*)t0)[3],a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); -t4=C_slot(((C_word*)t0)[4],t2); -t5=C_i_check_list_2(t4,lf[30]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3024,a[2]=((C_word*)t0)[5],a[3]=t1,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_3033,a[2]=t8,a[3]=t3,a[4]=((C_word)li24),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_3033(t10,t6,t4);}} - -/* g747 in doloop741 in chicken.internal#hash-table-for-each in k1020 */ -static void f_3003(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_3003,3,t0,t1,t2);} -/* internal.scm:206: p */ -t3=((C_word*)t0)[2];{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=C_slot(t2,C_fix(0)); -av2[3]=C_slot(t2,C_fix(1)); -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* k3022 in doloop741 in chicken.internal#hash-table-for-each in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_3024,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_2995(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* for-each-loop746 in doloop741 in chicken.internal#hash-table-for-each in k1020 */ -static void f_3033(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_3033,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_3043,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* internal.scm:206: g747 */ -t4=((C_word*)t0)[3]; -f_3003(t4,t3,C_slot(t2,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);}}} - -/* k3041 in for-each-loop746 in doloop741 in chicken.internal#hash-table-for-each in k1020 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_3043,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3033(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* chicken.internal#hash-table-size in k1020 */ -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 *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_3056,c,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_3066,a[2]=t5,a[3]=t2,a[4]=((C_word)li27),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_3066(t7,t1,t3,C_fix(0),C_fix(0));} - -/* loop in chicken.internal#hash-table-size in k1020 */ -static void f_3066(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(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_3066,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -t5=C_eqp(t3,t2); -if(C_truep(t5)){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_fixnum_plus(t3,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_3088,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t6,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* internal.scm:213: ##sys#length */ -t8=*((C_word*)lf[39]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_slot(((C_word*)t0)[3],t3); -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} - -/* k3086 in loop in chicken.internal#hash-table-size in k1020 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_3088,c,av);} -/* internal.scm:213: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_3066(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[6],t1));} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_internal_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("internal")); -C_check_nursery_minimum(C_calculate_demand(19,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void*)C_internal_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(305))){ -C_save(t1); -C_rereclaim2(305*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(19); -C_initialize_lf(lf,44); -lf[0]=C_h_intern(&lf[0],8, C_text("internal")); -lf[1]=C_h_intern(&lf[1],17, C_text("chicken.internal#")); -lf[2]=C_h_intern(&lf[2],37, C_text("chicken.internal#string->c-identifier")); -lf[3]=C_h_intern(&lf[3],24, C_text("scheme#get-output-string")); -lf[4]=C_h_intern(&lf[4],14, C_text("scheme#display")); -lf[5]=C_h_intern(&lf[5],20, C_text("##sys#fixnum->string")); -lf[6]=C_h_intern(&lf[6],21, C_text("##sys#write-char/port")); -lf[7]=C_h_intern(&lf[7],25, C_text("scheme#open-output-string")); -lf[8]=C_h_intern(&lf[8],41, C_text("chicken.internal#valid-library-specifier?")); -lf[9]=C_h_intern(&lf[9],27, C_text("chicken.internal#library-id")); -lf[10]=C_h_intern(&lf[10],11, C_text("##sys#error")); -lf[11]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\151\156\166\141\154\151\144\040\154\151\142\162\141\162\171\040\163\160\145\143\151\146\151\145\162\000")); -lf[12]=C_h_intern(&lf[12],27, C_text("##sys#symbol->string/shared")); -lf[13]=C_h_intern(&lf[13],20, C_text("##sys#number->string")); -lf[14]=C_h_intern(&lf[14],20, C_text("##sys#string->symbol")); -lf[15]=C_h_intern(&lf[15],19, C_text("##sys#string-append")); -lf[16]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\163\162\146\151\055\000")); -lf[17]=C_h_intern(&lf[17],20, C_text("scheme#string-append")); -lf[18]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[19]=C_h_intern(&lf[19],4, C_text("srfi")); -lf[20]=C_h_intern(&lf[20],35, C_text("chicken.internal#module-requirement")); -lf[21]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\043\000")); -lf[22]=C_h_intern(&lf[22],44, C_text("chicken.internal#check-for-multiple-bindings")); -lf[23]=C_h_intern(&lf[23],10, C_text("##sys#warn")); -lf[24]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\166\141\162\151\141\142\154\145\040\142\157\165\156\144\040\155\165\154\164\151\160\154\145\040\164\151\155\145\163\040\151\156\040\000")); -lf[25]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\040\143\157\156\163\164\162\165\143\164\000")); -lf[26]=C_h_intern(&lf[26],29, C_text("chicken.internal#macro-subset")); -lf[27]=C_h_intern(&lf[27],40, C_text("chicken.internal#fixup-macro-environment")); -lf[28]=C_h_intern(&lf[28],23, C_text("##sys#macro-environment")); -lf[29]=C_h_intern(&lf[29],12, C_text("##sys#append")); -lf[30]=C_h_intern(&lf[30],8, C_text("for-each")); -lf[32]=C_h_intern(&lf[32],32, C_text("chicken.internal#make-hash-table")); -lf[33]=C_h_intern(&lf[33],18, C_text("scheme#make-vector")); -lf[34]=C_h_intern(&lf[34],31, C_text("chicken.internal#hash-table-ref")); -lf[35]=C_h_intern(&lf[35],32, C_text("chicken.internal#hash-table-set!")); -lf[36]=C_h_intern(&lf[36],35, C_text("chicken.internal#hash-table-update!")); -lf[37]=C_h_intern(&lf[37],36, C_text("chicken.internal#hash-table-for-each")); -lf[38]=C_h_intern(&lf[38],32, C_text("chicken.internal#hash-table-size")); -lf[39]=C_h_intern(&lf[39],12, C_text("##sys#length")); -lf[40]=C_h_intern(&lf[40],32, C_text("chicken.internal#default-imports")); -lf[41]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\143\150\145\155\145\376\003\000\000\002\376\001\000\000\014\001\143\150\151\143\153\145\156\056\142\141\163\145\376\003\000\000\002\376\001\000\000\016\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\376\377\016")); -lf[42]=C_h_intern(&lf[42],39, C_text("chicken.internal#default-syntax-imports")); -lf[43]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\163\143\150\145\155\145\376\003\000\000\002\376\001\000\000\014\001\143\150\151\143\153\145\156\056\142\141\163\145\376\003\000\000\002\376\001\000\000\016\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\376\377\016")); -C_register_lf2(lf,44,create_ptable());{} -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1022,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[62] = { -{C_text("f_1022:internal_2escm"),(void*)f_1022}, -{C_text("f_1399:internal_2escm"),(void*)f_1399}, -{C_text("f_2302:internal_2escm"),(void*)f_2302}, -{C_text("f_2306:internal_2escm"),(void*)f_2306}, -{C_text("f_2314:internal_2escm"),(void*)f_2314}, -{C_text("f_2330:internal_2escm"),(void*)f_2330}, -{C_text("f_2340:internal_2escm"),(void*)f_2340}, -{C_text("f_2346:internal_2escm"),(void*)f_2346}, -{C_text("f_2349:internal_2escm"),(void*)f_2349}, -{C_text("f_2356:internal_2escm"),(void*)f_2356}, -{C_text("f_2389:internal_2escm"),(void*)f_2389}, -{C_text("f_2429:internal_2escm"),(void*)f_2429}, -{C_text("f_2432:internal_2escm"),(void*)f_2432}, -{C_text("f_2475:internal_2escm"),(void*)f_2475}, -{C_text("f_2527:internal_2escm"),(void*)f_2527}, -{C_text("f_2534:internal_2escm"),(void*)f_2534}, -{C_text("f_2538:internal_2escm"),(void*)f_2538}, -{C_text("f_2553:internal_2escm"),(void*)f_2553}, -{C_text("f_2555:internal_2escm"),(void*)f_2555}, -{C_text("f_2576:internal_2escm"),(void*)f_2576}, -{C_text("f_2580:internal_2escm"),(void*)f_2580}, -{C_text("f_2590:internal_2escm"),(void*)f_2590}, -{C_text("f_2598:internal_2escm"),(void*)f_2598}, -{C_text("f_2602:internal_2escm"),(void*)f_2602}, -{C_text("f_2604:internal_2escm"),(void*)f_2604}, -{C_text("f_2610:internal_2escm"),(void*)f_2610}, -{C_text("f_2623:internal_2escm"),(void*)f_2623}, -{C_text("f_2626:internal_2escm"),(void*)f_2626}, -{C_text("f_2643:internal_2escm"),(void*)f_2643}, -{C_text("f_2678:internal_2escm"),(void*)f_2678}, -{C_text("f_2685:internal_2escm"),(void*)f_2685}, -{C_text("f_2692:internal_2escm"),(void*)f_2692}, -{C_text("f_2694:internal_2escm"),(void*)f_2694}, -{C_text("f_2715:internal_2escm"),(void*)f_2715}, -{C_text("f_2728:internal_2escm"),(void*)f_2728}, -{C_text("f_2735:internal_2escm"),(void*)f_2735}, -{C_text("f_2736:internal_2escm"),(void*)f_2736}, -{C_text("f_2752:internal_2escm"),(void*)f_2752}, -{C_text("f_2775:internal_2escm"),(void*)f_2775}, -{C_text("f_2777:internal_2escm"),(void*)f_2777}, -{C_text("f_2787:internal_2escm"),(void*)f_2787}, -{C_text("f_2809:internal_2escm"),(void*)f_2809}, -{C_text("f_2831:internal_2escm"),(void*)f_2831}, -{C_text("f_2846:internal_2escm"),(void*)f_2846}, -{C_text("f_2856:internal_2escm"),(void*)f_2856}, -{C_text("f_2905:internal_2escm"),(void*)f_2905}, -{C_text("f_2917:internal_2escm"),(void*)f_2917}, -{C_text("f_2969:internal_2escm"),(void*)f_2969}, -{C_text("f_2977:internal_2escm"),(void*)f_2977}, -{C_text("f_2981:internal_2escm"),(void*)f_2981}, -{C_text("f_2984:internal_2escm"),(void*)f_2984}, -{C_text("f_2989:internal_2escm"),(void*)f_2989}, -{C_text("f_2995:internal_2escm"),(void*)f_2995}, -{C_text("f_3003:internal_2escm"),(void*)f_3003}, -{C_text("f_3024:internal_2escm"),(void*)f_3024}, -{C_text("f_3033:internal_2escm"),(void*)f_3033}, -{C_text("f_3043:internal_2escm"),(void*)f_3043}, -{C_text("f_3056:internal_2escm"),(void*)f_3056}, -{C_text("f_3066:internal_2escm"),(void*)f_3066}, -{C_text("f_3088:internal_2escm"),(void*)f_3088}, -{C_text("toplevel:internal_2escm"),(void*)C_internal_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.internal#d -o|hiding unexported module binding: chicken.internal#define-alias -o|hiding unexported module binding: chicken.internal#partition -o|hiding unexported module binding: chicken.internal#span -o|hiding unexported module binding: chicken.internal#take -o|hiding unexported module binding: chicken.internal#drop -o|hiding unexported module binding: chicken.internal#split-at -o|hiding unexported module binding: chicken.internal#append-map -o|hiding unexported module binding: chicken.internal#every -o|hiding unexported module binding: chicken.internal#any -o|hiding unexported module binding: chicken.internal#cons* -o|hiding unexported module binding: chicken.internal#concatenate -o|hiding unexported module binding: chicken.internal#delete -o|hiding unexported module binding: chicken.internal#first -o|hiding unexported module binding: chicken.internal#second -o|hiding unexported module binding: chicken.internal#third -o|hiding unexported module binding: chicken.internal#fourth -o|hiding unexported module binding: chicken.internal#fifth -o|hiding unexported module binding: chicken.internal#delete-duplicates -o|hiding unexported module binding: chicken.internal#alist-cons -o|hiding unexported module binding: chicken.internal#filter -o|hiding unexported module binding: chicken.internal#filter-map -o|hiding unexported module binding: chicken.internal#remove -o|hiding unexported module binding: chicken.internal#unzip1 -o|hiding unexported module binding: chicken.internal#last -o|hiding unexported module binding: chicken.internal#list-index -o|hiding unexported module binding: chicken.internal#lset-adjoin/eq? -o|hiding unexported module binding: chicken.internal#lset-difference/eq? -o|hiding unexported module binding: chicken.internal#lset-union/eq? -o|hiding unexported module binding: chicken.internal#lset-intersection/eq? -o|hiding unexported module binding: chicken.internal#list-tabulate -o|hiding unexported module binding: chicken.internal#lset<=/eq? -o|hiding unexported module binding: chicken.internal#lset=/eq? -o|hiding unexported module binding: chicken.internal#length+ -o|hiding unexported module binding: chicken.internal#find -o|hiding unexported module binding: chicken.internal#find-tail -o|hiding unexported module binding: chicken.internal#iota -o|hiding unexported module binding: chicken.internal#make-list -o|hiding unexported module binding: chicken.internal#posq -o|hiding unexported module binding: chicken.internal#posv -o|hiding unexported module binding: chicken.internal#hash-symbol -S|applied compiler syntax: -S| ##sys#for-each 1 -S| scheme#for-each 1 -S| chicken.base#foldl 3 -S| scheme#map 3 -S| chicken.base#foldr 3 -o|eliminated procedure checks: 49 -o|specializations: -o| 2 (scheme#caar (pair pair *)) -o| 2 (scheme#cadr (pair * pair)) -o| 1 (scheme#number->string fixnum fixnum) -o| 1 (scheme#eqv? * *) -o| 3 (##sys#check-list (or pair list) *) -o| 26 (scheme#cdr pair) -o| 10 (scheme#car pair) -(o e)|safe calls: 292 -o|safe globals: (chicken.internal#default-syntax-imports chicken.internal#default-imports chicken.internal#hash-table-size chicken.internal#hash-table-for-each chicken.internal#hash-table-update! chicken.internal#hash-table-set! chicken.internal#hash-table-ref chicken.internal#make-hash-table chicken.internal#hash-symbol chicken.internal#fixup-macro-environment chicken.internal#macro-subset chicken.internal#check-for-multiple-bindings chicken.internal#module-requirement chicken.internal#library-id chicken.internal#valid-library-specifier? chicken.internal#string->c-identifier chicken.internal#posv chicken.internal#posq chicken.internal#make-list chicken.internal#iota chicken.internal#find-tail chicken.internal#find chicken.internal#length+ chicken.internal#lset=/eq? chicken.internal#lset<=/eq? chicken.internal#list-tabulate chicken.internal#lset-intersection/eq? chicken.internal#lset-union/eq? chicken.internal#lset-difference/eq? chicken.internal#lset-adjoin/eq? chicken.internal#list-index chicken.internal#last chicken.internal#unzip1 chicken.internal#remove chicken.internal#filter-map chicken.internal#filter chicken.internal#alist-cons chicken.internal#delete-duplicates chicken.internal#fifth chicken.internal#fourth chicken.internal#third chicken.internal#second chicken.internal#first chicken.internal#delete chicken.internal#concatenate chicken.internal#cons* chicken.internal#any chicken.internal#every chicken.internal#append-map chicken.internal#split-at chicken.internal#drop chicken.internal#take chicken.internal#span chicken.internal#partition) -o|removed side-effect free assignment to unused variable: chicken.internal#partition -o|removed side-effect free assignment to unused variable: chicken.internal#span -o|removed side-effect free assignment to unused variable: chicken.internal#drop -o|removed side-effect free assignment to unused variable: chicken.internal#split-at -o|removed side-effect free assignment to unused variable: chicken.internal#append-map -o|inlining procedure: k1404 -o|inlining procedure: k1404 -o|inlining procedure: k1435 -o|inlining procedure: k1435 -o|removed side-effect free assignment to unused variable: chicken.internal#cons* -o|removed side-effect free assignment to unused variable: chicken.internal#concatenate -o|removed side-effect free assignment to unused variable: chicken.internal#first -o|removed side-effect free assignment to unused variable: chicken.internal#second -o|removed side-effect free assignment to unused variable: chicken.internal#third -o|removed side-effect free assignment to unused variable: chicken.internal#fourth -o|removed side-effect free assignment to unused variable: chicken.internal#fifth -o|removed side-effect free assignment to unused variable: chicken.internal#delete-duplicates -o|removed side-effect free assignment to unused variable: chicken.internal#alist-cons -o|inlining procedure: k1652 -o|inlining procedure: k1652 -o|inlining procedure: k1644 -o|inlining procedure: k1644 -o|removed side-effect free assignment to unused variable: chicken.internal#filter-map -o|removed side-effect free assignment to unused variable: chicken.internal#remove -o|removed side-effect free assignment to unused variable: chicken.internal#unzip1 -o|removed side-effect free assignment to unused variable: chicken.internal#last -o|removed side-effect free assignment to unused variable: chicken.internal#list-index -o|removed side-effect free assignment to unused variable: chicken.internal#lset-adjoin/eq? -o|removed side-effect free assignment to unused variable: chicken.internal#lset-difference/eq? -o|removed side-effect free assignment to unused variable: chicken.internal#lset-union/eq? -o|removed side-effect free assignment to unused variable: chicken.internal#lset-intersection/eq? -o|inlining procedure: k2043 -o|inlining procedure: k2043 -o|removed side-effect free assignment to unused variable: chicken.internal#lset<=/eq? -o|removed side-effect free assignment to unused variable: chicken.internal#lset=/eq? -o|removed side-effect free assignment to unused variable: chicken.internal#length+ -o|removed side-effect free assignment to unused variable: chicken.internal#find -o|removed side-effect free assignment to unused variable: chicken.internal#find-tail -o|removed side-effect free assignment to unused variable: chicken.internal#iota -o|removed side-effect free assignment to unused variable: chicken.internal#make-list -o|removed side-effect free assignment to unused variable: chicken.internal#posq -o|removed side-effect free assignment to unused variable: chicken.internal#posv -o|inlining procedure: k2316 -o|inlining procedure: k2316 -o|substituted constant variable: a2358 -o|inlining procedure: k2374 -o|inlining procedure: k2374 -o|inlining procedure: k2394 -o|inlining procedure: k2394 -o|inlining procedure: k2403 -o|inlining procedure: k2418 -o|inlining procedure: k2418 -o|inlining procedure: k2403 -o|inlining procedure: k2477 -o|inlining procedure: k2477 -o|inlining procedure: k2498 -o|inlining procedure: k2498 -o|inlining procedure: k2513 -o|inlining procedure: k2513 -o|inlining procedure: k2557 -o|inlining procedure: k2557 -o|contracted procedure: "(internal.scm:107) srfi?603" -o|inlining procedure: k2440 -o|inlining procedure: k2452 -o|inlining procedure: k2452 -o|inlining procedure: k2440 -o|inlining procedure: k2615 -o|inlining procedure: k2615 -o|inlining procedure: k2696 -o|inlining procedure: k2696 -o|inlining procedure: k2738 -o|inlining procedure: k2750 -o|inlining procedure: k2750 -o|inlining procedure: k2738 -o|inlining procedure: k2779 -o|inlining procedure: k2779 -o|inlining procedure: k2811 -o|inlining procedure: k2811 -o|inlining procedure: k2833 -o|inlining procedure: k2833 -o|inlining procedure: k2858 -o|inlining procedure: k2858 -o|inlining procedure: k2919 -o|inlining procedure: k2919 -o|inlining procedure: k2982 -o|inlining procedure: k2982 -o|inlining procedure: k2997 -o|inlining procedure: k2997 -o|inlining procedure: k3035 -o|inlining procedure: k3035 -o|inlining procedure: k3068 -o|inlining procedure: k3068 -o|replaced variables: 226 -o|removed binding forms: 89 -o|removed side-effect free assignment to unused variable: chicken.internal#any -o|removed side-effect free assignment to unused variable: chicken.internal#filter -o|removed side-effect free assignment to unused variable: chicken.internal#list-tabulate -o|contracted procedure: "(internal.scm:89) chicken.internal#every" -o|substituted constant variable: r24043114 -o|substituted constant variable: r24533125 -o|substituted constant variable: r24413126 -o|substituted constant variable: r26973129 -o|substituted constant variable: r28343141 -o|substituted constant variable: r28343141 -o|substituted constant variable: r28593152 -o|replaced variables: 20 -o|removed binding forms: 221 -o|replaced variables: 3 -o|removed binding forms: 25 -o|removed binding forms: 3 -o|contracted procedure: "(mini-srfi-1.scm:82) a2412" -o|removed binding forms: 1 -o|replaced variables: 4 -o|inlining procedure: k1419 -o|removed binding forms: 2 -o|replaced variables: 1 -o|removed binding forms: 1 -o|simplifications: ((let . 11) (if . 4) (##core#call . 109)) -o| call simplifications: -o| ##sys#setslot 2 -o| ##sys#size 4 -o| chicken.fixnum#fx- -o| ##sys#check-list 2 -o| ##sys#slot 20 -o| scheme#set-car! 2 -o| scheme#memq 2 -o| scheme#caar 3 -o| scheme#cons 5 -o| scheme#pair? 4 -o| scheme#cddr -o| scheme#eq? 7 -o| scheme#cdr 4 -o| scheme#cadr 2 -o| scheme#list? 2 -o| scheme#null? 11 -o| scheme#car 5 -o| scheme#symbol? 4 -o| chicken.base#fixnum? 3 -o| scheme#string-length -o| chicken.fixnum#fx>= 2 -o| scheme#string-ref -o| scheme#char-alphabetic? -o| scheme#char-numeric? -o| scheme#not 8 -o| chicken.fixnum#fx= 2 -o| scheme#char->integer -o| chicken.fixnum#fx< -o| scheme#write-char 3 -o| chicken.fixnum#fx+ 4 -o|contracted procedure: k2307 -o|contracted procedure: k2319 -o|contracted procedure: k2325 -o|contracted procedure: k2335 -o|contracted procedure: k2341 -o|contracted procedure: k2359 -o|contracted procedure: k2385 -o|contracted procedure: k2368 -o|contracted procedure: k2381 -o|contracted procedure: k2371 -o|contracted procedure: k2391 -o|contracted procedure: k2400 -o|contracted procedure: k2425 -o|contracted procedure: k2406 -o|contracted procedure: k1401 -o|contracted procedure: k1423 -o|contracted procedure: k2415 -o|inlining procedure: k1410 -o|contracted procedure: k1419 -o|inlining procedure: k1410 -o|contracted procedure: k2480 -o|contracted procedure: k2489 -o|contracted procedure: k2501 -o|contracted procedure: k2507 -o|contracted procedure: k2586 -o|contracted procedure: k2516 -o|contracted procedure: k2540 -o|contracted procedure: k2547 -o|contracted procedure: k2560 -o|contracted procedure: k2570 -o|contracted procedure: k2471 -o|contracted procedure: k2443 -o|contracted procedure: k2467 -o|contracted procedure: k2449 -o|contracted procedure: k2455 -o|contracted procedure: k2612 -o|contracted procedure: k2637 -o|contracted procedure: k2633 -o|contracted procedure: k2657 -o|contracted procedure: k2653 -o|contracted procedure: k2674 -o|contracted procedure: k2660 -o|contracted procedure: k2667 -o|contracted procedure: k2721 -o|contracted procedure: k2680 -o|contracted procedure: k2699 -o|contracted procedure: k2702 -o|contracted procedure: k2709 -o|contracted procedure: k2802 -o|contracted procedure: k2730 -o|contracted procedure: k2767 -o|contracted procedure: k2741 -o|contracted procedure: k2763 -o|contracted procedure: k2753 -o|contracted procedure: k2770 -o|contracted procedure: k2782 -o|contracted procedure: k2792 -o|contracted procedure: k2796 -o|contracted procedure: k2814 -o|contracted procedure: k2817 -o|contracted procedure: k2827 -o|contracted procedure: k2823 -o|contracted procedure: k2839 -o|contracted procedure: k2833 -o|contracted procedure: k2852 -o|contracted procedure: k2893 -o|contracted procedure: k2861 -o|contracted procedure: k2889 -o|contracted procedure: k2885 -o|contracted procedure: k2867 -o|contracted procedure: k2874 -o|contracted procedure: k2881 -o|contracted procedure: k2901 -o|contracted procedure: k2910 -o|contracted procedure: k2922 -o|contracted procedure: k2933 -o|contracted procedure: k2929 -o|contracted procedure: k2961 -o|contracted procedure: k2957 -o|contracted procedure: k2939 -o|contracted procedure: k2946 -o|contracted procedure: k2953 -o|contracted procedure: k2965 -o|contracted procedure: k3000 -o|contracted procedure: k3009 -o|contracted procedure: k3013 -o|contracted procedure: k3016 -o|contracted procedure: k3019 -o|contracted procedure: k3029 -o|contracted procedure: k3038 -o|contracted procedure: k3048 -o|contracted procedure: k3052 -o|contracted procedure: k3062 -o|contracted procedure: k3071 -o|contracted procedure: k3078 -o|contracted procedure: k3082 -o|contracted procedure: k3090 -o|simplifications: ((let . 40)) -o|removed binding forms: 95 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest646648 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest646648 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest665667 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest665667 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest706707 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest706707 0 -o|simplifications: ((let . 2)) -o|removed binding forms: 1 -o|direct leaf routine/allocation: loop204 0 -o|direct leaf routine/allocation: chicken.internal#hash-symbol 0 -o|direct leaf routine/allocation: loop716 0 -o|converted assignments to bindings: (loop204) -o|contracted procedure: "(internal.scm:183) k2897" -o|converted assignments to bindings: (loop716) -o|contracted procedure: "(internal.scm:190) k2907" -o|simplifications: ((let . 2)) -o|removed binding forms: 2 -o|customizable procedures: (loop766 g747754 for-each-loop746757 doloop741742 loop726 g677684 for-each-loop676687 loop655 k2621 loop628 k2525 library-part->string604 doloop614615 fail602 k2338 doloop572573) -o|calls to known targets: 36 -o|identified direct recursive calls: f_1399 2 -o|identified direct recursive calls: f_2694 1 -o|unused rest argument: rest646648 f_2678 -o|unused rest argument: rest665667 f_2728 -o|unused rest argument: rest706707 f_2831 -o|identified direct recursive calls: f_2856 1 -o|identified direct recursive calls: f_2917 1 -o|fast box initializations: 11 -o|fast global references: 2 -o|fast global assignments: 1 -o|dropping unused closure argument: f_1399 -*/ -/* end of file */ diff --git a/chicken/src/irregex.c b/chicken/src/irregex.c deleted file mode 100644 index c9221ad..0000000 --- a/chicken/src/irregex.c +++ /dev/null @@ -1,50842 +0,0 @@ -/* Generated from irregex.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: irregex.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file irregex.c -emit-import-library chicken.irregex - unit: irregex - uses: expand library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_expand_toplevel) -C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[503]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,37,118,101,99,116,111,114,45,99,111,112,121,32,118,41}; -static C_char li1[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,63,32,120,41,0,0,0,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,117,109,45,115,117,98,109,97,116,99,104,101,115,32,120,41,0,0,0,0,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,97,109,101,115,32,120,41,0,0,0,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,110,101,119,45,109,97,116,99,104,101,115,32,105,114,120,41,0,0,0,0,0,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,115,101,116,45,109,97,116,99,104,101,115,33,32,109,41,0,0,0,0,0,0}; -static C_char li6[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,99,111,112,121,45,109,97,116,99,104,101,115,32,109,41}; -static C_char li7[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,100,97,116,97,63,32,111,98,106,41,0,0,0,0,0,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,117,109,45,115,117,98,109,97,116,99,104,101,115,32,109,41}; -static C_char li9[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,97,109,101,115,32,109,41,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,116,97,114,116,45,99,104,117,110,107,32,109,32,46,32,111,112,116,41,0,0,0,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,116,97,114,116,45,105,110,100,101,120,32,109,32,46,32,111,112,116,41,0,0,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,101,110,100,45,99,104,117,110,107,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,101,110,100,45,105,110,100,101,120,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,115,32,117,110,107,110,111,119,110,63,41}; -static C_char li15[] C_aligned={C_lihdr(0,0,60),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,110,117,109,101,114,105,99,45,105,110,100,101,120,32,108,111,99,97,116,105,111,110,32,109,32,111,112,116,41,0,0,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,118,97,108,105,100,45,105,110,100,101,120,63,32,109,32,110,41}; -static C_char li17[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,117,98,115,116,114,105,110,103,32,109,32,46,32,111,112,116,41,0,0,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,45,115,117,98,99,104,117,110,107,32,109,32,46,32,111,112,116,41}; -static C_char li19[] C_aligned={C_lihdr(0,0,12),40,102,95,56,53,53,54,32,99,110,107,41,0,0,0,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,12),40,102,95,56,53,51,57,32,99,110,107,41,0,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,99,110,107,32,114,101,115,41,0,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,28),40,102,95,56,52,51,56,32,99,110,107,49,32,115,116,97,114,116,32,99,110,107,50,32,101,110,100,41,0,0,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,107,101,45,105,114,114,101,103,101,120,45,99,104,117,110,107,101,114,32,103,101,116,45,110,101,120,116,32,103,101,116,45,115,116,114,32,46,32,111,41,0,0,0,0,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,10),40,108,112,32,115,116,97,114,116,41,0,0,0,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,117,110,107,101,114,45,112,114,101,118,45,99,104,97,114,32,99,110,107,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,117,110,107,101,114,45,110,101,120,116,45,99,104,97,114,32,99,110,107,32,115,114,99,41,0,0,0,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; -static C_char li28[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,115,99,97,110,45,99,104,97,114,32,115,116,114,32,99,32,46,32,111,41,0,0,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,49,49,48,50,32,105,32,106,41}; -static C_char li30[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,32,108,115,41,0,0,0,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,11),40,97,57,49,48,57,32,115,32,97,41,0,0,0,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,99,97,116,45,114,101,118,101,114,115,101,32,115,116,114,105,110,103,45,108,105,115,116,41}; -static C_char li33[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,114,101,115,41,0,0,0,0,0,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,122,101,114,111,45,116,111,32,110,41,0,0,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,105,110,100,32,112,114,101,100,32,108,115,41,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,4),40,108,112,41,0,0,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,108,97,115,116,32,108,115,41,0,0,0,0,0,0,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,14),40,108,112,32,104,101,97,100,32,116,97,105,108,41,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,97,110,121,32,112,114,101,100,32,108,115,41,0,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,14),40,108,112,32,104,101,97,100,32,116,97,105,108,41,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,101,118,101,114,121,32,112,114,101,100,32,108,115,41,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,111,108,100,32,107,111,110,115,32,107,110,105,108,32,108,115,41,0,0,0,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,108,97,103,45,106,111,105,110,32,97,32,98,41,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,108,97,103,45,99,108,101,97,114,32,97,32,98,41}; -static C_char li47[] C_aligned={C_lihdr(0,0,12),40,97,57,56,49,51,32,122,32,106,51,41,0,0,0,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,12),40,97,57,56,48,55,32,121,32,106,50,41,0,0,0,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,11),40,97,57,55,55,51,32,120,32,106,41,0,0,0,0,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,9),40,108,112,32,105,32,108,115,41,0,0,0,0,0,0,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,8),40,115,107,105,112,32,105,41}; -static C_char li52[] C_aligned={C_lihdr(0,0,14),40,97,57,57,51,48,32,115,101,120,112,32,106,41,0,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,14),40,97,57,57,54,57,32,115,101,120,112,32,106,41,0,0}; -static C_char li54[] 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 li55[] C_aligned={C_lihdr(0,0,17),40,115,99,97,110,32,102,114,111,109,32,105,32,114,101,115,41,0,0,0,0,0,0,0}; -static C_char li56[] C_aligned={C_lihdr(0,0,15),40,97,49,48,49,49,54,32,115,101,120,112,32,106,41,0}; -static C_char li57[] C_aligned={C_lihdr(0,0,15),40,97,49,48,49,51,52,32,115,101,120,112,32,106,41,0}; -static C_char li58[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41}; -static C_char li59[] C_aligned={C_lihdr(0,0,12),40,102,95,57,55,52,49,32,105,32,107,41,0,0,0,0}; -static C_char li60[] C_aligned={C_lihdr(0,0,14),40,97,49,48,51,48,53,32,114,101,115,32,106,41,0,0}; -static C_char li61[] C_aligned={C_lihdr(0,0,50),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,119,105,116,104,45,114,101,97,100,45,102,114,111,109,45,115,116,114,105,110,103,32,115,116,114,32,105,32,112,114,111,99,41,0,0,0,0,0,0}; -static C_char li62[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; -static C_char li63[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,121,109,98,111,108,45,108,105,115,116,45,62,102,108,97,103,115,32,108,115,41,0}; -static C_char li64[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,121,98,101,45,115,116,114,105,110,103,45,62,115,114,101,32,111,98,106,41,0}; -static C_char li65[] C_aligned={C_lihdr(0,0,12),40,99,97,115,101,100,45,99,104,97,114,41,0,0,0,0}; -static C_char li66[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,52,53,32,103,49,52,53,55,41,0,0,0,0}; -static C_char li67[] C_aligned={C_lihdr(0,0,18),40,99,97,115,101,100,45,115,116,114,105,110,103,32,115,116,114,41,0,0,0,0,0,0}; -static C_char li68[] 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 li69[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; -static C_char li70[] 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 li71[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,115,32,116,101,114,109,32,114,101,115,41}; -static C_char li72[] 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 li73[] C_aligned={C_lihdr(0,0,6),40,115,97,118,101,41,0,0}; -static C_char li74[] C_aligned={C_lihdr(0,0,14),40,97,49,49,50,51,54,32,115,114,101,32,106,41,0,0}; -static C_char li75[] C_aligned={C_lihdr(0,0,6),40,106,111,105,110,41,0,0}; -static C_char li76[] 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 li77[] C_aligned={C_lihdr(0,0,21),40,108,112,50,32,106,32,102,108,97,103,115,32,105,110,118,101,114,116,63,41,0,0,0}; -static C_char li78[] C_aligned={C_lihdr(0,0,14),40,97,49,49,57,57,54,32,115,114,101,32,106,41,0,0}; -static C_char li79[] C_aligned={C_lihdr(0,0,14),40,97,50,54,57,51,54,32,120,32,114,101,115,41,0,0}; -static C_char li80[] C_aligned={C_lihdr(0,0,12),40,97,49,51,52,57,56,32,99,32,106,41,0,0,0,0}; -static C_char li81[] C_aligned={C_lihdr(0,0,7),40,103,49,56,53,56,41,0}; -static C_char li82[] C_aligned={C_lihdr(0,0,13),40,97,49,51,56,50,56,32,99,104,32,106,41,0,0,0}; -static C_char li83[] C_aligned={C_lihdr(0,0,21),40,103,111,32,105,32,112,114,101,118,45,99,104,97,114,32,99,115,101,116,41,0,0,0}; -static C_char li84[] 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 li85[] C_aligned={C_lihdr(0,0,15),40,108,112,32,105,32,102,114,111,109,32,114,101,115,41,0}; -static C_char li86[] C_aligned={C_lihdr(0,0,13),40,97,49,50,54,52,49,32,99,104,32,106,41,0,0,0}; -static C_char li87[] C_aligned={C_lihdr(0,0,7),40,108,112,50,32,106,41,0}; -static C_char li88[] C_aligned={C_lihdr(0,0,14),40,97,49,50,56,55,50,32,115,114,101,32,106,41,0,0}; -static C_char li89[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; -static C_char li90[] C_aligned={C_lihdr(0,0,24),40,108,112,32,105,32,102,114,111,109,32,102,108,97,103,115,32,114,101,115,32,115,116,41}; -static C_char li91[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,115,114,101,32,115,116,114,32,46,32,111,41,0,0,0}; -static C_char li92[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; -static C_char li93[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,112,97,114,115,101,45,104,101,120,45,101,115,99,97,112,101,32,115,116,114,32,105,32,101,110,100,41,0,0,0,0,0}; -static C_char li94[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,104,105,103,104,45,99,104,97,114,63,32,99,41,0,0}; -static C_char li95[] C_aligned={C_lihdr(0,0,6),40,98,121,116,101,41,0,0}; -static C_char li96[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,116,102,56,45,115,116,114,105,110,103,45,114,101,102,32,115,116,114,32,105,32,108,101,110,41,0,0,0,0,0}; -static C_char li97[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,116,102,56,45,108,111,119,101,115,116,45,100,105,103,105,116,45,111,102,45,108,101,110,103,116,104,32,108,101,110,41,0,0,0,0,0,0,0}; -static C_char li98[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,97,114,45,62,117,116,102,56,45,108,105,115,116,32,99,41,0,0,0,0,0}; -static C_char li99[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,53,49,32,103,50,48,54,51,41,0,0,0,0}; -static C_char li100[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,50,53,32,103,50,48,51,55,41,0,0,0,0}; -static C_char li101[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,104,101,108,112,101,114,32,111,110,101,32,108,115,32,112,114,101,102,105,120,32,114,101,115,41}; -static C_char li102[] C_aligned={C_lihdr(0,0,10),40,97,49,52,55,54,56,32,99,41,0,0,0,0,0,0}; -static C_char li103[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,56,55,32,103,50,48,57,57,41,0,0,0,0}; -static C_char li104[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,117,112,45,102,114,111,109,32,108,111,45,108,115,41,0,0,0}; -static C_char li105[] C_aligned={C_lihdr(0,0,10),40,97,49,52,57,48,55,32,99,41,0,0,0,0,0,0}; -static C_char li106[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,50,50,32,103,50,49,51,52,41,0,0,0,0}; -static C_char li107[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,117,110,105,99,111,100,101,45,114,97,110,103,101,45,117,112,45,116,111,32,104,105,45,108,115,41,0,0,0,0,0}; -static C_char li108[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,49,49,32,103,50,50,50,51,41,0,0,0,0}; -static C_char li109[] C_aligned={C_lihdr(0,0,9),40,103,50,49,57,52,32,105,41,0,0,0,0,0,0,0}; -static C_char li110[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,53,49,32,103,50,50,54,51,41,0,0,0,0}; -static C_char li111[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,56,56,32,103,50,50,48,48,41,0,0,0,0}; -static C_char li112[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,53,56,32,103,50,49,55,48,41,0,0,0,0}; -static C_char li113[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,50,56,57,32,103,50,51,48,49,41,0,0,0,0}; -static C_char li114[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,111,45,108,115,32,104,105,45,108,115,41}; -static C_char li115[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,97,108,116,115,32,108,111,45,99,115,101,116,41,0,0,0,0}; -static C_char li116[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,117,116,102,56,45,112,97,116,116,101,114,110,32,99,115,101,116,41,0,0,0,0,0,0,0}; -static C_char li117[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,32,120,32,46,32,111,41,0}; -static C_char li118[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,105,114,114,101,103,101,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0}; -static C_char li119[] C_aligned={C_lihdr(0,0,44),40,97,50,51,52,48,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li120[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0}; -static C_char li121[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,53,49,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li122[] C_aligned={C_lihdr(0,0,8),40,97,50,51,53,52,50,41}; -static C_char li123[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,53,51,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li124[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,51,53,41}; -static C_char li125[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,51,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li126[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,54,49,41}; -static C_char li127[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,53,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li128[] C_aligned={C_lihdr(0,0,8),40,97,50,51,55,57,54,41}; -static C_char li129[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,55,57,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li130[] C_aligned={C_lihdr(0,0,8),40,97,50,51,56,52,50,41}; -static C_char li131[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,56,51,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li132[] C_aligned={C_lihdr(0,0,8),40,97,50,51,56,53,56,41}; -static C_char li133[] C_aligned={C_lihdr(0,0,44),40,97,50,51,56,53,50,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li134[] C_aligned={C_lihdr(0,0,8),40,97,50,51,57,48,49,41}; -static C_char li135[] C_aligned={C_lihdr(0,0,44),40,97,50,51,56,57,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li136[] C_aligned={C_lihdr(0,0,45),40,102,95,50,51,57,56,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li137[] C_aligned={C_lihdr(0,0,8),40,97,50,52,48,50,53,41}; -static C_char li138[] C_aligned={C_lihdr(0,0,44),40,97,50,52,48,48,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li139[] C_aligned={C_lihdr(0,0,16),40,98,111,100,121,52,53,54,50,32,99,111,117,110,116,41}; -static C_char li140[] C_aligned={C_lihdr(0,0,8),40,97,50,52,48,54,53,41}; -static C_char li141[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,48,53,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li142[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,49,52,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li143[] C_aligned={C_lihdr(0,0,8),40,97,50,52,49,56,49,41}; -static C_char li144[] C_aligned={C_lihdr(0,0,44),40,97,50,52,49,53,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li145[] C_aligned={C_lihdr(0,0,16),40,98,111,100,121,52,54,50,48,32,99,111,117,110,116,41}; -static C_char li146[] C_aligned={C_lihdr(0,0,8),40,97,50,52,50,50,53,41}; -static C_char li147[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,50,49,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li148[] C_aligned={C_lihdr(0,0,8),40,97,50,52,51,56,54,41}; -static C_char li149[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,51,55,50,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li150[] C_aligned={C_lihdr(0,0,44),40,97,50,52,51,57,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li151[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,50,49,41}; -static C_char li152[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,52,48,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li153[] C_aligned={C_lihdr(0,0,44),40,97,50,52,52,50,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li154[] C_aligned={C_lihdr(0,0,11),40,102,95,50,52,52,57,48,32,120,41,0,0,0,0,0}; -static C_char li155[] C_aligned={C_lihdr(0,0,8),40,97,50,52,52,56,52,41}; -static C_char li156[] C_aligned={C_lihdr(0,0,9),40,97,56,55,50,55,32,120,41,0,0,0,0,0,0,0}; -static C_char li157[] C_aligned={C_lihdr(0,0,9),40,97,56,55,53,52,32,120,41,0,0,0,0,0,0,0}; -static C_char li158[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,52,52,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li159[] C_aligned={C_lihdr(0,0,44),40,97,50,52,53,48,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li160[] C_aligned={C_lihdr(0,0,8),40,97,50,52,53,52,50,41}; -static C_char li161[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,53,50,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li162[] C_aligned={C_lihdr(0,0,44),40,97,50,52,53,52,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li163[] C_aligned={C_lihdr(0,0,46),40,102,95,50,52,53,56,49,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,50,41,0,0}; -static C_char li164[] C_aligned={C_lihdr(0,0,8),40,97,50,52,54,52,52,41}; -static C_char li165[] C_aligned={C_lihdr(0,0,46),40,102,95,50,52,54,51,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,50,41,0,0}; -static C_char li166[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,54,56,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li167[] C_aligned={C_lihdr(0,0,24),40,108,112,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,106,32,108,101,110,41}; -static C_char li168[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,55,50,50,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li169[] C_aligned={C_lihdr(0,0,8),40,97,50,52,57,56,51,41}; -static C_char li170[] C_aligned={C_lihdr(0,0,45),40,102,95,50,52,57,51,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li171[] C_aligned={C_lihdr(0,0,8),40,97,50,53,48,55,56,41}; -static C_char li172[] C_aligned={C_lihdr(0,0,44),40,97,50,53,48,52,51,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0,0}; -static C_char li173[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,50,55,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li174[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,51,51,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li175[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,52,50,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li176[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,52,53,57,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li177[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,53,49,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li178[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,54,49,55,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li179[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,54,53,48,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li180[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,55,49,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li181[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,56,48,52,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li182[] C_aligned={C_lihdr(0,0,9),40,108,112,32,115,114,99,50,41,0,0,0,0,0,0,0}; -static C_char li183[] C_aligned={C_lihdr(0,0,45),40,102,95,50,53,57,50,54,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li184[] C_aligned={C_lihdr(0,0,9),40,108,112,32,115,114,99,50,41,0,0,0,0,0,0,0}; -static C_char li185[] C_aligned={C_lihdr(0,0,45),40,102,95,50,54,48,50,53,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li186[] C_aligned={C_lihdr(0,0,21),40,108,112,32,115,114,101,32,110,32,102,108,97,103,115,32,110,101,120,116,41,0,0,0}; -static C_char li187[] C_aligned={C_lihdr(0,0,8),40,103,114,111,119,32,105,41}; -static C_char li188[] C_aligned={C_lihdr(0,0,16),40,97,49,55,50,48,54,32,108,111,51,32,104,105,51,41}; -static C_char li189[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,108,115,32,110,32,108,111,50,32,104,105,50,41,0,0,0,0,0,0}; -static C_char li190[] C_aligned={C_lihdr(0,0,16),40,97,49,55,50,56,56,32,108,111,51,32,104,105,51,41}; -static C_char li191[] C_aligned={C_lihdr(0,0,18),40,108,112,50,32,108,115,32,110,32,108,111,50,32,104,105,50,41,0,0,0,0,0,0}; -static C_char li192[] C_aligned={C_lihdr(0,0,16),40,97,49,55,51,56,52,32,108,111,52,32,104,105,52,41}; -static C_char li193[] C_aligned={C_lihdr(0,0,16),40,97,49,55,51,55,48,32,108,111,51,32,104,105,51,41}; -static C_char li194[] C_aligned={C_lihdr(0,0,16),40,97,49,55,51,53,54,32,108,111,50,32,104,105,50,41}; -static C_char li195[] C_aligned={C_lihdr(0,0,16),40,97,49,55,53,48,51,32,108,111,50,32,104,105,50,41}; -static C_char li196[] C_aligned={C_lihdr(0,0,14),40,97,49,55,54,53,55,32,108,111,32,104,105,41,0,0}; -static C_char li197[] C_aligned={C_lihdr(0,0,16),40,97,49,55,54,57,54,32,108,111,50,32,104,105,50,41}; -static C_char li198[] C_aligned={C_lihdr(0,0,16),40,97,49,55,55,52,51,32,108,111,50,32,104,105,50,41}; -static C_char li199[] C_aligned={C_lihdr(0,0,16),40,97,49,55,56,49,55,32,108,111,50,32,104,105,50,41}; -static C_char li200[] C_aligned={C_lihdr(0,0,16),40,97,49,55,56,52,53,32,108,111,50,32,104,105,50,41}; -static C_char li201[] C_aligned={C_lihdr(0,0,12),40,103,51,48,48,50,32,99,101,108,108,41,0,0,0,0}; -static C_char li202[] C_aligned={C_lihdr(0,0,23),40,108,112,32,115,114,101,32,110,32,108,111,32,104,105,32,114,101,116,117,114,110,41,0}; -static C_char li203[] C_aligned={C_lihdr(0,0,11),40,103,50,54,48,48,32,110,102,97,41,0,0,0,0,0}; -static C_char li204[] C_aligned={C_lihdr(0,0,11),40,103,50,53,56,57,32,110,102,97,41,0,0,0,0,0}; -static C_char li205[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0}; -static C_char li206[] C_aligned={C_lihdr(0,0,9),40,103,50,51,53,52,32,115,41,0,0,0,0,0,0,0}; -static C_char li207[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,52,56,32,103,50,51,54,48,41,0,0,0,0}; -static C_char li208[] C_aligned={C_lihdr(0,0,9),40,103,50,51,56,49,32,115,41,0,0,0,0,0,0,0}; -static C_char li209[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,51,55,53,32,103,50,51,56,55,41,0,0,0,0}; -static C_char li210[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,49,56,32,103,50,52,51,48,41,0,0,0,0}; -static C_char li211[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,52,52,32,103,50,52,53,54,41,0,0,0,0}; -static C_char li212[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,55,56,32,103,50,52,57,48,41,0,0,0,0}; -static C_char li213[] C_aligned={C_lihdr(0,0,22),40,97,100,106,117,115,116,32,115,114,101,32,117,116,102,56,63,32,99,105,63,41,0,0}; -static C_char li214[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,105,114,114,101,103,101,120,32,115,114,101,32,46,32,111,41,0,0}; -static C_char li215[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,101,109,112,116,121,63,32,115,114,101,41}; -static C_char li216[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,97,110,121,63,32,115,114,101,41,0,0}; -static C_char li217[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,114,101,112,101,97,116,101,114,63,41,0}; -static C_char li218[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,98,111,115,63,32,115,114,101,41,0,0}; -static C_char li219[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,97,114,99,104,101,114,63,32,115,114,101,41,0,0,0,0,0}; -static C_char li220[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,111,110,115,117,109,101,114,63,32,115,114,101,41,0,0,0,0,0}; -static C_char li221[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,104,97,115,45,115,117,98,109,97,116,99,104,101,115,63,32,115,114,101,41,0,0,0,0,0,0,0}; -static C_char li222[] C_aligned={C_lihdr(0,0,15),40,99,111,117,110,116,32,115,114,101,32,115,117,109,41,0}; -static C_char li223[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,111,117,110,116,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,41,0,0,0,0,0,0}; -static C_char li224[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,113,117,101,110,99,101,41,0,0}; -static C_char li225[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,97,108,116,101,114,110,97,116,101,41,0}; -static C_char li226[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,51,57,32,103,51,48,53,49,41,0,0,0,0}; -static C_char li227[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,116,114,105,112,45,115,117,98,109,97,116,99,104,101,115,32,115,114,101,41,0,0,0,0,0,0}; -static C_char li228[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,110,97,109,101,115,32,115,114,101,32,110,32,110,97,109,101,115,41,0}; -static C_char li229[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,115,101,113,117,101,110,99,101,45,110,97,109,101,115,32,108,115,32,110,32,110,97,109,101,115,41,0}; -static C_char li230[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,49,56,48,32,103,51,49,57,50,41,0,0,0,0}; -static C_char li231[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,114,101,109,111,118,101,45,105,110,105,116,105,97,108,45,98,111,115,32,115,114,101,41,0,0,0,0}; -static C_char li232[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,32,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0}; -static C_char li233[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,47,99,104,117,110,107,101,100,32,120,32,99,110,107,32,115,114,99,32,46,32,111,41,0,0}; -static C_char li234[] C_aligned={C_lihdr(0,0,7),40,108,112,50,32,105,41,0}; -static C_char li235[] C_aligned={C_lihdr(0,0,11),40,108,112,49,32,115,114,99,32,105,41,0,0,0,0,0}; -static C_char li236[] C_aligned={C_lihdr(0,0,10),40,97,49,57,55,53,55,32,120,41,0,0,0,0,0,0}; -static C_char li237[] C_aligned={C_lihdr(0,0,13),40,108,112,50,32,105,32,115,116,97,116,101,41,0,0,0}; -static C_char li238[] C_aligned={C_lihdr(0,0,21),40,108,112,49,32,115,114,99,32,115,116,97,114,116,32,115,116,97,116,101,41,0,0,0}; -static C_char li239[] C_aligned={C_lihdr(0,0,8),40,97,49,57,50,49,57,41}; -static C_char li240[] C_aligned={C_lihdr(0,0,8),40,97,49,57,50,57,49,41}; -static C_char li241[] C_aligned={C_lihdr(0,0,19),40,108,112,32,115,114,99,50,32,115,116,114,32,105,32,101,110,100,41,0,0,0,0,0}; -static C_char li242[] C_aligned={C_lihdr(0,0,67),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,101,97,114,99,104,47,109,97,116,99,104,101,115,32,105,114,120,32,99,110,107,32,105,110,105,116,32,115,114,99,32,105,32,109,97,116,99,104,101,115,41,0,0,0,0,0}; -static C_char li243[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0}; -static C_char li244[] C_aligned={C_lihdr(0,0,6),40,108,112,32,109,41,0,0}; -static C_char li245[] C_aligned={C_lihdr(0,0,8),40,97,49,57,54,49,50,41}; -static C_char li246[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,47,99,104,117,110,107,101,100,32,105,114,120,32,99,110,107,32,115,114,99,41,0,0,0,0,0}; -static C_char li247[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,109,97,116,99,104,63,32,46,32,97,114,103,115,41,0}; -static C_char li248[] C_aligned={C_lihdr(0,0,7),40,103,51,52,56,57,41,0}; -static C_char li249[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,52,56,56,32,103,51,52,57,53,41,0,0,0,0,0,0,0}; -static C_char li250[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,102,105,110,97,108,105,122,101,33,32,102,105,110,97,108,105,122,101,114,32,109,101,109,111,114,121,32,109,97,116,99,104,101,115,41,0,0,0,0}; -static C_char li251[] C_aligned={C_lihdr(0,0,7),40,103,51,54,52,52,41,0}; -static C_char li252[] C_aligned={C_lihdr(0,0,9),40,102,95,50,48,49,57,55,41,0,0,0,0,0,0,0}; -static C_char li253[] C_aligned={C_lihdr(0,0,9),40,103,51,54,56,51,32,99,41,0,0,0,0,0,0,0}; -static C_char li254[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,53,51,32,103,51,54,54,48,41,0,0,0,0,0,0,0}; -static C_char li255[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,54,55,55,32,103,51,54,56,57,41,0,0,0,0}; -static C_char li256[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,54,52,51,32,103,51,54,53,48,41,0,0,0,0,0,0,0}; -static C_char li257[] C_aligned={C_lihdr(0,0,10),40,97,50,48,51,56,54,32,120,41,0,0,0,0,0,0}; -static C_char li258[] C_aligned={C_lihdr(0,0,41),40,108,112,50,32,105,32,115,116,97,116,101,32,114,101,115,45,115,114,99,32,114,101,115,45,105,110,100,101,120,32,102,105,110,97,108,105,122,101,114,41,0,0,0,0,0,0,0}; -static C_char li259[] C_aligned={C_lihdr(0,0,49),40,108,112,49,32,115,114,99,32,115,116,97,114,116,32,115,116,97,116,101,32,114,101,115,45,115,114,99,32,114,101,115,45,105,110,100,101,120,32,102,105,110,97,108,105,122,101,114,41,0,0,0,0,0,0,0}; -static C_char li260[] C_aligned={C_lihdr(0,0,7),40,103,51,53,54,48,41,0}; -static C_char li261[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,53,53,57,32,103,51,53,54,54,41,0,0,0,0,0,0,0}; -static C_char li262[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,51,53,49,57,32,105,41,0,0}; -static C_char li263[] C_aligned={C_lihdr(0,0,79),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,100,102,97,45,109,97,116,99,104,47,108,111,110,103,101,115,116,32,100,102,97,32,99,110,107,32,115,114,99,32,115,116,97,114,116,32,101,110,100,45,115,114,99,32,101,110,100,32,109,97,116,99,104,101,115,32,105,110,100,101,120,41,0}; -static C_char li264[] C_aligned={C_lihdr(0,0,16),40,97,51,48,55,57,54,32,101,115,99,32,46,32,111,41}; -static C_char li265[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,103,101,116,45,101,112,115,105,108,111,110,115,32,105,41,0,0,0,0}; -static C_char li266[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,97,100,100,45,101,112,115,105,108,111,110,33,32,105,32,120,32,116,41}; -static C_char li267[] C_aligned={C_lihdr(0,0,24),40,110,101,119,45,115,116,97,116,101,45,110,117,109,98,101,114,32,115,116,97,116,101,41}; -static C_char li268[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,51,56,53,56,32,105,41,0,0}; -static C_char li269[] C_aligned={C_lihdr(0,0,24),40,97,100,100,45,115,116,97,116,101,33,32,110,50,32,116,114,97,110,115,45,108,115,41}; -static C_char li270[] C_aligned={C_lihdr(0,0,29),40,101,120,116,101,110,100,45,115,116,97,116,101,33,32,110,101,120,116,32,116,114,97,110,115,45,99,115,41,0,0,0}; -static C_char li271[] C_aligned={C_lihdr(0,0,25),40,97,100,100,45,99,104,97,114,45,115,116,97,116,101,33,32,110,101,120,116,32,99,104,41,0,0,0,0,0,0,0}; -static C_char li272[] C_aligned={C_lihdr(0,0,12),40,108,112,50,32,105,32,110,101,120,116,41,0,0,0,0}; -static C_char li273[] C_aligned={C_lihdr(0,0,12),40,103,51,57,57,52,32,99,101,108,108,41,0,0,0,0}; -static C_char li274[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,110,32,102,108,97,103,115,32,110,101,120,116,41,0,0,0,0}; -static C_char li275[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,52,48,48,52,32,105,41,0,0}; -static C_char li276[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,114,101,32,109,97,120,32,114,101,115,41}; -static C_char li277[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,110,102,97,32,115,114,101,32,105,110,105,116,45,102,108,97,103,115,41,0,0,0,0,0,0,0}; -static C_char li278[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,97,107,101,45,109,115,116,32,110,102,97,41,0,0}; -static C_char li279[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,99,111,112,121,32,109,115,116,41,0,0}; -static C_char li280[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,115,116,97,116,101,45,62,109,115,116,32,110,102,97,32,115,116,97,116,101,32,109,97,112,112,105,110,103,115,41,0,0,0,0,0}; -static C_char li281[] C_aligned={C_lihdr(0,0,7),40,103,52,48,54,50,41,0}; -static C_char li282[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,48,54,49,32,103,52,48,54,56,41,0,0,0,0,0,0,0}; -static C_char li283[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,97,100,100,33,32,110,102,97,32,109,115,116,32,115,116,97,116,101,32,109,97,112,112,105,110,103,115,41,0,0,0,0,0,0,0}; -static C_char li284[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,97,99,99,41,0,0,0,0,0,0}; -static C_char li285[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,109,115,116,45,102,111,108,100,32,109,115,116,32,107,111,110,115,32,107,110,105,108,41}; -static C_char li286[] C_aligned={C_lihdr(0,0,10),40,103,52,50,51,51,32,116,114,41,0,0,0,0,0,0}; -static C_char li287[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,50,50,55,32,103,52,50,51,57,41,0,0,0,0}; -static C_char li288[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,52,50,49,57,32,105,32,115,116,97,116,101,115,41,0,0,0}; -static C_char li289[] C_aligned={C_lihdr(0,0,21),40,108,112,32,105,32,115,116,97,116,101,115,32,105,110,100,101,120,101,115,41,0,0,0}; -static C_char li290[] C_aligned={C_lihdr(0,0,36),40,108,112,51,32,99,108,111,115,117,114,101,45,115,108,111,116,115,32,115,116,97,116,101,45,115,108,111,116,115,32,99,109,100,115,41,0,0,0,0}; -static C_char li291[] C_aligned={C_lihdr(0,0,26),40,108,112,50,32,115,116,97,116,101,45,115,117,109,109,97,114,121,32,116,32,99,109,100,115,41,0,0,0,0,0,0}; -static C_char li292[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; -static C_char li293[] C_aligned={C_lihdr(0,0,15),40,108,112,32,100,102,97,45,115,116,97,116,101,115,41,0}; -static C_char li294[] C_aligned={C_lihdr(0,0,37),40,108,112,50,32,116,114,97,110,115,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,32,100,102,97,45,116,114,97,110,115,41,0,0,0}; -static C_char li295[] C_aligned={C_lihdr(0,0,20),40,103,52,50,56,50,32,105,110,116,101,114,115,101,99,116,105,111,110,41,0,0,0,0}; -static C_char li296[] C_aligned={C_lihdr(0,0,20),40,108,112,32,108,115,32,99,115,32,115,116,97,116,101,32,114,101,115,41,0,0,0,0}; -static C_char li297[] C_aligned={C_lihdr(0,0,24),40,97,50,50,55,53,51,32,115,116,32,109,97,112,112,105,110,103,115,32,114,101,115,41}; -static C_char li298[] C_aligned={C_lihdr(0,0,43),40,108,112,32,117,110,109,97,114,107,101,100,45,115,116,97,116,101,115,32,109,97,114,107,101,100,45,115,116,97,116,101,115,32,100,102,97,45,115,105,122,101,41,0,0,0,0,0}; -static C_char li299[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,62,100,102,97,32,110,102,97,32,111,41}; -static C_char li300[] C_aligned={C_lihdr(0,0,10),40,108,112,32,109,32,114,101,115,41,0,0,0,0,0,0}; -static C_char li301[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,49,54,50,41,0,0,0,0}; -static C_char li302[] C_aligned={C_lihdr(0,0,11),40,103,52,51,49,55,32,116,97,103,41,0,0,0,0,0}; -static C_char li303[] C_aligned={C_lihdr(0,0,17),40,108,112,50,32,116,114,97,110,115,32,115,116,97,99,107,41,0,0,0,0,0,0,0}; -static C_char li304[] C_aligned={C_lihdr(0,0,29),40,108,112,32,115,116,97,99,107,32,112,114,105,111,114,105,116,105,101,115,32,99,108,111,115,117,114,101,41,0,0,0}; -static C_char li305[] C_aligned={C_lihdr(0,0,17),40,97,50,51,48,52,49,32,115,116,32,109,32,114,101,115,41,0,0,0,0,0,0,0}; -static C_char li306[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,110,102,97,45,101,112,115,105,108,111,110,45,99,108,111,115,117,114,101,32,110,102,97,32,115,116,97,116,101,115,41}; -static C_char li307[] C_aligned={C_lihdr(0,0,10),40,97,50,51,49,54,53,32,99,41,0,0,0,0,0,0}; -static C_char li308[] C_aligned={C_lihdr(0,0,10),40,97,50,51,49,56,57,32,99,41,0,0,0,0,0,0}; -static C_char li309[] C_aligned={C_lihdr(0,0,16),40,108,112,50,32,115,49,32,115,50,32,99,109,100,115,41}; -static C_char li310[] C_aligned={C_lihdr(0,0,11),40,108,112,32,116,32,99,109,100,115,41,0,0,0,0,0}; -static C_char li311[] C_aligned={C_lihdr(0,0,79),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,116,97,103,45,115,101,116,45,99,111,109,109,97,110,100,115,45,102,111,114,45,99,108,111,115,117,114,101,32,110,102,97,32,111,114,105,103,45,115,116,97,116,101,32,99,108,111,115,117,114,101,32,99,111,112,121,45,99,109,100,115,41,0}; -static C_char li312[] C_aligned={C_lihdr(0,0,45),40,102,95,50,54,49,54,56,32,99,110,107,32,105,110,105,116,32,115,114,99,32,115,116,114,32,105,32,101,110,100,32,109,97,116,99,104,101,115,32,102,97,105,108,41,0,0,0}; -static C_char li313[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,99,115,101,116,45,62,112,114,111,99,101,100,117,114,101,32,99,115,101,116,32,110,101,120,116,41,0}; -static C_char li314[] C_aligned={C_lihdr(0,0,10),40,108,112,32,105,32,114,101,115,41,0,0,0,0,0,0}; -static C_char li315[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,112,108,105,115,116,32,99,115,41}; -static C_char li316[] C_aligned={C_lihdr(0,0,14),40,97,50,54,52,55,53,32,99,104,32,99,115,41,0,0}; -static C_char li317[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,62,99,115,101,116,32,115,41}; -static C_char li318[] C_aligned={C_lihdr(0,0,9),40,114,101,99,32,115,114,101,41,0,0,0,0,0,0,0}; -static C_char li319[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,50,53,32,103,53,50,51,55,41,0,0,0,0}; -static C_char li320[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,53,49,32,103,53,50,54,51,41,0,0,0,0}; -static C_char li321[] C_aligned={C_lihdr(0,0,14),40,97,50,54,54,55,57,32,120,32,114,101,115,41,0,0}; -static C_char li322[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,50,55,57,32,103,53,50,57,49,41,0,0,0,0}; -static C_char li323[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; -static C_char li324[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; -static C_char li325[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,51,48,54,32,103,53,51,49,56,41,0,0,0,0}; -static C_char li326[] C_aligned={C_lihdr(0,0,12),40,108,112,32,115,114,101,32,99,105,63,41,0,0,0,0}; -static C_char li327[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,99,115,101,116,32,115,114,101,32,111,41,0,0,0,0,0,0,0}; -static C_char li328[] C_aligned={C_lihdr(0,0,16),40,108,112,32,108,111,119,101,114,32,117,112,112,101,114,41}; -static C_char li329[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,111,110,116,97,105,110,115,63,32,99,115,101,116,32,99,104,41}; -static C_char li330[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,104,97,114,45,114,97,110,103,101,115,45,117,110,105,111,110,32,98,41,0,0,0}; -static C_char li331[] C_aligned={C_lihdr(0,0,21),40,117,110,105,111,110,45,114,97,110,103,101,32,97,32,98,32,114,101,115,41,0,0,0}; -static C_char li332[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,117,110,105,111,110,32,97,32,98,41}; -static C_char li333[] C_aligned={C_lihdr(0,0,14),40,100,105,102,102,32,97,32,98,32,114,101,115,41,0,0}; -static C_char li334[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,100,105,102,102,101,114,101,110,99,101,32,97,32,98,41,0,0,0}; -static C_char li335[] C_aligned={C_lihdr(0,0,19),40,105,110,116,101,114,115,101,99,116,32,97,32,98,32,114,101,115,41,0,0,0,0,0}; -static C_char li336[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,105,110,116,101,114,115,101,99,116,105,111,110,32,97,32,98,41,0}; -static C_char li337[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,111,109,112,108,101,109,101,110,116,32,97,41,0,0,0,0,0}; -static C_char li338[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; -static C_char li339[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,99,97,115,101,45,105,110,115,101,110,115,105,116,105,118,101,32,97,41,0,0,0,0,0,0,0}; -static C_char li340[] C_aligned={C_lihdr(0,0,15),40,102,95,50,55,57,51,55,32,105,32,97,99,99,41,0}; -static C_char li341[] C_aligned={C_lihdr(0,0,19),40,108,112,32,115,114,99,32,102,114,111,109,32,105,32,97,99,99,41,0,0,0,0,0}; -static C_char li342[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,102,97,115,116,32,105,114,120,32,107,111,110,115,32,107,110,105,108,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0}; -static C_char li343[] C_aligned={C_lihdr(0,0,15),40,107,111,110,115,50,32,105,32,109,32,97,99,99,41,0}; -static C_char li344[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,32,105,114,120,32,107,111,110,115,32,46,32,97,114,103,115,41,0,0}; -static C_char li345[] C_aligned={C_lihdr(0,0,19),40,102,95,50,56,49,53,55,32,115,114,99,32,105,32,97,99,99,41,0,0,0,0,0}; -static C_char li346[] C_aligned={C_lihdr(0,0,16),40,108,112,32,115,116,97,114,116,32,105,32,97,99,99,41}; -static C_char li347[] C_aligned={C_lihdr(0,0,71),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,99,104,117,110,107,101,100,47,102,97,115,116,32,105,114,120,32,107,111,110,115,32,107,110,105,108,32,99,110,107,32,115,116,97,114,116,32,46,32,111,41,0}; -static C_char li348[] C_aligned={C_lihdr(0,0,17),40,107,111,110,115,50,32,115,32,105,32,109,32,97,99,99,41,0,0,0,0,0,0,0}; -static C_char li349[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,102,111,108,100,47,99,104,117,110,107,101,100,32,105,114,120,32,107,111,110,115,32,46,32,97,114,103,115,41,0,0}; -static C_char li350[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0}; -static C_char li351[] C_aligned={C_lihdr(0,0,16),40,97,50,56,50,55,54,32,105,32,109,32,97,99,99,41}; -static C_char li352[] C_aligned={C_lihdr(0,0,14),40,97,50,56,51,50,55,32,105,32,97,99,99,41,0,0}; -static C_char li353[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,114,101,112,108,97,99,101,47,97,108,108,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0,0,0}; -static C_char li354[] C_aligned={C_lihdr(0,0,9),40,103,53,54,51,51,32,120,41,0,0,0,0,0,0,0}; -static C_char li355[] C_aligned={C_lihdr(0,0,11),40,108,112,32,108,115,32,114,101,115,41,0,0,0,0,0}; -static C_char li356[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,97,112,112,108,121,45,109,97,116,99,104,32,109,32,108,115,41,0,0,0,0,0,0}; -static C_char li357[] C_aligned={C_lihdr(0,0,14),40,97,50,56,54,48,48,32,105,32,109,32,97,41,0,0}; -static C_char li358[] C_aligned={C_lihdr(0,0,12),40,97,50,56,54,49,48,32,105,32,97,41,0,0,0,0}; -static C_char li359[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,101,120,116,114,97,99,116,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0}; -static C_char li360[] C_aligned={C_lihdr(0,0,14),40,97,50,56,54,52,49,32,105,32,109,32,97,41,0,0}; -static C_char li361[] C_aligned={C_lihdr(0,0,21),40,108,112,32,108,115,32,114,101,115,32,119,97,115,45,99,104,97,114,63,41,0,0,0}; -static C_char li362[] C_aligned={C_lihdr(0,0,12),40,97,50,56,54,57,57,32,105,32,97,41,0,0,0,0}; -static C_char li363[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,115,112,108,105,116,32,105,114,120,32,115,116,114,32,46,32,111,41,0,0,0,0,0}; -static C_char li364[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,105,41}; -static C_char li365[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,116,114,105,110,103,45,115,99,97,110,45,99,104,97,114,32,115,116,114,32,99,32,46,32,111,41,0,0,0,0}; -static C_char li366[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,108,115,32,114,101,115,41,0,0,0}; -static C_char li367[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,113,117,111,116,101,32,115,116,114,41,0,0,0,0,0}; -static C_char li368[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,53,57,51,52,32,103,53,57,52,54,41,0,0,0,0}; -static C_char li369[] C_aligned={C_lihdr(0,0,10),40,97,50,57,48,51,49,32,120,41,0,0,0,0,0,0}; -static C_char li370[] C_aligned={C_lihdr(0,0,11),40,108,112,50,32,105,32,114,101,115,41,0,0,0,0,0}; -static C_char li371[] C_aligned={C_lihdr(0,0,15),40,108,112,49,32,108,115,32,101,109,112,116,121,63,41,0}; -static C_char li372[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,105,114,114,101,103,101,120,45,111,112,116,32,108,115,41}; -static C_char li373[] C_aligned={C_lihdr(0,0,7),40,108,112,32,108,115,41,0}; -static C_char li374[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,99,115,101,116,45,62,115,116,114,105,110,103,32,108,115,41,0,0,0,0,0,0,0}; -static C_char li375[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,51,52,32,103,54,48,52,49,41,0,0,0,0,0,0,0}; -static C_char li376[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,53,51,32,103,54,48,54,48,41,0,0,0,0,0,0,0}; -static C_char li377[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,55,48,32,103,54,48,55,55,41,0,0,0,0,0,0,0}; -static C_char li378[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,48,56,57,32,103,54,48,57,54,41,0,0,0,0,0,0,0}; -static C_char li379[] C_aligned={C_lihdr(0,0,9),40,103,54,49,49,49,32,120,41,0,0,0,0,0,0,0}; -static C_char li380[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,49,48,32,103,54,49,49,55,41,0,0,0,0,0,0,0}; -static C_char li381[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,49,53,50,32,103,54,49,53,57,41,0,0,0,0,0,0,0}; -static C_char li382[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,50,48,55,32,103,54,50,49,52,41,0,0,0,0,0,0,0}; -static C_char li383[] C_aligned={C_lihdr(0,0,6),40,108,112,32,120,41,0,0}; -static C_char li384[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,115,114,101,45,62,115,116,114,105,110,103,32,111,98,106,41,0,0,0,0,0,0,0}; -static C_char li385[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,50,32,114,101,115,116,32,115,41,0,0}; -static C_char li386[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,115,32,100,105,114,41,0,0,0}; -static C_char li387[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,114,114,101,103,101,120,35,103,108,111,98,45,62,115,114,101,32,115,41,0,0,0}; -static C_char li388[] C_aligned={C_lihdr(0,0,10),40,97,51,48,57,53,56,32,120,41,0,0,0,0,0,0}; -static C_char li389[] C_aligned={C_lihdr(0,0,22),40,97,51,48,57,54,49,32,115,114,99,49,32,105,32,115,114,99,50,32,106,41,0,0}; -static C_char li390[] C_aligned={C_lihdr(0,0,14),40,97,51,48,57,57,53,32,109,32,111,117,116,41,0,0}; -static C_char li391[] 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(f33666) -static void C_ccall f33666(C_word c,C_word *av) C_noret; -C_noret_decl(f33670) -static void C_ccall f33670(C_word c,C_word *av) C_noret; -C_noret_decl(f_10016) -static void f_10016(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_10019) -static void f_10019(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10033) -static void C_ccall f_10033(C_word c,C_word *av) C_noret; -C_noret_decl(f_10058) -static void C_ccall f_10058(C_word c,C_word *av) C_noret; -C_noret_decl(f_10065) -static void C_ccall f_10065(C_word c,C_word *av) C_noret; -C_noret_decl(f_10084) -static void C_ccall f_10084(C_word c,C_word *av) C_noret; -C_noret_decl(f_10117) -static void C_ccall f_10117(C_word c,C_word *av) C_noret; -C_noret_decl(f_10135) -static void C_ccall f_10135(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_10235) -static void f_10235(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10245) -static void f_10245(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10248) -static void C_ccall f_10248(C_word c,C_word *av) C_noret; -C_noret_decl(f_10255) -static void C_ccall f_10255(C_word c,C_word *av) C_noret; -C_noret_decl(f_10258) -static void C_ccall f_10258(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_10327) -static void f_10327(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10333) -static void f_10333(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_10351) -static void f_10351(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10362) -static void f_10362(C_word t0,C_word t1) 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_10462) -static void C_ccall f_10462(C_word c,C_word *av) C_noret; -C_noret_decl(f_10466) -static void C_ccall f_10466(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_10477) -static void f_10477(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_10480) -static C_word f_10480(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_10502) -static void f_10502(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10519) -static void C_ccall f_10519(C_word c,C_word *av) C_noret; -C_noret_decl(f_10522) -static void C_ccall f_10522(C_word c,C_word *av) C_noret; -C_noret_decl(f_10524) -static void f_10524(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10558) -static void f_10558(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10572) -static void C_ccall f_10572(C_word c,C_word *av) C_noret; -C_noret_decl(f_10576) -static void C_ccall f_10576(C_word c,C_word *av) C_noret; -C_noret_decl(f_10578) -static void f_10578(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10585) -static void C_ccall f_10585(C_word c,C_word *av) C_noret; -C_noret_decl(f_10594) -static void f_10594(C_word t0,C_word t1) 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_10618) -static void C_ccall f_10618(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_10650) -static void f_10650(C_word t0,C_word t1) 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_10657) -static void f_10657(C_word t0,C_word t1) C_noret; -C_noret_decl(f_10660) -static void f_10660(C_word t0,C_word t1) 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_10668) -static void f_10668(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_10671) -static C_word f_10671(C_word *a,C_word t0); -C_noret_decl(f_10741) -static void C_ccall f_10741(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_10833) -static void C_ccall f_10833(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_10858) -static void C_ccall f_10858(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_10883) -static void f_10883(C_word t0,C_word t1) 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_10955) -static void C_ccall f_10955(C_word c,C_word *av) C_noret; -C_noret_decl(f_10984) -static void f_10984(C_word t0,C_word t1) C_noret; -C_noret_decl(f_11115) -static void C_ccall f_11115(C_word c,C_word *av) C_noret; -C_noret_decl(f_11121) -static void C_ccall f_11121(C_word c,C_word *av) C_noret; -C_noret_decl(f_11136) -static void C_ccall f_11136(C_word c,C_word *av) C_noret; -C_noret_decl(f_11207) -static void C_ccall f_11207(C_word c,C_word *av) C_noret; -C_noret_decl(f_11237) -static void C_ccall f_11237(C_word c,C_word *av) C_noret; -C_noret_decl(f_11247) -static void f_11247(C_word t0,C_word t1) C_noret; -C_noret_decl(f_11269) -static void C_ccall f_11269(C_word c,C_word *av) 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_11319) -static void C_ccall f_11319(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_11368) -static void C_ccall f_11368(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_11433) -static void C_ccall f_11433(C_word c,C_word *av) C_noret; -C_noret_decl(f_11456) -static void C_ccall f_11456(C_word c,C_word *av) C_noret; -C_noret_decl(f_11459) -static void C_ccall f_11459(C_word c,C_word *av) C_noret; -C_noret_decl(f_11485) -static void C_ccall f_11485(C_word c,C_word *av) C_noret; -C_noret_decl(f_11489) -static void C_ccall f_11489(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_11545) -static void C_ccall f_11545(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_11573) -static void C_ccall f_11573(C_word c,C_word *av) C_noret; -C_noret_decl(f_11603) -static void C_ccall f_11603(C_word c,C_word *av) C_noret; -C_noret_decl(f_11607) -static void C_ccall f_11607(C_word c,C_word *av) C_noret; -C_noret_decl(f_11622) -static void C_ccall f_11622(C_word c,C_word *av) C_noret; -C_noret_decl(f_11625) -static void C_ccall f_11625(C_word c,C_word *av) C_noret; -C_noret_decl(f_11646) -static void C_ccall f_11646(C_word c,C_word *av) C_noret; -C_noret_decl(f_11650) -static void C_ccall f_11650(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_11704) -static void f_11704(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_11707) -static C_word f_11707(C_word t0,C_word t1); -C_noret_decl(f_11716) -static C_word f_11716(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_11860) -static void C_ccall f_11860(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_11982) -static void C_ccall f_11982(C_word c,C_word *av) C_noret; -C_noret_decl(f_11997) -static void C_ccall f_11997(C_word c,C_word *av) C_noret; -C_noret_decl(f_12017) -static void C_ccall f_12017(C_word c,C_word *av) C_noret; -C_noret_decl(f_12021) -static void C_ccall f_12021(C_word c,C_word *av) C_noret; -C_noret_decl(f_12040) -static void f_12040(C_word t0,C_word t1) C_noret; -C_noret_decl(f_12049) -static void C_ccall f_12049(C_word c,C_word *av) C_noret; -C_noret_decl(f_12065) -static void C_ccall f_12065(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_12071) -static void C_ccall f_12071(C_word c,C_word *av) C_noret; -C_noret_decl(f_12074) -static void C_ccall f_12074(C_word c,C_word *av) C_noret; -C_noret_decl(f_12083) -static void f_12083(C_word t0,C_word t1) C_noret; -C_noret_decl(f_12193) -static void C_ccall f_12193(C_word c,C_word *av) C_noret; -C_noret_decl(f_12269) -static void C_ccall f_12269(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_12319) -static void C_ccall f_12319(C_word c,C_word *av) C_noret; -C_noret_decl(f_12346) -static void C_ccall f_12346(C_word c,C_word *av) C_noret; -C_noret_decl(f_12373) -static void C_ccall f_12373(C_word c,C_word *av) C_noret; -C_noret_decl(f_12404) -static void C_ccall f_12404(C_word c,C_word *av) C_noret; -C_noret_decl(f_12439) -static void C_ccall f_12439(C_word c,C_word *av) C_noret; -C_noret_decl(f_12462) -static void C_ccall f_12462(C_word c,C_word *av) C_noret; -C_noret_decl(f_12485) -static void C_ccall f_12485(C_word c,C_word *av) C_noret; -C_noret_decl(f_12516) -static void C_ccall f_12516(C_word c,C_word *av) C_noret; -C_noret_decl(f_12539) -static void C_ccall f_12539(C_word c,C_word *av) C_noret; -C_noret_decl(f_12562) -static void C_ccall f_12562(C_word c,C_word *av) C_noret; -C_noret_decl(f_12585) -static void C_ccall f_12585(C_word c,C_word *av) C_noret; -C_noret_decl(f_12608) -static void C_ccall f_12608(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_12642) -static void C_ccall f_12642(C_word c,C_word *av) C_noret; -C_noret_decl(f_12662) -static void C_ccall f_12662(C_word c,C_word *av) C_noret; -C_noret_decl(f_12666) -static void C_ccall f_12666(C_word c,C_word *av) C_noret; -C_noret_decl(f_12690) -static void f_12690(C_word t0,C_word t1) 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_12696) -static void C_ccall f_12696(C_word c,C_word *av) 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_12735) -static void C_ccall f_12735(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_12770) -static void f_12770(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_12830) -static void C_ccall f_12830(C_word c,C_word *av) C_noret; -C_noret_decl(f_12873) -static void C_ccall f_12873(C_word c,C_word *av) C_noret; -C_noret_decl(f_12885) -static void C_ccall f_12885(C_word c,C_word *av) C_noret; -C_noret_decl(f_12894) -static void C_ccall f_12894(C_word c,C_word *av) C_noret; -C_noret_decl(f_12914) -static void C_ccall f_12914(C_word c,C_word *av) C_noret; -C_noret_decl(f_12918) -static void C_ccall f_12918(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_12974) -static void C_ccall f_12974(C_word c,C_word *av) C_noret; -C_noret_decl(f_12990) -static void C_ccall f_12990(C_word c,C_word *av) C_noret; -C_noret_decl(f_13054) -static void C_ccall f_13054(C_word c,C_word *av) C_noret; -C_noret_decl(f_13080) -static void C_ccall f_13080(C_word c,C_word *av) C_noret; -C_noret_decl(f_13109) -static void C_ccall f_13109(C_word c,C_word *av) C_noret; -C_noret_decl(f_13137) -static void C_ccall f_13137(C_word c,C_word *av) C_noret; -C_noret_decl(f_13158) -static void C_ccall f_13158(C_word c,C_word *av) C_noret; -C_noret_decl(f_13176) -static void C_ccall f_13176(C_word c,C_word *av) C_noret; -C_noret_decl(f_13290) -static void f_13290(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_13309) -static void C_ccall f_13309(C_word c,C_word *av) C_noret; -C_noret_decl(f_13321) -static void C_ccall f_13321(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_13355) -static void C_ccall f_13355(C_word c,C_word *av) C_noret; -C_noret_decl(f_13358) -static void C_ccall f_13358(C_word c,C_word *av) C_noret; -C_noret_decl(f_13399) -static void f_13399(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_13434) -static void C_ccall f_13434(C_word c,C_word *av) C_noret; -C_noret_decl(f_13444) -static void C_ccall f_13444(C_word c,C_word *av) C_noret; -C_noret_decl(f_13451) -static void C_ccall f_13451(C_word c,C_word *av) C_noret; -C_noret_decl(f_13472) -static void f_13472(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13482) -static void C_ccall f_13482(C_word c,C_word *av) C_noret; -C_noret_decl(f_13499) -static void C_ccall f_13499(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_13527) -static void C_ccall f_13527(C_word c,C_word *av) C_noret; -C_noret_decl(f_13528) -static C_word f_13528(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_13549) -static void f_13549(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13561) -static void f_13561(C_word t0,C_word t1) 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_13674) -static void C_ccall f_13674(C_word c,C_word *av) C_noret; -C_noret_decl(f_13683) -static void f_13683(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13689) -static void C_ccall f_13689(C_word c,C_word *av) C_noret; -C_noret_decl(f_13692) -static void C_ccall f_13692(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_13709) -static void C_ccall f_13709(C_word c,C_word *av) C_noret; -C_noret_decl(f_13713) -static void C_ccall f_13713(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_13796) -static void f_13796(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13806) -static void C_ccall f_13806(C_word c,C_word *av) C_noret; -C_noret_decl(f_13810) -static void C_ccall f_13810(C_word c,C_word *av) C_noret; -C_noret_decl(f_13814) -static void C_ccall f_13814(C_word c,C_word *av) C_noret; -C_noret_decl(f_13829) -static void C_ccall f_13829(C_word c,C_word *av) C_noret; -C_noret_decl(f_13837) -static void C_ccall f_13837(C_word c,C_word *av) C_noret; -C_noret_decl(f_13841) -static void C_ccall f_13841(C_word c,C_word *av) C_noret; -C_noret_decl(f_13860) -static void C_ccall f_13860(C_word c,C_word *av) C_noret; -C_noret_decl(f_13913) -static void f_13913(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13927) -static void C_ccall f_13927(C_word c,C_word *av) C_noret; -C_noret_decl(f_13931) -static void C_ccall f_13931(C_word c,C_word *av) C_noret; -C_noret_decl(f_13935) -static void C_ccall f_13935(C_word c,C_word *av) C_noret; -C_noret_decl(f_13945) -static void C_ccall f_13945(C_word c,C_word *av) C_noret; -C_noret_decl(f_14003) -static void C_ccall f_14003(C_word c,C_word *av) C_noret; -C_noret_decl(f_14024) -static void f_14024(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_14027) -static C_word f_14027(C_word t0,C_word t1); -C_noret_decl(f_14219) -static void f_14219(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14257) -static void f_14257(C_word t0,C_word t1) C_noret; -C_noret_decl(f_14333) -static void f_14333(C_word t0,C_word t1) C_noret; -C_noret_decl(f_14474) -static void C_ccall f_14474(C_word c,C_word *av) C_noret; -C_noret_decl(f_14477) -static void C_ccall f_14477(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_14503) -static void f_14503(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_14535) -static void C_ccall f_14535(C_word c,C_word *av) C_noret; -C_noret_decl(f_14560) -static void C_ccall f_14560(C_word c,C_word *av) C_noret; -C_noret_decl(f_14564) -static void C_ccall f_14564(C_word c,C_word *av) C_noret; -C_noret_decl(f_14575) -static void C_ccall f_14575(C_word c,C_word *av) C_noret; -C_noret_decl(f_14583) -static void C_ccall f_14583(C_word c,C_word *av) C_noret; -C_noret_decl(f_14609) -static void f_14609(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_14639) -static void C_ccall f_14639(C_word c,C_word *av) C_noret; -C_noret_decl(f_14649) -static void C_ccall f_14649(C_word c,C_word *av) C_noret; -C_noret_decl(f_14657) -static void C_ccall f_14657(C_word c,C_word *av) C_noret; -C_noret_decl(f_14673) -static void C_ccall f_14673(C_word c,C_word *av) C_noret; -C_noret_decl(f_14675) -static void f_14675(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14711) -static void f_14711(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14747) -static void f_14747(C_word t0,C_word t1) C_noret; -C_noret_decl(f_14767) -static void C_ccall f_14767(C_word c,C_word *av) C_noret; -C_noret_decl(f_14769) -static void C_ccall f_14769(C_word c,C_word *av) C_noret; -C_noret_decl(f_14801) -static void C_ccall f_14801(C_word c,C_word *av) C_noret; -C_noret_decl(f_14808) -static void C_ccall f_14808(C_word c,C_word *av) C_noret; -C_noret_decl(f_14814) -static void C_ccall f_14814(C_word c,C_word *av) C_noret; -C_noret_decl(f_14830) -static void C_ccall f_14830(C_word c,C_word *av) C_noret; -C_noret_decl(f_14832) -static void f_14832(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14872) -static void C_ccall f_14872(C_word c,C_word *av) C_noret; -C_noret_decl(f_14878) -static void C_ccall f_14878(C_word c,C_word *av) C_noret; -C_noret_decl(f_14886) -static void f_14886(C_word t0,C_word t1) C_noret; -C_noret_decl(f_14906) -static void C_ccall f_14906(C_word c,C_word *av) C_noret; -C_noret_decl(f_14908) -static void C_ccall f_14908(C_word c,C_word *av) C_noret; -C_noret_decl(f_14940) -static void C_ccall f_14940(C_word c,C_word *av) C_noret; -C_noret_decl(f_14947) -static void C_ccall f_14947(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_14969) -static void C_ccall f_14969(C_word c,C_word *av) C_noret; -C_noret_decl(f_14971) -static void f_14971(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15011) -static void C_ccall f_15011(C_word c,C_word *av) C_noret; -C_noret_decl(f_15017) -static void C_ccall f_15017(C_word c,C_word *av) C_noret; -C_noret_decl(f_15036) -static void C_ccall f_15036(C_word c,C_word *av) C_noret; -C_noret_decl(f_15045) -static void f_15045(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15057) -static void f_15057(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15069) -static void C_ccall f_15069(C_word c,C_word *av) C_noret; -C_noret_decl(f_15075) -static void C_ccall f_15075(C_word c,C_word *av) C_noret; -C_noret_decl(f_15077) -static void f_15077(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15125) -static void C_ccall f_15125(C_word c,C_word *av) C_noret; -C_noret_decl(f_15133) -static void C_ccall f_15133(C_word c,C_word *av) C_noret; -C_noret_decl(f_15140) -static void C_ccall f_15140(C_word c,C_word *av) C_noret; -C_noret_decl(f_15146) -static void C_ccall f_15146(C_word c,C_word *av) C_noret; -C_noret_decl(f_15178) -static void C_ccall f_15178(C_word c,C_word *av) C_noret; -C_noret_decl(f_15180) -static void f_15180(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15230) -static void C_ccall f_15230(C_word c,C_word *av) C_noret; -C_noret_decl(f_15248) -static void f_15248(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15273) -static void C_ccall f_15273(C_word c,C_word *av) C_noret; -C_noret_decl(f_15316) -static void C_ccall f_15316(C_word c,C_word *av) C_noret; -C_noret_decl(f_15318) -static void f_15318(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15407) -static void C_ccall f_15407(C_word c,C_word *av) C_noret; -C_noret_decl(f_15409) -static void f_15409(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15464) -static void f_15464(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15472) -static void C_ccall f_15472(C_word c,C_word *av) C_noret; -C_noret_decl(f_15474) -static void f_15474(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_15488) -static void C_ccall f_15488(C_word c,C_word *av) C_noret; -C_noret_decl(f_15492) -static void C_ccall f_15492(C_word c,C_word *av) C_noret; -C_noret_decl(f_15510) -static void C_ccall f_15510(C_word c,C_word *av) C_noret; -C_noret_decl(f_15519) -static void f_15519(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15534) -static void C_ccall f_15534(C_word c,C_word *av) C_noret; -C_noret_decl(f_15586) -static void f_15586(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_15589) -static void f_15589(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15646) -static void f_15646(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15657) -static void C_ccall f_15657(C_word c,C_word *av) C_noret; -C_noret_decl(f_15659) -static void f_15659(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15684) -static void C_ccall f_15684(C_word c,C_word *av) C_noret; -C_noret_decl(f_15707) -static void f_15707(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15718) -static void C_ccall f_15718(C_word c,C_word *av) C_noret; -C_noret_decl(f_15720) -static void f_15720(C_word t0,C_word t1,C_word t2) 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_15761) -static void f_15761(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15770) -static void C_ccall f_15770(C_word c,C_word *av) C_noret; -C_noret_decl(f_15776) -static void C_ccall f_15776(C_word c,C_word *av) C_noret; -C_noret_decl(f_15786) -static void C_ccall f_15786(C_word c,C_word *av) C_noret; -C_noret_decl(f_15793) -static void C_ccall f_15793(C_word c,C_word *av) C_noret; -C_noret_decl(f_15828) -static void C_ccall f_15828(C_word c,C_word *av) C_noret; -C_noret_decl(f_15830) -static void f_15830(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_15855) -static void C_ccall f_15855(C_word c,C_word *av) C_noret; -C_noret_decl(f_15884) -static void C_ccall f_15884(C_word c,C_word *av) C_noret; -C_noret_decl(f_15886) -static void f_15886(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_15975) -static void f_15975(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15985) -static void C_ccall f_15985(C_word c,C_word *av) C_noret; -C_noret_decl(f_15988) -static void C_ccall f_15988(C_word c,C_word *av) C_noret; -C_noret_decl(f_15990) -static void f_15990(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_16037) -static void C_ccall f_16037(C_word c,C_word *av) C_noret; -C_noret_decl(f_16044) -static void C_ccall f_16044(C_word c,C_word *av) C_noret; -C_noret_decl(f_16098) -static void C_ccall f_16098(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_16173) -static void C_ccall f_16173(C_word c,C_word *av) C_noret; -C_noret_decl(f_16175) -static void C_ccall f_16175(C_word c,C_word *av) C_noret; -C_noret_decl(f_16179) -static void C_ccall f_16179(C_word c,C_word *av) C_noret; -C_noret_decl(f_16182) -static void C_ccall f_16182(C_word c,C_word *av) C_noret; -C_noret_decl(f_16185) -static void C_ccall f_16185(C_word c,C_word *av) C_noret; -C_noret_decl(f_16188) -static void C_ccall f_16188(C_word c,C_word *av) C_noret; -C_noret_decl(f_16194) -static void C_ccall f_16194(C_word c,C_word *av) C_noret; -C_noret_decl(f_16197) -static void C_ccall f_16197(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_16203) -static void C_ccall f_16203(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_16221) -static void C_ccall f_16221(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_16240) -static void f_16240(C_word t0,C_word t1,C_word t2) 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_16270) -static void f_16270(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_16308) -static void C_ccall f_16308(C_word c,C_word *av) C_noret; -C_noret_decl(f_16325) -static void f_16325(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16368) -static void f_16368(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16475) -static void C_ccall f_16475(C_word c,C_word *av) C_noret; -C_noret_decl(f_16498) -static void f_16498(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16576) -static C_word f_16576(C_word t0); -C_noret_decl(f_16621) -static void C_ccall f_16621(C_word c,C_word *av) C_noret; -C_noret_decl(f_16638) -static void f_16638(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16710) -static void C_ccall f_16710(C_word c,C_word *av) C_noret; -C_noret_decl(f_16714) -static void C_ccall f_16714(C_word c,C_word *av) C_noret; -C_noret_decl(f_16751) -static void f_16751(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16827) -static void C_ccall f_16827(C_word c,C_word *av) C_noret; -C_noret_decl(f_16831) -static void C_ccall f_16831(C_word c,C_word *av) C_noret; -C_noret_decl(f_16868) -static void f_16868(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16881) -static void C_ccall f_16881(C_word c,C_word *av) C_noret; -C_noret_decl(f_16944) -static void C_ccall f_16944(C_word c,C_word *av) C_noret; -C_noret_decl(f_16970) -static void C_ccall f_16970(C_word c,C_word *av) C_noret; -C_noret_decl(f_16983) -static void f_16983(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16989) -static void C_ccall f_16989(C_word c,C_word *av) C_noret; -C_noret_decl(f_17010) -static void C_ccall f_17010(C_word c,C_word *av) C_noret; -C_noret_decl(f_17016) -static void f_17016(C_word t0,C_word t1) 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_17083) -static void C_ccall f_17083(C_word c,C_word *av) C_noret; -C_noret_decl(f_17086) -static void C_ccall f_17086(C_word c,C_word *av) C_noret; -C_noret_decl(f_17093) -static void C_ccall f_17093(C_word c,C_word *av) C_noret; -C_noret_decl(f_17095) -static void f_17095(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_17098) -static void f_17098(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_17138) -static void f_17138(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17154) -static void C_ccall f_17154(C_word c,C_word *av) C_noret; -C_noret_decl(f_17167) -static void f_17167(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17174) -static void f_17174(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_17207) -static void C_ccall f_17207(C_word c,C_word *av) C_noret; -C_noret_decl(f_17237) -static void C_ccall f_17237(C_word c,C_word *av) C_noret; -C_noret_decl(f_17252) -static void f_17252(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_17305) -static void C_ccall f_17305(C_word c,C_word *av) C_noret; -C_noret_decl(f_17309) -static void C_ccall f_17309(C_word c,C_word *av) C_noret; -C_noret_decl(f_17322) -static void C_ccall f_17322(C_word c,C_word *av) C_noret; -C_noret_decl(f_17345) -static void C_ccall f_17345(C_word c,C_word *av) C_noret; -C_noret_decl(f_17348) -static void C_ccall f_17348(C_word c,C_word *av) C_noret; -C_noret_decl(f_17355) -static void f_17355(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17357) -static void C_ccall f_17357(C_word c,C_word *av) C_noret; -C_noret_decl(f_17371) -static void C_ccall f_17371(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_17410) -static void C_ccall f_17410(C_word c,C_word *av) C_noret; -C_noret_decl(f_17414) -static void C_ccall f_17414(C_word c,C_word *av) C_noret; -C_noret_decl(f_17491) -static void f_17491(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17504) -static void C_ccall f_17504(C_word c,C_word *av) C_noret; -C_noret_decl(f_17540) -static void C_ccall f_17540(C_word c,C_word *av) C_noret; -C_noret_decl(f_17549) -static void f_17549(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17649) -static void C_ccall f_17649(C_word c,C_word *av) C_noret; -C_noret_decl(f_17658) -static void C_ccall f_17658(C_word c,C_word *av) C_noret; -C_noret_decl(f_17676) -static void f_17676(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17679) -static void f_17679(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17697) -static void C_ccall f_17697(C_word c,C_word *av) C_noret; -C_noret_decl(f_17744) -static void C_ccall f_17744(C_word c,C_word *av) C_noret; -C_noret_decl(f_17818) -static void C_ccall f_17818(C_word c,C_word *av) C_noret; -C_noret_decl(f_17846) -static void C_ccall f_17846(C_word c,C_word *av) C_noret; -C_noret_decl(f_17871) -static void f_17871(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17890) -static void f_17890(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17911) -static void f_17911(C_word t0,C_word t1) C_noret; -C_noret_decl(f_17921) -static void f_17921(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_17929) -static void C_ccall f_17929(C_word c,C_word *av) C_noret; -C_noret_decl(f_18157) -static void C_ccall f_18157(C_word c,C_word *av) C_noret; -C_noret_decl(f_18180) -static void C_ccall f_18180(C_word c,C_word *av) C_noret; -C_noret_decl(f_18189) -static C_word f_18189(C_word *a,C_word t0); -C_noret_decl(f_18212) -static C_word f_18212(C_word *a,C_word t0); -C_noret_decl(f_18235) -static void C_ccall f_18235(C_word c,C_word *av) C_noret; -C_noret_decl(f_18308) -static void f_18308(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_18333) -static void C_ccall f_18333(C_word c,C_word *av) C_noret; -C_noret_decl(f_18368) -static void f_18368(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_18391) -static void C_ccall f_18391(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_18416) -static void f_18416(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_18518) -static void f_18518(C_word t0,C_word t1) C_noret; -C_noret_decl(f_18702) -static void f_18702(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_18724) -static void C_ccall f_18724(C_word c,C_word *av) C_noret; -C_noret_decl(f_18730) -static void C_ccall f_18730(C_word c,C_word *av) C_noret; -C_noret_decl(f_18734) -static void C_ccall f_18734(C_word c,C_word *av) C_noret; -C_noret_decl(f_18751) -static void f_18751(C_word t0,C_word t1) C_noret; -C_noret_decl(f_18784) -static void C_ccall f_18784(C_word c,C_word *av) C_noret; -C_noret_decl(f_18821) -static void C_ccall f_18821(C_word c,C_word *av) C_noret; -C_noret_decl(f_18823) -static void f_18823(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_18848) -static void C_ccall f_18848(C_word c,C_word *av) C_noret; -C_noret_decl(f_18916) -static void C_ccall f_18916(C_word c,C_word *av) C_noret; -C_noret_decl(f_18918) -static void C_ccall f_18918(C_word c,C_word *av) C_noret; -C_noret_decl(f_18922) -static void C_ccall f_18922(C_word c,C_word *av) C_noret; -C_noret_decl(f_18931) -static void f_18931(C_word t0,C_word t1) C_noret; -C_noret_decl(f_18937) -static void C_ccall f_18937(C_word c,C_word *av) C_noret; -C_noret_decl(f_18940) -static void C_ccall f_18940(C_word c,C_word *av) C_noret; -C_noret_decl(f_19008) -static void C_ccall f_19008(C_word c,C_word *av) C_noret; -C_noret_decl(f_19012) -static void C_ccall f_19012(C_word c,C_word *av) C_noret; -C_noret_decl(f_19015) -static void C_ccall f_19015(C_word c,C_word *av) C_noret; -C_noret_decl(f_19018) -static void C_ccall f_19018(C_word c,C_word *av) C_noret; -C_noret_decl(f_19021) -static void C_ccall f_19021(C_word c,C_word *av) C_noret; -C_noret_decl(f_19051) -static void f_19051(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_19070) -static void C_ccall f_19070(C_word c,C_word *av) C_noret; -C_noret_decl(f_19095) -static void C_ccall f_19095(C_word c,C_word *av) C_noret; -C_noret_decl(f_19112) -static void f_19112(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_19116) -static void C_ccall f_19116(C_word c,C_word *av) C_noret; -C_noret_decl(f_19121) -static void f_19121(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_19128) -static void C_ccall f_19128(C_word c,C_word *av) C_noret; -C_noret_decl(f_19151) -static void C_ccall f_19151(C_word c,C_word *av) C_noret; -C_noret_decl(f_19161) -static void C_ccall f_19161(C_word c,C_word *av) C_noret; -C_noret_decl(f_19182) -static void C_ccall f_19182(C_word c,C_word *av) C_noret; -C_noret_decl(f_19200) -static void C_ccall f_19200(C_word c,C_word *av) C_noret; -C_noret_decl(f_19206) -static void C_ccall f_19206(C_word c,C_word *av) C_noret; -C_noret_decl(f_19220) -static void C_ccall f_19220(C_word c,C_word *av) C_noret; -C_noret_decl(f_19226) -static void f_19226(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_19233) -static void C_ccall f_19233(C_word c,C_word *av) C_noret; -C_noret_decl(f_19263) -static void C_ccall f_19263(C_word c,C_word *av) C_noret; -C_noret_decl(f_19276) -static void C_ccall f_19276(C_word c,C_word *av) C_noret; -C_noret_decl(f_19283) -static void C_ccall f_19283(C_word c,C_word *av) 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_19292) -static void C_ccall f_19292(C_word c,C_word *av) C_noret; -C_noret_decl(f_19300) -static void C_ccall f_19300(C_word c,C_word *av) C_noret; -C_noret_decl(f_19304) -static void C_ccall f_19304(C_word c,C_word *av) C_noret; -C_noret_decl(f_19313) -static void f_19313(C_word t0,C_word t1) C_noret; -C_noret_decl(f_19319) -static void C_ccall f_19319(C_word c,C_word *av) C_noret; -C_noret_decl(f_19322) -static void C_ccall f_19322(C_word c,C_word *av) C_noret; -C_noret_decl(f_19390) -static void C_ccall f_19390(C_word c,C_word *av) C_noret; -C_noret_decl(f_19394) -static void C_ccall f_19394(C_word c,C_word *av) C_noret; -C_noret_decl(f_19397) -static void C_ccall f_19397(C_word c,C_word *av) C_noret; -C_noret_decl(f_19412) -static void C_ccall f_19412(C_word c,C_word *av) C_noret; -C_noret_decl(f_19435) -static void C_ccall f_19435(C_word c,C_word *av) C_noret; -C_noret_decl(f_19446) -static void C_ccall f_19446(C_word c,C_word *av) C_noret; -C_noret_decl(f_19482) -static void C_ccall f_19482(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_19498) -static void C_ccall f_19498(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_19514) -static void C_ccall f_19514(C_word c,C_word *av) C_noret; -C_noret_decl(f_19516) -static void f_19516(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_19526) -static void f_19526(C_word t0,C_word t1) C_noret; -C_noret_decl(f_19545) -static void C_ccall f_19545(C_word c,C_word *av) C_noret; -C_noret_decl(f_19558) -static void C_ccall f_19558(C_word c,C_word *av) C_noret; -C_noret_decl(f_19590) -static void C_ccall f_19590(C_word c,C_word *av) C_noret; -C_noret_decl(f_19613) -static void C_ccall f_19613(C_word c,C_word *av) C_noret; -C_noret_decl(f_19618) -static void C_ccall f_19618(C_word c,C_word *av) C_noret; -C_noret_decl(f_19625) -static void C_ccall f_19625(C_word c,C_word *av) C_noret; -C_noret_decl(f_19676) -static void f_19676(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_19683) -static void C_ccall f_19683(C_word c,C_word *av) C_noret; -C_noret_decl(f_19686) -static void C_ccall f_19686(C_word c,C_word *av) C_noret; -C_noret_decl(f_19691) -static void f_19691(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_19743) -static void C_ccall f_19743(C_word c,C_word *av) C_noret; -C_noret_decl(f_19758) -static void C_ccall f_19758(C_word c,C_word *av) C_noret; -C_noret_decl(f_19794) -static void C_ccall f_19794(C_word c,C_word *av) C_noret; -C_noret_decl(f_19804) -static void C_ccall f_19804(C_word c,C_word *av) C_noret; -C_noret_decl(f_19814) -static void f_19814(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_19816) -static C_word f_19816(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_19874) -static void f_19874(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_19902) -static void C_ccall f_19902(C_word c,C_word *av) C_noret; -C_noret_decl(f_19906) -static void C_ccall f_19906(C_word c,C_word *av) C_noret; -C_noret_decl(f_19911) -static void f_19911(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_19931) -static void C_ccall f_19931(C_word c,C_word *av) C_noret; -C_noret_decl(f_19933) -static void f_19933(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_19958) -static void C_ccall f_19958(C_word c,C_word *av) C_noret; -C_noret_decl(f_19970) -static void f_19970(C_word t0,C_word t1) C_noret; -C_noret_decl(f_19973) -static void C_ccall f_19973(C_word c,C_word *av) C_noret; -C_noret_decl(f_19986) -static void f_19986(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_19990) -static void C_ccall f_19990(C_word c,C_word *av) C_noret; -C_noret_decl(f_19993) -static void C_ccall f_19993(C_word c,C_word *av) C_noret; -C_noret_decl(f_19998) -static void f_19998(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_20008) -static void f_20008(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20011) -static void C_ccall f_20011(C_word c,C_word *av) C_noret; -C_noret_decl(f_20021) -static void C_ccall f_20021(C_word c,C_word *av) C_noret; -C_noret_decl(f_20056) -static void C_ccall f_20056(C_word c,C_word *av) C_noret; -C_noret_decl(f_20108) -static void C_ccall f_20108(C_word c,C_word *av) C_noret; -C_noret_decl(f_20120) -static void C_ccall f_20120(C_word c,C_word *av) C_noret; -C_noret_decl(f_20144) -static void C_ccall f_20144(C_word c,C_word *av) C_noret; -C_noret_decl(f_20145) -static C_word f_20145(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_20174) -static void C_ccall f_20174(C_word c,C_word *av) C_noret; -C_noret_decl(f_20183) -static void f_20183(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20197) -static void C_ccall f_20197(C_word c,C_word *av) C_noret; -C_noret_decl(f_20216) -static void C_ccall f_20216(C_word c,C_word *av) C_noret; -C_noret_decl(f_20224) -static void f_20224(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20234) -static void C_ccall f_20234(C_word c,C_word *av) C_noret; -C_noret_decl(f_20247) -static void f_20247(C_word t0,C_word t1,C_word t2) 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_20281) -static void f_20281(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20317) -static void f_20317(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20320) -static void C_ccall f_20320(C_word c,C_word *av) C_noret; -C_noret_decl(f_20359) -static void f_20359(C_word t0,C_word t1) 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_20387) -static void C_ccall f_20387(C_word c,C_word *av) C_noret; -C_noret_decl(f_20427) -static C_word f_20427(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_20455) -static void f_20455(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20580) -static C_word f_20580(C_word t0,C_word t1); -C_noret_decl(f_20614) -static C_word f_20614(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3); -C_noret_decl(f_20755) -static void f_20755(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20759) -static void C_ccall f_20759(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_20764) -static void f_20764(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_20767) -static void f_20767(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20777) -static void f_20777(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_20781) -static void f_20781(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20790) -static void C_ccall f_20790(C_word c,C_word *av) C_noret; -C_noret_decl(f_20793) -static void C_ccall f_20793(C_word c,C_word *av) C_noret; -C_noret_decl(f_20802) -static void f_20802(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20838) -static void f_20838(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_20849) -static void C_ccall f_20849(C_word c,C_word *av) C_noret; -C_noret_decl(f_20855) -static void f_20855(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_20872) -static void C_ccall f_20872(C_word c,C_word *av) C_noret; -C_noret_decl(f_20905) -static void C_ccall f_20905(C_word c,C_word *av) C_noret; -C_noret_decl(f_20911) -static void C_ccall f_20911(C_word c,C_word *av) C_noret; -C_noret_decl(f_20918) -static void C_ccall f_20918(C_word c,C_word *av) C_noret; -C_noret_decl(f_20929) -static void C_ccall f_20929(C_word c,C_word *av) C_noret; -C_noret_decl(f_20943) -static void f_20943(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_20961) -static void C_ccall f_20961(C_word c,C_word *av) C_noret; -C_noret_decl(f_20986) -static void C_ccall f_20986(C_word c,C_word *av) C_noret; -C_noret_decl(f_21013) -static void C_ccall f_21013(C_word c,C_word *av) C_noret; -C_noret_decl(f_21044) -static void C_ccall f_21044(C_word c,C_word *av) C_noret; -C_noret_decl(f_21051) -static void C_ccall f_21051(C_word c,C_word *av) C_noret; -C_noret_decl(f_21063) -static void C_ccall f_21063(C_word c,C_word *av) C_noret; -C_noret_decl(f_21093) -static void C_ccall f_21093(C_word c,C_word *av) C_noret; -C_noret_decl(f_21107) -static void f_21107(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21110) -static void C_ccall f_21110(C_word c,C_word *av) C_noret; -C_noret_decl(f_21116) -static void C_ccall f_21116(C_word c,C_word *av) C_noret; -C_noret_decl(f_21130) -static void C_ccall f_21130(C_word c,C_word *av) C_noret; -C_noret_decl(f_21154) -static void f_21154(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21157) -static void C_ccall f_21157(C_word c,C_word *av) C_noret; -C_noret_decl(f_21164) -static void C_ccall f_21164(C_word c,C_word *av) C_noret; -C_noret_decl(f_21181) -static void C_ccall f_21181(C_word c,C_word *av) C_noret; -C_noret_decl(f_21197) -static void C_ccall f_21197(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_21203) -static void C_ccall f_21203(C_word c,C_word *av) C_noret; -C_noret_decl(f_21209) -static void C_ccall f_21209(C_word c,C_word *av) C_noret; -C_noret_decl(f_21219) -static void C_ccall f_21219(C_word c,C_word *av) C_noret; -C_noret_decl(f_21223) -static void C_ccall f_21223(C_word c,C_word *av) C_noret; -C_noret_decl(f_21234) -static void C_ccall f_21234(C_word c,C_word *av) C_noret; -C_noret_decl(f_21238) -static void C_ccall f_21238(C_word c,C_word *av) C_noret; -C_noret_decl(f_21242) -static void C_ccall f_21242(C_word c,C_word *av) C_noret; -C_noret_decl(f_21250) -static void C_ccall f_21250(C_word c,C_word *av) C_noret; -C_noret_decl(f_21258) -static void C_ccall f_21258(C_word c,C_word *av) C_noret; -C_noret_decl(f_21273) -static void C_ccall f_21273(C_word c,C_word *av) C_noret; -C_noret_decl(f_21279) -static void C_ccall f_21279(C_word c,C_word *av) C_noret; -C_noret_decl(f_21293) -static void C_ccall f_21293(C_word c,C_word *av) C_noret; -C_noret_decl(f_21307) -static void C_ccall f_21307(C_word c,C_word *av) C_noret; -C_noret_decl(f_21313) -static void C_ccall f_21313(C_word c,C_word *av) C_noret; -C_noret_decl(f_21316) -static void C_ccall f_21316(C_word c,C_word *av) C_noret; -C_noret_decl(f_21343) -static void C_ccall f_21343(C_word c,C_word *av) C_noret; -C_noret_decl(f_21347) -static void C_ccall f_21347(C_word c,C_word *av) C_noret; -C_noret_decl(f_21367) -static void C_ccall f_21367(C_word c,C_word *av) C_noret; -C_noret_decl(f_21373) -static void C_ccall f_21373(C_word c,C_word *av) C_noret; -C_noret_decl(f_21376) -static void C_ccall f_21376(C_word c,C_word *av) C_noret; -C_noret_decl(f_21379) -static void C_ccall f_21379(C_word c,C_word *av) C_noret; -C_noret_decl(f_21395) -static void C_ccall f_21395(C_word c,C_word *av) C_noret; -C_noret_decl(f_21403) -static void C_ccall f_21403(C_word c,C_word *av) C_noret; -C_noret_decl(f_21415) -static void C_ccall f_21415(C_word c,C_word *av) C_noret; -C_noret_decl(f_21445) -static void C_ccall f_21445(C_word c,C_word *av) C_noret; -C_noret_decl(f_21451) -static void C_ccall f_21451(C_word c,C_word *av) C_noret; -C_noret_decl(f_21454) -static void C_ccall f_21454(C_word c,C_word *av) C_noret; -C_noret_decl(f_21457) -static void C_ccall f_21457(C_word c,C_word *av) C_noret; -C_noret_decl(f_21473) -static void C_ccall f_21473(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_21489) -static void C_ccall f_21489(C_word c,C_word *av) C_noret; -C_noret_decl(f_21493) -static void C_ccall f_21493(C_word c,C_word *av) C_noret; -C_noret_decl(f_21512) -static void f_21512(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_21530) -static void C_ccall f_21530(C_word c,C_word *av) C_noret; -C_noret_decl(f_21658) -static void C_ccall f_21658(C_word c,C_word *av) 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_21667) -static void C_ccall f_21667(C_word c,C_word *av) C_noret; -C_noret_decl(f_21675) -static void f_21675(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_21714) -static void f_21714(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_21749) -static void f_21749(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21756) -static void C_ccall f_21756(C_word c,C_word *av) C_noret; -C_noret_decl(f_21782) -static void C_ccall f_21782(C_word c,C_word *av) C_noret; -C_noret_decl(f_21878) -static void f_21878(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21882) -static void C_ccall f_21882(C_word c,C_word *av) C_noret; -C_noret_decl(f_21895) -static void C_ccall f_21895(C_word c,C_word *av) C_noret; -C_noret_decl(f_21907) -static void f_21907(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21911) -static void C_ccall f_21911(C_word c,C_word *av) C_noret; -C_noret_decl(f_21918) -static void C_ccall f_21918(C_word c,C_word *av) C_noret; -C_noret_decl(f_21924) -static void f_21924(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_21928) -static void C_ccall f_21928(C_word c,C_word *av) C_noret; -C_noret_decl(f_21931) -static void C_ccall f_21931(C_word c,C_word *av) C_noret; -C_noret_decl(f_21933) -static void f_21933(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_21940) -static void f_21940(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21947) -static C_word f_21947(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_21982) -static void C_ccall f_21982(C_word c,C_word *av) C_noret; -C_noret_decl(f_21995) -static void f_21995(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22096) -static void C_ccall f_22096(C_word c,C_word *av) C_noret; -C_noret_decl(f_22102) -static void f_22102(C_word t0,C_word t1) C_noret; -C_noret_decl(f_22108) -static void f_22108(C_word t0,C_word t1) C_noret; -C_noret_decl(f_22161) -static void f_22161(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22232) -static void f_22232(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22285) -static void f_22285(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22294) -static void f_22294(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22314) -static void C_ccall f_22314(C_word c,C_word *av) C_noret; -C_noret_decl(f_22343) -static C_word f_22343(C_word t0,C_word t1); -C_noret_decl(f_22367) -static void f_22367(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22374) -static void C_ccall f_22374(C_word c,C_word *av) C_noret; -C_noret_decl(f_22377) -static void C_ccall f_22377(C_word c,C_word *av) C_noret; -C_noret_decl(f_22380) -static void C_ccall f_22380(C_word c,C_word *av) C_noret; -C_noret_decl(f_22383) -static void C_ccall f_22383(C_word c,C_word *av) C_noret; -C_noret_decl(f_22399) -static void f_22399(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_22451) -static void C_ccall f_22451(C_word c,C_word *av) C_noret; -C_noret_decl(f_22455) -static void f_22455(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_22483) -static void C_ccall f_22483(C_word c,C_word *av) C_noret; -C_noret_decl(f_22486) -static void f_22486(C_word t0,C_word t1) C_noret; -C_noret_decl(f_22492) -static void C_ccall f_22492(C_word c,C_word *av) C_noret; -C_noret_decl(f_22578) -static void C_ccall f_22578(C_word c,C_word *av) C_noret; -C_noret_decl(f_22581) -static void C_ccall f_22581(C_word c,C_word *av) C_noret; -C_noret_decl(f_22586) -static void f_22586(C_word t0,C_word t1,C_word t2,C_word t3) 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_22619) -static void f_22619(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22627) -static void f_22627(C_word t0,C_word t1) C_noret; -C_noret_decl(f_22660) -static void C_ccall f_22660(C_word c,C_word *av) C_noret; -C_noret_decl(f_22662) -static void f_22662(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22687) -static void C_ccall f_22687(C_word c,C_word *av) C_noret; -C_noret_decl(f_22700) -static void f_22700(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_22739) -static void C_ccall f_22739(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_22775) -static void f_22775(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_22793) -static void C_ccall f_22793(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_22816) -static void f_22816(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22820) -static void C_ccall f_22820(C_word c,C_word *av) C_noret; -C_noret_decl(f_22823) -static void C_ccall f_22823(C_word c,C_word *av) C_noret; -C_noret_decl(f_22829) -static void C_ccall f_22829(C_word c,C_word *av) C_noret; -C_noret_decl(f_22832) -static void f_22832(C_word t0,C_word t1) C_noret; -C_noret_decl(f_22835) -static void C_ccall f_22835(C_word c,C_word *av) C_noret; -C_noret_decl(f_22852) -static void C_ccall f_22852(C_word c,C_word *av) C_noret; -C_noret_decl(f_22924) -static void C_ccall f_22924(C_word c,C_word *av) C_noret; -C_noret_decl(f_22928) -static void C_ccall f_22928(C_word c,C_word *av) C_noret; -C_noret_decl(f_22932) -static void C_ccall f_22932(C_word c,C_word *av) C_noret; -C_noret_decl(f_22934) -static void f_22934(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_22957) -static void f_22957(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22986) -static void f_22986(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22990) -static void f_22990(C_word t0,C_word t1) C_noret; -C_noret_decl(f_23014) -static void f_23014(C_word t0,C_word t1) C_noret; -C_noret_decl(f_23042) -static void C_ccall f_23042(C_word c,C_word *av) C_noret; -C_noret_decl(f_23052) -static void f_23052(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_23062) -static void C_ccall f_23062(C_word c,C_word *av) C_noret; -C_noret_decl(f_23067) -static void f_23067(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23082) -static void f_23082(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_23102) -static void f_23102(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23125) -static void f_23125(C_word t0,C_word t1) C_noret; -C_noret_decl(f_23157) -static void C_ccall f_23157(C_word c,C_word *av) C_noret; -C_noret_decl(f_23164) -static void C_ccall f_23164(C_word c,C_word *av) C_noret; -C_noret_decl(f_23166) -static void C_ccall f_23166(C_word c,C_word *av) C_noret; -C_noret_decl(f_23190) -static void C_ccall f_23190(C_word c,C_word *av) C_noret; -C_noret_decl(f_23234) -static void f_23234(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_23247) -static void f_23247(C_word t0,C_word t1) C_noret; -C_noret_decl(f_23261) -static void f_23261(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23288) -static void f_23288(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_23385) -static void C_ccall f_23385(C_word c,C_word *av) C_noret; -C_noret_decl(f_23395) -static void C_ccall f_23395(C_word c,C_word *av) C_noret; -C_noret_decl(f_23404) -static void C_ccall f_23404(C_word c,C_word *av) C_noret; -C_noret_decl(f_23444) -static void f_23444(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_23447) -static void f_23447(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_23470) -static void C_ccall f_23470(C_word c,C_word *av) C_noret; -C_noret_decl(f_23486) -static void f_23486(C_word t0,C_word t1) C_noret; -C_noret_decl(f_23493) -static void C_ccall f_23493(C_word c,C_word *av) C_noret; -C_noret_decl(f_23513) -static void C_ccall f_23513(C_word c,C_word *av) C_noret; -C_noret_decl(f_23533) -static void C_ccall f_23533(C_word c,C_word *av) C_noret; -C_noret_decl(f_23536) -static void C_ccall f_23536(C_word c,C_word *av) C_noret; -C_noret_decl(f_23537) -static void C_ccall f_23537(C_word c,C_word *av) C_noret; -C_noret_decl(f_23543) -static void C_ccall f_23543(C_word c,C_word *av) C_noret; -C_noret_decl(f_23559) -static void C_ccall f_23559(C_word c,C_word *av) C_noret; -C_noret_decl(f_23687) -static void C_ccall f_23687(C_word c,C_word *av) C_noret; -C_noret_decl(f_23706) -static void C_ccall f_23706(C_word c,C_word *av) C_noret; -C_noret_decl(f_23729) -static void C_ccall f_23729(C_word c,C_word *av) C_noret; -C_noret_decl(f_23730) -static void C_ccall f_23730(C_word c,C_word *av) C_noret; -C_noret_decl(f_23736) -static void C_ccall f_23736(C_word c,C_word *av) C_noret; -C_noret_decl(f_23755) -static void C_ccall f_23755(C_word c,C_word *av) C_noret; -C_noret_decl(f_23756) -static void C_ccall f_23756(C_word c,C_word *av) C_noret; -C_noret_decl(f_23762) -static void C_ccall f_23762(C_word c,C_word *av) C_noret; -C_noret_decl(f_23784) -static void C_ccall f_23784(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_23797) -static void C_ccall f_23797(C_word c,C_word *av) C_noret; -C_noret_decl(f_23829) -static void C_ccall f_23829(C_word c,C_word *av) C_noret; -C_noret_decl(f_23835) -static void C_ccall f_23835(C_word c,C_word *av) C_noret; -C_noret_decl(f_23837) -static void C_ccall f_23837(C_word c,C_word *av) C_noret; -C_noret_decl(f_23843) -static void C_ccall f_23843(C_word c,C_word *av) C_noret; -C_noret_decl(f_23853) -static void C_ccall f_23853(C_word c,C_word *av) C_noret; -C_noret_decl(f_23859) -static void C_ccall f_23859(C_word c,C_word *av) C_noret; -C_noret_decl(f_23883) -static void C_ccall f_23883(C_word c,C_word *av) C_noret; -C_noret_decl(f_23889) -static void C_ccall f_23889(C_word c,C_word *av) C_noret; -C_noret_decl(f_23896) -static void C_ccall f_23896(C_word c,C_word *av) C_noret; -C_noret_decl(f_23902) -static void C_ccall f_23902(C_word c,C_word *av) C_noret; -C_noret_decl(f_23985) -static void f_23985(C_word t0,C_word t1) C_noret; -C_noret_decl(f_23988) -static void f_23988(C_word t0,C_word t1) C_noret; -C_noret_decl(f_23989) -static void C_ccall f_23989(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_24008) -static void C_ccall f_24008(C_word c,C_word *av) C_noret; -C_noret_decl(f_24021) -static void C_ccall f_24021(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_24057) -static void C_ccall f_24057(C_word c,C_word *av) C_noret; -C_noret_decl(f_24061) -static void C_ccall f_24061(C_word c,C_word *av) C_noret; -C_noret_decl(f_24066) -static void C_ccall f_24066(C_word c,C_word *av) C_noret; -C_noret_decl(f_24137) -static void f_24137(C_word t0,C_word t1) C_noret; -C_noret_decl(f_24140) -static void f_24140(C_word t0,C_word t1) C_noret; -C_noret_decl(f_24141) -static void C_ccall f_24141(C_word c,C_word *av) C_noret; -C_noret_decl(f_24154) -static void C_ccall f_24154(C_word c,C_word *av) C_noret; -C_noret_decl(f_24160) -static void C_ccall f_24160(C_word c,C_word *av) C_noret; -C_noret_decl(f_24170) -static void C_ccall f_24170(C_word c,C_word *av) C_noret; -C_noret_decl(f_24182) -static void C_ccall f_24182(C_word c,C_word *av) C_noret; -C_noret_decl(f_24195) -static void C_ccall f_24195(C_word c,C_word *av) C_noret; -C_noret_decl(f_24216) -static void C_ccall f_24216(C_word c,C_word *av) C_noret; -C_noret_decl(f_24226) -static void C_ccall f_24226(C_word c,C_word *av) C_noret; -C_noret_decl(f_24230) -static void C_ccall f_24230(C_word c,C_word *av) C_noret; -C_noret_decl(f_24236) -static void C_ccall f_24236(C_word c,C_word *av) C_noret; -C_noret_decl(f_24308) -static void C_ccall f_24308(C_word c,C_word *av) C_noret; -C_noret_decl(f_24358) -static void C_ccall f_24358(C_word c,C_word *av) C_noret; -C_noret_decl(f_24371) -static void C_ccall f_24371(C_word c,C_word *av) C_noret; -C_noret_decl(f_24372) -static void C_ccall f_24372(C_word c,C_word *av) C_noret; -C_noret_decl(f_24379) -static void C_ccall f_24379(C_word c,C_word *av) C_noret; -C_noret_decl(f_24387) -static void C_ccall f_24387(C_word c,C_word *av) C_noret; -C_noret_decl(f_24394) -static void C_ccall f_24394(C_word c,C_word *av) C_noret; -C_noret_decl(f_24406) -static void C_ccall f_24406(C_word c,C_word *av) C_noret; -C_noret_decl(f_24407) -static void C_ccall f_24407(C_word c,C_word *av) 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_24422) -static void C_ccall f_24422(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_24444) -static void C_ccall f_24444(C_word c,C_word *av) C_noret; -C_noret_decl(f_24445) -static void C_ccall f_24445(C_word c,C_word *av) C_noret; -C_noret_decl(f_24449) -static void C_ccall f_24449(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_24462) -static void C_ccall f_24462(C_word c,C_word *av) C_noret; -C_noret_decl(f_24471) -static void C_ccall f_24471(C_word c,C_word *av) C_noret; -C_noret_decl(f_24481) -static void C_ccall f_24481(C_word c,C_word *av) C_noret; -C_noret_decl(f_24485) -static void C_ccall f_24485(C_word c,C_word *av) C_noret; -C_noret_decl(f_24490) -static void C_ccall f_24490(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_24516) -static void C_ccall f_24516(C_word c,C_word *av) C_noret; -C_noret_decl(f_24527) -static void C_ccall f_24527(C_word c,C_word *av) C_noret; -C_noret_decl(f_24528) -static void C_ccall f_24528(C_word c,C_word *av) 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_24543) -static void C_ccall f_24543(C_word c,C_word *av) 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_24562) -static void C_ccall f_24562(C_word c,C_word *av) C_noret; -C_noret_decl(f_24565) -static void C_ccall f_24565(C_word c,C_word *av) C_noret; -C_noret_decl(f_24568) -static void C_ccall f_24568(C_word c,C_word *av) C_noret; -C_noret_decl(f_24577) -static void f_24577(C_word t0,C_word t1) C_noret; -C_noret_decl(f_24580) -static void C_ccall f_24580(C_word c,C_word *av) C_noret; -C_noret_decl(f_24581) -static void C_ccall f_24581(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_24639) -static void C_ccall f_24639(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_24681) -static void C_ccall f_24681(C_word c,C_word *av) C_noret; -C_noret_decl(f_24686) -static void C_ccall f_24686(C_word c,C_word *av) C_noret; -C_noret_decl(f_24718) -static void C_ccall f_24718(C_word c,C_word *av) C_noret; -C_noret_decl(f_24721) -static void f_24721(C_word t0,C_word t1) C_noret; -C_noret_decl(f_24722) -static void C_ccall f_24722(C_word c,C_word *av) C_noret; -C_noret_decl(f_24726) -static void C_ccall f_24726(C_word c,C_word *av) C_noret; -C_noret_decl(f_24744) -static void f_24744(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_24757) -static void C_ccall f_24757(C_word c,C_word *av) C_noret; -C_noret_decl(f_24771) -static void C_ccall f_24771(C_word c,C_word *av) C_noret; -C_noret_decl(f_24775) -static void C_ccall f_24775(C_word c,C_word *av) C_noret; -C_noret_decl(f_24789) -static void C_ccall f_24789(C_word c,C_word *av) C_noret; -C_noret_decl(f_24795) -static void C_ccall f_24795(C_word c,C_word *av) C_noret; -C_noret_decl(f_24808) -static void C_ccall f_24808(C_word c,C_word *av) C_noret; -C_noret_decl(f_24815) -static void C_ccall f_24815(C_word c,C_word *av) C_noret; -C_noret_decl(f_24822) -static void C_ccall f_24822(C_word c,C_word *av) C_noret; -C_noret_decl(f_24844) -static void C_ccall f_24844(C_word c,C_word *av) C_noret; -C_noret_decl(f_24848) -static void C_ccall f_24848(C_word c,C_word *av) C_noret; -C_noret_decl(f_24935) -static void C_ccall f_24935(C_word c,C_word *av) C_noret; -C_noret_decl(f_24936) -static void C_ccall f_24936(C_word c,C_word *av) 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_25044) -static void C_ccall f_25044(C_word c,C_word *av) C_noret; -C_noret_decl(f_25079) -static void C_ccall f_25079(C_word c,C_word *av) C_noret; -C_noret_decl(f_25279) -static void C_ccall f_25279(C_word c,C_word *av) C_noret; -C_noret_decl(f_25299) -static void C_ccall f_25299(C_word c,C_word *av) C_noret; -C_noret_decl(f_25308) -static void C_ccall f_25308(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_25320) -static void C_ccall f_25320(C_word c,C_word *av) C_noret; -C_noret_decl(f_25337) -static void C_ccall f_25337(C_word c,C_word *av) C_noret; -C_noret_decl(f_25374) -static void C_ccall f_25374(C_word c,C_word *av) C_noret; -C_noret_decl(f_25383) -static void C_ccall f_25383(C_word c,C_word *av) C_noret; -C_noret_decl(f_25389) -static void C_ccall f_25389(C_word c,C_word *av) C_noret; -C_noret_decl(f_25395) -static void C_ccall f_25395(C_word c,C_word *av) C_noret; -C_noret_decl(f_25429) -static void C_ccall f_25429(C_word c,C_word *av) C_noret; -C_noret_decl(f_25459) -static void C_ccall f_25459(C_word c,C_word *av) C_noret; -C_noret_decl(f_25466) -static void C_ccall f_25466(C_word c,C_word *av) C_noret; -C_noret_decl(f_25503) -static void C_ccall f_25503(C_word c,C_word *av) C_noret; -C_noret_decl(f_25510) -static void C_ccall f_25510(C_word c,C_word *av) C_noret; -C_noret_decl(f_25517) -static void f_25517(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25526) -static void f_25526(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25545) -static void C_ccall f_25545(C_word c,C_word *av) C_noret; -C_noret_decl(f_25562) -static void C_ccall f_25562(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_25590) -static void C_ccall f_25590(C_word c,C_word *av) C_noret; -C_noret_decl(f_25610) -static void C_ccall f_25610(C_word c,C_word *av) C_noret; -C_noret_decl(f_25617) -static void C_ccall f_25617(C_word c,C_word *av) C_noret; -C_noret_decl(f_25624) -static void f_25624(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25643) -static void C_ccall f_25643(C_word c,C_word *av) C_noret; -C_noret_decl(f_25650) -static void C_ccall f_25650(C_word c,C_word *av) C_noret; -C_noret_decl(f_25657) -static void f_25657(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25680) -static void C_ccall f_25680(C_word c,C_word *av) C_noret; -C_noret_decl(f_25701) -static void C_ccall f_25701(C_word c,C_word *av) C_noret; -C_noret_decl(f_25708) -static void C_ccall f_25708(C_word c,C_word *av) C_noret; -C_noret_decl(f_25715) -static void C_ccall f_25715(C_word c,C_word *av) C_noret; -C_noret_decl(f_25722) -static void f_25722(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25731) -static void f_25731(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25751) -static void C_ccall f_25751(C_word c,C_word *av) C_noret; -C_noret_decl(f_25767) -static void C_ccall f_25767(C_word c,C_word *av) C_noret; -C_noret_decl(f_25784) -static void C_ccall f_25784(C_word c,C_word *av) C_noret; -C_noret_decl(f_25804) -static void C_ccall f_25804(C_word c,C_word *av) C_noret; -C_noret_decl(f_25808) -static void C_ccall f_25808(C_word c,C_word *av) C_noret; -C_noret_decl(f_25811) -static void C_ccall f_25811(C_word c,C_word *av) C_noret; -C_noret_decl(f_25817) -static void f_25817(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25862) -static void C_ccall f_25862(C_word c,C_word *av) C_noret; -C_noret_decl(f_25926) -static void C_ccall f_25926(C_word c,C_word *av) C_noret; -C_noret_decl(f_25943) -static void C_ccall f_25943(C_word c,C_word *av) C_noret; -C_noret_decl(f_25945) -static void f_25945(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_25955) -static void C_ccall f_25955(C_word c,C_word *av) C_noret; -C_noret_decl(f_25961) -static void C_ccall f_25961(C_word c,C_word *av) C_noret; -C_noret_decl(f_25967) -static void C_ccall f_25967(C_word c,C_word *av) C_noret; -C_noret_decl(f_25983) -static void C_ccall f_25983(C_word c,C_word *av) C_noret; -C_noret_decl(f_25989) -static void C_ccall f_25989(C_word c,C_word *av) C_noret; -C_noret_decl(f_26011) -static void C_ccall f_26011(C_word c,C_word *av) C_noret; -C_noret_decl(f_26025) -static void C_ccall f_26025(C_word c,C_word *av) C_noret; -C_noret_decl(f_26042) -static void C_ccall f_26042(C_word c,C_word *av) C_noret; -C_noret_decl(f_26044) -static void f_26044(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26054) -static void C_ccall f_26054(C_word c,C_word *av) C_noret; -C_noret_decl(f_26060) -static void C_ccall f_26060(C_word c,C_word *av) C_noret; -C_noret_decl(f_26066) -static void C_ccall f_26066(C_word c,C_word *av) C_noret; -C_noret_decl(f_26082) -static void C_ccall f_26082(C_word c,C_word *av) C_noret; -C_noret_decl(f_26140) -static void C_ccall f_26140(C_word c,C_word *av) C_noret; -C_noret_decl(f_26166) -static void f_26166(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26168) -static void C_ccall f_26168(C_word c,C_word *av) C_noret; -C_noret_decl(f_26181) -static void C_ccall f_26181(C_word c,C_word *av) C_noret; -C_noret_decl(f_26200) -static void C_ccall f_26200(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_26215) -static void C_ccall f_26215(C_word c,C_word *av) C_noret; -C_noret_decl(f_26221) -static void C_ccall f_26221(C_word c,C_word *av) C_noret; -C_noret_decl(f_26227) -static void C_ccall f_26227(C_word c,C_word *av) C_noret; -C_noret_decl(f_26379) -static void f_26379(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26391) -static void f_26391(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26441) -static void f_26441(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26459) -static void C_ccall f_26459(C_word c,C_word *av) C_noret; -C_noret_decl(f_26470) -static void f_26470(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26476) -static void C_ccall f_26476(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_26490) -static void f_26490(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26500) -static void f_26500(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26503) -static void f_26503(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26529) -static void C_ccall f_26529(C_word c,C_word *av) C_noret; -C_noret_decl(f_26550) -static void C_ccall f_26550(C_word c,C_word *av) C_noret; -C_noret_decl(f_26554) -static void C_ccall f_26554(C_word c,C_word *av) C_noret; -C_noret_decl(f_26567) -static void C_ccall f_26567(C_word c,C_word *av) C_noret; -C_noret_decl(f_26569) -static void f_26569(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26594) -static void C_ccall f_26594(C_word c,C_word *av) C_noret; -C_noret_decl(f_26618) -static void C_ccall f_26618(C_word c,C_word *av) C_noret; -C_noret_decl(f_26631) -static void C_ccall f_26631(C_word c,C_word *av) C_noret; -C_noret_decl(f_26633) -static void f_26633(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26658) -static void C_ccall f_26658(C_word c,C_word *av) C_noret; -C_noret_decl(f_26680) -static void C_ccall f_26680(C_word c,C_word *av) C_noret; -C_noret_decl(f_26688) -static void C_ccall f_26688(C_word c,C_word *av) C_noret; -C_noret_decl(f_26701) -static void C_ccall f_26701(C_word c,C_word *av) C_noret; -C_noret_decl(f_26703) -static void f_26703(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26728) -static void C_ccall f_26728(C_word c,C_word *av) C_noret; -C_noret_decl(f_26748) -static void C_ccall f_26748(C_word c,C_word *av) C_noret; -C_noret_decl(f_26758) -static void C_ccall f_26758(C_word c,C_word *av) C_noret; -C_noret_decl(f_26773) -static void C_ccall f_26773(C_word c,C_word *av) C_noret; -C_noret_decl(f_26786) -static void C_ccall f_26786(C_word c,C_word *av) C_noret; -C_noret_decl(f_26788) -static void f_26788(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26813) -static void C_ccall f_26813(C_word c,C_word *av) C_noret; -C_noret_decl(f_26935) -static void C_ccall f_26935(C_word c,C_word *av) C_noret; -C_noret_decl(f_26937) -static void C_ccall f_26937(C_word c,C_word *av) C_noret; -C_noret_decl(f_26955) -static void C_ccall f_26955(C_word c,C_word *av) C_noret; -C_noret_decl(f_26957) -static void f_26957(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26990) -static void f_26990(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_27042) -static C_word f_27042(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_27078) -static void C_ccall f_27078(C_word c,C_word *av) C_noret; -C_noret_decl(f_27086) -static void C_ccall f_27086(C_word c,C_word *av) C_noret; -C_noret_decl(f_27090) -static void C_ccall f_27090(C_word c,C_word *av) C_noret; -C_noret_decl(f_27092) -static void f_27092(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_27106) -static void C_ccall f_27106(C_word c,C_word *av) C_noret; -C_noret_decl(f_27110) -static void C_ccall f_27110(C_word c,C_word *av) C_noret; -C_noret_decl(f_27114) -static void C_ccall f_27114(C_word c,C_word *av) C_noret; -C_noret_decl(f_27127) -static void C_ccall f_27127(C_word c,C_word *av) C_noret; -C_noret_decl(f_27131) -static void C_ccall f_27131(C_word c,C_word *av) C_noret; -C_noret_decl(f_27135) -static void C_ccall f_27135(C_word c,C_word *av) C_noret; -C_noret_decl(f_27273) -static void f_27273(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_27281) -static void C_ccall f_27281(C_word c,C_word *av) C_noret; -C_noret_decl(f_27285) -static void C_ccall f_27285(C_word c,C_word *av) C_noret; -C_noret_decl(f_27287) -static void f_27287(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_27301) -static void C_ccall f_27301(C_word c,C_word *av) C_noret; -C_noret_decl(f_27314) -static void C_ccall f_27314(C_word c,C_word *av) C_noret; -C_noret_decl(f_27318) -static void C_ccall f_27318(C_word c,C_word *av) C_noret; -C_noret_decl(f_27364) -static void f_27364(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27367) -static void f_27367(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27374) -static void f_27374(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27469) -static void C_ccall f_27469(C_word c,C_word *av) C_noret; -C_noret_decl(f_27477) -static void C_ccall f_27477(C_word c,C_word *av) C_noret; -C_noret_decl(f_27481) -static void C_ccall f_27481(C_word c,C_word *av) C_noret; -C_noret_decl(f_27483) -static void f_27483(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_27595) -static void f_27595(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27603) -static void C_ccall f_27603(C_word c,C_word *av) C_noret; -C_noret_decl(f_27605) -static void f_27605(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27613) -static void C_ccall f_27613(C_word c,C_word *av) C_noret; -C_noret_decl(f_27615) -static void f_27615(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_27629) -static void C_ccall f_27629(C_word c,C_word *av) C_noret; -C_noret_decl(f_27635) -static void f_27635(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27644) -static void C_ccall f_27644(C_word c,C_word *av) C_noret; -C_noret_decl(f_27648) -static void C_ccall f_27648(C_word c,C_word *av) C_noret; -C_noret_decl(f_27652) -static void C_ccall f_27652(C_word c,C_word *av) C_noret; -C_noret_decl(f_27656) -static void C_ccall f_27656(C_word c,C_word *av) C_noret; -C_noret_decl(f_27680) -static void C_ccall f_27680(C_word c,C_word *av) C_noret; -C_noret_decl(f_27690) -static void C_ccall f_27690(C_word c,C_word *av) C_noret; -C_noret_decl(f_27699) -static void C_ccall f_27699(C_word c,C_word *av) C_noret; -C_noret_decl(f_27703) -static void C_ccall f_27703(C_word c,C_word *av) C_noret; -C_noret_decl(f_27707) -static void C_ccall f_27707(C_word c,C_word *av) C_noret; -C_noret_decl(f_27711) -static void C_ccall f_27711(C_word c,C_word *av) C_noret; -C_noret_decl(f_27721) -static void C_ccall f_27721(C_word c,C_word *av) C_noret; -C_noret_decl(f_27736) -static void C_ccall f_27736(C_word c,C_word *av) C_noret; -C_noret_decl(f_27740) -static void C_ccall f_27740(C_word c,C_word *av) C_noret; -C_noret_decl(f_27743) -static void C_ccall f_27743(C_word c,C_word *av) C_noret; -C_noret_decl(f_27746) -static void C_ccall f_27746(C_word c,C_word *av) C_noret; -C_noret_decl(f_27755) -static void f_27755(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27758) -static void f_27758(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27767) -static void C_ccall f_27767(C_word c,C_word *av) C_noret; -C_noret_decl(f_27770) -static void C_ccall f_27770(C_word c,C_word *av) C_noret; -C_noret_decl(f_27778) -static void f_27778(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_27791) -static void C_ccall f_27791(C_word c,C_word *av) C_noret; -C_noret_decl(f_27826) -static void C_ccall f_27826(C_word c,C_word *av) C_noret; -C_noret_decl(f_27829) -static void C_ccall f_27829(C_word c,C_word *av) C_noret; -C_noret_decl(f_27937) -static void C_ccall f_27937(C_word c,C_word *av) C_noret; -C_noret_decl(f_27954) -static void C_ccall f_27954(C_word c,C_word *av) C_noret; -C_noret_decl(f_27958) -static void C_ccall f_27958(C_word c,C_word *av) C_noret; -C_noret_decl(f_27959) -static void C_ccall f_27959(C_word c,C_word *av) C_noret; -C_noret_decl(f_27967) -static void C_ccall f_27967(C_word c,C_word *av) C_noret; -C_noret_decl(f_27982) -static void C_ccall f_27982(C_word c,C_word *av) C_noret; -C_noret_decl(f_27986) -static void C_ccall f_27986(C_word c,C_word *av) C_noret; -C_noret_decl(f_27989) -static void C_ccall f_27989(C_word c,C_word *av) C_noret; -C_noret_decl(f_27998) -static void C_ccall f_27998(C_word c,C_word *av) C_noret; -C_noret_decl(f_28004) -static void C_ccall f_28004(C_word c,C_word *av) C_noret; -C_noret_decl(f_28012) -static void f_28012(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_28025) -static void C_ccall f_28025(C_word c,C_word *av) C_noret; -C_noret_decl(f_28075) -static void C_ccall f_28075(C_word c,C_word *av) C_noret; -C_noret_decl(f_28085) -static void C_ccall f_28085(C_word c,C_word *av) C_noret; -C_noret_decl(f_28099) -static void C_ccall f_28099(C_word c,C_word *av) C_noret; -C_noret_decl(f_28102) -static void C_ccall f_28102(C_word c,C_word *av) C_noret; -C_noret_decl(f_28105) -static void C_ccall f_28105(C_word c,C_word *av) C_noret; -C_noret_decl(f_28157) -static void C_ccall f_28157(C_word c,C_word *av) C_noret; -C_noret_decl(f_28164) -static void C_ccall f_28164(C_word c,C_word *av) C_noret; -C_noret_decl(f_28168) -static void C_ccall f_28168(C_word c,C_word *av) C_noret; -C_noret_decl(f_28169) -static void C_ccall f_28169(C_word c,C_word *av) C_noret; -C_noret_decl(f_28177) -static void C_ccall f_28177(C_word c,C_word *av) C_noret; -C_noret_decl(f_28192) -static void C_ccall f_28192(C_word c,C_word *av) C_noret; -C_noret_decl(f_28196) -static void C_ccall f_28196(C_word c,C_word *av) C_noret; -C_noret_decl(f_28199) -static void C_ccall f_28199(C_word c,C_word *av) C_noret; -C_noret_decl(f_28213) -static void C_ccall f_28213(C_word c,C_word *av) C_noret; -C_noret_decl(f_28217) -static void C_ccall f_28217(C_word c,C_word *av) C_noret; -C_noret_decl(f_28221) -static void C_ccall f_28221(C_word c,C_word *av) C_noret; -C_noret_decl(f_28229) -static void C_ccall f_28229(C_word c,C_word *av) C_noret; -C_noret_decl(f_28268) -static void C_ccall f_28268(C_word c,C_word *av) C_noret; -C_noret_decl(f_28272) -static void C_ccall f_28272(C_word c,C_word *av) C_noret; -C_noret_decl(f_28277) -static void C_ccall f_28277(C_word c,C_word *av) C_noret; -C_noret_decl(f_28311) -static void C_ccall f_28311(C_word c,C_word *av) C_noret; -C_noret_decl(f_28318) -static void C_ccall f_28318(C_word c,C_word *av) C_noret; -C_noret_decl(f_28326) -static void C_ccall f_28326(C_word c,C_word *av) C_noret; -C_noret_decl(f_28328) -static void C_ccall f_28328(C_word c,C_word *av) C_noret; -C_noret_decl(f_28349) -static void C_ccall f_28349(C_word c,C_word *av) C_noret; -C_noret_decl(f_28361) -static void f_28361(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_28367) -static void f_28367(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_28394) -static void C_ccall f_28394(C_word c,C_word *av) C_noret; -C_noret_decl(f_28419) -static void C_ccall f_28419(C_word c,C_word *av) C_noret; -C_noret_decl(f_28445) -static void C_ccall f_28445(C_word c,C_word *av) C_noret; -C_noret_decl(f_28509) -static void C_ccall f_28509(C_word c,C_word *av) C_noret; -C_noret_decl(f_28541) -static void f_28541(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_28571) -static void C_ccall f_28571(C_word c,C_word *av) C_noret; -C_noret_decl(f_28592) -static void C_ccall f_28592(C_word c,C_word *av) C_noret; -C_noret_decl(f_28596) -static void C_ccall f_28596(C_word c,C_word *av) C_noret; -C_noret_decl(f_28601) -static void C_ccall f_28601(C_word c,C_word *av) C_noret; -C_noret_decl(f_28609) -static void C_ccall f_28609(C_word c,C_word *av) C_noret; -C_noret_decl(f_28611) -static void C_ccall f_28611(C_word c,C_word *av) C_noret; -C_noret_decl(f_28627) -static void C_ccall f_28627(C_word c,C_word *av) C_noret; -C_noret_decl(f_28631) -static void C_ccall f_28631(C_word c,C_word *av) C_noret; -C_noret_decl(f_28637) -static void f_28637(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28642) -static void C_ccall f_28642(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_28700) -static void C_ccall f_28700(C_word c,C_word *av) C_noret; -C_noret_decl(f_28708) -static void f_28708(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28710) -static void f_28710(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_28751) -static void C_ccall f_28751(C_word c,C_word *av) C_noret; -C_noret_decl(f_28791) -static void C_ccall f_28791(C_word c,C_word *av) C_noret; -C_noret_decl(f_28825) -static void C_ccall f_28825(C_word c,C_word *av) C_noret; -C_noret_decl(f_28838) -static void f_28838(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_28868) -static void C_ccall f_28868(C_word c,C_word *av) C_noret; -C_noret_decl(f_28876) -static void C_ccall f_28876(C_word c,C_word *av) C_noret; -C_noret_decl(f_28880) -static void C_ccall f_28880(C_word c,C_word *av) C_noret; -C_noret_decl(f_28882) -static void f_28882(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_28901) -static void C_ccall f_28901(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_28942) -static void C_ccall f_28942(C_word c,C_word *av) C_noret; -C_noret_decl(f_28949) -static void C_ccall f_28949(C_word c,C_word *av) C_noret; -C_noret_decl(f_28972) -static void C_ccall f_28972(C_word c,C_word *av) C_noret; -C_noret_decl(f_28993) -static void C_ccall f_28993(C_word c,C_word *av) C_noret; -C_noret_decl(f_28995) -static void f_28995(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29005) -static void f_29005(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29032) -static void C_ccall f_29032(C_word c,C_word *av) C_noret; -C_noret_decl(f_29062) -static void C_ccall f_29062(C_word c,C_word *av) C_noret; -C_noret_decl(f_29067) -static void f_29067(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_29079) -static void f_29079(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_29099) -static void C_ccall f_29099(C_word c,C_word *av) C_noret; -C_noret_decl(f_29134) -static void C_ccall f_29134(C_word c,C_word *av) C_noret; -C_noret_decl(f_29142) -static void C_ccall f_29142(C_word c,C_word *av) C_noret; -C_noret_decl(f_29178) -static void C_ccall f_29178(C_word c,C_word *av) C_noret; -C_noret_decl(f_29192) -static void f_29192(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29196) -static void C_ccall f_29196(C_word c,C_word *av) C_noret; -C_noret_decl(f_29199) -static void C_ccall f_29199(C_word c,C_word *av) C_noret; -C_noret_decl(f_29204) -static void f_29204(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29214) -static void C_ccall f_29214(C_word c,C_word *av) C_noret; -C_noret_decl(f_29225) -static void C_ccall f_29225(C_word c,C_word *av) C_noret; -C_noret_decl(f_29228) -static void C_ccall f_29228(C_word c,C_word *av) C_noret; -C_noret_decl(f_29235) -static void C_ccall f_29235(C_word c,C_word *av) C_noret; -C_noret_decl(f_29247) -static void C_ccall f_29247(C_word c,C_word *av) C_noret; -C_noret_decl(f_29262) -static void C_ccall f_29262(C_word c,C_word *av) C_noret; -C_noret_decl(f_29272) -static void C_ccall f_29272(C_word c,C_word *av) C_noret; -C_noret_decl(f_29276) -static void C_ccall f_29276(C_word c,C_word *av) C_noret; -C_noret_decl(f_29279) -static void C_ccall f_29279(C_word c,C_word *av) C_noret; -C_noret_decl(f_29284) -static void f_29284(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29307) -static void f_29307(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29310) -static void C_ccall f_29310(C_word c,C_word *av) C_noret; -C_noret_decl(f_29317) -static void C_ccall f_29317(C_word c,C_word *av) C_noret; -C_noret_decl(f_29322) -static void f_29322(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29332) -static void C_ccall f_29332(C_word c,C_word *av) C_noret; -C_noret_decl(f_29352) -static void f_29352(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29362) -static void C_ccall f_29362(C_word c,C_word *av) C_noret; -C_noret_decl(f_29404) -static void C_ccall f_29404(C_word c,C_word *av) C_noret; -C_noret_decl(f_29411) -static void C_ccall f_29411(C_word c,C_word *av) C_noret; -C_noret_decl(f_29416) -static void f_29416(C_word t0,C_word t1,C_word t2) 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_29446) -static void C_ccall f_29446(C_word c,C_word *av) C_noret; -C_noret_decl(f_29449) -static void C_ccall f_29449(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_29461) -static void C_ccall f_29461(C_word c,C_word *av) C_noret; -C_noret_decl(f_29466) -static void f_29466(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29476) -static void C_ccall f_29476(C_word c,C_word *av) C_noret; -C_noret_decl(f_29500) -static void C_ccall f_29500(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_29504) -static void f_29504(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29508) -static void C_ccall f_29508(C_word c,C_word *av) C_noret; -C_noret_decl(f_29520) -static void C_ccall f_29520(C_word c,C_word *av) C_noret; -C_noret_decl(f_29525) -static void f_29525(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29535) -static void C_ccall f_29535(C_word c,C_word *av) C_noret; -C_noret_decl(f_29559) -static void f_29559(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29562) -static void C_ccall f_29562(C_word c,C_word *av) C_noret; -C_noret_decl(f_29573) -static void f_29573(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29576) -static void C_ccall f_29576(C_word c,C_word *av) C_noret; -C_noret_decl(f_29583) -static void C_ccall f_29583(C_word c,C_word *av) C_noret; -C_noret_decl(f_29588) -static void f_29588(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29598) -static void C_ccall f_29598(C_word c,C_word *av) C_noret; -C_noret_decl(f_29656) -static void f_29656(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29659) -static void C_ccall f_29659(C_word c,C_word *av) C_noret; -C_noret_decl(f_29662) -static void C_ccall f_29662(C_word c,C_word *av) C_noret; -C_noret_decl(f_29669) -static void C_ccall f_29669(C_word c,C_word *av) C_noret; -C_noret_decl(f_29673) -static void C_ccall f_29673(C_word c,C_word *av) C_noret; -C_noret_decl(f_29686) -static void C_ccall f_29686(C_word c,C_word *av) C_noret; -C_noret_decl(f_29699) -static void C_ccall f_29699(C_word c,C_word *av) C_noret; -C_noret_decl(f_29702) -static void C_ccall f_29702(C_word c,C_word *av) C_noret; -C_noret_decl(f_29709) -static void C_ccall f_29709(C_word c,C_word *av) C_noret; -C_noret_decl(f_29720) -static void f_29720(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29729) -static void f_29729(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29732) -static void C_ccall f_29732(C_word c,C_word *av) 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_29742) -static void C_ccall f_29742(C_word c,C_word *av) C_noret; -C_noret_decl(f_29767) -static void C_ccall f_29767(C_word c,C_word *av) C_noret; -C_noret_decl(f_29805) -static void C_ccall f_29805(C_word c,C_word *av) C_noret; -C_noret_decl(f_29808) -static void C_ccall f_29808(C_word c,C_word *av) C_noret; -C_noret_decl(f_29811) -static void C_ccall f_29811(C_word c,C_word *av) C_noret; -C_noret_decl(f_29818) -static void C_ccall f_29818(C_word c,C_word *av) C_noret; -C_noret_decl(f_29823) -static void f_29823(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29833) -static void C_ccall f_29833(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_30033) -static void C_ccall f_30033(C_word c,C_word *av) C_noret; -C_noret_decl(f_30046) -static void C_ccall f_30046(C_word c,C_word *av) C_noret; -C_noret_decl(f_30056) -static void C_ccall f_30056(C_word c,C_word *av) 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_30071) -static void C_ccall f_30071(C_word c,C_word *av) C_noret; -C_noret_decl(f_30073) -static void f_30073(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_30104) -static void C_ccall f_30104(C_word c,C_word *av) C_noret; -C_noret_decl(f_30151) -static void C_ccall f_30151(C_word c,C_word *av) C_noret; -C_noret_decl(f_30171) -static void C_ccall f_30171(C_word c,C_word *av) C_noret; -C_noret_decl(f_30181) -static void f_30181(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_30208) -static void C_ccall f_30208(C_word c,C_word *av) C_noret; -C_noret_decl(f_30230) -static void f_30230(C_word t0,C_word t1) C_noret; -C_noret_decl(f_30332) -static void C_ccall f_30332(C_word c,C_word *av) C_noret; -C_noret_decl(f_30797) -static void C_ccall f_30797(C_word c,C_word *av) C_noret; -C_noret_decl(f_30959) -static void C_ccall f_30959(C_word c,C_word *av) C_noret; -C_noret_decl(f_30962) -static void C_ccall f_30962(C_word c,C_word *av) C_noret; -C_noret_decl(f_30996) -static void C_ccall f_30996(C_word c,C_word *av) C_noret; -C_noret_decl(f_31000) -static void C_ccall f_31000(C_word c,C_word *av) C_noret; -C_noret_decl(f_31003) -static void C_ccall f_31003(C_word c,C_word *av) C_noret; -C_noret_decl(f_31006) -static void C_ccall f_31006(C_word c,C_word *av) 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_31012) -static void C_ccall f_31012(C_word c,C_word *av) C_noret; -C_noret_decl(f_7521) -static void C_ccall f_7521(C_word c,C_word *av) C_noret; -C_noret_decl(f_7524) -static void C_ccall f_7524(C_word c,C_word *av) C_noret; -C_noret_decl(f_7532) -static void f_7532(C_word t0,C_word t1) 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_7539) -static void C_ccall f_7539(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_7587) -static void C_ccall f_7587(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_7614) -static void f_7614(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7622) -static void C_ccall f_7622(C_word c,C_word *av) C_noret; -C_noret_decl(f_7635) -static void C_ccall f_7635(C_word c,C_word *av) C_noret; -C_noret_decl(f_7637) -static void f_7637(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7644) -static void C_ccall f_7644(C_word c,C_word *av) C_noret; -C_noret_decl(f_7646) -static void f_7646(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7660) -static void C_ccall f_7660(C_word c,C_word *av) C_noret; -C_noret_decl(f_7678) -static void C_ccall f_7678(C_word c,C_word *av) C_noret; -C_noret_decl(f_7684) -static void C_ccall f_7684(C_word c,C_word *av) C_noret; -C_noret_decl(f_7709) -static void C_ccall f_7709(C_word c,C_word *av) C_noret; -C_noret_decl(f_7755) -static void C_ccall f_7755(C_word c,C_word *av) C_noret; -C_noret_decl(f_7768) -static void C_ccall f_7768(C_word c,C_word *av) C_noret; -C_noret_decl(f_7770) -static void C_ccall f_7770(C_word c,C_word *av) C_noret; -C_noret_decl(f_7774) -static void C_ccall f_7774(C_word c,C_word *av) C_noret; -C_noret_decl(f_7795) -static void C_ccall f_7795(C_word c,C_word *av) C_noret; -C_noret_decl(f_7799) -static void C_ccall f_7799(C_word c,C_word *av) 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_7828) -static void C_ccall f_7828(C_word c,C_word *av) C_noret; -C_noret_decl(f_7853) -static void C_ccall f_7853(C_word c,C_word *av) C_noret; -C_noret_decl(f_7857) -static void C_ccall f_7857(C_word c,C_word *av) C_noret; -C_noret_decl(f_7946) -static void f_7946(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8014) -static void f_8014(C_word t0,C_word t1) 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_8058) -static void f_8058(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8128) -static void C_ccall f_8128(C_word c,C_word *av) C_noret; -C_noret_decl(f_8130) -static void C_ccall f_8130(C_word c,C_word *av) C_noret; -C_noret_decl(f_8134) -static void C_ccall f_8134(C_word c,C_word *av) C_noret; -C_noret_decl(f_8191) -static void C_ccall f_8191(C_word c,C_word *av) C_noret; -C_noret_decl(f_8193) -static void C_ccall f_8193(C_word c,C_word *av) C_noret; -C_noret_decl(f_8197) -static void C_ccall f_8197(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_8278) -static void C_ccall f_8278(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_8398) -static void C_ccall f_8398(C_word c,C_word *av) C_noret; -C_noret_decl(f_8404) -static void f_8404(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8438) -static void C_ccall f_8438(C_word c,C_word *av) C_noret; -C_noret_decl(f_8452) -static void C_ccall f_8452(C_word c,C_word *av) C_noret; -C_noret_decl(f_8459) -static void C_ccall f_8459(C_word c,C_word *av) C_noret; -C_noret_decl(f_8465) -static void f_8465(C_word t0,C_word t1,C_word t2,C_word t3) 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_8487) -static void C_ccall f_8487(C_word c,C_word *av) C_noret; -C_noret_decl(f_8491) -static void C_ccall f_8491(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_8506) -static void C_ccall f_8506(C_word c,C_word *av) C_noret; -C_noret_decl(f_8510) -static void C_ccall f_8510(C_word c,C_word *av) C_noret; -C_noret_decl(f_8514) -static void C_ccall f_8514(C_word c,C_word *av) C_noret; -C_noret_decl(f_8518) -static void C_ccall f_8518(C_word c,C_word *av) 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_8526) -static void C_ccall f_8526(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_8539) -static void C_ccall f_8539(C_word c,C_word *av) C_noret; -C_noret_decl(f_8547) -static void C_ccall f_8547(C_word c,C_word *av) C_noret; -C_noret_decl(f_8556) -static void C_ccall f_8556(C_word c,C_word *av) C_noret; -C_noret_decl(f_8614) -static void f_8614(C_word t0,C_word t1,C_word t2) 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_8632) -static void f_8632(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_8636) -static void C_ccall f_8636(C_word c,C_word *av) C_noret; -C_noret_decl(f_8649) -static void C_ccall f_8649(C_word c,C_word *av) C_noret; -C_noret_decl(f_8660) -static void C_ccall f_8660(C_word c,C_word *av) C_noret; -C_noret_decl(f_8662) -static void f_8662(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8669) -static void C_ccall f_8669(C_word c,C_word *av) C_noret; -C_noret_decl(f_8682) -static void C_ccall f_8682(C_word c,C_word *av) C_noret; -C_noret_decl(f_8689) -static void C_ccall f_8689(C_word c,C_word *av) C_noret; -C_noret_decl(f_8728) -static void C_ccall f_8728(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_8787) -static void C_ccall f_8787(C_word c,C_word *av) C_noret; -C_noret_decl(f_8794) -static void C_ccall f_8794(C_word c,C_word *av) C_noret; -C_noret_decl(f_8809) -static void C_ccall f_8809(C_word c,C_word *av) C_noret; -C_noret_decl(f_8822) -static void f_8822(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8865) -static void f_8865(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8922) -static void f_8922(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8960) -static void f_8960(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_8963) -static void f_8963(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8971) -static void C_ccall f_8971(C_word c,C_word *av) C_noret; -C_noret_decl(f_8984) -static void C_ccall f_8984(C_word c,C_word *av) C_noret; -C_noret_decl(f_9003) -static void C_ccall f_9003(C_word c,C_word *av) C_noret; -C_noret_decl(f_9075) -static void f_9075(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9100) -static void f_9100(C_word t0,C_word t1) 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_9110) -static void C_ccall f_9110(C_word c,C_word *av) C_noret; -C_noret_decl(f_9124) -static void C_ccall f_9124(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_9129) -static void f_9129(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9146) -static void C_ccall f_9146(C_word c,C_word *av) C_noret; -C_noret_decl(f_9153) -static void f_9153(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9169) -static void f_9169(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9190) -static void f_9190(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9196) -static void f_9196(C_word t0,C_word t1,C_word t2) 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_9251) -static void f_9251(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9266) -static C_word f_9266(C_word t0); -C_noret_decl(f_9289) -static void f_9289(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9305) -static void f_9305(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9318) -static void C_ccall f_9318(C_word c,C_word *av) C_noret; -C_noret_decl(f_9332) -static void f_9332(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9350) -static void f_9350(C_word t0,C_word t1,C_word t2,C_word t3) 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_9377) -static void f_9377(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9383) -static void f_9383(C_word t0,C_word t1,C_word t2,C_word t3) 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_9707) -static void C_ccall f_9707(C_word c,C_word *av) C_noret; -C_noret_decl(f_9716) -static void C_ccall f_9716(C_word c,C_word *av) C_noret; -C_noret_decl(f_9734) -static void f_9734(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9741) -static void f_9741(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_9768) -static void f_9768(C_word t0,C_word t1,C_word t2,C_word t3) 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_9788) -static void C_ccall f_9788(C_word c,C_word *av) 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_9814) -static void C_ccall f_9814(C_word c,C_word *av) 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_9835) -static void C_ccall f_9835(C_word c,C_word *av) C_noret; -C_noret_decl(f_9882) -static void f_9882(C_word t0,C_word t1,C_word t2) 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_9959) -static void f_9959(C_word t0,C_word t1) C_noret; -C_noret_decl(f_9970) -static void C_ccall f_9970(C_word c,C_word *av) C_noret; -C_noret_decl(C_irregex_toplevel) -C_extern void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_10016) -static void C_ccall trf_10016(C_word c,C_word *av) C_noret; -static void C_ccall trf_10016(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_10016(t0,t1,t2,t3,t4);} - -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[1]; -C_word t1=av[0]; -f_10019(t0,t1);} - -C_noret_decl(trf_10235) -static void C_ccall trf_10235(C_word c,C_word *av) C_noret; -static void C_ccall trf_10235(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10235(t0,t1,t2);} - -C_noret_decl(trf_10245) -static void C_ccall trf_10245(C_word c,C_word *av) C_noret; -static void C_ccall trf_10245(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10245(t0,t1);} - -C_noret_decl(trf_10327) -static void C_ccall trf_10327(C_word c,C_word *av) C_noret; -static void C_ccall trf_10327(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10327(t0,t1);} - -C_noret_decl(trf_10333) -static void C_ccall trf_10333(C_word c,C_word *av) C_noret; -static void C_ccall trf_10333(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_10333(t0,t1,t2,t3);} - -C_noret_decl(trf_10351) -static void C_ccall trf_10351(C_word c,C_word *av) C_noret; -static void C_ccall trf_10351(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10351(t0,t1);} - -C_noret_decl(trf_10362) -static void C_ccall trf_10362(C_word c,C_word *av) C_noret; -static void C_ccall trf_10362(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10362(t0,t1);} - -C_noret_decl(trf_10477) -static void C_ccall trf_10477(C_word c,C_word *av) C_noret; -static void C_ccall trf_10477(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_10477(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_10502) -static void C_ccall trf_10502(C_word c,C_word *av) C_noret; -static void C_ccall trf_10502(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10502(t0,t1,t2);} - -C_noret_decl(trf_10524) -static void C_ccall trf_10524(C_word c,C_word *av) C_noret; -static void C_ccall trf_10524(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10524(t0,t1,t2);} - -C_noret_decl(trf_10558) -static void C_ccall trf_10558(C_word c,C_word *av) C_noret; -static void C_ccall trf_10558(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10558(t0,t1);} - -C_noret_decl(trf_10578) -static void C_ccall trf_10578(C_word c,C_word *av) C_noret; -static void C_ccall trf_10578(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10578(t0,t1);} - -C_noret_decl(trf_10594) -static void C_ccall trf_10594(C_word c,C_word *av) C_noret; -static void C_ccall trf_10594(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10594(t0,t1);} - -C_noret_decl(trf_10650) -static void C_ccall trf_10650(C_word c,C_word *av) C_noret; -static void C_ccall trf_10650(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10650(t0,t1);} - -C_noret_decl(trf_10657) -static void C_ccall trf_10657(C_word c,C_word *av) C_noret; -static void C_ccall trf_10657(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10657(t0,t1);} - -C_noret_decl(trf_10660) -static void C_ccall trf_10660(C_word c,C_word *av) C_noret; -static void C_ccall trf_10660(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10660(t0,t1);} - -C_noret_decl(trf_10668) -static void C_ccall trf_10668(C_word c,C_word *av) C_noret; -static void C_ccall trf_10668(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_10668(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_10883) -static void C_ccall trf_10883(C_word c,C_word *av) C_noret; -static void C_ccall trf_10883(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10883(t0,t1);} - -C_noret_decl(trf_10984) -static void C_ccall trf_10984(C_word c,C_word *av) C_noret; -static void C_ccall trf_10984(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10984(t0,t1);} - -C_noret_decl(trf_11247) -static void C_ccall trf_11247(C_word c,C_word *av) C_noret; -static void C_ccall trf_11247(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11247(t0,t1);} - -C_noret_decl(trf_11704) -static void C_ccall trf_11704(C_word c,C_word *av) C_noret; -static void C_ccall trf_11704(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_11704(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_12040) -static void C_ccall trf_12040(C_word c,C_word *av) C_noret; -static void C_ccall trf_12040(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12040(t0,t1);} - -C_noret_decl(trf_12083) -static void C_ccall trf_12083(C_word c,C_word *av) C_noret; -static void C_ccall trf_12083(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12083(t0,t1);} - -C_noret_decl(trf_12690) -static void C_ccall trf_12690(C_word c,C_word *av) C_noret; -static void C_ccall trf_12690(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_12690(t0,t1);} - -C_noret_decl(trf_12770) -static void C_ccall trf_12770(C_word c,C_word *av) C_noret; -static void C_ccall trf_12770(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12770(t0,t1,t2);} - -C_noret_decl(trf_13290) -static void C_ccall trf_13290(C_word c,C_word *av) C_noret; -static void C_ccall trf_13290(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_13290(t0,t1,t2,t3);} - -C_noret_decl(trf_13399) -static void C_ccall trf_13399(C_word c,C_word *av) C_noret; -static void C_ccall trf_13399(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_13399(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_13472) -static void C_ccall trf_13472(C_word c,C_word *av) C_noret; -static void C_ccall trf_13472(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13472(t0,t1);} - -C_noret_decl(trf_13549) -static void C_ccall trf_13549(C_word c,C_word *av) C_noret; -static void C_ccall trf_13549(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13549(t0,t1);} - -C_noret_decl(trf_13561) -static void C_ccall trf_13561(C_word c,C_word *av) C_noret; -static void C_ccall trf_13561(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13561(t0,t1);} - -C_noret_decl(trf_13683) -static void C_ccall trf_13683(C_word c,C_word *av) C_noret; -static void C_ccall trf_13683(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13683(t0,t1);} - -C_noret_decl(trf_13796) -static void C_ccall trf_13796(C_word c,C_word *av) C_noret; -static void C_ccall trf_13796(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13796(t0,t1);} - -C_noret_decl(trf_13913) -static void C_ccall trf_13913(C_word c,C_word *av) C_noret; -static void C_ccall trf_13913(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13913(t0,t1);} - -C_noret_decl(trf_14024) -static void C_ccall trf_14024(C_word c,C_word *av) C_noret; -static void C_ccall trf_14024(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_14024(t0,t1,t2,t3);} - -C_noret_decl(trf_14219) -static void C_ccall trf_14219(C_word c,C_word *av) C_noret; -static void C_ccall trf_14219(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14219(t0,t1,t2);} - -C_noret_decl(trf_14257) -static void C_ccall trf_14257(C_word c,C_word *av) C_noret; -static void C_ccall trf_14257(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_14257(t0,t1);} - -C_noret_decl(trf_14333) -static void C_ccall trf_14333(C_word c,C_word *av) C_noret; -static void C_ccall trf_14333(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_14333(t0,t1);} - -C_noret_decl(trf_14503) -static void C_ccall trf_14503(C_word c,C_word *av) C_noret; -static void C_ccall trf_14503(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_14503(t0,t1,t2,t3);} - -C_noret_decl(trf_14609) -static void C_ccall trf_14609(C_word c,C_word *av) C_noret; -static void C_ccall trf_14609(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_14609(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_14675) -static void C_ccall trf_14675(C_word c,C_word *av) C_noret; -static void C_ccall trf_14675(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14675(t0,t1,t2);} - -C_noret_decl(trf_14711) -static void C_ccall trf_14711(C_word c,C_word *av) C_noret; -static void C_ccall trf_14711(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14711(t0,t1,t2);} - -C_noret_decl(trf_14747) -static void C_ccall trf_14747(C_word c,C_word *av) C_noret; -static void C_ccall trf_14747(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_14747(t0,t1);} - -C_noret_decl(trf_14832) -static void C_ccall trf_14832(C_word c,C_word *av) C_noret; -static void C_ccall trf_14832(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14832(t0,t1,t2);} - -C_noret_decl(trf_14886) -static void C_ccall trf_14886(C_word c,C_word *av) C_noret; -static void C_ccall trf_14886(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_14886(t0,t1);} - -C_noret_decl(trf_14971) -static void C_ccall trf_14971(C_word c,C_word *av) C_noret; -static void C_ccall trf_14971(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14971(t0,t1,t2);} - -C_noret_decl(trf_15045) -static void C_ccall trf_15045(C_word c,C_word *av) C_noret; -static void C_ccall trf_15045(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15045(t0,t1,t2);} - -C_noret_decl(trf_15057) -static void C_ccall trf_15057(C_word c,C_word *av) C_noret; -static void C_ccall trf_15057(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15057(t0,t1);} - -C_noret_decl(trf_15077) -static void C_ccall trf_15077(C_word c,C_word *av) C_noret; -static void C_ccall trf_15077(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15077(t0,t1,t2);} - -C_noret_decl(trf_15180) -static void C_ccall trf_15180(C_word c,C_word *av) C_noret; -static void C_ccall trf_15180(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15180(t0,t1,t2);} - -C_noret_decl(trf_15248) -static void C_ccall trf_15248(C_word c,C_word *av) C_noret; -static void C_ccall trf_15248(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15248(t0,t1,t2);} - -C_noret_decl(trf_15318) -static void C_ccall trf_15318(C_word c,C_word *av) C_noret; -static void C_ccall trf_15318(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15318(t0,t1,t2);} - -C_noret_decl(trf_15409) -static void C_ccall trf_15409(C_word c,C_word *av) C_noret; -static void C_ccall trf_15409(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15409(t0,t1,t2);} - -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[1]; -C_word t1=av[0]; -f_15464(t0,t1);} - -C_noret_decl(trf_15474) -static void C_ccall trf_15474(C_word c,C_word *av) C_noret; -static void C_ccall trf_15474(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_15474(t0,t1,t2,t3,t4);} - -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_15586) -static void C_ccall trf_15586(C_word c,C_word *av) C_noret; -static void C_ccall trf_15586(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_15586(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_15589) -static void C_ccall trf_15589(C_word c,C_word *av) C_noret; -static void C_ccall trf_15589(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15589(t0,t1,t2);} - -C_noret_decl(trf_15646) -static void C_ccall trf_15646(C_word c,C_word *av) C_noret; -static void C_ccall trf_15646(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15646(t0,t1,t2);} - -C_noret_decl(trf_15659) -static void C_ccall trf_15659(C_word c,C_word *av) C_noret; -static void C_ccall trf_15659(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15659(t0,t1,t2);} - -C_noret_decl(trf_15707) -static void C_ccall trf_15707(C_word c,C_word *av) C_noret; -static void C_ccall trf_15707(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15707(t0,t1,t2);} - -C_noret_decl(trf_15720) -static void C_ccall trf_15720(C_word c,C_word *av) C_noret; -static void C_ccall trf_15720(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15720(t0,t1,t2);} - -C_noret_decl(trf_15761) -static void C_ccall trf_15761(C_word c,C_word *av) C_noret; -static void C_ccall trf_15761(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15761(t0,t1);} - -C_noret_decl(trf_15830) -static void C_ccall trf_15830(C_word c,C_word *av) C_noret; -static void C_ccall trf_15830(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15830(t0,t1,t2);} - -C_noret_decl(trf_15886) -static void C_ccall trf_15886(C_word c,C_word *av) C_noret; -static void C_ccall trf_15886(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15886(t0,t1,t2);} - -C_noret_decl(trf_15975) -static void C_ccall trf_15975(C_word c,C_word *av) C_noret; -static void C_ccall trf_15975(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15975(t0,t1);} - -C_noret_decl(trf_15990) -static void C_ccall trf_15990(C_word c,C_word *av) C_noret; -static void C_ccall trf_15990(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_15990(t0,t1,t2);} - -C_noret_decl(trf_16240) -static void C_ccall trf_16240(C_word c,C_word *av) C_noret; -static void C_ccall trf_16240(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_16240(t0,t1,t2);} - -C_noret_decl(trf_16270) -static void C_ccall trf_16270(C_word c,C_word *av) C_noret; -static void C_ccall trf_16270(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_16270(t0,t1,t2);} - -C_noret_decl(trf_16325) -static void C_ccall trf_16325(C_word c,C_word *av) C_noret; -static void C_ccall trf_16325(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16325(t0,t1);} - -C_noret_decl(trf_16368) -static void C_ccall trf_16368(C_word c,C_word *av) C_noret; -static void C_ccall trf_16368(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16368(t0,t1);} - -C_noret_decl(trf_16498) -static void C_ccall trf_16498(C_word c,C_word *av) C_noret; -static void C_ccall trf_16498(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16498(t0,t1);} - -C_noret_decl(trf_16638) -static void C_ccall trf_16638(C_word c,C_word *av) C_noret; -static void C_ccall trf_16638(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16638(t0,t1);} - -C_noret_decl(trf_16751) -static void C_ccall trf_16751(C_word c,C_word *av) C_noret; -static void C_ccall trf_16751(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16751(t0,t1);} - -C_noret_decl(trf_16868) -static void C_ccall trf_16868(C_word c,C_word *av) C_noret; -static void C_ccall trf_16868(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16868(t0,t1);} - -C_noret_decl(trf_16983) -static void C_ccall trf_16983(C_word c,C_word *av) C_noret; -static void C_ccall trf_16983(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16983(t0,t1);} - -C_noret_decl(trf_17016) -static void C_ccall trf_17016(C_word c,C_word *av) C_noret; -static void C_ccall trf_17016(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17016(t0,t1);} - -C_noret_decl(trf_17095) -static void C_ccall trf_17095(C_word c,C_word *av) C_noret; -static void C_ccall trf_17095(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_17095(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_17098) -static void C_ccall trf_17098(C_word c,C_word *av) C_noret; -static void C_ccall trf_17098(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_17098(t0,t1,t2);} - -C_noret_decl(trf_17138) -static void C_ccall trf_17138(C_word c,C_word *av) C_noret; -static void C_ccall trf_17138(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17138(t0,t1);} - -C_noret_decl(trf_17167) -static void C_ccall trf_17167(C_word c,C_word *av) C_noret; -static void C_ccall trf_17167(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17167(t0,t1);} - -C_noret_decl(trf_17174) -static void C_ccall trf_17174(C_word c,C_word *av) C_noret; -static void C_ccall trf_17174(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_17174(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_17252) -static void C_ccall trf_17252(C_word c,C_word *av) C_noret; -static void C_ccall trf_17252(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_17252(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_17355) -static void C_ccall trf_17355(C_word c,C_word *av) C_noret; -static void C_ccall trf_17355(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17355(t0,t1);} - -C_noret_decl(trf_17491) -static void C_ccall trf_17491(C_word c,C_word *av) C_noret; -static void C_ccall trf_17491(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17491(t0,t1);} - -C_noret_decl(trf_17549) -static void C_ccall trf_17549(C_word c,C_word *av) C_noret; -static void C_ccall trf_17549(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17549(t0,t1);} - -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_17679) -static void C_ccall trf_17679(C_word c,C_word *av) C_noret; -static void C_ccall trf_17679(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17679(t0,t1);} - -C_noret_decl(trf_17871) -static void C_ccall trf_17871(C_word c,C_word *av) C_noret; -static void C_ccall trf_17871(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17871(t0,t1);} - -C_noret_decl(trf_17890) -static void C_ccall trf_17890(C_word c,C_word *av) C_noret; -static void C_ccall trf_17890(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17890(t0,t1);} - -C_noret_decl(trf_17911) -static void C_ccall trf_17911(C_word c,C_word *av) C_noret; -static void C_ccall trf_17911(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_17911(t0,t1);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_17921(t0,t1,t2);} - -C_noret_decl(trf_18308) -static void C_ccall trf_18308(C_word c,C_word *av) C_noret; -static void C_ccall trf_18308(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_18308(t0,t1,t2);} - -C_noret_decl(trf_18368) -static void C_ccall trf_18368(C_word c,C_word *av) C_noret; -static void C_ccall trf_18368(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_18368(t0,t1,t2,t3);} - -C_noret_decl(trf_18416) -static void C_ccall trf_18416(C_word c,C_word *av) C_noret; -static void C_ccall trf_18416(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_18416(t0,t1,t2,t3);} - -C_noret_decl(trf_18518) -static void C_ccall trf_18518(C_word c,C_word *av) C_noret; -static void C_ccall trf_18518(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_18518(t0,t1);} - -C_noret_decl(trf_18702) -static void C_ccall trf_18702(C_word c,C_word *av) C_noret; -static void C_ccall trf_18702(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_18702(t0,t1,t2,t3);} - -C_noret_decl(trf_18751) -static void C_ccall trf_18751(C_word c,C_word *av) C_noret; -static void C_ccall trf_18751(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_18751(t0,t1);} - -C_noret_decl(trf_18823) -static void C_ccall trf_18823(C_word c,C_word *av) C_noret; -static void C_ccall trf_18823(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_18823(t0,t1,t2);} - -C_noret_decl(trf_18931) -static void C_ccall trf_18931(C_word c,C_word *av) C_noret; -static void C_ccall trf_18931(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_18931(t0,t1);} - -C_noret_decl(trf_19051) -static void C_ccall trf_19051(C_word c,C_word *av) C_noret; -static void C_ccall trf_19051(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_19051(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_19112) -static void C_ccall trf_19112(C_word c,C_word *av) C_noret; -static void C_ccall trf_19112(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_19112(t0,t1,t2,t3);} - -C_noret_decl(trf_19121) -static void C_ccall trf_19121(C_word c,C_word *av) C_noret; -static void C_ccall trf_19121(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_19121(t0,t1,t2);} - -C_noret_decl(trf_19226) -static void C_ccall trf_19226(C_word c,C_word *av) C_noret; -static void C_ccall trf_19226(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_19226(t0,t1,t2,t3,t4,t5);} - -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[1]; -C_word t1=av[0]; -f_19313(t0,t1);} - -C_noret_decl(trf_19516) -static void C_ccall trf_19516(C_word c,C_word *av) C_noret; -static void C_ccall trf_19516(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_19516(t0,t1,t2);} - -C_noret_decl(trf_19526) -static void C_ccall trf_19526(C_word c,C_word *av) C_noret; -static void C_ccall trf_19526(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_19526(t0,t1);} - -C_noret_decl(trf_19676) -static void C_ccall trf_19676(C_word c,C_word *av) C_noret; -static void C_ccall trf_19676(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_19676(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_19691) -static void C_ccall trf_19691(C_word c,C_word *av) C_noret; -static void C_ccall trf_19691(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_19691(t0,t1,t2,t3);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_19814(t0,t1,t2,t3);} - -C_noret_decl(trf_19874) -static void C_ccall trf_19874(C_word c,C_word *av) C_noret; -static void C_ccall trf_19874(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_19874(t0,t1,t2);} - -C_noret_decl(trf_19911) -static void C_ccall trf_19911(C_word c,C_word *av) C_noret; -static void C_ccall trf_19911(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_19911(t0,t1,t2);} - -C_noret_decl(trf_19933) -static void C_ccall trf_19933(C_word c,C_word *av) C_noret; -static void C_ccall trf_19933(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_19933(t0,t1,t2,t3,t4,t5,t6,t7,t8);} - -C_noret_decl(trf_19970) -static void C_ccall trf_19970(C_word c,C_word *av) C_noret; -static void C_ccall trf_19970(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_19970(t0,t1);} - -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[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_19986(t0,t1,t2,t3,t4,t5,t6,t7);} - -C_noret_decl(trf_19998) -static void C_ccall trf_19998(C_word c,C_word *av) C_noret; -static void C_ccall trf_19998(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_19998(t0,t1,t2,t3,t4,t5,t6);} - -C_noret_decl(trf_20008) -static void C_ccall trf_20008(C_word c,C_word *av) C_noret; -static void C_ccall trf_20008(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20008(t0,t1);} - -C_noret_decl(trf_20183) -static void C_ccall trf_20183(C_word c,C_word *av) C_noret; -static void C_ccall trf_20183(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20183(t0,t1,t2);} - -C_noret_decl(trf_20224) -static void C_ccall trf_20224(C_word c,C_word *av) C_noret; -static void C_ccall trf_20224(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20224(t0,t1,t2);} - -C_noret_decl(trf_20247) -static void C_ccall trf_20247(C_word c,C_word *av) C_noret; -static void C_ccall trf_20247(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20247(t0,t1,t2);} - -C_noret_decl(trf_20281) -static void C_ccall trf_20281(C_word c,C_word *av) C_noret; -static void C_ccall trf_20281(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20281(t0,t1,t2);} - -C_noret_decl(trf_20317) -static void C_ccall trf_20317(C_word c,C_word *av) C_noret; -static void C_ccall trf_20317(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20317(t0,t1);} - -C_noret_decl(trf_20359) -static void C_ccall trf_20359(C_word c,C_word *av) C_noret; -static void C_ccall trf_20359(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20359(t0,t1);} - -C_noret_decl(trf_20455) -static void C_ccall trf_20455(C_word c,C_word *av) C_noret; -static void C_ccall trf_20455(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20455(t0,t1,t2);} - -C_noret_decl(trf_20755) -static void C_ccall trf_20755(C_word c,C_word *av) C_noret; -static void C_ccall trf_20755(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20755(t0,t1,t2);} - -C_noret_decl(trf_20764) -static void C_ccall trf_20764(C_word c,C_word *av) C_noret; -static void C_ccall trf_20764(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_20764(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_20767) -static void C_ccall trf_20767(C_word c,C_word *av) C_noret; -static void C_ccall trf_20767(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20767(t0,t1,t2);} - -C_noret_decl(trf_20777) -static void C_ccall trf_20777(C_word c,C_word *av) C_noret; -static void C_ccall trf_20777(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_20777(t0,t1,t2,t3);} - -C_noret_decl(trf_20781) -static void C_ccall trf_20781(C_word c,C_word *av) C_noret; -static void C_ccall trf_20781(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20781(t0,t1);} - -C_noret_decl(trf_20802) -static void C_ccall trf_20802(C_word c,C_word *av) C_noret; -static void C_ccall trf_20802(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20802(t0,t1,t2);} - -C_noret_decl(trf_20838) -static void C_ccall trf_20838(C_word c,C_word *av) C_noret; -static void C_ccall trf_20838(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_20838(t0,t1,t2,t3);} - -C_noret_decl(trf_20855) -static void C_ccall trf_20855(C_word c,C_word *av) C_noret; -static void C_ccall trf_20855(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_20855(t0,t1,t2,t3);} - -C_noret_decl(trf_20943) -static void C_ccall trf_20943(C_word c,C_word *av) C_noret; -static void C_ccall trf_20943(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_20943(t0,t1,t2,t3);} - -C_noret_decl(trf_21107) -static void C_ccall trf_21107(C_word c,C_word *av) C_noret; -static void C_ccall trf_21107(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21107(t0,t1);} - -C_noret_decl(trf_21154) -static void C_ccall trf_21154(C_word c,C_word *av) C_noret; -static void C_ccall trf_21154(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21154(t0,t1);} - -C_noret_decl(trf_21512) -static void C_ccall trf_21512(C_word c,C_word *av) C_noret; -static void C_ccall trf_21512(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_21512(t0,t1,t2);} - -C_noret_decl(trf_21675) -static void C_ccall trf_21675(C_word c,C_word *av) C_noret; -static void C_ccall trf_21675(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_21675(t0,t1,t2);} - -C_noret_decl(trf_21714) -static void C_ccall trf_21714(C_word c,C_word *av) C_noret; -static void C_ccall trf_21714(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_21714(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_21749) -static void C_ccall trf_21749(C_word c,C_word *av) C_noret; -static void C_ccall trf_21749(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21749(t0,t1);} - -C_noret_decl(trf_21878) -static void C_ccall trf_21878(C_word c,C_word *av) C_noret; -static void C_ccall trf_21878(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21878(t0,t1);} - -C_noret_decl(trf_21907) -static void C_ccall trf_21907(C_word c,C_word *av) C_noret; -static void C_ccall trf_21907(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21907(t0,t1);} - -C_noret_decl(trf_21924) -static void C_ccall trf_21924(C_word c,C_word *av) C_noret; -static void C_ccall trf_21924(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_21924(t0,t1,t2,t3);} - -C_noret_decl(trf_21933) -static void C_ccall trf_21933(C_word c,C_word *av) C_noret; -static void C_ccall trf_21933(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_21933(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_21940) -static void C_ccall trf_21940(C_word c,C_word *av) C_noret; -static void C_ccall trf_21940(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21940(t0,t1);} - -C_noret_decl(trf_21995) -static void C_ccall trf_21995(C_word c,C_word *av) C_noret; -static void C_ccall trf_21995(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_21995(t0,t1,t2);} - -C_noret_decl(trf_22102) -static void C_ccall trf_22102(C_word c,C_word *av) C_noret; -static void C_ccall trf_22102(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22102(t0,t1);} - -C_noret_decl(trf_22108) -static void C_ccall trf_22108(C_word c,C_word *av) C_noret; -static void C_ccall trf_22108(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22108(t0,t1);} - -C_noret_decl(trf_22161) -static void C_ccall trf_22161(C_word c,C_word *av) C_noret; -static void C_ccall trf_22161(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22161(t0,t1,t2,t3);} - -C_noret_decl(trf_22232) -static void C_ccall trf_22232(C_word c,C_word *av) C_noret; -static void C_ccall trf_22232(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22232(t0,t1,t2);} - -C_noret_decl(trf_22285) -static void C_ccall trf_22285(C_word c,C_word *av) C_noret; -static void C_ccall trf_22285(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22285(t0,t1,t2,t3);} - -C_noret_decl(trf_22294) -static void C_ccall trf_22294(C_word c,C_word *av) C_noret; -static void C_ccall trf_22294(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22294(t0,t1,t2,t3);} - -C_noret_decl(trf_22367) -static void C_ccall trf_22367(C_word c,C_word *av) C_noret; -static void C_ccall trf_22367(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22367(t0,t1,t2);} - -C_noret_decl(trf_22399) -static void C_ccall trf_22399(C_word c,C_word *av) C_noret; -static void C_ccall trf_22399(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_22399(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_22455) -static void C_ccall trf_22455(C_word c,C_word *av) C_noret; -static void C_ccall trf_22455(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_22455(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_22486) -static void C_ccall trf_22486(C_word c,C_word *av) C_noret; -static void C_ccall trf_22486(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22486(t0,t1);} - -C_noret_decl(trf_22586) -static void C_ccall trf_22586(C_word c,C_word *av) C_noret; -static void C_ccall trf_22586(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22586(t0,t1,t2,t3);} - -C_noret_decl(trf_22619) -static void C_ccall trf_22619(C_word c,C_word *av) C_noret; -static void C_ccall trf_22619(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22619(t0,t1,t2);} - -C_noret_decl(trf_22627) -static void C_ccall trf_22627(C_word c,C_word *av) C_noret; -static void C_ccall trf_22627(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22627(t0,t1);} - -C_noret_decl(trf_22662) -static void C_ccall trf_22662(C_word c,C_word *av) C_noret; -static void C_ccall trf_22662(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22662(t0,t1,t2);} - -C_noret_decl(trf_22700) -static void C_ccall trf_22700(C_word c,C_word *av) C_noret; -static void C_ccall trf_22700(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_22700(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_22775) -static void C_ccall trf_22775(C_word c,C_word *av) C_noret; -static void C_ccall trf_22775(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_22775(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_22816) -static void C_ccall trf_22816(C_word c,C_word *av) C_noret; -static void C_ccall trf_22816(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22816(t0,t1,t2);} - -C_noret_decl(trf_22832) -static void C_ccall trf_22832(C_word c,C_word *av) C_noret; -static void C_ccall trf_22832(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22832(t0,t1);} - -C_noret_decl(trf_22934) -static void C_ccall trf_22934(C_word c,C_word *av) C_noret; -static void C_ccall trf_22934(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_22934(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_22957) -static void C_ccall trf_22957(C_word c,C_word *av) C_noret; -static void C_ccall trf_22957(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22957(t0,t1,t2,t3);} - -C_noret_decl(trf_22986) -static void C_ccall trf_22986(C_word c,C_word *av) C_noret; -static void C_ccall trf_22986(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22986(t0,t1,t2);} - -C_noret_decl(trf_22990) -static void C_ccall trf_22990(C_word c,C_word *av) C_noret; -static void C_ccall trf_22990(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22990(t0,t1);} - -C_noret_decl(trf_23014) -static void C_ccall trf_23014(C_word c,C_word *av) C_noret; -static void C_ccall trf_23014(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_23014(t0,t1);} - -C_noret_decl(trf_23052) -static void C_ccall trf_23052(C_word c,C_word *av) C_noret; -static void C_ccall trf_23052(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_23052(t0,t1,t2);} - -C_noret_decl(trf_23067) -static void C_ccall trf_23067(C_word c,C_word *av) C_noret; -static void C_ccall trf_23067(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23067(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23082) -static void C_ccall trf_23082(C_word c,C_word *av) C_noret; -static void C_ccall trf_23082(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_23082(t0,t1,t2,t3);} - -C_noret_decl(trf_23102) -static void C_ccall trf_23102(C_word c,C_word *av) C_noret; -static void C_ccall trf_23102(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23102(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23125) -static void C_ccall trf_23125(C_word c,C_word *av) C_noret; -static void C_ccall trf_23125(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_23125(t0,t1);} - -C_noret_decl(trf_23234) -static void C_ccall trf_23234(C_word c,C_word *av) C_noret; -static void C_ccall trf_23234(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_23234(t0,t1,t2);} - -C_noret_decl(trf_23247) -static void C_ccall trf_23247(C_word c,C_word *av) C_noret; -static void C_ccall trf_23247(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_23247(t0,t1);} - -C_noret_decl(trf_23261) -static void C_ccall trf_23261(C_word c,C_word *av) C_noret; -static void C_ccall trf_23261(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23261(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23288) -static void C_ccall trf_23288(C_word c,C_word *av) C_noret; -static void C_ccall trf_23288(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23288(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23444) -static void C_ccall trf_23444(C_word c,C_word *av) C_noret; -static void C_ccall trf_23444(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_23444(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_23447) -static void C_ccall trf_23447(C_word c,C_word *av) C_noret; -static void C_ccall trf_23447(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_23447(t0,t1,t2);} - -C_noret_decl(trf_23486) -static void C_ccall trf_23486(C_word c,C_word *av) C_noret; -static void C_ccall trf_23486(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_23486(t0,t1);} - -C_noret_decl(trf_23985) -static void C_ccall trf_23985(C_word c,C_word *av) C_noret; -static void C_ccall trf_23985(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_23985(t0,t1);} - -C_noret_decl(trf_23988) -static void C_ccall trf_23988(C_word c,C_word *av) C_noret; -static void C_ccall trf_23988(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_23988(t0,t1);} - -C_noret_decl(trf_24137) -static void C_ccall trf_24137(C_word c,C_word *av) C_noret; -static void C_ccall trf_24137(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_24137(t0,t1);} - -C_noret_decl(trf_24140) -static void C_ccall trf_24140(C_word c,C_word *av) C_noret; -static void C_ccall trf_24140(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_24140(t0,t1);} - -C_noret_decl(trf_24577) -static void C_ccall trf_24577(C_word c,C_word *av) C_noret; -static void C_ccall trf_24577(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_24577(t0,t1);} - -C_noret_decl(trf_24721) -static void C_ccall trf_24721(C_word c,C_word *av) C_noret; -static void C_ccall trf_24721(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_24721(t0,t1);} - -C_noret_decl(trf_24744) -static void C_ccall trf_24744(C_word c,C_word *av) C_noret; -static void C_ccall trf_24744(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_24744(t0,t1,t2,t3,t4,t5,t6,t7);} - -C_noret_decl(trf_25517) -static void C_ccall trf_25517(C_word c,C_word *av) C_noret; -static void C_ccall trf_25517(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25517(t0,t1);} - -C_noret_decl(trf_25526) -static void C_ccall trf_25526(C_word c,C_word *av) C_noret; -static void C_ccall trf_25526(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25526(t0,t1);} - -C_noret_decl(trf_25624) -static void C_ccall trf_25624(C_word c,C_word *av) C_noret; -static void C_ccall trf_25624(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25624(t0,t1);} - -C_noret_decl(trf_25657) -static void C_ccall trf_25657(C_word c,C_word *av) C_noret; -static void C_ccall trf_25657(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25657(t0,t1);} - -C_noret_decl(trf_25722) -static void C_ccall trf_25722(C_word c,C_word *av) C_noret; -static void C_ccall trf_25722(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25722(t0,t1);} - -C_noret_decl(trf_25731) -static void C_ccall trf_25731(C_word c,C_word *av) C_noret; -static void C_ccall trf_25731(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25731(t0,t1);} - -C_noret_decl(trf_25817) -static void C_ccall trf_25817(C_word c,C_word *av) C_noret; -static void C_ccall trf_25817(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25817(t0,t1);} - -C_noret_decl(trf_25945) -static void C_ccall trf_25945(C_word c,C_word *av) C_noret; -static void C_ccall trf_25945(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_25945(t0,t1,t2);} - -C_noret_decl(trf_26044) -static void C_ccall trf_26044(C_word c,C_word *av) C_noret; -static void C_ccall trf_26044(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26044(t0,t1,t2);} - -C_noret_decl(trf_26166) -static void C_ccall trf_26166(C_word c,C_word *av) C_noret; -static void C_ccall trf_26166(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26166(t0,t1,t2);} - -C_noret_decl(trf_26379) -static void C_ccall trf_26379(C_word c,C_word *av) C_noret; -static void C_ccall trf_26379(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26379(t0,t1);} - -C_noret_decl(trf_26391) -static void C_ccall trf_26391(C_word c,C_word *av) C_noret; -static void C_ccall trf_26391(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26391(t0,t1,t2,t3);} - -C_noret_decl(trf_26441) -static void C_ccall trf_26441(C_word c,C_word *av) C_noret; -static void C_ccall trf_26441(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26441(t0,t1,t2,t3);} - -C_noret_decl(trf_26470) -static void C_ccall trf_26470(C_word c,C_word *av) C_noret; -static void C_ccall trf_26470(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26470(t0,t1);} - -C_noret_decl(trf_26490) -static void C_ccall trf_26490(C_word c,C_word *av) C_noret; -static void C_ccall trf_26490(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26490(t0,t1,t2);} - -C_noret_decl(trf_26500) -static void C_ccall trf_26500(C_word c,C_word *av) C_noret; -static void C_ccall trf_26500(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26500(t0,t1,t2,t3);} - -C_noret_decl(trf_26503) -static void C_ccall trf_26503(C_word c,C_word *av) C_noret; -static void C_ccall trf_26503(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26503(t0,t1,t2);} - -C_noret_decl(trf_26569) -static void C_ccall trf_26569(C_word c,C_word *av) C_noret; -static void C_ccall trf_26569(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26569(t0,t1,t2);} - -C_noret_decl(trf_26633) -static void C_ccall trf_26633(C_word c,C_word *av) C_noret; -static void C_ccall trf_26633(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26633(t0,t1,t2);} - -C_noret_decl(trf_26703) -static void C_ccall trf_26703(C_word c,C_word *av) C_noret; -static void C_ccall trf_26703(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26703(t0,t1,t2);} - -C_noret_decl(trf_26788) -static void C_ccall trf_26788(C_word c,C_word *av) C_noret; -static void C_ccall trf_26788(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26788(t0,t1,t2);} - -C_noret_decl(trf_26957) -static void C_ccall trf_26957(C_word c,C_word *av) C_noret; -static void C_ccall trf_26957(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26957(t0,t1,t2);} - -C_noret_decl(trf_26990) -static void C_ccall trf_26990(C_word c,C_word *av) C_noret; -static void C_ccall trf_26990(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26990(t0,t1,t2,t3);} - -C_noret_decl(trf_27092) -static void C_ccall trf_27092(C_word c,C_word *av) C_noret; -static void C_ccall trf_27092(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_27092(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_27273) -static void C_ccall trf_27273(C_word c,C_word *av) C_noret; -static void C_ccall trf_27273(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_27273(t0,t1,t2);} - -C_noret_decl(trf_27287) -static void C_ccall trf_27287(C_word c,C_word *av) C_noret; -static void C_ccall trf_27287(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_27287(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_27364) -static void C_ccall trf_27364(C_word c,C_word *av) C_noret; -static void C_ccall trf_27364(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27364(t0,t1);} - -C_noret_decl(trf_27367) -static void C_ccall trf_27367(C_word c,C_word *av) C_noret; -static void C_ccall trf_27367(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27367(t0,t1);} - -C_noret_decl(trf_27374) -static void C_ccall trf_27374(C_word c,C_word *av) C_noret; -static void C_ccall trf_27374(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27374(t0,t1);} - -C_noret_decl(trf_27483) -static void C_ccall trf_27483(C_word c,C_word *av) C_noret; -static void C_ccall trf_27483(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_27483(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_27595) -static void C_ccall trf_27595(C_word c,C_word *av) C_noret; -static void C_ccall trf_27595(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27595(t0,t1);} - -C_noret_decl(trf_27605) -static void C_ccall trf_27605(C_word c,C_word *av) C_noret; -static void C_ccall trf_27605(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27605(t0,t1);} - -C_noret_decl(trf_27615) -static void C_ccall trf_27615(C_word c,C_word *av) C_noret; -static void C_ccall trf_27615(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_27615(t0,t1,t2,t3);} - -C_noret_decl(trf_27635) -static void C_ccall trf_27635(C_word c,C_word *av) C_noret; -static void C_ccall trf_27635(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27635(t0,t1);} - -C_noret_decl(trf_27755) -static void C_ccall trf_27755(C_word c,C_word *av) C_noret; -static void C_ccall trf_27755(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27755(t0,t1);} - -C_noret_decl(trf_27758) -static void C_ccall trf_27758(C_word c,C_word *av) C_noret; -static void C_ccall trf_27758(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27758(t0,t1);} - -C_noret_decl(trf_27778) -static void C_ccall trf_27778(C_word c,C_word *av) C_noret; -static void C_ccall trf_27778(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_27778(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_28012) -static void C_ccall trf_28012(C_word c,C_word *av) C_noret; -static void C_ccall trf_28012(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_28012(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_28361) -static void C_ccall trf_28361(C_word c,C_word *av) C_noret; -static void C_ccall trf_28361(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_28361(t0,t1,t2);} - -C_noret_decl(trf_28367) -static void C_ccall trf_28367(C_word c,C_word *av) C_noret; -static void C_ccall trf_28367(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_28367(t0,t1,t2,t3);} - -C_noret_decl(trf_28541) -static void C_ccall trf_28541(C_word c,C_word *av) C_noret; -static void C_ccall trf_28541(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_28541(t0,t1,t2);} - -C_noret_decl(trf_28637) -static void C_ccall trf_28637(C_word c,C_word *av) C_noret; -static void C_ccall trf_28637(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28637(t0,t1);} - -C_noret_decl(trf_28708) -static void C_ccall trf_28708(C_word c,C_word *av) C_noret; -static void C_ccall trf_28708(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28708(t0,t1);} - -C_noret_decl(trf_28710) -static void C_ccall trf_28710(C_word c,C_word *av) C_noret; -static void C_ccall trf_28710(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_28710(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_28838) -static void C_ccall trf_28838(C_word c,C_word *av) C_noret; -static void C_ccall trf_28838(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_28838(t0,t1,t2);} - -C_noret_decl(trf_28882) -static void C_ccall trf_28882(C_word c,C_word *av) C_noret; -static void C_ccall trf_28882(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_28882(t0,t1,t2,t3);} - -C_noret_decl(trf_28995) -static void C_ccall trf_28995(C_word c,C_word *av) C_noret; -static void C_ccall trf_28995(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_28995(t0,t1,t2);} - -C_noret_decl(trf_29005) -static void C_ccall trf_29005(C_word c,C_word *av) C_noret; -static void C_ccall trf_29005(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29005(t0,t1);} - -C_noret_decl(trf_29067) -static void C_ccall trf_29067(C_word c,C_word *av) C_noret; -static void C_ccall trf_29067(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29067(t0,t1,t2,t3);} - -C_noret_decl(trf_29079) -static void C_ccall trf_29079(C_word c,C_word *av) C_noret; -static void C_ccall trf_29079(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29079(t0,t1,t2,t3);} - -C_noret_decl(trf_29192) -static void C_ccall trf_29192(C_word c,C_word *av) C_noret; -static void C_ccall trf_29192(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29192(t0,t1);} - -C_noret_decl(trf_29204) -static void C_ccall trf_29204(C_word c,C_word *av) C_noret; -static void C_ccall trf_29204(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29204(t0,t1,t2);} - -C_noret_decl(trf_29284) -static void C_ccall trf_29284(C_word c,C_word *av) C_noret; -static void C_ccall trf_29284(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29284(t0,t1,t2);} - -C_noret_decl(trf_29307) -static void C_ccall trf_29307(C_word c,C_word *av) C_noret; -static void C_ccall trf_29307(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29307(t0,t1);} - -C_noret_decl(trf_29322) -static void C_ccall trf_29322(C_word c,C_word *av) C_noret; -static void C_ccall trf_29322(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29322(t0,t1,t2);} - -C_noret_decl(trf_29352) -static void C_ccall trf_29352(C_word c,C_word *av) C_noret; -static void C_ccall trf_29352(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29352(t0,t1,t2);} - -C_noret_decl(trf_29416) -static void C_ccall trf_29416(C_word c,C_word *av) C_noret; -static void C_ccall trf_29416(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29416(t0,t1,t2);} - -C_noret_decl(trf_29466) -static void C_ccall trf_29466(C_word c,C_word *av) C_noret; -static void C_ccall trf_29466(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29466(t0,t1,t2);} - -C_noret_decl(trf_29504) -static void C_ccall trf_29504(C_word c,C_word *av) C_noret; -static void C_ccall trf_29504(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29504(t0,t1,t2);} - -C_noret_decl(trf_29525) -static void C_ccall trf_29525(C_word c,C_word *av) C_noret; -static void C_ccall trf_29525(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29525(t0,t1,t2);} - -C_noret_decl(trf_29559) -static void C_ccall trf_29559(C_word c,C_word *av) C_noret; -static void C_ccall trf_29559(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29559(t0,t1);} - -C_noret_decl(trf_29573) -static void C_ccall trf_29573(C_word c,C_word *av) C_noret; -static void C_ccall trf_29573(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29573(t0,t1);} - -C_noret_decl(trf_29588) -static void C_ccall trf_29588(C_word c,C_word *av) C_noret; -static void C_ccall trf_29588(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29588(t0,t1,t2);} - -C_noret_decl(trf_29656) -static void C_ccall trf_29656(C_word c,C_word *av) C_noret; -static void C_ccall trf_29656(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29656(t0,t1);} - -C_noret_decl(trf_29720) -static void C_ccall trf_29720(C_word c,C_word *av) C_noret; -static void C_ccall trf_29720(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29720(t0,t1);} - -C_noret_decl(trf_29729) -static void C_ccall trf_29729(C_word c,C_word *av) C_noret; -static void C_ccall trf_29729(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29729(t0,t1);} - -C_noret_decl(trf_29823) -static void C_ccall trf_29823(C_word c,C_word *av) C_noret; -static void C_ccall trf_29823(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29823(t0,t1,t2);} - -C_noret_decl(trf_30073) -static void C_ccall trf_30073(C_word c,C_word *av) C_noret; -static void C_ccall trf_30073(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_30073(t0,t1,t2,t3);} - -C_noret_decl(trf_30181) -static void C_ccall trf_30181(C_word c,C_word *av) C_noret; -static void C_ccall trf_30181(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_30181(t0,t1,t2,t3);} - -C_noret_decl(trf_30230) -static void C_ccall trf_30230(C_word c,C_word *av) C_noret; -static void C_ccall trf_30230(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_30230(t0,t1);} - -C_noret_decl(trf_7532) -static void C_ccall trf_7532(C_word c,C_word *av) C_noret; -static void C_ccall trf_7532(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7532(t0,t1);} - -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[1]; -C_word t1=av[0]; -f_7614(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[1]; -C_word t1=av[0]; -f_7637(t0,t1);} - -C_noret_decl(trf_7646) -static void C_ccall trf_7646(C_word c,C_word *av) C_noret; -static void C_ccall trf_7646(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7646(t0,t1);} - -C_noret_decl(trf_7946) -static void C_ccall trf_7946(C_word c,C_word *av) C_noret; -static void C_ccall trf_7946(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_7946(t0,t1,t2,t3);} - -C_noret_decl(trf_8014) -static void C_ccall trf_8014(C_word c,C_word *av) C_noret; -static void C_ccall trf_8014(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8014(t0,t1);} - -C_noret_decl(trf_8058) -static void C_ccall trf_8058(C_word c,C_word *av) C_noret; -static void C_ccall trf_8058(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8058(t0,t1,t2,t3);} - -C_noret_decl(trf_8404) -static void C_ccall trf_8404(C_word c,C_word *av) C_noret; -static void C_ccall trf_8404(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8404(t0,t1);} - -C_noret_decl(trf_8465) -static void C_ccall trf_8465(C_word c,C_word *av) C_noret; -static void C_ccall trf_8465(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8465(t0,t1,t2,t3);} - -C_noret_decl(trf_8614) -static void C_ccall trf_8614(C_word c,C_word *av) C_noret; -static void C_ccall trf_8614(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8614(t0,t1,t2);} - -C_noret_decl(trf_8632) -static void C_ccall trf_8632(C_word c,C_word *av) C_noret; -static void C_ccall trf_8632(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_8632(t0,t1,t2,t3);} - -C_noret_decl(trf_8662) -static void C_ccall trf_8662(C_word c,C_word *av) C_noret; -static void C_ccall trf_8662(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8662(t0,t1,t2);} - -C_noret_decl(trf_8822) -static void C_ccall trf_8822(C_word c,C_word *av) C_noret; -static void C_ccall trf_8822(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8822(t0,t1,t2);} - -C_noret_decl(trf_8865) -static void C_ccall trf_8865(C_word c,C_word *av) C_noret; -static void C_ccall trf_8865(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8865(t0,t1,t2);} - -C_noret_decl(trf_8922) -static void C_ccall trf_8922(C_word c,C_word *av) C_noret; -static void C_ccall trf_8922(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8922(t0,t1,t2);} - -C_noret_decl(trf_8960) -static void C_ccall trf_8960(C_word c,C_word *av) C_noret; -static void C_ccall trf_8960(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_8960(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_8963) -static void C_ccall trf_8963(C_word c,C_word *av) C_noret; -static void C_ccall trf_8963(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8963(t0,t1);} - -C_noret_decl(trf_9075) -static void C_ccall trf_9075(C_word c,C_word *av) C_noret; -static void C_ccall trf_9075(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9075(t0,t1,t2,t3);} - -C_noret_decl(trf_9100) -static void C_ccall trf_9100(C_word c,C_word *av) C_noret; -static void C_ccall trf_9100(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9100(t0,t1);} - -C_noret_decl(trf_9129) -static void C_ccall trf_9129(C_word c,C_word *av) C_noret; -static void C_ccall trf_9129(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9129(t0,t1,t2,t3);} - -C_noret_decl(trf_9153) -static void C_ccall trf_9153(C_word c,C_word *av) C_noret; -static void C_ccall trf_9153(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9153(t0,t1);} - -C_noret_decl(trf_9169) -static void C_ccall trf_9169(C_word c,C_word *av) C_noret; -static void C_ccall trf_9169(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9169(t0,t1,t2,t3);} - -C_noret_decl(trf_9190) -static void C_ccall trf_9190(C_word c,C_word *av) C_noret; -static void C_ccall trf_9190(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9190(t0,t1,t2);} - -C_noret_decl(trf_9196) -static void C_ccall trf_9196(C_word c,C_word *av) C_noret; -static void C_ccall trf_9196(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9196(t0,t1,t2);} - -C_noret_decl(trf_9251) -static void C_ccall trf_9251(C_word c,C_word *av) C_noret; -static void C_ccall trf_9251(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9251(t0,t1);} - -C_noret_decl(trf_9289) -static void C_ccall trf_9289(C_word c,C_word *av) C_noret; -static void C_ccall trf_9289(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9289(t0,t1,t2);} - -C_noret_decl(trf_9305) -static void C_ccall trf_9305(C_word c,C_word *av) C_noret; -static void C_ccall trf_9305(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9305(t0,t1,t2,t3);} - -C_noret_decl(trf_9332) -static void C_ccall trf_9332(C_word c,C_word *av) C_noret; -static void C_ccall trf_9332(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9332(t0,t1,t2);} - -C_noret_decl(trf_9350) -static void C_ccall trf_9350(C_word c,C_word *av) C_noret; -static void C_ccall trf_9350(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9350(t0,t1,t2,t3);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9377(t0,t1,t2,t3);} - -C_noret_decl(trf_9383) -static void C_ccall trf_9383(C_word c,C_word *av) C_noret; -static void C_ccall trf_9383(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9383(t0,t1,t2,t3);} - -C_noret_decl(trf_9734) -static void C_ccall trf_9734(C_word c,C_word *av) C_noret; -static void C_ccall trf_9734(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9734(t0,t1,t2,t3);} - -C_noret_decl(trf_9741) -static void C_ccall trf_9741(C_word c,C_word *av) C_noret; -static void C_ccall trf_9741(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9741(t0,t1,t2,t3);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9768(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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9882(t0,t1,t2);} - -C_noret_decl(trf_9959) -static void C_ccall trf_9959(C_word c,C_word *av) C_noret; -static void C_ccall trf_9959(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_9959(t0,t1);} - -/* f33666 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f33666(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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 *)f33666,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[125],t1); -/* irregex-core.scm:857: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* f33670 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f33670(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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 *)f33670,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[126],t1); -/* irregex-core.scm:857: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* scan */ -static void f_10016(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; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(23,0,4)))){ -C_save_and_reclaim_args((void *)trf_10016,5,t0,t1,t2,t3,t4);} -a=C_alloc(23); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10019,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=((C_word)li54),tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)((C_word*)t0)[3])[1]))){ -/* irregex-core.scm:685: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[79]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=C_i_string_ref(((C_word*)t0)[2],t3); -switch(t6){ -case C_make_character(34): -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10058,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10065,a[2]=t7,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:687: collect */ -t9=t5; -f_10019(t9,t8); -case C_make_character(92): -t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); -t8=C_a_i_fixnum_plus(&a,2,t3,C_fix(2)); -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10084,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:688: collect */ -t10=t5; -f_10019(t10,t9); -default: -t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); -/* irregex-core.scm:689: scan */ -t14=t1; -t15=t2; -t16=t7; -t17=t4; -t1=t14; -t2=t15; -t3=t16; -t4=t17; -goto loop;}}} - -/* collect in scan */ -static void f_10019(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,4)))){ -C_save_and_reclaim_args((void *)trf_10019,2,t0,t1);} -a=C_alloc(4); -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -if(C_truep(t2)){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10033,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:683: scheme#substring */ -t4=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[2]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k10031 in collect in scan */ -static void C_ccall f_10033(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_10033,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10056 in scan */ -static void C_ccall f_10058(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_10058,c,av);} -a=C_alloc(5); -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* irregex-core.scm:687: k */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=t1; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k10063 in scan */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10065,c,av);} -/* irregex-core.scm:687: string-cat-reverse */ -f_9100(((C_word*)t0)[2],t1);} - -/* k10082 in scan */ -static void C_ccall f_10084(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10084,c,av);} -/* irregex-core.scm:688: scan */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10016(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* a10116 */ -static void C_ccall f_10117(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_10117,c,av);} -/* irregex-core.scm:693: read */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_9741(t4,t1,t3,((C_word*)t0)[3]);} - -/* a10134 */ -static void C_ccall f_10135(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,3)))){ -C_save_and_reclaim((void *)f_10135,c,av);} -a=C_alloc(5); -t4=C_eqp(t2,lf[80]); -if(C_truep(t4)){ -/* irregex-core.scm:697: k */ -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=C_make_character(32); -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t5=C_eqp(t2,lf[81]); -if(C_truep(t5)){ -/* irregex-core.scm:697: k */ -t6=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=C_make_character(10); -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10155,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))){ -/* ##sys#number->string */ -t7=*((C_word*)lf[82]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=C_fix(10); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -/* irregex-core.scm:702: scheme#symbol->string */ -t7=*((C_word*)lf[83]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}}} - -/* k10153 in a10134 */ -static void C_ccall f_10155(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10155,c,av);} -/* irregex-core.scm:697: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_i_string_ref(t1,C_fix(0)); -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* scan */ -static void f_10235(C_word t0,C_word 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_10235,3,t0,t1,t2);} -a=C_alloc(8); -t3=C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10245,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(t3)){ -t5=t4; -f_10245(t5,t3);} -else{ -t5=C_i_string_ref(((C_word*)t0)[4],t2); -t6=C_u_i_char_whitespacep(t5); -t7=t4; -f_10245(t7,(C_truep(t6)?t6:C_u_i_memq(t5,lf[87])));}} - -/* k10243 in scan */ -static void f_10245(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_10245,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10248,a[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:720: scheme#substring */ -t3=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -/* irregex-core.scm:722: scan */ -t2=((C_word*)((C_word*)t0)[7])[1]; -f_10235(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}} - -/* k10246 in k10243 in scan */ -static void C_ccall f_10248(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_10248,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10255,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:721: scheme#string->number */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10253 in k10246 in k10243 in scan */ -static void C_ccall f_10255(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_10255,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10258,a[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)){ -/* irregex-core.scm:721: k */ -t3=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -/* irregex-core.scm:721: scheme#string->symbol */ -t3=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k10256 in k10253 in k10246 in k10243 in scan */ -static void C_ccall f_10258(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10258,c,av);} -/* irregex-core.scm:721: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a10305 in chicken.irregex#with-read-from-string in k7753 in k7522 in k7519 */ -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=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_10306,c,av);} -t4=C_eqp(t2,lf[88]); -if(C_truep(t4)){ -/* irregex-core.scm:725: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[89]; -av2[3]=((C_word*)t0)[2]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -/* irregex-core.scm:726: proc */ -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* chicken.irregex#symbol-list->flags in k7753 in k7522 in k7519 */ -static void f_10327(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_10327,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_10333,a[2]=t4,a[3]=((C_word)li62),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_10333(t6,t1,t2,C_fix(0));} - -/* lp in chicken.irregex#symbol-list->flags in k7753 in k7522 in k7519 */ -static void f_10333(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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,2)))){ -C_save_and_reclaim_args((void *)trf_10333,4,t0,t1,t2,t3);} -a=C_alloc(13); -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10351,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -t7=C_u_i_car(t2); -t8=C_eqp(t7,lf[91]); -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10362,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,a[5]=t3,a[6]=t7,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -if(C_truep(t8)){ -t10=t9; -f_10362(t10,t8);} -else{ -t10=C_eqp(t7,lf[100]); -t11=t9; -f_10362(t11,(C_truep(t10)?t10:C_eqp(t7,lf[101])));}}} - -/* k10349 in lp in chicken.irregex#symbol-list->flags in k7753 in k7522 in k7519 */ -static void f_10351(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_10351,2,t0,t1);} -/* irregex-core.scm:742: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10333(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k10360 in lp in chicken.irregex#symbol-list->flags in k7753 in k7522 in k7519 */ -static void f_10362(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -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,3)))){ -C_save_and_reclaim_args((void *)trf_10362,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:742: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10333(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_or(((C_word*)t0)[5],C_fix(2)));} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[92]); -t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[93])); -if(C_truep(t3)){ -/* irregex-core.scm:742: lp */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_10333(t4,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_or(((C_word*)t0)[5],C_fix(4)));} -else{ -t4=C_eqp(((C_word*)t0)[6],lf[94]); -t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[95])); -if(C_truep(t5)){ -t6=((C_word*)t0)[7]; -f_10351(t6,C_fixnum_or(((C_word*)t0)[5],C_fix(8)));} -else{ -t6=C_eqp(((C_word*)t0)[6],lf[96]); -t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[6],lf[97])); -if(C_truep(t7)){ -t8=((C_word*)t0)[7]; -f_10351(t8,C_fixnum_or(((C_word*)t0)[5],C_fix(16)));} -else{ -t8=C_eqp(((C_word*)t0)[6],lf[98]); -t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[6],lf[99])); -t10=((C_word*)t0)[7]; -f_10351(t10,(C_truep(t9)?(C_truep(lf[54])?C_fixnum_or(((C_word*)t0)[5],C_fix(32)):C_fixnum_or(((C_word*)t0)[5],C_fix(0))):(C_truep(C_SCHEME_FALSE)?C_fixnum_or(((C_word*)t0)[5],C_SCHEME_FALSE):((C_word*)t0)[5])));}}}}} - -/* chicken.irregex#maybe-string->sre in k7753 in k7522 in k7519 */ -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=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_10450,c,av);} -if(C_truep(C_i_stringp(t2))){ -/* irregex-core.scm:754: string->sre */ -t3=*((C_word*)lf[103]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10462(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_10462,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+5); -t3=C_build_rest(&a,c,3,av); -C_word t4; -C_word t5; -C_word t6; -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10466,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_stringp(t2); -if(C_truep(C_i_not(t5))){ -/* irregex-core.scm:757: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=lf[198]; -av2[3]=lf[199]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_10466(2,av2);}}} - -/* k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_10466,c,av);} -a=C_alloc(5); -t2=C_i_string_length(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10472,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:759: symbol-list->flags */ -f_10327(t3,((C_word*)t0)[4]);} - -/* k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 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_10472,c,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_10477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li90),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_10477(t5,((C_word*)t0)[4],C_fix(0),C_fix(0),t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} - -/* lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10477(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 *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(105,0,6)))){ -C_save_and_reclaim_args((void *)trf_10477,7,t0,t1,t2,t3,t4,t5,t6);} -a=C_alloc(105); -t7=C_SCHEME_UNDEFINED; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_SCHEME_UNDEFINED; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=C_SCHEME_UNDEFINED; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_SCHEME_UNDEFINED; -t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); -t15=C_SCHEME_UNDEFINED; -t16=C_SCHEME_UNDEFINED; -t17=(*a=C_VECTOR_TYPE|1,a[1]=t16,tmp=(C_word)a,a+=2,tmp); -t18=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10480,a[2]=t4,a[3]=((C_word)li65),tmp=(C_word)a,a+=4,tmp)); -t19=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10502,a[2]=t4,a[3]=t8,a[4]=((C_word)li67),tmp=(C_word)a,a+=5,tmp)); -t20=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10558,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=((C_word)li68),tmp=(C_word)a,a+=8,tmp)); -t21=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10578,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)li70),tmp=(C_word)a,a+=10,tmp)); -t22=t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10650,a[2]=t4,a[3]=t12,a[4]=((C_word)li72),tmp=(C_word)a,a+=5,tmp); -t23=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10883,a[2]=t4,a[3]=t6,a[4]=t12,a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[3]))){ -if(C_truep(C_i_pairp(t6))){ -/* irregex-core.scm:852: chicken.base#error */ -t24=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t24; -av2[1]=t1; -av2[2]=lf[124]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t24+1)))(4,av2);}} -else{ -/* irregex-core.scm:853: collect/terms */ -t24=t15; -f_10650(t24,t1);}} -else{ -t24=C_i_string_ref(((C_word*)t0)[2],t2); -switch(t24){ -case C_make_character(46): -t25=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t26=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t27=C_fixnum_and(t4,C_fix(8)); -t28=C_eqp(C_fix(8),t27); -if(C_truep(t28)){ -t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f33666,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t25,a[5]=t26,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:859: collect */ -t30=((C_word*)t12)[1]; -f_10558(t30,t29);} -else{ -t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f33670,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t25,a[5]=t26,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:859: collect */ -t30=((C_word*)t12)[1]; -f_10558(t30,t29);} -case C_make_character(63): -t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10955,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:862: collect/single */ -t26=((C_word*)t14)[1]; -f_10578(t26,t25); -default: -t25=C_eqp(t24,C_make_character(43)); -t26=(C_truep(t25)?t25:C_eqp(t24,C_make_character(42))); -if(C_truep(t26)){ -t27=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11115,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]=t24,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:883: collect/single */ -t28=((C_word*)t14)[1]; -f_10578(t28,t27);} -else{ -switch(t24){ -case C_make_character(40): -t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -if(C_truep(C_i_integer_greater_or_equalp(t27,((C_word*)t0)[3]))){ -/* irregex-core.scm:898: chicken.base#error */ -t28=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t28; -av2[1]=t1; -av2[2]=lf[141]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}} -else{ -t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t29=C_i_string_ref(((C_word*)t0)[2],t28); -if(C_truep(C_i_not(C_u_i_memq(t29,lf[142])))){ -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t32=C_fixnum_or(t4,C_fix(1)); -t33=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11207,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t32,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:900: save */ -t34=((C_word*)t17)[1]; -f_10883(t34,t33);} -else{ -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -if(C_truep(C_i_integer_greater_or_equalp(t30,((C_word*)t0)[3]))){ -/* irregex-core.scm:902: chicken.base#error */ -t31=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t31; -av2[1]=t1; -av2[2]=lf[143]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t31+1)))(4,av2);}} -else{ -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t32=C_i_string_ref(((C_word*)t0)[2],t31); -t33=C_eqp(t32,C_make_character(42)); -if(C_truep(t33)){ -t34=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t35=C_i_string_ref(((C_word*)t0)[2],t34); -t36=C_eqp(C_make_character(39),t35); -if(C_truep(t36)){ -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t38=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11237,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)li74),tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:905: with-read-from-string */ -f_9734(t1,((C_word*)t0)[2],t37,t38);} -else{ -/* irregex-core.scm:910: chicken.base#error */ -t37=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t37; -av2[1]=t1; -av2[2]=lf[145]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}}} -else{ -t34=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t35=C_i_string_ref(((C_word*)t0)[2],t34); -switch(t35){ -case C_make_character(35): -t36=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11304,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); -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -/* irregex-core.scm:914: string-scan-char */ -t38=lf[55];{ -C_word av2[5]; -av2[0]=t38; -av2[1]=t36; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(41); -av2[4]=t37; -((C_proc)(void*)(*((C_word*)t38+1)))(5,av2);} -case C_make_character(58): -t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t38=C_fixnum_not(C_fix(1)); -t39=C_fixnum_and(t4,t38); -t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11345,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:917: save */ -t41=((C_word*)t17)[1]; -f_10883(t41,t40); -case C_make_character(61): -t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t38=C_fixnum_not(C_fix(1)); -t39=C_fixnum_and(t4,t38); -t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11368,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:920: save */ -t41=((C_word*)t17)[1]; -f_10883(t41,t40); -case C_make_character(33): -t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t38=C_fixnum_not(C_fix(1)); -t39=C_fixnum_and(t4,t38); -t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11391,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:923: save */ -t41=((C_word*)t17)[1]; -f_10883(t41,t40); -case C_make_character(60): -t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -if(C_truep(C_i_integer_greater_or_equalp(t36,((C_word*)t0)[3]))){ -/* irregex-core.scm:927: chicken.base#error */ -t37=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t37; -av2[1]=t1; -av2[2]=lf[148]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}} -else{ -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t38=C_i_string_ref(((C_word*)t0)[2],t37); -switch(t38){ -case C_make_character(61): -t39=C_a_i_fixnum_plus(&a,2,t2,C_fix(4)); -t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(4)); -t41=C_fixnum_not(C_fix(1)); -t42=C_fixnum_and(t4,t41); -t43=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11433,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t40,a[6]=t42,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:932: save */ -t44=((C_word*)t17)[1]; -f_10883(t44,t43); -case C_make_character(33): -t39=C_a_i_fixnum_plus(&a,2,t2,C_fix(4)); -t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(4)); -t41=C_fixnum_not(C_fix(1)); -t42=C_fixnum_and(t4,t41); -t43=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11456,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t39,a[5]=t40,a[6]=t42,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:935: save */ -t44=((C_word*)t17)[1]; -f_10883(t44,t43); -default: -t39=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11459,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); -t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t41=C_i_string_ref(((C_word*)t0)[2],t40); -if(C_truep(C_u_i_char_alphabeticp(t41))){ -t42=C_a_i_fixnum_plus(&a,2,t2,C_fix(4)); -/* irregex-core.scm:939: string-scan-char */ -t43=lf[55];{ -C_word av2[5]; -av2[0]=t43; -av2[1]=t39; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(62); -av2[4]=t42; -((C_proc)(void*)(*((C_word*)t43+1)))(5,av2);}} -else{ -t42=t39;{ -C_word av2[2]; -av2[0]=t42; -av2[1]=C_SCHEME_FALSE; -f_11459(2,av2);}}}} -case C_make_character(62): -t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t38=C_fixnum_not(C_fix(1)); -t39=C_fixnum_and(t4,t38); -t40=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11545,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t36,a[5]=t37,a[6]=t39,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:948: save */ -t41=((C_word*)t17)[1]; -f_10883(t41,t40); -case C_make_character(40): -t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -if(C_truep(C_i_integer_greater_or_equalp(t36,((C_word*)t0)[3]))){ -/* irregex-core.scm:956: chicken.base#error */ -t37=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t37; -av2[1]=t1; -av2[2]=lf[153]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t37+1)))(4,av2);}} -else{ -t37=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t38=C_i_string_ref(((C_word*)t0)[2],t37); -if(C_truep(C_u_i_char_numericp(t38))){ -t39=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11570,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=t17,a[7]=t2,tmp=(C_word)a,a+=8,tmp); -t40=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -/* irregex-core.scm:958: string-scan-char */ -t41=lf[55];{ -C_word av2[5]; -av2[0]=t41; -av2[1]=t39; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(41); -av2[4]=t40; -((C_proc)(void*)(*((C_word*)t41+1)))(5,av2);}} -else{ -t39=C_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -t40=C_i_string_ref(((C_word*)t0)[2],t39); -if(C_truep(C_u_i_char_alphabeticp(t40))){ -t41=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11622,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_a_i_fixnum_plus(&a,2,t2,C_fix(3)); -/* irregex-core.scm:965: string-scan-char */ -t43=lf[55];{ -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_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t42=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t43=C_fixnum_not(C_fix(1)); -t44=C_fixnum_and(t4,t43); -t45=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11673,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t41,a[5]=t42,a[6]=t44,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:971: save */ -t46=((C_word*)t17)[1]; -f_10883(t46,t45);}}} -case C_make_character(123): -/* irregex-core.scm:973: chicken.base#error */ -t36=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t36; -av2[1]=t1; -av2[2]=lf[156]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t36+1)))(4,av2);} -default: -t36=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t37=C_SCHEME_UNDEFINED; -t38=(*a=C_VECTOR_TYPE|1,a[1]=t37,tmp=(C_word)a,a+=2,tmp); -t39=C_set_block_item(t38,0,(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11704,a[2]=t4,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t38,a[7]=((C_word*)t0)[4],a[8]=t6,a[9]=t12,a[10]=((C_word)li77),tmp=(C_word)a,a+=11,tmp)); -t40=((C_word*)t38)[1]; -f_11704(t40,t1,t36,t4,C_SCHEME_FALSE);}}}}} -case C_make_character(41): -if(C_truep(C_i_nullp(t6))){ -/* irregex-core.scm:1013: chicken.base#error */ -t27=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t27; -av2[1]=t1; -av2[2]=lf[161]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}} -else{ -t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t29=C_i_caar(t6); -t30=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11982,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t27,a[6]=t28,a[7]=t29,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1017: collect/terms */ -t31=t15; -f_10650(t31,t30);} -case C_make_character(91): -t27=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11997,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li78),tmp=(C_word)a,a+=7,tmp); -t28=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12021,a[2]=t1,a[3]=t27,tmp=(C_word)a,a+=4,tmp); -t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t30=C_i_string_length(((C_word*)t0)[2]); -t31=C_fixnum_lessp(t29,t30); -t32=(C_truep(t31)?C_eqp(C_make_character(94),C_i_string_ref(((C_word*)t0)[2],t29)):C_SCHEME_FALSE); -t33=C_fixnum_and(t4,C_fix(32)); -t34=C_eqp(C_fix(32),t33); -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|9,a[1]=(C_word)f_13399,a[2]=t30,a[3]=((C_word*)t0)[2],a[4]=t36,a[5]=t4,a[6]=t32,a[7]=t29,a[8]=t34,a[9]=((C_word)li83),tmp=(C_word)a,a+=10,tmp)); -if(C_truep(t32)){ -t38=C_fixnum_plus(t29,C_fix(1)); -t39=C_fixnum_and(t4,C_fix(4)); -t40=C_eqp(C_fix(4),t39); -if(C_truep(t40)){ -t41=C_a_i_cons(&a,2,C_make_character(10),C_make_character(10)); -t42=C_a_i_vector1(&a,1,t41); -/* irregex-core.scm:1312: go */ -t43=((C_word*)t36)[1]; -f_13399(t43,t28,t38,C_SCHEME_FALSE,t42);} -else{ -t41=C_a_i_vector(&a,0); -/* irregex-core.scm:1312: go */ -t42=((C_word*)t36)[1]; -f_13399(t42,t28,t38,C_SCHEME_FALSE,t41);}} -else{ -t38=C_a_i_vector(&a,0); -/* irregex-core.scm:1317: go */ -t39=((C_word*)t36)[1]; -f_13399(t39,t28,t29,C_SCHEME_FALSE,t38);} -case C_make_character(123): -t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t28=C_i_integer_greater_or_equalp(t27,((C_word*)t0)[3]); -t29=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12040,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(t28)){ -t30=t29; -f_12040(t30,t28);} -else{ -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t31=C_i_string_ref(((C_word*)t0)[2],t30); -t32=C_u_i_char_numericp(t31); -if(C_truep(t32)){ -t33=t29; -f_12040(t33,C_i_not(t32));} -else{ -t33=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t34=C_i_string_ref(((C_word*)t0)[2],t33); -t35=t29; -f_12040(t35,C_i_not(C_eqp(C_make_character(44),t34)));}} -case C_make_character(92): -t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -if(C_truep(C_i_integer_greater_or_equalp(t27,((C_word*)t0)[3]))){ -/* irregex-core.scm:1060: chicken.base#error */ -t28=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t28; -av2[1]=t1; -av2[2]=lf[178]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t28+1)))(4,av2);}} -else{ -t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t29=C_i_string_ref(((C_word*)t0)[2],t28); -switch(t29){ -case C_make_character(100): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12269,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1065: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(68): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_list(&a,2,lf[180],lf[179]); -t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12296,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1067: collect */ -t34=((C_word*)t12)[1]; -f_10558(t34,t33); -case C_make_character(115): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12319,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1069: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(83): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_list(&a,2,lf[180],lf[80]); -t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12346,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1071: collect */ -t34=((C_word*)t12)[1]; -f_10558(t34,t33); -case C_make_character(119): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_list(&a,1,lf[181]); -t33=C_a_i_list(&a,3,lf[104],lf[182],t32); -t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12373,a[2]=t33,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1074: collect */ -t35=((C_word*)t12)[1]; -f_10558(t35,t34); -case C_make_character(87): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_list(&a,1,lf[183]); -t33=C_a_i_list(&a,3,lf[104],lf[182],t32); -t34=C_a_i_list(&a,2,lf[180],t33); -t35=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12404,a[2]=t34,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1077: collect */ -t36=((C_word*)t12)[1]; -f_10558(t36,t35); -case C_make_character(98): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_list(&a,3,lf[104],lf[184],lf[185]); -t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12439,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1080: collect */ -t34=((C_word*)t12)[1]; -f_10558(t34,t33); -case C_make_character(66): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12462,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1082: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(65): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12485,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1084: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(90): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_list(&a,2,lf[132],C_make_character(10)); -t33=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12516,a[2]=t32,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1087: collect */ -t34=((C_word*)t12)[1]; -f_10558(t34,t33); -case C_make_character(122): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12539,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1089: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(82): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12562,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1091: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(75): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12585,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1093: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(60): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12608,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1096: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(62): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12631,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1098: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(120): -t30=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12642,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li86),tmp=(C_word)a,a+=7,tmp); -t31=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12666,a[2]=t1,a[3]=t30,tmp=(C_word)a,a+=4,tmp); -t32=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -/* irregex-core.scm:1103: string-parse-hex-escape */ -f_13290(t31,((C_word*)t0)[2],t32,((C_word*)t0)[3]); -case C_make_character(107): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_i_string_ref(((C_word*)t0)[2],t30); -if(C_truep(C_i_not(C_u_i_memq(t31,lf[190])))){ -/* irregex-core.scm:1107: chicken.base#error */ -t32=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t32; -av2[1]=t1; -av2[2]=lf[191]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t32+1)))(4,av2);}} -else{ -t32=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12690,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t6,a[7]=t12,a[8]=t2,tmp=(C_word)a,a+=9,tmp); -switch(t31){ -case C_make_character(60): -t33=t32; -f_12690(t33,C_make_character(62)); -case C_make_character(123): -t33=t32; -f_12690(t33,C_make_character(125)); -case C_make_character(40): -t33=t32; -f_12690(t33,C_make_character(41)); -default: -t33=C_eqp(t31,C_make_character(91)); -t34=t32; -f_12690(t34,(C_truep(t33)?C_make_character(93):t31));}} -case C_make_character(81): -t30=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12762,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:1122: collect */ -t31=((C_word*)t12)[1]; -f_10558(t31,t30); -case C_make_character(39): -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_12873,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=t6,a[5]=t12,a[6]=((C_word)li88),tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:1139: with-read-from-string */ -f_9734(t1,((C_word*)t0)[2],t30,t31); -default: -if(C_truep(C_u_i_char_numericp(t29))){ -t30=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12894,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); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_list(&a,1,t31); -t33=C_i_string_length(((C_word*)t0)[2]); -t34=C_i_pairp(t32); -t35=(C_truep(t34)?C_u_i_car(t32):C_fix(0)); -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|5,a[1]=(C_word)f_8922,a[2]=t33,a[3]=((C_word*)t0)[2],a[4]=t37,a[5]=((C_word)li89),tmp=(C_word)a,a+=6,tmp)); -t39=((C_word*)t37)[1]; -f_8922(t39,t30,t35);} -else{ -if(C_truep(C_u_i_char_alphabeticp(t29))){ -t30=C_i_assq(t29,lf[169]); -if(C_truep(t30)){ -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t32=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t33=C_i_cdr(t30); -t34=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12974,a[2]=t33,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t31,a[6]=t32,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1166: collect */ -t35=((C_word*)t12)[1]; -f_10558(t35,t34);} -else{ -/* irregex-core.scm:1167: chicken.base#error */ -t31=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t31; -av2[1]=t1; -av2[2]=lf[195]; -av2[3]=((C_word*)t0)[2]; -av2[4]=t29; -((C_proc)(void*)(*((C_word*)t31+1)))(5,av2);}}} -else{ -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12990,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t30,a[5]=t31,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1169: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32);}}}} -case C_make_character(124): -t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t28=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13054,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t27,a[5]=t28,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1171: collect */ -t30=((C_word*)t12)[1]; -f_10558(t30,t29); -case C_make_character(94): -t27=C_fixnum_and(t4,C_fix(4)); -t28=C_eqp(C_fix(4),t27); -t29=(C_truep(t28)?lf[196]:lf[187]); -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t32=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13080,a[2]=t29,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1174: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(36): -t27=C_fixnum_and(t4,C_fix(4)); -t28=C_eqp(C_fix(4),t27); -t29=(C_truep(t28)?lf[197]:lf[188]); -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t31=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t32=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13109,a[2]=t29,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t30,a[6]=t31,a[7]=t4,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1177: collect */ -t33=((C_word*)t12)[1]; -f_10558(t33,t32); -case C_make_character(32): -t27=C_fixnum_and(t4,C_fix(16)); -t28=C_eqp(C_fix(16),t27); -if(C_truep(t28)){ -t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t31=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13137,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t29,a[5]=t30,a[6]=t4,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1180: collect */ -t32=((C_word*)t12)[1]; -f_10558(t32,t31);} -else{ -t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1181: lp */ -t225=t1; -t226=t29; -t227=t3; -t228=t4; -t229=t5; -t230=t6; -t1=t225; -t2=t226; -t3=t227; -t4=t228; -t5=t229; -t6=t230; -goto loop;} -case C_make_character(35): -t27=C_fixnum_and(t4,C_fix(16)); -t28=C_eqp(C_fix(16),t27); -if(C_truep(t28)){ -t29=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13158,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); -t30=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1184: string-scan-char */ -t31=lf[55];{ -C_word av2[5]; -av2[0]=t31; -av2[1]=t29; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(10); -av2[4]=t30; -((C_proc)(void*)(*((C_word*)t31+1)))(5,av2);}} -else{ -t29=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1187: lp */ -t225=t1; -t226=t29; -t227=t3; -t228=t4; -t229=t5; -t230=t6; -t1=t225; -t2=t226; -t3=t227; -t4=t228; -t5=t229; -t6=t230; -goto loop;} -default: -t27=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1189: lp */ -t225=t1; -t226=t27; -t227=t3; -t228=t4; -t229=t5; -t230=t6; -t1=t225; -t2=t226; -t3=t227; -t4=t228; -t5=t229; -t6=t230; -goto loop;}}}}} - -/* cased-char in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static C_word f_10480(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_fixnum_and(((C_word*)t0)[2],C_fix(2)); -t3=C_eqp(C_fix(2),t2); -t4=(C_truep(t3)?C_u_i_char_alphabeticp(t1):C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=C_u_i_char_upper_casep(t1); -t6=(C_truep(t5)?C_u_i_char_downcase(t1):C_u_i_char_upcase(t1)); -return(C_a_i_list(&a,3,lf[104],t1,t6));} -else{ -return(t1);}} - -/* cased-string in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10502(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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_10502,3,t0,t1,t2);} -a=C_alloc(11); -t3=C_fixnum_and(((C_word*)t0)[2],C_fix(2)); -t4=C_eqp(C_fix(2),t3); -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_10519,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=t8,tmp=(C_word)a,a+=6,tmp); -/* ##sys#string->list */ -t10=*((C_word*)lf[106]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} -else{ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k10517 in cased-string in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10519(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_10519,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10522,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_10524,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)li66),tmp=(C_word)a,a+=7,tmp)); -t6=((C_word*)t4)[1]; -f_10524(t6,t2,t1);} - -/* k10520 in k10517 in cased-string in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10522(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_10522,c,av);} -a=C_alloc(3); -/* irregex-core.scm:771: sre-sequence */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* irregex-core.scm:771: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop1445 in k10517 in cased-string in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10524(C_word t0,C_word t1,C_word t2){ -C_word 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_10524,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* irregex-core.scm:771: g1451 */ - f_10480(C_a_i(&a,9),((C_word*)((C_word*)t0)[2])[1],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* collect in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10558(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,4)))){ -C_save_and_reclaim_args((void *)trf_10558,2,t0,t1);} -a=C_alloc(8); -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -if(C_truep(t2)){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10572,a[2]=t1,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10576,a[2]=((C_word*)t0)[5],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:775: scheme#substring */ -t5=*((C_word*)lf[46]+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_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* k10570 in collect in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10572(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_10572,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10574 in collect in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10576,c,av);} -/* irregex-core.scm:775: cased-string */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10502(t2,((C_word*)t0)[3],t1);} - -/* collect/single in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10578(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -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,3)))){ -C_save_and_reclaim_args((void *)trf_10578,2,t0,t1);} -a=C_alloc(17); -t2=C_fixnum_and(((C_word*)t0)[2],C_fix(32)); -t3=C_eqp(C_fix(32),t2); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10585,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]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t5=(C_truep(t3)?C_fixnum_greaterp(((C_word*)t0)[8],C_fix(1)):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=C_fixnum_difference(((C_word*)t0)[8],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_14219,a[2]=((C_word*)t0)[6],a[3]=t8,a[4]=((C_word)li69),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_14219(t10,t4,t6);} -else{ -t6=t4;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_fixnum_difference(((C_word*)t0)[8],C_fix(1)); -f_10585(2,av2);}}} - -/* k10583 in collect/single in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10585(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ -C_save_and_reclaim((void *)f_10585,c,av);} -a=C_alloc(21); -if(C_truep(C_fixnum_lessp(t1,((C_word*)t0)[2]))){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10594,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10622,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); -if(C_truep(((C_word*)t0)[8])){ -/* irregex-core.scm:788: utf8-string-ref */ -f_14024(t3,((C_word*)t0)[6],t1,C_fixnum_difference(((C_word*)t0)[9],t1));} -else{ -/* irregex-core.scm:787: cased-char */ -t4=t2; -f_10594(t4,( -/* irregex-core.scm:787: cased-char */ - f_10480(C_a_i(&a,9),((C_word*)((C_word*)t0)[7])[1],C_i_string_ref(((C_word*)t0)[6],t1)) -));}}} - -/* k10592 in k10583 in collect/single in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10594(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_10594,2,t0,t1);} -a=C_alloc(9); -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -if(C_truep(t2)){ -t3=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10614,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10618,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:795: scheme#substring */ -t5=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* k10612 in k10592 in k10583 in collect/single in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10614(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_10614,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k10616 in k10592 in k10583 in collect/single in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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(0,c,2)))){ -C_save_and_reclaim((void *)f_10618,c,av);} -/* irregex-core.scm:795: cased-string */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10502(t2,((C_word*)t0)[3],t1);} - -/* k10620 in k10583 in collect/single in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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(9,c,1)))){ -C_save_and_reclaim((void *)f_10622,c,av);} -a=C_alloc(9); -/* irregex-core.scm:787: cased-char */ -t2=((C_word*)t0)[2]; -f_10594(t2,( -/* irregex-core.scm:787: cased-char */ - f_10480(C_a_i(&a,9),((C_word*)((C_word*)t0)[3])[1],t1) -));} - -/* collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10650(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_10650,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10654,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:801: collect */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10558(t3,t2);} - -/* k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_10654,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_pairp(t1))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10880,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:804: last */ -f_9251(t3,t1);} -else{ -t3=t2; -f_10657(t3,C_SCHEME_FALSE);}} - -/* k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10657(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_10657,2,t0,t1);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10660,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); -t3=(C_truep(t1)?C_u_i_memq(C_i_car(t1),lf[122]):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10858,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:810: ##sys#fast-reverse */ -t5=*((C_word*)lf[70]+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{ -if(C_truep(t1)){ -t4=C_i_car(t1); -t5=t2; -f_10660(t5,C_a_i_list1(&a,1,t4));} -else{ -t4=t2; -f_10660(t4,C_SCHEME_FALSE);}}} - -/* k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10660(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_10660,2,t0,t1);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10663,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_word*)t0)[4])){ -t3=C_i_car(((C_word*)t0)[4]); -if(C_truep((C_truep(C_eqp(t3,lf[120]))?C_SCHEME_TRUE:(C_truep(C_eqp(t3,lf[121]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10833,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:814: ##sys#fast-reverse */ -t5=*((C_word*)lf[70]+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|2,a[1]=(C_word)f_10844,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:815: ##sys#fast-reverse */ -t5=*((C_word*)lf[70]+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{ -t3=t2;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -f_10663(2,av2);}}} - -/* k10661 in k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 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_10663,c,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_10668,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li71),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_10668(t5,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} - -/* lp in k10661 in k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10668(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 *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(31,0,4)))){ -C_save_and_reclaim_args((void *)trf_10668,5,t0,t1,t2,t3,t4);} -a=C_alloc(31); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10671,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_nullp(t2))){ -t6=( -/* irregex-core.scm:822: shift */ - f_10671(C_a_i(&a,6),t5) -); -t7=( -/* irregex-core.scm:822: sre-alternate */ - f_18212(C_a_i(&a,3),t6) -); -t8=C_fixnum_and(((C_word*)t0)[2],C_fix(1)); -t9=C_eqp(C_fix(1),t8); -t10=(C_truep(t9)?C_a_i_list2(&a,2,lf[109],t7):t7); -if(C_truep(((C_word*)t0)[3])){ -t11=C_i_car(((C_word*)t0)[3]); -t12=C_eqp(lf[110],t11); -if(C_truep(t12)){ -t13=C_i_pairp(t10); -if(C_truep(C_i_not(t13))){ -t14=t1;{ -C_word av2[2]; -av2[0]=t14; -av2[1]=lf[111]; -((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} -else{ -t14=C_i_car(t10); -if(C_truep((C_truep(C_eqp(t14,lf[112]))?C_SCHEME_TRUE:(C_truep(C_eqp(t14,lf[113]))?C_SCHEME_TRUE:(C_truep(C_eqp(t14,lf[114]))?C_SCHEME_TRUE:(C_truep(C_eqp(t14,lf[115]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))){ -t15=t1;{ -C_word av2[2]; -av2[0]=t15; -av2[1]=t10; -((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} -else{ -t15=C_eqp(lf[116],C_u_i_car(t10)); -if(C_truep(t15)){ -t16=C_i_cadr(t10); -t17=C_u_i_cdr(t10); -t18=( -/* irregex-core.scm:837: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t17)) -); -t19=t1;{ -C_word av2[2]; -av2[0]=t19; -av2[1]=C_a_i_list(&a,3,lf[110],t16,t18); -((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} -else{ -t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10741,a[2]=t10,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:839: scheme#cadadr */ -t17=*((C_word*)lf[118]+1);{ -C_word av2[3]; -av2[0]=t17; -av2[1]=t16; -av2[2]=t10; -((C_proc)(void*)(*((C_word*)t17+1)))(3,av2);}}}}} -else{ -t13=C_a_i_list(&a,1,t10); -/* irregex-core.scm:842: ##sys#append */ -t14=*((C_word*)lf[119]+1);{ -C_word av2[4]; -av2[0]=t14; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=t13; -((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}}} -else{ -t11=t1;{ -C_word av2[2]; -av2[0]=t11; -av2[1]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} -else{ -t6=C_i_car(t2); -t7=C_eqp(lf[104],t6); -if(C_truep(t7)){ -t8=C_u_i_cdr(t2); -t9=( -/* irregex-core.scm:844: shift */ - f_10671(C_a_i(&a,6),t5) -); -/* irregex-core.scm:844: lp */ -t20=t1; -t21=t8; -t22=C_SCHEME_END_OF_LIST; -t23=t9; -t1=t20; -t2=t21; -t3=t22; -t4=t23; -goto loop;} -else{ -t8=C_u_i_cdr(t2); -t9=C_u_i_car(t2); -t10=C_a_i_cons(&a,2,t9,t3); -/* irregex-core.scm:845: lp */ -t20=t1; -t21=t8; -t22=t10; -t23=t4; -t1=t20; -t2=t21; -t3=t22; -t4=t23; -goto loop;}}} - -/* shift in lp in k10661 in k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static C_word f_10671(C_word *a,C_word t0){ -C_word tmp; -C_word t1; -C_word t2; -C_stack_overflow_check;{} -t1=( -/* irregex-core.scm:819: sre-sequence */ - f_18189(C_a_i(&a,3),((C_word*)t0)[2]) -); -return(C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));} - -/* k10739 in lp in k10661 in k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10741(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_10741,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10757,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:840: scheme#cddadr */ -t3=*((C_word*)lf[117]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k10755 in k10739 in lp in k10661 in k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_10757(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ -C_save_and_reclaim((void *)f_10757,c,av);} -a=C_alloc(18); -t2=( -/* irregex-core.scm:840: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -t3=( -/* irregex-core.scm:841: sre-alternate */ - f_18212(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[2])) -); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list(&a,4,lf[110],((C_word*)t0)[4],t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k10831 in k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10833,c,av);} -/* irregex-core.scm:814: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cddr(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10842 in k10658 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10844,c,av);} -/* irregex-core.scm:815: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cdr(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k10856 in k10655 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_10858,c,av);} -a=C_alloc(6); -t2=C_i_cadr(t1); -t3=((C_word*)t0)[2]; -f_10660(t3,C_a_i_list2(&a,2,lf[121],t2));} - -/* k10878 in k10652 in collect/terms in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10880,c,av);} -t2=((C_word*)t0)[2]; -f_10657(t2,C_u_i_memq(t1,lf[123]));} - -/* save in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10883(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_10883,2,t0,t1);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10895,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:847: collect */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_10558(t3,t2);} - -/* k10893 in save in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 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_10895,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k10953 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_10955,c,av);} -a=C_alloc(28); -if(C_truep(C_i_nullp(t1))){ -/* irregex-core.scm:864: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[127]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=C_i_car(t1); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10984,a[2]=t1,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t4,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(t2))){ -t6=C_u_i_car(t2); -t7=C_eqp(t6,lf[128]); -if(C_truep(t7)){ -t8=C_u_i_cdr(t2); -t9=t5; -f_10984(t9,C_a_i_cons(&a,2,lf[129],t8));} -else{ -t8=C_eqp(t6,lf[130]); -if(C_truep(t8)){ -t9=C_u_i_cdr(t2); -t10=C_a_i_cons(&a,2,C_SCHEME_FALSE,t9); -t11=C_a_i_cons(&a,2,C_fix(1),t10); -t12=t5; -f_10984(t12,C_a_i_cons(&a,2,lf[131],t11));} -else{ -t9=C_eqp(t6,lf[132]); -if(C_truep(t9)){ -t10=C_u_i_cdr(t2); -t11=t5; -f_10984(t11,C_a_i_cons(&a,2,lf[133],t10));} -else{ -t10=C_eqp(t6,lf[134]); -if(C_truep(t10)){ -t11=C_u_i_cdr(t2); -t12=t5; -f_10984(t12,C_a_i_cons(&a,2,lf[131],t11));} -else{ -t11=C_eqp(t6,lf[135]); -if(C_truep(t11)){ -t12=C_i_cadr(t2); -t13=C_u_i_cdr(t2); -t14=C_a_i_cons(&a,2,t12,t13); -t15=t5; -f_10984(t15,C_a_i_cons(&a,2,lf[131],t14));} -else{ -t12=C_eqp(t6,lf[136]); -if(C_truep(t12)){ -t13=C_i_cadr(t2); -t14=C_u_i_cdr(t2); -t15=C_u_i_cdr(t14); -t16=C_a_i_cons(&a,2,C_SCHEME_FALSE,t15); -t17=C_a_i_cons(&a,2,t13,t16); -t18=t5; -f_10984(t18,C_a_i_cons(&a,2,lf[131],t17));} -else{ -t13=t5; -f_10984(t13,C_a_i_list(&a,2,lf[132],t2));}}}}}}} -else{ -t6=t5; -f_10984(t6,C_a_i_list(&a,2,lf[132],t2));}}} - -/* k10982 in k10953 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_10984(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_10984,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:866: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);} - -/* k11113 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11115(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ -C_save_and_reclaim((void *)f_11115,c,av);} -a=C_alloc(18); -t2=C_i_pairp(t1); -t3=(C_truep(t2)?C_u_i_car(t1):lf[111]); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11121,a[2]=t3,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],tmp=(C_word)a,a+=10,tmp); -t5=C_a_i_string(&a,1,((C_word*)t0)[8]); -/* irregex-core.scm:885: scheme#string->symbol */ -t6=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k11119 in k11113 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11121(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_11121,c,av);} -a=C_alloc(11); -t2=( -/* irregex-core.scm:887: sre-repeater? */ - f_16576(((C_word*)t0)[2]) -); -if(C_truep(t2)){ -/* irregex-core.scm:888: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[138]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_11136,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,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:889: sre-empty? */ -t4=lf[140];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -f_16308(3,av2);}}} - -/* k11134 in k11119 in k11113 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,6)))){ -C_save_and_reclaim((void *)f_11136,c,av);} -a=C_alloc(19); -if(C_truep(t1)){ -/* irregex-core.scm:890: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[139]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[5],C_fix(1)); -t3=C_a_i_fixnum_plus(&a,2,((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:892: lp */ -t7=((C_word*)((C_word*)t0)[8])[1]; -f_10477(t7,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t6,((C_word*)t0)[10]);}} - -/* k11205 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11207(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11207,c,av);} -/* irregex-core.scm:900: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);} - -/* a11236 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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=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(10,c,2)))){ -C_save_and_reclaim((void *)f_11237,c,av);} -a=C_alloc(10); -t4=C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11247,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(t4)){ -t6=t5; -f_11247(t6,t4);} -else{ -t6=C_i_string_ref(((C_word*)t0)[3],t3); -t7=t5; -f_11247(t7,C_i_not(C_eqp(C_make_character(41),t6)));}} - -/* k11245 in a11236 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_11247(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_11247,2,t0,t1);} -a=C_alloc(9); -if(C_truep(t1)){ -/* irregex-core.scm:908: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[144]; -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=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11269,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:909: collect */ -t5=((C_word*)((C_word*)t0)[9])[1]; -f_10558(t5,t4);}} - -/* k11267 in k11245 in a11236 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11269(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11269,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:909: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k11302 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_11304,c,av);} -a=C_alloc(8); -t2=C_fixnum_plus(t1,((C_word*)t0)[2]); -t3=C_fixnum_plus(t1,C_fix(1)); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11319,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:915: collect */ -t5=((C_word*)((C_word*)t0)[7])[1]; -f_10558(t5,t4);} - -/* k11317 in k11302 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11319(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_11319,c,av);} -/* irregex-core.scm:915: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} - -/* k11343 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11345(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11345,c,av);} -/* irregex-core.scm:917: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t1);} - -/* k11366 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11368(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11368,c,av);} -/* irregex-core.scm:919: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[146],t1);} - -/* k11389 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11391,c,av);} -/* irregex-core.scm:922: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[147],t1);} - -/* k11431 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11433(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_11433,c,av);} -/* irregex-core.scm:931: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[149],t1);} - -/* k11454 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11456(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_11456,c,av);} -/* irregex-core.scm:934: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[150],t1);} - -/* k11457 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_11459,c,av);} -a=C_alloc(16); -if(C_truep(t1)){ -t2=C_fixnum_plus(t1,C_fix(1)); -t3=C_fixnum_plus(t1,C_fix(1)); -t4=C_fixnum_not(C_fix(1)); -t5=C_fixnum_and(((C_word*)t0)[2],t4); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11489,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t3,a[6]=t5,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11493,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -t8=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(3)); -/* irregex-core.scm:942: scheme#substring */ -t9=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=t7; -av2[2]=((C_word*)t0)[7]; -av2[3]=t8; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} -else{ -/* irregex-core.scm:945: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[151]; -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k11483 in k11487 in k11457 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11485,c,av);} -/* irregex-core.scm:941: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} - -/* k11487 in k11457 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_11489,c,av);} -a=C_alloc(14); -t2=C_a_i_list(&a,2,t1,lf[121]); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11485,a[2]=((C_word*)t0)[2],a[3]=((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); -/* irregex-core.scm:944: save */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_10883(t4,t3);} - -/* k11491 in k11457 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11493,c,av);} -/* irregex-core.scm:942: scheme#string->symbol */ -t2=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k11543 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11545,c,av);} -/* irregex-core.scm:947: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[152],t1);} - -/* k11568 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 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_11570,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11573,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11607,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[7],C_fix(3)); -/* irregex-core.scm:959: scheme#substring */ -t5=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -av2[3]=t4; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k11571 in k11568 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(24,c,3)))){ -C_save_and_reclaim((void *)f_11573,c,av);} -a=C_alloc(24); -if(C_truep(C_i_not(t1))){ -/* irregex-core.scm:961: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[154]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t4=C_fixnum_not(C_fix(1)); -t5=C_fixnum_and(((C_word*)t0)[5],t4); -t6=C_a_i_list(&a,2,t1,lf[110]); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11603,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:963: save */ -t8=((C_word*)((C_word*)t0)[7])[1]; -f_10883(t8,t7);}} - -/* k11601 in k11571 in k11568 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_11603,c,av);} -/* irregex-core.scm:962: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} - -/* k11605 in k11568 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11607(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11607,c,av);} -/* irregex-core.scm:959: scheme#string->number */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k11620 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11622(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_11622,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11625,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_11650,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(3)); -/* irregex-core.scm:966: scheme#substring */ -t5=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -av2[3]=t4; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k11623 in k11620 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11625(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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(24,c,2)))){ -C_save_and_reclaim((void *)f_11625,c,av);} -a=C_alloc(24); -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -t4=C_fixnum_not(C_fix(1)); -t5=C_fixnum_and(((C_word*)t0)[3],t4); -t6=C_a_i_list(&a,2,t1,lf[110]); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11646,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:968: save */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_10883(t8,t7);} - -/* k11644 in k11623 in k11620 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11646(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11646,c,av);} -/* irregex-core.scm:967: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t1);} - -/* k11648 in k11620 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11650(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11650,c,av);} -/* irregex-core.scm:966: scheme#string->symbol */ -t2=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k11671 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_11673,c,av);} -/* irregex-core.scm:970: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],lf[155],t1);} - -/* lp2 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_11704(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 *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(38,0,4)))){ -C_save_and_reclaim_args((void *)trf_11704,5,t0,t1,t2,t3,t4);} -a=C_alloc(38); -t5=C_SCHEME_UNDEFINED; -t6=C_SCHEME_UNDEFINED; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11707,a[2]=t4,a[3]=t3,a[4]=((C_word)li75),tmp=(C_word)a,a+=5,tmp); -t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11716,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li76),tmp=(C_word)a,a+=5,tmp)); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[3]))){ -/* irregex-core.scm:987: chicken.base#error */ -t10=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t1; -av2[2]=lf[159]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} -else{ -t10=C_i_string_ref(((C_word*)t0)[4],t2); -switch(t10){ -case C_make_character(105): -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=( -/* irregex-core.scm:991: join */ - f_11707(t5,C_fix(2)) -); -/* irregex-core.scm:991: lp2 */ -t28=t1; -t29=t11; -t30=t12; -t31=t4; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop; -case C_make_character(109): -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=( -/* irregex-core.scm:993: join */ - f_11707(t5,C_fix(4)) -); -/* irregex-core.scm:993: lp2 */ -t28=t1; -t29=t11; -t30=t12; -t31=t4; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop; -case C_make_character(120): -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=( -/* irregex-core.scm:995: join */ - f_11707(t5,C_fix(16)) -); -/* irregex-core.scm:995: lp2 */ -t28=t1; -t29=t11; -t30=t12; -t31=t4; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop; -case C_make_character(117): -if(C_truep(lf[54])){ -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=( -/* irregex-core.scm:998: join */ - f_11707(t5,C_fix(32)) -); -/* irregex-core.scm:998: lp2 */ -t28=t1; -t29=t11; -t30=t12; -t31=t4; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop;} -else{ -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:999: lp2 */ -t28=t1; -t29=t11; -t30=t3; -t31=t4; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop;} -case C_make_character(45): -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1001: lp2 */ -t28=t1; -t29=t11; -t30=t3; -t31=C_i_not(t4); -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop; -case C_make_character(41): -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t13=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11860,a[2]=t7,a[3]=((C_word*)t0)[7],a[4]=t1,a[5]=t11,a[6]=t12,a[7]=t3,a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1003: collect */ -t14=((C_word*)((C_word*)t0)[9])[1]; -f_10558(t14,t13); -case C_make_character(58): -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t13=( -/* irregex-core.scm:1006: new-res */ - f_11716(C_a_i(&a,6),((C_word*)t7)[1],C_SCHEME_END_OF_LIST) -); -t14=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[7],a[5]=t1,a[6]=t11,a[7]=t12,a[8]=t3,a[9]=t13,tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:1007: collect */ -t15=((C_word*)((C_word*)t0)[9])[1]; -f_10558(t15,t14); -default: -/* irregex-core.scm:1009: chicken.base#error */ -t11=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t11; -av2[1]=t1; -av2[2]=lf[160]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}}} - -/* join in lp2 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static C_word f_11707(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_stack_overflow_check;{} -if(C_truep(((C_word*)t0)[2])){ -t2=lf[65]; -t3=lf[65]; -return(C_fixnum_and(((C_word*)t0)[3],C_fixnum_not(t1)));} -else{ -t2=lf[64]; -t3=lf[64]; -return((C_truep(t1)?C_fixnum_or(((C_word*)t0)[3],t1):((C_word*)t0)[3]));}} - -/* new-res in lp2 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static C_word f_11716(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_fixnum_and(((C_word*)t0)[2],C_fix(32)); -t3=C_eqp(C_fix(32),t2); -t4=C_fixnum_and(((C_word*)t0)[3],C_fix(32)); -t5=C_eqp(C_fix(32),t4); -t6=C_eqp(t3,t5); -return((C_truep(t6)?t1:(C_truep(t5)?C_a_i_cons(&a,2,lf[157],t1):C_a_i_cons(&a,2,lf[158],t1))));} - -/* k11858 in lp2 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11860(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,6)))){ -C_save_and_reclaim((void *)f_11860,c,av);} -a=C_alloc(6); -t2=( -/* irregex-core.scm:1003: new-res */ - f_11716(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1) -); -/* irregex-core.scm:1003: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k11889 in lp2 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 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_11891,c,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:1006: lp */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_10477(t4,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t3);} - -/* k11980 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11982(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_11982,c,av);} -a=C_alloc(3); -t2=C_i_cdar(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -/* irregex-core.scm:1014: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,C_u_i_cdr(((C_word*)t0)[2]));} - -/* a11996 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_11997(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(9,c,2)))){ -C_save_and_reclaim((void *)f_11997,c,av);} -a=C_alloc(9); -t4=C_fixnum_plus(t3,C_fix(1)); -t5=C_fixnum_plus(t3,C_fix(1)); -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12017,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1022: collect */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_10558(t7,t6);} - -/* k12015 in a11996 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12017(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12017,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1022: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12019 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12021,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_12040(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_12040,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* irregex-core.scm:1029: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(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_12049,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:1031: collect/single */ -t3=((C_word*)((C_word*)t0)[10])[1]; -f_10578(t3,t2);}} - -/* k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12049(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_12049,c,av);} -a=C_alloc(15); -if(C_truep(C_i_nullp(t1))){ -/* irregex-core.scm:1034: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[175]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=C_i_car(t1); -t3=C_u_i_cdr(t1); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12065,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],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); -t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[6],C_fix(1)); -/* irregex-core.scm:1038: string-scan-char */ -t6=lf[55];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t4; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_make_character(125); -av2[4]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} - -/* k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12065(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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,4)))){ -C_save_and_reclaim((void *)f_12065,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12068,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12193,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(1)); -/* irregex-core.scm:1039: scheme#substring */ -t5=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -av2[3]=t4; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k12066 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_12068,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12071,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); -/* irregex-core.scm:1041: scheme#string->number */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_car(t1); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k12069 in k12066 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_12071,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_12074,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_u_i_cdr(((C_word*)t0)[3])))){ -/* irregex-core.scm:1043: scheme#string->number */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_12074(2,av2);}}} - -/* k12072 in k12069 in k12066 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12074(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_12074,c,av);} -a=C_alloc(12); -t2=C_i_not(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_12083,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]=t1,tmp=(C_word)a,a+=12,tmp); -if(C_truep(t2)){ -t4=t3; -f_12083(t4,t2);} -else{ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[4])))){ -t4=C_i_cadr(((C_word*)t0)[4]); -t5=C_i_equalp(lf[177],t4); -t6=C_i_not(t5); -t7=t3; -f_12083(t7,(C_truep(t6)?C_i_not(t1):C_SCHEME_FALSE));} -else{ -t4=t3; -f_12083(t4,C_SCHEME_FALSE);}}} - -/* k12081 in k12072 in k12069 in k12066 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_12083(C_word 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(25,0,6)))){ -C_save_and_reclaim_args((void *)trf_12083,2,t0,t1);} -a=C_alloc(25); -if(C_truep(t1)){ -/* irregex-core.scm:1049: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[176]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -if(C_truep(C_i_nullp(C_u_i_cdr(((C_word*)t0)[3])))){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t4=C_a_i_list(&a,3,lf[135],((C_word*)t0)[5],((C_word*)t0)[6]); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[7]); -/* irregex-core.scm:1051: lp */ -t6=((C_word*)((C_word*)t0)[8])[1]; -f_10477(t6,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t5,((C_word*)t0)[10]);} -else{ -if(C_truep(((C_word*)t0)[11])){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t4=C_a_i_list(&a,4,lf[134],((C_word*)t0)[5],((C_word*)t0)[11],((C_word*)t0)[6]); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[7]); -/* irregex-core.scm:1053: lp */ -t6=((C_word*)((C_word*)t0)[8])[1]; -f_10477(t6,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t5,((C_word*)t0)[10]);} -else{ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t4=C_a_i_list(&a,3,lf[136],((C_word*)t0)[5],((C_word*)t0)[6]); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[7]); -/* irregex-core.scm:1055: lp */ -t6=((C_word*)((C_word*)t0)[8])[1]; -f_10477(t6,((C_word*)t0)[2],t2,t3,((C_word*)t0)[9],t5,((C_word*)t0)[10]);}}}} - -/* k12191 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12193(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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,5)))){ -C_save_and_reclaim((void *)f_12193,c,av);} -a=C_alloc(8); -t2=C_i_string_length(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_8960,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=((C_word)li85),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_8960(t6,((C_word*)t0)[2],C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} - -/* k12267 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12269(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12269,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[179],t1); -/* irregex-core.scm:1065: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12294 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_12296,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1067: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12317 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12319(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12319,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[80],t1); -/* irregex-core.scm:1069: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12344 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12346(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12346,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1071: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12371 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12373(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_12373,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1073: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12402 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_12404,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1076: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12437 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12439(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_12439,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1079: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12460 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12462(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12462,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[186],t1); -/* irregex-core.scm:1082: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12483 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12485(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_12485,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[187],t1); -/* irregex-core.scm:1084: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12514 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12516(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_12516,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,lf[188],t1); -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -/* irregex-core.scm:1086: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t4,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[8]);} - -/* k12537 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12539(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12539,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[188],t1); -/* irregex-core.scm:1089: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12560 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12562(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_12562,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[81],t1); -/* irregex-core.scm:1091: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12583 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12585(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12585,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[189],t1); -/* irregex-core.scm:1093: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12606 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12608(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12608,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[184],t1); -/* irregex-core.scm:1096: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12629 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12631(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_12631,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[185],t1); -/* irregex-core.scm:1098: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* a12641 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12642(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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(9,c,2)))){ -C_save_and_reclaim((void *)f_12642,c,av);} -a=C_alloc(9); -t4=C_fixnum_plus(t3,C_fix(1)); -t5=C_fixnum_plus(t3,C_fix(1)); -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12662,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,a[6]=t5,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1102: collect */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_10558(t7,t6);} - -/* k12660 in a12641 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_12662,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1102: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12664 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12666(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12666,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* k12688 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_12690(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,4)))){ -C_save_and_reclaim_args((void *)trf_12690,2,t0,t1);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12693,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((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_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(2)); -/* irregex-core.scm:1109: string-scan-char */ -t4=lf[55];{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k12691 in k12688 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ -C_save_and_reclaim((void *)f_12693,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12696,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t1)){ -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(3)); -/* irregex-core.scm:1110: scheme#substring */ -t4=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=t3; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_12696(2,av2);}}} - -/* k12694 in k12691 in k12688 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12696(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_12696,c,av);} -a=C_alloc(10); -t2=C_fixnum_and(((C_word*)t0)[2],C_fix(2)); -t3=C_eqp(C_fix(2),t2); -t4=(C_truep(t3)?lf[192]:lf[193]); -if(C_truep(C_i_not(((C_word*)t0)[3]))){ -/* irregex-core.scm:1116: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[194]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t5=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); -t6=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_12735,a[2]=t4,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=t6,a[7]=((C_word*)t0)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:1118: scheme#string->symbol */ -t8=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} - -/* k12729 in k12733 in k12694 in k12691 in k12688 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -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_12731,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1117: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12733 in k12694 in k12691 in k12688 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12735(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_12735,c,av);} -a=C_alloc(15); -t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12731,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],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1119: collect */ -t4=((C_word*)((C_word*)t0)[9])[1]; -f_10558(t4,t3);} - -/* k12760 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 t3; -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_12762,c,av);} -a=C_alloc(18); -t2=C_a_i_fixnum_plus(&a,2,((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|10,a[1]=(C_word)f_12770,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]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=t4,a[10]=((C_word)li87),tmp=(C_word)a,a+=11,tmp)); -t6=((C_word*)t4)[1]; -f_12770(t6,((C_word*)t0)[8],t2);} - -/* lp2 in k12760 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_12770(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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(29,0,6)))){ -C_save_and_reclaim_args((void *)trf_12770,3,t0,t1,t2);} -a=C_alloc(29); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ -/* irregex-core.scm:1126: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,t1,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(2)),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} -else{ -t3=C_i_string_ref(((C_word*)t0)[8],t2); -t4=C_eqp(C_make_character(92),t3); -if(C_truep(t4)){ -t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -if(C_truep(C_i_integer_greater_or_equalp(t5,((C_word*)t0)[2]))){ -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1130: lp */ -t7=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t7,t1,t6,C_fixnum_plus(((C_word*)t0)[4],C_fix(2)),((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} -else{ -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t7=C_i_string_ref(((C_word*)t0)[8],t6); -t8=C_eqp(C_make_character(69),t7); -if(C_truep(t8)){ -t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t10=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12830,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t9,a[6]=t10,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1133: scheme#substring */ -t12=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t12; -av2[1]=t11; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_fixnum_plus(((C_word*)t0)[4],C_fix(2)); -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}} -else{ -t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -/* irregex-core.scm:1135: lp2 */ -t13=t1; -t14=t9; -t1=t13; -t2=t14; -goto loop;}}} -else{ -t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1137: lp2 */ -t13=t1; -t14=t5; -t1=t13; -t2=t14; -goto loop;}}} - -/* k12828 in lp2 in k12760 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12830(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_12830,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:1132: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* a12872 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12873(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_12873,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12885,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:1141: collect */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_10558(t5,t4);} - -/* k12883 in a12872 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12885(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12885,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1141: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12892 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ -C_save_and_reclaim((void *)f_12894,c,av);} -a=C_alloc(17); -t2=(C_truep(t1)?t1:((C_word*)t0)[2]); -t3=C_fixnum_and(((C_word*)t0)[3],C_fix(2)); -t4=C_eqp(C_fix(2),t3); -t5=(C_truep(t4)?lf[192]:lf[193]); -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_12918,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t2,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); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12922,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -t8=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(1)); -/* irregex-core.scm:1159: scheme#substring */ -t9=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=t7; -av2[2]=((C_word*)t0)[9]; -av2[3]=t8; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* k12912 in k12916 in k12892 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12914(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12914,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1161: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k12916 in k12892 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_12918,c,av);} -a=C_alloc(14); -t2=C_a_i_list(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_12914,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); -/* irregex-core.scm:1160: collect */ -t4=((C_word*)((C_word*)t0)[8])[1]; -f_10558(t4,t3);} - -/* k12920 in k12892 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12922,c,av);} -/* irregex-core.scm:1158: scheme#string->number */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k12972 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12974(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_12974,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1165: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k12988 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_12990(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_12990,c,av);} -/* irregex-core.scm:1169: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} - -/* k13052 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13054,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[104],t1); -/* irregex-core.scm:1171: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t2,((C_word*)t0)[7]);} - -/* k13078 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13080(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13080,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1174: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k13107 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13109(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13109,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1177: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10477(t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2,((C_word*)t0)[8]);} - -/* k13135 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13137(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_13137,c,av);} -/* irregex-core.scm:1180: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} - -/* k13156 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13158(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_13158,c,av);} -a=C_alloc(13); -t2=(C_truep(t1)?t1:C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],C_fix(1))); -t3=C_fixnum_plus(t2,C_fix(1)); -t4=C_fixnum_plus(t2,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13176,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); -/* irregex-core.scm:1186: collect */ -t6=((C_word*)((C_word*)t0)[7])[1]; -f_10558(t6,t5);} - -/* k13174 in k13156 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13176(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_13176,c,av);} -/* irregex-core.scm:1186: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10477(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,((C_word*)t0)[7]);} - -/* chicken.irregex#string-parse-hex-escape in k7753 in k7522 in k7519 */ -static void f_13290(C_word 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(21,0,4)))){ -C_save_and_reclaim_args((void *)trf_13290,4,t1,t2,t3,t4);} -a=C_alloc(21); -if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ -/* irregex-core.scm:1209: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[200]; -av2[3]=t2; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=C_i_string_ref(t2,t3); -t6=C_eqp(C_make_character(123),t5); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13309,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t8=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); -t9=C_a_i_list(&a,1,t8); -t10=C_i_string_length(t2); -t11=C_i_pairp(t9); -t12=(C_truep(t11)?C_u_i_car(t9):C_fix(0)); -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_8865,a[2]=t10,a[3]=t2,a[4]=t14,a[5]=((C_word)li92),tmp=(C_word)a,a+=6,tmp)); -t16=((C_word*)t14)[1]; -f_8865(t16,t7,t12);} -else{ -t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); -if(C_truep(C_fixnum_greater_or_equal_p(t7,t4))){ -/* irregex-core.scm:1220: chicken.base#error */ -t8=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t8; -av2[1]=t1; -av2[2]=lf[203]; -av2[3]=t2; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13355,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t9=C_a_i_fixnum_plus(&a,2,t3,C_fix(2)); -/* irregex-core.scm:1222: scheme#substring */ -t10=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t8; -av2[2]=t2; -av2[3]=t3; -av2[4]=t9; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}}} - -/* k13307 in chicken.irregex#string-parse-hex-escape in k7753 in k7522 in k7519 */ -static void C_ccall f_13309(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_13309,c,av);} -a=C_alloc(9); -if(C_truep(C_i_not(t1))){ -/* irregex-core.scm:1213: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[201]; -av2[3]=((C_word*)t0)[3]; -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_13321,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -/* irregex-core.scm:1214: scheme#substring */ -t4=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=t3; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k13319 in k13307 in chicken.irregex#string-parse-hex-escape in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_13321,c,av);} -a=C_alloc(5); -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]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1215: scheme#string->number */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=C_fix(16); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k13322 in k13319 in k13307 in chicken.irregex#string-parse-hex-escape in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_13324,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_make_character(C_unfix(t1)); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list2(&a,2,t2,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* irregex-core.scm:1218: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[202]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k13353 in chicken.irregex#string-parse-hex-escape in k7753 in k7522 in k7519 */ -static void C_ccall f_13355(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_13355,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13358,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1223: scheme#string->number */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=C_fix(16); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k13356 in k13353 in chicken.irregex#string-parse-hex-escape in k7753 in k7522 in k7519 */ -static void C_ccall f_13358(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_13358,c,av);} -a=C_alloc(11); -if(C_truep(t1)){ -t2=C_make_character(C_unfix(t1)); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list2(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* irregex-core.scm:1226: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[204]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_13399(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(25,0,5)))){ -C_save_and_reclaim_args((void *)trf_13399,5,t0,t1,t2,t3,t4);} -a=C_alloc(25); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ -/* irregex-core.scm:1234: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word av2[6]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[162]; -av2[3]=((C_word*)t0)[3]; -av2[4]=t2; -av2[5]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} -else{ -t5=C_i_string_ref(((C_word*)t0)[3],t2); -switch(t5){ -case C_make_character(93): -t6=C_i_vector_length(t4); -t7=C_eqp(t6,C_fix(0)); -if(C_truep(t7)){ -t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13434,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,tmp=(C_word)a,a+=5,tmp); -t10=C_a_i_cons(&a,2,C_make_character(93),C_make_character(93)); -t11=C_a_i_vector1(&a,1,t10); -/* irregex-core.scm:3812: cset-union */ -t12=lf[163];{ -C_word av2[4]; -av2[0]=t12; -av2[1]=t9; -av2[2]=t4; -av2[3]=t11; -f_27078(4,av2);}} -else{ -t8=C_fixnum_and(((C_word*)t0)[5],C_fix(2)); -t9=C_eqp(C_fix(2),t8); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13444,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); -if(C_truep(t9)){ -/* irregex-core.scm:1242: cset-case-insensitive */ -f_27605(t10,t4);} -else{ -t11=t10;{ -C_word av2[2]; -av2[0]=t11; -av2[1]=t4; -f_13444(2,av2);}}} -case C_make_character(45): -t6=C_eqp(t2,((C_word*)t0)[7]); -t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_13472,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t5,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(t6)){ -t8=t7; -f_13472(t8,t6);} -else{ -t8=C_fixnum_plus(((C_word*)t0)[7],C_fix(1)); -t9=C_eqp(t2,t8); -t10=(C_truep(t9)?C_eqp(C_make_character(94),C_i_string_ref(((C_word*)t0)[3],((C_word*)t0)[7])):C_SCHEME_FALSE); -if(C_truep(t10)){ -t11=t7; -f_13472(t11,t10);} -else{ -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=t7; -f_13472(t12,C_eqp(C_make_character(93),C_i_string_ref(((C_word*)t0)[3],t11)));}} -case C_make_character(91): -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t7=C_i_string_ref(((C_word*)t0)[3],t6); -t8=C_eqp(C_make_character(94),t7); -t9=(C_truep(t8)?C_a_i_fixnum_plus(&a,2,t2,C_fix(2)):C_a_i_fixnum_plus(&a,2,t2,C_fix(1))); -t10=C_i_string_ref(((C_word*)t0)[3],t9); -t11=C_eqp(t10,C_make_character(58)); -if(C_truep(t11)){ -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13674,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t4,a[6]=t8,a[7]=t9,tmp=(C_word)a,a+=8,tmp); -t13=C_a_i_fixnum_plus(&a,2,t9,C_fix(1)); -/* irregex-core.scm:1276: string-scan-char */ -t14=lf[55];{ -C_word av2[5]; -av2[0]=t14; -av2[1]=t12; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_make_character(58); -av2[4]=t13; -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} -else{ -t12=C_eqp(t10,C_make_character(61)); -t13=(C_truep(t12)?t12:C_eqp(t10,C_make_character(46))); -if(C_truep(t13)){ -/* irregex-core.scm:1285: chicken.base#error */ -t14=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t14; -av2[1]=t1; -av2[2]=lf[174]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} -else{ -t14=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13757,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t14,tmp=(C_word)a,a+=5,tmp); -t16=C_a_i_cons(&a,2,C_make_character(91),C_make_character(91)); -t17=C_a_i_vector1(&a,1,t16); -/* irregex-core.scm:3812: cset-union */ -t18=lf[163];{ -C_word av2[4]; -av2[0]=t18; -av2[1]=t15; -av2[2]=t4; -av2[3]=t17; -f_27078(4,av2);}}} -case C_make_character(92): -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t7=C_i_string_ref(((C_word*)t0)[3],t6); -t8=C_eqp(t7,C_make_character(100)); -t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13796,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,a[6]=t7,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t8)){ -t10=t9; -f_13796(t10,t8);} -else{ -t10=C_eqp(t7,C_make_character(68)); -if(C_truep(t10)){ -t11=t9; -f_13796(t11,t10);} -else{ -t11=C_eqp(t7,C_make_character(115)); -if(C_truep(t11)){ -t12=t9; -f_13796(t12,t11);} -else{ -t12=C_eqp(t7,C_make_character(83)); -if(C_truep(t12)){ -t13=t9; -f_13796(t13,t12);} -else{ -t13=C_eqp(t7,C_make_character(119)); -t14=t9; -f_13796(t14,(C_truep(t13)?t13:C_eqp(t7,C_make_character(87))));}}}} -default: -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13913,a[2]=t5,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])){ -t7=C_fix(C_character_code(t5)); -t8=t6; -f_13913(t8,C_and(C_fixnum_less_or_equal_p(C_fix(128),t7),C_fixnum_less_or_equal_p(t7,C_fix(255))));} -else{ -t7=t6; -f_13913(t7,C_SCHEME_FALSE);}}}} - -/* k13432 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13434(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13434,c,av);} -/* irregex-core.scm:1239: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(93),t1);} - -/* k13442 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13444(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_13444,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13451,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])){ -/* irregex-core.scm:1243: cset-complement */ -f_27595(t2,t1);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -f_13451(2,av2);}}} - -/* k13449 in k13442 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13451(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_13451,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26935,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_26937,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26955,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3761: scheme#vector->list */ -t5=*((C_word*)lf[164]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_13472(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -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,0,4)))){ -C_save_and_reclaim_args((void *)trf_13472,2,t0,t1);} -a=C_alloc(30); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13482,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_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[5]); -t5=C_a_i_vector1(&a,1,t4); -/* irregex-core.scm:3812: cset-union */ -t6=lf[163];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=t5; -f_27078(4,av2);}} -else{ -if(C_truep(C_i_not(((C_word*)t0)[7]))){ -/* irregex-core.scm:1252: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[3]; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[167]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -t3=C_i_string_ref(((C_word*)t0)[8],t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13499,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=((C_word)li80),tmp=(C_word)a,a+=6,tmp); -t5=C_eqp(C_make_character(92),t3); -t6=(C_truep(t5)?C_i_assq(t3,lf[169]):C_SCHEME_FALSE); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13527,a[2]=((C_word*)t0)[4],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t6)){ -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13528,a[2]=((C_word*)t0)[2],a[3]=((C_word)li81),tmp=(C_word)a,a+=4,tmp); -t9=( -/* irregex-core.scm:1260: g1858 */ - f_13528(C_a_i(&a,6),t8,t6) -);{ -C_word av2[4]; -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=t4; -av2[3]=t9; -C_apply(4,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_13549,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=t4,a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); -t9=C_eqp(C_make_character(92),t3); -if(C_truep(t9)){ -t10=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)); -t11=t8; -f_13549(t11,C_eqp(C_i_string_ref(((C_word*)t0)[8],t10),C_make_character(120)));} -else{ -t10=t8; -f_13549(t10,C_SCHEME_FALSE);}}}}} - -/* k13480 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13482,c,av);} -/* irregex-core.scm:1250: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* a13498 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13499(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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(10,c,4)))){ -C_save_and_reclaim((void *)f_13499,c,av);} -a=C_alloc(10); -if(C_truep(C_i_char_lessp(t2,((C_word*)t0)[2]))){ -/* irregex-core.scm:1258: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[168]; -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_13516,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -t6=C_a_i_vector1(&a,1,t5); -/* irregex-core.scm:1259: cset-union */ -t7=lf[163];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -av2[3]=t6; -f_27078(4,av2);}}} - -/* k13514 in a13498 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13516,c,av);} -/* irregex-core.scm:1259: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} - -/* k13525 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13527,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* g1858 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static C_word f_13528(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));} - -/* k13547 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_13549(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_13549,2,t0,t1);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(3)); -/* irregex-core.scm:1265: string-parse-hex-escape */ -f_13290(((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_13561,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_13561(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_13561(t3,C_SCHEME_FALSE);}}} - -/* k13559 in k13547 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_13561(C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_13561,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[171],t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13571,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=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:1268: utf8-string-ref */ -f_14024(t4,((C_word*)t0)[6],t5,t3);} -else{ -t2=C_a_i_fixnum_plus(&a,2,((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);}}} - -/* k13569 in k13559 in k13547 in k13470 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_13571,c,av);} -a=C_alloc(6); -t2=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[3]); -t3=C_a_i_list2(&a,2,t1,t2);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t3; -C_apply(4,av2);}} - -/* k13672 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13674(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_13674,c,av);} -a=C_alloc(9); -t2=C_i_not(t1); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13683,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t2)){ -t4=t3; -f_13683(t4,t2);} -else{ -t4=C_fixnum_plus(t1,C_fix(1)); -t5=C_i_string_ref(((C_word*)t0)[3],t4); -t6=t3; -f_13683(t6,C_i_not(C_eqp(C_make_character(93),t5)));}} - -/* k13681 in k13672 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_13683(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(18,0,4)))){ -C_save_and_reclaim_args((void *)trf_13683,2,t0,t1);} -a=C_alloc(18); -if(C_truep(t1)){ -/* irregex-core.scm:1278: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[172]; -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_13689,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_13709,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13713,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[8],C_fix(1)); -/* irregex-core.scm:1281: scheme#substring */ -t6=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t4; -av2[2]=((C_word*)t0)[3]; -av2[3]=t5; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} - -/* k13687 in k13681 in k13672 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13689(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_13689,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13692,a[2]=((C_word*)t0)[2],a[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:1282: cset-complement */ -f_27595(t2,t1);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -f_13692(2,av2);}}} - -/* k13690 in k13687 in k13681 in k13672 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13692(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_13692,c,av);} -a=C_alloc(10); -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13702,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1283: cset-union */ -t4=lf[163];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=t1; -f_27078(4,av2);}} - -/* k13700 in k13690 in k13687 in k13681 in k13672 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13702,c,av);} -/* irregex-core.scm:1283: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} - -/* k13707 in k13681 in k13672 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13709(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13709,c,av);} -/* irregex-core.scm:1279: sre->cset */ -f_26490(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} - -/* k13711 in k13681 in k13672 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13713(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_13713,c,av);} -/* irregex-core.scm:1280: scheme#string->symbol */ -t2=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k13755 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13757,c,av);} -/* irregex-core.scm:1287: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(91),t1);} - -/* k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_13796(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(26,0,4)))){ -C_save_and_reclaim_args((void *)trf_13796,2,t0,t1);} -a=C_alloc(26); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13806,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13810,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13814,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -t6=C_a_i_string(&a,2,C_make_character(92),((C_word*)t0)[6]); -/* irregex-core.scm:1294: string->sre */ -t7=*((C_word*)lf[103]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -t2=C_eqp(((C_word*)t0)[6],C_make_character(120)); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13829,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word)li82),tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13841,a[2]=((C_word*)t0)[4],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)); -/* irregex-core.scm:1299: string-parse-hex-escape */ -f_13290(t4,((C_word*)t0)[7],t5,((C_word*)t0)[8]);} -else{ -t3=C_i_assq(((C_word*)t0)[6],lf[169]); -t4=(C_truep(t3)?C_i_cdr(t3):((C_word*)t0)[6]); -t5=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13860,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t5,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t7=C_a_i_cons(&a,2,t4,t4); -t8=C_a_i_vector1(&a,1,t7); -/* irregex-core.scm:3812: cset-union */ -t9=lf[163];{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t6; -av2[2]=((C_word*)t0)[5]; -av2[3]=t8; -f_27078(4,av2);}}}} - -/* k13804 in k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13806(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13806,c,av);} -/* irregex-core.scm:1292: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_FALSE,t1);} - -/* k13808 in k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13810(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13810,c,av);} -/* irregex-core.scm:1293: cset-union */ -t2=lf[163];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -f_27078(4,av2);}} - -/* k13812 in k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13814(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13814,c,av);} -/* irregex-core.scm:1294: sre->cset */ -f_26490(((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} - -/* a13828 in k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13829(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,3)))){ -C_save_and_reclaim((void *)f_13829,c,av);} -a=C_alloc(11); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13837,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t5=C_a_i_cons(&a,2,t2,t2); -t6=C_a_i_vector1(&a,1,t5); -/* irregex-core.scm:3812: cset-union */ -t7=lf[163];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t4; -av2[2]=((C_word*)t0)[3]; -av2[3]=t6; -f_27078(4,av2);}} - -/* k13835 in a13828 in k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13837(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13837,c,av);} -/* irregex-core.scm:1298: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k13839 in k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13841(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13841,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* k13858 in k13794 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13860(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13860,c,av);} -/* irregex-core.scm:1303: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k13911 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_13913(C_word 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(16,0,4)))){ -C_save_and_reclaim_args((void *)trf_13913,2,t0,t1);} -a=C_alloc(16); -if(C_truep(t1)){ -t2=C_fix(C_character_code(((C_word*)t0)[2])); -t3=C_i_vector_ref(lf[171],t2); -t4=C_fixnum_plus(((C_word*)t0)[3],t3); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13927,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],a[8]=t3,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1308: utf8-string-ref */ -f_14024(t5,((C_word*)t0)[7],((C_word*)t0)[3],t3);} -else{ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13945,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]); -t5=C_a_i_vector1(&a,1,t4); -/* irregex-core.scm:3812: cset-union */ -t6=lf[163];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=t5; -f_27078(4,av2);}}} - -/* k13925 in k13911 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13927(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_13927,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13931,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13935,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1309: utf8-string-ref */ -f_14024(t3,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* k13929 in k13925 in k13911 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13931(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13931,c,av);} -/* irregex-core.scm:1307: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k13933 in k13925 in k13911 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_13935,c,av);} -a=C_alloc(5); -t2=C_a_i_cons(&a,2,t1,t1); -t3=C_a_i_vector1(&a,1,t2); -/* irregex-core.scm:3812: cset-union */ -t4=lf[163];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t3; -f_27078(4,av2);}} - -/* k13943 in k13911 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_13945(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13945,c,av);} -/* irregex-core.scm:1310: go */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13399(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* chicken.irregex#high-char? in k7753 in k7522 in k7519 */ -static void C_ccall f_14003(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14003,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fixnum_less_or_equal_p(C_fix(128),C_fix(C_character_code(t2))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.irregex#utf8-string-ref in k7753 in k7522 in k7519 */ -static void f_14024(C_word 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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ -C_save_and_reclaim_args((void *)trf_14024,4,t1,t2,t3,t4);} -a=C_alloc(9); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14027,a[2]=t2,a[3]=((C_word)li95),tmp=(C_word)a,a+=4,tmp); -switch(t4){ -case C_fix(1): -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_i_string_ref(t2,t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);} -case C_fix(2): -t6=( -/* irregex-core.scm:1371: byte */ - f_14027(t5,t3) -); -t7=C_fixnum_and(t6,C_fix(31)); -t8=C_fixnum_shift_left(t7,C_fix(6)); -t9=( -/* irregex-core.scm:1372: byte */ - f_14027(t5,C_fixnum_plus(t3,C_fix(1))) -); -t10=C_fixnum_and(t9,C_fix(63)); -t11=C_a_i_fixnum_plus(&a,2,t8,t10); -t12=t1;{ -C_word av2[2]; -av2[0]=t12; -av2[1]=C_make_character(C_unfix(t11)); -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);} -case C_fix(3): -t6=( -/* irregex-core.scm:1375: byte */ - f_14027(t5,t3) -); -t7=C_fixnum_and(t6,C_fix(15)); -t8=C_fixnum_shift_left(t7,C_fix(12)); -t9=( -/* irregex-core.scm:1376: byte */ - f_14027(t5,C_fixnum_plus(t3,C_fix(1))) -); -t10=C_fixnum_and(t9,C_fix(63)); -t11=C_fixnum_shift_left(t10,C_fix(6)); -t12=( -/* irregex-core.scm:1377: byte */ - f_14027(t5,C_fixnum_plus(t3,C_fix(2))) -); -t13=C_fixnum_and(t12,C_fix(63)); -t14=C_fixnum_plus(C_fixnum_plus(t8,t11),t13); -t15=t1;{ -C_word av2[2]; -av2[0]=t15; -av2[1]=C_make_character(C_unfix(t14)); -((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);} -case C_fix(4): -t6=( -/* irregex-core.scm:1380: byte */ - f_14027(t5,t3) -); -t7=C_fixnum_and(t6,C_fix(7)); -t8=C_fixnum_shift_left(t7,C_fix(18)); -t9=( -/* irregex-core.scm:1381: byte */ - f_14027(t5,C_fixnum_plus(t3,C_fix(1))) -); -t10=C_fixnum_and(t9,C_fix(63)); -t11=C_fixnum_shift_left(t10,C_fix(12)); -t12=( -/* irregex-core.scm:1382: byte */ - f_14027(t5,C_fixnum_plus(t3,C_fix(2))) -); -t13=C_fixnum_and(t12,C_fix(63)); -t14=C_fixnum_shift_left(t13,C_fix(6)); -t15=( -/* irregex-core.scm:1383: byte */ - f_14027(t5,C_fixnum_plus(t3,C_fix(3))) -); -t16=C_fixnum_and(t15,C_fix(63)); -t17=C_fixnum_plus(C_fixnum_plus(C_fixnum_plus(t8,t11),t14),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);} -default: -/* irregex-core.scm:1385: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word av2[6]; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[206]; -av2[3]=t2; -av2[4]=t4; -av2[5]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}}} - -/* byte in chicken.irregex#utf8-string-ref in k7753 in k7522 in k7519 */ -static C_word f_14027(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_string_ref(((C_word*)t0)[2],t1); -return(C_fix(C_character_code(t2)));} - -/* lp in collect/single in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_14219(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,0,2)))){ -C_save_and_reclaim_args((void *)trf_14219,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_eqp(t2,C_fix(0)); -if(C_truep(t3)){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[2],t2); -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)){ -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=C_a_i_fixnum_difference(&a,2,t2,C_fix(1)); -/* irregex-core.scm:1394: lp */ -t10=t1; -t11=t8; -t1=t10; -t2=t11; -goto loop;}}} - -/* chicken.irregex#utf8-lowest-digit-of-length in k7753 in k7522 in k7519 */ -static void f_14257(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_14257,2,t1,t2);} -switch(t2){ -case C_fix(1): -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_fix(2): -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_fix(192); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_fix(3): -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_fix(224); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_fix(4): -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_fix(240); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -default: -/* irregex-core.scm:1399: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[208]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* chicken.irregex#char->utf8-list in k7753 in k7522 in k7519 */ -static void f_14333(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_14333,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:1422: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[210]; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}}} - -/* k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_14474(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14474,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14477,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],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1426: char->utf8-list */ -f_14333(t2,((C_word*)t0)[8]);} - -/* k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_14477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word 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(36,c,4)))){ -C_save_and_reclaim((void *)f_14477,c,av);} -a=C_alloc(36); -t2=C_eqp(C_u_i_length(((C_word*)t0)[2]),C_u_i_length(t1)); -if(C_truep(C_i_not(t2))){ -t3=C_i_length(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15036,a[2]=((C_word*)t0)[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]=t1,tmp=(C_word)a,a+=8,tmp); -t5=C_i_car(((C_word*)t0)[2]); -t6=C_make_character(C_unfix(t5)); -t7=C_u_i_car(((C_word*)t0)[2]); -t8=C_fixnum_less_or_equal_p(t7,C_fix(127)); -t9=(C_truep(t8)?C_a_i_list(&a,3,lf[52],t6,C_make_character(127)):C_a_i_list(&a,3,lf[52],t6,C_make_character(255))); -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_u_i_cdr(((C_word*)t0)[2]); -t15=C_i_check_list_2(t14,lf[212]); -t16=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15316,a[2]=t9,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t17=C_SCHEME_UNDEFINED; -t18=(*a=C_VECTOR_TYPE|1,a[1]=t17,tmp=(C_word)a,a+=2,tmp); -t19=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15318,a[2]=t12,a[3]=t18,a[4]=t13,a[5]=((C_word)li112),tmp=(C_word)a,a+=6,tmp)); -t20=((C_word*)t18)[1]; -f_15318(t20,t16,t14);} -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_14503,a[2]=t4,a[3]=((C_word)li114),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_14503(t6,((C_word*)t0)[8],((C_word*)t0)[2],t1);}} - -/* k14496 in k15034 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -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; -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_14498,c,av);} -a=C_alloc(12); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); -t3=( -/* irregex-core.scm:1428: sre-alternate */ - f_18212(C_a_i(&a,3),t2) -); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); -/* irregex-core.scm:1542: lp */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_15474(t5,((C_word*)t0)[5],((C_word*)t0)[6],t4,((C_word*)t0)[7]);} - -/* lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_14503(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word 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_14503,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=C_i_car(t2); -t5=C_i_car(t3); -t6=C_eqp(t4,t5); -if(C_truep(t6)){ -t7=C_u_i_car(t2); -t8=C_make_character(C_unfix(t7)); -if(C_truep(C_i_nullp(C_u_i_cdr(t2)))){ -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -/* irregex-core.scm:1433: sre-sequence */ -t10=t1;{ -C_word av2[2]; -av2[0]=t10; -av2[1]=( -/* irregex-core.scm:1433: sre-sequence */ - f_18189(C_a_i(&a,3),t9) -); -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14535,a[2]=t8,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1436: lp */ -t12=t9; -t13=C_u_i_cdr(t2); -t14=C_u_i_cdr(t3); -t1=t12; -t2=t13; -t3=t14; -goto loop;}} -else{ -t7=C_fixnum_plus(C_u_i_car(t2),C_fix(1)); -t8=C_u_i_car(t3); -t9=C_eqp(t7,t8); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14560,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1438: unicode-range-up-from */ -f_14747(t10,t2);} -else{ -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14575,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1441: unicode-range-up-from */ -f_14747(t10,t2);}}} - -/* k14533 in lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_14535(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_14535,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -/* irregex-core.scm:1433: sre-sequence */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( -/* irregex-core.scm:1433: sre-sequence */ - f_18189(C_a_i(&a,3),t3) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k14558 in lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_14560(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14560,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14564,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1439: unicode-range-up-to */ -f_14886(t2,((C_word*)t0)[3]);} - -/* k14562 in k14558 in lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_14564(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14564,c,av);} -a=C_alloc(9); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1438: sre-alternate */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( -/* irregex-core.scm:1438: sre-alternate */ - f_18212(C_a_i(&a,3),t2) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k14573 in lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_14575(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word 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(28,c,3)))){ -C_save_and_reclaim((void *)f_14575,c,av);} -a=C_alloc(28); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_fixnum_plus(t2,C_fix(1)); -t4=C_make_character(C_unfix(t3)); -t5=C_i_car(((C_word*)t0)[3]); -t6=C_fixnum_difference(t5,C_fix(1)); -t7=C_make_character(C_unfix(t6)); -t8=(C_truep(C_u_i_char_equalp(t4,t7))?t4:C_a_i_list(&a,3,lf[52],t4,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_u_i_cdr(((C_word*)t0)[2]); -t14=C_i_check_list_2(t13,lf[212]); -t15=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15407,a[2]=t8,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[3],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_15409,a[2]=t11,a[3]=t17,a[4]=t12,a[5]=((C_word)li113),tmp=(C_word)a,a+=6,tmp)); -t19=((C_word*)t17)[1]; -f_15409(t19,t15,t13);} - -/* k14581 in k15405 in k14573 in lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_14583(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14583,c,av);} -a=C_alloc(12); -t2=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],t1); -/* irregex-core.scm:1441: sre-alternate */ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( -/* irregex-core.scm:1441: sre-alternate */ - f_18212(C_a_i(&a,3),t2) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.irregex#unicode-range-helper in k7753 in k7522 in k7519 */ -static void f_14609(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){ -C_save_and_reclaim_args((void *)trf_14609,5,t1,t2,t3,t4,t5);} -a=C_alloc(28); -if(C_truep(C_i_nullp(t3))){ -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_cdr(t3); -t7=C_u_i_car(t3); -t8=C_a_i_cons(&a,2,t7,t4); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_14639,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t6,a[6]=t8,tmp=(C_word)a,a+=7,tmp); -t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t11=t10; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=((C_word*)t12)[1]; -t14=C_i_check_list_2(t4,lf[212]); -t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14649,a[2]=t3,a[3]=t9,a[4]=t2,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_14711,a[2]=t12,a[3]=t17,a[4]=t13,a[5]=((C_word)li100),tmp=(C_word)a,a+=6,tmp)); -t19=((C_word*)t17)[1]; -f_14711(t19,t15,t4);}} - -/* k14637 in chicken.irregex#unicode-range-helper in k7753 in k7522 in k7519 */ -static void C_ccall f_14639(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_14639,c,av);} -a=C_alloc(6); -t2=( -/* irregex-core.scm:1452: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[2]); -/* irregex-core.scm:1448: unicode-range-helper */ -f_14609(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t3);} - -/* k14647 in chicken.irregex#unicode-range-helper in k7753 in k7522 in k7519 */ -static void C_ccall f_14649(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14649,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1454: one */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k14655 in k14647 in chicken.irregex#unicode-range-helper in k7753 in k7522 in k7519 */ -static void C_ccall f_14657(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -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,3)))){ -C_save_and_reclaim((void *)f_14657,c,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_u_i_cdr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[212]); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14673,a[2]=t1,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_14675,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li99),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_14675(t12,t8,t6);} - -/* k14671 in k14655 in k14647 in chicken.irregex#unicode-range-helper in k7753 in k7522 in k7519 */ -static void C_ccall f_14673(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14673,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1453: ##sys#append */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* map-loop2051 in k14655 in k14647 in chicken.irregex#unicode-range-helper in k7753 in k7522 in k7519 */ -static void f_14675(C_word t0,C_word t1,C_word t2){ -C_word 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_14675,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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-loop2025 in chicken.irregex#unicode-range-helper in k7753 in k7522 in k7519 */ -static void f_14711(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_14711,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_make_character(C_unfix(t3)); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void f_14747(C_word t1,C_word 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(13,0,3)))){ -C_save_and_reclaim_args((void *)trf_14747,2,t1,t2);} -a=C_alloc(13); -t3=C_i_car(t2); -t4=C_make_character(C_unfix(t3)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14767,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14769,a[2]=t2,a[3]=((C_word)li102),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14878,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1468: ##sys#fast-reverse */ -t8=*((C_word*)lf[70]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_u_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} - -/* k14765 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14767(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_14767,c,av);} -a=C_alloc(12); -t2=( -/* irregex-core.scm:1464: sre-alternate */ - f_18212(C_a_i(&a,3),t1) -); -t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); -/* irregex-core.scm:1462: sre-sequence */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( -/* irregex-core.scm:1462: sre-sequence */ - f_18189(C_a_i(&a,3),t3) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a14768 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14769(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_14769,c,av);} -a=C_alloc(9); -t3=C_i_car(((C_word*)t0)[2]); -t4=C_fixnum_plus(t3,C_fix(1)); -t5=C_make_character(C_unfix(t4)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,3,lf[52],t5,C_make_character(255)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k14799 in k14876 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14801(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_14801,c,av);} -a=C_alloc(6); -t2=( -/* irregex-core.scm:1471: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -t3=C_a_i_list1(&a,1,t2); -/* irregex-core.scm:1465: unicode-range-helper */ -f_14609(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);} - -/* k14806 in k14876 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14808(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_14808,c,av);} -a=C_alloc(12); -t2=C_i_check_list_2(t1,lf[212]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14814,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_14832,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li103),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_14832(t7,t3,t1);} - -/* k14812 in k14806 in k14876 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14814(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14814,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14830,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1474: last */ -f_9251(t2,((C_word*)t0)[3]);} - -/* k14828 in k14812 in k14806 in k14876 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14830(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_14830,c,av);} -a=C_alloc(12); -t2=C_make_character(C_unfix(t1)); -t3=C_a_i_list(&a,3,lf[52],t2,C_make_character(255)); -t4=C_a_i_list(&a,1,t3); -/* irregex-core.scm:1472: scheme#append */ -t5=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* map-loop2087 in k14806 in k14876 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void f_14832(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_14832,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_make_character(C_unfix(t3)); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k14870 in k14876 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14872(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_14872,c,av);} -/* irregex-core.scm:1473: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cdr(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k14876 in chicken.irregex#unicode-range-up-from in k7753 in k7522 in k7519 */ -static void C_ccall f_14878(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_14878,c,av);} -a=C_alloc(19); -t2=C_i_cdr(t1); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14801,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_a_i_cons(&a,2,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_14808,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14872,a[2]=t8,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1473: ##sys#fast-reverse */ -t10=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t10; -av2[1]=t9; -av2[2]=C_u_i_cdr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} - -/* chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void f_14886(C_word t1,C_word 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(13,0,3)))){ -C_save_and_reclaim_args((void *)trf_14886,2,t1,t2);} -a=C_alloc(13); -t3=C_i_car(t2); -t4=C_make_character(C_unfix(t3)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14906,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14908,a[2]=t2,a[3]=((C_word)li105),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15017,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1484: ##sys#fast-reverse */ -t8=*((C_word*)lf[70]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_u_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} - -/* k14904 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void C_ccall f_14906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_14906,c,av);} -a=C_alloc(12); -t2=( -/* irregex-core.scm:1480: sre-alternate */ - f_18212(C_a_i(&a,3),t1) -); -t3=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); -/* irregex-core.scm:1478: sre-sequence */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( -/* irregex-core.scm:1478: sre-sequence */ - f_18189(C_a_i(&a,3),t3) -); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a14907 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void C_ccall f_14908(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14908,c,av);} -a=C_alloc(9); -t3=C_i_car(((C_word*)t0)[2]); -t4=C_fixnum_difference(t3,C_fix(1)); -t5=C_make_character(C_unfix(t4)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,3,lf[52],C_make_character(128),t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k14938 in k15015 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void C_ccall f_14940(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_14940,c,av);} -a=C_alloc(6); -t2=( -/* irregex-core.scm:1487: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -t3=C_a_i_list1(&a,1,t2); -/* irregex-core.scm:1481: unicode-range-helper */ -f_14609(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST,t3);} - -/* k14945 in k15015 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void C_ccall f_14947(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_14947,c,av);} -a=C_alloc(12); -t2=C_i_check_list_2(t1,lf[212]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14953,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_14971,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=((C_word)li106),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_14971(t7,t3,t1);} - -/* k14951 in k14945 in k15015 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -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; -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_14953,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14969,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1491: last */ -f_9251(t2,((C_word*)t0)[3]);} - -/* k14967 in k14951 in k14945 in k15015 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void C_ccall f_14969(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_14969,c,av);} -a=C_alloc(12); -t2=C_make_character(C_unfix(t1)); -t3=C_a_i_list(&a,3,lf[52],C_make_character(128),t2); -t4=C_a_i_list(&a,1,t3); -/* irregex-core.scm:1488: scheme#append */ -t5=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* map-loop2122 in k14945 in k15015 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void 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 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,2)))){ -C_save_and_reclaim_args((void *)trf_14971,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_make_character(C_unfix(t3)); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k15009 in k15015 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void C_ccall f_15011(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_15011,c,av);} -/* irregex-core.scm:1489: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cdr(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k15015 in chicken.irregex#unicode-range-up-to in k7753 in k7522 in k7519 */ -static void C_ccall f_15017(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_15017,c,av);} -a=C_alloc(19); -t2=C_i_cdr(t1); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14940,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_a_i_cons(&a,2,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_14947,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t6,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15011,a[2]=t8,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1489: ##sys#fast-reverse */ -t10=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t10; -av2[1]=t9; -av2[2]=C_u_i_cdr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} - -/* k15034 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15036(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_15036,c,av);} -a=C_alloc(11); -t2=( -/* irregex-core.scm:1495: sre-alternate */ - f_18212(C_a_i(&a,3),t1) -); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_14498,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); -/* irregex-core.scm:1429: unicode-range-up-to */ -f_14886(t3,((C_word*)t0)[7]);} - -/* g2194 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15045(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_15045,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15057,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15133,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1508: utf8-lowest-digit-of-length */ -f_14257(t4,C_fixnum_plus(C_fixnum_plus(t2,((C_word*)t0)[2]),C_fix(1)));} - -/* k15055 in g2194 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15057(C_word t0,C_word 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(11,0,2)))){ -C_save_and_reclaim_args((void *)trf_15057,2,t0,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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15069,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:1512: zero-to */ -f_9153(t6,C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]));} - -/* k15067 in k15055 in g2194 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15069(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_15069,c,av);} -a=C_alloc(12); -t2=C_i_check_list_2(t1,lf[212]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15075,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_15077,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_15077(t7,t3,t1);} - -/* k15073 in k15067 in k15055 in g2194 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -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 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_15075,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:1506: sre-sequence */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( -/* irregex-core.scm:1506: sre-sequence */ - f_18189(C_a_i(&a,3),t2) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* map-loop2211 in k15067 in k15055 in g2194 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15077(C_word t0,C_word t1,C_word t2){ -C_word 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_15077,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* k15123 in k15131 in g2194 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15125(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_15125,c,av);} -a=C_alloc(9); -t2=C_make_character(C_unfix(t1)); -t3=((C_word*)t0)[2]; -f_15057(t3,C_a_i_list(&a,3,lf[52],((C_word*)t0)[3],t2));} - -/* k15131 in g2194 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_15133,c,av);} -a=C_alloc(13); -t2=C_make_character(C_unfix(t1)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15125,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[3],((C_word*)t0)[4]),C_fix(1)); -switch(t4){ -case C_fix(1): -t5=((C_word*)t0)[2]; -f_15057(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(127))); -case C_fix(2): -t5=((C_word*)t0)[2]; -f_15057(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(223))); -case C_fix(3): -t5=((C_word*)t0)[2]; -f_15057(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(239))); -case C_fix(4): -t5=((C_word*)t0)[2]; -f_15057(t5,C_a_i_list(&a,3,lf[52],t2,C_make_character(247))); -default: -/* irregex-core.scm:1404: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[216]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k15138 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15140(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_15140,c,av);} -a=C_alloc(14); -t2=C_i_check_list_2(t1,lf[212]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15146,a[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_15248,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word)li111),tmp=(C_word)a,a+=7,tmp)); -t7=((C_word*)t5)[1]; -f_15248(t7,t3,t1);} - -/* k15144 in k15138 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15146(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_15146,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15230,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); -t3=C_i_car(((C_word*)t0)[2]); -t4=C_fixnum_difference(t3,C_fix(1)); -t5=C_make_character(C_unfix(t4)); -t6=C_fix(C_character_code(t5)); -/* irregex-core.scm:1517: utf8-lowest-digit-of-length */ -f_14257(t2,C_i_vector_ref(lf[171],t6));} - -/* k15176 in k15228 in k15144 in k15138 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15178(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_15178,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=( -/* irregex-core.scm:1515: sre-sequence */ - f_18189(C_a_i(&a,3),t2) -); -t4=C_a_i_list1(&a,1,t3); -/* irregex-core.scm:1496: scheme#append */ -t5=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* map-loop2251 in k15228 in k15144 in k15138 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15180(C_word t0,C_word t1,C_word t2){ -C_word 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_15180,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* k15228 in k15144 in k15138 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15230(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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(28,c,3)))){ -C_save_and_reclaim((void *)f_15230,c,av);} -a=C_alloc(28); -t2=C_make_character(C_unfix(t1)); -t3=C_fixnum_difference(C_u_i_car(((C_word*)t0)[2]),C_fix(1)); -t4=C_make_character(C_unfix(t3)); -t5=C_a_i_list(&a,3,lf[52],t2,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_u_i_cdr(((C_word*)t0)[2]); -t11=C_i_check_list_2(t10,lf[212]); -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15178,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_15180,a[2]=t8,a[3]=t14,a[4]=t9,a[5]=((C_word)li110),tmp=(C_word)a,a+=6,tmp)); -t16=((C_word*)t14)[1]; -f_15180(t16,t12,t10);} - -/* map-loop2188 in k15138 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15248(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_15248,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15273,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); -/* irregex-core.scm:1504: g2194 */ -t4=((C_word*)t0)[4]; -f_15045(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15271 in map-loop2188 in k15138 in k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15273(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_15273,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15248(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k15314 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15316(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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(36,c,3)))){ -C_save_and_reclaim((void *)f_15316,c,av);} -a=C_alloc(36); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=( -/* irregex-core.scm:1498: sre-sequence */ - f_18189(C_a_i(&a,3),t2) -); -t4=C_a_i_list1(&a,1,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_15045,a[2]=((C_word*)t0)[3],a[3]=((C_word)li109),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15140,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t4,a[5]=t7,a[6]=t9,a[7]=t8,tmp=(C_word)a,a+=8,tmp); -t11=C_i_length(((C_word*)t0)[4]); -t12=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -t13=C_s_a_u_i_integer_minus(&a,2,t11,t12); -/* irregex-core.scm:1513: zero-to */ -f_9153(t10,t13);} - -/* map-loop2158 in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15318(C_word t0,C_word t1,C_word t2){ -C_word 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_15318,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* k15405 in k14573 in lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15407(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_15407,c,av);} -a=C_alloc(11); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=( -/* irregex-core.scm:1528: sre-sequence */ - f_18189(C_a_i(&a,3),t2) -); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14583,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1443: unicode-range-up-to */ -f_14886(t4,((C_word*)t0)[5]);} - -/* map-loop2289 in k14573 in lp in k14475 in k14472 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15409(C_word t0,C_word t1,C_word t2){ -C_word 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_15409,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t3=C_a_i_list(&a,3,lf[52],C_make_character(128),C_make_character(255)); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15464(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_15464,2,t1,t2);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15472,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1535: cset->plist */ -f_26379(t3,t2);} - -/* k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15472(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_15472,c,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_15474,a[2]=t3,a[3]=((C_word)li115),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_15474(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} - -/* lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void f_15474(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_15474,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_15488,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15492,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1537: ##sys#fast-reverse */ -t7=*((C_word*)lf[70]+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_15519,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_15519(t9,t7);} -else{ -t9=C_i_cadr(t2); -t10=t8; -f_15519(t10,C_fixnum_less_or_equal_p(C_fix(128),C_fix(C_character_code(t9))));}}} - -/* k15486 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15488(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15488,c,av);} -a=C_alloc(3); -/* irregex-core.scm:1537: sre-alternate */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* irregex-core.scm:1537: sre-alternate */ - f_18212(C_a_i(&a,3),t1) -); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15490 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_15492,c,av);} -a=C_alloc(4); -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -/* irregex-core.scm:1537: scheme#append */ -t2=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15510,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1540: ##sys#fast-reverse */ -t3=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k15508 in k15490 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15510(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_15510,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,lf[52],t1); -t3=C_a_i_list1(&a,1,t2); -/* irregex-core.scm:1537: scheme#append */ -t4=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void 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 t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(16,0,4)))){ -C_save_and_reclaim_args((void *)trf_15519,2,t0,t1);} -a=C_alloc(16); -if(C_truep(t1)){ -t2=C_i_cddr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15534,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); -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=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_14474,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]=t3,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1425: char->utf8-list */ -f_14333(t7,t4);} -else{ -t2=C_i_cddr(((C_word*)t0)[2]); -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=C_u_i_car(t3); -t5=C_u_i_car(((C_word*)t0)[2]); -t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[6]); -t7=C_a_i_cons(&a,2,t4,t6); -/* irregex-core.scm:1545: lp */ -t8=((C_word*)((C_word*)t0)[4])[1]; -f_15474(t8,((C_word*)t0)[5],t2,((C_word*)t0)[3],t7);}} - -/* k15532 in k15517 in lp in k15470 in chicken.irregex#cset->utf8-pattern in k7753 in k7522 in k7519 */ -static void C_ccall f_15534(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15534,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:1542: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_15474(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2,((C_word*)t0)[6]);} - -/* adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15586(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(29,0,4)))){ -C_save_and_reclaim_args((void *)trf_15586,5,t0,t1,t2,t3,t4);} -a=C_alloc(29); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15589,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=((C_word)li205),tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(t2))){ -t6=C_u_i_car(t2); -t7=C_eqp(t6,lf[157]); -if(C_truep(t7)){ -t8=( -/* irregex-core.scm:1555: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t2)) -); -/* irregex-core.scm:1555: adjust */ -t24=t1; -t25=t8; -t26=C_SCHEME_TRUE; -t27=t4; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -goto loop;} -else{ -t8=C_eqp(t6,lf[158]); -if(C_truep(t8)){ -t9=( -/* irregex-core.scm:1556: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t2)) -); -/* irregex-core.scm:1556: adjust */ -t24=t1; -t25=t9; -t26=C_SCHEME_FALSE; -t27=t4; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -goto loop;} -else{ -t9=C_eqp(t6,lf[226]); -if(C_truep(t9)){ -t10=C_u_i_car(t2); -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|4,a[1]=(C_word)f_15646,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li206),tmp=(C_word)a,a+=5,tmp); -t16=C_u_i_cdr(t2); -t17=C_i_check_list_2(t16,lf[212]); -t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15657,a[2]=t1,a[3]=t10,tmp=(C_word)a,a+=4,tmp); -t19=C_SCHEME_UNDEFINED; -t20=(*a=C_VECTOR_TYPE|1,a[1]=t19,tmp=(C_word)a,a+=2,tmp); -t21=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15659,a[2]=t13,a[3]=t20,a[4]=t15,a[5]=t14,a[6]=((C_word)li207),tmp=(C_word)a,a+=7,tmp)); -t22=((C_word*)t20)[1]; -f_15659(t22,t18,t16);} -else{ -t10=C_eqp(t6,lf[227]); -if(C_truep(t10)){ -t11=C_u_i_car(t2); -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_15707,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li208),tmp=(C_word)a,a+=5,tmp); -t17=C_u_i_cdr(t2); -t18=C_i_check_list_2(t17,lf[212]); -t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15718,a[2]=t1,a[3]=t11,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|6,a[1]=(C_word)f_15720,a[2]=t14,a[3]=t21,a[4]=t16,a[5]=t15,a[6]=((C_word)li209),tmp=(C_word)a,a+=7,tmp)); -t23=((C_word*)t21)[1]; -f_15720(t23,t19,t17);} -else{ -t11=C_eqp(t6,lf[52]); -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15761,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,a[6]=t6,a[7]=t5,tmp=(C_word)a,a+=8,tmp); -if(C_truep(t11)){ -t13=t12; -f_15761(t13,t11);} -else{ -t13=C_eqp(t6,lf[180]); -if(C_truep(t13)){ -t14=t12; -f_15761(t14,t13);} -else{ -t14=C_eqp(t6,lf[235]); -t15=t12; -f_15761(t15,(C_truep(t14)?t14:C_eqp(t6,lf[248])));}}}}}}} -else{ -t6=C_eqp(t2,lf[125]); -if(C_truep(t6)){ -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=(C_truep(t3)?lf[275]:lf[125]); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_eqp(t2,lf[126]); -if(C_truep(t7)){ -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=(C_truep(t3)?lf[276]:lf[126]); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15975,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t3)){ -t9=C_charp(t2); -t10=t8; -f_15975(t10,(C_truep(t9)?C_fixnum_less_or_equal_p(C_fix(128),C_fix(C_character_code(t2))):C_SCHEME_FALSE));} -else{ -t9=t8; -f_15975(t9,C_SCHEME_FALSE);}}}}} - -/* rec in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15589(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_15589,3,t0,t1,t2);} -/* irregex-core.scm:1551: adjust */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_15586(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* g2354 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15646(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_15646,3,t0,t1,t2);} -/* irregex-core.scm:1558: adjust */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_15586(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_FALSE);} - -/* k15655 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15657,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2348 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15659(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_15659,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15684,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); -/* irregex-core.scm:1558: g2354 */ -t4=((C_word*)t0)[4]; -f_15646(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15682 in map-loop2348 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15684(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_15684,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15659(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* g2381 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15707(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_15707,3,t0,t1,t2);} -/* irregex-core.scm:1560: adjust */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_15586(t3,t1,t2,((C_word*)t0)[3],C_SCHEME_TRUE);} - -/* k15716 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15718(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_15718,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2375 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15720(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_15720,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15745,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); -/* irregex-core.scm:1560: g2381 */ -t4=((C_word*)t0)[4]; -f_15707(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15743 in map-loop2375 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_15745,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15720(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15761(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(20,0,3)))){ -C_save_and_reclaim_args((void *)trf_15761,2,t0,t1);} -a=C_alloc(20); -if(C_truep(t1)){ -if(C_truep(C_i_not(((C_word*)t0)[2]))){ -t2=((C_word*)t0)[3];{ -C_word av2[2]; -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_15770,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); -/* irregex-core.scm:1564: sre->cset */ -f_26490(t2,((C_word*)t0)[4],C_a_i_list(&a,1,((C_word*)t0)[5]));}} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[128]); -if(C_truep(t2)){ -t3=( -/* irregex-core.scm:1571: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[4])) -); -t4=C_eqp(t3,lf[125]); -if(C_truep(t4)){ -t5=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t5; -av2[1]=lf[273]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_eqp(t3,lf[126]); -if(C_truep(t5)){ -t6=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t6; -av2[1]=lf[274]; -((C_proc)(void*)(*((C_word*)t6+1)))(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_u_i_cdr(((C_word*)t0)[4]); -t11=C_i_check_list_2(t10,lf[212]); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15828,a[2]=((C_word*)t0)[3],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_15830,a[2]=t8,a[3]=t14,a[4]=((C_word*)t0)[7],a[5]=t9,a[6]=((C_word)li210),tmp=(C_word)a,a+=7,tmp)); -t16=((C_word*)t14)[1]; -f_15830(t16,t12,t10);}}} -else{ -t3=C_u_i_car(((C_word*)t0)[4]); -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_u_i_cdr(((C_word*)t0)[4]); -t9=C_i_check_list_2(t8,lf[212]); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15884,a[2]=((C_word*)t0)[3],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|6,a[1]=(C_word)f_15886,a[2]=t6,a[3]=t12,a[4]=((C_word*)t0)[7],a[5]=t7,a[6]=((C_word)li211),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_15886(t14,t10,t8);}}} - -/* k15768 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_15770,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15776,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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15793,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1565: cset->plist */ -f_26379(t3,t1);} - -/* k15774 in k15768 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15776(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_15776,c,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_15786,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1567: cset->utf8-pattern */ -f_15464(t2,((C_word*)t0)[4]);} -else{ -/* irregex-core.scm:1568: cset->utf8-pattern */ -f_15464(((C_word*)t0)[3],((C_word*)t0)[4]);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k15784 in k15774 in k15768 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_15786,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list2(&a,2,lf[226],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k15791 in k15768 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15793(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_15793,c,av);} -/* irregex-core.scm:1565: any */ -f_9289(((C_word*)t0)[2],lf[205],t1);} - -/* k15826 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15828(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_15828,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[128],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2418 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15830(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_15830,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15855,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); -/* irregex-core.scm:1575: g2424 */ -t4=((C_word*)t0)[4]; -f_15589(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15853 in map-loop2418 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15855(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_15855,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15830(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k15882 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15884(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_15884,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2444 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15886(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_15886,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15911,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); -/* irregex-core.scm:1577: g2450 */ -t4=((C_word*)t0)[4]; -f_15589(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k15909 in map-loop2444 in k15759 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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 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_15911,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_15886(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k15973 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15975(C_word t0,C_word 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_15975,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_15985,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1584: char->utf8-list */ -f_14333(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);}}} - -/* k15983 in k15973 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_15985(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_15985,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15988,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_15990,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word)li212),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_15990(t6,t2,t1);} - -/* k15986 in k15983 in k15973 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_15988,c,av);} -a=C_alloc(3); -/* irregex-core.scm:1584: sre-sequence */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* irregex-core.scm:1584: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop2478 in k15983 in k15973 in adjust in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_15990(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_15990,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_make_character(C_unfix(t3)); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* chicken.irregex#irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16037(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_16037,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_16044,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1601: irregex? */ -t5=*((C_word*)lf[5]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k16042 in chicken.irregex#irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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,4)))){ -C_save_and_reclaim((void *)f_16044,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_nullp(((C_word*)t0)[4]))){ -t2=lf[219]; -t3=C_slot(t2,C_fix(0)); -if(C_truep(C_i_equalp(t3,((C_word*)t0)[3]))){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fix(1)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_slot(t2,C_fix(2)); -if(C_truep(C_i_equalp(t4,((C_word*)t0)[3]))){ -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_slot(t2,C_fix(3)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_slot(t2,C_fix(4)); -if(C_truep(C_i_equalp(t5,((C_word*)t0)[3]))){ -t6=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_slot(t2,C_fix(5)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_slot(t2,C_fix(6)); -if(C_truep(C_i_equalp(t6,((C_word*)t0)[3]))){ -t7=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_slot(t2,C_fix(7)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_slot(t2,C_fix(8)); -if(C_truep(C_i_equalp(t7,((C_word*)t0)[3]))){ -t8=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_slot(t2,C_fix(9)); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16098,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ -/* irregex-core.scm:1606: string->irregex */ -t9=*((C_word*)lf[220]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} -else{ -/* irregex-core.scm:1607: sre->irregex */ -t9=*((C_word*)lf[221]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}}}}}}}} -else{ -if(C_truep(C_i_stringp(((C_word*)t0)[3]))){{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[220]+1); -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -C_apply(5,av2);}} -else{{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[221]+1); -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -C_apply(5,av2);}}}}} - -/* k16096 in k16042 in chicken.irregex#irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16098,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(10)); -t3=C_i_setslot(((C_word*)t0)[2],t2,((C_word*)t0)[3]); -t4=C_fixnum_plus(t2,C_fix(1)); -t5=C_i_setslot(((C_word*)t0)[2],t4,t1); -t6=C_fixnum_plus(t2,C_fix(2)); -t7=C_fixnum_modulo(t6,C_fix(10)); -t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t7); -t9=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* chicken.irregex#string->irregex in k7753 in k7522 in k7519 */ -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=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_16165,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_16173,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t4; -av2[2]=*((C_word*)lf[103]+1); -av2[3]=t2; -av2[4]=t3; -C_apply(5,av2);}} - -/* k16171 in chicken.irregex#string->irregex in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_16173,c,av);}{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[221]+1); -av2[3]=t1; -av2[4]=((C_word*)t0)[3]; -C_apply(5,av2);}} - -/* chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16175(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16175,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_16179,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1617: symbol-list->flags */ -f_10327(t4,t3);} - -/* k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16179(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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,5)))){ -C_save_and_reclaim((void *)f_16179,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16182,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(lf[54])){ -t3=C_fixnum_and(t1,C_fix(32)); -t4=C_eqp(C_fix(32),t3); -t5=C_fixnum_and(t1,C_fix(2)); -t6=C_eqp(C_fix(2),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|3,a[1]=(C_word)f_15586,a[2]=t8,a[3]=((C_word)li213),tmp=(C_word)a,a+=4,tmp)); -t10=((C_word*)t8)[1]; -f_15586(t10,t2,((C_word*)t0)[4],t4,t6);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -f_16182(2,av2);}}} - -/* k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16182(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_16182,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16185,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); -/* irregex-core.scm:1621: sre-searcher? */ -t3=lf[272];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -f_16710(3,av2);}} - -/* k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16185(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_16185,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16188,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(t1)){ -/* irregex-core.scm:1622: sre-remove-initial-bos */ -t3=lf[271];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -f_18734(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -f_16188(2,av2);}}} - -/* k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16188(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(27,c,3)))){ -C_save_and_reclaim((void *)f_16188,c,av);} -a=C_alloc(27); -t2=(C_truep(C_u_i_memq(lf[222],((C_word*)t0)[2]))?C_fix(1):(C_truep(C_u_i_memq(lf[223],((C_word*)t0)[2]))?C_fix(50):C_fix(10))); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16194,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=t2,tmp=(C_word)a,a+=8,tmp); -if(C_truep(C_u_i_memq(lf[270],((C_word*)t0)[2]))){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_16194(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[3])){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_TRUE; -f_16194(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16266,a[2]=t2,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=C_a_i_list(&a,2,lf[128],lf[125]); -t6=C_a_i_list(&a,3,lf[116],t5,t1); -/* irregex-core.scm:1630: sre->nfa */ -f_20755(t4,t6,((C_word*)t0)[5]);}}} - -/* k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16194(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_16194,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16197,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t1)){ -/* irregex-core.scm:1634: sre->nfa */ -f_20755(t2,((C_word*)t0)[6],((C_word*)t0)[4]);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_16197(2,av2);}}} - -/* k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16197(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_16197,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_16200,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_16240,a[2]=((C_word*)t0)[8],a[3]=((C_word)li203),tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1634: g2600 */ -t4=t3; -f_16240(t4,t2,t1);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_16200(2,av2);}}} - -/* k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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 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_16200,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16203,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1638: sre-count-submatches */ -f_16983(t2,((C_word*)t0)[7]);} - -/* k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16203(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_16203,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_16206,a[2]=((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); -/* irregex-core.scm:1639: sre-names */ -f_18416(t2,((C_word*)t0)[8],C_fix(1),C_SCHEME_END_OF_LIST);} - -/* k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ -C_save_and_reclaim((void *)f_16206,c,av);} -a=C_alloc(14); -t2=C_a_i_list(&a,1,t1); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17083,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=11,tmp); -if(C_truep(C_i_pairp(t2))){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_car(t2); -f_17083(2,av2);}} -else{ -/* irregex-core.scm:1735: sre-names */ -f_18416(t3,((C_word*)t0)[9],C_fix(1),C_SCHEME_END_OF_LIST);}} - -/* k16219 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_16221(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_16221,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_record8(&a,8,lf[6],C_SCHEME_FALSE,C_SCHEME_FALSE,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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 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,4)))){ -C_save_and_reclaim((void *)f_16235,c,av);} -a=C_alloc(21); -t2=(C_truep(t1)?C_fixnum_or(((C_word*)t0)[2],C_fix(2)):((C_word*)t0)[2]); -if(C_truep(((C_word*)t0)[3])){ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_record8(&a,8,lf[6],((C_word*)t0)[3],((C_word*)t0)[5],C_SCHEME_FALSE,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16221,a[2]=((C_word*)t0)[4],a[3]=t2,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); -t4=C_a_i_list(&a,2,((C_word*)t0)[9],((C_word*)t0)[8]); -t5=C_SCHEME_UNDEFINED; -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_23395,a[2]=t6,a[3]=t4,a[4]=t3,a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); -t8=C_i_pairp(t4); -t9=(C_truep(t8)?C_i_pairp(C_u_i_cdr(t4)):C_SCHEME_FALSE); -if(C_truep(t9)){ -t10=t7;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_i_cadr(t4); -f_23395(2,av2);}} -else{ -/* irregex-core.scm:3136: sre-names */ -f_18416(t7,((C_word*)t0)[10],C_fix(1),C_SCHEME_END_OF_LIST);}}} - -/* g2600 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_16240(C_word 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_16240,3,t0,t1,t2);} -a=C_alloc(8); -t3=C_i_vector_length(t2); -t4=C_a_i_fixnum_quotient_checked(&a,2,t3,C_fix(4)); -t5=C_fixnum_times(((C_word*)t0)[2],t4); -/* irregex-core.scm:1636: nfa->dfa */ -f_22367(t1,t2,C_a_i_list(&a,1,t5));} - -/* k16264 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_16266,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16270,a[2]=((C_word*)t0)[2],a[3]=((C_word)li204),tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1628: g2589 */ -t3=t2; -f_16270(t3,((C_word*)t0)[3],t1);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_16194(2,av2);}}} - -/* g2589 in k16264 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_16270(C_word 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_16270,3,t0,t1,t2);} -a=C_alloc(8); -t3=C_i_vector_length(t2); -t4=C_a_i_fixnum_quotient_checked(&a,2,t3,C_fix(4)); -t5=C_fixnum_times(((C_word*)t0)[2],t4); -/* irregex-core.scm:1632: nfa->dfa */ -f_22367(t1,t2,C_a_i_list(&a,1,t5));} - -/* chicken.irregex#sre-empty? in k7753 in k7522 in k7519 */ -static void C_ccall f_16308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_16308,c,av);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -t4=C_eqp(t3,lf[128]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16325,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -t6=t5; -f_16325(t6,t4);} -else{ -t6=C_eqp(t3,lf[132]); -if(C_truep(t6)){ -t7=t5; -f_16325(t7,t6);} -else{ -t7=C_eqp(t3,lf[112]); -if(C_truep(t7)){ -t8=t5; -f_16325(t8,t7);} -else{ -t8=C_eqp(t3,lf[114]); -if(C_truep(t8)){ -t9=t5; -f_16325(t9,t8);} -else{ -t9=C_eqp(t3,lf[113]); -t10=t5; -f_16325(t10,(C_truep(t9)?t9:C_eqp(t3,lf[115])));}}}}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_u_i_memq(t2,lf[277]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k16323 in chicken.irregex#sre-empty? in k7753 in k7522 in k7519 */ -static void f_16325(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -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_16325,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[134]); -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_u_i_cdr(((C_word*)t0)[4]); -t7=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_i_zerop(C_u_i_car(t6)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} -else{ -t3=C_eqp(((C_word*)t0)[3],lf[104]); -if(C_truep(t3)){ -/* irregex-core.scm:1660: any */ -f_9289(((C_word*)t0)[2],lf[140],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t4=C_eqp(((C_word*)t0)[3],lf[228]); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16368,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -if(C_truep(t4)){ -if(C_truep(t4)){ -/* irregex-core.scm:1662: every */ -f_9332(((C_word*)t0)[2],lf[140],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t6=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t6=C_eqp(((C_word*)t0)[3],lf[116]); -if(C_truep(t6)){ -if(C_truep(t6)){ -/* irregex-core.scm:1662: every */ -f_9332(((C_word*)t0)[2],lf[140],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t7=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} -else{ -t7=C_eqp(((C_word*)t0)[3],lf[246]); -if(C_truep(t7)){ -t8=t5; -f_16368(t8,t7);} -else{ -t8=C_eqp(((C_word*)t0)[3],lf[109]); -if(C_truep(t8)){ -t9=t5; -f_16368(t9,t8);} -else{ -t9=C_eqp(((C_word*)t0)[3],lf[120]); -if(C_truep(t9)){ -t10=t5; -f_16368(t10,t9);} -else{ -t10=C_eqp(((C_word*)t0)[3],lf[121]); -if(C_truep(t10)){ -t11=t5; -f_16368(t11,t10);} -else{ -t11=C_eqp(((C_word*)t0)[3],lf[130]); -t12=t5; -f_16368(t12,(C_truep(t11)?t11:C_eqp(((C_word*)t0)[3],lf[240])));}}}}}}}}}} - -/* k16366 in k16323 in chicken.irregex#sre-empty? in k7753 in k7522 in k7519 */ -static void f_16368(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_16368,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:1662: every */ -f_9332(((C_word*)t0)[2],lf[140],C_u_i_cdr(((C_word*)t0)[3]));} -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);}}} - -/* chicken.irregex#sre-any? in k7753 in k7522 in k7519 */ -static void C_ccall f_16475(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_16475,c,av);} -a=C_alloc(5); -t3=C_eqp(t2,lf[125]); -if(C_truep(t3)){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(t2))){ -t4=C_u_i_car(t2); -t5=C_eqp(t4,lf[116]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16498,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t5)){ -t7=t6; -f_16498(t7,t5);} -else{ -t7=C_eqp(t4,lf[228]); -if(C_truep(t7)){ -t8=t6; -f_16498(t8,t7);} -else{ -t8=C_eqp(t4,lf[246]); -if(C_truep(t8)){ -t9=t6; -f_16498(t9,t8);} -else{ -t9=C_eqp(t4,lf[109]); -if(C_truep(t9)){ -t10=t6; -f_16498(t10,t9);} -else{ -t10=C_eqp(t4,lf[120]); -t11=t6; -f_16498(t11,(C_truep(t10)?t10:C_eqp(t4,lf[121])));}}}}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} - -/* k16496 in chicken.irregex#sre-any? in k7753 in k7522 in k7519 */ -static void f_16498(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_16498,2,t0,t1);} -if(C_truep(t1)){ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){ -t2=C_i_cddr(((C_word*)t0)[2]); -if(C_truep(C_i_nullp(t2))){ -t3=C_u_i_cdr(((C_word*)t0)[2]); -/* irregex-core.scm:1671: sre-any? */ -t4=lf[278];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_u_i_car(t3); -f_16475(3,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=((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_eqp(((C_word*)t0)[4],lf[104]); -if(C_truep(t2)){ -/* irregex-core.scm:1672: every */ -f_9332(((C_word*)t0)[3],lf[278],C_u_i_cdr(((C_word*)t0)[2]));} -else{ -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* chicken.irregex#sre-repeater? in k7753 in k7522 in k7519 */ -static C_word f_16576(C_word t1){ -C_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:{} -if(C_truep(C_i_pairp(t1))){ -t2=C_u_i_car(t1); -t3=C_u_i_memq(t2,lf[279]); -if(C_truep(t3)){ -return(t3);} -else{ -t4=C_u_i_car(t1); -if(C_truep((C_truep(C_eqp(t4,lf[246]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[109]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[120]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[121]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[116]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[228]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))))))){ -if(C_truep(C_i_pairp(C_u_i_cdr(t1)))){ -t5=C_i_cddr(t1); -if(C_truep(C_i_nullp(t5))){ -t6=C_u_i_cdr(t1); -t8=C_u_i_car(t6); -t1=t8; -goto loop;} -else{ -return(C_SCHEME_FALSE);}} -else{ -return(C_SCHEME_FALSE);}} -else{ -return(C_SCHEME_FALSE);}}} -else{ -return(C_SCHEME_FALSE);}} - -/* chicken.irregex#sre-bos? in k7753 in k7522 in k7519 */ -static void C_ccall f_16621(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_16621,c,av);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -t4=C_eqp(t3,lf[116]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16638,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -t6=t5; -f_16638(t6,t4);} -else{ -t6=C_eqp(t3,lf[228]); -if(C_truep(t6)){ -t7=t5; -f_16638(t7,t6);} -else{ -t7=C_eqp(t3,lf[246]); -if(C_truep(t7)){ -t8=t5; -f_16638(t8,t7);} -else{ -t8=C_eqp(t3,lf[109]); -if(C_truep(t8)){ -t9=t5; -f_16638(t9,t8);} -else{ -t9=C_eqp(t3,lf[120]); -t10=t5; -f_16638(t10,(C_truep(t9)?t9:C_eqp(t3,lf[121])));}}}}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_eqp(lf[187],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k16636 in chicken.irregex#sre-bos? in k7753 in k7522 in k7519 */ -static void f_16638(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_16638,2,t0,t1);} -if(C_truep(t1)){ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){ -/* irregex-core.scm:1687: sre-bos? */ -t2=lf[280];{ -C_word av2[3]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -f_16621(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);}}} -else{ -t2=C_eqp(((C_word*)t0)[4],lf[104]); -if(C_truep(t2)){ -/* irregex-core.scm:1688: every */ -f_9332(((C_word*)t0)[3],lf[280],C_u_i_cdr(((C_word*)t0)[2]));} -else{ -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* chicken.irregex#sre-searcher? in k7753 in k7522 in k7519 */ -static void C_ccall f_16710(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_16710,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16714,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1694: sre-bos? */ -t4=lf[280];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -f_16621(3,av2);}} - -/* k16712 in chicken.irregex#sre-searcher? in k7753 in k7522 in k7519 */ -static void C_ccall f_16714(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_16714,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ -t2=C_u_i_car(((C_word*)t0)[3]); -t3=C_eqp(t2,lf[128]); -t4=(C_truep(t3)?t3:C_eqp(t2,lf[130])); -if(C_truep(t4)){ -t5=( -/* irregex-core.scm:1697: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3])) -); -/* irregex-core.scm:1697: sre-any? */ -t6=lf[278];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -av2[2]=t5; -f_16475(3,av2);}} -else{ -t5=C_eqp(t2,lf[116]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16751,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t5)){ -t7=t6; -f_16751(t7,t5);} -else{ -t7=C_eqp(t2,lf[228]); -if(C_truep(t7)){ -t8=t6; -f_16751(t8,t7);} -else{ -t8=C_eqp(t2,lf[246]); -if(C_truep(t8)){ -t9=t6; -f_16751(t9,t8);} -else{ -t9=C_eqp(t2,lf[109]); -if(C_truep(t9)){ -t10=t6; -f_16751(t10,t9);} -else{ -t10=C_eqp(t2,lf[120]); -t11=t6; -f_16751(t11,(C_truep(t10)?t10:C_eqp(t2,lf[121])));}}}}}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} - -/* k16749 in k16712 in chicken.irregex#sre-searcher? in k7753 in k7522 in k7519 */ -static void f_16751(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_16751,2,t0,t1);} -if(C_truep(t1)){ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){ -/* irregex-core.scm:1699: sre-searcher? */ -t2=lf[272];{ -C_word av2[3]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -f_16710(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);}}} -else{ -t2=C_eqp(((C_word*)t0)[4],lf[104]); -if(C_truep(t2)){ -/* irregex-core.scm:1700: every */ -f_9332(((C_word*)t0)[3],lf[272],C_u_i_cdr(((C_word*)t0)[2]));} -else{ -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* chicken.irregex#sre-consumer? in k7753 in k7522 in k7519 */ -static void C_ccall f_16827(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16827,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16831,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:1705: sre-bos? */ -t4=lf[280];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -f_16621(3,av2);}} - -/* k16829 in chicken.irregex#sre-consumer? in k7753 in k7522 in k7519 */ -static void C_ccall f_16831(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_16831,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(((C_word*)t0)[3]))){ -t2=C_u_i_car(((C_word*)t0)[3]); -t3=C_eqp(t2,lf[128]); -t4=(C_truep(t3)?t3:C_eqp(t2,lf[130])); -if(C_truep(t4)){ -t5=( -/* irregex-core.scm:1708: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3])) -); -/* irregex-core.scm:1708: sre-any? */ -t6=lf[278];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -av2[2]=t5; -f_16475(3,av2);}} -else{ -t5=C_eqp(t2,lf[116]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16868,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t5)){ -t7=t6; -f_16868(t7,t5);} -else{ -t7=C_eqp(t2,lf[228]); -if(C_truep(t7)){ -t8=t6; -f_16868(t8,t7);} -else{ -t8=C_eqp(t2,lf[246]); -if(C_truep(t8)){ -t9=t6; -f_16868(t9,t8);} -else{ -t9=C_eqp(t2,lf[109]); -if(C_truep(t9)){ -t10=t6; -f_16868(t10,t9);} -else{ -t10=C_eqp(t2,lf[120]); -t11=t6; -f_16868(t11,(C_truep(t10)?t10:C_eqp(t2,lf[121])));}}}}}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} - -/* k16866 in k16829 in chicken.irregex#sre-consumer? in k7753 in k7522 in k7519 */ -static void f_16868(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_16868,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16881,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1710: last */ -f_9251(t2,((C_word*)t0)[2]);} -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);}}} -else{ -t2=C_eqp(((C_word*)t0)[4],lf[104]); -if(C_truep(t2)){ -/* irregex-core.scm:1711: every */ -f_9332(((C_word*)t0)[3],lf[254],C_u_i_cdr(((C_word*)t0)[2]));} -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);}}}} - -/* k16879 in k16866 in k16829 in chicken.irregex#sre-consumer? in k7753 in k7522 in k7519 */ -static void C_ccall f_16881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_16881,c,av);} -/* irregex-core.scm:1710: sre-consumer? */ -t2=lf[254];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -f_16827(3,av2);}} - -/* chicken.irregex#sre-has-submatches? in k7753 in k7522 in k7519 */ -static void C_ccall f_16944(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word 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(3,c,3)))){ -C_save_and_reclaim((void *)f_16944,c,av);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -t4=C_u_i_memq(t3,lf[282]); -if(C_truep(t4)){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_eqp(lf[236],C_u_i_car(t2)); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16970,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1718: string->sre */ -t7=*((C_word*)lf[103]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=C_i_cadr(t2); -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -/* irregex-core.scm:1719: any */ -f_9289(t1,lf[281],C_u_i_cdr(t2));}}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k16968 in chicken.irregex#sre-has-submatches? in k7753 in k7522 in k7519 */ -static void C_ccall f_16970(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_16970,c,av);} -/* irregex-core.scm:1718: sre-has-submatches? */ -t2=lf[281];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -f_16944(3,av2);}} - -/* chicken.irregex#sre-count-submatches in k7753 in k7522 in k7519 */ -static void f_16983(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_16983,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_16989,a[2]=t4,a[3]=((C_word)li222),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_16989(4,av2);}} - -/* count in chicken.irregex#sre-count-submatches in k7753 in k7522 in k7519 */ -static void C_ccall f_16989(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(14,c,2)))){ -C_save_and_reclaim((void *)f_16989,c,av);} -a=C_alloc(14); -if(C_truep(C_i_pairp(t2))){ -t4=C_u_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17010,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t6=C_eqp(t4,lf[246]); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17016,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp); -if(C_truep(t6)){ -t8=t7; -f_17016(t8,t6);} -else{ -t8=C_eqp(t4,lf[109]); -if(C_truep(t8)){ -t9=t7; -f_17016(t9,t8);} -else{ -t9=C_eqp(t4,lf[120]); -t10=t7; -f_17016(t10,(C_truep(t9)?t9:C_eqp(t4,lf[121])));}}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k17008 in count in chicken.irregex#sre-count-submatches in k7753 in k7522 in k7519 */ -static void C_ccall f_17010(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_17010,c,av);} -/* irregex-core.scm:1724: fold */ -f_9377(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_fixnum_plus(((C_word*)t0)[4],t1),C_u_i_cdr(((C_word*)t0)[5]));} - -/* k17014 in count in chicken.irregex#sre-count-submatches in k7753 in k7522 in k7519 */ -static void f_17016(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(29,0,4)))){ -C_save_and_reclaim_args((void *)trf_17016,2,t0,t1);} -a=C_alloc(29); -if(C_truep(t1)){ -/* irregex-core.scm:1724: fold */ -f_9377(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_u_i_cdr(((C_word*)t0)[5]));} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[245]); -if(C_truep(t2)){ -t3=C_fixnum_plus(C_i_cadr(((C_word*)t0)[5]),C_i_caddr(((C_word*)t0)[5])); -/* irregex-core.scm:1724: fold */ -f_9377(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],C_fixnum_plus(((C_word*)t0)[4],t3),C_u_i_cdr(((C_word*)t0)[5]));} -else{ -t3=C_eqp(((C_word*)t0)[6],lf[236]); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17046,a[2]=((C_word*)t0)[7],tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1729: string->sre */ -t5=*((C_word*)lf[103]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_i_cadr(((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t4=C_s_a_i_plus(&a,2,((C_word*)t0)[4],C_fix(0)); -/* irregex-core.scm:1724: fold */ -f_9377(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1],t4,C_u_i_cdr(((C_word*)t0)[5]));}}}} - -/* k17044 in k17014 in count in chicken.irregex#sre-count-submatches in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_17046,c,av);} -/* irregex-core.scm:1729: sre-count-submatches */ -f_16983(((C_word*)t0)[2],t1);} - -/* k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_17083,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17086,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18180,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1736: sre-count-submatches */ -f_16983(t3,((C_word*)t0)[10]);} - -/* k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17086(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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,7)))){ -C_save_and_reclaim((void *)f_17086,c,av);} -a=C_alloc(19); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17093,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); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_17095,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=((C_word)li202),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_17095(t6,t2,((C_word*)t0)[11],C_fix(1),C_fix(0),C_fix(0),*((C_word*)lf[267]+1));} - -/* k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17093(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_17093,c,av);} -a=C_alloc(11); -t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); -t3=(C_truep(((C_word*)t0)[3])?C_fixnum_or(C_fix(0),C_fix(1)):C_fix(0)); -t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_16235,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],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:1643: sre-consumer? */ -t5=lf[254];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[10]; -f_16827(3,av2);}} - -/* lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17095(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 *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,0,6)))){ -C_save_and_reclaim_args((void *)trf_17095,7,t0,t1,t2,t3,t4,t5,t6);} -a=C_alloc(19); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17098,a[2]=t4,a[3]=t5,a[4]=t6,a[5]=((C_word)li187),tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(t2))){ -if(C_truep(C_i_stringp(C_u_i_car(t2)))){ -/* irregex-core.scm:1745: grow */ -t8=t7; -f_17098(t8,t1,C_fix(1));} -else{ -t8=C_u_i_car(t2); -t9=C_eqp(t8,lf[52]); -t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_17138,a[2]=t7,a[3]=t1,a[4]=t8,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(t9)){ -t11=t10; -f_17138(t11,t9);} -else{ -t11=C_eqp(t8,lf[180]); -if(C_truep(t11)){ -t12=t10; -f_17138(t12,t11);} -else{ -t12=C_eqp(t8,lf[235]); -t13=t10; -f_17138(t13,(C_truep(t12)?t12:C_eqp(t8,lf[248])));}}}} -else{ -if(C_truep(C_charp(t2))){ -/* irregex-core.scm:1860: grow */ -t8=t7; -f_17098(t8,t1,C_fix(1));} -else{ -if(C_truep(C_i_stringp(t2))){ -/* irregex-core.scm:1862: grow */ -t8=t7; -f_17098(t8,t1,C_u_i_string_length(t2));} -else{ -if(C_truep((C_truep(C_eqp(t2,lf[125]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[126]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ -/* irregex-core.scm:1864: grow */ -t8=t7; -f_17098(t8,t1,C_fix(1));} -else{ -if(C_truep((C_truep(C_eqp(t2,lf[111]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[187]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[188]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[196]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[197]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[184]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[185]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[186]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[265]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))))))))){ -/* irregex-core.scm:1866: return */ -t8=t6;{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} -else{ -t8=C_i_assq(t2,lf[249]); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_18157,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); -t10=C_i_cdr(t8); -if(C_truep(C_i_closurep(t10))){ -/* irregex-core.scm:1870: g3006 */ -t11=C_u_i_cdr(t8);{ -C_word av2[2]; -av2[0]=t11; -av2[1]=t9; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} -else{ -/* irregex-core.scm:1870: lp */ -t14=t1; -t15=C_u_i_cdr(t8); -t16=t3; -t17=t4; -t18=t5; -t19=t6; -t1=t14; -t2=t15; -t3=t16; -t4=t17; -t5=t18; -t6=t19; -goto loop;}} -else{ -/* irregex-core.scm:1872: chicken.base#error */ -t9=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t9; -av2[1]=t1; -av2[2]=lf[262]; -av2[3]=lf[266]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}}}}}}}} - -/* grow in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17098(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_17098,3,t0,t1,t2);} -t3=C_fixnum_plus(((C_word*)t0)[2],t2); -if(C_truep(((C_word*)t0)[3])){ -/* irregex-core.scm:1741: return */ -t4=((C_word*)t0)[4];{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -av2[3]=C_fixnum_plus(((C_word*)t0)[3],t2); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -/* irregex-core.scm:1741: 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);}}} - -/* k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17138(C_word t0,C_word t1){ -C_word 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_17138,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -/* irregex-core.scm:1748: grow */ -t2=((C_word*)t0)[2]; -f_17098(t2,((C_word*)t0)[3],C_fix(1));} -else{ -t2=C_eqp(((C_word*)t0)[4],lf[236]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17154,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); -/* irregex-core.scm:1750: string->sre */ -t4=*((C_word*)lf[103]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_cadr(((C_word*)t0)[10]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=C_eqp(((C_word*)t0)[4],lf[116]); -t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17167,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_17167(t5,t3);} -else{ -t5=C_eqp(((C_word*)t0)[4],lf[228]); -if(C_truep(t5)){ -t6=t4; -f_17167(t6,t5);} -else{ -t6=C_eqp(((C_word*)t0)[4],lf[226]); -if(C_truep(t6)){ -t7=t4; -f_17167(t7,t6);} -else{ -t7=C_eqp(((C_word*)t0)[4],lf[227]); -t8=t4; -f_17167(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[4],lf[240])));}}}}}} - -/* k17152 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17154(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_17154,c,av);} -/* irregex-core.scm:1750: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_17095(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17167(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -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_17167,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_u_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|7,a[1]=(C_word)f_17174,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)li189),tmp=(C_word)a,a+=8,tmp)); -t6=((C_word*)t4)[1]; -f_17174(t6,((C_word*)t0)[7],t2,((C_word*)t0)[8],C_fix(0),C_fix(0));} -else{ -t2=C_eqp(((C_word*)t0)[9],lf[104]); -if(C_truep(t2)){ -t3=C_u_i_cdr(((C_word*)t0)[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|7,a[1]=(C_word)f_17252,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)li191),tmp=(C_word)a,a+=8,tmp)); -t7=((C_word*)t5)[1]; -f_17252(t7,((C_word*)t0)[7],t3,((C_word*)t0)[8],C_SCHEME_FALSE,C_fix(0));} -else{ -t3=C_eqp(((C_word*)t0)[9],lf[110]); -if(C_truep(t3)){ -t4=C_i_nullp(C_u_i_cdr(((C_word*)t0)[2])); -t5=(C_truep(t4)?t4:C_i_nullp(C_i_cddr(((C_word*)t0)[2]))); -if(C_truep(t5)){ -/* irregex-core.scm:1774: return */ -t6=((C_word*)t0)[5];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=((C_word*)t0)[7]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17345,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],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],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1776: sre-count-submatches */ -f_16983(t6,C_u_i_car(((C_word*)t0)[2]));}} -else{ -t4=C_eqp(((C_word*)t0)[9],lf[245]); -if(C_truep(t4)){ -t5=( -/* irregex-core.scm:1795: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cdddr(((C_word*)t0)[2])) -); -t6=C_i_cadr(((C_word*)t0)[2]); -/* irregex-core.scm:1795: lp */ -t7=((C_word*)((C_word*)t0)[6])[1]; -f_17095(t7,((C_word*)t0)[7],t5,C_fixnum_plus(((C_word*)t0)[8],t6),((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} -else{ -t5=C_eqp(((C_word*)t0)[9],lf[246]); -t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_17491,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[3],a[9]=((C_word*)t0)[4],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_17491(t7,t5);} -else{ -t7=C_eqp(((C_word*)t0)[9],lf[109]); -if(C_truep(t7)){ -t8=t6; -f_17491(t8,t7);} -else{ -t8=C_eqp(((C_word*)t0)[9],lf[120]); -t9=t6; -f_17491(t9,(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[121])));}}}}}}} - -/* lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17174(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_17174,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)){ -/* irregex-core.scm:1754: return */ -t7=((C_word*)t0)[4];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t1; -av2[2]=t6; -av2[3]=C_fixnum_plus(((C_word*)t0)[3],t5); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -/* irregex-core.scm:1754: 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:1754: 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_17207,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[5],a[7]=((C_word)li188),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1755: lp */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_17095(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}} - -/* a17206 in lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17207(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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(10,c,2)))){ -C_save_and_reclaim((void *)f_17207,c,av);} -a=C_alloc(10); -t4=C_i_cdr(((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17237,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]=t4,tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:1758: sre-count-submatches */ -f_16983(t5,C_u_i_car(((C_word*)t0)[2]));} - -/* k17235 in a17206 in lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17237(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_17237,c,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])){ -/* irregex-core.scm:1757: lp2 */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_17174(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]));} -else{ -/* irregex-core.scm:1757: lp2 */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_17174(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}} -else{ -/* irregex-core.scm:1757: lp2 */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_17174(t4,((C_word*)t0)[8],((C_word*)t0)[9],t2,t3,C_SCHEME_FALSE);}} - -/* lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17252(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_17252,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(8); -if(C_truep(C_i_nullp(t2))){ -t6=(C_truep(t4)?C_fixnum_plus(((C_word*)t0)[2],t4):C_fixnum_plus(((C_word*)t0)[2],C_fix(1))); -if(C_truep(((C_word*)t0)[3])){ -if(C_truep(t5)){ -/* irregex-core.scm:1764: return */ -t7=((C_word*)t0)[4];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t1; -av2[2]=t6; -av2[3]=C_fixnum_plus(((C_word*)t0)[3],t5); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -/* irregex-core.scm:1764: 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:1764: 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_17289,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=t4,a[7]=((C_word)li190),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1765: lp */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_17095(t8,t1,t6,t3,C_fix(0),C_fix(0),t7);}} - -/* a17288 in lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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=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(10,c,2)))){ -C_save_and_reclaim((void *)f_17289,c,av);} -a=C_alloc(10); -t4=C_i_cdr(((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17322,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t4,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); -/* irregex-core.scm:1768: sre-count-submatches */ -f_16983(t5,C_u_i_car(((C_word*)t0)[2]));} - -/* k17303 in k17320 in a17288 in lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_17305(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ -C_save_and_reclaim((void *)f_17305,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17309,a[2]=((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_word*)t0)[6])){ -if(C_truep(((C_word*)t0)[7])){ -/* irregex-core.scm:1770: scheme#max */ -t3=*((C_word*)lf[255]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -/* irregex-core.scm:1767: lp2 */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_17252(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE);}} -else{ -/* irregex-core.scm:1767: lp2 */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_17252(t3,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1,C_SCHEME_FALSE);}} - -/* k17307 in k17303 in k17320 in a17288 in lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_17309(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_17309,c,av);} -/* irregex-core.scm:1767: lp2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_17252(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} - -/* k17320 in a17288 in lp2 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_17322,c,av);} -a=C_alloc(8); -t2=C_fixnum_plus(((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17305,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],tmp=(C_word)a,a+=8,tmp); -if(C_truep(((C_word*)t0)[8])){ -/* irregex-core.scm:1769: scheme#min */ -t4=*((C_word*)lf[256]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -av2[3]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[9]; -f_17305(2,av2);}}} - -/* k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17345(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_17345,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17348,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:1777: sre-count-submatches */ -f_16983(t2,C_i_cadr(((C_word*)t0)[2]));} - -/* k17346 in k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17348(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_17348,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_17355,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],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -t3=C_i_cadr(((C_word*)t0)[2]); -t4=C_i_numberp(t3); -if(C_truep(t4)){ -t5=t2; -f_17355(t5,(C_truep(t4)?lf[111]:C_u_i_car(C_u_i_cdr(((C_word*)t0)[2]))));} -else{ -t5=C_u_i_cdr(((C_word*)t0)[2]); -t6=C_i_symbolp(C_u_i_car(t5)); -t7=t2; -f_17355(t7,(C_truep(t6)?lf[111]:C_u_i_car(C_u_i_cdr(((C_word*)t0)[2]))));}} - -/* k17353 in k17346 in k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17355(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_17355,2,t0,t1);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17357,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word)li194),tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1778: lp */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_17095(t3,((C_word*)t0)[8],t1,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],t2);} - -/* a17356 in k17353 in k17346 in k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_17357(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_17357,c,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_17371,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=t3,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li193),tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:1783: lp */ -t7=((C_word*)((C_word*)t0)[7])[1]; -f_17095(t7,t1,t4,t5,C_fix(0),C_fix(0),t6);} - -/* a17370 in a17356 in k17353 in k17346 in k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_17371(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_17371,c,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[111]); -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_17385,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t3,a[5]=((C_word*)t0)[8],a[6]=t2,a[7]=((C_word)li192),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1785: lp */ -t9=((C_word*)((C_word*)t0)[9])[1]; -f_17095(t9,t1,t6,t7,C_fix(0),C_fix(0),t8);} - -/* a17384 in a17370 in a17356 in k17353 in k17346 in k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in ... */ -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 *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_17385,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17414,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:1790: scheme#min */ -t5=*((C_word*)lf[256]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k17408 in k17412 in a17384 in a17370 in a17356 in k17353 in k17346 in k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in ... */ -static void C_ccall f_17410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17410,c,av);} -/* irregex-core.scm:1790: return */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fixnum_plus(((C_word*)t0)[5],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k17412 in a17384 in a17370 in a17356 in k17353 in k17346 in k17343 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in ... */ -static void C_ccall f_17414(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_17414,c,av);} -a=C_alloc(6); -t2=C_fixnum_plus(((C_word*)t0)[2],t1); -if(C_truep(((C_word*)t0)[3])){ -if(C_truep(((C_word*)t0)[4])){ -if(C_truep(((C_word*)t0)[5])){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17410,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:1792: scheme#max */ -t4=*((C_word*)lf[255]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -/* irregex-core.scm:1790: return */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[7]; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} -else{ -/* irregex-core.scm:1790: return */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[7]; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} -else{ -/* irregex-core.scm:1790: return */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[7]; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17491(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(11,0,6)))){ -C_save_and_reclaim_args((void *)trf_17491,2,t0,t1);} -a=C_alloc(11); -if(C_truep(t1)){ -t2=C_eqp(lf[109],C_u_i_car(((C_word*)t0)[2])); -t3=(C_truep(t2)?( -/* irregex-core.scm:1797: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2])) -):( -/* irregex-core.scm:1797: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[2])) -)); -t4=C_fixnum_plus(((C_word*)t0)[3],C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17504,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word)li195),tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:1797: lp */ -t6=((C_word*)((C_word*)t0)[6])[1]; -f_17095(t6,((C_word*)t0)[7],t3,t4,((C_word*)t0)[8],((C_word*)t0)[9],t5);} -else{ -t2=C_eqp(((C_word*)t0)[10],lf[193]); -t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[10],lf[192])); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17540,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -t5=C_i_cadr(((C_word*)t0)[2]); -if(C_truep(C_i_numberp(t5))){ -t6=t4;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_u_i_car(C_u_i_cdr(((C_word*)t0)[2])); -f_17540(2,av2);}} -else{ -t6=C_u_i_cdr(((C_word*)t0)[2]); -t7=C_i_assq(C_u_i_car(t6),((C_word*)t0)[11]); -if(C_truep(t7)){ -t8=t4;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_i_cdr(t7); -f_17540(2,av2);}} -else{ -t8=C_u_i_cdr(((C_word*)t0)[2]); -/* irregex-core.scm:1807: chicken.base#error */ -t9=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t4; -av2[2]=lf[260]; -av2[3]=C_u_i_car(t8); -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}} -else{ -t4=C_eqp(((C_word*)t0)[10],lf[128]); -t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[10],lf[129])); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17649,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); -t7=( -/* irregex-core.scm:1819: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2])) -); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17658,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1819: lp */ -t9=((C_word*)((C_word*)t0)[6])[1]; -f_17095(t9,t6,t7,((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9],t8);} -else{ -t6=C_eqp(((C_word*)t0)[10],lf[134]); -t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[10],lf[131])); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17676,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[7],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)[3],tmp=(C_word)a,a+=9,tmp); -t9=C_i_cadr(((C_word*)t0)[2]); -if(C_truep(C_i_numberp(t9))){ -t10=C_i_caddr(((C_word*)t0)[2]); -if(C_truep(C_i_numberp(t10))){ -t11=C_u_i_cdr(((C_word*)t0)[2]); -t12=C_u_i_car(t11); -t13=C_u_i_cdr(((C_word*)t0)[2]); -t14=C_u_i_cdr(t13); -t15=t8; -f_17676(t15,C_fixnum_greaterp(t12,C_u_i_car(t14)));} -else{ -t11=t8; -f_17676(t11,C_SCHEME_FALSE);}} -else{ -t10=t8; -f_17676(t10,C_SCHEME_FALSE);}} -else{ -t8=C_eqp(((C_word*)t0)[10],lf[130]); -if(C_truep(t8)){ -t9=( -/* irregex-core.scm:1838: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2])) -); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17818,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],a[4]=((C_word)li199),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1838: lp */ -t11=((C_word*)((C_word*)t0)[6])[1]; -f_17095(t11,((C_word*)t0)[7],t9,((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9],t10);} -else{ -t9=C_eqp(((C_word*)t0)[10],lf[132]); -t10=(C_truep(t9)?t9:C_eqp(((C_word*)t0)[10],lf[133])); -if(C_truep(t10)){ -t11=( -/* irregex-core.scm:1842: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[2])) -); -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17846,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[8],a[5]=((C_word)li200),tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:1842: lp */ -t13=((C_word*)((C_word*)t0)[6])[1]; -f_17095(t13,((C_word*)t0)[7],t11,((C_word*)t0)[3],((C_word*)t0)[8],((C_word*)t0)[9],t12);} -else{ -t11=C_eqp(((C_word*)t0)[10],lf[135]); -t12=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_17871,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)[8],a[7]=((C_word*)t0)[9],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[10],tmp=(C_word)a,a+=10,tmp); -if(C_truep(t11)){ -t13=t12; -f_17871(t13,t11);} -else{ -t13=C_eqp(((C_word*)t0)[10],lf[264]); -if(C_truep(t13)){ -t14=t12; -f_17871(t14,t13);} -else{ -t14=C_eqp(((C_word*)t0)[10],lf[136]); -t15=t12; -f_17871(t15,(C_truep(t14)?t14:C_eqp(((C_word*)t0)[10],lf[261])));}}}}}}}}} - -/* a17503 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17504(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_17504,c,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:1802: return */ -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k17538 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17540(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_17540,c,av);} -a=C_alloc(9); -t2=C_i_not(C_i_integerp(t1)); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17549,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=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); -if(C_truep(t2)){ -t4=t3; -f_17549(t4,t2);} -else{ -t4=C_block_size(((C_word*)t0)[4]); -t5=t3; -f_17549(t5,C_i_not(C_and(C_fixnum_lessp(C_fix(0),t1),C_fixnum_lessp(t1,t4))));}} - -/* k17547 in k17538 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17549(C_word t0,C_word t1){ -C_word 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_17549,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:1811: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[257]; -av2[3]=lf[258]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); -if(C_truep(C_i_not(t2))){ -/* irregex-core.scm:1813: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[257]; -av2[3]=lf[259]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); -t4=C_i_car(t3); -t5=C_i_vector_ref(((C_word*)t0)[4],((C_word*)t0)[5]); -t6=C_i_cdr(t5); -t7=C_fixnum_plus(((C_word*)t0)[6],t4); -if(C_truep(((C_word*)t0)[7])){ -if(C_truep(t6)){ -/* irregex-core.scm:1817: return */ -t8=((C_word*)t0)[8];{ -C_word av2[4]; -av2[0]=t8; -av2[1]=((C_word*)t0)[2]; -av2[2]=t7; -av2[3]=C_fixnum_plus(((C_word*)t0)[7],t6); -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} -else{ -/* irregex-core.scm:1817: return */ -t8=((C_word*)t0)[8];{ -C_word av2[4]; -av2[0]=t8; -av2[1]=((C_word*)t0)[2]; -av2[2]=t7; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} -else{ -/* irregex-core.scm:1817: return */ -t8=((C_word*)t0)[8];{ -C_word av2[4]; -av2[0]=t8; -av2[1]=((C_word*)t0)[2]; -av2[2]=t7; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}}}} - -/* k17647 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17649(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17649,c,av);} -/* irregex-core.scm:1820: return */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a17657 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17658(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_17658,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k17674 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17676(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_17676,2,t0,t1);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17679,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_17679(t3,t1);} -else{ -t3=C_u_i_cdr(((C_word*)t0)[6]); -t4=C_i_not(C_u_i_car(t3)); -t5=t2; -f_17679(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[6]):C_SCHEME_FALSE));}} - -/* k17677 in k17674 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17679(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,6)))){ -C_save_and_reclaim_args((void *)trf_17679,2,t0,t1);} -a=C_alloc(10); -if(C_truep(t1)){ -/* irregex-core.scm:1827: 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_u_i_cdr(((C_word*)t0)[6]); -t3=C_u_i_cdr(t2); -t4=( -/* irregex-core.scm:1830: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t3)) -); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17697,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[2],a[6]=((C_word)li197),tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:1830: lp */ -t6=((C_word*)((C_word*)t0)[7])[1]; -f_17095(t6,((C_word*)t0)[3],t4,((C_word*)t0)[8],C_fix(0),C_fix(0),t5);} -else{ -t2=( -/* irregex-core.scm:1834: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cdddr(((C_word*)t0)[6])) -); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17744,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word)li198),tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:1834: lp */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_17095(t4,((C_word*)t0)[3],t2,((C_word*)t0)[8],C_fix(0),C_fix(0),t3);}}} - -/* a17696 in k17677 in k17674 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_17697(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,3)))){ -C_save_and_reclaim((void *)f_17697,c,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); -/* irregex-core.scm:1832: return */ -t9=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t1; -av2[2]=t6; -av2[3]=C_fixnum_plus(((C_word*)t0)[4],t8); -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -/* irregex-core.scm:1832: return */ -t7=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -av2[2]=t6; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} -else{ -/* irregex-core.scm:1832: return */ -t7=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -av2[2]=t6; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* a17743 in k17677 in k17674 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_17744(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_17744,c,av);} -t4=C_i_cadr(((C_word*)t0)[2]); -t5=C_fixnum_times(t4,t2); -/* irregex-core.scm:1836: return */ -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=C_fixnum_plus(((C_word*)t0)[4],t5); -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* a17817 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17818(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_17818,c,av);} -/* irregex-core.scm:1840: return */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=C_fixnum_plus(((C_word*)t0)[3],t2); -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* a17845 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_17846(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_17846,c,av);} -if(C_truep(((C_word*)t0)[2])){ -if(C_truep(t3)){ -/* irregex-core.scm:1844: return */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fixnum_plus(((C_word*)t0)[2],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -/* irregex-core.scm:1844: return */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} -else{ -/* irregex-core.scm:1844: return */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k17869 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17871(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -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_17871,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_i_cadr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17890,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],tmp=(C_word)a,a+=9,tmp); -t4=C_u_i_car(((C_word*)t0)[2]); -if(C_truep((C_truep(C_eqp(t4,lf[136]))?C_SCHEME_TRUE:(C_truep(C_eqp(t4,lf[261]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ -t5=C_u_i_cdr(((C_word*)t0)[2]); -t6=C_u_i_cdr(t5); -t7=t3; -f_17890(t7,C_a_i_cons(&a,2,C_SCHEME_FALSE,t6));} -else{ -t5=C_u_i_cdr(((C_word*)t0)[2]); -t6=C_u_i_car(t5); -t7=C_u_i_cdr(((C_word*)t0)[2]); -t8=C_u_i_cdr(t7); -t9=t3; -f_17890(t9,C_a_i_cons(&a,2,t6,t8));}} -else{ -t2=C_eqp(((C_word*)t0)[9],lf[112]); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17911,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_17911(t4,t2);} -else{ -t4=C_eqp(((C_word*)t0)[9],lf[113]); -if(C_truep(t4)){ -t5=t3; -f_17911(t5,t4);} -else{ -t5=C_eqp(((C_word*)t0)[9],lf[114]); -t6=t3; -f_17911(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[115])));}}}} - -/* k17888 in k17869 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17890(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_17890,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[134],t2); -/* irregex-core.scm:1846: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_17095(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* k17909 in k17869 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_17911(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_17911,2,t0,t1);} -a=C_alloc(9); -if(C_truep(t1)){ -/* irregex-core.scm:1851: 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_i_assq(C_u_i_car(((C_word*)t0)[6]),lf[249]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_17921,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word)li201),tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:1853: g3002 */ -t4=t3; -f_17921(t4,((C_word*)t0)[3],t2);} -else{ -/* irregex-core.scm:1858: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[262]; -av2[3]=lf[263]; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} - -/* g3002 in k17909 in k17869 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void f_17921(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,3)))){ -C_save_and_reclaim_args((void *)trf_17921,3,t0,t1,t2);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17929,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);{ -C_word av2[4]; -av2[0]=0; -av2[1]=t3; -av2[2]=C_i_cdr(t2); -av2[3]=C_i_cdr(((C_word*)t0)[7]); -C_apply(4,av2);}} - -/* k17927 in g3002 in k17909 in k17869 in k17489 in k17165 in k17136 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_17929(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,6)))){ -C_save_and_reclaim((void *)f_17929,c,av);} -/* irregex-core.scm:1856: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_17095(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k18155 in lp in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_18157(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_18157,c,av);} -/* irregex-core.scm:1870: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_17095(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k18178 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_18180(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_18180,c,av);} -/* irregex-core.scm:1736: scheme#make-vector */ -t2=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_fixnum_plus(C_fix(1),t1); -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.irregex#sre-sequence in k7753 in k7522 in k7519 */ -static C_word f_18189(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[111]);} -else{ -t2=C_i_cdr(t1); -t3=C_i_nullp(t2); -return((C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[116],t1)));}} - -/* chicken.irregex#sre-alternate in k7753 in k7522 in k7519 */ -static C_word f_18212(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[283]);} -else{ -t2=C_i_cdr(t1); -t3=C_i_nullp(t2); -return((C_truep(t3)?C_u_i_car(t1):C_a_i_cons(&a,2,lf[104],t1)));}} - -/* chicken.irregex#sre-strip-submatches in k7753 in k7522 in k7519 */ -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=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(13,c,3)))){ -av[0]=t0; -av[1]=t1; -av[2]=t2; -C_save_and_reclaim((void *)f_18235,c,av);} -a=C_alloc(13); -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_car(t2); -t5=C_eqp(t4,lf[246]); -t6=(C_truep(t5)?t5:C_eqp(t4,lf[109])); -if(C_truep(t6)){ -t7=( -/* irregex-core.scm:1897: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t2)) -); -/* irregex-core.scm:1897: sre-strip-submatches */ -t19=t1; -t20=t7; -t1=t19; -t2=t20; -c=3; -goto loop;} -else{ -t7=C_eqp(t4,lf[120]); -t8=(C_truep(t7)?t7:C_eqp(t4,lf[121])); -if(C_truep(t8)){ -t9=( -/* irregex-core.scm:1898: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cddr(t2)) -); -/* irregex-core.scm:1898: sre-strip-submatches */ -t19=t1; -t20=t9; -t1=t19; -t2=t20; -c=3; -goto loop;} -else{ -t9=C_eqp(t4,lf[245]); -if(C_truep(t9)){ -t10=( -/* irregex-core.scm:1899: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cdddr(t2)) -); -/* irregex-core.scm:1899: sre-strip-submatches */ -t19=t1; -t20=t10; -t1=t19; -t2=t20; -c=3; -goto loop;} -else{ -t10=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t11=t10; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=((C_word*)t12)[1]; -t14=lf[284]; -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_18308,a[2]=t12,a[3]=t16,a[4]=t13,a[5]=((C_word)li226),tmp=(C_word)a,a+=6,tmp)); -t18=((C_word*)t16)[1]; -f_18308(t18,t1,t2);}}}}} - -/* map-loop3039 in chicken.irregex#sre-strip-submatches in k7753 in k7522 in k7519 */ -static void f_18308(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_18308,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18333,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); -/* irregex-core.scm:1900: g3045 */ -t4=lf[284];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -f_18235(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);}}} - -/* k18331 in map-loop3039 in chicken.irregex#sre-strip-submatches in k7753 in k7522 in k7519 */ -static void C_ccall f_18333(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_18333,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_18308(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* lp in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_18368(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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,3)))){ -C_save_and_reclaim_args((void *)trf_18368,4,t0,t1,t2,t3);} -a=C_alloc(9); -if(C_truep(C_i_nullp(t2))){ -/* irregex-core.scm:1908: ##sys#fast-reverse */ -t4=*((C_word*)lf[70]+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_18391,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_18395,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* ##sys#string->list */ -t7=*((C_word*)lf[106]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=C_u_i_car(t2); -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -t5=C_u_i_cdr(t2); -t6=C_u_i_car(t2); -t7=C_a_i_cons(&a,2,t6,t3); -/* irregex-core.scm:1912: lp */ -t9=t1; -t10=t5; -t11=t7; -t1=t9; -t2=t10; -t3=t11; -goto loop;}}} - -/* k18389 in lp in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_18391(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_18391,c,av);} -/* irregex-core.scm:1910: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_18368(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k18393 in lp in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_18395,c,av);} -/* irregex-core.scm:1910: scheme#append */ -t2=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_u_i_cdr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.irregex#sre-names in k7753 in k7522 in k7519 */ -static void f_18416(C_word 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_18416,4,t1,t2,t3,t4);} -a=C_alloc(9); -t5=C_i_pairp(t2); -if(C_truep(C_i_not(t5))){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_i_car(t2); -t7=C_eqp(t6,lf[246]); -t8=(C_truep(t7)?t7:C_eqp(t6,lf[109])); -if(C_truep(t8)){ -t9=( -/* irregex-core.scm:1919: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t2)) -); -/* irregex-core.scm:1919: sre-names */ -t28=t1; -t29=t9; -t30=C_fixnum_plus(t3,C_fix(1)); -t31=t4; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop;} -else{ -t9=C_eqp(t6,lf[120]); -t10=(C_truep(t9)?t9:C_eqp(t6,lf[121])); -if(C_truep(t10)){ -t11=( -/* irregex-core.scm:1921: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cddr(t2)) -); -t12=C_fixnum_plus(t3,C_fix(1)); -t13=C_i_cadr(t2); -t14=C_a_i_cons(&a,2,t13,t3); -t15=C_a_i_cons(&a,2,t14,t4); -/* irregex-core.scm:1921: sre-names */ -t28=t1; -t29=t11; -t30=t12; -t31=t15; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop;} -else{ -t11=C_eqp(t6,lf[245]); -if(C_truep(t11)){ -t12=( -/* irregex-core.scm:1925: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cdddr(t2)) -); -t13=C_i_cadr(t2); -/* irregex-core.scm:1925: sre-names */ -t28=t1; -t29=t12; -t30=C_fixnum_plus(t3,t13); -t31=t4; -t1=t28; -t2=t29; -t3=t30; -t4=t31; -goto loop;} -else{ -t12=C_eqp(t6,lf[116]); -t13=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18518,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(t12)){ -t14=t13; -f_18518(t14,t12);} -else{ -t14=C_eqp(t6,lf[228]); -if(C_truep(t14)){ -t15=t13; -f_18518(t15,t14);} -else{ -t15=C_eqp(t6,lf[104]); -if(C_truep(t15)){ -t16=t13; -f_18518(t16,t15);} -else{ -t16=C_eqp(t6,lf[128]); -if(C_truep(t16)){ -t17=t13; -f_18518(t17,t16);} -else{ -t17=C_eqp(t6,lf[130]); -if(C_truep(t17)){ -t18=t13; -f_18518(t18,t17);} -else{ -t18=C_eqp(t6,lf[132]); -if(C_truep(t18)){ -t19=t13; -f_18518(t19,t18);} -else{ -t19=C_eqp(t6,lf[129]); -if(C_truep(t19)){ -t20=t13; -f_18518(t20,t19);} -else{ -t20=C_eqp(t6,lf[133]); -if(C_truep(t20)){ -t21=t13; -f_18518(t21,t20);} -else{ -t21=C_eqp(t6,lf[226]); -if(C_truep(t21)){ -t22=t13; -f_18518(t22,t21);} -else{ -t22=C_eqp(t6,lf[227]); -if(C_truep(t22)){ -t23=t13; -f_18518(t23,t22);} -else{ -t23=C_eqp(t6,lf[240]); -if(C_truep(t23)){ -t24=t13; -f_18518(t24,t23);} -else{ -t24=C_eqp(t6,lf[112]); -if(C_truep(t24)){ -t25=t13; -f_18518(t25,t24);} -else{ -t25=C_eqp(t6,lf[114]); -if(C_truep(t25)){ -t26=t13; -f_18518(t26,t25);} -else{ -t26=C_eqp(t6,lf[113]); -t27=t13; -f_18518(t27,(C_truep(t26)?t26:C_eqp(t6,lf[115])));}}}}}}}}}}}}}}}}}} - -/* k18516 in chicken.irregex#sre-names in k7753 in k7522 in k7519 */ -static void f_18518(C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_18518,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:1928: sre-sequence-names */ -f_18702(((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5]);} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[135]); -t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[136])); -if(C_truep(t3)){ -/* irregex-core.scm:1930: sre-sequence-names */ -f_18702(((C_word*)t0)[2],C_i_cddr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5]);} -else{ -t4=C_eqp(((C_word*)t0)[6],lf[134]); -t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[131])); -if(C_truep(t5)){ -/* irregex-core.scm:1932: sre-sequence-names */ -f_18702(((C_word*)t0)[2],C_i_cdddr(((C_word*)t0)[3]),((C_word*)t0)[4],((C_word*)t0)[5]);} -else{ -t6=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t6; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} - -/* chicken.irregex#sre-sequence-names in k7753 in k7522 in k7519 */ -static void f_18702(C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_18702,4,t1,t2,t3,t4);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t2))){ -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_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18730,a[2]=t3,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:1940: sre-count-submatches */ -f_16983(t6,C_u_i_car(t2));}} - -/* k18722 in k18728 in chicken.irregex#sre-sequence-names in k7753 in k7522 in k7519 */ -static void C_ccall f_18724(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_18724,c,av);} -/* irregex-core.scm:1939: sre-sequence-names */ -f_18702(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k18728 in chicken.irregex#sre-sequence-names in k7753 in k7522 in k7519 */ -static void C_ccall f_18730(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_18730,c,av);} -a=C_alloc(5); -t2=C_fixnum_plus(((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18724,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:1941: sre-names */ -f_18416(t3,C_u_i_car(((C_word*)t0)[5]),((C_word*)t0)[2],((C_word*)t0)[6]);} - -/* chicken.irregex#sre-remove-initial-bos in k7753 in k7522 in k7519 */ -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=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_18734,c,av);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -t4=C_eqp(t3,lf[116]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18751,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -t6=t5; -f_18751(t6,t4);} -else{ -t6=C_eqp(t3,lf[228]); -if(C_truep(t6)){ -t7=t5; -f_18751(t7,t6);} -else{ -t7=C_eqp(t3,lf[246]); -if(C_truep(t7)){ -t8=t5; -f_18751(t8,t7);} -else{ -t8=C_eqp(t3,lf[109]); -if(C_truep(t8)){ -t9=t5; -f_18751(t9,t8);} -else{ -t9=C_eqp(t3,lf[120]); -if(C_truep(t9)){ -t10=t5; -f_18751(t10,t9);} -else{ -t10=C_eqp(t3,lf[121]); -if(C_truep(t10)){ -t11=t5; -f_18751(t11,t10);} -else{ -t11=C_eqp(t3,lf[128]); -t12=t5; -f_18751(t12,(C_truep(t11)?t11:C_eqp(t3,lf[130])));}}}}}}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k18749 in chicken.irregex#sre-remove-initial-bos in k7753 in k7522 in k7519 */ -static void f_18751(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,0,3)))){ -C_save_and_reclaim_args((void *)trf_18751,2,t0,t1);} -a=C_alloc(16); -if(C_truep(t1)){ -t2=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])); -if(C_truep(C_i_not(t2))){ -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_cadr(((C_word*)t0)[2]); -t4=C_eqp(lf[187],t3); -if(C_truep(t4)){ -t5=C_u_i_car(((C_word*)t0)[2]); -t6=C_u_i_cdr(((C_word*)t0)[2]); -t7=C_u_i_cdr(t6); -t8=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_a_i_cons(&a,2,t5,t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t5=C_u_i_car(((C_word*)t0)[2]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18784,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t5,tmp=(C_word)a,a+=5,tmp); -t7=C_u_i_cdr(((C_word*)t0)[2]); -/* irregex-core.scm:1955: sre-remove-initial-bos */ -t8=lf[271];{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t6; -av2[2]=C_u_i_car(t7); -f_18734(3,av2);}}}} -else{ -t2=C_eqp(((C_word*)t0)[4],lf[104]); -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[271]; -t8=C_u_i_cdr(((C_word*)t0)[2]); -t9=C_i_check_list_2(t8,lf[212]); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18821,a[2]=((C_word*)t0)[3],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_18823,a[2]=t5,a[3]=t12,a[4]=t6,a[5]=((C_word)li230),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_18823(t14,t10,t8);} -else{ -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k18782 in k18749 in chicken.irregex#sre-remove-initial-bos in k7753 in k7522 in k7519 */ -static void C_ccall f_18784(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_18784,c,av);} -a=C_alloc(6); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t1,t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k18819 in k18749 in chicken.irregex#sre-remove-initial-bos in k7753 in k7522 in k7519 */ -static void C_ccall f_18821(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_18821,c,av);} -a=C_alloc(3); -/* irregex-core.scm:1957: sre-alternate */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* irregex-core.scm:1957: sre-alternate */ - f_18212(C_a_i(&a,3),t1) -); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop3180 in k18749 in chicken.irregex#sre-remove-initial-bos in k7753 in k7522 in k7519 */ -static void f_18823(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_18823,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18848,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); -/* irregex-core.scm:1957: g3186 */ -t4=lf[271];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -f_18734(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);}}} - -/* k18846 in map-loop3180 in k18749 in chicken.irregex#sre-remove-initial-bos in k7753 in k7522 in k7519 */ -static void C_ccall f_18848(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_18848,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_18823(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_18916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(1673,c,10)))){ -C_save_and_reclaim((void *)f_18916,c,av);} -a=C_alloc(1673); -t2=C_mutate(&lf[286] /* (set! chicken.irregex#irregex-basic-string-chunker ...) */,t1); -t3=C_mutate((C_word*)lf[287]+1 /* (set! chicken.irregex#irregex-search ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18918,a[2]=((C_word)li232),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[288]+1 /* (set! chicken.irregex#irregex-search/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19008,a[2]=((C_word)li233),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate(&lf[293] /* (set! chicken.irregex#irregex-search/matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19051,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[299]+1 /* (set! chicken.irregex#irregex-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19300,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[300]+1 /* (set! chicken.irregex#irregex-match/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19390,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[305]+1 /* (set! chicken.irregex#irregex-match? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19618,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate(&lf[306] /* (set! chicken.irregex#finalize! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19814,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate(&lf[296] /* (set! chicken.irregex#dfa-match/longest ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19933,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp)); -t11=C_a_i_cons(&a,2,lf[125],lf[53]); -t12=C_a_i_string(&a,1,C_make_character(10)); -t13=C_a_i_list(&a,1,t12); -t14=C_a_i_list(&a,4,lf[126],lf[248],lf[53],t13); -t15=C_a_i_list(&a,6,lf[308],lf[52],C_make_character(97),C_make_character(122),C_make_character(65),C_make_character(90)); -t16=C_a_i_cons(&a,2,lf[309],lf[308]); -t17=C_a_i_list(&a,8,lf[182],lf[52],C_make_character(97),C_make_character(122),C_make_character(65),C_make_character(90),C_make_character(48),C_make_character(57)); -t18=C_a_i_cons(&a,2,lf[310],lf[182]); -t19=C_a_i_cons(&a,2,lf[311],lf[182]); -t20=C_a_i_list(&a,4,lf[312],lf[52],C_make_character(97),C_make_character(122)); -t21=C_a_i_cons(&a,2,lf[313],lf[312]); -t22=C_a_i_list(&a,4,lf[314],lf[52],C_make_character(65),C_make_character(90)); -t23=C_a_i_cons(&a,2,lf[315],lf[314]); -t24=C_a_i_list(&a,4,lf[179],lf[52],C_make_character(48),C_make_character(57)); -t25=C_a_i_cons(&a,2,lf[316],lf[179]); -t26=C_a_i_cons(&a,2,lf[317],lf[179]); -t27=C_a_i_list(&a,25,lf[318],lf[104],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[319],lf[318]); -t29=C_a_i_list(&a,13,lf[320],lf[104],lf[182],lf[318],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[321],lf[320]); -t31=C_a_i_list(&a,4,lf[322],lf[104],C_make_character(32),C_make_character(9)); -t32=C_a_i_list(&a,7,lf[323],lf[104],lf[322],C_make_character(10),C_make_character(12),C_make_character(13),C_make_character(11)); -t33=C_a_i_cons(&a,2,lf[80],lf[323]); -t34=C_a_i_cons(&a,2,lf[324],lf[323]); -t35=C_a_i_list(&a,4,lf[325],lf[104],lf[320],lf[323]); -t36=C_a_i_cons(&a,2,lf[326],lf[325]); -t37=C_a_i_list(&a,4,lf[327],lf[52],C_make_character(0),C_make_character(31)); -t38=C_a_i_cons(&a,2,lf[328],lf[327]); -t39=C_a_i_list(&a,5,lf[52],C_make_character(97),C_make_character(102),C_make_character(65),C_make_character(70)); -t40=C_a_i_list(&a,4,lf[329],lf[104],lf[179],t39); -t41=C_a_i_cons(&a,2,lf[330],lf[329]); -t42=C_a_i_list(&a,4,lf[331],lf[52],C_make_character(0),C_make_character(127)); -t43=C_a_i_list(&a,6,lf[332],lf[52],C_make_character(0),C_make_character(9),C_make_character(11),C_make_character(127)); -t44=C_a_i_list(&a,3,lf[116],C_make_character(13),C_make_character(10)); -t45=C_a_i_list(&a,3,lf[52],C_make_character(10),C_make_character(13)); -t46=C_a_i_list(&a,4,lf[81],lf[104],t44,t45); -t47=C_a_i_list(&a,3,lf[104],lf[182],C_make_character(95)); -t48=C_a_i_list(&a,2,lf[130],t47); -t49=C_a_i_list(&a,5,lf[232],lf[116],lf[184],t48,lf[185]); -t50=C_a_i_list(&a,4,lf[333],lf[52],C_make_character(128),C_make_character(193)); -t51=C_a_i_list(&a,3,lf[52],C_make_character(194),C_make_character(223)); -t52=C_a_i_list(&a,4,lf[334],lf[116],t51,lf[333]); -t53=C_a_i_list(&a,3,lf[52],C_make_character(224),C_make_character(239)); -t54=C_a_i_list(&a,5,lf[335],lf[116],t53,lf[333],lf[333]); -t55=C_a_i_list(&a,3,lf[52],C_make_character(240),C_make_character(247)); -t56=C_a_i_list(&a,6,lf[336],lf[116],t55,lf[333],lf[333],lf[333]); -t57=C_a_i_list(&a,6,lf[275],lf[104],lf[331],lf[334],lf[335],lf[336]); -t58=C_a_i_list(&a,6,lf[276],lf[104],lf[332],lf[334],lf[335],lf[336]); -t59=C_a_i_list(&a,3,lf[104],C_make_character(43),C_make_character(45)); -t60=C_a_i_list(&a,2,lf[132],t59); -t61=C_a_i_list(&a,2,lf[130],lf[179]); -t62=C_a_i_list(&a,4,lf[337],lf[116],t60,t61); -t63=C_a_i_list(&a,3,lf[104],C_make_character(43),C_make_character(45)); -t64=C_a_i_list(&a,2,lf[132],t63); -t65=C_a_i_list(&a,2,lf[130],lf[179]); -t66=C_a_i_list(&a,2,lf[130],lf[179]); -t67=C_a_i_list(&a,3,lf[132],C_make_character(46),t66); -t68=C_a_i_list(&a,3,lf[104],C_make_character(101),C_make_character(69)); -t69=C_a_i_list(&a,3,lf[132],t68,lf[337]); -t70=C_a_i_list(&a,6,lf[338],lf[116],t64,t65,t67,t69); -t71=C_a_i_list(&a,1,lf[339]); -t72=C_a_i_list(&a,4,lf[340],lf[104],lf[309],t71); -t73=C_a_i_list(&a,1,lf[341]); -t74=C_a_i_list(&a,5,lf[342],lf[104],lf[340],lf[317],t73); -t75=C_a_i_list(&a,2,lf[128],lf[342]); -t76=C_a_i_list(&a,3,lf[116],lf[340],t75); -t77=C_a_i_list(&a,1,lf[343]); -t78=C_a_i_list(&a,2,lf[128],lf[342]); -t79=C_a_i_list(&a,3,lf[132],lf[340],t78); -t80=C_a_i_list(&a,3,lf[116],t77,t79); -t81=C_a_i_list(&a,2,lf[128],lf[344]); -t82=C_a_i_list(&a,3,lf[116],lf[345],t81); -t83=C_a_i_list(&a,5,lf[346],lf[104],t76,t80,t82); -t84=C_a_i_list(&a,2,lf[128],lf[80]); -t85=C_a_i_list(&a,2,lf[128],lf[126]); -t86=C_a_i_list(&a,5,lf[128],t84,lf[347],t85,lf[81]); -t87=C_a_i_list(&a,2,lf[130],lf[80]); -t88=C_a_i_list(&a,4,lf[348],lf[116],t86,t87); -t89=C_a_i_list(&a,3,lf[349],C_make_character(92),C_make_character(34)); -t90=C_a_i_list(&a,5,lf[350],lf[116],C_make_character(34),t89,C_make_character(34)); -t91=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30797,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp); -t92=C_a_i_cons(&a,2,lf[349],t91); -t93=C_a_i_list(&a,2,lf[52],lf[351]); -t94=C_a_i_list(&a,2,lf[132],t93); -t95=C_a_i_list(&a,2,lf[132],lf[179]); -t96=C_a_i_list(&a,5,lf[352],lf[116],t94,t95,lf[179]); -t97=C_a_i_list(&a,4,lf[135],C_fix(3),C_make_character(46),lf[352]); -t98=C_a_i_list(&a,4,lf[353],lf[116],lf[352],t97); -t99=C_a_i_list(&a,4,lf[134],C_fix(0),C_fix(4),lf[329]); -t100=C_a_i_list(&a,2,lf[132],C_make_character(58)); -t101=C_a_i_list(&a,4,lf[134],C_fix(0),C_fix(4),lf[329]); -t102=C_a_i_list(&a,6,lf[134],C_fix(1),C_fix(7),C_make_character(58),t100,t101); -t103=C_a_i_list(&a,4,lf[354],lf[116],t99,t102); -t104=C_a_i_list(&a,4,lf[355],lf[104],lf[353],lf[354]); -t105=C_a_i_list(&a,4,lf[104],lf[182],C_make_character(95),C_make_character(45)); -t106=C_a_i_list(&a,3,lf[356],lf[130],t105); -t107=C_a_i_list(&a,3,lf[130],C_make_character(46),lf[356]); -t108=C_a_i_list(&a,4,lf[357],lf[116],lf[356],t107); -t109=C_a_i_list(&a,3,lf[135],C_fix(2),lf[309]); -t110=C_a_i_list(&a,16,lf[104],lf[358],lf[359],lf[360],lf[361],lf[362],lf[363],lf[364],lf[365],lf[366],lf[367],lf[368],lf[369],lf[370],lf[371],t109); -t111=C_a_i_list(&a,3,lf[372],lf[227],t110); -t112=C_a_i_list(&a,3,lf[130],lf[356],C_make_character(46)); -t113=C_a_i_list(&a,4,lf[373],lf[116],t112,lf[372]); -t114=C_a_i_list(&a,6,lf[104],lf[182],C_make_character(95),C_make_character(45),C_make_character(46),C_make_character(43)); -t115=C_a_i_list(&a,3,lf[374],lf[130],t114); -t116=C_a_i_list(&a,5,lf[375],lf[116],lf[374],C_make_character(64),lf[357]); -t117=C_a_i_list(&a,4,lf[116],lf[376],lf[329],lf[329]); -t118=C_a_i_list(&a,14,lf[377],lf[104],lf[311],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[116],lf[378],lf[329],lf[329]); -t120=C_a_i_list(&a,11,lf[379],lf[104],lf[311],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[132],lf[380]); -t122=C_a_i_list(&a,3,lf[104],lf[357],lf[353]); -t123=C_a_i_list(&a,2,lf[130],lf[179]); -t124=C_a_i_list(&a,3,lf[132],lf[381],t123); -t125=C_a_i_list(&a,3,lf[104],lf[377],lf[382]); -t126=C_a_i_list(&a,2,lf[128],t125); -t127=C_a_i_list(&a,2,lf[128],lf[377]); -t128=C_a_i_list(&a,3,lf[132],lf[383],t127); -t129=C_a_i_list(&a,2,lf[128],lf[377]); -t130=C_a_i_list(&a,3,lf[132],t129,lf[379]); -t131=C_a_i_list(&a,3,lf[132],lf[384],t130); -t132=C_a_i_list(&a,5,lf[132],lf[385],t126,t128,t131); -t133=C_a_i_list(&a,8,lf[386],lf[227],lf[387],t121,lf[388],t122,t124,t132); -t134=C_a_i_list(&a,31,t42,t43,t46,t49,t50,t52,t54,t56,t57,t58,t62,t70,t72,t74,t83,t88,t90,t92,t96,t98,t103,t104,t106,t108,t111,t113,t115,t116,t118,t120,t133); -t135=C_a_i_cons(&a,2,t41,t134); -t136=C_a_i_cons(&a,2,t40,t135); -t137=C_a_i_cons(&a,2,t38,t136); -t138=C_a_i_cons(&a,2,t37,t137); -t139=C_a_i_cons(&a,2,t36,t138); -t140=C_a_i_cons(&a,2,t35,t139); -t141=C_a_i_cons(&a,2,t34,t140); -t142=C_a_i_cons(&a,2,t33,t141); -t143=C_a_i_cons(&a,2,t32,t142); -t144=C_a_i_cons(&a,2,t31,t143); -t145=C_a_i_cons(&a,2,t30,t144); -t146=C_a_i_cons(&a,2,t29,t145); -t147=C_a_i_cons(&a,2,t28,t146); -t148=C_a_i_cons(&a,2,t27,t147); -t149=C_a_i_cons(&a,2,t26,t148); -t150=C_a_i_cons(&a,2,t25,t149); -t151=C_a_i_cons(&a,2,t24,t150); -t152=C_a_i_cons(&a,2,t23,t151); -t153=C_a_i_cons(&a,2,t22,t152); -t154=C_a_i_cons(&a,2,t21,t153); -t155=C_a_i_cons(&a,2,t20,t154); -t156=C_a_i_cons(&a,2,t19,t155); -t157=C_a_i_cons(&a,2,t18,t156); -t158=C_a_i_cons(&a,2,t17,t157); -t159=C_a_i_cons(&a,2,t16,t158); -t160=C_a_i_cons(&a,2,t15,t159); -t161=C_a_i_cons(&a,2,t14,t160); -t162=C_a_i_cons(&a,2,t11,t161); -t163=C_mutate(&lf[249] /* (set! chicken.irregex#sre-named-definitions ...) */,t162); -t164=C_mutate(&lf[389] /* (set! chicken.irregex#nfa-get-epsilons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20580,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp)); -t165=C_mutate(&lf[390] /* (set! chicken.irregex#nfa-add-epsilon! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20614,a[2]=((C_word)li266),tmp=(C_word)a,a+=3,tmp)); -t166=C_mutate(&lf[269] /* (set! chicken.irregex#sre->nfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20755,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp)); -t167=C_mutate(&lf[397] /* (set! chicken.irregex#make-mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21878,a[2]=((C_word)li278),tmp=(C_word)a,a+=3,tmp)); -t168=C_mutate(&lf[398] /* (set! chicken.irregex#mst-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21907,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp)); -t169=C_mutate(&lf[399] /* (set! chicken.irregex#nfa-state->mst ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21924,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp)); -t170=C_mutate(&lf[400] /* (set! chicken.irregex#mst-add! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21933,a[2]=((C_word)li283),tmp=(C_word)a,a+=3,tmp)); -t171=C_mutate(&lf[401] /* (set! chicken.irregex#mst-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22285,a[2]=((C_word)li285),tmp=(C_word)a,a+=3,tmp)); -t172=C_mutate(&lf[268] /* (set! chicken.irregex#nfa->dfa ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22367,a[2]=((C_word)li299),tmp=(C_word)a,a+=3,tmp)); -t173=C_mutate(&lf[404] /* (set! chicken.irregex#nfa-epsilon-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23052,a[2]=((C_word)li306),tmp=(C_word)a,a+=3,tmp)); -t174=C_mutate(&lf[403] /* (set! chicken.irregex#tag-set-commands-for-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23067,a[2]=((C_word)li311),tmp=(C_word)a,a+=3,tmp)); -t175=C_mutate(&lf[224] /* (set! chicken.irregex#sre-cset->procedure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26166,a[2]=((C_word)li313),tmp=(C_word)a,a+=3,tmp)); -t176=C_mutate(&lf[217] /* (set! chicken.irregex#cset->plist ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26379,a[2]=((C_word)li315),tmp=(C_word)a,a+=3,tmp)); -t177=C_mutate(&lf[392] /* (set! chicken.irregex#string->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26470,a[2]=((C_word)li317),tmp=(C_word)a,a+=3,tmp)); -t178=C_mutate(&lf[173] /* (set! chicken.irregex#sre->cset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26490,a[2]=((C_word)li327),tmp=(C_word)a,a+=3,tmp)); -t179=C_mutate(&lf[297] /* (set! chicken.irregex#cset-contains? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26957,a[2]=((C_word)li329),tmp=(C_word)a,a+=3,tmp)); -t180=C_mutate(&lf[409] /* (set! chicken.irregex#char-ranges-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27042,a[2]=((C_word)li330),tmp=(C_word)a,a+=3,tmp)); -t181=C_mutate(&lf[163] /* (set! chicken.irregex#cset-union ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27078,a[2]=((C_word)li332),tmp=(C_word)a,a+=3,tmp)); -t182=C_mutate(&lf[405] /* (set! chicken.irregex#cset-difference ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27273,a[2]=((C_word)li334),tmp=(C_word)a,a+=3,tmp)); -t183=C_mutate(&lf[406] /* (set! chicken.irregex#cset-intersection ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27469,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); -t184=C_mutate(&lf[165] /* (set! chicken.irregex#cset-complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27595,a[2]=((C_word)li337),tmp=(C_word)a,a+=3,tmp)); -t185=C_mutate(&lf[166] /* (set! chicken.irregex#cset-case-insensitive ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27605,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp)); -t186=C_mutate(&lf[411] /* (set! chicken.irregex#irregex-fold/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27736,a[2]=((C_word)li342),tmp=(C_word)a,a+=3,tmp)); -t187=C_mutate((C_word*)lf[416]+1 /* (set! chicken.irregex#irregex-fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27954,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp)); -t188=C_mutate(&lf[418] /* (set! chicken.irregex#irregex-fold/chunked/fast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27982,a[2]=((C_word)li347),tmp=(C_word)a,a+=3,tmp)); -t189=C_mutate((C_word*)lf[421]+1 /* (set! chicken.irregex#irregex-fold/chunked ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28164,a[2]=((C_word)li349),tmp=(C_word)a,a+=3,tmp)); -t190=C_mutate((C_word*)lf[423]+1 /* (set! chicken.irregex#irregex-replace ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28192,a[2]=((C_word)li350),tmp=(C_word)a,a+=3,tmp)); -t191=C_mutate((C_word*)lf[427]+1 /* (set! chicken.irregex#irregex-replace/all ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28268,a[2]=((C_word)li353),tmp=(C_word)a,a+=3,tmp)); -t192=C_mutate(&lf[424] /* (set! chicken.irregex#irregex-apply-match ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28361,a[2]=((C_word)li356),tmp=(C_word)a,a+=3,tmp)); -t193=C_mutate((C_word*)lf[434]+1 /* (set! chicken.irregex#irregex-extract ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28592,a[2]=((C_word)li359),tmp=(C_word)a,a+=3,tmp)); -t194=C_mutate((C_word*)lf[437]+1 /* (set! chicken.irregex#irregex-split ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28627,a[2]=((C_word)li363),tmp=(C_word)a,a+=3,tmp)); -t195=C_mutate(&lf[55] /* (set! chicken.irregex#string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28825,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp)); -t196=C_mutate((C_word*)lf[441]+1 /* (set! chicken.irregex#irregex-quote ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28868,a[2]=((C_word)li367),tmp=(C_word)a,a+=3,tmp)); -t197=C_mutate((C_word*)lf[444]+1 /* (set! chicken.irregex#irregex-opt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28925,a[2]=((C_word)li372),tmp=(C_word)a,a+=3,tmp)); -t198=C_mutate(&lf[448] /* (set! chicken.irregex#cset->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29192,a[2]=((C_word)li374),tmp=(C_word)a,a+=3,tmp)); -t199=C_mutate((C_word*)lf[453]+1 /* (set! chicken.irregex#sre->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29272,a[2]=((C_word)li384),tmp=(C_word)a,a+=3,tmp)); -t200=lf[54] /* chicken.irregex#*allow-utf8-mode?* */ =C_SCHEME_FALSE;; -t201=C_mutate((C_word*)lf[487]+1 /* (set! chicken.irregex#glob->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30056,a[2]=((C_word)li387),tmp=(C_word)a,a+=3,tmp)); -t202=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t202; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t202+1)))(2,av2);}} - -/* chicken.irregex#irregex-search in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_18918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_18918,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_18922,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t6=C_i_stringp(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:1975: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[289]; -av2[3]=lf[292]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_18922(2,av2);}}} - -/* k18920 in chicken.irregex#irregex-search in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_18922(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_18922,c,av);} -a=C_alloc(6); -t2=C_i_pairp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); -t4=(C_truep(t3)?t3:C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18931,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); -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t6=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])); -t7=t5; -f_18931(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE));} -else{ -t6=t5; -f_18931(t6,C_SCHEME_FALSE);}} - -/* k18929 in k18920 in chicken.irregex#irregex-search in k18914 in k7753 in k7522 in k7519 */ -static void f_18931(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_18931,2,t0,t1);} -a=C_alloc(7); -t2=(C_truep(t1)?t1:C_i_string_length(((C_word*)t0)[2])); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18937,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_integerp(((C_word*)t0)[3]))){ -t4=C_i_exactp(((C_word*)t0)[3]); -if(C_truep(C_i_not(t4))){ -/* irregex-core.scm:1979: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[289]; -av2[3]=lf[291]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=t3;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_UNDEFINED; -f_18937(2,av2);}}} -else{ -/* irregex-core.scm:1979: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[289]; -av2[3]=lf[291]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k18935 in k18929 in k18920 in chicken.irregex#irregex-search in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_18937(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_18937,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18940,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_integerp(((C_word*)t0)[4]))){ -t3=C_i_exactp(((C_word*)t0)[4]); -if(C_truep(C_i_not(t3))){ -/* irregex-core.scm:1981: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[289]; -av2[3]=lf[290]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_18940(2,av2);}}} -else{ -/* irregex-core.scm:1981: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[289]; -av2[3]=lf[290]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k18938 in k18935 in k18929 in k18920 in chicken.irregex#irregex-search in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_18940(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_18940,c,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:1982: irregex-search/chunked */ -t3=*((C_word*)lf[288]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=lf[286]; -av2[4]=t2; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* chicken.irregex#irregex-search/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_19008,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_19012,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:1988: irregex */ -t7=*((C_word*)lf[218]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k19010 in chicken.irregex#irregex-search/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19012(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19012,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19015,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],tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:1989: irregex-new-matches */ -f_7614(t2,t1);} - -/* k19013 in k19010 in chicken.irregex#irregex-search/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19015(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_19015,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19018,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_i_pairp(((C_word*)t0)[6]))){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_u_i_car(((C_word*)t0)[6]); -f_19018(2,av2);}} -else{ -/* irregex-core.scm:1990: g3238 */ -t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(2));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k19016 in k19013 in k19010 in chicken.irregex#irregex-search/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19018(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19018,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19021,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_i_not(C_i_integerp(t1)))){ -/* irregex-core.scm:1991: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[289]; -av2[3]=lf[294]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_19021(2,av2);}}} - -/* k19019 in k19016 in k19013 in k19010 in chicken.irregex#irregex-search/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_19021,c,av);} -a=C_alloc(3); -t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),((C_word*)t0)[3]); -t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); -/* irregex-core.scm:1993: irregex-search/matches */ -f_19051(((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[2]);} - -/* chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void f_19051(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(20,0,9)))){ -C_save_and_reclaim_args((void *)trf_19051,7,t1,t2,t3,t4,t5,t6,t7);} -a=C_alloc(20); -t8=C_i_check_structure_2(t2,lf[6],lf[295]); -if(C_truep(C_slot(t2,C_fix(1)))){ -t9=C_slot(t2,C_fix(4)); -t10=C_fixnum_and(t9,C_fix(1)); -t11=C_eqp(C_fix(1),t10); -if(C_truep(t11)){ -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19070,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:2003: dfa-match/longest */ -f_19933(t12,C_slot(t2,C_fix(1)),t3,t5,t6,C_SCHEME_FALSE,C_SCHEME_FALSE,t7,C_fix(0));} -else{ -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19095,a[2]=t2,a[3]=t3,a[4]=t7,a[5]=t1,a[6]=t5,a[7]=t6,tmp=(C_word)a,a+=8,tmp); -t13=C_slot(t2,C_fix(2)); -t14=C_i_vector_ref(t3,C_fix(1)); -t15=C_i_vector_ref(t3,C_fix(2)); -t16=C_i_vector_ref(t3,C_fix(3)); -t17=C_i_vector_ref(t3,C_fix(0)); -t18=C_i_vector_ref(t13,C_fix(0)); -t19=C_i_cadr(t18); -t20=C_i_cadr(t19); -t21=C_i_vector_ref(t13,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|9,a[1]=(C_word)f_19676,a[2]=t7,a[3]=t13,a[4]=t23,a[5]=t15,a[6]=t17,a[7]=t16,a[8]=t14,a[9]=((C_word)li238),tmp=(C_word)a,a+=10,tmp)); -t25=((C_word*)t23)[1]; -f_19676(t25,t12,t5,t6,t21);}} -else{ -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19182,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t10=C_i_check_structure_2(t2,lf[6],lf[298]); -t11=C_slot(t2,C_fix(3)); -t12=C_i_vector_ref(t3,C_fix(1)); -t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_19200,a[2]=t3,a[3]=t2,a[4]=t11,a[5]=t9,a[6]=t4,a[7]=t5,a[8]=t6,a[9]=t7,tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:2036: g3306 */ -t14=t12;{ -C_word av2[3]; -av2[0]=t14; -av2[1]=t13; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}}} - -/* k19068 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19070(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_19070,c,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)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k19093 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19095(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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,4)))){ -C_save_and_reclaim((void *)f_19095,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_i_vector_ref(((C_word*)t0)[3],C_fix(2)); -t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(3)); -t5=C_i_vector_ref(((C_word*)t0)[3],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|9,a[1]=(C_word)f_19112,a[2]=((C_word*)t0)[4],a[3]=t7,a[4]=t3,a[5]=t5,a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=t4,a[9]=((C_word)li235),tmp=(C_word)a,a+=10,tmp)); -t9=((C_word*)t7)[1]; -f_19112(t9,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* lp1 in k19093 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void f_19112(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_19112,4,t0,t1,t2,t3);} -a=C_alloc(11); -t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19116,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:2016: 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);}} - -/* k19114 in lp1 in k19093 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19116(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_19116,c,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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19121,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=t3,a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word)li234),tmp=(C_word)a,a+=12,tmp)); -t5=((C_word*)t3)[1]; -f_19121(t5,((C_word*)t0)[9],((C_word*)t0)[10]);} - -/* lp2 in k19114 in lp1 in k19093 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void f_19121(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_19121,3,t0,t1,t2);} -a=C_alloc(11); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19128,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:2019: dfa-match/longest */ -f_19933(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));} - -/* k19126 in lp2 in k19114 in lp1 in k19093 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_19128,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]); -t4=C_slot(((C_word*)t0)[2],C_fix(1)); -t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]); -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[4],((C_word*)t0)[6]))){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19151,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:2024: get-next */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -/* irregex-core.scm:2027: lp2 */ -t2=((C_word*)((C_word*)t0)[10])[1]; -f_19121(t2,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));}}} - -/* k19149 in k19126 in lp2 in k19114 in lp1 in k19093 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19151(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_19151,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19161,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2025: get-start */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k19159 in k19149 in k19126 in lp2 in k19114 in lp1 in k19093 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19161(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19161,c,av);} -/* irregex-core.scm:2025: lp1 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_19112(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k19180 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19182(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_19182,c,av);} -if(C_truep(t1)){ -t2=C_i_set_i_slot(t1,C_fix(4),C_SCHEME_FALSE); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19200(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_19200,c,av);} -a=C_alloc(11); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19206,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:2036: g3308 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19206(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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,9)))){ -C_save_and_reclaim((void *)f_19206,c,av);} -a=C_alloc(11); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); -t3=C_slot(((C_word*)t0)[3],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|2,a[1]=(C_word)f_19220,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:2041: matcher */ -t7=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t7; -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]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(10,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|8,a[1]=(C_word)f_19226,a[2]=((C_word*)t0)[10],a[3]=t7,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[6],a[8]=((C_word)li241),tmp=(C_word)a,a+=9,tmp)); -t9=((C_word*)t7)[1]; -f_19226(t9,((C_word*)t0)[5],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t1);}} - -/* a19219 in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -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 *a; -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_19220,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* lp in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void f_19226(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_19226,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(14); -t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_19233,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_19292,a[2]=((C_word)li240),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:2047: 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);}} - -/* k19231 in lp in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19233(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_19233,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_i_vector_set(t2,C_fix(0),((C_word*)t0)[3]); -t4=C_slot(((C_word*)t0)[2],C_fix(1)); -t5=C_i_vector_set(t4,C_fix(1),((C_word*)t0)[4]); -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],((C_word*)t0)[6]))){ -/* irregex-core.scm:2052: lp */ -t2=((C_word*)((C_word*)t0)[7])[1]; -f_19226(t2,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[8],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),((C_word*)t0)[6]);} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19263,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:2054: get-next */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} - -/* k19261 in k19231 in lp in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19263(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_19263,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19276,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); -/* irregex-core.scm:2056: g3327 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k19274 in k19261 in k19231 in lp in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_19276,c,av);} -a=C_alloc(7); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19283,a[2]=((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); -/* irregex-core.scm:2056: g3329 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19281 in k19274 in k19261 in k19231 in lp in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19283(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_19283,c,av);} -a=C_alloc(7); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19290,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2056: g3331 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19288 in k19281 in k19274 in k19261 in k19231 in lp in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_19290,c,av);} -/* irregex-core.scm:2056: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_19226(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} - -/* a19291 in lp in k19204 in k19198 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -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 *a; -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_19292,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.irregex#irregex-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19300(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19300,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_19304,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t6=C_i_stringp(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:2063: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[301]; -av2[3]=lf[304]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_19304(2,av2);}}} - -/* k19302 in chicken.irregex#irregex-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19304(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_19304,c,av);} -a=C_alloc(6); -t2=C_i_pairp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); -t4=(C_truep(t3)?t3:C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19313,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); -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t6=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])); -t7=t5; -f_19313(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[2]):C_SCHEME_FALSE));} -else{ -t6=t5; -f_19313(t6,C_SCHEME_FALSE);}} - -/* k19311 in k19302 in chicken.irregex#irregex-match in k18914 in k7753 in k7522 in k7519 */ -static void f_19313(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_19313,2,t0,t1);} -a=C_alloc(7); -t2=(C_truep(t1)?t1:C_i_string_length(((C_word*)t0)[2])); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_integerp(((C_word*)t0)[3]))){ -t4=C_i_exactp(((C_word*)t0)[3]); -if(C_truep(C_i_not(t4))){ -/* irregex-core.scm:2067: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[301]; -av2[3]=lf[303]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=t3;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_UNDEFINED; -f_19319(2,av2);}}} -else{ -/* irregex-core.scm:2067: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[301]; -av2[3]=lf[303]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k19317 in k19311 in k19302 in chicken.irregex#irregex-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19319(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_19319,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19322,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_integerp(((C_word*)t0)[4]))){ -t3=C_i_exactp(((C_word*)t0)[4]); -if(C_truep(C_i_not(t3))){ -/* irregex-core.scm:2069: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[301]; -av2[3]=lf[302]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=C_a_i_list3(&a,3,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); -/* irregex-core.scm:2070: irregex-match/chunked */ -t5=*((C_word*)lf[300]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=lf[286]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} -else{ -/* irregex-core.scm:2069: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[301]; -av2[3]=lf[302]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k19320 in k19317 in k19311 in k19302 in chicken.irregex#irregex-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19322,c,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:2070: irregex-match/chunked */ -t3=*((C_word*)lf[300]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=lf[286]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19390(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_19390,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19394,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2075: irregex */ -t6=*((C_word*)lf[218]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19394(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19394,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19397,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); -/* irregex-core.scm:2076: irregex-new-matches */ -f_7614(t2,t1);} - -/* k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19397(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_19397,c,av);} -a=C_alloc(13); -t2=C_i_setslot(t1,C_fix(3),((C_word*)t0)[2]); -if(C_truep(C_slot(((C_word*)t0)[3],C_fix(1)))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19412,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -t4=C_slot(((C_word*)t0)[3],C_fix(1)); -t5=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19482,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2081: g3365 */ -t7=t5;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -t3=C_slot(((C_word*)t0)[3],C_fix(3)); -t4=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19492,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2092: g3385 */ -t6=t4;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* k19410 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19412(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_19412,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19446,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); -t4=C_slot(((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:2083: g3368 */ -t5=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=C_slot(t4,C_fix(2)); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k19433 in k19444 in k19410 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19435(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_19435,c,av);} -t2=C_i_vector_set(((C_word*)t0)[2],C_fix(1),t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k19444 in k19410 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -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 t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_19446,c,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_slot(t2,C_fixnum_plus(C_fix(3),t3)); -t5=C_eqp(t1,t4); -if(C_truep(t5)){ -t6=C_slot(((C_word*)t0)[2],C_fix(1)); -t7=C_i_vector_set(t6,C_fix(0),((C_word*)t0)[3]); -t8=C_slot(((C_word*)t0)[2],C_fix(1)); -t9=C_i_vector_ref(((C_word*)t0)[4],C_fix(2)); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19435,a[2]=t8,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2087: g3379 */ -t11=t9;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t11; -av2[1]=t10; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} -else{ -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k19480 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ -C_save_and_reclaim((void *)f_19482,c,av);} -/* irregex-core.scm:2081: dfa-match/longest */ -f_19933(((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));} - -/* k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_19492,c,av);} -a=C_alloc(8); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19498,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:2092: g3388 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19498(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_19498,c,av);} -a=C_alloc(9); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_19504,a[2]=((C_word*)t0)[3],a[3]=t1,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:2092: g3391 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,9)))){ -C_save_and_reclaim((void *)f_19504,c,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_19514,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_19613,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:2097: matcher */ -t5=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -av2[4]=((C_word*)t0)[2]; -av2[5]=((C_word*)t0)[7]; -av2[6]=((C_word*)t0)[3]; -av2[7]=t1; -av2[8]=((C_word*)t0)[8]; -av2[9]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}} - -/* k19512 in k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19514(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_19514,c,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_19516,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li244),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_19516(t5,((C_word*)t0)[3],t1);} - -/* lp in k19512 in k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void f_19516(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ -C_save_and_reclaim_args((void *)trf_19516,3,t0,t1,t2);} -a=C_alloc(10); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19526,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19590,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t6=C_slot(t2,C_fix(1)); -/* irregex-core.scm:2100: g3402 */ -t7=t4;{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t5; -av2[2]=C_slot(t6,C_fix(2)); -((C_proc)(void*)(*((C_word*)t7+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);}}} - -/* k19524 in lp in k19512 in k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void f_19526(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_19526,2,t0,t1);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_slot(((C_word*)t0)[2],C_fix(4)))){ -t2=C_slot(((C_word*)t0)[2],C_fix(4)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19545,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2108: g3415 */ -t4=t2;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=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);}}}} - -/* k19543 in k19524 in lp in k19512 in k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_19545,c,av);} -/* irregex-core.scm:2108: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_19516(t2,((C_word*)t0)[3],t1);} - -/* k19556 in k19588 in lp in k19512 in k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19558(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_19558,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_fixnum_times(C_fix(0),C_fix(4)); -t4=((C_word*)t0)[3]; -f_19526(t4,C_eqp(t1,C_slot(t2,C_fixnum_plus(C_fix(3),t3))));} - -/* k19588 in lp in k19512 in k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19590(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_19590,c,av);} -a=C_alloc(4); -if(C_truep(C_i_not(t1))){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19558,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -t4=C_slot(((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:2102: g3408 */ -t5=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=C_slot(t4,C_fix(2)); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[4]; -f_19526(t2,C_SCHEME_FALSE);}} - -/* a19612 in k19502 in k19496 in k19490 in k19395 in k19392 in chicken.irregex#irregex-match/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19613(C_word c,C_word *av){ -C_word tmp; -C_word 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_19613,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.irregex#irregex-match? in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_19618,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_19625,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t3; -av2[2]=*((C_word*)lf[299]+1); -av2[3]=t2; -C_apply(4,av2);}} - -/* k19623 in chicken.irregex#irregex-match? in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19625(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_19625,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void f_19676(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_19676,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_19683,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:2139: 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);}}} - -/* k19681 in lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19683(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_19683,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19686,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:2140: get-end */ -t3=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k19684 in k19681 in lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19686(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_19686,c,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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_19691,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,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)li237),tmp=(C_word)a,a+=12,tmp)); -t5=((C_word*)t3)[1]; -f_19691(t5,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} - -/* lp2 in k19684 in k19681 in lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void f_19691(C_word t0,C_word t1,C_word 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(10,0,3)))){ -C_save_and_reclaim_args((void *)trf_19691,4,t0,t1,t2,t3);} -a=C_alloc(10); -if(C_truep(C_i_car(t3))){ -t4=C_slot(((C_word*)t0)[2],C_fix(1)); -t5=C_i_vector_set(t4,C_fix(2),((C_word*)t0)[3]); -t6=C_slot(((C_word*)t0)[2],C_fix(1)); -t7=C_i_vector_set(t6,C_fix(3),t2); -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[4]))){ -t4=C_i_string_ref(((C_word*)t0)[5],t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19743,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=((C_word*)t0)[7],tmp=(C_word)a,a+=6,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19758,a[2]=t4,a[3]=((C_word)li236),tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2151: find */ -f_9190(t5,t6,C_i_cdr(t3));} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19794,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:2158: get-next */ -t5=((C_word*)t0)[10];{ -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);}}}} - -/* k19741 in lp2 in k19684 in k19681 in lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19743(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_19743,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -t3=C_i_cadr(t1); -/* irregex-core.scm:2156: lp2 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_19691(t4,((C_word*)t0)[4],t2,C_i_vector_ref(((C_word*)t0)[5],t3));} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* a19757 in lp2 in k19684 in k19681 in lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19758(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19758,c,av);} -t3=C_i_car(t2); -t4=C_eqp(((C_word*)t0)[2],t3); -if(C_truep(t4)){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_charp(C_u_i_car(t2)); -if(C_truep(C_i_not(t5))){ -/* irregex-core.scm:2154: cset-contains? */ -f_26957(t1,C_u_i_car(t2),((C_word*)t0)[2]);} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} - -/* k19792 in lp2 in k19684 in k19681 in lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19794(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19794,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19804,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); -/* irregex-core.scm:2159: get-start */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k19802 in k19792 in lp2 in k19684 in k19681 in lp1 in chicken.irregex#irregex-search/matches in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19804(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_19804,c,av);} -/* irregex-core.scm:2159: lp1 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_19676(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} - -/* chicken.irregex#finalize! in k18914 in k7753 in k7522 in k7519 */ -static void f_19814(C_word 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_19814,4,t1,t2,t3,t4);} -a=C_alloc(12); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19816,a[2]=t3,a[3]=t4,a[4]=((C_word)li248),tmp=(C_word)a,a+=5,tmp); -t6=C_i_check_list_2(t2,lf[307]); -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_19874,a[2]=t5,a[3]=t8,a[4]=((C_word)li249),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_19874(t10,t1,t2);} - -/* g3489 in chicken.irregex#finalize! in k18914 in k7753 in k7522 in k7519 */ -static C_word f_19816(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_stack_overflow_check;{} -t2=C_i_car(t1); -t3=C_i_vector_ref(((C_word*)t0)[2],C_u_i_cdr(t1)); -t4=C_i_vector_ref(t3,t2); -t5=C_slot(((C_word*)t0)[3],C_fix(1)); -t6=C_a_i_fixnum_times(&a,2,t2,C_fix(2)); -t7=C_s_a_u_i_integer_plus(&a,2,C_fix(4),t6); -t8=(C_truep(t4)?C_i_vector_set(t5,t7,C_i_car(t4)):C_i_vector_set(t5,t7,C_SCHEME_FALSE)); -t9=C_slot(((C_word*)t0)[3],C_fix(1)); -t10=C_a_i_fixnum_times(&a,2,t2,C_fix(2)); -t11=C_s_a_u_i_integer_plus(&a,2,C_fix(5),t10); -return((C_truep(t4)?C_i_vector_set(t9,t11,C_i_cdr(t4)):C_i_vector_set(t9,t11,C_SCHEME_FALSE)));} - -/* for-each-loop3488 in chicken.irregex#finalize! in k18914 in k7753 in k7522 in k7519 */ -static void f_19874(C_word 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; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ -C_save_and_reclaim_args((void *)trf_19874,3,t0,t1,t2);} -a=C_alloc(20); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* irregex-core.scm:2162: g3489 */ - f_19816(C_a_i(&a,20),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t5=t1; -t6=C_slot(t2,C_fix(1)); -t1=t5; -t2=t6; -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);}}} - -/* k19900 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19902(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_19902,c,av);} -a=C_alloc(10); -t2=C_a_i_fixnum_times(&a,2,t1,C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19906,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:2174: scheme#make-vector */ -t4=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19904 in k19900 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_19906,c,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_19911,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word)li262),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_19911(t5,((C_word*)t0)[4],C_fix(0));} - -/* doloop3519 in k19904 in k19900 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_19911(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_19911,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19931,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:2177: scheme#make-vector */ -t5=*((C_word*)lf[4]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k19929 in doloop3519 in k19904 in k19900 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19931(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_19931,c,av);} -a=C_alloc(5); -t2=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -t4=((C_word*)((C_word*)t0)[4])[1]; -f_19911(t4,((C_word*)t0)[5],t3);} - -/* chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_19933(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(20,0,2)))){ -C_save_and_reclaim_args((void *)trf_19933,9,t1,t2,t3,t4,t5,t6,t7,t8,t9);} -a=C_alloc(20); -t10=C_i_vector_ref(t3,C_fix(1)); -t11=C_i_vector_ref(t3,C_fix(2)); -t12=C_i_vector_ref(t3,C_fix(3)); -t13=C_i_vector_ref(t3,C_fix(0)); -t14=C_i_vector_ref(t2,C_fix(0)); -t15=C_i_car(t14); -t16=C_i_not(C_i_zerop(t15)); -t17=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_19958,a[2]=t14,a[3]=t2,a[4]=t4,a[5]=t5,a[6]=t11,a[7]=t9,a[8]=t8,a[9]=t6,a[10]=t13,a[11]=t16,a[12]=t7,a[13]=t12,a[14]=t10,a[15]=t1,tmp=(C_word)a,a+=16,tmp); -t18=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19902,a[2]=t15,a[3]=t17,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2173: irregex-match-num-submatches */ -t19=*((C_word*)lf[17]+1);{ -C_word av2[3]; -av2[0]=t19; -av2[1]=t18; -av2[2]=t8; -((C_proc)(void*)(*((C_word*)t19+1)))(3,av2);}} - -/* k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19958(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_19958,c,av);} -a=C_alloc(19); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_cadr(t2); -t4=C_i_vector_ref(((C_word*)t0)[3],t3); -t5=C_i_car(t4); -t6=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_19970,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]=t1,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]=t4,a[18]=t2,tmp=(C_word)a,a+=19,tmp); -if(C_truep(((C_word*)t0)[7])){ -t7=C_slot(((C_word*)t0)[8],C_fix(1)); -t8=C_fixnum_times(((C_word*)t0)[7],C_fix(4)); -t9=C_fixnum_plus(C_fix(2),t8); -t10=C_i_vector_set(t7,t9,C_SCHEME_FALSE); -t11=C_slot(((C_word*)t0)[8],C_fix(1)); -t12=C_fixnum_times(((C_word*)t0)[7],C_fix(4)); -t13=t6; -f_19970(t13,C_i_vector_set(t11,C_fixnum_plus(C_fix(3),t12),C_SCHEME_FALSE));} -else{ -t7=t6; -f_19970(t7,C_SCHEME_UNDEFINED);}} - -/* k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_19970(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -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_19970,2,t0,t1);} -a=C_alloc(31); -t2=(*a=C_CLOSURE_TYPE|17,a[1]=(C_word)f_19973,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],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_20427,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li260),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[307]); -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_20455,a[2]=t3,a[3]=t8,a[4]=((C_word)li261),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_20455(t10,t2,t5);} -else{ -t3=t2;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_19973(2,av2);}}} - -/* k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19973(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_19973,c,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_19986,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)li259),tmp=(C_word)a,a+=15,tmp)); -t7=((C_word*)t5)[1]; -f_19986(t7,((C_word*)t0)[16],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[17],t2,t3,((C_word*)t0)[2]);} - -/* lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_19986(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_19986,8,t0,t1,t2,t3,t4,t5,t6,t7);} -a=C_alloc(20); -t8=(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_19990,a[2]=((C_word*)t0)[2],a[3]=((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:2208: 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);}} - -/* k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19990(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,2)))){ -C_save_and_reclaim((void *)f_19990,c,av);} -a=C_alloc(19); -t2=(*a=C_CLOSURE_TYPE|18,a[1]=(C_word)f_19993,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,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); -t3=C_eqp(((C_word*)t0)[7],((C_word*)t0)[8]); -if(C_truep(t3)){ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[18]; -f_19993(2,av2);}} -else{ -/* irregex-core.scm:2209: get-end */ -t4=((C_word*)t0)[19];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_19993(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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,7)))){ -C_save_and_reclaim((void *)f_19993,c,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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_19998,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]=t3,a[14]=((C_word*)t0)[12],a[15]=((C_word)li258),tmp=(C_word)a,a+=16,tmp)); -t5=((C_word*)t3)[1]; -f_19998(t5,((C_word*)t0)[13],((C_word*)t0)[14],((C_word*)t0)[15],((C_word*)t0)[16],((C_word*)t0)[17],((C_word*)t0)[18]);} - -/* lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_19998(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(18,0,3)))){ -C_save_and_reclaim_args((void *)trf_19998,7,t0,t1,t2,t3,t4,t5,t6);} -a=C_alloc(18); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ -t7=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_20008,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); -t8=(C_truep(((C_word*)t0)[5])?t4:C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=C_slot(((C_word*)t0)[6],C_fix(1)); -t10=C_fixnum_times(((C_word*)t0)[5],C_fix(4)); -t11=C_fixnum_plus(C_fix(2),t10); -t12=C_i_vector_set(t9,t11,t4); -t13=C_slot(((C_word*)t0)[6],C_fix(1)); -t14=C_fixnum_times(((C_word*)t0)[5],C_fix(4)); -t15=t7; -f_20008(t15,C_i_vector_set(t13,C_fixnum_plus(C_fix(3),t14),t5));} -else{ -t9=t7; -f_20008(t9,C_SCHEME_UNDEFINED);}} -else{ -t7=C_i_string_ref(((C_word*)t0)[11],t2); -t8=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20108,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); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20387,a[2]=t7,a[3]=((C_word)li257),tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2230: find */ -f_9190(t8,t9,C_i_cdr(t3));}} - -/* k20006 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20008(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_20008,2,t0,t1);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_20011,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); -t3=C_eqp(((C_word*)t0)[12],((C_word*)t0)[13]); -if(C_truep(C_i_not(t3))){ -/* irregex-core.scm:2221: get-next */ -t4=((C_word*)t0)[14];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[12]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t4=t2;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_20011(2,av2);}}} - -/* k20009 in k20006 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20011(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_20011,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:2223: get-start */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -if(C_truep(((C_word*)t0)[9])){ -t2=C_slot(((C_word*)t0)[10],C_fix(1)); -t3=C_fixnum_times(((C_word*)t0)[9],C_fix(4)); -t4=C_fixnum_plus(C_fix(2),t3); -if(C_truep(C_slot(t2,t4))){ -t5=C_i_not(((C_word*)t0)[7]); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20056,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -if(C_truep(t5)){ -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(C_truep(t5)?C_SCHEME_TRUE:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -/* irregex-core.scm:2226: finalize! */ -f_19814(t6,((C_word*)t0)[7],((C_word*)t0)[11],((C_word*)t0)[10]);}} -else{ -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}}} - -/* k20019 in k20009 in k20006 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_20021,c,av);} -/* irregex-core.scm:2223: lp1 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_19986(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]);} - -/* k20054 in k20009 in k20006 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_20056,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20108(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,4)))){ -C_save_and_reclaim((void *)f_20108,c,av);} -a=C_alloc(17); -if(C_truep(t1)){ -t2=C_i_cadr(t1); -t3=C_i_vector_ref(((C_word*)t0)[2],t2); -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20120,a[2]=t4,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); -if(C_truep(((C_word*)t0)[9])){ -t6=C_i_cddr(t1); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20144,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=t6,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -if(C_truep(((C_word*)t0)[11])){ -if(C_truep(C_i_not(t4))){ -/* irregex-core.scm:2245: finalize! */ -f_19814(t7,((C_word*)t0)[11],((C_word*)t0)[10],((C_word*)t0)[12]);} -else{ -t8=t7;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -f_20144(2,av2);}}} -else{ -t8=t7;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -f_20144(2,av2);}}} -else{ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_20120(2,av2);}}} -else{ -if(C_truep(((C_word*)t0)[7])){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20317,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=t2; -f_20317(t9,C_i_vector_set(t7,C_fixnum_plus(C_fix(3),t8),((C_word*)t0)[8]));} -else{ -t3=t2; -f_20317(t3,C_SCHEME_UNDEFINED);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20359,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=t2; -f_20359(t5,C_slot(t3,C_fixnum_plus(C_fix(2),t4)));} -else{ -t3=t2; -f_20359(t3,C_SCHEME_FALSE);}}}} - -/* k20118 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20120(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,6)))){ -C_save_and_reclaim((void *)f_20120,c,av);} -a=C_alloc(10); -if(C_truep(((C_word*)t0)[2])){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:2264: lp2 */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_19998(t4,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[7],t3,((C_word*)t0)[2]);} -else{ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:2265: lp2 */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_19998(t3,((C_word*)t0)[5],t2,((C_word*)t0)[6],((C_word*)t0)[8],((C_word*)t0)[9],C_SCHEME_FALSE);}} - -/* k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20144(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_20144,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20145,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li251),tmp=(C_word)a,a+=6,tmp); -t3=C_i_cdr(((C_word*)t0)[5]); -t4=C_i_check_list_2(t3,lf[307]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20174,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_20281,a[2]=t2,a[3]=t7,a[4]=((C_word)li256),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_20281(t9,t5,t3);} - -/* g3644 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static C_word f_20145(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_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); -return(C_i_vector_set(t3,C_u_i_car(t1),t5));} - -/* k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20174(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(21,c,3)))){ -C_save_and_reclaim((void *)f_20174,c,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|3,a[1]=(C_word)f_20183,a[2]=((C_word*)t0)[2],a[3]=((C_word)li253),tmp=(C_word)a,a+=4,tmp); -t7=C_u_i_car(((C_word*)t0)[3]); -t8=C_i_check_list_2(t7,lf[212]); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20216,a[2]=((C_word*)t0)[4],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_20247,a[2]=t4,a[3]=t11,a[4]=t6,a[5]=t5,a[6]=((C_word)li255),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_20247(t13,t9,t7);} - -/* g3683 in k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20183(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_20183,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_vector_ref(t2,C_fix(0)); -t4=C_i_vector_ref(t2,C_fix(1)); -t5=C_i_vector_ref(((C_word*)t0)[2],t4); -t6=C_i_vector_ref(t2,C_fix(2)); -t7=C_i_vector_ref(((C_word*)t0)[2],t6); -t8=C_i_vector_ref(t5,t3); -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20197,a[2]=t7,a[3]=t3,a[4]=t8,a[5]=((C_word)li252),tmp=(C_word)a,a+=6,tmp); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* f_20197 in g3683 in k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20197(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -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_20197,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_vector_set(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k20214 in k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_20216,c,av);} -a=C_alloc(6); -t2=C_i_check_list_2(t1,lf[307]); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_20224,a[2]=t4,a[3]=((C_word)li254),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_20224(t6,((C_word*)t0)[2],t1);} - -/* for-each-loop3653 in k20214 in k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20224(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_20224,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20234,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2255: execute! */ -t4=C_slot(t2,C_fix(0));{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+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);}}} - -/* k20232 in for-each-loop3653 in k20214 in k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20234(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_20234,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20224(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* map-loop3677 in k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20247(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_20247,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20272,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); -/* irregex-core.scm:2256: g3683 */ -t4=((C_word*)t0)[4]; -f_20183(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k20270 in map-loop3677 in k20172 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -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 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_20272,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_20247(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* for-each-loop3643 in k20142 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20281(C_word 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; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_20281,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* irregex-core.scm:2246: g3644 */ - f_20145(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t5=t1; -t6=C_slot(t2,C_fix(1)); -t1=t5; -t2=t6; -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);}}} - -/* k20315 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20317(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_20317,2,t0,t1);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20320,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(((C_word*)t0)[3])){ -/* irregex-core.scm:2271: finalize! */ -f_19814(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);}}} - -/* k20318 in k20315 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20320(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_20320,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k20357 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20359(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_20359,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20362,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(((C_word*)t0)[3])){ -/* irregex-core.scm:2274: finalize! */ -f_19814(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);}}} - -/* k20360 in k20357 in k20106 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_20362,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a20386 in lp2 in k19991 in k19988 in lp1 in k19971 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20387(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_20387,c,av);} -t3=C_i_car(t2); -t4=C_eqp(((C_word*)t0)[2],t3); -if(C_truep(t4)){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_charp(C_u_i_car(t2)); -if(C_truep(C_i_not(t5))){ -/* irregex-core.scm:2233: cset-contains? */ -f_26957(t1,C_u_i_car(t2),((C_word*)t0)[2]);} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} - -/* g3560 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static C_word f_20427(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_cdr(t1); -t3=C_i_vector_ref(((C_word*)t0)[2],t2); -t4=C_u_i_car(t1); -t5=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -return(C_i_vector_set(t3,t4,t5));} - -/* for-each-loop3559 in k19968 in k19956 in chicken.irregex#dfa-match/longest in k18914 in k7753 in k7522 in k7519 */ -static void f_20455(C_word 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; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_20455,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* irregex-core.scm:2198: g3560 */ - f_20427(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t5=t1; -t6=C_slot(t2,C_fix(1)); -t1=t5; -t2=t6; -goto loop;} -else{ -t3=C_SCHEME_UNDEFINED; -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* chicken.irregex#nfa-get-epsilons in k18914 in k7753 in k7522 in k7519 */ -static C_word f_20580(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_stack_overflow_check;{} -t3=C_eqp(t2,C_fix(0)); -if(C_truep(t3)){ -return(C_SCHEME_END_OF_LIST);} -else{ -t4=C_fixnum_times(t2,C_fix(4)); -return(C_i_vector_ref(t1,C_fixnum_plus(t4,C_fix(1))));}} - -/* chicken.irregex#nfa-add-epsilon! in k18914 in k7753 in k7522 in k7519 */ -static C_word f_20614(C_word *a,C_word 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_stack_overflow_check;{} -t5=( -/* irregex-core.scm:2431: nfa-get-epsilons */ - f_20580(t1,t2) -); -t6=C_i_assq(t3,t5); -if(C_truep(C_i_not(t6))){ -t7=C_a_i_cons(&a,2,t3,t4); -t8=C_a_i_cons(&a,2,t7,t5); -t9=C_fixnum_times(t2,C_fix(4)); -return(C_i_vector_set(t1,C_fixnum_plus(t9,C_fix(1)),t8));} -else{ -t7=C_SCHEME_UNDEFINED; -return(t7);}} - -/* chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20755(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_20755,3,t1,t2,t3);} -a=C_alloc(10); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20759,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_a_i_fixnum_times(&a,2,C_fix(128),C_fix(4)); -/* irregex-core.scm:2457: scheme#make-vector */ -t6=*((C_word*)lf[4]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20759(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_20759,c,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_20762,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_21714,a[2]=t3,a[3]=t7,a[4]=((C_word)li276),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_21714(t9,t4,t5,C_fix(0),C_SCHEME_END_OF_LIST);} - -/* k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,6)))){ -C_save_and_reclaim((void *)f_20762,c,av);} -a=C_alloc(15); -t2=C_SCHEME_UNDEFINED; -t3=(*a=C_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_20764,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t1,a[5]=((C_word)li274),tmp=(C_word)a,a+=6,tmp)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21658,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t6=C_a_i_list1(&a,1,((C_word*)t0)[4]); -/* irregex-core.scm:2674: lp */ -t7=((C_word*)t3)[1]; -f_20764(t7,t5,t6,C_fix(1),((C_word*)t0)[5],C_fix(0));} - -/* lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20764(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 *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(40,0,5)))){ -C_save_and_reclaim_args((void *)trf_20764,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_20767,a[2]=t3,a[3]=((C_word)li267),tmp=(C_word)a,a+=4,tmp)); -t15=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20777,a[2]=((C_word*)t0)[2],a[3]=((C_word)li269),tmp=(C_word)a,a+=4,tmp)); -t16=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20838,a[2]=t9,a[3]=t7,a[4]=((C_word)li270),tmp=(C_word)a,a+=5,tmp)); -t17=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20855,a[2]=t4,a[3]=t11,a[4]=((C_word)li271),tmp=(C_word)a,a+=5,tmp)); -if(C_truep(C_i_nullp(t2))){ -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_car(t2); -t19=C_eqp(lf[111],t18); -t20=(C_truep(t19)?t19:C_i_equalp(lf[391],C_u_i_car(t2))); -if(C_truep(t20)){ -t21=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20905,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t9,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:2505: lp */ -t30=t21; -t31=C_u_i_cdr(t2); -t32=t3; -t33=t4; -t34=t5; -t1=t30; -t2=t31; -t3=t32; -t4=t33; -t5=t34; -goto loop;} -else{ -if(C_truep(C_i_stringp(C_u_i_car(t2)))){ -t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20929,a[2]=t2,a[3]=t13,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2512: lp */ -t30=t21; -t31=C_u_i_cdr(t2); -t32=t3; -t33=t4; -t34=t5; -t1=t30; -t2=t31; -t3=t32; -t4=t33; -t5=t34; -goto loop;} -else{ -if(C_truep(C_charp(C_u_i_car(t2)))){ -t21=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20986,a[2]=t13,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2522: lp */ -t30=t21; -t31=C_u_i_cdr(t2); -t32=t3; -t33=t4; -t34=t5; -t1=t30; -t2=t31; -t3=t32; -t4=t33; -t5=t34; -goto loop;} -else{ -if(C_truep(C_i_symbolp(C_u_i_car(t2)))){ -t21=C_i_assq(C_u_i_car(t2),lf[249]); -if(C_truep(t21)){ -t22=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21013,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t3,a[6]=t4,a[7]=t5,tmp=(C_word)a,a+=8,tmp); -t23=C_i_cdr(t21); -if(C_truep(C_i_closurep(t23))){ -/* irregex-core.scm:2526: g3891 */ -t24=C_u_i_cdr(t21);{ -C_word av2[2]; -av2[0]=t24; -av2[1]=t22; -((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}} -else{ -t24=C_u_i_cdr(t21); -t25=C_u_i_cdr(t2); -t26=C_a_i_cons(&a,2,t24,t25); -/* irregex-core.scm:2526: lp */ -t30=t1; -t31=t26; -t32=t3; -t33=t4; -t34=t5; -t1=t30; -t2=t31; -t3=t32; -t4=t33; -t5=t34; -goto loop;}} -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{ -if(C_truep(C_i_pairp(C_u_i_car(t2)))){ -t21=C_i_caar(t2); -if(C_truep(C_i_stringp(t21))){ -t22=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21044,a[2]=t11,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,tmp=(C_word)a,a+=9,tmp); -t23=C_fixnum_and(t4,C_fix(2)); -t24=C_eqp(C_fix(2),t23); -if(C_truep(t24)){ -t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21063,a[2]=t22,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:2537: string->cset */ -f_26470(t25,C_i_caar(t2));} -else{ -/* irregex-core.scm:2538: string->cset */ -f_26470(t22,C_i_caar(t2));}} -else{ -t22=C_i_caar(t2); -t23=C_eqp(t22,lf[116]); -t24=(C_truep(t23)?t23:C_eqp(t22,lf[228])); -if(C_truep(t24)){ -t25=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21093,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -t26=C_u_i_car(t2); -/* irregex-core.scm:2544: scheme#append */ -t27=*((C_word*)lf[74]+1);{ -C_word av2[4]; -av2[0]=t27; -av2[1]=t25; -av2[2]=C_u_i_cdr(t26); -av2[3]=C_u_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}} -else{ -t25=C_eqp(t22,lf[226]); -t26=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21107,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,a[6]=t4,a[7]=t3,a[8]=t5,a[9]=t22,a[10]=t11,a[11]=t9,a[12]=((C_word*)t0)[2],a[13]=((C_word*)t0)[4],tmp=(C_word)a,a+=14,tmp); -if(C_truep(t25)){ -t27=t26; -f_21107(t27,t25);} -else{ -t27=C_eqp(t22,lf[227]); -if(C_truep(t27)){ -t28=t26; -f_21107(t28,t27);} -else{ -t28=C_eqp(t22,lf[157]); -t29=t26; -f_21107(t29,(C_truep(t28)?t28:C_eqp(t22,lf[158])));}}}}} -else{ -t21=t1;{ -C_word av2[2]; -av2[0]=t21; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}}}}}}} - -/* new-state-number in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20767(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_20767,3,t0,t1,t2);} -/* irregex-core.scm:2482: scheme#max */ -t3=*((C_word*)lf[255]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_fixnum_plus(C_fix(1),t2); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* add-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20777(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,0,3)))){ -C_save_and_reclaim_args((void *)trf_20777,4,t0,t1,t2,t3);} -a=C_alloc(15); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20781,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_20790,a[2]=((C_word*)t0)[2],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t8=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]); -t9=C_a_i_fixnum_times(&a,2,C_fix(2),t8); -/* irregex-core.scm:2485: scheme#make-vector */ -t10=*((C_word*)lf[4]+1);{ -C_word av2[4]; -av2[0]=t10; -av2[1]=t7; -av2[2]=t9; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} -else{ -t7=t4; -f_20781(t7,C_SCHEME_UNDEFINED);}} - -/* k20779 in add-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20781(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,1)))){ -C_save_and_reclaim_args((void *)trf_20781,2,t0,t1);} -t2=((C_word*)((C_word*)t0)[2])[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_word*)t0)[5];{ -C_word av2[2]; -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k20788 in add-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20790(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_20790,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20793,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_i_vector_length(((C_word*)((C_word*)t0)[2])[1]); -t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20802,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,a[5]=((C_word)li268),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_20802(t8,t2,t4);} - -/* k20791 in k20788 in add-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20793(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_20793,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4]; -f_20781(t3,t2);} - -/* doloop3858 in k20788 in add-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20802(C_word t0,C_word t1,C_word 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(5,0,2)))){ -C_save_and_reclaim_args((void *)trf_20802,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ -t3=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_vector_ref(((C_word*)((C_word*)t0)[2])[1],t2); -t4=C_i_vector_set(((C_word*)t0)[3],t2,t3); -t5=C_a_i_fixnum_difference(&a,2,t2,C_fix(1)); -t7=t1; -t8=t5; -t1=t7; -t2=t8; -goto loop;}} - -/* extend-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20838(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_20838,4,t0,t1,t2,t3);} -a=C_alloc(6); -if(C_truep(t2)){ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20849,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:2494: new-state-number */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_20767(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);}}} - -/* k20847 in extend-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20849(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_20849,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -/* irregex-core.scm:2494: add-state! */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_20777(t3,((C_word*)t0)[5],t1,t2);} - -/* add-char-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20855(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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,3)))){ -C_save_and_reclaim_args((void *)trf_20855,4,t0,t1,t2,t3);} -a=C_alloc(15); -t4=C_u_i_char_upper_casep(t3); -t5=(C_truep(t4)?C_u_i_char_downcase(t3):C_u_i_char_upcase(t3)); -t6=C_fixnum_and(((C_word*)t0)[2],C_fix(2)); -t7=C_eqp(C_fix(2),t6); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20872,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t9=C_a_i_cons(&a,2,t3,t3); -t10=C_a_i_vector1(&a,1,t9); -t11=C_a_i_cons(&a,2,t5,t5); -t12=C_a_i_vector1(&a,1,t11); -/* irregex-core.scm:2498: cset-union */ -t13=lf[163];{ -C_word av2[4]; -av2[0]=t13; -av2[1]=t8; -av2[2]=t10; -av2[3]=t12; -f_27078(4,av2);}} -else{ -t8=C_a_i_cons(&a,2,t3,t3); -t9=C_a_i_vector1(&a,1,t8); -/* irregex-core.scm:2499: extend-state! */ -t10=((C_word*)((C_word*)t0)[3])[1]; -f_20838(t10,t1,t2,t9);}} - -/* k20870 in add-char-state! in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20872(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_20872,c,av);} -/* irregex-core.scm:2498: extend-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20838(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k20903 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20905(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_20905,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20911,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20918,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2507: new-state-number */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_20767(t4,t3,t1);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k20909 in k20903 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20911(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_20911,c,av);} -a=C_alloc(6); -t2=( -/* irregex-core.scm:2508: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],C_SCHEME_FALSE) -); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k20916 in k20903 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_20918,c,av);} -/* irregex-core.scm:2507: add-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20777(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* k20927 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20929(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_20929,c,av);} -a=C_alloc(13); -if(C_truep(t1)){ -t2=C_i_string_length(C_u_i_car(((C_word*)t0)[2])); -t3=C_a_i_fixnum_difference(&a,2,t2,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|5,a[1]=(C_word)f_20943,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li272),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_20943(t7,((C_word*)t0)[4],t3,t1);} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* lp2 in k20927 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_20943(C_word t0,C_word 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_20943,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_fixnum_lessp(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=C_fixnum_difference(t2,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20961,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t6=C_i_car(((C_word*)t0)[3]); -/* irregex-core.scm:2519: add-char-state! */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_20855(t7,t5,t3,C_i_string_ref(t6,t2));}} - -/* k20959 in lp2 in k20927 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_20961(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_20961,c,av);} -/* irregex-core.scm:2518: lp2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20943(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k20984 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_20986,c,av);} -/* irregex-core.scm:2522: add-char-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20855(t2,((C_word*)t0)[3],t1,C_u_i_car(((C_word*)t0)[4]));} - -/* k21011 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21013(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_21013,c,av);} -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:2526: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_20764(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k21042 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_21044,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21051,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2539: lp */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_20764(t3,t2,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* k21049 in k21042 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21051(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21051,c,av);} -/* irregex-core.scm:2539: extend-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20838(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k21061 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21063(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_21063,c,av);} -/* irregex-core.scm:2537: cset-case-insensitive */ -f_27605(((C_word*)t0)[2],t1);} - -/* k21091 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21093(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_21093,c,av);} -/* irregex-core.scm:2544: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_21107(C_word 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_21107,2,t0,t1);} -a=C_alloc(14); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21110,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:2546: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_20764(t3,t2,C_u_i_cdr(((C_word*)t0)[2]),((C_word*)t0)[7],((C_word*)t0)[6],((C_word*)t0)[8]);} -else{ -t2=C_eqp(((C_word*)t0)[9],lf[52]); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_21154,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],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_21154(t4,t2);} -else{ -t4=C_eqp(((C_word*)t0)[9],lf[248]); -if(C_truep(t4)){ -t5=t3; -f_21154(t5,t4);} -else{ -t5=C_eqp(((C_word*)t0)[9],lf[235]); -t6=t3; -f_21154(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[9],lf[180])));}}}} - -/* k21108 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_21110,c,av);} -a=C_alloc(7); -t2=C_i_caar(((C_word*)t0)[2]); -t3=(C_truep((C_truep(C_eqp(t2,lf[226]))?C_SCHEME_TRUE:(C_truep(C_eqp(t2,lf[157]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))?lf[65]:lf[64]); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21116,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); -t5=C_u_i_car(((C_word*)t0)[2]); -t6=C_u_i_car(t5); -if(C_truep((C_truep(C_eqp(t6,lf[226]))?C_SCHEME_TRUE:(C_truep(C_eqp(t6,lf[227]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ -/* irregex-core.scm:2546: g3918 */ -t7=t3;{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t7; -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_fix(2); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -/* irregex-core.scm:2546: g3918 */ -t7=t3;{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t7; -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_fix(32); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k21114 in k21108 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21116(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_21116,c,av);} -a=C_alloc(7); -if(C_truep(((C_word*)t0)[2])){ -t2=C_i_cdar(((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21130,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t1,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2555: new-state-number */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_20767(t4,t3,((C_word*)t0)[2]);} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21128 in k21114 in k21108 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21130(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_21130,c,av);} -/* irregex-core.scm:2555: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_21154(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(12,0,5)))){ -C_save_and_reclaim_args((void *)trf_21154,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21157,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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)[5]); -t4=C_fixnum_and(((C_word*)t0)[7],C_fix(2)); -t5=C_eqp(C_fix(2),t4); -/* irregex-core.scm:2557: sre->cset */ -f_26490(t2,t3,C_a_i_list(&a,1,t5));} -else{ -t2=C_eqp(((C_word*)t0)[9],lf[104]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21181,a[2]=((C_word*)t0)[5],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)[4],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:2562: lp */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_20764(t4,t3,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} -else{ -t3=C_eqp(((C_word*)t0)[9],lf[132]); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21273,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)[7],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:2586: lp */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_20764(t5,t4,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} -else{ -t4=C_eqp(((C_word*)t0)[9],lf[130]); -t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[9],lf[128])); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21307,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[12],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:2595: lp */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_20764(t7,t6,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} -else{ -t6=C_eqp(((C_word*)t0)[9],lf[246]); -t7=(C_truep(t6)?t6:C_eqp(((C_word*)t0)[9],lf[109])); -if(C_truep(t7)){ -t8=C_i_assq(C_u_i_car(((C_word*)t0)[5]),((C_word*)t0)[13]); -t9=C_i_cdr(t8); -t10=C_fixnum_shift_left(t9,C_fix(1)); -t11=C_fixnum_plus(t10,C_fix(1)); -t12=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21367,a[2]=((C_word*)t0)[12],a[3]=t10,a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[4],a[10]=((C_word*)t0)[7],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:2640: lp */ -t13=((C_word*)((C_word*)t0)[4])[1]; -f_20764(t13,t12,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} -else{ -t8=C_eqp(((C_word*)t0)[9],lf[120]); -t9=(C_truep(t8)?t8:C_eqp(((C_word*)t0)[9],lf[121])); -if(C_truep(t9)){ -t10=C_i_assq(C_u_i_car(((C_word*)t0)[5]),((C_word*)t0)[13]); -t11=C_i_cdr(t10); -t12=C_fixnum_shift_left(t11,C_fix(1)); -t13=C_fixnum_plus(t12,C_fix(1)); -t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_21445,a[2]=((C_word*)t0)[12],a[3]=t12,a[4]=t13,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[10],a[7]=((C_word*)t0)[11],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[5],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:2653: lp */ -t15=((C_word*)((C_word*)t0)[4])[1]; -f_20764(t15,t14,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} -else{ -t10=C_i_caar(((C_word*)t0)[5]); -t11=C_i_assq(t10,lf[249]); -if(C_truep(t11)){ -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21512,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],a[7]=((C_word)li273),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:2664: g3994 */ -t13=t12; -f_21512(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);}}}}}}}}} - -/* k21155 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21157(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ -C_save_and_reclaim((void *)f_21157,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21164,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2559: lp */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_20764(t3,t2,C_u_i_cdr(((C_word*)t0)[5]),((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* k21162 in k21155 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21164(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21164,c,av);} -/* irregex-core.scm:2559: extend-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20838(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21181(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_21181,c,av);} -a=C_alloc(17); -if(C_truep(t1)){ -t2=C_i_cdar(((C_word*)t0)[2]); -if(C_truep(C_i_nullp(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21197,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2567: new-state-number */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_20767(t4,t3,t1);} -else{ -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21200,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)[7],a[7]=((C_word*)t0)[8],a[8]=t1,a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21258,a[2]=((C_word*)t0)[7],a[3]=t3,a[4]=((C_word*)t0)[8],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2570: scheme#cddar */ -t5=*((C_word*)lf[394]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21195 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21197,c,av);} -/* irregex-core.scm:2567: add-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20777(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_21200,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21203,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(t1)){ -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21242,a[2]=((C_word*)t0)[6],a[3]=t2,a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:2575: scheme#cadar */ -t4=*((C_word*)lf[393]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_21203(2,av2);}}} - -/* k21201 in k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 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_21203,c,av);} -a=C_alloc(14); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21209,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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21219,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_21223,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2580: scheme#max */ -t5=*((C_word*)lf[255]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21207 in k21201 in k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21209(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_21209,c,av);} -a=C_alloc(12); -t2=( -/* irregex-core.scm:2582: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],C_SCHEME_FALSE) -); -t3=( -/* irregex-core.scm:2583: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[4],C_SCHEME_FALSE) -); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k21217 in k21201 in k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21219,c,av);} -/* irregex-core.scm:2580: add-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20777(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* k21221 in k21201 in k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21223(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_21223,c,av);} -/* irregex-core.scm:2580: new-state-number */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20767(t2,((C_word*)t0)[3],t1);} - -/* k21232 in k21240 in k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21234(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_21234,c,av);} -/* irregex-core.scm:2575: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21236 in k21240 in k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21238(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_21238,c,av);} -/* irregex-core.scm:2576: new-state-number */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20767(t2,((C_word*)t0)[3],t1);} - -/* k21240 in k21198 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21242(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_21242,c,av);} -a=C_alloc(14); -t2=C_a_i_list1(&a,1,t1); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21234,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21238,a[2]=((C_word*)t0)[6],a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2576: scheme#max */ -t5=*((C_word*)lf[255]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k21248 in k21256 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21250(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_21250,c,av);} -/* irregex-core.scm:2570: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21256 in k21179 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21258(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_21258,c,av);} -a=C_alloc(13); -t2=( -/* irregex-core.scm:2570: sre-alternate */ - f_18212(C_a_i(&a,3),t1) -); -t3=C_a_i_list1(&a,1,t2); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21250,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); -/* irregex-core.scm:2571: new-state-number */ -t5=((C_word*)((C_word*)t0)[6])[1]; -f_20767(t5,t4,((C_word*)t0)[5]);} - -/* k21271 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21273(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_21273,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21279,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_i_cdar(((C_word*)t0)[4]); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21293,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2590: new-state-number */ -t5=((C_word*)((C_word*)t0)[7])[1]; -f_20767(t5,t4,t1);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21277 in k21271 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21279(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_21279,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=( -/* irregex-core.scm:2592: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],C_SCHEME_FALSE) -); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21291 in k21271 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21293(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_21293,c,av);} -/* irregex-core.scm:2590: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21305 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21307(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_21307,c,av);} -a=C_alloc(14); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21313,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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|5,a[1]=(C_word)f_21347,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:2599: new-state-number */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_20767(t4,t3,t1);} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21311 in k21305 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21313(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_21313,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21316,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); -t3=C_i_cdar(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21343,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2602: new-state-number */ -t5=((C_word*)((C_word*)t0)[7])[1]; -f_20767(t5,t4,t1);} - -/* k21314 in k21311 in k21305 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21316(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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,1)))){ -C_save_and_reclaim((void *)f_21316,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_i_caar(((C_word*)t0)[2]); -t3=C_eqp(lf[128],t2); -if(C_truep(t3)){ -t4=( -/* irregex-core.scm:2607: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[3])[1],t1,((C_word*)t0)[4],C_SCHEME_FALSE) -); -t5=( -/* irregex-core.scm:2609: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1,C_SCHEME_FALSE) -); -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t4=( -/* irregex-core.scm:2609: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],t1,C_SCHEME_FALSE) -); -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21341 in k21311 in k21305 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21343(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_21343,c,av);} -/* irregex-core.scm:2602: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21345 in k21305 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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,c,av);} -/* irregex-core.scm:2598: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],lf[395],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k21365 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21367(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_21367,c,av);} -a=C_alloc(16); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21373,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21415,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2642: new-state-number */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_20767(t4,t3,t1);} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21371 in k21365 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21373(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ -C_save_and_reclaim((void *)f_21373,c,av);} -a=C_alloc(23); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21376,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t3=( -/* irregex-core.scm:2643: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cdar(((C_word*)t0)[9])) -); -t4=C_a_i_list1(&a,1,t3); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21403,a[2]=((C_word*)t0)[10],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[11],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2644: new-state-number */ -t6=((C_word*)((C_word*)t0)[8])[1]; -f_20767(t6,t5,t1);} - -/* k21374 in k21371 in k21365 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_21376,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21379,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t1)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21395,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2645: new-state-number */ -t4=((C_word*)((C_word*)t0)[9])[1]; -f_20767(t4,t3,t1);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_21379(2,av2);}}} - -/* k21377 in k21374 in k21371 in k21365 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21379(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_21379,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=( -/* irregex-core.scm:2647: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],((C_word*)t0)[4]) -); -t3=( -/* irregex-core.scm:2648: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]) -); -t4=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21393 in k21374 in k21371 in k21365 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21395(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21395,c,av);} -/* irregex-core.scm:2645: add-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20777(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* k21401 in k21371 in k21365 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21403(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_21403,c,av);} -/* irregex-core.scm:2643: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21413 in k21365 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21415(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21415,c,av);} -/* irregex-core.scm:2642: add-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20777(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21445(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_21445,c,av);} -a=C_alloc(16); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_21451,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21493,a[2]=((C_word*)t0)[6],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2655: new-state-number */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_20767(t4,t3,t1);} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21449 in k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21451(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,2)))){ -C_save_and_reclaim((void *)f_21451,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21454,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21489,a[2]=((C_word*)t0)[9],a[3]=t2,a[4]=((C_word*)t0)[10],a[5]=t1,a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:2656: scheme#cddar */ -t4=*((C_word*)lf[394]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k21452 in k21449 in k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21454(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_21454,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_21457,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t1)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21473,a[2]=((C_word*)t0)[8],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2658: new-state-number */ -t4=((C_word*)((C_word*)t0)[9])[1]; -f_20767(t4,t3,t1);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_21457(2,av2);}}} - -/* k21455 in k21452 in k21449 in k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21457(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_21457,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=( -/* irregex-core.scm:2660: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],t1,((C_word*)t0)[3],((C_word*)t0)[4]) -); -t3=( -/* irregex-core.scm:2661: nfa-add-epsilon! */ - f_20614(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]) -); -t4=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21471 in k21452 in k21449 in k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21473(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21473,c,av);} -/* irregex-core.scm:2658: add-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20777(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* k21479 in k21487 in k21449 in k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_21481,c,av);} -/* irregex-core.scm:2656: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20764(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k21487 in k21449 in k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_21489,c,av);} -a=C_alloc(13); -t2=( -/* irregex-core.scm:2656: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -t3=C_a_i_list1(&a,1,t2); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21481,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); -/* irregex-core.scm:2657: new-state-number */ -t5=((C_word*)((C_word*)t0)[6])[1]; -f_20767(t5,t4,((C_word*)t0)[5]);} - -/* k21491 in k21443 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21493(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21493,c,av);} -/* irregex-core.scm:2655: add-state! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20777(t2,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* g3994 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_21512(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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_21512,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_21530,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);{ -C_word av2[4]; -av2[0]=0; -av2[1]=t4; -av2[2]=C_u_i_cdr(t2); -av2[3]=C_i_cdar(((C_word*)t0)[2]); -C_apply(4,av2);}} -else{ -/* irregex-core.scm:2670: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[396]; -av2[3]=C_i_caar(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k21528 in g3994 in k21152 in k21105 in lp in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21530(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_21530,c,av);} -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:2668: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_20764(t4,((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k21656 in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_21658,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21664,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)); -/* irregex-core.scm:2676: scheme#make-vector */ -t4=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=C_fixnum_times(C_fix(4),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21662 in k21656 in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ -C_save_and_reclaim((void *)f_21664,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21667,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_block_size(t1); -t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21675,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,a[5]=((C_word)li275),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_21675(t8,t2,t4);} - -/* k21665 in k21662 in k21656 in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_21667,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* doloop4004 in k21662 in k21656 in k20760 in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_21675(C_word t0,C_word t1,C_word 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(5,0,2)))){ -C_save_and_reclaim_args((void *)trf_21675,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_fixnum_lessp(t2,C_fix(0)))){ -t3=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_vector_ref(((C_word*)((C_word*)t0)[2])[1],t2); -t4=C_i_vector_set(((C_word*)t0)[3],t2,t3); -t5=C_a_i_fixnum_difference(&a,2,t2,C_fix(1)); -t7=t1; -t8=t5; -t1=t7; -t2=t8; -goto loop;}} - -/* lp in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_21714(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_21714,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -t5=C_i_pairp(t2); -if(C_truep(C_i_not(t5))){ -t6=C_fixnum_shift_left(t3,C_fix(1)); -t7=C_i_vector_set(((C_word*)((C_word*)t0)[2])[1],C_fix(0),t6); -t8=C_i_vector_set(((C_word*)((C_word*)t0)[2])[1],C_fix(1),C_fix(-1)); -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t6=C_i_car(t2); -if(C_truep(C_i_pairp(t6))){ -t7=C_i_caar(t2); -t8=C_eqp(t7,lf[246]); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21749,a[2]=t3,a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -if(C_truep(t8)){ -t10=t9; -f_21749(t10,t8);} -else{ -t10=C_eqp(t7,lf[109]); -if(C_truep(t10)){ -t11=t9; -f_21749(t11,t10);} -else{ -t11=C_eqp(t7,lf[120]); -t12=t9; -f_21749(t12,(C_truep(t11)?t11:C_eqp(t7,lf[121])));}}} -else{ -/* irregex-core.scm:2478: lp */ -t13=t1; -t14=C_u_i_cdr(t2); -t15=t3; -t16=t4; -t1=t13; -t2=t14; -t3=t15; -t4=t16; -goto loop;}}} - -/* k21747 in lp in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void f_21749(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,3)))){ -C_save_and_reclaim_args((void *)trf_21749,2,t0,t1);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21756,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_car(((C_word*)t0)[3]); -/* irregex-core.scm:2475: scheme#append */ -t4=*((C_word*)lf[74]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t2; -av2[2]=C_u_i_cdr(t3); -av2[3]=C_u_i_cdr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21782,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); -/* irregex-core.scm:2477: scheme#append */ -t3=*((C_word*)lf[74]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_car(((C_word*)t0)[3]); -av2[3]=C_u_i_cdr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k21754 in k21747 in lp in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21756(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_21756,c,av);} -a=C_alloc(6); -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t3=C_u_i_car(((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[2]); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[4]); -/* irregex-core.scm:2475: lp */ -t6=((C_word*)((C_word*)t0)[5])[1]; -f_21714(t6,((C_word*)t0)[6],t1,t2,t5);} - -/* k21780 in k21747 in lp in k20757 in chicken.irregex#sre->nfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21782(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_21782,c,av);} -/* irregex-core.scm:2477: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_21714(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* chicken.irregex#make-mst in k18914 in k7753 in k7522 in k7519 */ -static void f_21878(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(14,0,3)))){ -C_save_and_reclaim_args((void *)trf_21878,2,t1,t2);} -a=C_alloc(14); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21882,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=C_i_vector_length(t2); -t5=C_a_i_fixnum_quotient_checked(&a,2,t4,C_fix(4)); -t6=C_s_a_u_i_integer_plus(&a,2,t5,C_fix(3)); -/* irregex-core.scm:2747: scheme#make-vector */ -t7=*((C_word*)lf[4]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t3; -av2[2]=t6; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} - -/* k21880 in chicken.irregex#make-mst in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21882(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_21882,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21895,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2748: scheme#make-vector */ -t3=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k21893 in k21880 in chicken.irregex#make-mst in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21895(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_21895,c,av);} -t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); -t3=C_i_vector_set(((C_word*)t0)[2],C_fix(1),C_fix(0)); -t4=C_i_vector_set(((C_word*)t0)[2],C_fix(2),C_fix(0)); -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.irregex#mst-copy in k18914 in k7753 in k7522 in k7519 */ -static void f_21907(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_21907,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21911,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2755: %vector-copy */ -f_7532(t3,t2);} - -/* k21909 in chicken.irregex#mst-copy in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21911(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_21911,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21918,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2756: %vector-copy */ -f_7532(t2,C_i_vector_ref(((C_word*)t0)[3],C_fix(0)));} - -/* k21916 in k21909 in chicken.irregex#mst-copy in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_21918,c,av);} -t2=C_i_vector_set(((C_word*)t0)[2],C_fix(0),t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.irregex#nfa-state->mst in k18914 in k7753 in k7522 in k7519 */ -static void f_21924(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_21924,4,t1,t2,t3,t4);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21928,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:2760: make-mst */ -f_21878(t5,t2);} - -/* k21926 in chicken.irregex#nfa-state->mst in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21928(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ -C_save_and_reclaim((void *)f_21928,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21931,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2761: mst-add! */ -f_21933(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k21929 in k21926 in chicken.irregex#nfa-state->mst in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_21931(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_21931,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.irregex#mst-add! in k18914 in k7753 in k7522 in k7519 */ -static void f_21933(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,2)))){ -C_save_and_reclaim_args((void *)trf_21933,5,t1,t2,t3,t4,t5);} -a=C_alloc(10); -t6=C_i_vector_ref(t3,C_fix(2)); -t7=t6; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21940,a[2]=t3,a[3]=t4,a[4]=t5,a[5]=t8,a[6]=t2,a[7]=t1,tmp=(C_word)a,a+=8,tmp); -t10=C_fixnum_plus(t4,C_fix(3)); -t11=C_i_vector_ref(t3,t10); -if(C_truep(C_i_not(t11))){ -t12=C_fixnum_plus(((C_word*)t8)[1],t4); -t13=C_set_block_item(t8,0,t12); -t14=C_i_vector_ref(t3,C_fix(1)); -t15=t9; -f_21940(t15,C_i_vector_set(t3,C_fix(1),C_fixnum_plus(t14,C_fix(1))));} -else{ -t12=t9; -f_21940(t12,C_SCHEME_UNDEFINED);}} - -/* k21938 in chicken.irregex#mst-add! in k18914 in k7753 in k7522 in k7519 */ -static void f_21940(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -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,0,3)))){ -C_save_and_reclaim_args((void *)trf_21940,2,t0,t1);} -a=C_alloc(18); -t2=C_i_vector_set(((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[3],C_fix(3)),((C_word*)t0)[4]); -t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21947,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word)li281),tmp=(C_word)a,a+=5,tmp); -t5=C_i_check_list_2(((C_word*)t0)[4],lf[307]); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21982,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -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_21995,a[2]=t4,a[3]=t8,a[4]=((C_word)li282),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_21995(t10,t6,((C_word*)t0)[4]);} - -/* g4062 in k21938 in chicken.irregex#mst-add! in k18914 in k7753 in k7522 in k7519 */ -static C_word f_21947(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=C_u_i_cdr(t1); -t4=C_i_vector_ref(((C_word*)t0)[2],t2); -t5=C_i_memq(t3,t4); -if(C_truep(C_i_not(t5))){ -t6=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t2); -t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,t6); -t8=C_a_i_cons(&a,2,t3,t4); -return(C_i_vector_set(((C_word*)t0)[2],t2,t8));} -else{ -t6=C_SCHEME_UNDEFINED; -return(t6);}} - -/* k21980 in k21938 in chicken.irregex#mst-add! in k18914 in k7753 in k7522 in k7519 */ -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; -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,1)))){ -C_save_and_reclaim((void *)f_21982,c,av);} -a=C_alloc(10); -t2=C_i_vector_length(((C_word*)t0)[2]); -t3=C_a_i_fixnum_quotient_checked(&a,2,t2,C_fix(4)); -t4=C_s_a_i_modulo(&a,2,((C_word*)((C_word*)t0)[3])[1],t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_vector_set(((C_word*)t0)[5],C_fix(2),t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* for-each-loop4061 in k21938 in chicken.irregex#mst-add! in k18914 in k7753 in k7522 in k7519 */ -static void f_21995(C_word 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; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_21995,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* irregex-core.scm:2772: g4062 */ - f_21947(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t5=t1; -t6=C_slot(t2,C_fix(1)); -t1=t5; -t2=t6; -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);}}} - -/* k22094 in k22988 in g4317 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22096(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,2)))){ -C_save_and_reclaim((void *)f_22096,c,av);} -a=C_alloc(17); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_22102,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((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); -t6=C_fixnum_plus(((C_word*)t0)[3],C_fix(3)); -t7=C_i_vector_ref(((C_word*)t0)[2],t6); -if(C_truep(C_i_not(t7))){ -t8=C_fixnum_plus(((C_word*)t4)[1],((C_word*)t0)[3]); -t9=C_set_block_item(t4,0,t8); -t10=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t11=t5; -f_22102(t11,C_i_vector_set(((C_word*)t0)[2],C_fix(1),C_fixnum_plus(t10,C_fix(1))));} -else{ -t8=t5; -f_22102(t8,C_SCHEME_UNDEFINED);}} - -/* k22100 in k22094 in k22988 in g4317 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_22102(C_word t0,C_word t1){ -C_word 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(14,0,2)))){ -C_save_and_reclaim_args((void *)trf_22102,2,t0,t1);} -a=C_alloc(14); -t2=C_i_vector_set(((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[3],C_fix(3)),((C_word*)t0)[4]); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22108,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)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); -t4=C_i_memq(((C_word*)t0)[11],((C_word*)t0)[12]); -if(C_truep(C_i_not(t4))){ -t5=C_fixnum_plus(((C_word*)((C_word*)t0)[6])[1],((C_word*)t0)[13]); -t6=C_mutate(((C_word *)((C_word*)t0)[6])+1,t5); -t7=C_a_i_cons(&a,2,((C_word*)t0)[11],((C_word*)t0)[12]); -t8=t3; -f_22108(t8,C_i_vector_set(((C_word*)t0)[14],((C_word*)t0)[13],t7));} -else{ -t5=t3; -f_22108(t5,C_SCHEME_UNDEFINED);}} - -/* k22106 in k22100 in k22094 in k22988 in g4317 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_22108(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -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,0,3)))){ -C_save_and_reclaim_args((void *)trf_22108,2,t0,t1);} -a=C_alloc(16); -t2=C_i_vector_length(((C_word*)t0)[2]); -t3=C_a_i_fixnum_quotient_checked(&a,2,t2,C_fix(4)); -t4=C_s_a_i_modulo(&a,2,((C_word*)((C_word*)t0)[3])[1],t3); -t5=C_i_vector_set(((C_word*)t0)[4],C_fix(2),t4); -t6=C_i_cdr(((C_word*)t0)[5]); -t7=C_a_i_cons(&a,2,((C_word*)t0)[6],((C_word*)t0)[7]); -t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[8]); -/* irregex-core.scm:3040: lp2 */ -t9=((C_word*)((C_word*)t0)[9])[1]; -f_22957(t9,((C_word*)t0)[10],t6,t8);} - -/* lp in k22988 in g4317 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_22161(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -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(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_22161,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=C_u_i_cdr(t2); -t8=C_a_i_cons(&a,2,t6,t7); -/* irregex-core.scm:2803: scheme#append */ -t9=*((C_word*)lf[74]+1);{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t1; -av2[2]=t3; -av2[3]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -t6=C_u_i_cdr(t2); -t7=C_u_i_car(t2); -t8=C_a_i_cons(&a,2,t7,t3); -/* irregex-core.scm:2804: lp */ -t10=t1; -t11=t6; -t12=t8; -t1=t10; -t2=t11; -t3=t12; -goto loop;}}} - -/* lp in lp in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22232(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -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_22232,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_eqp(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{ -t4=C_i_vector_ref(((C_word*)t0)[3],t2); -t5=C_i_not(t4); -t6=C_i_vector_ref(((C_word*)t0)[4],t2); -t7=C_i_not(t6); -t8=C_eqp(t5,t7); -if(C_truep(t8)){ -t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:2825: lp */ -t11=t1; -t12=t9; -t1=t11; -t2=t12; -goto loop;} -else{ -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}}} - -/* chicken.irregex#mst-fold in k18914 in k7753 in k7522 in k7519 */ -static void f_22285(C_word 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(9,0,4)))){ -C_save_and_reclaim_args((void *)trf_22285,4,t1,t2,t3,t4);} -a=C_alloc(9); -t5=C_i_vector_length(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|6,a[1]=(C_word)f_22294,a[2]=t5,a[3]=t2,a[4]=t7,a[5]=t3,a[6]=((C_word)li284),tmp=(C_word)a,a+=7,tmp)); -t9=((C_word*)t7)[1]; -f_22294(t9,t1,C_fix(3),t4);} - -/* lp in chicken.irregex#mst-fold in k18914 in k7753 in k7522 in k7519 */ -static void f_22294(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -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(15,0,4)))){ -C_save_and_reclaim_args((void *)trf_22294,4,t0,t1,t2,t3);} -a=C_alloc(15); -t4=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_vector_ref(((C_word*)t0)[3],t2); -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22314,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t5)){ -t8=C_a_i_fixnum_difference(&a,2,t2,C_fix(3)); -/* irregex-core.scm:2834: kons */ -t9=((C_word*)t0)[5];{ -C_word av2[5]; -av2[0]=t9; -av2[1]=t7; -av2[2]=t8; -av2[3]=t5; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} -else{ -/* irregex-core.scm:2834: lp */ -t10=t1; -t11=t6; -t12=t3; -t1=t10; -t2=t11; -t3=t12; -goto loop;}}} - -/* k22312 in lp in chicken.irregex#mst-fold in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22314(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_22314,c,av);} -/* irregex-core.scm:2834: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_22294(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* doloop4162 in g4317 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static C_word f_22343(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_stack_overflow_check; -loop:{} -t2=C_i_memq(t1,((C_word*)t0)[2]); -if(C_truep(C_i_not(t2))){ -return(t1);} -else{ -t4=C_fixnum_plus(t1,C_fix(1)); -t1=t4; -goto loop;}} - -/* chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22367(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ -C_save_and_reclaim_args((void *)trf_22367,3,t1,t2,t3);} -a=C_alloc(15); -t4=C_i_pairp(t3); -t5=(C_truep(t4)?C_u_i_car(t3):C_SCHEME_FALSE); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22374,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t7=C_i_vector_length(t2); -t8=C_a_i_fixnum_quotient_checked(&a,2,t7,C_fix(4)); -t9=C_s_a_u_i_integer_minus(&a,2,t8,C_fix(1)); -/* irregex-core.scm:2883: nfa-state->mst */ -f_21924(t6,t2,t9,C_SCHEME_END_OF_LIST);} - -/* k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22374(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22374,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22377,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); -/* irregex-core.scm:2884: nfa-epsilon-closure */ -f_23052(t2,((C_word*)t0)[2],t1);} - -/* k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22377(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22377,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22380,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); -/* irregex-core.scm:2887: tag-set-commands-for-closure */ -f_23067(t2,((C_word*)t0)[2],((C_word*)t0)[5],t1,C_SCHEME_END_OF_LIST);} - -/* k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22380(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22380,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22383,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); -/* irregex-core.scm:2888: make-mst */ -f_21878(t2,((C_word*)t0)[3]);} - -/* k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -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(36,c,5)))){ -C_save_and_reclaim((void *)f_22383,c,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=C_a_i_list1(&a,1,((C_word*)t0)[3]); -t8=C_a_i_list1(&a,1,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_22399,a[2]=t6,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t10,a[6]=((C_word)li298),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_22399(t12,((C_word*)t0)[6],t7,t8,C_fix(0));} - -/* lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22399(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(13,0,5)))){ -C_save_and_reclaim_args((void *)trf_22399,5,t0,t1,t2,t3,t4);} -a=C_alloc(13); -if(C_truep(C_i_nullp(t2))){ -t5=C_u_i_cdr(((C_word*)t0)[2]); -t6=C_i_vector_ref(((C_word*)t0)[3],C_fix(1)); -t7=C_fixnum_plus(t6,C_fix(1)); -t8=C_i_setslot(t5,C_fix(0),t7); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22416,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:2899: ##sys#fast-reverse */ -t10=*((C_word*)lf[70]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}} -else{ -t5=(C_truep(((C_word*)t0)[4])?C_fixnum_greaterp(t4,((C_word*)t0)[4]):C_SCHEME_FALSE); -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=C_i_car(t2); -if(C_truep(C_i_assoc(t6,t3))){ -/* irregex-core.scm:2903: lp */ -t11=t1; -t12=C_u_i_cdr(t2); -t13=t3; -t14=t4; -t1=t11; -t2=t12; -t3=t13; -t4=t14; -goto loop;} -else{ -t7=C_u_i_car(t2); -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22451,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=((C_word*)t0)[5],a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=t1,tmp=(C_word)a,a+=9,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22754,a[2]=((C_word*)t0)[3],a[3]=((C_word)li297),tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:2964: mst-fold */ -f_22285(t8,t7,t9,C_SCHEME_END_OF_LIST);}}}} - -/* k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -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 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_22416,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22578,a[2]=((C_word*)t0)[2],a[3]=t1,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|3,a[1]=(C_word)f_22700,a[2]=t4,a[3]=((C_word)li289),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_22700(t6,t2,C_fix(0),t1,C_SCHEME_END_OF_LIST);} - -/* k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22451(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_22451,c,av);} -a=C_alloc(11); -t2=C_u_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|8,a[1]=(C_word)f_22455,a[2]=((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)li294),tmp=(C_word)a,a+=9,tmp)); -t6=((C_word*)t4)[1]; -f_22455(t6,((C_word*)t0)[8],t1,t2,C_SCHEME_END_OF_LIST);} - -/* lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22455(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(12,0,4)))){ -C_save_and_reclaim_args((void *)trf_22455,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]); -/* irregex-core.scm:2911: lp */ -t8=((C_word*)((C_word*)t0)[4])[1]; -f_22399(t8,t1,t3,t7,C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));} -else{ -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22483,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); -/* irregex-core.scm:2914: nfa-epsilon-closure */ -f_23052(t5,((C_word*)t0)[7],C_i_cdar(t2));}} - -/* k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22483(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(23,c,3)))){ -C_save_and_reclaim((void *)f_22483,c,av);} -a=C_alloc(23); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22486,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],tmp=(C_word)a,a+=9,tmp); -t3=C_i_vector_ref(t1,C_fix(2)); -t4=C_fixnum_times(t3,C_fix(4)); -t5=C_fixnum_plus(t4,C_fix(2)); -t6=C_i_vector_ref(((C_word*)t0)[7],t5); -t7=C_i_assoc(t1,t6); -t8=(C_truep(t7)?C_i_cdr(t7):C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=t2; -f_22486(t9,t8);} -else{ -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23385,a[2]=t1,a[3]=((C_word*)t0)[7],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t10=C_i_vector_ref(((C_word*)t0)[7],C_fix(0)); -t11=C_i_vector_ref(t1,C_fix(0)); -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_23234,a[2]=t13,a[3]=t10,a[4]=t11,a[5]=t1,a[6]=((C_word)li293),tmp=(C_word)a,a+=7,tmp)); -t15=((C_word*)t13)[1]; -f_23234(t15,t9,((C_word*)t0)[8]);}} - -/* k22484 in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22486(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_22486,2,t0,t1);} -a=C_alloc(10); -t2=(C_truep(t1)?C_i_cdr(t1):C_SCHEME_END_OF_LIST); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22492,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],tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:2920: tag-set-commands-for-closure */ -f_23067(t3,((C_word*)t0)[8],C_i_cdar(((C_word*)t0)[3]),((C_word*)t0)[2],t2);} - -/* k22490 in k22484 in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_22492,c,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_u_i_cdr(((C_word*)t0)[4]); -t4=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[5]:C_a_i_cons(&a,2,t2,((C_word*)t0)[5])); -t5=C_i_caar(((C_word*)t0)[4]); -t6=C_a_i_cons(&a,2,((C_word*)t0)[6],t1); -t7=C_a_i_cons(&a,2,t5,t6); -t8=C_a_i_cons(&a,2,t2,t7); -t9=C_a_i_cons(&a,2,t8,((C_word*)t0)[7]); -/* irregex-core.scm:2923: lp2 */ -t10=((C_word*)((C_word*)t0)[8])[1]; -f_22455(t10,((C_word*)t0)[9],t3,t4,t9);} - -/* k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22578(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22578,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22581,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2941: scheme#make-vector */ -t3=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_length(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22581(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_22581,c,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_22586,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li288),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_22586(t5,((C_word*)t0)[3],C_fix(0),((C_word*)t0)[4]);} - -/* doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22586(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_22586,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_22596,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:2945: scheme#cadar */ -t5=*((C_word*)lf[393]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} - -/* k22594 in doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_22596,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22599,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:2946: scheme#caddar */ -t3=*((C_word*)lf[402]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k22597 in k22594 in doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -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 t5; -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_22599,c,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_22619,a[2]=((C_word*)t0)[2],a[3]=((C_word)li286),tmp=(C_word)a,a+=4,tmp); -t7=C_i_check_list_2(t1,lf[212]); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22660,a[2]=((C_word*)t0)[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_22662,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li287),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_22662(t12,t8,t1);} - -/* g4233 in k22597 in k22594 in doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22619(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -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,2)))){ -C_save_and_reclaim_args((void *)trf_22619,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22627,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=C_u_i_cdr(t2); -t5=C_u_i_car(t4); -t6=C_i_vector_length(t5); -t7=C_eqp(t6,C_fix(1)); -if(C_truep(t7)){ -t8=C_i_vector_ref(t5,C_fix(0)); -t9=C_i_car(t8); -t10=C_i_vector_ref(t5,C_fix(0)); -t11=C_i_char_equalp(t9,C_i_cdr(t10)); -t12=t3; -f_22627(t12,(C_truep(t11)?C_i_car(C_i_vector_ref(t5,C_fix(0))):t5));} -else{ -t8=t3; -f_22627(t8,(C_truep(C_SCHEME_FALSE)?C_i_car(C_i_vector_ref(t5,C_fix(0))):t5));}} -else{ -t4=t3; -f_22627(t4,C_SCHEME_FALSE);}} - -/* k22625 in g4233 in k22597 in k22594 in doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22627(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,1)))){ -C_save_and_reclaim_args((void *)trf_22627,2,t0,t1);} -a=C_alloc(6); -t2=C_i_assoc(C_u_i_car(((C_word*)t0)[2]),((C_word*)t0)[3]); -t3=C_i_cdr(t2); -t4=C_i_cddr(((C_word*)t0)[2]); -t5=C_a_i_cons(&a,2,t3,t4); -t6=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_a_i_cons(&a,2,t1,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k22658 in k22597 in k22594 in doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22660(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_22660,c,av);} -a=C_alloc(8); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_i_vector_set(((C_word*)t0)[3],((C_word*)t0)[4],t2); -t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[4],C_fix(1)); -t5=((C_word*)((C_word*)t0)[5])[1]; -f_22586(t5,((C_word*)t0)[6],t4,C_u_i_cdr(((C_word*)t0)[7]));} - -/* map-loop4227 in k22597 in k22594 in doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22662(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_22662,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22687,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); -/* irregex-core.scm:2950: g4233 */ -t4=((C_word*)t0)[4]; -f_22619(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k22685 in map-loop4227 in k22597 in k22594 in doloop4219 in k22579 in k22576 in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_22687,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_22662(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* lp in k22414 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22700(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_22700,5,t0,t1,t2,t3,t4);} -a=C_alloc(6); -if(C_truep(C_i_nullp(t3))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+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:2939: lp */ -t11=t1; -t12=t5; -t13=t6; -t14=t9; -t1=t11; -t2=t12; -t3=t13; -t4=t14; -goto loop;}} - -/* k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22739(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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,5)))){ -C_save_and_reclaim((void *)f_22739,c,av);} -a=C_alloc(10); -t2=C_i_vector_length(t1); -t3=C_eqp(t2,C_fix(0)); -t4=C_i_not(t3); -t5=(C_truep(t4)?t1:C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22816,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li295),tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:2971: g4282 */ -t7=t6; -f_22816(t7,((C_word*)t0)[9],t5);} -else{ -t6=C_u_i_cdr(((C_word*)t0)[2]); -t7=C_u_i_car(((C_word*)t0)[2]); -t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[7]); -/* irregex-core.scm:3006: lp */ -t9=((C_word*)((C_word*)t0)[3])[1]; -f_22775(t9,((C_word*)t0)[9],t6,((C_word*)t0)[8],((C_word*)t0)[4],t8);}} - -/* a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -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=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); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ -C_save_and_reclaim((void *)f_22754,c,av);} -a=C_alloc(8); -t5=C_eqp(t2,C_fix(0)); -t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_i_vector_ref(((C_word*)t0)[2],C_fixnum_times(t2,C_fix(4)))); -if(C_truep(C_i_nullp(t6))){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_i_car(t6); -t8=C_u_i_cdr(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|5,a[1]=(C_word)f_22775,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t10,a[5]=((C_word)li296),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_22775(t12,t1,t4,t7,t8,C_SCHEME_END_OF_LIST);}} - -/* lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22775(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(10,0,5)))){ -C_save_and_reclaim_args((void *)trf_22775,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(10); -if(C_truep(C_i_nullp(t2))){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22793,a[2]=t3,a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2978: nfa-state->mst */ -f_21924(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_22802,a[2]=t1,a[3]=t2,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:2982: mst-add! */ -f_21933(t7,((C_word*)t0)[2],C_i_cdar(t2),t4,((C_word*)t0)[3]);} -else{ -t7=C_i_caar(t2); -t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22739,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); -/* irregex-core.scm:2962: cset-intersection */ -t9=lf[406];{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t8; -av2[2]=t3; -av2[3]=t7; -f_27469(4,av2);}}}} - -/* k22791 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22793(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22793,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k22800 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_22802,c,av);} -/* irregex-core.scm:2983: scheme#append */ -t2=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* g4282 in k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22816(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,3)))){ -C_save_and_reclaim_args((void *)trf_22816,3,t0,t1,t2);} -a=C_alloc(11); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22820,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); -/* irregex-core.scm:2986: cset-difference */ -f_27273(t3,((C_word*)t0)[8],C_i_caar(((C_word*)t0)[2]));} - -/* k22818 in g4282 in k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22820(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22820,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22823,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); -/* irregex-core.scm:2987: cset-difference */ -f_27273(t2,C_i_caar(((C_word*)t0)[2]),((C_word*)t0)[10]);} - -/* k22821 in k22818 in g4282 in k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22823(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_22823,c,av);} -a=C_alloc(13); -t2=C_i_cdar(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22829,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],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]=t1,a[12]=((C_word*)t0)[10],tmp=(C_word)a,a+=13,tmp); -t4=C_i_vector_length(t1); -t5=C_eqp(t4,C_fix(0)); -if(C_truep(C_i_not(t5))){ -/* irregex-core.scm:2991: mst-copy */ -f_21907(t3,t2);} -else{ -t6=t3;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_22829(2,av2);}}} - -/* k22827 in k22821 in k22818 in g4282 in k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22829(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_22829,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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_22832(t4,C_a_i_cons(&a,2,t3,((C_word*)t0)[12]));} -else{ -t3=t2; -f_22832(t3,((C_word*)t0)[12]);}} - -/* k22830 in k22827 in k22821 in k22818 in g4282 in k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_22832(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,5)))){ -C_save_and_reclaim_args((void *)trf_22832,2,t0,t1);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22835,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:2995: mst-add! */ -f_21933(t2,((C_word*)t0)[9],((C_word*)t0)[4],((C_word*)t0)[8],((C_word*)t0)[10]);} - -/* k22833 in k22830 in k22827 in k22821 in k22818 in g4282 in k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22835(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,5)))){ -C_save_and_reclaim((void *)f_22835,c,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22852,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3002: scheme#append */ -t6=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_u_i_cdr(((C_word*)t0)[6]); -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t4=C_u_i_cdr(((C_word*)t0)[6]); -t5=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[7]); -/* irregex-core.scm:3003: lp */ -t7=((C_word*)((C_word*)t0)[8])[1]; -f_22775(t7,((C_word*)t0)[5],t4,((C_word*)t0)[2],((C_word*)t0)[9],t6);}} - -/* k22850 in k22833 in k22830 in k22827 in k22821 in k22818 in g4282 in k22737 in lp in a22753 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22852(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_22852,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22924(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_22924,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22928,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); -t3=C_i_vector_length(((C_word*)t0)[2]); -t4=C_a_i_fixnum_quotient_checked(&a,2,t3,C_fix(4)); -/* irregex-core.scm:3017: scheme#make-vector */ -t5=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t4; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22928(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22928,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22932,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); -/* irregex-core.scm:3018: mst-copy */ -f_21907(t2,((C_word*)t0)[5]);} - -/* k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_22932(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_22932,c,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_22934,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li304),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_22934(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_22934(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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ -C_save_and_reclaim_args((void *)trf_22934,5,t0,t1,t2,t3,t4);} -a=C_alloc(12); -if(C_truep(C_i_nullp(t2))){ -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_caar(t2); -t6=C_u_i_car(t2); -t7=C_u_i_cdr(t6); -t8=( -/* irregex-core.scm:3023: nfa-get-epsilons */ - f_20580(((C_word*)t0)[2],t5) -); -t9=C_u_i_cdr(t2); -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_22957,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[2],a[7]=t11,a[8]=t7,a[9]=((C_word)li303),tmp=(C_word)a,a+=10,tmp)); -t13=((C_word*)t11)[1]; -f_22957(t13,t1,t8,t9);}} - -/* lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_22957(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word 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_22957,4,t0,t1,t2,t3);} -a=C_alloc(18); -if(C_truep(C_i_nullp(t2))){ -/* irregex-core.scm:3026: lp */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_22934(t4,t1,t3,((C_word*)t0)[3],((C_word*)t0)[4]);} -else{ -t4=C_i_caar(t2); -t5=C_i_vector_ref(((C_word*)t0)[3],t4); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],t5))){ -t6=C_i_vector_set(((C_word*)t0)[3],t4,((C_word*)t0)[5]); -t7=C_i_cdar(t2); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22986,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li302),tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:3033: g4317 */ -t9=t8; -f_22986(t9,t1,t7);} -else{ -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23014,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[8],a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=t1,tmp=(C_word)a,a+=8,tmp); -t9=C_fixnum_plus(t4,C_fix(3)); -t10=C_i_vector_ref(((C_word*)t0)[4],t9); -if(C_truep(C_i_not(t10))){ -t11=C_i_vector_ref(((C_word*)t0)[4],C_fix(2)); -t12=C_fixnum_plus(t11,t4); -t13=C_i_vector_length(((C_word*)t0)[6]); -t14=C_a_i_fixnum_quotient_checked(&a,2,t13,C_fix(4)); -t15=C_s_a_i_modulo(&a,2,t12,t14); -t16=C_i_vector_set(((C_word*)t0)[4],C_fix(2),t15); -t17=C_i_vector_ref(((C_word*)t0)[4],C_fix(1)); -t18=C_fixnum_plus(t17,C_fix(1)); -t19=C_i_vector_set(((C_word*)t0)[4],C_fix(1),t18); -t20=t8; -f_23014(t20,C_i_vector_set(((C_word*)t0)[4],C_fixnum_plus(t4,C_fix(3)),((C_word*)t0)[8]));} -else{ -t11=t8; -f_23014(t11,C_i_vector_set(((C_word*)t0)[4],C_fixnum_plus(t4,C_fix(3)),((C_word*)t0)[8]));}}} -else{ -/* irregex-core.scm:3045: lp2 */ -t21=t1; -t22=C_u_i_cdr(t2); -t23=t3; -t1=t21; -t2=t22; -t3=t23; -goto loop;}}} - -/* g4317 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_22986(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ -C_save_and_reclaim_args((void *)trf_22986,3,t0,t1,t2);} -a=C_alloc(15); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_22990,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]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); -t4=C_i_vector_ref(((C_word*)t0)[4],C_fix(1)); -t5=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); -t6=C_i_vector_ref(t5,t2); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22343,a[2]=t6,a[3]=((C_word)li301),tmp=(C_word)a,a+=4,tmp); -t8=( - f_22343(t7,C_fix(0)) -); -if(C_truep(C_fixnum_greaterp(t8,t4))){ -t9=C_i_vector_set(((C_word*)t0)[4],C_fix(1),t8); -t10=t3; -f_22990(t10,t8);} -else{ -t9=t3; -f_22990(t9,t8);}} - -/* k22988 in g4317 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_22990(C_word t0,C_word t1){ -C_word 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(21,0,4)))){ -C_save_and_reclaim_args((void *)trf_22990,2,t0,t1);} -a=C_alloc(21); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); -t3=C_i_vector_ref(t2,((C_word*)t0)[3]); -t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_22096,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]=t1,a[10]=t3,a[11]=((C_word*)t0)[3],a[12]=t2,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|5,a[1]=(C_word)f_22161,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,a[5]=((C_word)li300),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_22161(t8,t4,((C_word*)t0)[10],C_SCHEME_END_OF_LIST);} - -/* k23012 in lp2 in lp in k22930 in k22926 in k22922 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_23014(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_23014,2,t0,t1);} -a=C_alloc(6); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[5]); -/* irregex-core.scm:3044: lp2 */ -t5=((C_word*)((C_word*)t0)[6])[1]; -f_22957(t5,((C_word*)t0)[7],t2,t4);} - -/* a23041 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_23042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23042,c,av);} -a=C_alloc(6); -t5=C_a_i_cons(&a,2,t2,t3); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_cons(&a,2,t5,t4); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_23052(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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,5)))){ -C_save_and_reclaim_args((void *)trf_23052,3,t1,t2,t3);} -a=C_alloc(13); -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_i_vector_ref(t2,t6); -t8=C_i_assoc(t3,t7); -t9=(C_truep(t8)?C_i_cdr(t8):C_SCHEME_FALSE); -if(C_truep(t9)){ -t10=t1;{ -C_word av2[2]; -av2[0]=t10; -av2[1]=t9; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23062,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22924,a[2]=t2,a[3]=t10,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23042,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3013: mst-fold */ -f_22285(t11,t3,t12,C_SCHEME_END_OF_LIST);}} - -/* k23060 in chicken.irregex#nfa-epsilon-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_23062(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_23062,c,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(3)); -t5=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t6=C_i_vector_ref(((C_word*)t0)[3],t4); -t7=C_a_i_cons(&a,2,t5,t6); -t8=C_i_vector_set(((C_word*)t0)[3],t4,t7); -t9=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_23067(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(10,0,4)))){ -C_save_and_reclaim_args((void *)trf_23067,5,t1,t2,t3,t4,t5);} -a=C_alloc(10); -t6=C_i_vector_ref(t2,C_fix(0)); -t7=C_i_vector_ref(t4,C_fix(0)); -t8=C_i_vector_ref(t3,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|7,a[1]=(C_word)f_23082,a[2]=t6,a[3]=t7,a[4]=t8,a[5]=t10,a[6]=t5,a[7]=((C_word)li310),tmp=(C_word)a,a+=8,tmp)); -t12=((C_word*)t10)[1]; -f_23082(t12,t1,C_fix(0),C_SCHEME_END_OF_LIST);} - -/* lp in chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_23082(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(9,0,5)))){ -C_save_and_reclaim_args((void *)trf_23082,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_vector_ref(((C_word*)t0)[3],t2); -t6=C_i_vector_ref(((C_word*)t0)[4],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|6,a[1]=(C_word)f_23102,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t8,a[5]=((C_word*)t0)[6],a[6]=((C_word)li309),tmp=(C_word)a,a+=7,tmp)); -t10=((C_word*)t8)[1]; -f_23102(t10,t1,t5,t6,t3);}} - -/* lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_23102(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,0,3)))){ -C_save_and_reclaim_args((void *)trf_23102,5,t0,t1,t2,t3,t4);} -a=C_alloc(19); -if(C_truep(C_i_nullp(t2))){ -/* irregex-core.scm:3065: lp */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_23082(t5,t1,C_fixnum_plus(((C_word*)t0)[3],C_fix(1)),t4);} -else{ -t5=C_i_car(t2); -t6=C_i_memq(t5,t3); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23125,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); -if(C_truep(t6)){ -t8=t7; -f_23125(t8,t6);} -else{ -t8=C_i_nullp(((C_word*)t0)[5]); -if(C_truep(C_i_not(t8))){ -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23157,a[2]=t7,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23190,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word)li308),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3072: any */ -f_9289(t9,t10,((C_word*)t0)[5]);} -else{ -t9=t7; -f_23125(t9,C_SCHEME_FALSE);}}}} - -/* k23123 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void f_23125(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ -C_save_and_reclaim_args((void *)trf_23125,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -/* irregex-core.scm:3082: lp2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_23102(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6]);} -else{ -t2=C_u_i_cdr(((C_word*)t0)[4]); -t3=C_u_i_car(((C_word*)t0)[4]); -t4=C_a_i_cons(&a,2,((C_word*)t0)[7],t3); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[6]); -/* irregex-core.scm:3083: lp2 */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_23102(t6,((C_word*)t0)[3],t2,((C_word*)t0)[5],t5);}} - -/* k23155 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_23157(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_23157,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23164,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23166,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li307),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3078: any */ -f_9289(t2,t3,((C_word*)t0)[5]);} -else{ -t2=((C_word*)t0)[2]; -f_23125(t2,C_SCHEME_FALSE);}} - -/* k23162 in k23155 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_23164(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_23164,c,av);} -t2=((C_word*)t0)[2]; -f_23125(t2,C_i_not(t1));} - -/* a23165 in k23155 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_23166(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23166,c,av);} -t3=C_i_vector_ref(t2,C_fix(0)); -t4=C_eqp(t3,((C_word*)t0)[2]); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_eqp(C_i_vector_ref(t2,C_fix(1)),C_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a23189 in lp2 in lp in chicken.irregex#tag-set-commands-for-closure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_23190(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23190,c,av);} -t3=C_i_vector_ref(t2,C_fix(0)); -t4=C_eqp(t3,((C_word*)t0)[2]); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_eqp(C_i_vector_ref(t2,C_fix(2)),C_i_car(((C_word*)t0)[3])):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* lp in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_23234(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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(19,0,3)))){ -C_save_and_reclaim_args((void *)trf_23234,3,t0,t1,t2);} -a=C_alloc(19); -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_23247,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); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23369,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=C_i_caar(t2); -t6=C_i_vector_ref(t5,C_fix(2)); -t7=C_i_vector_ref(((C_word*)t0)[5],C_fix(2)); -t8=C_eqp(t6,t7); -if(C_truep(t8)){ -t9=C_i_vector_ref(t5,C_fix(1)); -t10=C_i_vector_ref(((C_word*)t0)[5],C_fix(1)); -t11=C_eqp(t9,t10); -if(C_truep(t11)){ -t12=C_i_vector_length(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|6,a[1]=(C_word)f_22232,a[2]=t12,a[3]=t5,a[4]=((C_word*)t0)[5],a[5]=t14,a[6]=((C_word)li292),tmp=(C_word)a,a+=7,tmp)); -t16=((C_word*)t14)[1]; -f_22232(t16,t4,C_fix(3));} -else{ -t12=t3; -f_23247(t12,C_SCHEME_TRUE);}} -else{ -t9=t3; -f_23247(t9,C_SCHEME_TRUE);}}} - -/* k23245 in lp in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_23247(C_word t0,C_word 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_23247,2,t0,t1);} -a=C_alloc(10); -if(C_truep(t1)){ -/* irregex-core.scm:3100: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_23234(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t2=C_i_caar(((C_word*)t0)[4]); -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_23261,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=t5,a[6]=((C_word*)t0)[2],a[7]=((C_word)li291),tmp=(C_word)a,a+=8,tmp)); -t7=((C_word*)t5)[1]; -f_23261(t7,((C_word*)t0)[3],t3,C_fix(0),C_SCHEME_END_OF_LIST);}} - -/* lp2 in k23245 in lp in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_23261(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(11,0,5)))){ -C_save_and_reclaim_args((void *)trf_23261,5,t0,t1,t2,t3,t4);} -a=C_alloc(11); -t5=C_eqp(t3,((C_word*)t0)[2]); -if(C_truep(t5)){ -t6=C_i_caar(((C_word*)t0)[3]); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_a_i_cons(&a,2,t6,t4); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t6=C_i_vector_ref(((C_word*)t0)[4],t3); -t7=C_i_vector_ref(t2,t3); -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_23288,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[3],a[7]=t9,a[8]=((C_word)li290),tmp=(C_word)a,a+=9,tmp)); -t11=((C_word*)t9)[1]; -f_23288(t11,t1,t6,t7,t4);}} - -/* lp3 in lp2 in k23245 in lp in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -static void f_23288(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(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_23288,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t2))){ -if(C_truep(C_i_nullp(t3))){ -/* irregex-core.scm:3110: lp2 */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_23261(t5,t1,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),t4);} -else{ -/* irregex-core.scm:3111: lp */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_23234(t5,t1,C_i_cdr(((C_word*)t0)[6]));}} -else{ -if(C_truep(C_i_nullp(t3))){ -/* irregex-core.scm:3112: lp */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_23234(t5,t1,C_i_cdr(((C_word*)t0)[6]));} -else{ -t5=C_i_cdr(t2); -t6=C_i_cdr(t3); -t7=C_u_i_car(t2); -t8=C_u_i_car(t3); -t9=C_eqp(t7,t8); -if(C_truep(t9)){ -/* irregex-core.scm:3113: lp3 */ -t15=t1; -t16=t5; -t17=t6; -t18=t4; -t1=t15; -t2=t16; -t3=t17; -t4=t18; -goto loop;} -else{ -t10=C_u_i_car(t2); -t11=C_u_i_car(t3); -t12=C_a_i_vector3(&a,3,((C_word*)t0)[4],t10,t11); -t13=C_a_i_cons(&a,2,t12,t4); -/* irregex-core.scm:3113: lp3 */ -t15=t1; -t16=t5; -t17=t6; -t18=t13; -t1=t15; -t2=t16; -t3=t17; -t4=t18; -goto loop;}}}} - -/* k23367 in lp in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_23369,c,av);} -t2=((C_word*)t0)[2]; -f_23247(t2,C_i_not(t1));} - -/* k23383 in k22481 in lp2 in k22449 in lp in k22381 in k22378 in k22375 in k22372 in chicken.irregex#nfa->dfa in k18914 in k7753 in k7522 in k7519 */ -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 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_23385,c,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]; -f_22486(t9,t1);} - -/* k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23395(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_23395,c,av);} -a=C_alloc(10); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_i_pairp(((C_word*)t0)[3]); -t4=(C_truep(t3)?C_u_i_car(((C_word*)t0)[3]):C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23404,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp); -t6=C_SCHEME_UNDEFINED; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23444,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=((C_word)li186),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_23444(t9,((C_word*)t0)[4],((C_word*)t0)[5],C_fix(1),t4,t5);} - -/* a23403 in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(0,c,1)))){ -C_save_and_reclaim((void *)f_23404,c,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=C_i_vector_set(t13,C_fix(1),C_u_i_cdr(t3)); -t15=C_slot(t8,C_fix(1)); -t16=C_i_vector_set(t15,C_fix(2),t4); -t17=C_slot(t8,C_fix(1)); -t18=C_i_vector_set(t17,C_fix(3),t6); -t19=C_i_setslot(t8,C_fix(4),t9); -t20=t1;{ -C_word *av2=av; -av2[0]=t20; -av2[1]=t8; -((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} - -/* lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_23444(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(18,0,10)))){ -C_save_and_reclaim_args((void *)trf_23444,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(18); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23447,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t4,a[5]=t5,a[6]=((C_word)li120),tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_pairp(t2))){ -if(C_truep(C_i_stringp(C_u_i_car(t2)))){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23470,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -t8=C_u_i_car(t2); -t9=C_fixnum_and(t4,C_fix(2)); -t10=C_eqp(C_fix(2),t9); -/* irregex-core.scm:3153: sre->cset */ -f_26490(t7,t8,C_a_i_list(&a,1,t10));} -else{ -t7=C_u_i_car(t2); -t8=C_eqp(t7,lf[180]); -t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23486,a[2]=t1,a[3]=t5,a[4]=t4,a[5]=t2,a[6]=t7,a[7]=t6,a[8]=((C_word*)t0)[2],a[9]=t3,a[10]=((C_word*)t0)[3],tmp=(C_word)a,a+=11,tmp); -if(C_truep(t8)){ -t10=t9; -f_23486(t10,t8);} -else{ -t10=C_eqp(t7,lf[248]); -if(C_truep(t10)){ -t11=t9; -f_23486(t11,t10);} -else{ -t11=C_eqp(t7,lf[235]); -t12=t9; -f_23486(t12,(C_truep(t11)?t11:C_eqp(t7,lf[52])));}}}} -else{ -if(C_truep(C_i_symbolp(t2))){ -t7=C_eqp(t2,lf[125]); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25279,a[2]=t5,a[3]=((C_word)li173),tmp=(C_word)a,a+=4,tmp); -t9=t1;{ -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[126]); -if(C_truep(t8)){ -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25337,a[2]=t5,a[3]=((C_word)li174),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t9=C_eqp(t2,lf[187]); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25429,a[2]=t5,a[3]=((C_word)li175),tmp=(C_word)a,a+=4,tmp); -t11=t1;{ -C_word av2[2]; -av2[0]=t11; -av2[1]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} -else{ -t10=C_eqp(t2,lf[196]); -if(C_truep(t10)){ -t11=t1;{ -C_word av2[2]; -av2[0]=t11; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25459,a[2]=t5,a[3]=((C_word)li176),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} -else{ -t11=C_eqp(t2,lf[184]); -if(C_truep(t11)){ -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25510,a[2]=t5,a[3]=((C_word)li177),tmp=(C_word)a,a+=4,tmp); -t13=t1;{ -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[188]); -if(C_truep(t12)){ -t13=t1;{ -C_word av2[2]; -av2[0]=t13; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25617,a[2]=t5,a[3]=((C_word)li178),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} -else{ -t13=C_eqp(t2,lf[197]); -if(C_truep(t13)){ -t14=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25650,a[2]=t5,a[3]=((C_word)li179),tmp=(C_word)a,a+=4,tmp); -t15=t1;{ -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[185]); -if(C_truep(t14)){ -t15=t1;{ -C_word av2[2]; -av2[0]=t15; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25715,a[2]=t5,a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} -else{ -t15=C_eqp(t2,lf[186]); -if(C_truep(t15)){ -t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25804,a[2]=t5,a[3]=((C_word)li181),tmp=(C_word)a,a+=4,tmp); -t17=t1;{ -C_word av2[2]; -av2[0]=t17; -av2[1]=t16; -((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} -else{ -t16=C_eqp(t2,lf[111]); -if(C_truep(t16)){ -t17=t1;{ -C_word av2[2]; -av2[0]=t17; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} -else{ -t17=C_i_assq(t2,lf[249]); -if(C_truep(t17)){ -/* irregex-core.scm:3594: rec */ -t18=t6; -f_23447(t18,t1,C_i_cdr(t17));} -else{ -/* irregex-core.scm:3595: chicken.base#error */ -t18=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t18; -av2[1]=t1; -av2[2]=lf[250]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}}}}}}}}}}}}} -else{ -if(C_truep(C_charp(t2))){ -t7=C_fixnum_and(t4,C_fix(2)); -t8=C_eqp(C_fix(2),t7); -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=(C_truep(t8)?(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25926,a[2]=t5,a[3]=t2,a[4]=((C_word)li183),tmp=(C_word)a,a+=5,tmp):(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26025,a[2]=t2,a[3]=t5,a[4]=((C_word)li185),tmp=(C_word)a,a+=5,tmp)); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -if(C_truep(C_i_stringp(t2))){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26140,a[2]=t6,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* ##sys#string->list */ -t8=*((C_word*)lf[106]+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:3648: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t1; -av2[2]=lf[252]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}}}}} - -/* rec in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_23447(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_23447,3,t0,t1,t2);} -/* irregex-core.scm:3148: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_23444(t3,t1,t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k23468 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23470(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_23470,c,av);} -/* irregex-core.scm:3152: sre-cset->procedure */ -f_26166(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} - -/* k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_23486(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(39,0,10)))){ -C_save_and_reclaim_args((void *)trf_23486,2,t0,t1);} -a=C_alloc(39); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23493,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_fixnum_and(((C_word*)t0)[4],C_fix(2)); -t4=C_eqp(C_fix(2),t3); -/* irregex-core.scm:3158: sre->cset */ -f_26490(t2,((C_word*)t0)[5],C_a_i_list(&a,1,t4));} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[104]); -if(C_truep(t2)){ -t3=C_i_length(C_u_i_cdr(((C_word*)t0)[5])); -switch(t3){ -case C_fix(0): -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23513,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp); -t5=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);} -case C_fix(1): -/* irregex-core.scm:3163: rec */ -t4=((C_word*)t0)[7]; -f_23447(t4,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[5])); -default: -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23533,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); -/* irregex-core.scm:3165: rec */ -t5=((C_word*)t0)[7]; -f_23447(t5,t4,C_i_cadr(((C_word*)t0)[5]));}} -else{ -t3=C_eqp(((C_word*)t0)[6],lf[226]); -if(C_truep(t3)){ -t4=( -/* irregex-core.scm:3175: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -t5=C_fixnum_not(C_fix(2)); -/* irregex-core.scm:3175: lp */ -t6=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t6,((C_word*)t0)[2],t4,((C_word*)t0)[9],C_fixnum_and(((C_word*)t0)[4],t5),((C_word*)t0)[3]);} -else{ -t4=C_eqp(((C_word*)t0)[6],lf[227]); -if(C_truep(t4)){ -t5=( -/* irregex-core.scm:3180: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -/* irregex-core.scm:3180: lp */ -t6=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t6,((C_word*)t0)[2],t5,((C_word*)t0)[9],C_fixnum_or(((C_word*)t0)[4],C_fix(2)),((C_word*)t0)[3]);} -else{ -t5=C_eqp(((C_word*)t0)[6],lf[157]); -if(C_truep(t5)){ -t6=( -/* irregex-core.scm:3185: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -/* irregex-core.scm:3185: lp */ -t7=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t7,((C_word*)t0)[2],t6,((C_word*)t0)[9],C_fixnum_or(((C_word*)t0)[4],C_fix(32)),((C_word*)t0)[3]);} -else{ -t6=C_eqp(((C_word*)t0)[6],lf[158]); -if(C_truep(t6)){ -t7=( -/* irregex-core.scm:3187: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -t8=C_fixnum_not(C_fix(32)); -/* irregex-core.scm:3187: lp */ -t9=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t9,((C_word*)t0)[2],t7,((C_word*)t0)[9],C_fixnum_and(((C_word*)t0)[4],t8),((C_word*)t0)[3]);} -else{ -t7=C_eqp(((C_word*)t0)[6],lf[116]); -t8=(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[228])); -if(C_truep(t8)){ -t9=C_i_length(C_u_i_cdr(((C_word*)t0)[5])); -switch(t9){ -case C_fix(0): -t10=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t10; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);} -case C_fix(1): -/* irregex-core.scm:3191: rec */ -t10=((C_word*)t0)[7]; -f_23447(t10,((C_word*)t0)[2],C_i_cadr(((C_word*)t0)[5])); -default: -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23687,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)[4],tmp=(C_word)a,a+=7,tmp); -t11=( -/* irregex-core.scm:3193: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[5])) -); -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23706,a[2]=((C_word*)t0)[8],a[3]=t10,a[4]=t11,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); -/* irregex-core.scm:3194: sre-count-submatches */ -f_16983(t12,C_i_cadr(((C_word*)t0)[5]));}} -else{ -t9=C_eqp(((C_word*)t0)[6],lf[132]); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23729,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t11=( -/* irregex-core.scm:3199: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -/* irregex-core.scm:3199: rec */ -t12=((C_word*)t0)[7]; -f_23447(t12,t10,t11);} -else{ -t10=C_eqp(((C_word*)t0)[6],lf[133]); -if(C_truep(t10)){ -t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23755,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t12=( -/* irregex-core.scm:3204: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -/* irregex-core.scm:3204: rec */ -t13=((C_word*)t0)[7]; -f_23447(t13,t11,t12);} -else{ -t11=C_eqp(((C_word*)t0)[6],lf[128]); -if(C_truep(t11)){ -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23784,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=( -/* irregex-core.scm:3210: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -/* irregex-core.scm:3210: sre-empty? */ -t14=lf[140];{ -C_word av2[3]; -av2[0]=t14; -av2[1]=t12; -av2[2]=t13; -f_16308(3,av2);}} -else{ -t12=C_eqp(((C_word*)t0)[6],lf[129]); -if(C_truep(t12)){ -t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23829,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); -t14=( -/* irregex-core.scm:3220: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -/* irregex-core.scm:3220: sre-empty? */ -t15=lf[140];{ -C_word av2[3]; -av2[0]=t15; -av2[1]=t13; -av2[2]=t14; -f_16308(3,av2);}} -else{ -t13=C_eqp(((C_word*)t0)[6],lf[130]); -if(C_truep(t13)){ -t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23883,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); -t15=( -/* irregex-core.scm:3239: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -/* irregex-core.scm:3239: sre-empty? */ -t16=lf[140];{ -C_word av2[3]; -av2[0]=t16; -av2[1]=t14; -av2[2]=t15; -f_16308(3,av2);}} -else{ -t14=C_eqp(((C_word*)t0)[6],lf[135]); -if(C_truep(t14)){ -t15=C_i_cadr(((C_word*)t0)[5]); -t16=C_u_i_cdr(((C_word*)t0)[5]); -t17=C_u_i_car(t16); -t18=C_u_i_cdr(((C_word*)t0)[5]); -t19=C_u_i_cdr(t18); -t20=C_a_i_cons(&a,2,t17,t19); -t21=C_a_i_cons(&a,2,t15,t20); -t22=C_a_i_cons(&a,2,lf[134],t21); -/* irregex-core.scm:3254: rec */ -t23=((C_word*)t0)[7]; -f_23447(t23,((C_word*)t0)[2],t22);} -else{ -t15=C_eqp(((C_word*)t0)[6],lf[136]); -if(C_truep(t15)){ -t16=C_i_cadr(((C_word*)t0)[5]); -t17=C_u_i_cdr(((C_word*)t0)[5]); -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=C_a_i_cons(&a,2,lf[134],t20); -/* irregex-core.scm:3256: rec */ -t22=((C_word*)t0)[7]; -f_23447(t22,((C_word*)t0)[2],t21);} -else{ -t16=C_eqp(((C_word*)t0)[6],lf[134]); -if(C_truep(t16)){ -t17=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],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_u_i_cdr(((C_word*)t0)[5]); -t21=C_u_i_car(t20); -t22=C_u_i_cdr(((C_word*)t0)[5]); -t23=C_u_i_cdr(t22); -t24=t17; -f_23985(t24,C_fixnum_greaterp(t21,C_u_i_car(t23)));} -else{ -t20=t17; -f_23985(t20,C_SCHEME_FALSE);}} -else{ -t19=t17; -f_23985(t19,C_SCHEME_FALSE);}} -else{ -t17=C_eqp(((C_word*)t0)[6],lf[131]); -if(C_truep(t17)){ -t18=(*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)[8],a[6]=((C_word*)t0)[9],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_u_i_cdr(((C_word*)t0)[5]); -t22=C_u_i_car(t21); -t23=C_u_i_cdr(((C_word*)t0)[5]); -t24=C_u_i_cdr(t23); -t25=t18; -f_24137(t25,C_fixnum_greaterp(t22,C_u_i_car(t24)));} -else{ -t21=t18; -f_24137(t21,C_SCHEME_FALSE);}} -else{ -t20=t18; -f_24137(t20,C_SCHEME_FALSE);}} -else{ -t18=C_eqp(((C_word*)t0)[6],lf[232]); -if(C_truep(t18)){ -t19=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24308,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t20=C_u_i_cdr(((C_word*)t0)[5]); -t21=C_a_i_list(&a,1,lf[185]); -/* irregex-core.scm:3327: ##sys#append */ -t22=*((C_word*)lf[119]+1);{ -C_word av2[4]; -av2[0]=t22; -av2[1]=t19; -av2[2]=t20; -av2[3]=t21; -((C_proc)(void*)(*((C_word*)t22+1)))(4,av2);}} -else{ -t19=C_eqp(((C_word*)t0)[6],lf[233]); -if(C_truep(t19)){ -t20=C_a_i_list(&a,3,lf[104],lf[182],lf[234]); -t21=C_u_i_cdr(((C_word*)t0)[5]); -t22=C_a_i_cons(&a,2,lf[104],t21); -t23=C_a_i_list(&a,3,lf[235],t20,t22); -t24=C_a_i_list(&a,2,lf[130],t23); -t25=C_a_i_list(&a,4,lf[116],lf[184],t24,lf[185]); -/* irregex-core.scm:3329: rec */ -t26=((C_word*)t0)[7]; -f_23447(t26,((C_word*)t0)[2],t25);} -else{ -t20=C_eqp(((C_word*)t0)[6],lf[236]); -if(C_truep(t20)){ -t21=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24358,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3332: string->sre */ -t22=*((C_word*)lf[103]+1);{ -C_word av2[3]; -av2[0]=t22; -av2[1]=t21; -av2[2]=C_i_cadr(((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} -else{ -t21=C_eqp(((C_word*)t0)[6],lf[112]); -if(C_truep(t21)){ -t22=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24371,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t23=( -/* irregex-core.scm:3335: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24394,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3335: lp */ -t25=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t25,t22,t23,((C_word*)t0)[9],((C_word*)t0)[4],t24);} -else{ -t22=C_eqp(((C_word*)t0)[6],lf[113]); -if(C_truep(t22)){ -t23=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24406,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t24=( -/* irregex-core.scm:3345: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24429,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3345: lp */ -t26=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t26,t23,t24,((C_word*)t0)[9],((C_word*)t0)[4],t25);} -else{ -t23=C_eqp(((C_word*)t0)[6],lf[114]); -t24=(C_truep(t23)?t23:C_eqp(((C_word*)t0)[6],lf[115])); -if(C_truep(t24)){ -t25=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24444,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_24516,a[2]=((C_word*)t0)[8],a[3]=t25,a[4]=((C_word*)t0)[9],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:3356: scheme#append */ -t27=*((C_word*)lf[74]+1);{ -C_word av2[4]; -av2[0]=t27; -av2[1]=t26; -av2[2]=C_u_i_cdr(((C_word*)t0)[5]); -av2[3]=lf[239]; -((C_proc)(void*)(*((C_word*)t27+1)))(4,av2);}} -else{ -t25=C_eqp(((C_word*)t0)[6],lf[240]); -if(C_truep(t25)){ -t26=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24527,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t27=( -/* irregex-core.scm:3372: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24550,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3372: lp */ -t29=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t29,t26,t27,((C_word*)t0)[9],((C_word*)t0)[4],t28);} -else{ -t26=C_eqp(((C_word*)t0)[6],lf[110]); -if(C_truep(t26)){ -t27=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24562,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:3382: sre-count-submatches */ -f_16983(t27,C_i_cadr(((C_word*)t0)[5]));} -else{ -t27=C_eqp(((C_word*)t0)[6],lf[193]); -t28=(C_truep(t27)?t27:C_eqp(((C_word*)t0)[6],lf[192])); -if(C_truep(t28)){ -t29=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24718,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=t29;{ -C_word av2[2]; -av2[0]=t31; -av2[1]=C_u_i_car(C_u_i_cdr(((C_word*)t0)[5])); -f_24718(2,av2);}} -else{ -t31=C_u_i_cdr(((C_word*)t0)[5]); -t32=C_i_assq(C_u_i_car(t31),((C_word*)((C_word*)t0)[10])[1]); -if(C_truep(t32)){ -t33=t29;{ -C_word av2[2]; -av2[0]=t33; -av2[1]=C_i_cdr(t32); -f_24718(2,av2);}} -else{ -t33=C_u_i_cdr(((C_word*)t0)[5]); -/* irregex-core.scm:3414: chicken.base#error */ -t34=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t34; -av2[1]=t29; -av2[2]=lf[244]; -av2[3]=C_u_i_car(t33); -((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}}}} -else{ -t29=C_eqp(((C_word*)t0)[6],lf[245]); -if(C_truep(t29)){ -t30=( -/* irregex-core.scm:3454: sre-sequence */ - f_18189(C_a_i(&a,3),C_i_cdddr(((C_word*)t0)[5])) -); -t31=C_i_cadr(((C_word*)t0)[5]); -/* irregex-core.scm:3454: lp */ -t32=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t32,((C_word*)t0)[2],t30,C_fixnum_plus(((C_word*)t0)[9],t31),((C_word*)t0)[4],((C_word*)t0)[3]);} -else{ -t30=C_eqp(((C_word*)t0)[6],lf[246]); -t31=(C_truep(t30)?t30:C_eqp(((C_word*)t0)[6],lf[109])); -if(C_truep(t31)){ -t32=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24935,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t33=( -/* irregex-core.scm:3457: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[5])) -); -t34=C_fixnum_plus(((C_word*)t0)[9],C_fix(1)); -t35=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25044,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[3],a[4]=((C_word)li172),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3457: lp */ -t36=((C_word*)((C_word*)t0)[8])[1]; -f_23444(t36,t32,t33,t34,((C_word*)t0)[4],t35);} -else{ -t32=C_eqp(((C_word*)t0)[6],lf[120]); -t33=(C_truep(t32)?t32:C_eqp(((C_word*)t0)[6],lf[121])); -if(C_truep(t33)){ -t34=C_i_cddr(((C_word*)t0)[5]); -t35=C_a_i_cons(&a,2,lf[109],t34); -/* irregex-core.scm:3487: rec */ -t36=((C_word*)t0)[7]; -f_23447(t36,((C_word*)t0)[2],t35);} -else{ -/* irregex-core.scm:3489: chicken.base#error */ -t34=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t34; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[247]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t34+1)))(4,av2);}}}}}}}}}}}}}}}}}}}}}}}}}}}}}} - -/* k23491 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23493(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_23493,c,av);} -/* irregex-core.scm:3157: sre-cset->procedure */ -f_26166(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} - -/* f_23513 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23513(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23513,c,av);} -/* irregex-core.scm:3162: fail */ -t10=t9;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* k23531 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23533(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_23533,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23536,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=( -/* irregex-core.scm:3166: sre-alternate */ - f_18212(C_a_i(&a,3),C_i_cddr(((C_word*)t0)[3])) -); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23559,a[2]=((C_word*)t0)[4],a[3]=t2,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); -/* irregex-core.scm:3167: sre-count-submatches */ -f_16983(t4,C_i_cadr(((C_word*)t0)[3]));} - -/* k23534 in k23531 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23536(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ -C_save_and_reclaim((void *)f_23536,c,av);} -a=C_alloc(5); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23537,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word)li123),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_23537 in k23534 in k23531 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_23537(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23537,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23543,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li122),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3171: first */ -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* a23542 */ -static void C_ccall f_23543(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=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_23543,c,av);} -/* irregex-core.scm:3173: rest */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k23557 in k23531 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23559(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_23559,c,av);} -/* irregex-core.scm:3166: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_23444(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[5],t1),((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k23685 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_23687,c,av);} -/* irregex-core.scm:3197: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_23444(t2,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[4]),((C_word*)t0)[5],((C_word*)t0)[6],t1);} - -/* k23704 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23706(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_23706,c,av);} -/* irregex-core.scm:3193: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_23444(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[5],t1),((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k23727 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23729(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ -C_save_and_reclaim((void *)f_23729,c,av);} -a=C_alloc(5); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23730,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word)li125),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_23730 in k23727 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23730(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23730,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23736,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li124),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3201: body */ -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* a23735 */ -static void C_ccall f_23736(C_word c,C_word *av){ -C_word tmp; -C_word 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_23736,c,av);} -/* irregex-core.scm:3202: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k23753 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_23755,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23756,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li127),tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_23756 in k23753 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23756(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23756,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23762,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li126),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3206: next */ -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* a23761 */ -static void C_ccall f_23762(C_word c,C_word *av){ -C_word tmp; -C_word 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_23762,c,av);} -/* irregex-core.scm:3207: body */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k23782 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23784(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_23784,c,av);} -a=C_alloc(13); -if(C_truep(t1)){ -/* irregex-core.scm:3211: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[229]; -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_23790,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t3=( -/* irregex-core.scm:3213: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3])) -); -t4=C_a_i_list2(&a,2,lf[130],t3); -/* irregex-core.scm:3213: rec */ -t5=((C_word*)t0)[5]; -f_23447(t5,t2,t4);}} - -/* k23788 in k23782 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23790(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ -C_save_and_reclaim((void *)f_23790,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23791,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_23791 in k23788 in k23782 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 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,c,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)li128),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3215: body */ -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* 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,c,av);} -/* irregex-core.scm:3217: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k23827 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23829(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,10)))){ -C_save_and_reclaim((void *)f_23829,c,av);} -a=C_alloc(15); -if(C_truep(t1)){ -/* irregex-core.scm:3221: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[230]; -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_23835,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -t5=( -/* irregex-core.scm:3225: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3])) -); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23853,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=((C_word)li133),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3225: lp */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_23444(t7,t4,t5,((C_word*)t0)[6],((C_word*)t0)[7],t6);}} - -/* k23833 in k23827 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23835(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_23835,c,av);} -a=C_alloc(5); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23837,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li131),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_23837 in k23833 in k23827 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_23837(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23837,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23843,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li130),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3234: next */ -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* a23842 */ -static void C_ccall f_23843(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -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_23843,c,av);} -/* irregex-core.scm:3236: body */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* a23852 in k23827 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23853(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23853,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23859,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li132),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3229: next */ -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* a23858 in a23852 in k23827 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_23859(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -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_23859,c,av);} -/* irregex-core.scm:3231: body */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k23881 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_23883(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,10)))){ -C_save_and_reclaim((void *)f_23883,c,av);} -a=C_alloc(14); -if(C_truep(t1)){ -/* irregex-core.scm:3240: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[231]; -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_23889,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t5=( -/* irregex-core.scm:3244: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(((C_word*)t0)[3])) -); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23896,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li135),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3244: lp */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_23444(t7,t4,t5,((C_word*)t0)[6],((C_word*)t0)[7],t6);}} - -/* k23887 in k23881 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23889(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_23889,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)((C_word*)t0)[2])[1]; -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a23895 in k23881 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_23896(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_23896,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_23902,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li134),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3248: body */ -t11=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* a23901 in a23895 in k23881 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_23902(C_word c,C_word *av){ -C_word tmp; -C_word 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_23902,c,av);} -/* irregex-core.scm:3250: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_23985(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_23985,2,t0,t1);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_23988(t3,t1);} -else{ -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=C_i_not(C_u_i_car(t3)); -t5=t2; -f_23988(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE));}} - -/* k23986 in k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void f_23988(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word 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,10)))){ -C_save_and_reclaim_args((void *)trf_23988,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_23989,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_SCHEME_UNDEFINED; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_SCHEME_UNDEFINED; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_u_i_cdr(((C_word*)t0)[3]); -t11=C_u_i_car(t10); -t12=C_i_caddr(((C_word*)t0)[3]); -t13=C_u_i_cdr(((C_word*)t0)[3]); -t14=C_u_i_cdr(t13); -t15=( -/* irregex-core.scm:3268: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t14)) -); -t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24002,a[2]=t5,a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t9,a[6]=((C_word*)t0)[5],a[7]=t7,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li139),tmp=(C_word)a,a+=11,tmp); -t17=C_set_block_item(t3,0,t11); -t18=C_set_block_item(t5,0,t12); -t19=C_set_block_item(t7,0,t15); -t20=C_set_block_item(t9,0,t16); -t21=(C_truep(C_i_zerop(((C_word*)t3)[1]))?(C_truep(((C_word*)t5)[1])?C_i_zerop(((C_word*)t5)[1]):C_SCHEME_FALSE):C_SCHEME_FALSE); -if(C_truep(t21)){ -t22=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t22; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}} -else{ -t22=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24057,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t9,a[5]=((C_word)li141),tmp=(C_word)a,a+=6,tmp); -t23=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t23; -av2[1]=t22; -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}}} - -/* f_23989 in k23986 in k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_23989(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23989,c,av);} -/* irregex-core.scm:3263: fail */ -t10=t9;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* body4562 in k23986 in k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 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=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_24002,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24008,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li138),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:3271: lp */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_23444(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);} - -/* a24007 in body4562 in k23986 in k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in ... */ -static void C_ccall f_24008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24008,c,av);} -a=C_alloc(14); -t10=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_eqp(((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]):C_SCHEME_FALSE); -if(C_truep(t10)){ -/* irregex-core.scm:3276: next */ -t11=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t9; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} -else{ -t11=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24021,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,a[12]=t9,a[13]=t1,tmp=(C_word)a,a+=14,tmp); -/* irregex-core.scm:3277: body */ -t12=((C_word*)((C_word*)t0)[6])[1];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -av2[2]=C_fixnum_plus(C_fix(1),((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} - -/* k24019 in a24007 in body4562 in k23986 in k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in ... */ -static void C_ccall f_24021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24021,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24026,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word)li137),tmp=(C_word)a,a+=14,tmp); -/* irregex-core.scm:3275: g4581 */ -t3=t1;{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[13]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -av2[6]=((C_word*)t0)[9]; -av2[7]=((C_word*)t0)[10]; -av2[8]=((C_word*)t0)[11]; -av2[9]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} - -/* a24025 in k24019 in a24007 in body4562 in k23986 in k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 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!=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_24026,c,av);} -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]))){ -/* irregex-core.scm:3281: next */ -t2=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -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*)t2+1)))(10,av2);}} -else{ -/* irregex-core.scm:3282: fail */ -t2=((C_word*)t0)[12];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* f_24057 in k23986 in k23983 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24057(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24057,c,av);} -a=C_alloc(13); -t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24061,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:3286: body */ -t11=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -av2[2]=C_fix(1); -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} - -/* k24059 */ -static void C_ccall f_24061(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24061,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24066,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word)li140),tmp=(C_word)a,a+=13,tmp); -/* irregex-core.scm:3285: g4593 */ -t3=t1;{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[12]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=((C_word*)t0)[8]; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} - -/* a24065 in k24059 */ -static void C_ccall f_24066(C_word c,C_word *av){ -C_word tmp; -C_word 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_24066,c,av);} -if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[2])[1]))){ -/* irregex-core.scm:3289: next */ -t2=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=((C_word*)t0)[8]; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} -else{ -/* irregex-core.scm:3290: fail */ -t2=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void f_24137(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_24137,2,t0,t1);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24140,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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_24140(t3,t1);} -else{ -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=C_i_not(C_u_i_car(t3)); -t5=t2; -f_24140(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[3]):C_SCHEME_FALSE));}} - -/* k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void f_24140(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word 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(28,0,10)))){ -C_save_and_reclaim_args((void *)trf_24140,2,t0,t1);} -a=C_alloc(28); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24141,a[2]=((C_word)li142),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=C_SCHEME_UNDEFINED; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_SCHEME_UNDEFINED; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_u_i_cdr(((C_word*)t0)[3]); -t11=C_u_i_car(t10); -t12=C_i_caddr(((C_word*)t0)[3]); -t13=C_u_i_cdr(((C_word*)t0)[3]); -t14=C_u_i_cdr(t13); -t15=( -/* irregex-core.scm:3302: sre-sequence */ - f_18189(C_a_i(&a,3),C_u_i_cdr(t14)) -); -t16=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24154,a[2]=t3,a[3]=t9,a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t7,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li145),tmp=(C_word)a,a+=11,tmp); -t17=C_set_block_item(t3,0,t11); -t18=C_set_block_item(t5,0,t12); -t19=C_set_block_item(t7,0,t15); -t20=C_set_block_item(t9,0,t16); -t21=(C_truep(C_i_zerop(((C_word*)t3)[1]))?(C_truep(((C_word*)t5)[1])?C_i_zerop(((C_word*)t5)[1]):C_SCHEME_FALSE):C_SCHEME_FALSE); -t22=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t22; -av2[1]=(C_truep(t21)?((C_word*)t0)[4]:(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24216,a[2]=t3,a[3]=t9,a[4]=((C_word*)t0)[4],a[5]=((C_word)li147),tmp=(C_word)a,a+=6,tmp)); -((C_proc)(void*)(*((C_word*)t22+1)))(2,av2);}}} - -/* f_24141 in k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24141(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24141,c,av);} -/* irregex-core.scm:3297: fail */ -t10=t9;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* body4620 in k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24154(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24154,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24160,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word)li144),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:3305: lp */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_23444(t4,t1,((C_word*)((C_word*)t0)[7])[1],((C_word*)t0)[8],((C_word*)t0)[9],t3);} - -/* a24159 in body4620 in k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in ... */ -static void C_ccall f_24160(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(14,c,9)))){ -C_save_and_reclaim((void *)f_24160,c,av);} -a=C_alloc(14); -if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]))){ -t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24170,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:3310: body */ -t11=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -av2[2]=C_fixnum_plus(C_fix(1),((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} -else{ -t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24182,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=t2,a[6]=t3,a[7]=t4,a[8]=t5,a[9]=t6,a[10]=t7,a[11]=t8,a[12]=((C_word*)t0)[4],a[13]=((C_word)li143),tmp=(C_word)a,a+=14,tmp); -/* irregex-core.scm:3312: next */ -t11=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}}} - -/* k24168 in a24159 in body4620 in k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in ... */ -static void C_ccall f_24170(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24170,c,av);} -/* irregex-core.scm:3309: g4638 */ -t2=t1;{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* a24181 in a24159 in body4620 in k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in ... */ -static void C_ccall f_24182(C_word c,C_word *av){ -C_word tmp; -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(11,c,2)))){ -C_save_and_reclaim((void *)f_24182,c,av);} -a=C_alloc(11); -t2=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_eqp(((C_word*)t0)[3],((C_word*)((C_word*)t0)[2])[1]):C_SCHEME_FALSE); -if(C_truep(t2)){ -/* irregex-core.scm:3315: fail */ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24195,a[2]=t1,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)[4],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:3316: body */ -t4=((C_word*)((C_word*)t0)[12])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_fixnum_plus(C_fix(1),((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k24193 in a24181 in a24159 in body4620 in k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in ... */ -static void C_ccall f_24195(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24195,c,av);} -/* irregex-core.scm:3314: g4641 */ -t2=t1;{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* f_24216 in k24138 in k24135 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24216,c,av);} -a=C_alloc(12); -if(C_truep(C_i_zerop(((C_word*)((C_word*)t0)[2])[1]))){ -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24226,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t8,a[9]=t9,a[10]=((C_word*)t0)[3],a[11]=((C_word)li146),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3322: next */ -t11=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} -else{ -t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24236,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:3325: body */ -t11=((C_word*)((C_word*)t0)[3])[1];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -av2[2]=C_fix(1); -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}}} - -/* a24225 */ -static void C_ccall f_24226(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_24226,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24230,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:3324: body */ -t3=((C_word*)((C_word*)t0)[10])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_fix(1); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k24228 in a24225 */ -static void C_ccall f_24230(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24230,c,av);} -/* irregex-core.scm:3323: g4653 */ -t2=t1;{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k24234 */ -static void C_ccall f_24236(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24236,c,av);} -/* irregex-core.scm:3321: g4655 */ -t2=t1;{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k24306 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24308,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,lf[184],t1); -t3=C_a_i_cons(&a,2,lf[116],t2); -/* irregex-core.scm:3327: rec */ -t4=((C_word*)t0)[2]; -f_23447(t4,((C_word*)t0)[3],t3);} - -/* k24356 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24358(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_24358,c,av);} -/* irregex-core.scm:3332: rec */ -t2=((C_word*)t0)[2]; -f_23447(t2,((C_word*)t0)[3],t1);} - -/* k24369 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24371(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,10)))){ -C_save_and_reclaim((void *)f_24371,c,av);} -a=C_alloc(5); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24372,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word)li149),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_24372 in k24369 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_24372(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24372,c,av);} -a=C_alloc(15); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24379,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_24387,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3340: check */ -t12=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t10; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}} - -/* k24377 */ -static void C_ccall f_24379(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24379,c,av);} -if(C_truep(t1)){ -/* irregex-core.scm:3341: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=((C_word*)t0)[8]; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} -else{ -/* irregex-core.scm:3342: fail */ -t2=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* a24386 */ -static void C_ccall f_24387(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=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_24387,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a24393 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24394(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24394,c,av);} -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* k24404 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24406(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24406,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24407,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li152),tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_24407 in k24404 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_24407(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24407,c,av);} -a=C_alloc(15); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24414,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_24422,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3350: check */ -t12=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t10; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}} - -/* k24412 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ -C_save_and_reclaim((void *)f_24414,c,av);} -if(C_truep(t1)){ -/* irregex-core.scm:3351: fail */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* irregex-core.scm:3352: next */ -t2=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -av2[6]=((C_word*)t0)[9]; -av2[7]=((C_word*)t0)[10]; -av2[8]=((C_word*)t0)[11]; -av2[9]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}}} - -/* a24421 */ -static void C_ccall f_24422(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=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_24422,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a24428 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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=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_24429,c,av);} -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* k24442 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,10)))){ -C_save_and_reclaim((void *)f_24444,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24445,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word)li158),tmp=(C_word)a,a+=6,tmp); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_24445 in k24442 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_24445(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(25,c,7)))){ -C_save_and_reclaim((void *)f_24445,c,av);} -a=C_alloc(25); -t10=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_24449,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8728,a[2]=t4,a[3]=t2,a[4]=((C_word)li156),tmp=(C_word)a,a+=5,tmp); -t12=C_i_vector_ref(t2,C_fix(1)); -t13=C_i_vector_ref(t2,C_fix(2)); -t14=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8755,a[2]=t4,a[3]=t6,a[4]=t2,a[5]=((C_word)li157),tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:403: make-irregex-chunker */ -t15=*((C_word*)lf[45]+1);{ -C_word *av2=av; -av2[0]=t15; -av2[1]=t10; -av2[2]=t11; -av2[3]=t12; -av2[4]=t13; -av2[5]=t14; -av2[6]=C_i_vector_ref(t2,C_fix(4)); -av2[7]=C_i_vector_ref(t2,C_fix(5)); -((C_proc)(void*)(*((C_word*)t15+1)))(8,av2);}} - -/* k24447 */ -static void C_ccall f_24449(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24449,c,av);} -a=C_alloc(15); -t2=C_i_vector_ref(t1,C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_24455,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],a[13]=((C_word*)t0)[12],a[14]=((C_word*)t0)[13],tmp=(C_word)a,a+=15,tmp); -/* irregex-core.scm:3361: g4723 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k24453 in k24447 */ -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 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_24455,c,av);} -a=C_alloc(17); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_vector_ref(((C_word*)t0)[3],C_fix(3)); -t4=(*a=C_CLOSURE_TYPE|16,a[1]=(C_word)f_24462,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[8],a[8]=((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]=t1,a[16]=t2,tmp=(C_word)a,a+=17,tmp); -/* irregex-core.scm:3361: g4727 */ -t5=t3;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k24460 in k24453 in k24447 */ -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 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,9)))){ -C_save_and_reclaim((void *)f_24462,c,av);} -a=C_alloc(22); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_eqp(t2,lf[114]); -t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24490,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp):*((C_word*)lf[237]+1)); -t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24471,a[2]=((C_word*)t0)[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); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24481,a[2]=t4,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -t7=C_u_i_car(((C_word*)t0)[6]); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24485,a[2]=((C_word)li155),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3366: check */ -t9=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t9; -av2[1]=t6; -av2[2]=((C_word*)t0)[14]; -av2[3]=((C_word*)t0)[6]; -av2[4]=t7; -av2[5]=((C_word*)t0)[15]; -av2[6]=((C_word*)t0)[16]; -av2[7]=t1; -av2[8]=((C_word*)t0)[11]; -av2[9]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(10,av2);}} - -/* k24469 in k24460 in k24453 in k24447 */ -static void C_ccall f_24471(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24471,c,av);} -if(C_truep(t1)){ -/* irregex-core.scm:3368: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=((C_word*)t0)[8]; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} -else{ -/* irregex-core.scm:3369: fail */ -t2=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k24479 in k24460 in k24453 in k24447 */ -static void C_ccall f_24481(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_24481,c,av);} -/* irregex-core.scm:3365: g4729 */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a24484 in k24460 in k24453 in k24447 */ -static void C_ccall f_24485(C_word c,C_word *av){ -C_word tmp; -C_word 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_24485,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_24490 in k24460 in k24453 in k24447 */ -static void C_ccall f_24490(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24490,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a24506 in k24514 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 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=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_24507,c,av);} -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* k24514 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24516(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_24516,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,lf[238],t1); -t3=( -/* irregex-core.scm:3355: sre-sequence */ - f_18189(C_a_i(&a,3),t2) -); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24507,a[2]=((C_word)li159),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3355: lp */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_23444(t5,((C_word*)t0)[3],t3,((C_word*)t0)[4],((C_word*)t0)[5],t4);} - -/* k24525 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24527(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24527,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24528,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li161),tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_24528 in k24525 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_24528(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24528,c,av);} -a=C_alloc(14); -t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24532,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_24543,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3377: once */ -t12=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t10; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}} - -/* k24530 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,9)))){ -C_save_and_reclaim((void *)f_24532,c,av);} -if(C_truep(t1)){ -/* irregex-core.scm:3379: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=t1; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} -else{ -/* irregex-core.scm:3380: fail */ -t2=((C_word*)t0)[10];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* a24542 */ -static void C_ccall f_24543(C_word c,C_word *av){ -C_word tmp; -C_word 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_24543,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a24549 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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=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_24550,c,av);} -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,5)))){ -C_save_and_reclaim((void *)f_24562,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24565,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:3383: lp */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_23444(t3,t2,C_i_caddr(((C_word*)t0)[2]),((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[6],t1),((C_word*)t0)[8]);} - -/* k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_24565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,10)))){ -C_save_and_reclaim((void *)f_24565,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24568,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -t3=C_i_cdddr(((C_word*)t0)[2]); -if(C_truep(C_i_pairp(t3))){ -t4=C_i_cadddr(((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24681,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); -t6=C_u_i_cdr(((C_word*)t0)[2]); -t7=C_u_i_cdr(t6); -/* irregex-core.scm:3387: sre-count-submatches */ -f_16983(t5,C_u_i_car(t7));} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24686,a[2]=((C_word)li166),tmp=(C_word)a,a+=3,tmp); -f_24568(2,av2);}}} - -/* k24566 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24568(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_24568,c,av);} -a=C_alloc(10); -t2=C_i_cadr(((C_word*)t0)[2]); -t3=C_i_numberp(t2); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24577,a[2]=((C_word*)t0)[3],a[3]=t1,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(t3)){ -t5=t4; -f_24577(t5,t3);} -else{ -t5=C_u_i_cdr(((C_word*)t0)[2]); -t6=t4; -f_24577(t6,C_i_symbolp(C_u_i_car(t5)));}} - -/* k24575 in k24566 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in ... */ -static void f_24577(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_24577,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24580,a[2]=((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]); -if(C_truep(C_i_symbolp(C_u_i_car(t3)))){ -t4=C_u_i_cdr(((C_word*)t0)[5]); -t5=C_i_assq(C_u_i_car(t4),((C_word*)((C_word*)t0)[6])[1]); -if(C_truep(t5)){ -t6=t2;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_i_cdr(t5); -f_24580(2,av2);}} -else{ -/* irregex-core.scm:3399: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t2; -av2[2]=lf[241]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} -else{ -t4=t2;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_i_cadr(((C_word*)t0)[5]); -f_24580(2,av2);}}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24638,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3406: lp */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_23444(t3,t2,C_i_cadr(((C_word*)t0)[5]),((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[2]);}} - -/* k24578 in k24575 in k24566 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in ... */ -static void C_ccall f_24580(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24580,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24581,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li163),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_24581 in k24578 in k24575 in k24566 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in ... */ -static void C_ccall f_24581(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(0,c,9)))){ -C_save_and_reclaim((void *)f_24581,c,av);} -t10=C_slot(t8,C_fix(1)); -t11=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t12=C_fixnum_plus(C_fix(2),t11); -if(C_truep(C_slot(t10,t12))){ -/* irregex-core.scm:3403: pass */ -t13=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t13; -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*)t13+1)))(10,av2);}} -else{ -/* irregex-core.scm:3404: fail */ -t13=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t13; -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*)t13+1)))(10,av2);}}} - -/* k24636 in k24575 in k24566 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in ... */ -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; -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_24638,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24639,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li165),tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_24639 in k24636 in k24575 in k24566 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in ... */ -static void C_ccall f_24639(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_24639,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_24645,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,a[7]=t6,a[8]=t7,a[9]=t8,a[10]=t9,a[11]=((C_word)li164),tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3408: test */ -t11=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(10,av2);}} - -/* a24644 */ -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; -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_24645,c,av);} -/* irregex-core.scm:3409: fail */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=((C_word*)t0)[7]; -av2[7]=((C_word*)t0)[8]; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* k24679 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24681(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24681,c,av);} -/* irregex-core.scm:3385: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_23444(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_fixnum_plus(C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]),t1),((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* f_24686 in k24563 in k24560 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24686(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24686,c,av);} -/* irregex-core.scm:3391: fail */ -t10=t9;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* k24716 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24718(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_24718,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24721,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_eqp(C_u_i_car(((C_word*)t0)[4]),lf[192]); -if(C_truep(t3)){ -t4=t2; -f_24721(t4,(C_truep(t3)?*((C_word*)lf[242]+1):*((C_word*)lf[243]+1)));} -else{ -t4=C_fixnum_and(((C_word*)t0)[5],C_fix(2)); -t5=C_eqp(C_fix(2),t4); -t6=t2; -f_24721(t6,(C_truep(t5)?*((C_word*)lf[242]+1):*((C_word*)lf[243]+1)));}} - -/* k24719 in k24716 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void f_24721(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,10)))){ -C_save_and_reclaim_args((void *)trf_24721,2,t0,t1);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24722,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word)li168),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_24722 in k24719 in k24716 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in ... */ -static void C_ccall f_24722(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24722,c,av);} -a=C_alloc(13); -t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24726,a[2]=t9,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t3,a[7]=t8,a[8]=((C_word*)t0)[3],a[9]=t4,a[10]=t5,a[11]=t6,a[12]=t7,tmp=(C_word)a,a+=13,tmp); -/* irregex-core.scm:3420: irregex-match-substring */ -t11=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -av2[2]=t8; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} - -/* k24724 */ -static void C_ccall f_24726(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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,8)))){ -C_save_and_reclaim((void *)f_24726,c,av);} -a=C_alloc(13); -if(C_truep(C_i_not(t1))){ -/* irregex-core.scm:3422: fail */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_i_string_length(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_24744,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]=t1,a[9]=t4,a[10]=((C_word)li167),tmp=(C_word)a,a+=11,tmp)); -t6=((C_word*)t4)[1]; -f_24744(t6,((C_word*)t0)[3],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[12],C_fix(0),t2);}} - -/* lp in k24724 */ -static void f_24744(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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(20,0,4)))){ -C_save_and_reclaim_args((void *)trf_24744,8,t0,t1,t2,t3,t4,t5,t6,t7);} -a=C_alloc(20); -t8=C_fixnum_difference(t5,t4); -if(C_truep(C_fixnum_less_or_equal_p(t7,t8))){ -t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_24757,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=t3,a[8]=t4,a[9]=t7,a[10]=t5,a[11]=((C_word*)t0)[5],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp); -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24771,a[2]=((C_word*)t0)[7],a[3]=t9,a[4]=t3,a[5]=t4,a[6]=t7,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:3433: scheme#substring */ -t11=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t11; -av2[1]=t10; -av2[2]=((C_word*)t0)[8]; -av2[3]=t6; -av2[4]=C_i_string_length(((C_word*)t0)[8]); -((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24789,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=t4,a[5]=t6,a[6]=((C_word*)t0)[9],a[7]=t1,a[8]=t7,a[9]=((C_word*)t0)[6],a[10]=t2,tmp=(C_word)a,a+=11,tmp); -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24844,a[2]=((C_word*)t0)[7],a[3]=t9,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -t11=C_fixnum_difference(t5,t4); -/* irregex-core.scm:3440: scheme#substring */ -t12=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t12; -av2[1]=t10; -av2[2]=((C_word*)t0)[8]; -av2[3]=t6; -av2[4]=C_fixnum_plus(t6,t11); -((C_proc)(void*)(*((C_word*)t12+1)))(5,av2);}}} - -/* k24755 in lp in k24724 */ -static void C_ccall f_24757(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24757,c,av);} -if(C_truep(t1)){ -/* irregex-core.scm:3435: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=C_fixnum_plus(((C_word*)t0)[8],((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*)t2+1)))(10,av2);}} -else{ -/* irregex-core.scm:3437: fail */ -t2=((C_word*)t0)[12];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k24769 in lp in k24724 */ -static void C_ccall f_24771(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24771,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24775,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3434: scheme#substring */ -t3=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k24773 in k24769 in lp in k24724 */ -static void C_ccall f_24775(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_24775,c,av);} -/* irregex-core.scm:3433: compare */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k24787 in lp in k24724 */ -static void C_ccall f_24789(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24789,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24795,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:3442: g4839 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* irregex-core.scm:3452: fail */ -t2=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k24793 in k24787 in lp in k24724 */ -static void C_ccall f_24795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24795,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_24808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:3444: g4841 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* irregex-core.scm:3450: fail */ -t2=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k24806 in k24793 in k24787 in lp in k24724 */ -static void C_ccall f_24808(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24808,c,av);} -a=C_alloc(11); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24815,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:3444: g4843 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k24813 in k24806 in k24793 in k24787 in lp in k24724 */ -static void C_ccall f_24815(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24815,c,av);} -a=C_alloc(11); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_24822,a[2]=((C_word*)t0)[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]=t1,a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:3444: g4845 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k24820 in k24813 in k24806 in k24793 in k24787 in lp in k24724 */ -static void C_ccall f_24822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_24822,c,av);} -a=C_alloc(15); -t2=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_s_a_u_i_integer_plus(&a,2,((C_word*)t0)[4],t2); -t4=C_a_i_fixnum_difference(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -/* irregex-core.scm:3444: lp */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_24744(t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9],t1,t3,C_fixnum_difference(((C_word*)t0)[10],t4));} - -/* k24842 in lp in k24724 */ -static void C_ccall f_24844(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24844,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24848,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3441: scheme#substring */ -t3=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k24846 in k24842 in lp in k24724 */ -static void C_ccall f_24848(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_24848,c,av);} -/* irregex-core.scm:3440: compare */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k24933 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_24935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24935,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24936,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li170),tmp=(C_word)a,a+=5,tmp); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_24936 in k24933 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_24936(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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 *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_24936,c,av);} -a=C_alloc(8); -t10=C_slot(t8,C_fix(1)); -t11=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t12=C_slot(t10,t11); -t13=C_slot(t8,C_fix(1)); -t14=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t15=C_fixnum_plus(C_fix(1),t14); -t16=C_slot(t13,t15); -t17=C_slot(t8,C_fix(1)); -t18=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t19=C_i_vector_set(t17,t18,t4); -t20=C_slot(t8,C_fix(1)); -t21=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t22=C_fixnum_plus(C_fix(1),t21); -t23=C_i_vector_set(t20,t22,t6); -t24=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24984,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t12,a[5]=t16,a[6]=t9,a[7]=((C_word)li169),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:3479: body */ -t25=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t25; -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]=t24; -((C_proc)(void*)(*((C_word*)t25+1)))(10,av2);}} - -/* a24983 */ -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 *a; -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_24984,c,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:3485: fail */ -t9=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* a25043 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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=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 *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_25044,c,av);} -a=C_alloc(8); -t10=C_slot(t8,C_fix(1)); -t11=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t12=C_fixnum_plus(C_fix(2),t11); -t13=C_slot(t10,t12); -t14=C_slot(t8,C_fix(1)); -t15=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t16=C_slot(t14,C_fixnum_plus(C_fix(3),t15)); -t17=C_slot(t8,C_fix(1)); -t18=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t19=C_fixnum_plus(C_fix(2),t18); -t20=C_i_vector_set(t17,t19,t4); -t21=C_slot(t8,C_fix(1)); -t22=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t23=C_fixnum_plus(C_fix(3),t22); -t24=C_i_vector_set(t21,t23,t6); -t25=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25079,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=t13,a[5]=t16,a[6]=t9,a[7]=((C_word)li171),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:3467: next */ -t26=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t26; -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]=t25; -((C_proc)(void*)(*((C_word*)t26+1)))(10,av2);}} - -/* a25078 in a25043 in k23484 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 in ... */ -static void C_ccall f_25079(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_25079,c,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:3473: fail */ -t10=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} - -/* f_25279 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25279(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(8,c,9)))){ -C_save_and_reclaim((void *)f_25279,c,av);} -a=C_alloc(8); -if(C_truep(C_fixnum_lessp(t6,t7))){ -/* irregex-core.scm:3495: next */ -t10=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=C_fixnum_plus(t6,C_fix(1)); -av2[7]=t7; -av2[8]=t8; -av2[9]=t9; -((C_proc)(void*)(*((C_word*)t10+1)))(10,av2);}} -else{ -t10=C_i_vector_ref(t2,C_fix(0)); -t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25299,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:3496: g4935 */ -t12=t10;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} - -/* k25297 */ -static void C_ccall f_25299(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25299,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25308,a[2]=((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],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:3498: g4940 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* irregex-core.scm:3502: fail */ -t2=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k25306 in k25297 */ -static void C_ccall f_25308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25308,c,av);} -a=C_alloc(10); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25314,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); -/* irregex-core.scm:3498: g4942 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25312 in k25306 in k25297 */ -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; -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_25314,c,av);} -a=C_alloc(11); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25320,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]=t1,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:3498: g4944 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25318 in k25312 in k25306 in k25297 */ -static void C_ccall f_25320(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_25320,c,av);} -/* irregex-core.scm:3501: next */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=C_fixnum_plus(((C_word*)t0)[8],C_fix(1)); -av2[7]=t1; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t2+1)))(10,av2);}} - -/* f_25337 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25337(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(8,c,9)))){ -C_save_and_reclaim((void *)f_25337,c,av);} -a=C_alloc(8); -if(C_truep(C_fixnum_lessp(t6,t7))){ -t10=C_i_string_ref(t5,t6); -t11=C_eqp(C_make_character(10),t10); -if(C_truep(C_i_not(t11))){ -t12=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); -/* irregex-core.scm:3507: next */ -t13=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t12; -av2[7]=t7; -av2[8]=t8; -av2[9]=t9; -((C_proc)(void*)(*((C_word*)t13+1)))(10,av2);}} -else{ -/* irregex-core.scm:3508: fail */ -t12=t9;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} -else{ -t10=C_i_vector_ref(t2,C_fix(0)); -t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25374,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:3509: g4955 */ -t12=t10;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} - -/* k25372 */ -static void C_ccall f_25374(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25374,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25383,a[2]=((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],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:3511: g4960 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* irregex-core.scm:3517: fail */ -t2=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k25381 in k25372 */ -static void C_ccall f_25383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25383,c,av);} -a=C_alloc(10); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_25389,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); -/* irregex-core.scm:3511: g4962 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25387 in k25381 in k25372 */ -static void C_ccall f_25389(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25389,c,av);} -a=C_alloc(11); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25395,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)[2],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:3511: g4964 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25393 in k25387 in k25381 in k25372 */ -static void C_ccall f_25395(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ -C_save_and_reclaim((void *)f_25395,c,av);} -a=C_alloc(5); -t2=C_i_string_ref(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_eqp(C_make_character(10),t2); -if(C_truep(C_i_not(t3))){ -t4=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:3515: next */ -t5=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -av2[4]=((C_word*)t0)[8]; -av2[5]=((C_word*)t0)[2]; -av2[6]=t4; -av2[7]=t1; -av2[8]=((C_word*)t0)[9]; -av2[9]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t5+1)))(10,av2);}} -else{ -/* irregex-core.scm:3516: fail */ -t4=((C_word*)t0)[10];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* f_25429 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25429(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(0,c,9)))){ -C_save_and_reclaim((void *)f_25429,c,av);} -t10=C_i_car(t3); -t11=C_eqp(t4,t10); -t12=(C_truep(t11)?C_i_eqvp(t6,C_u_i_cdr(t3)):C_SCHEME_FALSE); -if(C_truep(t12)){ -/* irregex-core.scm:3521: next */ -t13=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t6; -av2[7]=t7; -av2[8]=t8; -av2[9]=t9; -((C_proc)(void*)(*((C_word*)t13+1)))(10,av2);}} -else{ -/* irregex-core.scm:3522: fail */ -t13=t9;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}}} - -/* f_25459 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(20,c,2)))){ -C_save_and_reclaim((void *)f_25459,c,av);} -a=C_alloc(20); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25466,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_vector_ref(t2,C_fix(2)); -t12=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25503,a[2]=t6,a[3]=t10,a[4]=t5,a[5]=t2,a[6]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:3525: g4984 */ -t13=t11;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t12; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} - -/* k25464 */ -static void C_ccall f_25466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,9)))){ -C_save_and_reclaim((void *)f_25466,c,av);} -t2=C_i_not(t1); -t3=(C_truep(t2)?t2:C_eqp(C_make_character(10),t1)); -if(C_truep(t3)){ -/* irregex-core.scm:3529: next */ -t4=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t4; -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*)t4+1)))(10,av2);}} -else{ -/* irregex-core.scm:3530: fail */ -t4=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k25501 */ -static void C_ccall f_25503(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_25503,c,av);} -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_string_ref(((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1))); -f_25466(2,av2);}} -else{ -/* irregex-core.scm:3527: chunker-prev-char */ -f_8632(((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} - -/* f_25510 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25510(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(28,c,2)))){ -C_save_and_reclaim((void *)f_25510,c,av);} -a=C_alloc(28); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25517,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_25526,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=C_i_vector_ref(t2,C_fix(2)); -t13=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25610,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:3533: g4998 */ -t14=t12;{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t13; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t14+1)))(3,av2);}} - -/* k25515 */ -static void f_25517(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_25517,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:3544: 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:3545: 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);}}} - -/* k25524 */ -static void f_25526(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_25526,2,t0,t1);} -a=C_alloc(4); -if(C_truep(t1)){ -if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]))){ -t2=C_i_string_ref(((C_word*)t0)[4],((C_word*)t0)[2]); -t3=C_u_i_char_alphabeticp(t2); -t4=((C_word*)t0)[5]; -f_25517(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t2)));} -else{ -t2=C_i_vector_ref(((C_word*)t0)[6],C_fix(0)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25545,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3539: g5005 */ -t4=t2;{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} -else{ -t2=((C_word*)t0)[5]; -f_25517(t2,C_SCHEME_FALSE);}} - -/* k25543 in k25524 */ -static void C_ccall f_25545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25545,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25562,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3542: g5008 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3]; -f_25517(t2,C_SCHEME_FALSE);}} - -/* k25560 in k25543 in k25524 */ -static void C_ccall f_25562(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25562,c,av);} -a=C_alloc(4); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25569,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3542: g5010 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25567 in k25560 in k25543 in k25524 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25569,c,av);} -t2=C_i_string_ref(((C_word*)t0)[2],t1); -t3=C_u_i_char_alphabeticp(t2); -t4=((C_word*)t0)[3]; -f_25517(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t2)));} - -/* k25588 in k25608 */ -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 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_25590,c,av);} -t2=C_i_not(t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[2]; -f_25526(t3,t2);} -else{ -t3=C_u_i_char_alphabeticp(t1); -t4=(C_truep(t3)?t3:C_u_i_char_numericp(t1)); -t5=((C_word*)t0)[2]; -f_25526(t5,C_i_not(t4));}} - -/* k25608 */ -static void C_ccall f_25610(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_25610,c,av);} -a=C_alloc(3); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){ -t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); -t3=C_i_string_ref(((C_word*)t0)[3],t2); -t4=C_u_i_char_alphabeticp(t3); -t5=(C_truep(t4)?t4:C_u_i_char_numericp(t3)); -t6=((C_word*)t0)[4]; -f_25526(t6,C_i_not(t5));} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25590,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3535: chunker-prev-char */ -f_8632(t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} - -/* f_25617 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25617(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(15,c,2)))){ -C_save_and_reclaim((void *)f_25617,c,av);} -a=C_alloc(15); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25624,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); -if(C_truep(C_fixnum_greater_or_equal_p(t6,t7))){ -t11=C_i_vector_ref(t2,C_fix(0)); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25643,a[2]=t10,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3548: g5021 */ -t13=t11;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t12; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} -else{ -t11=t10; -f_25624(t11,C_SCHEME_FALSE);}} - -/* k25622 */ -static void f_25624(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_25624,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:3549: 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:3550: 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);}}} - -/* k25641 */ -static void C_ccall f_25643(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25643,c,av);} -t2=((C_word*)t0)[2]; -f_25624(t2,C_i_not(t1));} - -/* f_25650 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25650(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(16,c,2)))){ -C_save_and_reclaim((void *)f_25650,c,av);} -a=C_alloc(16); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25657,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); -if(C_truep(C_fixnum_lessp(t6,t7))){ -t11=t10; -f_25657(t11,C_eqp(C_make_character(10),C_i_string_ref(t5,t6)));} -else{ -t11=C_i_vector_ref(t2,C_fix(0)); -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25680,a[2]=t10,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3555: g5032 */ -t13=t11;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t12; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}}} - -/* k25655 */ -static void f_25657(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_25657,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:3561: 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:3562: 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);}}} - -/* k25678 */ -static void C_ccall f_25680(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_25680,c,av);} -a=C_alloc(5); -if(C_truep(C_i_not(t1))){ -t2=((C_word*)t0)[2]; -f_25657(t2,C_SCHEME_TRUE);} -else{ -t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25701,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3559: g5034 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k25699 in k25678 */ -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; -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_25701,c,av);} -a=C_alloc(4); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25708,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3559: g5036 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25706 in k25699 in k25678 */ -static void C_ccall f_25708(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25708,c,av);} -t2=((C_word*)t0)[2]; -f_25657(t2,C_eqp(C_make_character(10),C_i_string_ref(((C_word*)t0)[3],t1)));} - -/* f_25715 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25715(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(23,c,3)))){ -C_save_and_reclaim((void *)f_25715,c,av);} -a=C_alloc(23); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25722,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_25731,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); -if(C_truep(C_fixnum_lessp(t6,t7))){ -t12=C_i_string_ref(t5,t6); -t13=C_u_i_char_alphabeticp(t12); -t14=(C_truep(t13)?t13:C_u_i_char_numericp(t12)); -t15=t11; -f_25731(t15,C_i_not(t14));} -else{ -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25784,a[2]=t11,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3567: chunker-next-char */ -f_8662(t12,t2,t4);}} - -/* k25720 */ -static void f_25722(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_25722,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:3573: 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:3574: 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);}}} - -/* k25729 */ -static void f_25731(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,2)))){ -C_save_and_reclaim_args((void *)trf_25731,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25767,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:3569: g5051 */ -t4=t2;{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[5]; -f_25722(t2,C_SCHEME_FALSE);}} - -/* k25749 in k25765 in k25729 */ -static void C_ccall f_25751(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25751,c,av);} -t2=C_i_not(t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[2]; -f_25722(t3,t2);} -else{ -t3=C_u_i_char_alphabeticp(t1); -t4=((C_word*)t0)[2]; -f_25722(t4,(C_truep(t3)?t3:C_u_i_char_numericp(t1)));}} - -/* k25765 in k25729 */ -static void C_ccall f_25767(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_25767,c,av);} -a=C_alloc(3); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){ -t2=C_fixnum_difference(((C_word*)t0)[2],C_fix(1)); -t3=C_i_string_ref(((C_word*)t0)[3],t2); -t4=C_u_i_char_alphabeticp(t3); -t5=((C_word*)t0)[4]; -f_25722(t5,(C_truep(t4)?t4:C_u_i_char_numericp(t3)));} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25751,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3571: chunker-prev-char */ -f_8632(t2,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} - -/* k25782 */ -static void C_ccall f_25784(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_25784,c,av);} -t2=C_i_not(t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[2]; -f_25731(t3,t2);} -else{ -t3=C_u_i_char_alphabeticp(t1); -t4=(C_truep(t3)?t3:C_u_i_char_numericp(t1)); -t5=((C_word*)t0)[2]; -f_25731(t5,C_i_not(t4));}} - -/* f_25804 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_25804(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,3)))){ -C_save_and_reclaim((void *)f_25804,c,av);} -a=C_alloc(12); -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25808,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); -if(C_truep(C_fixnum_lessp(t6,t7))){ -t11=t10;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_i_string_ref(t5,t6); -f_25808(2,av2);}} -else{ -/* irregex-core.scm:3579: chunker-next-char */ -f_8662(t10,t2,t4);}} - -/* k25806 */ -static void C_ccall f_25808(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_25808,c,av);} -a=C_alloc(21); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp); -t3=C_i_vector_ref(((C_word*)t0)[4],C_fix(2)); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25862,a[2]=((C_word*)t0)[8],a[3]=t2,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:3580: g5067 */ -t5=t3;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k25809 in k25806 */ -static void C_ccall f_25811(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_25811,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25817,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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_25817(t6,(C_truep(t5)?t5:C_u_i_char_numericp(t1)));} -else{ -t5=C_u_i_char_alphabeticp(t1); -t6=(C_truep(t5)?t5:C_u_i_char_numericp(t1)); -t7=t2; -f_25817(t7,C_i_not(t6));}} -else{ -t3=t2; -f_25817(t3,C_SCHEME_FALSE);}} -else{ -t3=t2; -f_25817(t3,C_SCHEME_FALSE);}} - -/* k25815 in k25809 in k25806 */ -static void f_25817(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_25817,2,t0,t1);} -if(C_truep(t1)){ -/* irregex-core.scm:3587: 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:3588: 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);}}} - -/* k25860 in k25806 */ -static void C_ccall f_25862(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_25862,c,av);} -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],t1))){ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_string_ref(((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1))); -f_25811(2,av2);}} -else{ -/* irregex-core.scm:3582: chunker-prev-char */ -f_8632(((C_word*)t0)[3],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} - -/* f_25926 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -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=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,3)))){ -C_save_and_reclaim((void *)f_25926,c,av);} -a=C_alloc(12); -if(C_truep(C_fixnum_greater_or_equal_p(t6,t7))){ -t10=C_i_vector_ref(t2,C_fix(0)); -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_25943,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:3601: g5094 */ -t12=t10;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} -else{ -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26011,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); -/* irregex-core.scm:3613: scheme#char-ci=? */ -t11=*((C_word*)lf[251]+1);{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_i_string_ref(t5,t6); -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} - -/* k25941 */ -static void C_ccall f_25943(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_25943,c,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_25945,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li182),tmp=(C_word)a,a+=10,tmp)); -t5=((C_word*)t3)[1]; -f_25945(t5,((C_word*)t0)[8],t1);} - -/* lp in k25941 */ -static void f_25945(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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,2)))){ -C_save_and_reclaim_args((void *)trf_25945,3,t0,t1,t2);} -a=C_alloc(11); -if(C_truep(t2)){ -t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25955,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:3603: g5085 */ -t5=t3;{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -/* irregex-core.scm:3612: 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);}}} - -/* k25953 in lp in k25941 */ -static void C_ccall f_25955(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25955,c,av);} -a=C_alloc(12); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25961,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,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:3603: g5087 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25959 in k25953 in lp in k25941 */ -static void C_ccall f_25961(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25961,c,av);} -a=C_alloc(13); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_25967,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],tmp=(C_word)a,a+=13,tmp); -/* irregex-core.scm:3603: g5089 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25965 in k25959 in k25953 in lp in k25941 */ -static void C_ccall f_25967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_25967,c,av);} -a=C_alloc(12); -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){ -t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25983,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3607: g5091 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25989,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]=t1,a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3608: scheme#char-ci=? */ -t3=*((C_word*)lf[251]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[12]; -av2[3]=C_i_string_ref(((C_word*)t0)[9],((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k25981 in k25965 in k25959 in k25953 in lp in k25941 */ -static void C_ccall f_25983(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25983,c,av);} -/* irregex-core.scm:3607: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_25945(t2,((C_word*)t0)[3],t1);} - -/* k25987 in k25965 in k25959 in k25953 in lp in k25941 */ -static void C_ccall f_25989(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ -C_save_and_reclaim((void *)f_25989,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* irregex-core.scm:3609: next */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -av2[6]=t2; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} -else{ -/* irregex-core.scm:3611: fail */ -t2=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k26009 */ -static void C_ccall f_26011(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ -C_save_and_reclaim((void *)f_26011,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* irregex-core.scm:3614: next */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -av2[6]=t2; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} -else{ -/* irregex-core.scm:3615: fail */ -t2=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* f_26025 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_26025(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(9,c,9)))){ -C_save_and_reclaim((void *)f_26025,c,av);} -a=C_alloc(9); -if(C_truep(C_fixnum_greater_or_equal_p(t6,t7))){ -t10=C_i_vector_ref(t2,C_fix(0)); -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26042,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:3619: g5118 */ -t12=t10;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} -else{ -t10=C_i_string_ref(t5,t6); -if(C_truep(C_i_char_equalp(((C_word*)t0)[2],t10))){ -t11=C_a_i_fixnum_plus(&a,2,t6,C_fix(1)); -/* irregex-core.scm:3632: next */ -t12=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -av2[6]=t11; -av2[7]=t7; -av2[8]=t8; -av2[9]=t9; -((C_proc)(void*)(*((C_word*)t12+1)))(10,av2);}} -else{ -/* irregex-core.scm:3633: fail */ -t11=t9;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}} - -/* k26040 */ -static void C_ccall f_26042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_26042,c,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_26044,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li184),tmp=(C_word)a,a+=10,tmp)); -t5=((C_word*)t3)[1]; -f_26044(t5,((C_word*)t0)[8],t1);} - -/* lp in k26040 */ -static void f_26044(C_word t0,C_word t1,C_word t2){ -C_word tmp; -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,2)))){ -C_save_and_reclaim_args((void *)trf_26044,3,t0,t1,t2);} -a=C_alloc(11); -if(C_truep(t2)){ -t3=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_26054,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:3621: g5109 */ -t5=t3;{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -/* irregex-core.scm:3630: 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);}}} - -/* k26052 in lp in k26040 */ -static void C_ccall f_26054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_26054,c,av);} -a=C_alloc(12); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26060,a[2]=((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],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3621: g5111 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k26058 in k26052 in lp in k26040 */ -static void C_ccall f_26060(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_26060,c,av);} -a=C_alloc(13); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_26066,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],tmp=(C_word)a,a+=13,tmp); -/* irregex-core.scm:3621: g5113 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k26064 in k26058 in k26052 in lp in k26040 */ -static void C_ccall f_26066(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ -C_save_and_reclaim((void *)f_26066,c,av);} -a=C_alloc(5); -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){ -t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26082,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3625: g5115 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=C_i_string_ref(((C_word*)t0)[7],((C_word*)t0)[2]); -if(C_truep(C_i_char_equalp(((C_word*)t0)[8],t2))){ -t3=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* irregex-core.scm:3627: next */ -t4=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[10]; -av2[4]=((C_word*)t0)[6]; -av2[5]=((C_word*)t0)[7]; -av2[6]=t3; -av2[7]=t1; -av2[8]=((C_word*)t0)[11]; -av2[9]=((C_word*)t0)[12]; -((C_proc)(void*)(*((C_word*)t4+1)))(10,av2);}} -else{ -/* irregex-core.scm:3629: fail */ -t3=((C_word*)t0)[12];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k26080 in k26064 in k26058 in k26052 in lp in k26040 */ -static void C_ccall f_26082(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26082,c,av);} -/* irregex-core.scm:3625: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26044(t2,((C_word*)t0)[3],t1);} - -/* k26138 in lp in k23393 in k16233 in k17091 in k17084 in k17081 in k16204 in k16201 in k16198 in k16195 in k16192 in k16186 in k16183 in k16180 in k16177 in chicken.irregex#sre->irregex in k7753 in k7522 in k7519 */ -static void C_ccall f_26140(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_26140,c,av);} -a=C_alloc(3); -t2=( -/* irregex-core.scm:3636: sre-sequence */ - f_18189(C_a_i(&a,3),t1) -); -/* irregex-core.scm:3636: rec */ -t3=((C_word*)t0)[2]; -f_23447(t3,((C_word*)t0)[3],t2);} - -/* chicken.irregex#sre-cset->procedure in k18914 in k7753 in k7522 in k7519 */ -static void f_26166(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_26166,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_26168,a[2]=t3,a[3]=t2,a[4]=((C_word)li312),tmp=(C_word)a,a+=5,tmp); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* f_26168 in chicken.irregex#sre-cset->procedure in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26168(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,3)))){ -C_save_and_reclaim((void *)f_26168,c,av);} -a=C_alloc(12); -if(C_truep(C_fixnum_lessp(t6,t7))){ -t10=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26181,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); -/* irregex-core.scm:3660: cset-contains? */ -f_26957(t10,((C_word*)t0)[3],C_i_string_ref(t5,t6));} -else{ -t10=C_i_vector_ref(t2,C_fix(0)); -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26200,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:3663: g5159 */ -t12=t10;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}} - -/* k26179 */ -static void C_ccall f_26181(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ -C_save_and_reclaim((void *)f_26181,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* irregex-core.scm:3661: next */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -av2[6]=t2; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} -else{ -/* irregex-core.scm:3662: fail */ -t2=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k26198 */ -static void C_ccall f_26200(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_26200,c,av);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_26209,a[2]=((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); -/* irregex-core.scm:3665: g5164 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* irregex-core.scm:3671: fail */ -t2=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k26207 in k26198 */ -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; -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_26209,c,av);} -a=C_alloc(11); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_26215,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:3665: g5166 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k26213 in k26207 in k26198 */ -static void C_ccall f_26215(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_26215,c,av);} -a=C_alloc(12); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26221,a[2]=t1,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:3665: g5168 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k26219 in k26213 in k26207 in k26198 */ -static void C_ccall f_26221(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_26221,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_26227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3668: cset-contains? */ -f_26957(t2,((C_word*)t0)[11],C_i_string_ref(((C_word*)t0)[8],((C_word*)t0)[2]));} - -/* k26225 in k26219 in k26213 in k26207 in k26198 */ -static void C_ccall f_26227(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,9)))){ -C_save_and_reclaim((void *)f_26227,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1)); -/* irregex-core.scm:3669: next */ -t3=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=((C_word*)t0)[8]; -av2[6]=t2; -av2[7]=((C_word*)t0)[9]; -av2[8]=((C_word*)t0)[10]; -av2[9]=((C_word*)t0)[11]; -((C_proc)(void*)(*((C_word*)t3+1)))(10,av2);}} -else{ -/* irregex-core.scm:3670: fail */ -t2=((C_word*)t0)[11];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.irregex#cset->plist in k18914 in k7753 in k7522 in k7519 */ -static void f_26379(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,4)))){ -C_save_and_reclaim_args((void *)trf_26379,2,t1,t2);} -a=C_alloc(12); -t3=C_i_vector_length(t2); -t4=C_a_i_fixnum_difference(&a,2,t3,C_fix(1)); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26391,a[2]=t2,a[3]=t6,a[4]=((C_word)li314),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_26391(t8,t1,t4,C_SCHEME_END_OF_LIST);} - -/* lp in chicken.irregex#cset->plist in k18914 in k7753 in k7522 in k7519 */ -static void f_26391(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_26391,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=C_eqp(t2,C_fix(-1)); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_fixnum_difference(t2,C_fix(1)); -t6=C_i_vector_ref(((C_word*)t0)[2],t2); -t7=C_i_car(t6); -t8=C_i_vector_ref(((C_word*)t0)[2],t2); -t9=C_i_cdr(t8); -t10=C_a_i_cons(&a,2,t9,t3); -t11=C_a_i_cons(&a,2,t7,t10); -/* irregex-core.scm:3700: lp */ -t13=t1; -t14=t5; -t15=t11; -t1=t13; -t2=t14; -t3=t15; -goto loop;}} - -/* lp in k26756 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26441(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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_26441,4,t0,t1,t2,t3);} -a=C_alloc(10); -if(C_truep(C_i_nullp(t2))){ -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_cddr(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26459,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t6=C_u_i_car(t2); -t7=C_u_i_cdr(t2); -t8=C_u_i_car(t7); -t9=C_a_i_cons(&a,2,t6,t8); -t10=C_a_i_vector1(&a,1,t9); -/* irregex-core.scm:3707: cset-union */ -t11=lf[163];{ -C_word av2[4]; -av2[0]=t11; -av2[1]=t5; -av2[2]=t10; -av2[3]=t3; -f_27078(4,av2);}}} - -/* k26457 in lp in k26756 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_26459,c,av);} -/* irregex-core.scm:3707: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26441(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* chicken.irregex#string->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26470(C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ -C_save_and_reclaim_args((void *)trf_26470,2,t1,t2);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26476,a[2]=((C_word)li316),tmp=(C_word)a,a+=3,tmp); -t4=C_a_i_vector(&a,0); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26488,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* ##sys#string->list */ -t6=*((C_word*)lf[106]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* a26475 in chicken.irregex#string->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26476(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_26476,c,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:3812: cset-union */ -t6=lf[163];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t3; -av2[3]=t5; -f_27078(4,av2);}} - -/* k26486 in chicken.irregex#string->cset in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26488,c,av);} -/* irregex-core.scm:3710: fold */ -f_9377(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26490(C_word t1,C_word t2,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_26490,3,t1,t2,t3);} -a=C_alloc(6); -t4=C_i_pairp(t3); -t5=(C_truep(t4)?C_u_i_car(t3):C_SCHEME_FALSE); -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_26500,a[2]=t7,a[3]=((C_word)li326),tmp=(C_word)a,a+=4,tmp)); -t9=((C_word*)t7)[1]; -f_26500(t9,t1,t2,t5);} - -/* lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26500(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word 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(18,0,4)))){ -C_save_and_reclaim_args((void *)trf_26500,4,t0,t1,t2,t3);} -a=C_alloc(18); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26503,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li318),tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_pairp(t2))){ -if(C_truep(C_i_stringp(C_u_i_car(t2)))){ -if(C_truep(t3)){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26529,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3722: string->cset */ -f_26470(t5,C_u_i_car(t2));} -else{ -/* irregex-core.scm:3723: string->cset */ -f_26470(t1,C_u_i_car(t2));}} -else{ -t5=C_u_i_car(t2); -t6=C_eqp(t5,lf[180]); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26550,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26554,a[2]=t2,a[3]=t7,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3727: rec */ -t9=t4; -f_26503(t9,t8,C_i_cadr(t2));} -else{ -t7=C_eqp(t5,lf[235]); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26618,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3729: rec */ -t9=t4; -f_26503(t9,t8,C_i_cadr(t2));} -else{ -t8=C_eqp(t5,lf[248]); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26680,a[2]=((C_word)li321),tmp=(C_word)a,a+=3,tmp); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26688,a[2]=t2,a[3]=t1,a[4]=t9,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:3732: rec */ -t11=t4; -f_26503(t11,t10,C_i_cadr(t2));} -else{ -t9=C_eqp(t5,lf[52]); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26748,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26758,a[2]=t10,tmp=(C_word)a,a+=3,tmp); -t12=C_u_i_cdr(t2); -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_18368,a[2]=t14,a[3]=((C_word)li324),tmp=(C_word)a,a+=4,tmp)); -t16=((C_word*)t14)[1]; -f_18368(t16,t11,t12,C_SCHEME_END_OF_LIST);} -else{ -t10=C_eqp(t5,lf[104]); -if(C_truep(t10)){ -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26773,a[2]=t2,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3740: rec */ -t12=t4; -f_26503(t12,t11,C_i_cadr(t2));} -else{ -t11=C_eqp(t5,lf[226]); -if(C_truep(t11)){ -t12=( -/* irregex-core.scm:3742: sre-alternate */ - f_18212(C_a_i(&a,3),C_u_i_cdr(t2)) -); -/* irregex-core.scm:3742: lp */ -t17=t1; -t18=t12; -t19=C_SCHEME_FALSE; -t1=t17; -t2=t18; -t3=t19; -goto loop;} -else{ -t12=C_eqp(t5,lf[227]); -if(C_truep(t12)){ -t13=( -/* irregex-core.scm:3744: sre-alternate */ - f_18212(C_a_i(&a,3),C_u_i_cdr(t2)) -); -/* irregex-core.scm:3744: lp */ -t17=t1; -t18=t13; -t19=C_SCHEME_TRUE; -t1=t17; -t2=t18; -t3=t19; -goto loop;} -else{ -/* irregex-core.scm:3746: chicken.base#error */ -t13=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t13; -av2[1]=t1; -av2[2]=lf[407]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}}}}}}}}}} -else{ -if(C_truep(C_charp(t2))){ -if(C_truep(t3)){ -t5=C_a_i_cons(&a,2,t2,t2); -t6=C_a_i_vector1(&a,1,t5); -/* irregex-core.scm:3748: cset-case-insensitive */ -f_27605(t1,t6);} -else{ -t5=C_a_i_cons(&a,2,t2,t2); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_a_i_vector1(&a,1,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -if(C_truep(C_i_stringp(t2))){ -t5=C_a_i_list1(&a,1,t2); -/* irregex-core.scm:3750: rec */ -t6=t4; -f_26503(t6,t1,t5);} -else{ -t5=C_i_assq(t2,lf[249]); -if(C_truep(t5)){ -/* irregex-core.scm:3754: rec */ -t6=t4; -f_26503(t6,t1,C_i_cdr(t5));} -else{ -/* irregex-core.scm:3755: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[408]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}}}} - -/* rec in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26503(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_26503,3,t0,t1,t2);} -/* irregex-core.scm:3717: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_26500(t3,t1,t2,((C_word*)t0)[3]);} - -/* k26527 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26529(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26529,c,av);} -/* irregex-core.scm:3722: cset-case-insensitive */ -f_27605(((C_word*)t0)[2],t1);} - -/* k26548 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26550(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26550,c,av);} -/* irregex-core.scm:3726: cset-complement */ -f_27595(((C_word*)t0)[2],t1);} - -/* k26552 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26554(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -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,3)))){ -C_save_and_reclaim((void *)f_26554,c,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_cddr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[212]); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26567,a[2]=((C_word*)t0)[3],a[3]=t1,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_26569,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li319),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_26569(t12,t8,t6);} - -/* k26565 in k26552 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26567(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26567,c,av);} -/* irregex-core.scm:3727: fold */ -f_9377(((C_word*)t0)[2],lf[163],((C_word*)t0)[3],t1);} - -/* map-loop5225 in k26552 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26569(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_26569,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26594,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); -/* irregex-core.scm:3727: g5231 */ -t4=((C_word*)t0)[4]; -f_26503(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k26592 in map-loop5225 in k26552 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26594(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_26594,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_26569(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k26616 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -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,3)))){ -C_save_and_reclaim((void *)f_26618,c,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_cddr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[212]); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26631,a[2]=((C_word*)t0)[3],a[3]=t1,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_26633,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li320),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_26633(t12,t8,t6);} - -/* k26629 in k26616 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26631(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26631,c,av);} -/* irregex-core.scm:3729: fold */ -f_9377(((C_word*)t0)[2],lf[406],((C_word*)t0)[3],t1);} - -/* map-loop5251 in k26616 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26633(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_26633,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26658,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); -/* irregex-core.scm:3729: g5257 */ -t4=((C_word*)t0)[4]; -f_26503(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k26656 in map-loop5251 in k26616 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26658(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_26658,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_26633(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* a26679 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26680(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_26680,c,av);} -/* irregex-core.scm:3731: cset-difference */ -f_27273(t1,t3,t2);} - -/* k26686 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26688(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -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,3)))){ -C_save_and_reclaim((void *)f_26688,c,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=C_i_cddr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[212]); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26701,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,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_26703,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[5],a[5]=t5,a[6]=((C_word)li322),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_26703(t12,t8,t6);} - -/* k26699 in k26686 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26701(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26701,c,av);} -/* irregex-core.scm:3731: fold */ -f_9377(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* map-loop5279 in k26686 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26703(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_26703,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26728,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); -/* irregex-core.scm:3733: g5285 */ -t4=((C_word*)t0)[4]; -f_26503(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k26726 in map-loop5279 in k26686 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26728(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_26728,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_26703(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k26746 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26748(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26748,c,av);} -if(C_truep(((C_word*)t0)[2])){ -/* irregex-core.scm:3737: cset-case-insensitive */ -f_27605(((C_word*)t0)[3],t1);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k26756 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26758(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_26758,c,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_26441,a[2]=t4,a[3]=((C_word)li323),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_26441(t6,((C_word*)t0)[2],t1,t2);} - -/* k26771 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26773(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -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,3)))){ -C_save_and_reclaim((void *)f_26773,c,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_cddr(((C_word*)t0)[2]); -t7=C_i_check_list_2(t6,lf[212]); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26786,a[2]=((C_word*)t0)[3],a[3]=t1,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_26788,a[2]=t4,a[3]=t10,a[4]=((C_word*)t0)[4],a[5]=t5,a[6]=((C_word)li325),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_26788(t12,t8,t6);} - -/* k26784 in k26771 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26786,c,av);} -/* irregex-core.scm:3740: fold */ -f_9377(((C_word*)t0)[2],lf[163],((C_word*)t0)[3],t1);} - -/* map-loop5306 in k26771 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void f_26788(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_26788,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26813,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); -/* irregex-core.scm:3740: g5312 */ -t4=((C_word*)t0)[4]; -f_26503(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k26811 in map-loop5306 in k26771 in lp in chicken.irregex#sre->cset in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_26813(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_26813,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_26788(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k26933 in k13449 in k13442 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_26935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_26935,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,lf[52],t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list2(&a,2,t2,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a26936 in k13449 in k13442 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_26937(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_26937,c,av);} -a=C_alloc(6); -t4=C_i_car(t2); -t5=C_u_i_cdr(t2); -t6=C_a_i_cons(&a,2,t5,t3); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_cons(&a,2,t4,t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* k26953 in k13449 in k13442 in go in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_26955(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26955,c,av);} -/* irregex-core.scm:3759: fold */ -f_9377(((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,t1);} - -/* chicken.irregex#cset-contains? in k18914 in k7753 in k7522 in k7519 */ -static void f_26957(C_word t1,C_word t2,C_word t3){ -C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_26957,3,t1,t2,t3);} -a=C_alloc(8); -t4=C_block_size(t2); -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_i_vector_ref(t2,C_fix(0)); -t6=C_u_i_cdr(t5); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=(C_truep(C_u_i_char_less_or_equal_p(t3,t6))?C_u_i_char_less_or_equal_p(C_u_i_car(t5),t3):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);} -default: -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_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_26990,a[2]=t2,a[3]=t3,a[4]=t6,a[5]=((C_word)li328),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_26990(t8,t1,C_fix(0),t4);}} - -/* lp in chicken.irregex#cset-contains? in k18914 in k7753 in k7522 in k7519 */ -static void f_26990(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -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,3)))){ -C_save_and_reclaim_args((void *)trf_26990,4,t0,t1,t2,t3);} -a=C_alloc(5); -t4=C_fixnum_plus(t3,t2); -t5=C_fixnum_shift_right(t4,C_fix(1)); -t6=C_i_vector_ref(((C_word*)t0)[2],t5); -t7=C_u_i_cdr(t6); -if(C_truep(C_u_i_char_lessp(t7,((C_word*)t0)[3]))){ -t8=C_a_i_fixnum_plus(&a,2,t5,C_fix(1)); -if(C_truep(C_fixnum_lessp(t8,t3))){ -/* irregex-core.scm:3778: lp */ -t10=t1; -t11=t8; -t12=t3; -t1=t10; -t2=t11; -t3=t12; -goto loop;} -else{ -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} -else{ -if(C_truep(C_i_char_lessp(((C_word*)t0)[3],C_u_i_car(t6)))){ -if(C_truep(C_fixnum_lessp(t2,t5))){ -/* irregex-core.scm:3780: lp */ -t10=t1; -t11=t2; -t12=t5; -t1=t10; -t2=t11; -t3=t12; -goto loop;} -else{ -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} -else{ -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} - -/* chicken.irregex#char-ranges-union in k18914 in k7753 in k7522 in k7519 */ -static C_word f_27042(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_word t8; -C_stack_overflow_check;{} -t3=C_i_car(t1); -t4=C_i_car(t2); -t5=C_i_char_less_or_equal_p(t3,t4); -t6=(C_truep(t5)?C_u_i_car(t1):C_u_i_car(t2)); -if(C_truep(C_i_char_greater_or_equal_p(C_u_i_cdr(t1),C_u_i_cdr(t2)))){ -t7=C_u_i_cdr(t1); -return(C_a_i_cons(&a,2,t6,t7));} -else{ -t7=C_u_i_cdr(t2); -return(C_a_i_cons(&a,2,t6,t7));}} - -/* chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27078(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27078,c,av);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27086,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3788: scheme#vector->list */ -t5=*((C_word*)lf[164]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27086(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27086,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27090,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3789: scheme#vector->list */ -t3=*((C_word*)lf[164]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27090(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_27090,c,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_27092,a[2]=t3,a[3]=((C_word)li331),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_27092(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* union-range in k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void f_27092(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: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,0,4)))){ -C_save_and_reclaim_args((void *)trf_27092,5,t0,t1,t2,t3,t4);} -a=C_alloc(19); -if(C_truep(C_i_nullp(t2))){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27106,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27110,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27114,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3792: ##sys#fast-reverse */ -t8=*((C_word*)lf[70]+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_27127,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27131,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27135,a[2]=t6,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3793: ##sys#fast-reverse */ -t8=*((C_word*)lf[70]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t5=C_i_car(t2); -t6=C_i_car(t3); -t7=C_i_cdr(t5); -t8=C_fix(C_character_code(t7)); -t9=C_a_i_fixnum_plus(&a,2,t8,C_fix(1)); -t10=C_i_car(t6); -t11=C_fix(C_character_code(t10)); -if(C_truep(C_i_integer_lessp(t9,t11))){ -t12=C_u_i_cdr(t2); -t13=C_a_i_cons(&a,2,t5,t4); -/* irregex-core.scm:3801: union-range */ -t22=t1; -t23=t12; -t24=t3; -t25=t13; -t1=t22; -t2=t23; -t3=t24; -t4=t25; -goto loop;} -else{ -t12=C_u_i_car(t5); -t13=C_fix(C_character_code(t12)); -t14=C_u_i_cdr(t6); -t15=C_fix(C_character_code(t14)); -t16=C_a_i_fixnum_plus(&a,2,t15,C_fix(1)); -if(C_truep(C_i_integer_greaterp(t13,t16))){ -t17=C_u_i_cdr(t3); -t18=C_a_i_cons(&a,2,t6,t4); -/* irregex-core.scm:3803: union-range */ -t22=t1; -t23=t17; -t24=t2; -t25=t18; -t1=t22; -t2=t23; -t3=t24; -t4=t25; -goto loop;} -else{ -if(C_truep(C_i_char_greater_or_equal_p(C_u_i_cdr(t5),C_u_i_car(t6)))){ -t17=( -/* irregex-core.scm:3805: char-ranges-union */ - f_27042(C_a_i(&a,6),t5,t6) -); -t18=C_u_i_cdr(t2); -t19=C_a_i_cons(&a,2,t17,t18); -/* irregex-core.scm:3805: union-range */ -t22=t1; -t23=t19; -t24=C_u_i_cdr(t3); -t25=t4; -t1=t22; -t2=t23; -t3=t24; -t4=t25; -goto loop;} -else{ -t17=C_u_i_cdr(t2); -t18=( -/* irregex-core.scm:3809: char-ranges-union */ - f_27042(C_a_i(&a,6),t5,t6) -); -t19=C_u_i_cdr(t3); -t20=C_a_i_cons(&a,2,t18,t19); -/* irregex-core.scm:3808: union-range */ -t22=t1; -t23=t17; -t24=t20; -t25=t4; -t1=t22; -t2=t23; -t3=t24; -t4=t25; -goto loop;}}}}}} - -/* k27104 in union-range in k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27106(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27106,c,av);} -/* irregex-core.scm:3792: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27108 in union-range in k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27110,c,av);} -/* irregex-core.scm:3792: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27112 in union-range in k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27114(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27114,c,av);} -/* irregex-core.scm:3792: scheme#append */ -t2=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k27125 in union-range in k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27127(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27127,c,av);} -/* irregex-core.scm:3793: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27129 in union-range in k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27131,c,av);} -/* irregex-core.scm:3793: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27133 in union-range in k27088 in k27084 in chicken.irregex#cset-union in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27135(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27135,c,av);} -/* irregex-core.scm:3793: scheme#append */ -t2=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void f_27273(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_27273,3,t1,t2,t3);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27281,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3821: scheme#vector->list */ -t5=*((C_word*)lf[164]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27281(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27281,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27285,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3822: scheme#vector->list */ -t3=*((C_word*)lf[164]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27285(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_27285,c,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_27287,a[2]=t3,a[3]=((C_word)li333),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_27287(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* diff in k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void f_27287(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ -C_save_and_reclaim_args((void *)trf_27287,5,t0,t1,t2,t3,t4);} -a=C_alloc(17); -if(C_truep(C_i_nullp(t2))){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27301,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3824: ##sys#fast-reverse */ -t6=*((C_word*)lf[70]+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_27314,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27318,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3825: ##sys#fast-reverse */ -t7=*((C_word*)lf[70]+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=C_i_car(t3); -t7=C_i_cdr(t5); -t8=C_i_car(t6); -if(C_truep(C_i_char_lessp(t7,t8))){ -t9=C_u_i_cdr(t2); -t10=C_a_i_cons(&a,2,t5,t4); -/* irregex-core.scm:3831: diff */ -t18=t1; -t19=t9; -t20=t3; -t21=t10; -t1=t18; -t2=t19; -t3=t20; -t4=t21; -goto loop;} -else{ -if(C_truep(C_i_char_greaterp(C_u_i_car(t5),C_u_i_cdr(t6)))){ -/* irregex-core.scm:3833: diff */ -t18=t1; -t19=t2; -t20=C_u_i_cdr(t3); -t21=t4; -t1=t18; -t2=t19; -t3=t20; -t4=t21; -goto loop;} -else{ -t9=C_i_char_less_or_equal_p(C_u_i_car(t6),C_u_i_car(t5)); -t10=(C_truep(t9)?C_i_char_greater_or_equal_p(C_u_i_cdr(t6),C_u_i_cdr(t5)):C_SCHEME_FALSE); -if(C_truep(t10)){ -/* irregex-core.scm:3836: diff */ -t18=t1; -t19=C_u_i_cdr(t2); -t20=t3; -t21=t4; -t1=t18; -t2=t19; -t3=t20; -t4=t21; -goto loop;} -else{ -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27364,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,a[6]=t2,a[7]=t5,a[8]=t6,tmp=(C_word)a,a+=9,tmp); -if(C_truep(C_i_char_lessp(C_u_i_car(t5),C_u_i_car(t6)))){ -t12=C_u_i_car(t5); -t13=C_u_i_car(t6); -t14=C_fix(C_character_code(t13)); -t15=C_a_i_fixnum_difference(&a,2,t14,C_fix(1)); -t16=C_make_character(C_unfix(t15)); -t17=t11; -f_27364(t17,C_a_i_cons(&a,2,t12,t16));} -else{ -t12=t11; -f_27364(t12,C_SCHEME_FALSE);}}}}}}} - -/* k27299 in diff in k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27301(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27301,c,av);} -/* irregex-core.scm:3824: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27312 in diff in k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27314(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27314,c,av);} -/* irregex-core.scm:3825: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27316 in diff in k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27318(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27318,c,av);} -/* irregex-core.scm:3825: scheme#append */ -t2=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k27362 in diff in k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void f_27364(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(16,0,2)))){ -C_save_and_reclaim_args((void *)trf_27364,2,t0,t1);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27367,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); -if(C_truep(C_i_char_greaterp(C_u_i_cdr(((C_word*)t0)[7]),C_u_i_cdr(((C_word*)t0)[8])))){ -t3=C_u_i_cdr(((C_word*)t0)[8]); -t4=C_fix(C_character_code(t3)); -t5=C_a_i_fixnum_plus(&a,2,t4,C_fix(1)); -t6=C_make_character(C_unfix(t5)); -t7=C_u_i_cdr(((C_word*)t0)[7]); -t8=t2; -f_27367(t8,C_a_i_cons(&a,2,t6,t7));} -else{ -t3=t2; -f_27367(t3,C_SCHEME_FALSE);}} - -/* k27365 in k27362 in diff in k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void f_27367(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ -C_save_and_reclaim_args((void *)trf_27367,2,t0,t1);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_u_i_cdr(((C_word*)t0)[7]); -t4=t2; -f_27374(t4,C_a_i_cons(&a,2,t1,t3));} -else{ -t3=t2; -f_27374(t3,C_u_i_cdr(((C_word*)t0)[7]));}} - -/* k27372 in k27365 in k27362 in diff in k27283 in k27279 in chicken.irregex#cset-difference in k18914 in k7753 in k7522 in k7519 */ -static void f_27374(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_27374,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:3843: diff */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_27287(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],t2);} -else{ -/* irregex-core.scm:3843: diff */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_27287(t2,((C_word*)t0)[5],t1,((C_word*)t0)[6],((C_word*)t0)[3]);}} - -/* chicken.irregex#cset-intersection in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27469(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27469,c,av);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27477,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3854: scheme#vector->list */ -t5=*((C_word*)lf[164]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k27475 in chicken.irregex#cset-intersection in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27477,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27481,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3855: scheme#vector->list */ -t3=*((C_word*)lf[164]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k27479 in k27475 in chicken.irregex#cset-intersection in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27481(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_27481,c,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_27483,a[2]=t3,a[3]=((C_word)li335),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_27483(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* intersect in k27479 in k27475 in chicken.irregex#cset-intersection in k18914 in k7753 in k7522 in k7519 */ -static void f_27483(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 *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ -C_save_and_reclaim_args((void *)trf_27483,5,t0,t1,t2,t3,t4);} -a=C_alloc(6); -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_27500,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3858: ##sys#fast-reverse */ -t8=*((C_word*)lf[70]+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=C_i_cdr(t7); -t10=C_i_car(t8); -if(C_truep(C_i_char_lessp(t9,t10))){ -/* irregex-core.scm:3863: intersect */ -t25=t1; -t26=C_u_i_cdr(t2); -t27=t3; -t28=t4; -t1=t25; -t2=t26; -t3=t27; -t4=t28; -goto loop;} -else{ -if(C_truep(C_i_char_greaterp(C_u_i_car(t7),C_u_i_cdr(t8)))){ -/* irregex-core.scm:3865: intersect */ -t25=t1; -t26=t2; -t27=C_u_i_cdr(t3); -t28=t4; -t1=t25; -t2=t26; -t3=t27; -t4=t28; -goto loop;} -else{ -t11=C_u_i_car(t8); -t12=C_u_i_car(t7); -t13=C_i_char_lessp(t11,t12); -t14=(C_truep(t13)?t12:t11); -t15=C_u_i_cdr(t7); -t16=C_u_i_cdr(t8); -t17=C_i_char_lessp(t15,t16); -t18=(C_truep(t17)?C_a_i_cons(&a,2,t14,t15):C_a_i_cons(&a,2,t14,t16)); -t19=C_i_char_greaterp(C_u_i_cdr(t7),C_u_i_cdr(t18)); -t20=(C_truep(t19)?t2:C_u_i_cdr(t2)); -t21=C_i_char_greaterp(C_u_i_cdr(t8),C_u_i_cdr(t18)); -t22=(C_truep(t21)?t3:C_u_i_cdr(t3)); -t23=C_a_i_cons(&a,2,t18,t4); -/* irregex-core.scm:3869: intersect */ -t25=t1; -t26=t20; -t27=t22; -t28=t23; -t1=t25; -t2=t26; -t3=t27; -t4=t28; -goto loop;}}}} - -/* k27498 in intersect in k27479 in k27475 in chicken.irregex#cset-intersection in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27500,c,av);} -/* irregex-core.scm:3858: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* chicken.irregex#cset-complement in k18914 in k7753 in k7522 in k7519 */ -static void f_27595(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_27595,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27603,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3876: sre->cset */ -f_26490(t3,lf[53],C_SCHEME_END_OF_LIST);} - -/* k27601 in chicken.irregex#cset-complement in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27603,c,av);} -/* irregex-core.scm:3876: cset-difference */ -f_27273(((C_word*)t0)[2],t1,((C_word*)t0)[3]);} - -/* chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void f_27605(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_27605,2,t1,t2);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27613,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3880: scheme#vector->list */ -t4=*((C_word*)lf[164]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27613(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_27613,c,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_27615,a[2]=t3,a[3]=((C_word)li338),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_27615(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} - -/* lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void f_27615(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_27615,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_27629,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3881: ##sys#fast-reverse */ -t5=*((C_word*)lf[70]+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_27635,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=C_u_i_car(t2); -t7=t4; -f_27635(t7,C_u_i_char_alphabeticp(C_u_i_cdr(t6)));} -else{ -t6=t4; -f_27635(t6,C_SCHEME_FALSE);}}} - -/* k27627 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27629(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27629,c,av);} -/* irregex-core.scm:3881: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void f_27635(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -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,2)))){ -C_save_and_reclaim_args((void *)trf_27635,2,t0,t1);} -a=C_alloc(22); -if(C_truep(t1)){ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27644,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27648,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27652,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27656,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_27680,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_27690,a[2]=t7,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3887: ##sys#fast-reverse */ -t9=*((C_word*)lf[70]+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);}} -else{ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27699,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27703,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27707,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27711,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27721,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:3892: ##sys#fast-reverse */ -t8=*((C_word*)lf[70]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} - -/* k27642 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27644(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27644,c,av);} -/* irregex-core.scm:3884: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27615(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k27646 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27648(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27648,c,av);} -/* irregex-core.scm:3885: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27650 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27652,c,av);} -/* irregex-core.scm:3886: scheme#vector->list */ -t2=*((C_word*)lf[164]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27654 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27656(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_27656,c,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:3887: cset-union */ -t10=lf[163];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t10; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t9; -f_27078(4,av2);}} - -/* k27678 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27680(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ -C_save_and_reclaim((void *)f_27680,c,av);} -a=C_alloc(2); -t2=C_u_i_car(((C_word*)t0)[2]); -t3=C_a_i_vector1(&a,1,t2); -/* irregex-core.scm:3887: cset-union */ -t4=lf[163];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t3; -f_27078(4,av2);}} - -/* k27688 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27690(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27690,c,av);} -/* irregex-core.scm:3887: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27697 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27699,c,av);} -/* irregex-core.scm:3891: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27615(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k27701 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27703(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27703,c,av);} -/* irregex-core.scm:3891: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27705 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27707(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27707,c,av);} -/* irregex-core.scm:3891: scheme#vector->list */ -t2=*((C_word*)lf[164]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k27709 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27711(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(2,c,3)))){ -C_save_and_reclaim((void *)f_27711,c,av);} -a=C_alloc(2); -t2=C_u_i_car(((C_word*)t0)[2]); -t3=C_a_i_vector1(&a,1,t2); -/* irregex-core.scm:3892: cset-union */ -t4=lf[163];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t3; -f_27078(4,av2);}} - -/* k27719 in k27633 in lp in k27611 in chicken.irregex#cset-case-insensitive in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27721(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27721,c,av);} -/* irregex-core.scm:3892: scheme#list->vector */ -t2=*((C_word*)lf[410]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27736(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27736,c,av);} -a=C_alloc((c-6)*C_SIZEOF_PAIR+8); -t6=C_build_rest(&a,c,6,av); -C_word t7; -C_word t8; -C_word t9; -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27740,a[2]=t6,a[3]=t5,a[4]=t3,a[5]=t1,a[6]=t4,a[7]=t2,tmp=(C_word)a,a+=8,tmp); -t8=C_i_stringp(t5); -if(C_truep(C_i_not(t8))){ -/* irregex-core.scm:3899: chicken.base#error */ -t9=*((C_word*)lf[30]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t7; -av2[2]=lf[412]; -av2[3]=lf[415]; -av2[4]=t5; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} -else{ -t9=t7;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_SCHEME_UNDEFINED; -f_27740(2,av2);}}} - -/* k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27740(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27740,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27743,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:3900: irregex */ -t3=*((C_word*)lf[218]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27743(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27743,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27746,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); -/* irregex-core.scm:3901: irregex-new-matches */ -f_7614(t2,t1);} - -/* k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27746(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_27746,c,av);} -a=C_alloc(13); -t2=C_i_pairp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); -t4=(C_truep(t3)?t3:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_27937,a[2]=((C_word)li340),tmp=(C_word)a,a+=3,tmp)); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27755,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t6=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])); -t7=t5; -f_27755(t7,(C_truep(t6)?C_i_cadr(((C_word*)t0)[2]):C_fix(0)));} -else{ -t6=t5; -f_27755(t6,C_fix(0));}} - -/* k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void f_27755(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_27755,2,t0,t1);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27758,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); -if(C_truep(C_i_pairp(((C_word*)t0)[9]))){ -if(C_truep(C_i_pairp(C_u_i_cdr(((C_word*)t0)[9])))){ -t3=C_i_cddr(((C_word*)t0)[9]); -t4=C_i_pairp(t3); -t5=t2; -f_27758(t5,(C_truep(t4)?C_i_caddr(((C_word*)t0)[9]):C_i_string_length(((C_word*)t0)[2])));} -else{ -t3=t2; -f_27758(t3,C_i_string_length(((C_word*)t0)[2]));}} -else{ -t3=t2; -f_27758(t3,C_i_string_length(((C_word*)t0)[2]));}} - -/* k27756 in k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void f_27758(C_word 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(25,0,4)))){ -C_save_and_reclaim_args((void *)trf_27758,2,t0,t1);} -a=C_alloc(25); -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*)t0)[3]); -t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27767,a[2]=((C_word*)t0)[4],a[3]=t1,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]=t3,a[9]=((C_word*)t0)[8],a[10]=t2,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]))){ -t5=C_i_exactp(((C_word*)t0)[3]); -if(C_truep(C_i_not(t5))){ -/* irregex-core.scm:3910: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t4; -av2[2]=lf[412]; -av2[3]=lf[414]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t6=t4;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_27767(2,av2);}}} -else{ -/* irregex-core.scm:3910: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[412]; -av2[3]=lf[414]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* k27765 in k27756 in k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27767(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_27767,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); -if(C_truep(C_i_integerp(((C_word*)t0)[3]))){ -t3=C_i_exactp(((C_word*)t0)[3]); -if(C_truep(C_i_not(t3))){ -/* irregex-core.scm:3912: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[412]; -av2[3]=lf[413]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_27770(2,av2);}}} -else{ -/* irregex-core.scm:3912: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[412]; -av2[3]=lf[413]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k27768 in k27765 in k27756 in k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,6)))){ -C_save_and_reclaim((void *)f_27770,c,av);} -a=C_alloc(13); -t2=lf[286]; -t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),lf[286]); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_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_27778,a[2]=((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)[2],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word)li341),tmp=(C_word)a,a+=11,tmp)); -t7=((C_word*)t5)[1]; -f_27778(t7,((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11],((C_word*)t0)[11],((C_word*)t0)[12]);} - -/* lp in k27768 in k27765 in k27756 in k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void f_27778(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(12,0,7)))){ -C_save_and_reclaim_args((void *)trf_27778,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(12); -if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)t0)[2]))){ -/* irregex-core.scm:3916: finish */ -t6=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t3; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_27791,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3917: irregex-search/matches */ -f_19051(t6,((C_word*)t0)[4],lf[286],((C_word*)t0)[9],t2,t4,((C_word*)t0)[7]);}} - -/* k27789 in lp in k27768 in k27765 in k27756 in k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27791(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,4)))){ -C_save_and_reclaim((void *)f_27791,c,av);} -a=C_alloc(11); -if(C_truep(C_i_not(t1))){ -/* irregex-core.scm:3925: finish */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=C_slot(t1,C_fix(1)); -t3=C_slot(t2,C_fix(1)); -t4=C_slot(t1,C_fix(1)); -t5=C_fixnum_times(C_fix(0),C_fix(4)); -t6=C_slot(t4,C_fixnum_plus(C_fix(3),t5)); -t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_27826,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t6,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],tmp=(C_word)a,a+=11,tmp); -/* irregex-core.scm:3928: kons */ -t8=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -av2[4]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}}} - -/* k27824 in k27789 in lp in k27768 in k27765 in k27756 in k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27826(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27826,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_27829,a[2]=((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); -/* irregex-core.scm:3929: irregex-reset-matches! */ -f_7637(t2,((C_word*)t0)[10]);} - -/* k27827 in k27824 in k27789 in lp in k27768 in k27765 in k27756 in k27753 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27829(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,5)))){ -C_save_and_reclaim((void *)f_27829,c,av);} -a=C_alloc(9); -t2=C_slot(((C_word*)t0)[2],C_fix(4)); -t3=C_fixnum_and(t2,C_fix(2)); -t4=C_eqp(C_fix(2),t3); -if(C_truep(t4)){ -/* irregex-core.scm:3932: finish */ -t5=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t5=C_eqp(((C_word*)t0)[5],((C_word*)t0)[7]); -if(C_truep(t5)){ -t6=C_a_i_list3(&a,3,((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[9]); -/* irregex-core.scm:3935: lp */ -t7=((C_word*)((C_word*)t0)[10])[1]; -f_27778(t7,((C_word*)t0)[4],t6,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[5],C_fix(1)),((C_word*)t0)[6]);} -else{ -t6=C_a_i_list3(&a,3,((C_word*)t0)[8],((C_word*)t0)[5],((C_word*)t0)[9]); -/* irregex-core.scm:3937: lp */ -t7=((C_word*)((C_word*)t0)[10])[1]; -f_27778(t7,((C_word*)t0)[4],t6,((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6]);}}} - -/* f_27937 in k27744 in k27741 in k27738 in chicken.irregex#irregex-fold/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27937(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27937,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.irregex#irregex-fold in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27954(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27954,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_27958,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t6=C_i_closurep(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:3940: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[412]; -av2[3]=lf[417]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_27958(2,av2);}}} - -/* k27956 in chicken.irregex#irregex-fold in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27958(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27958,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27959,a[2]=((C_word*)t0)[2],a[3]=((C_word)li343),tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[411]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t2; -av2[5]=((C_word*)t0)[5]; -C_apply(6,av2);}} - -/* kons2 in k27956 in chicken.irregex#irregex-fold in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27959,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27967,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:3941: irregex-copy-matches */ -f_7646(t5,t3);} - -/* k27965 in kons2 in k27956 in chicken.irregex#irregex-fold in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27967,c,av);} -/* irregex-core.scm:3941: kons */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -av2[4]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27982(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27982,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_27986,a[2]=t7,a[3]=t6,a[4]=t5,a[5]=t3,a[6]=t1,a[7]=t4,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:3945: irregex */ -t9=*((C_word*)lf[218]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27986(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_27986,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27989,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); -/* irregex-core.scm:3946: irregex-new-matches */ -f_7614(t2,t1);} - -/* k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -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 t6; -C_word t7; -C_word t8; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,5)))){ -C_save_and_reclaim((void *)f_27989,c,av);} -a=C_alloc(13); -t2=C_i_pairp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); -t4=(C_truep(t3)?t3:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28157,a[2]=((C_word)li345),tmp=(C_word)a,a+=3,tmp)); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27998,a[2]=((C_word*)t0)[3],a[3]=t1,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],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t6=C_i_pairp(((C_word*)t0)[2]); -t7=(C_truep(t6)?C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])):C_SCHEME_FALSE); -if(C_truep(t7)){ -t8=t5;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_i_cadr(((C_word*)t0)[2]); -f_27998(2,av2);}} -else{ -/* irregex-core.scm:3948: g5530 */ -t8=C_i_vector_ref(((C_word*)t0)[4],C_fix(2));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} - -/* k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_27998(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_27998,c,av);} -a=C_alloc(15); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_28004,a[2]=((C_word*)t0)[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)[2],a[10]=t1,a[11]=((C_word*)t0)[9],tmp=(C_word)a,a+=12,tmp); -if(C_truep(C_i_not(C_i_integerp(t1)))){ -/* irregex-core.scm:3952: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[419]; -av2[3]=lf[420]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_28004(2,av2);}}} - -/* k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_28004,c,av);} -a=C_alloc(12); -t2=C_i_setslot(((C_word*)t0)[2],C_fix(3),((C_word*)t0)[3]); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_28012,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],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)li346),tmp=(C_word)a,a+=10,tmp)); -t6=((C_word*)t4)[1]; -f_28012(t6,((C_word*)t0)[8],((C_word*)t0)[9],((C_word*)t0)[10],((C_word*)t0)[11]);} - -/* lp in k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void f_28012(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,7)))){ -C_save_and_reclaim_args((void *)trf_28012,5,t0,t1,t2,t3,t4);} -a=C_alloc(12); -if(C_truep(C_i_not(t2))){ -/* irregex-core.scm:3956: finish */ -t5=((C_word*)t0)[2];{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_28025,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); -/* irregex-core.scm:3957: irregex-search/matches */ -f_19051(t5,((C_word*)t0)[5],((C_word*)t0)[3],((C_word*)t0)[8],t2,t3,((C_word*)t0)[6]);}} - -/* k28023 in lp in k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28025(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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,5)))){ -C_save_and_reclaim((void *)f_28025,c,av);} -a=C_alloc(9); -if(C_truep(C_i_not(t1))){ -/* irregex-core.scm:3959: finish */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=C_slot(t1,C_fix(1)); -t3=C_slot(t2,C_fix(2)); -t4=C_slot(t1,C_fix(1)); -t5=C_fixnum_times(C_fix(0),C_fix(4)); -t6=C_slot(t4,C_fixnum_plus(C_fix(3),t5)); -t7=C_eqp(t3,((C_word*)t0)[4]); -t8=(C_truep(t7)?C_eqp(t6,((C_word*)t0)[5]):C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=C_i_vector_ref(((C_word*)t0)[7],C_fix(3)); -t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28099,a[2]=t6,a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],a[7]=t3,tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:3963: g5545 */ -t11=t9;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t11; -av2[1]=t10; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28102,a[2]=((C_word*)t0)[9],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t6,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[10],tmp=(C_word)a,a+=9,tmp); -/* irregex-core.scm:3967: kons */ -t10=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t10; -av2[1]=t9; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t1; -av2[5]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t10+1)))(6,av2);}}}} - -/* k28073 in k28097 in k28023 in lp in k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28075(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_28075,c,av);} -a=C_alloc(6); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28085,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:3965: g5550 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k28083 in k28073 in k28097 in k28023 in lp in k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28085(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_28085,c,av);} -/* irregex-core.scm:3965: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28012(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]);} - -/* k28097 in k28023 in lp in k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28099(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_28099,c,av);} -a=C_alloc(6); -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],t1))){ -t2=C_i_vector_ref(((C_word*)t0)[3],C_fix(0)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28075,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:3964: g5548 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* irregex-core.scm:3966: lp */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_28012(t2,((C_word*)t0)[5],((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[6]);}} - -/* k28100 in k28023 in lp in k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28102(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28102,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28105,a[2]=((C_word*)t0)[2],a[3]=((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); -/* irregex-core.scm:3968: irregex-reset-matches! */ -f_7637(t2,((C_word*)t0)[8]);} - -/* k28103 in k28100 in k28023 in lp in k28002 in k27996 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28105(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_28105,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(4)); -t3=C_fixnum_and(t2,C_fix(2)); -t4=C_eqp(C_fix(2),t3); -if(C_truep(t4)){ -/* irregex-core.scm:3970: finish */ -t5=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -/* irregex-core.scm:3971: lp */ -t5=((C_word*)((C_word*)t0)[8])[1]; -f_28012(t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]);}} - -/* f_28157 in k27987 in k27984 in chicken.irregex#irregex-fold/chunked/fast in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28157(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_28157,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.irregex#irregex-fold/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28164(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28164,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_28168,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t6=C_i_closurep(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:3974: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[419]; -av2[3]=lf[422]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_28168(2,av2);}}} - -/* k28166 in chicken.irregex#irregex-fold/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28168(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_28168,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28169,a[2]=((C_word*)t0)[2],a[3]=((C_word)li348),tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[418]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t2; -av2[5]=((C_word*)t0)[5]; -C_apply(6,av2);}} - -/* kons2 in k28166 in chicken.irregex#irregex-fold/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28169(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28169,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28177,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:3975: irregex-copy-matches */ -f_7646(t6,t4);} - -/* k28175 in kons2 in k28166 in chicken.irregex#irregex-fold/chunked in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28177(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_28177,c,av);} -/* irregex-core.scm:3975: kons */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t1; -av2[5]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* chicken.irregex#irregex-replace in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28192(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28192,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_28196,a[2]=t1,a[3]=t3,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t6=C_i_stringp(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:3979: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[425]; -av2[3]=lf[426]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_28196(2,av2);}}} - -/* k28194 in chicken.irregex#irregex-replace in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28196,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28199,a[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:3980: irregex-search */ -t3=*((C_word*)lf[287]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k28197 in k28194 in chicken.irregex#irregex-replace in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28199(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_28199,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28213,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); -t3=C_slot(t1,C_fix(1)); -t4=C_fixnum_times(C_fix(0),C_fix(4)); -/* irregex-core.scm:3983: scheme#substring */ -t5=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_slot(t3,C_fixnum_plus(C_fix(3),t4)); -av2[4]=C_u_i_string_length(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k28211 in k28197 in k28194 in chicken.irregex#irregex-replace in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28213(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_28213,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28217,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_28221,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3984: irregex-apply-match */ -f_28361(t3,((C_word*)t0)[3],((C_word*)t0)[5]);} - -/* k28215 in k28211 in k28197 in k28194 in chicken.irregex#irregex-replace in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28217(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_28217,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* irregex-core.scm:3982: string-cat-reverse */ -f_9100(((C_word*)t0)[3],t2);} - -/* k28219 in k28211 in k28197 in k28194 in chicken.irregex#irregex-replace in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28221(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_28221,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28229,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_slot(((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:3985: scheme#substring */ -t4=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(0); -av2[4]=C_slot(t3,C_fix(1)); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k28227 in k28219 in k28211 in k28197 in k28194 in chicken.irregex#irregex-replace in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28229(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28229,c,av);} -a=C_alloc(3); -t2=C_a_i_list1(&a,1,t1); -/* irregex-core.scm:3984: scheme#append */ -t3=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28268(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28268,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_28272,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t6=C_i_stringp(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:3990: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[428]; -av2[3]=lf[429]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_28272(2,av2);}}} - -/* k28270 in chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28272(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_28272,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28277,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li351),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28328,a[2]=((C_word*)t0)[3],a[3]=((C_word)li352),tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3991: irregex-fold/fast */ -t4=lf[411];{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t2; -av2[4]=C_SCHEME_END_OF_LIST; -av2[5]=((C_word*)t0)[3]; -av2[6]=t3; -f_27736(7,av2);}} - -/* a28276 in k28270 in chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28277(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(7,c,3)))){ -C_save_and_reclaim((void *)f_28277,c,av);} -a=C_alloc(7); -t5=C_slot(t3,C_fix(1)); -t6=C_slot(t5,C_fix(1)); -if(C_truep(C_fixnum_greater_or_equal_p(t2,t6))){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28311,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:3996: irregex-apply-match */ -f_28361(t7,t3,((C_word*)t0)[2]);} -else{ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28318,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t6,tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:3997: irregex-apply-match */ -f_28361(t7,t3,((C_word*)t0)[2]);}} - -/* k28309 in a28276 in k28270 in chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28311(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_28311,c,av);} -/* irregex-core.scm:3996: scheme#append */ -t2=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k28316 in a28276 in k28270 in chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28318(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28318,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:3998: scheme#substring */ -t3=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k28324 in k28316 in a28276 in k28270 in chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28326,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:3997: scheme#append */ -t3=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* a28327 in k28270 in chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28328(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_28328,c,av);} -a=C_alloc(4); -t4=C_i_string_length(((C_word*)t0)[2]); -if(C_truep(C_fixnum_greater_or_equal_p(t2,t4))){ -/* irregex-core.scm:4003: string-cat-reverse */ -f_9100(t1,t3);} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28349,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:4005: scheme#substring */ -t6=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} - -/* k28347 in a28327 in k28270 in chicken.irregex#irregex-replace/all in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28349(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_28349,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:4003: string-cat-reverse */ -f_9100(((C_word*)t0)[3],t2);} - -/* chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void f_28361(C_word 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_28361,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_28367,a[2]=t5,a[3]=t2,a[4]=((C_word)li355),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_28367(t7,t1,t3,C_SCHEME_END_OF_LIST);} - -/* lp in chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void f_28367(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_28367,4,t0,t1,t2,t3);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t2))){ -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_integerp(t4))){ -t5=C_u_i_cdr(t2); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28394,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:4014: irregex-match-substring */ -t7=*((C_word*)lf[40]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_u_i_car(t2); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -if(C_truep(C_i_closurep(C_u_i_car(t2)))){ -t5=C_u_i_cdr(t2); -t6=C_u_i_car(t2); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28419,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:4016: g5606 */ -t8=t6;{ -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{ -if(C_truep(C_i_symbolp(C_u_i_car(t2)))){ -t5=C_u_i_car(t2); -t6=C_eqp(t5,lf[431]); -if(C_truep(t6)){ -t7=C_u_i_cdr(t2); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28445,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -t9=C_slot(((C_word*)t0)[3],C_fix(1)); -t10=C_slot(t9,C_fix(0)); -t11=C_i_car(t10); -t12=C_slot(((C_word*)t0)[3],C_fix(1)); -/* irregex-core.scm:4021: scheme#substring */ -t13=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t13; -av2[1]=t8; -av2[2]=t11; -av2[3]=C_fix(0); -av2[4]=C_slot(t12,C_fix(1)); -((C_proc)(void*)(*((C_word*)t13+1)))(5,av2);}} -else{ -t7=C_eqp(t5,lf[432]); -if(C_truep(t7)){ -t8=C_slot(((C_word*)t0)[3],C_fix(1)); -t9=C_slot(t8,C_fix(0)); -t10=C_i_car(t9); -t11=C_u_i_cdr(t2); -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28509,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t11,tmp=(C_word)a,a+=6,tmp); -t13=C_slot(((C_word*)t0)[3],C_fix(1)); -t14=C_fixnum_times(C_fix(0),C_fix(4)); -/* irregex-core.scm:4028: scheme#substring */ -t15=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t15; -av2[1]=t12; -av2[2]=t10; -av2[3]=C_slot(t13,C_fixnum_plus(C_fix(3),t14)); -av2[4]=C_i_string_length(t10); -((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} -else{ -t8=C_u_i_car(t2); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28571,a[2]=t8,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:4034: irregex-match-names */ -t10=*((C_word*)lf[19]+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);}}}} -else{ -t5=C_u_i_cdr(t2); -t6=C_u_i_car(t2); -t7=C_a_i_cons(&a,2,t6,t3); -/* irregex-core.scm:4039: lp */ -t16=t1; -t17=t5; -t18=t7; -t1=t16; -t2=t17; -t3=t18; -goto loop;}}}}} - -/* k28392 in lp in chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28394(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_28394,c,av);} -a=C_alloc(3); -t2=(C_truep(t1)?C_a_i_cons(&a,2,t1,((C_word*)t0)[2]):C_a_i_cons(&a,2,lf[430],((C_word*)t0)[2])); -/* irregex-core.scm:4013: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_28367(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k28417 in lp in chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28419(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28419,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:4016: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_28367(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k28443 in lp in chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28445(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28445,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:4020: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_28367(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k28507 in lp in chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28509(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28509,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:4027: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_28367(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* g5633 in k28569 in lp in chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void f_28541(C_word 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_28541,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:4035: lp */ -t6=((C_word*)((C_word*)t0)[3])[1]; -f_28367(t6,t1,t5,((C_word*)t0)[4]);} - -/* k28569 in lp in chicken.irregex#irregex-apply-match in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_28571,c,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_28541,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li354),tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:4033: g5633 */ -t4=t3; -f_28541(t4,((C_word*)t0)[6],t2);} -else{ -/* irregex-core.scm:4037: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[6]; -av2[2]=lf[433]; -av2[3]=C_u_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* chicken.irregex#irregex-extract in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28592(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28592,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_28596,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t6=C_i_stringp(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:4042: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[435]; -av2[3]=lf[436]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_28596(2,av2);}}} - -/* k28594 in chicken.irregex#irregex-extract in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28596(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_28596,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28601,a[2]=((C_word)li357),tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28611,a[2]=((C_word)li358),tmp=(C_word)a,a+=3,tmp);{ -C_word *av2; -if(c >= 9) { - av2=av; -} else { - av2=C_alloc(9); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[411]; -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);}} - -/* a28600 in k28594 in chicken.irregex#irregex-extract in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28601(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28601,c,av);} -a=C_alloc(4); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28609,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:4045: irregex-match-substring */ -t6=*((C_word*)lf[40]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k28607 in a28600 in k28594 in chicken.irregex#irregex-extract in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28609(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_28609,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a28610 in k28594 in chicken.irregex#irregex-extract in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28611(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28611,c,av);} -/* irregex-core.scm:4048: ##sys#fast-reverse */ -t4=*((C_word*)lf[70]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28627(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_28627,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_28631,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t6=C_i_stringp(t3); -if(C_truep(C_i_not(t6))){ -/* irregex-core.scm:4052: chicken.base#error */ -t7=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[439]; -av2[3]=lf[440]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_28631(2,av2);}}} - -/* k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28631(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_28631,c,av);} -a=C_alloc(6); -t2=C_i_pairp(((C_word*)t0)[2]); -t3=(C_truep(t2)?C_u_i_car(((C_word*)t0)[2]):C_fix(0)); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28637,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(((C_word*)t0)[2]))){ -t5=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])); -t6=t4; -f_28637(t6,(C_truep(t5)?C_i_cadr(((C_word*)t0)[2]):C_i_string_length(((C_word*)t0)[3])));} -else{ -t5=t4; -f_28637(t5,C_i_string_length(((C_word*)t0)[3]));}} - -/* k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void f_28637(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,8)))){ -C_save_and_reclaim_args((void *)trf_28637,2,t0,t1);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28642,a[2]=((C_word*)t0)[2],a[3]=((C_word)li360),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28700,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li362),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:4055: irregex-fold/fast */ -t4=lf[411];{ -C_word av2[9]; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -av2[4]=C_SCHEME_END_OF_LIST; -av2[5]=((C_word*)t0)[2]; -av2[6]=t3; -av2[7]=((C_word*)t0)[5]; -av2[8]=t1; -f_27736(9,av2);}} - -/* a28641 in k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28642(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(4,c,4)))){ -C_save_and_reclaim((void *)f_28642,c,av);} -a=C_alloc(4); -t5=C_slot(t3,C_fix(1)); -t6=C_slot(t5,C_fix(1)); -t7=C_eqp(t2,t6); -if(C_truep(t7)){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28656,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t9=C_slot(t3,C_fix(1)); -/* irregex-core.scm:4062: scheme#substring */ -t10=*((C_word*)lf[46]+1);{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t8; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=C_slot(t9,C_fix(1)); -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} - -/* k28654 in a28641 in k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_28656,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a28699 in k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28700(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_28700,c,av);} -a=C_alloc(7); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28708,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t5)){ -t6=t4; -f_28708(t6,t3);} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28791,a[2]=t4,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:4066: scheme#substring */ -t7=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}}} - -/* k28706 in a28699 in k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void f_28708(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,5)))){ -C_save_and_reclaim_args((void *)trf_28708,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_28710,a[2]=t3,a[3]=((C_word)li361),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_28710(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE);} - -/* lp in k28706 in a28699 in k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void f_28710(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(14,0,4)))){ -C_save_and_reclaim_args((void *)trf_28710,5,t0,t1,t2,t3,t4);} -a=C_alloc(14); -if(C_truep(C_i_nullp(t2))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_car(t2); -if(C_truep(C_charp(t5))){ -t6=C_u_i_cdr(t2); -t7=(C_truep(t4)?t4:C_i_nullp(t3)); -if(C_truep(t7)){ -t8=C_u_i_car(t2); -t9=C_a_i_string(&a,1,t8); -t10=C_a_i_cons(&a,2,t9,t3); -/* irregex-core.scm:4072: lp */ -t12=t1; -t13=t6; -t14=t10; -t15=C_SCHEME_TRUE; -t1=t12; -t2=t13; -t3=t14; -t4=t15; -goto loop;} -else{ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28751,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t6,tmp=(C_word)a,a+=6,tmp); -t9=C_u_i_car(t2); -t10=C_a_i_string(&a,1,t9); -/* irregex-core.scm:4075: scheme#string-append */ -t11=*((C_word*)lf[438]+1);{ -C_word av2[4]; -av2[0]=t11; -av2[1]=t8; -av2[2]=t10; -av2[3]=C_i_car(t3); -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} -else{ -t6=C_u_i_cdr(t2); -t7=C_u_i_car(t2); -t8=C_a_i_cons(&a,2,t7,t3); -/* irregex-core.scm:4078: lp */ -t12=t1; -t13=t6; -t14=t8; -t15=C_SCHEME_FALSE; -t1=t12; -t2=t13; -t3=t14; -t4=t15; -goto loop;}}} - -/* k28749 in lp in k28706 in a28699 in k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28751(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_28751,c,av);} -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:4072: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_28710(t4,((C_word*)t0)[4],((C_word*)t0)[5],t3,C_SCHEME_TRUE);} - -/* k28789 in a28699 in k28635 in k28629 in chicken.irregex#irregex-split in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28791(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_28791,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2]; -f_28708(t2,C_a_i_cons(&a,2,t1,((C_word*)t0)[3]));} - -/* chicken.irregex#string-scan-char in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *a; -if(c<4) C_bad_min_argc_2(c,4,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){ -C_save_and_reclaim((void*)f_28825,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+9); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -t5=C_i_string_length(t2); -t6=C_i_pairp(t4); -t7=(C_truep(t6)?C_get_rest_arg(c,4,av,4,t0):C_fix(0)); -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_28838,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t9,a[6]=((C_word)li364),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_28838(t11,t1,t7);} - -/* scan in chicken.irregex#string-scan-char in k18914 in k7753 in k7522 in k7519 */ -static void f_28838(C_word t0,C_word t1,C_word t2){ -C_word 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_28838,3,t0,t1,t2);} -a=C_alloc(5); -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_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[3],t2); -t5=C_eqp(((C_word*)t0)[4],t4); -if(C_truep(t5)){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-utils.scm:14: scan */ -t8=t1; -t9=t6; -t1=t8; -t2=t9; -goto loop;}}} - -/* chicken.irregex#irregex-quote in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28868(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28868,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28876,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28880,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* ##sys#string->list */ -t5=*((C_word*)lf[106]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k28874 in chicken.irregex#irregex-quote in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28876(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28876,c,av);} -/* ##sys#list->string */ -t2=*((C_word*)lf[442]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k28878 in chicken.irregex#irregex-quote in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28880(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_28880,c,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_28882,a[2]=t3,a[3]=((C_word)li366),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_28882(t5,((C_word*)t0)[2],t1,C_SCHEME_END_OF_LIST);} - -/* loop in k28878 in chicken.irregex#irregex-quote in k18914 in k7753 in k7522 in k7519 */ -static void f_28882(C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_28882,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[70]+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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28901,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); -/* irregex-utils.scm:22: string-scan-char */ -t6=lf[55];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[443]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k28899 in loop in k28878 in chicken.irregex#irregex-quote in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28901(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_28901,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,C_make_character(92),((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,((C_word*)t0)[4],t3); -/* irregex-utils.scm:23: loop */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_28882(t5,((C_word*)t0)[6],t2,t4);} -else{ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[3]); -/* irregex-utils.scm:24: loop */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_28882(t4,((C_word*)t0)[6],t2,t3);}} - -/* chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -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; -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_28925,c,av);} -a=C_alloc(4); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[445]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_cdr(t2); -if(C_truep(C_i_nullp(t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_car(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29062,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-utils.scm:42: scheme#make-vector */ -t5=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_fix(256); -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} - -/* k28940 in k29097 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28942(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_28942,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28949,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* ##sys#list->string */ -t3=*((C_word*)lf[442]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=C_a_i_cons(&a,2,lf[104],((C_word*)t0)[4]); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[132],t2):t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k28947 in k28940 in k29097 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28949(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_28949,c,av);} -a=C_alloc(9); -t2=C_a_i_list1(&a,1,t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[132],t2):t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k28970 in k29140 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28972(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_28972,c,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_28993,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_28995,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li368),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_28995(t10,t6,((C_word*)t0)[3]);} -else{ -t2=C_a_i_cons(&a,2,lf[116],((C_word*)t0)[3]); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); -/* irregex-utils.scm:51: lp2 */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_29079(t4,((C_word*)t0)[6],((C_word*)t0)[7],t3);}} - -/* k28991 in k28970 in k29140 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_28993(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_28993,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[438]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop5934 in k28970 in k29140 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void f_28995(C_word 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(17,0,2)))){ -C_save_and_reclaim_args((void *)trf_28995,3,t0,t1,t2);} -a=C_alloc(17); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29005,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_slot(t2,C_fix(0)); -if(C_truep(C_charp(t4))){ -t5=C_a_i_string(&a,1,t4); -t6=t3; -f_29005(t6,C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST));} -else{ -t5=t3; -f_29005(t5,C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST));}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k29003 in map-loop5934 in k28970 in k29140 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void f_29005(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_29005,2,t0,t1);} -t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1); -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t4=((C_word*)((C_word*)t0)[3])[1]; -f_28995(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* a29031 in k29140 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29032(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29032,c,av);} -t3=C_i_stringp(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?t3:C_charp(t2)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29062(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_29062,c,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_29067,a[2]=t1,a[3]=t3,a[4]=((C_word)li371),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_29067(t5,((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_FALSE);} - -/* lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void f_29067(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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,4)))){ -C_save_and_reclaim_args((void *)trf_29067,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_29079,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word)li370),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_29079(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)){ -/* irregex-utils.scm:60: lp1 */ -t11=t1; -t12=C_u_i_cdr(t2); -t13=C_SCHEME_TRUE; -t1=t11; -t2=t12; -t3=t13; -goto loop;} -else{ -t7=C_i_string_ref(t4,C_fix(0)); -t8=C_fix(C_character_code(t7)); -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29178,a[2]=((C_word*)t0)[2],a[3]=t8,a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,a[7]=t3,tmp=(C_word)a,a+=8,tmp); -/* irregex-utils.scm:65: scheme#substring */ -t10=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t9; -av2[2]=t4; -av2[3]=C_fix(1); -av2[4]=t5; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}}} - -/* lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void f_29079(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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(19,0,3)))){ -C_save_and_reclaim_args((void *)trf_29079,4,t0,t1,t2,t3);} -a=C_alloc(19); -t4=C_eqp(t2,C_fix(256)); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29099,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* irregex-utils.scm:47: ##sys#fast-reverse */ -t6=*((C_word*)lf[70]+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_make_character(C_unfix(t2)); -t6=C_i_vector_ref(((C_word*)t0)[3],t2); -t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -if(C_truep(C_i_nullp(t6))){ -/* irregex-utils.scm:51: lp2 */ -t11=t1; -t12=t7; -t13=t3; -t1=t11; -t2=t12; -t3=t13; -goto loop;} -else{ -if(C_truep(C_i_equalp(t6,lf[447]))){ -t8=C_a_i_cons(&a,2,t5,t3); -/* irregex-utils.scm:51: lp2 */ -t11=t1; -t12=t7; -t13=t8; -t1=t11; -t2=t12; -t3=t13; -goto loop;} -else{ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29134,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29142,a[2]=t5,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=t7,a[7]=t8,tmp=(C_word)a,a+=8,tmp); -/* irregex-utils.scm:55: irregex-opt */ -t10=*((C_word*)lf[444]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t9; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}}} - -/* k29097 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29099(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_29099,c,av);} -a=C_alloc(6); -t2=C_i_cdr(t1); -if(C_truep(C_i_nullp(t2))){ -t3=C_u_i_car(t1); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(((C_word*)t0)[3])?C_a_i_list(&a,2,lf[132],t3):t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:31: every */ -f_9332(t3,*((C_word*)lf[446]+1),t1);}} - -/* k29132 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29134(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_29134,c,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_29079(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k29140 in lp2 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29142(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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,3)))){ -C_save_and_reclaim((void *)f_29142,c,av);} -a=C_alloc(17); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); -t3=C_i_cdr(t2); -if(C_truep(C_i_nullp(t3))){ -t4=C_u_i_car(t2); -t5=C_a_i_cons(&a,2,t4,((C_word*)t0)[3]); -/* irregex-utils.scm:51: lp2 */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_29079(t6,((C_word*)t0)[5],((C_word*)t0)[6],t5);} -else{ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28972,a[2]=((C_word*)t0)[7],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); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29032,a[2]=((C_word)li369),tmp=(C_word)a,a+=3,tmp); -/* irregex-utils.scm:35: every */ -f_9332(t4,t5,t2);}} - -/* k29176 in lp1 in k29060 in chicken.irregex#irregex-opt in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29178(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_29178,c,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); -/* irregex-utils.scm:66: lp1 */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_29067(t5,((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[6]),((C_word*)t0)[7]);} - -/* chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29192(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_29192,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29196,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-utils.scm:71: scheme#open-output-string */ -t4=*((C_word*)lf[452]+1);{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_29196,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29199,a[2]=((C_word*)t0)[2],a[3]=t1,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_29204,a[2]=t4,a[3]=t1,a[4]=((C_word)li373),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_29204(t6,t2,((C_word*)t0)[3]);} - -/* k29197 in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29199(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29199,c,av);} -/* irregex-utils.scm:82: scheme#get-output-string */ -t2=*((C_word*)lf[449]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* lp in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29204(C_word t0,C_word t1,C_word 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(22,0,2)))){ -C_save_and_reclaim_args((void *)trf_29204,3,t0,t1,t2);} -a=C_alloc(22); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29214,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_pairp(C_u_i_car(t2)))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29225,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_29247,a[2]=t4,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t6=C_i_caar(t2); -t7=C_a_i_string(&a,1,t6); -/* irregex-utils.scm:77: irregex-quote */ -t8=*((C_word*)lf[441]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t5; -av2[2]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29262,a[2]=t3,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t5=C_u_i_car(t2); -t6=C_a_i_string(&a,1,t5); -/* irregex-utils.scm:80: irregex-quote */ -t7=*((C_word*)lf[441]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t4; -av2[2]=t6; -((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);}}} - -/* k29212 in lp in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29214(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29214,c,av);} -/* irregex-utils.scm:81: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29204(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} - -/* k29223 in lp in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29225(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_29225,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29228,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* ##sys#write-char/port */ -t3=*((C_word*)lf[451]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_make_character(45); -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k29226 in k29223 in lp in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29228(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_29228,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29235,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[441]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k29233 in k29226 in k29223 in lp in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29235(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29235,c,av);} -/* irregex-utils.scm:79: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29245 in lp in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29247(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29247,c,av);} -/* irregex-utils.scm:77: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29260 in lp in k29194 in chicken.irregex#cset->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29262(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29262,c,av);} -/* irregex-utils.scm:80: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29272(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29272,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29276,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-utils.scm:85: scheme#open-output-string */ -t4=*((C_word*)lf[452]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_29276,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29279,a[2]=((C_word*)t0)[2],a[3]=t1,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_29284,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li383),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_29284(t6,t2,((C_word*)t0)[3]);} - -/* k29277 in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29279(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29279,c,av);} -/* irregex-utils.scm:153: scheme#get-output-string */ -t2=*((C_word*)lf[449]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29284(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_29284,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_pairp(t2))){ -t3=C_u_i_car(t2); -t4=C_eqp(t3,lf[228]); -t5=(C_truep(t4)?t4:C_eqp(t3,lf[116])); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29307,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_pairp(C_u_i_cdr(t2)))){ -t7=C_i_cddr(t2); -t8=C_i_pairp(t7); -t9=t6; -f_29307(t9,(C_truep(t8)?C_i_not(C_eqp(t2,((C_word*)t0)[4])):C_SCHEME_FALSE));} -else{ -t7=t6; -f_29307(t7,C_SCHEME_FALSE);}} -else{ -t6=C_eqp(t3,lf[109]); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29404,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); -/* irregex-utils.scm:96: scheme#display */ -t8=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[457]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} -else{ -t7=C_eqp(t3,lf[121]); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29446,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); -/* irregex-utils.scm:98: scheme#display */ -t9=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[460]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -t8=C_eqp(t3,lf[104]); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29500,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* irregex-utils.scm:101: scheme#display */ -t10=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[463]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t10+1)))(4,av2);}} -else{ -t9=C_eqp(t3,lf[128]); -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29559,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); -if(C_truep(t9)){ -t11=t10; -f_29559(t11,t9);} -else{ -t11=C_eqp(t3,lf[130]); -if(C_truep(t11)){ -t12=t10; -f_29559(t12,t11);} -else{ -t12=C_eqp(t3,lf[132]); -if(C_truep(t12)){ -t13=t10; -f_29559(t13,t12);} -else{ -t13=C_eqp(t3,lf[129]); -t14=t10; -f_29559(t14,(C_truep(t13)?t13:C_eqp(t3,lf[133])));}}}}}}}} -else{ -if(C_truep(C_i_symbolp(t2))){ -t3=C_eqp(t2,lf[187]); -t4=(C_truep(t3)?t3:C_eqp(t2,lf[196])); -if(C_truep(t4)){ -/* irregex-utils.scm:143: scheme#display */ -t5=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[482]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t5=C_eqp(t2,lf[188]); -t6=(C_truep(t5)?t5:C_eqp(t2,lf[197])); -if(C_truep(t6)){ -/* irregex-utils.scm:144: scheme#display */ -t7=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t1; -av2[2]=lf[483]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -t7=C_eqp(t2,lf[125]); -t8=(C_truep(t7)?t7:C_eqp(t2,lf[126])); -if(C_truep(t8)){ -/* irregex-utils.scm:145: scheme#display */ -t9=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t1; -av2[2]=lf[484]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -/* irregex-utils.scm:146: chicken.base#error */ -t9=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t9; -av2[1]=t1; -av2[2]=lf[485]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}}}}} -else{ -if(C_truep(C_i_stringp(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30033,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* irregex-utils.scm:148: irregex-quote */ -t4=*((C_word*)lf[441]+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_charp(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30046,a[2]=t1,a[3]=((C_word*)t0)[2],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[441]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -/* irregex-utils.scm:152: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[486]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}}}}} - -/* k29305 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29307(C_word t0,C_word 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_29307,2,t0,t1);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* irregex-utils.scm:93: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[455]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_check_list_2(t2,lf[307]); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_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_29352,a[2]=t5,a[3]=((C_word*)t0)[5],a[4]=((C_word)li376),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_29352(t7,((C_word*)t0)[3],t2);}} - -/* k29308 in k29305 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29310(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29310,c,av);} -a=C_alloc(11); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_check_list_2(t2,lf[307]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29317,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_29322,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li375),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_29322(t8,t4,t2);} - -/* k29315 in k29308 in k29305 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29317(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29317,c,av);} -/* irregex-utils.scm:93: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[454]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* for-each-loop6034 in k29308 in k29305 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29322(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_29322,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29332,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:93: g6035 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_29284(t4,t3,C_slot(t2,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);}}} - -/* k29330 in for-each-loop6034 in k29308 in k29305 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29332(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29332,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29322(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* for-each-loop6053 in k29305 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29352(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_29352,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29362,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:94: g6054 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_29284(t4,t3,C_slot(t2,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);}}} - -/* k29360 in for-each-loop6053 in k29305 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29362(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29362,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29352(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29402 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29404,c,av);} -a=C_alloc(11); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_check_list_2(t2,lf[307]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29411,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_29416,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li377),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_29416(t8,t4,t2);} - -/* k29409 in k29402 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29411(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29411,c,av);} -/* irregex-utils.scm:96: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[456]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* for-each-loop6070 in k29402 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29416(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_29416,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29426,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:96: g6071 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_29284(t4,t3,C_slot(t2,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);}}} - -/* k29424 in for-each-loop6070 in k29402 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -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,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29416(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29444 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29446(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_29446,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29449,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* irregex-utils.scm:98: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k29447 in k29444 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29449(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_29449,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29452,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* irregex-utils.scm:98: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[459]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k29450 in k29447 in k29444 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -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 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_29452,c,av);} -a=C_alloc(11); -t2=C_i_cddr(((C_word*)t0)[2]); -t3=C_i_check_list_2(t2,lf[307]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29461,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_29466,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li378),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_29466(t8,t4,t2);} - -/* k29459 in k29450 in k29447 in k29444 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29461(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29461,c,av);} -/* irregex-utils.scm:99: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[458]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* for-each-loop6089 in k29450 in k29447 in k29444 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29466(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_29466,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29476,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:99: g6090 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_29284(t4,t3,C_slot(t2,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);}}} - -/* k29474 in for-each-loop6089 in k29450 in k29447 in k29444 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29476(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29476,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29466(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29498 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29500(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_29500,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29503,a[2]=((C_word*)t0)[2],a[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:102: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29284(t3,t2,C_i_cadr(((C_word*)t0)[4]));} - -/* k29501 in k29498 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -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 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_29503,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li379),tmp=(C_word)a,a+=5,tmp); -t3=C_i_cddr(((C_word*)t0)[4]); -t4=C_i_check_list_2(t3,lf[307]); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29520,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_29525,a[2]=t7,a[3]=t2,a[4]=((C_word)li380),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_29525(t9,t5,t3);} - -/* g6111 in k29501 in k29498 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29504(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_29504,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29508,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:103: scheme#display */ -t4=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[461]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k29506 in g6111 in k29501 in k29498 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29508(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29508,c,av);} -/* irregex-utils.scm:103: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29284(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k29518 in k29501 in k29498 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29520(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29520,c,av);} -/* irregex-utils.scm:104: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[462]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* for-each-loop6110 in k29501 in k29498 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29525(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_29525,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29535,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:103: g6111 */ -t4=((C_word*)t0)[3]; -f_29504(t4,t3,C_slot(t2,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);}}} - -/* k29533 in for-each-loop6110 in k29501 in k29498 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29535(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29535,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29525(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29559(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_29559,2,t0,t1);} -a=C_alloc(11); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29562,a[2]=((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)[3]); -t4=C_i_pairp(t3); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29573,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(t4)){ -t6=t5; -f_29573(t6,t4);} -else{ -t6=C_u_i_cdr(((C_word*)t0)[3]); -if(C_truep(C_i_stringp(C_u_i_car(t6)))){ -t7=C_u_i_cdr(((C_word*)t0)[3]); -t8=C_i_string_length(C_u_i_car(t7)); -t9=t5; -f_29573(t9,C_i_not(C_eqp(C_fix(1),t8)));} -else{ -t7=t5; -f_29573(t7,C_SCHEME_FALSE);}}} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[466]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29656,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_i_cadr(((C_word*)t0)[3]); -if(C_truep(C_i_pairp(t4))){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29686,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* irregex-utils.scm:113: scheme#caadr */ -t6=*((C_word*)lf[472]+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=t3; -f_29656(t5,C_SCHEME_FALSE);}} -else{ -t3=C_eqp(((C_word*)t0)[6],lf[471]); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29699,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); -/* irregex-utils.scm:119: scheme#display */ -t5=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[474]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t4=C_eqp(((C_word*)t0)[6],lf[248]); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29720,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); -if(C_truep(t4)){ -t6=t5; -f_29720(t6,t4);} -else{ -t6=C_eqp(((C_word*)t0)[6],lf[235]); -if(C_truep(t6)){ -t7=t5; -f_29720(t7,t6);} -else{ -t7=C_eqp(((C_word*)t0)[6],lf[52]); -t8=t5; -f_29720(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],lf[180])));}}}}}} - -/* k29560 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29562(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29562,c,av);} -/* irregex-utils.scm:110: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_u_i_car(((C_word*)t0)[3]); -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29571 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29573(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_29573,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29576,a[2]=((C_word*)t0)[2],a[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:108: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[465]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -/* irregex-utils.scm:109: lp */ -t2=((C_word*)((C_word*)t0)[5])[1]; -f_29284(t2,((C_word*)t0)[3],C_i_cadr(((C_word*)t0)[2]));}} - -/* k29574 in k29571 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29576(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29576,c,av);} -a=C_alloc(11); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_check_list_2(t2,lf[307]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29583,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_29588,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li381),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_29588(t8,t4,t2);} - -/* k29581 in k29574 in k29571 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29583(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29583,c,av);} -/* irregex-utils.scm:108: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[464]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* for-each-loop6152 in k29574 in k29571 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29588(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_29588,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29598,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:108: g6153 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_29284(t4,t3,C_slot(t2,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);}}} - -/* k29596 in for-each-loop6152 in k29574 in k29571 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29598(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29598,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29588(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29654 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29656(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_29656,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29659,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:114: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[469]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -/* irregex-utils.scm:117: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[470]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k29657 in k29654 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29659(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_29659,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29662,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_29669,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_29673,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* irregex-utils.scm:115: scheme#cdadr */ -t5=*((C_word*)lf[468]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k29660 in k29657 in k29654 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29662,c,av);} -/* irregex-utils.scm:116: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[467]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29667 in k29657 in k29654 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29669(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29669,c,av);} -/* irregex-utils.scm:115: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29671 in k29657 in k29654 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29673,c,av);} -/* irregex-utils.scm:115: cset->string */ -f_29192(((C_word*)t0)[2],t1);} - -/* k29684 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29686(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_29686,c,av);} -t2=((C_word*)t0)[2]; -f_29656(t2,C_eqp(lf[471],t1));} - -/* k29697 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29699,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29702,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_29709,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* irregex-utils.scm:120: cset->string */ -f_29192(t3,C_u_i_cdr(((C_word*)t0)[4]));} - -/* k29700 in k29697 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29702(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29702,c,av);} -/* irregex-utils.scm:121: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[473]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29707 in k29697 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29709(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29709,c,av);} -/* irregex-utils.scm:120: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29720(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_29720,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=C_eqp(C_make_character(126),C_u_i_car(((C_word*)t0)[2])); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29729,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(t2)){ -t4=t3; -f_29729(t4,t2);} -else{ -t4=C_eqp(lf[248],C_u_i_car(((C_word*)t0)[2])); -if(C_truep(t4)){ -t5=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])); -t6=t3; -f_29729(t6,(C_truep(t5)?C_eqp(lf[125],C_i_cadr(((C_word*)t0)[2])):C_SCHEME_FALSE));} -else{ -t5=t3; -f_29729(t5,C_SCHEME_FALSE);}}} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[226]); -t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[227])); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29805,a[2]=((C_word*)t0)[2],a[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:132: scheme#display */ -t5=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[480]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -if(C_truep(C_i_stringp(C_u_i_car(((C_word*)t0)[2])))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29869,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* ##sys#string->list */ -t5=*((C_word*)lf[106]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -/* irregex-utils.scm:140: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[481]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}}}} - -/* k29727 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29729(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_29729,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29732,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:126: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[476]; -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_29767,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_26490(t2,((C_word*)t0)[4],C_SCHEME_END_OF_LIST);}} - -/* k29730 in k29727 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29732(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_29732,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29735,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_29742,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t4=C_eqp(C_make_character(126),C_u_i_car(((C_word*)t0)[4])); -if(C_truep(t4)){ -/* irregex-utils.scm:127: cset->string */ -f_29192(t3,C_u_i_cdr(((C_word*)t0)[4]));} -else{ -/* irregex-utils.scm:127: cset->string */ -f_29192(t3,C_i_cddr(((C_word*)t0)[4]));}} - -/* k29733 in k29730 in k29727 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -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,3)))){ -C_save_and_reclaim((void *)f_29735,c,av);} -/* irregex-utils.scm:128: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[475]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29740 in k29730 in k29727 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29742(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29742,c,av);} -/* irregex-utils.scm:127: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k29765 in k29727 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29767(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_29767,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[471],t1); -/* irregex-utils.scm:130: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29284(t3,((C_word*)t0)[3],t2);} - -/* k29803 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29805(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29805,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29808,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -t3=C_eqp(C_u_i_car(((C_word*)t0)[2]),lf[226]); -if(C_truep(t3)){ -/* irregex-utils.scm:133: scheme#display */ -t4=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[479]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_29808(2,av2);}}} - -/* k29806 in k29803 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29808(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_29808,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29811,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* irregex-utils.scm:134: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[478]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k29809 in k29806 in k29803 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29811(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29811,c,av);} -a=C_alloc(11); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_i_check_list_2(t2,lf[307]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29818,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_29823,a[2]=t6,a[3]=((C_word*)t0)[5],a[4]=((C_word)li382),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_29823(t8,t4,t2);} - -/* k29816 in k29809 in k29806 in k29803 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29818(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29818,c,av);} -/* irregex-utils.scm:136: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[477]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* for-each-loop6207 in k29809 in k29806 in k29803 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void f_29823(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_29823,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29833,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* irregex-utils.scm:135: g6208 */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_29284(t4,t3,C_slot(t2,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);}}} - -/* k29831 in for-each-loop6207 in k29809 in k29806 in k29803 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_29833(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29833,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29823(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29867 in k29718 in k29557 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -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 t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_29869,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,lf[471],t1); -/* irregex-utils.scm:139: lp */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29284(t3,((C_word*)t0)[3],t2);} - -/* k30031 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30033(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30033,c,av);} -/* irregex-utils.scm:148: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k30044 in lp in k29274 in chicken.irregex#sre->string in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30046(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30046,c,av);} -/* irregex-utils.scm:150: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_30056,c,av);} -a=C_alloc(6); -t3=C_i_check_string_2(t2,lf[488]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30067,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30071,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#string->list */ -t6=*((C_word*)lf[106]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k30065 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_30067,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[228],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_30071,c,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_30073,a[2]=t3,a[3]=((C_word)li386),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_30073(t5,((C_word*)t0)[2],t1,C_SCHEME_TRUE);} - -/* loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void f_30073(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word 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(61,0,4)))){ -C_save_and_reclaim_args((void *)trf_30073,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=C_u_i_cdr(t2); -if(C_truep(C_i_char_equalp(t4,C_make_character(42)))){ -if(C_truep(t3)){ -t6=C_a_i_list(&a,1,lf[489]); -t7=C_a_i_list(&a,2,lf[180],t6); -t8=C_a_i_list(&a,1,lf[490]); -t9=C_a_i_list(&a,2,lf[180],t8); -t10=C_a_i_list(&a,2,lf[128],t9); -t11=C_a_i_list(&a,3,lf[228],t7,t10); -t12=C_a_i_list(&a,1,lf[491]); -t13=C_a_i_list(&a,2,lf[180],t12); -t14=C_a_i_list(&a,2,lf[128],t13); -t15=C_a_i_list(&a,3,lf[104],t11,t14); -t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30104,a[2]=t1,a[3]=t15,tmp=(C_word)a,a+=4,tmp); -/* irregex.scm:233: loop */ -t18=t16; -t19=t5; -t20=C_SCHEME_FALSE; -t1=t18; -t2=t19; -t3=t20; -goto loop;} -else{ -t6=C_a_i_list(&a,1,lf[492]); -t7=C_a_i_list(&a,2,lf[180],t6); -t8=C_a_i_list(&a,2,lf[128],t7); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30151,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); -/* irregex.scm:234: loop */ -t18=t9; -t19=t5; -t20=C_SCHEME_FALSE; -t1=t18; -t2=t19; -t3=t20; -goto loop;}} -else{ -if(C_truep(C_u_i_char_equalp(t4,C_make_character(63)))){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30171,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex.scm:235: loop */ -t18=t6; -t19=t5; -t20=C_SCHEME_FALSE; -t1=t18; -t2=t19; -t3=t20; -goto loop;} -else{ -if(C_truep(C_u_i_char_equalp(t4,C_make_character(91)))){ -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_30181,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=((C_word)li385),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_30181(t9,t1,t5,C_SCHEME_END_OF_LIST);} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30332,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* irregex.scm:257: loop */ -t18=t6; -t19=t5; -t20=C_u_i_memq(t4,lf[494]); -t1=t18; -t2=t19; -t3=t20; -goto loop;}}}}} - -/* k30102 in loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30104(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_30104,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k30149 in loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30151(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_30151,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k30169 in loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30171(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_30171,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,lf[125],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop2 in loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void f_30181(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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_30181,4,t0,t1,t2,t3);} -a=C_alloc(7); -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -/* irregex.scm:239: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[488]; -av2[3]=lf[493]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t5=C_i_car(t2); -if(C_truep(C_i_char_equalp(C_make_character(93),t5))){ -t6=C_i_length(t3); -t7=C_fixnum_greaterp(t6,C_fix(1)); -t8=(C_truep(t7)?C_a_i_cons(&a,2,lf[104],t3):C_i_car(t3)); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30208,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); -/* irregex.scm:245: loop */ -t10=((C_word*)((C_word*)t0)[2])[1]; -f_30073(t10,t9,C_u_i_cdr(t2),C_SCHEME_FALSE);} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30230,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(C_u_i_cdr(t2)))){ -t7=C_i_cddr(t2); -if(C_truep(C_i_pairp(t7))){ -t8=C_u_i_cdr(t2); -t9=t6; -f_30230(t9,C_i_char_equalp(C_make_character(45),C_u_i_car(t8)));} -else{ -t8=t6; -f_30230(t8,C_SCHEME_FALSE);}} -else{ -t7=t6; -f_30230(t7,C_SCHEME_FALSE);}}}} - -/* k30206 in loop2 in loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30208(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_30208,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k30228 in loop2 in loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void f_30230(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -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_30230,2,t0,t1);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_i_cdddr(((C_word*)t0)[2]); -t3=C_u_i_car(((C_word*)t0)[2]); -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_u_i_cdr(t4); -t6=C_u_i_car(t5); -t7=C_a_i_list(&a,3,lf[52],t3,t6); -t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[3]); -/* irregex.scm:249: loop2 */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_30181(t9,((C_word*)t0)[5],t2,t8);} -else{ -t2=C_i_pairp(C_u_i_cdr(((C_word*)t0)[2])); -t3=(C_truep(t2)?C_i_char_equalp(C_make_character(45),C_u_i_car(((C_word*)t0)[2])):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=C_i_cddr(((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,2,lf[180],t6); -t8=C_a_i_cons(&a,2,t7,((C_word*)t0)[3]); -/* irregex.scm:253: loop2 */ -t9=((C_word*)((C_word*)t0)[4])[1]; -f_30181(t9,((C_word*)t0)[5],t4,t8);} -else{ -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_u_i_car(((C_word*)t0)[2]); -t6=C_a_i_cons(&a,2,t5,((C_word*)t0)[3]); -/* irregex.scm:256: loop2 */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_30181(t7,((C_word*)t0)[5],t4,t6);}}} - -/* k30330 in loop in k30069 in chicken.irregex#glob->sre in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30332(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_30332,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a30796 in k18914 in k7753 in k7522 in k7519 */ -static void C_ccall f_30797(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_30797,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[180],t4); -t6=C_a_i_list(&a,3,lf[116],t2,lf[125]); -t7=C_a_i_list(&a,3,lf[104],t5,t6); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_list(&a,2,lf[128],t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* a30958 in k7753 in k7522 in k7519 */ -static void C_ccall f_30959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_30959,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a30961 in k7753 in k7522 in k7519 */ -static void C_ccall f_30962(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6; -C_word *a; -if(c!=6) C_bad_argc_2(c,6,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_30962,c,av);} -/* irregex-core.scm:1972: scheme#substring */ -t6=*((C_word*)lf[46]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=C_i_car(t2); -av2[3]=t3; -av2[4]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* a30995 in k7522 in k7519 */ -static void C_ccall f_30996(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_30996,c,av);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31000,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:163: irregex-match-num-submatches */ -t5=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k30998 in a30995 in k7522 in k7519 */ -static void C_ccall f_31000(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_31000,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31003,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:164: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[501]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k31001 in k30998 in a30995 in k7522 in k7519 */ -static void C_ccall f_31003(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_31003,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31006,a[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:165: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k31004 in k31001 in k30998 in a30995 in k7522 in k7519 */ -static void C_ccall f_31006(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_31006,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31009,a[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:166: scheme#display */ -t3=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[500]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k31007 in k31004 in k31001 in k30998 in a30995 in k7522 in k7519 */ -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; -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_31009,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31012,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:167: scheme#display */ -t5=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=lf[499]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -/* irregex-core.scm:168: scheme#display */ -t5=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[498]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k31010 in k31007 in k31004 in k31001 in k30998 in a30995 in k7522 in k7519 */ -static void C_ccall f_31012(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_31012,c,av);} -/* irregex-core.scm:168: scheme#display */ -t2=*((C_word*)lf[450]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[498]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k7519 */ -static void C_ccall f_7521(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_7521,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7524,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_expand_toplevel(2,av2);}} - -/* k7522 in k7519 */ -static void C_ccall f_7524(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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(36,c,4)))){ -C_save_and_reclaim((void *)f_7524,c,av);} -a=C_alloc(36); -t2=C_mutate(&lf[2] /* (set! chicken.irregex#%vector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7532,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[5]+1 /* (set! chicken.irregex#irregex? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7545,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[7]+1 /* (set! chicken.irregex#irregex-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7587,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[9]+1 /* (set! chicken.irregex#irregex-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7605,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate(&lf[11] /* (set! chicken.irregex#irregex-new-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7614,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate(&lf[13] /* (set! chicken.irregex#irregex-reset-matches! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7637,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate(&lf[15] /* (set! chicken.irregex#irregex-copy-matches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7646,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[16]+1 /* (set! chicken.irregex#irregex-match-data? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7678,a[2]=((C_word)li7),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[17]+1 /* (set! chicken.irregex#irregex-match-num-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7684,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[19]+1 /* (set! chicken.irregex#irregex-match-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7709,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30996,a[2]=((C_word)li390),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:161: chicken.base#set-record-printer! */ -t14=*((C_word*)lf[502]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t14; -av2[1]=t12; -av2[2]=lf[12]; -av2[3]=t13; -((C_proc)(void*)(*((C_word*)t14+1)))(4,av2);}} - -/* chicken.irregex#%vector-copy in k7522 in k7519 */ -static void f_7532(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_7532,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7536,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:93: scheme#make-vector */ -t4=*((C_word*)lf[4]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_vector_length(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k7534 in chicken.irregex#%vector-copy in k7522 in k7519 */ -static void C_ccall f_7536(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_7536,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7539,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:90: scheme#vector-copy! */ -t3=*((C_word*)lf[3]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k7537 in k7534 in chicken.irregex#%vector-copy in k7522 in k7519 */ -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,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.irregex#irregex? in k7522 in k7519 */ -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 *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_7545,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_structurep(t2,lf[6]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.irregex#irregex-num-submatches in k7522 in k7519 */ -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=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_7587,c,av);} -t3=C_i_check_structure_2(t2,lf[6],lf[8]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fix(5)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.irregex#irregex-names in k7522 in k7519 */ -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=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_7605,c,av);} -t3=C_i_check_structure_2(t2,lf[6],lf[10]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fix(7)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.irregex#irregex-new-matches in k7522 in k7519 */ -static void f_7614(C_word t1,C_word t2){ -C_word tmp; -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_7614,2,t1,t2);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7622,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7635,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:126: irregex-num-submatches */ -t5=*((C_word*)lf[7]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k7620 in chicken.irregex#irregex-new-matches in k7522 in k7519 */ -static void C_ccall f_7622(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_7622,c,av);} -a=C_alloc(6); -t2=C_slot(((C_word*)t0)[2],C_fix(7)); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_record5(&a,5,lf[12],t1,t2,C_SCHEME_FALSE,C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k7633 in chicken.irregex#irregex-new-matches in k7522 in k7519 */ -static void C_ccall f_7635(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_7635,c,av);} -a=C_alloc(10); -t2=C_a_i_fixnum_plus(&a,2,C_fix(2),t1); -t3=C_s_a_u_i_integer_times(&a,2,C_fix(4),t2); -/* irregex-core.scm:126: scheme#make-vector */ -t4=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* chicken.irregex#irregex-reset-matches! in k7522 in k7519 */ -static void f_7637(C_word t1,C_word t2){ -C_word tmp; -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_7637,2,t1,t2);} -a=C_alloc(4); -t3=C_slot(t2,C_fix(1)); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7644,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:129: scheme#vector-fill! */ -t5=*((C_word*)lf[14]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k7642 in chicken.irregex#irregex-reset-matches! in k7522 in k7519 */ -static void C_ccall f_7644(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7644,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.irregex#irregex-copy-matches in k7522 in k7519 */ -static void f_7646(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_7646,2,t1,t2);} -a=C_alloc(4); -if(C_truep(C_i_structurep(t2,lf[12]))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7660,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:135: %vector-copy */ -f_7532(t3,C_slot(t2,C_fix(1)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k7658 in chicken.irregex#irregex-copy-matches in k7522 in k7519 */ -static void C_ccall f_7660(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_7660,c,av);} -a=C_alloc(6); -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -t3=C_slot(((C_word*)t0)[2],C_fix(3)); -t4=C_slot(((C_word*)t0)[2],C_fix(4)); -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_record5(&a,5,lf[12],t1,t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.irregex#irregex-match-data? in k7522 in k7519 */ -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 *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_7678,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_structurep(t2,lf[12]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.irregex#irregex-match-num-submatches in k7522 in k7519 */ -static void C_ccall f_7684(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_7684,c,av);} -a=C_alloc(5); -t3=C_i_check_structure_2(t2,lf[12],lf[18]); -t4=C_slot(t2,C_fix(1)); -t5=C_block_size(t4); -t6=C_fixnum_divide(t5,C_fix(4)); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_fixnum_difference(&a,2,t6,C_fix(2)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* chicken.irregex#irregex-match-names in k7522 in k7519 */ -static void C_ccall f_7709(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *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_7709,c,av);} -t3=C_i_check_structure_2(t2,lf[12],lf[20]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fix(2)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k7753 in k7522 in k7519 */ -static void C_ccall f_7755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(216,c,6)))){ -C_save_and_reclaim((void *)f_7755,c,av);} -a=C_alloc(216); -t2=C_mutate((C_word*)lf[21]+1 /* (set! chicken.irregex#irregex-match-start-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7770,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[24]+1 /* (set! chicken.irregex#irregex-match-start-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7795,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[26]+1 /* (set! chicken.irregex#irregex-match-end-chunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7824,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[28]+1 /* (set! chicken.irregex#irregex-match-end-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7853,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate(&lf[22] /* (set! chicken.irregex#irregex-match-numeric-index ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7946,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[36]+1 /* (set! chicken.irregex#irregex-match-valid-index? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8130,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[40]+1 /* (set! chicken.irregex#irregex-match-substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8193,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[42]+1 /* (set! chicken.irregex#irregex-match-subchunk ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8274,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[45]+1 /* (set! chicken.irregex#make-irregex-chunker ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8364,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate(&lf[50] /* (set! chicken.irregex#chunker-prev-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8632,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate(&lf[51] /* (set! chicken.irregex#chunker-next-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8662,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); -t13=C_a_i_list(&a,5,lf[52],C_make_character(0),C_make_character(55295),C_make_character(57344),C_make_character(1114111)); -t14=C_mutate(&lf[53] /* (set! chicken.irregex#*all-chars* ...) */,t13); -t15=lf[54] /* chicken.irregex#*allow-utf8-mode?* */ =C_SCHEME_FALSE;; -t16=C_mutate(&lf[55] /* (set! chicken.irregex#string-scan-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8809,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate(&lf[47] /* (set! chicken.irregex#string-cat-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9100,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate(&lf[58] /* (set! chicken.irregex#zero-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9153,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate(&lf[59] /* (set! chicken.irregex#find ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9190,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate(&lf[60] /* (set! chicken.irregex#last ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9251,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate(&lf[62] /* (set! chicken.irregex#any ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9289,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate(&lf[63] /* (set! chicken.irregex#every ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9332,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); -t23=C_mutate(&lf[57] /* (set! chicken.irregex#fold ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9377,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); -t24=C_mutate(&lf[64] /* (set! chicken.irregex#flag-join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9707,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); -t25=C_mutate(&lf[65] /* (set! chicken.irregex#flag-clear ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9716,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); -t26=C_a_i_list1(&a,1,lf[66]); -t27=C_mutate(&lf[67] /* (set! chicken.irregex#close-token ...) */,t26); -t28=C_mutate(&lf[68] /* (set! chicken.irregex#with-read-from-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9734,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); -t29=C_mutate(&lf[90] /* (set! chicken.irregex#symbol-list->flags ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10327,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp)); -t30=C_mutate((C_word*)lf[102]+1 /* (set! chicken.irregex#maybe-string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10450,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); -t31=C_mutate((C_word*)lf[103]+1 /* (set! chicken.irregex#string->sre ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10462,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); -t32=C_a_i_cons(&a,2,C_make_character(110),C_make_character(10)); -t33=C_a_i_cons(&a,2,C_make_character(114),C_make_character(13)); -t34=C_a_i_cons(&a,2,C_make_character(116),C_make_character(9)); -t35=C_a_i_cons(&a,2,C_make_character(97),C_make_character(7)); -t36=C_a_i_cons(&a,2,C_make_character(101),C_make_character(27)); -t37=C_a_i_cons(&a,2,C_make_character(102),C_make_character(12)); -t38=C_a_i_list(&a,6,t32,t33,t34,t35,t36,t37); -t39=C_mutate(&lf[169] /* (set! chicken.irregex#posix-escape-sequences ...) */,t38); -t40=C_mutate(&lf[170] /* (set! chicken.irregex#string-parse-hex-escape ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13290,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); -t41=C_mutate(&lf[205] /* (set! chicken.irregex#high-char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14003,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); -t42=C_mutate(&lf[107] /* (set! chicken.irregex#utf8-string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14024,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); -t43=C_mutate(&lf[207] /* (set! chicken.irregex#utf8-lowest-digit-of-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14257,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); -t44=C_mutate(&lf[209] /* (set! chicken.irregex#char->utf8-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14333,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); -t45=C_mutate(&lf[211] /* (set! chicken.irregex#unicode-range-helper ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14609,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); -t46=C_mutate(&lf[213] /* (set! chicken.irregex#unicode-range-up-from ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14747,a[2]=((C_word)li104),tmp=(C_word)a,a+=3,tmp)); -t47=C_mutate(&lf[214] /* (set! chicken.irregex#unicode-range-up-to ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14886,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); -t48=C_mutate(&lf[215] /* (set! chicken.irregex#cset->utf8-pattern ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15464,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp)); -t49=C_mutate((C_word*)lf[218]+1 /* (set! chicken.irregex#irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16037,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); -t50=C_mutate((C_word*)lf[220]+1 /* (set! chicken.irregex#string->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16165,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); -t51=C_mutate((C_word*)lf[221]+1 /* (set! chicken.irregex#sre->irregex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16175,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp)); -t52=C_mutate(&lf[140] /* (set! chicken.irregex#sre-empty? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16308,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); -t53=C_mutate(&lf[278] /* (set! chicken.irregex#sre-any? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16475,a[2]=((C_word)li216),tmp=(C_word)a,a+=3,tmp)); -t54=C_mutate(&lf[137] /* (set! chicken.irregex#sre-repeater? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16576,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); -t55=C_mutate(&lf[280] /* (set! chicken.irregex#sre-bos? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16621,a[2]=((C_word)li218),tmp=(C_word)a,a+=3,tmp)); -t56=C_mutate(&lf[272] /* (set! chicken.irregex#sre-searcher? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16710,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); -t57=C_mutate(&lf[254] /* (set! chicken.irregex#sre-consumer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16827,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); -t58=C_mutate(&lf[281] /* (set! chicken.irregex#sre-has-submatches? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16944,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp)); -t59=C_mutate(&lf[225] /* (set! chicken.irregex#sre-count-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16983,a[2]=((C_word)li223),tmp=(C_word)a,a+=3,tmp)); -t60=C_mutate(&lf[105] /* (set! chicken.irregex#sre-sequence ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18189,a[2]=((C_word)li224),tmp=(C_word)a,a+=3,tmp)); -t61=C_mutate(&lf[108] /* (set! chicken.irregex#sre-alternate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18212,a[2]=((C_word)li225),tmp=(C_word)a,a+=3,tmp)); -t62=C_mutate(&lf[284] /* (set! chicken.irregex#sre-strip-submatches ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18235,a[2]=((C_word)li227),tmp=(C_word)a,a+=3,tmp)); -t63=C_mutate(&lf[253] /* (set! chicken.irregex#sre-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18416,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); -t64=C_mutate(&lf[285] /* (set! chicken.irregex#sre-sequence-names ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18702,a[2]=((C_word)li229),tmp=(C_word)a,a+=3,tmp)); -t65=C_mutate(&lf[271] /* (set! chicken.irregex#sre-remove-initial-bos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18734,a[2]=((C_word)li231),tmp=(C_word)a,a+=3,tmp)); -t66=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18916,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t67=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30959,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp); -t68=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30962,a[2]=((C_word)li389),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:1967: make-irregex-chunker */ -t69=*((C_word*)lf[45]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t69; -av2[1]=t66; -av2[2]=t67; -av2[3]=*((C_word*)lf[495]+1); -av2[4]=*((C_word*)lf[496]+1); -av2[5]=*((C_word*)lf[497]+1); -av2[6]=t68; -((C_proc)(void*)(*((C_word*)t69+1)))(7,av2);}} - -/* k7766 in k8132 in chicken.irregex#irregex-match-valid-index? in k7753 in k7522 in k7519 */ -static void C_ccall f_7768(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7768,c,av);} -t2=C_i_assq(((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_SCHEME_TRUE:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.irregex#irregex-match-start-chunk in k7753 in k7522 in k7519 */ -static void C_ccall f_7770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_7770,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_7774,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:236: irregex-match-numeric-index */ -f_7946(t4,lf[23],t2,t3);} - -/* k7772 in chicken.irregex#irregex-match-start-chunk in k7753 in k7522 in k7519 */ -static void C_ccall f_7774(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7774,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_slot(C_slot(((C_word*)t0)[3],C_fix(1)),C_fixnum_times(t1,C_fix(4))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.irregex#irregex-match-start-index in k7753 in k7522 in k7519 */ -static void C_ccall f_7795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_7795,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_7799,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:239: irregex-match-numeric-index */ -f_7946(t4,lf[25],t2,t3);} - -/* k7797 in chicken.irregex#irregex-match-start-index in k7753 in k7522 in k7519 */ -static void C_ccall f_7799(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7799,c,av);} -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_fixnum_times(t1,C_fix(4)); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fixnum_plus(C_fix(1),t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.irregex#irregex-match-end-chunk in k7753 in k7522 in k7519 */ -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=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_7824,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_7828,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:242: irregex-match-numeric-index */ -f_7946(t4,lf[27],t2,t3);} - -/* k7826 in chicken.irregex#irregex-match-end-chunk in k7753 in k7522 in k7519 */ -static void C_ccall f_7828(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_7828,c,av);} -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_fixnum_times(t1,C_fix(4)); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fixnum_plus(C_fix(2),t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.irregex#irregex-match-end-index in k7753 in k7522 in k7519 */ -static void C_ccall f_7853(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_7853,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_7857,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:245: irregex-match-numeric-index */ -f_7946(t4,lf[29],t2,t3);} - -/* k7855 in chicken.irregex#irregex-match-end-index in k7753 in k7522 in k7519 */ -static void C_ccall f_7857(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7857,c,av);} -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_fixnum_times(t1,C_fix(4)); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fixnum_plus(C_fix(3),t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.irregex#irregex-match-numeric-index in k7753 in k7522 in k7519 */ -static void f_7946(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_7946,4,t1,t2,t3,t4);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8128,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:272: irregex-match-data? */ -t6=*((C_word*)lf[16]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k8012 in k8126 in chicken.irregex#irregex-match-numeric-index in k7753 in k7522 in k7519 */ -static void f_8014(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_8014,2,t0,t1);} -if(C_truep(t1)){ -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(1),t3); -t5=C_slot(t2,t4); -t6=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t5)?((C_word*)t0)[3]:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -/* irregex-core.scm:283: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[6]; -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[33]; -av2[4]=((C_word*)t0)[2]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* k8054 in k8126 in chicken.irregex#irregex-match-numeric-index in k7753 in k7522 in k7519 */ -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; -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_8056,c,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_8058,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=((C_word)li14),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_8058(t5,((C_word*)t0)[5],t1,C_SCHEME_TRUE);} - -/* lp in k8054 in k8126 in chicken.irregex#irregex-match-numeric-index in k7753 in k7522 in k7519 */ -static void f_8058(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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(0,0,4)))){ -C_save_and_reclaim_args((void *)trf_8058,4,t0,t1,t2,t3);} -if(C_truep(C_i_nullp(t2))){ -if(C_truep(t3)){ -/* irregex-core.scm:290: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[35]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t4=C_i_caar(t2); -t5=C_eqp(((C_word*)t0)[3],t4); -if(C_truep(t5)){ -t6=C_u_i_car(t2); -t7=C_u_i_cdr(t6); -t8=C_slot(((C_word*)t0)[4],C_fix(1)); -t9=C_fixnum_times(t7,C_fix(4)); -if(C_truep(C_slot(t8,t9))){ -t10=t1;{ -C_word av2[2]; -av2[0]=t10; -av2[1]=C_i_cdar(t2); -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -/* irregex-core.scm:294: lp */ -t11=t1; -t12=C_u_i_cdr(t2); -t13=C_SCHEME_FALSE; -t1=t11; -t2=t12; -t3=t13; -goto loop;}} -else{ -/* irregex-core.scm:295: lp */ -t11=t1; -t12=C_u_i_cdr(t2); -t13=t3; -t1=t11; -t2=t12; -t3=t13; -goto loop;}}} - -/* k8126 in chicken.irregex#irregex-match-numeric-index in k7753 in k7522 in k7519 */ -static void C_ccall f_8128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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,6)))){ -C_save_and_reclaim((void *)f_8128,c,av);} -a=C_alloc(11); -if(C_truep(C_i_not(t1))){ -/* irregex-core.scm:273: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[31]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=C_i_pairp(((C_word*)t0)[5]); -if(C_truep(C_i_not(t2))){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_cdr(((C_word*)t0)[5]); -if(C_truep(C_i_pairp(t3))){{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[30]+1); -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[32]; -av2[5]=((C_word*)t0)[4]; -av2[6]=((C_word*)t0)[5]; -C_apply(7,av2);}} -else{ -t4=C_u_i_car(((C_word*)t0)[5]); -if(C_truep(C_i_numberp(t4))){ -t5=(C_truep(C_i_integerp(t4))?C_i_exactp(t4):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8014,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -t7=C_slot(((C_word*)t0)[4],C_fix(1)); -if(C_truep(C_fixnum_greater_or_equal_p(t4,C_fix(0)))){ -t8=C_fixnum_times(t4,C_fix(4)); -t9=C_block_size(t7); -t10=C_a_i_fixnum_difference(&a,2,t9,C_fix(4)); -t11=t6; -f_8014(t11,C_fixnum_lessp(t8,t10));} -else{ -t8=t6; -f_8014(t8,C_SCHEME_FALSE);}} -else{ -/* irregex-core.scm:284: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[34]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8056,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:285: irregex-match-names */ -t6=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}}}} - -/* chicken.irregex#irregex-match-valid-index? in k7753 in k7522 in k7519 */ -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=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_8130,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8134,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_8191,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:298: irregex-match-data? */ -t6=*((C_word*)lf[16]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k8132 in chicken.irregex#irregex-match-valid-index? in k7753 in k7522 in k7519 */ -static void C_ccall f_8134(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -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_8134,c,av);} -a=C_alloc(5); -if(C_truep(C_i_integerp(((C_word*)t0)[2]))){ -t2=C_i_exactp(((C_word*)t0)[2]); -if(C_truep(C_i_not(t2))){ -/* irregex-core.scm:302: chicken.base#error */ -t3=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[37]; -av2[3]=lf[38]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=C_slot(((C_word*)t0)[4],C_fix(1)); -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(0)))){ -t4=C_fixnum_times(((C_word*)t0)[2],C_fix(4)); -t5=C_block_size(t3); -t6=C_a_i_fixnum_difference(&a,2,t5,C_fix(4)); -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_fixnum_lessp(t4,t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7768,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:231: irregex-match-names */ -t3=*((C_word*)lf[19]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k8189 in chicken.irregex#irregex-match-valid-index? in k7753 in k7522 in k7519 */ -static void C_ccall f_8191(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8191,c,av);} -if(C_truep(C_i_not(t1))){ -/* irregex-core.scm:299: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[37]; -av2[3]=lf[39]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_8134(2,av2);}}} - -/* chicken.irregex#irregex-match-substring in k7753 in k7522 in k7519 */ -static void C_ccall f_8193(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_8193,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_8197,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:307: irregex-match-numeric-index */ -f_7946(t4,lf[41],t2,t3);} - -/* k8195 in chicken.irregex#irregex-match-substring in k7753 in k7522 in k7519 */ -static void C_ccall f_8197(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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(0,c,5)))){ -C_save_and_reclaim((void *)f_8197,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(3)); -if(C_truep(t1)){ -t3=C_i_vector_ref(t2,C_fix(4)); -t4=C_slot(((C_word*)t0)[2],C_fix(1)); -t5=C_fixnum_times(t1,C_fix(4)); -t6=C_slot(t4,t5); -t7=C_slot(((C_word*)t0)[2],C_fix(1)); -t8=C_fixnum_times(t1,C_fix(4)); -t9=C_fixnum_plus(C_fix(1),t8); -t10=C_slot(t7,t9); -t11=C_slot(((C_word*)t0)[2],C_fix(1)); -t12=C_fixnum_times(t1,C_fix(4)); -t13=C_fixnum_plus(C_fix(2),t12); -t14=C_slot(t11,t13); -t15=C_slot(((C_word*)t0)[2],C_fix(1)); -t16=C_fixnum_times(t1,C_fix(4)); -/* irregex-core.scm:309: g880 */ -t17=t3;{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t17; -av2[1]=((C_word*)t0)[3]; -av2[2]=t6; -av2[3]=t10; -av2[4]=t14; -av2[5]=C_slot(t15,C_fixnum_plus(C_fix(3),t16)); -((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* chicken.irregex#irregex-match-subchunk in k7753 in k7522 in k7519 */ -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; -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_8274,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_8278,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:317: irregex-match-numeric-index */ -f_7946(t4,lf[44],t2,t3);} - -/* k8276 in chicken.irregex#irregex-match-subchunk in k7753 in k7522 in k7519 */ -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 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(0,c,5)))){ -C_save_and_reclaim((void *)f_8278,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(3)); -t3=C_i_vector_ref(t2,C_fix(5)); -if(C_truep(C_i_not(t3))){ -/* irregex-core.scm:321: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[43]; -av2[3]=((C_word*)t0)[2]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -if(C_truep(t1)){ -t4=C_slot(((C_word*)t0)[2],C_fix(1)); -t5=C_fixnum_times(t1,C_fix(4)); -t6=C_slot(t4,t5); -t7=C_slot(((C_word*)t0)[2],C_fix(1)); -t8=C_fixnum_times(t1,C_fix(4)); -t9=C_fixnum_plus(C_fix(1),t8); -t10=C_slot(t7,t9); -t11=C_slot(((C_word*)t0)[2],C_fix(1)); -t12=C_fixnum_times(t1,C_fix(4)); -t13=C_fixnum_plus(C_fix(2),t12); -t14=C_slot(t11,t13); -t15=C_slot(((C_word*)t0)[2],C_fix(1)); -t16=C_fixnum_times(t1,C_fix(4)); -/* irregex-core.scm:322: get-subchunk */ -t17=t3;{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t17; -av2[1]=((C_word*)t0)[3]; -av2[2]=t6; -av2[3]=t10; -av2[4]=t14; -av2[5]=C_slot(t15,C_fixnum_plus(C_fix(3),t16)); -((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} -else{ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} - -/* chicken.irregex#make-irregex-chunker in k7753 in k7522 in k7519 */ -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=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 +33,c,6)))){ -C_save_and_reclaim((void*)f_8364,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+33); -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_pairp(t4); -t6=(C_truep(t5)?C_get_rest_arg(c,4,av,4,t0):C_SCHEME_FALSE); -t7=(C_truep(t6)?t6:(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8556,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); -t8=C_i_pairp(t4); -t9=(C_truep(t8)?C_i_cdr(t4):t4); -t10=C_i_pairp(t9); -t11=(C_truep(t10)?C_u_i_car(t9):C_SCHEME_FALSE); -t12=(C_truep(t11)?t11:(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8539,a[2]=t3,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp)); -t13=C_i_pairp(t9); -t14=(C_truep(t13)?C_u_i_cdr(t9):t9); -t15=C_i_pairp(t14); -t16=(C_truep(t15)?C_u_i_car(t14):C_SCHEME_FALSE); -t17=(C_truep(t16)?t16:(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8438,a[2]=t3,a[3]=t7,a[4]=t12,a[5]=t2,a[6]=((C_word)li22),tmp=(C_word)a,a+=7,tmp)); -t18=C_i_pairp(t14); -t19=(C_truep(t18)?C_u_i_cdr(t14):t14); -t20=C_i_pairp(t19); -t21=(C_truep(t20)?C_u_i_car(t19):C_SCHEME_FALSE); -t22=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8398,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t7,a[6]=t12,a[7]=t17,a[8]=t21,tmp=(C_word)a,a+=9,tmp); -t23=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8404,a[2]=t22,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t7,a[7]=t12,a[8]=t17,a[9]=t21,tmp=(C_word)a,a+=10,tmp); -if(C_truep(C_i_closurep(t2))){ -if(C_truep(C_i_closurep(t3))){ -t24=C_i_closurep(t7); -t25=t23; -f_8404(t25,(C_truep(t24)?C_i_not(C_i_closurep(t17)):C_SCHEME_TRUE));} -else{ -t24=t23; -f_8404(t24,C_SCHEME_TRUE);}} -else{ -t24=t23; -f_8404(t24,C_SCHEME_TRUE);}} - -/* k8396 in chicken.irregex#make-irregex-chunker in k7753 in k7522 in k7519 */ -static void C_ccall f_8398(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ -C_save_and_reclaim((void *)f_8398,c,av);} -a=C_alloc(7); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_vector6(&a,6,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8402 in chicken.irregex#make-irregex-chunker in k7753 in k7522 in k7519 */ -static void f_8404(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_8404,2,t0,t1);} -a=C_alloc(7); -if(C_truep(t1)){ -/* irregex-core.scm:360: chicken.base#error */ -t2=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[48]; -av2[3]=lf[49]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_a_i_vector6(&a,6,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[9]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* f_8438 in chicken.irregex#make-irregex-chunker in k7753 in k7522 in k7519 */ -static void C_ccall f_8438(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_8438,c,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_8452,a[2]=t1,a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:340: get-str */ -t8=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8459,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:341: get-next */ -t8=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}}} - -/* k8450 */ -static void C_ccall f_8452(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8452,c,av);} -/* irregex-core.scm:340: scheme#substring */ -t2=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8457 */ -static void C_ccall f_8459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_8459,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8522,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,tmp=(C_word)a,a+=10,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8526,a[2]=t2,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:342: get-str */ -t4=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[10]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* loop in k8520 in k8457 */ -static void f_8465(C_word t0,C_word 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_8465,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_8483,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8487,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:347: 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_8498,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:351: 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);}}} - -/* k8481 in loop in k8520 in k8457 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_8483,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:346: string-cat-reverse */ -f_9100(((C_word*)t0)[3],t2);} - -/* k8485 in loop in k8520 in k8457 */ -static void C_ccall f_8487(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8487,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8491,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:348: get-start */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8489 in k8485 in loop in k8520 in k8457 */ -static void C_ccall f_8491(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8491,c,av);} -/* irregex-core.scm:347: scheme#substring */ -t2=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8496 in loop in k8520 in k8457 */ -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 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_8498,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8506,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); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8510,a[2]=t2,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:352: get-str */ -t4=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8504 in k8496 in loop in k8520 in k8457 */ -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 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_8506,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* irregex-core.scm:351: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_8465(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k8508 in k8496 in loop in k8520 in k8457 */ -static void C_ccall f_8510(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_8510,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8514,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); -/* irregex-core.scm:353: get-start */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8512 in k8508 in k8496 in loop in k8520 in k8457 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_8514,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8518,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:354: get-end */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8516 in k8512 in k8508 in k8496 in loop in k8520 in k8457 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8518,c,av);} -/* irregex-core.scm:352: scheme#substring */ -t2=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8520 in k8457 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ -C_save_and_reclaim((void *)f_8522,c,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_8465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t4,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word)li21),tmp=(C_word)a,a+=10,tmp)); -t6=((C_word*)t4)[1]; -f_8465(t6,((C_word*)t0)[8],((C_word*)t0)[9],t2);} - -/* k8524 in k8457 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_8526,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8530,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:344: get-end */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8528 in k8524 in k8457 */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8530,c,av);} -/* irregex-core.scm:342: scheme#substring */ -t2=*((C_word*)lf[46]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* f_8539 in chicken.irregex#make-irregex-chunker in k7753 in k7522 in k7519 */ -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; -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_8539,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8547,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:334: get-str */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8545 */ -static void C_ccall f_8547(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8547,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_string_length(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_8556 in chicken.irregex#make-irregex-chunker in k7753 in k7522 in k7519 */ -static void C_ccall f_8556(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8556,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* lp in chicken.irregex#chunker-prev-char in k7753 in k7522 in k7519 */ -static void f_8614(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_8614,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8618,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); -/* irregex-core.scm:375: 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);}} - -/* k8616 in lp in chicken.irregex#chunker-prev-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8618,c,av);} -t2=C_eqp(t1,((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(t1)){ -/* irregex-core.scm:378: lp */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_8614(t3,((C_word*)t0)[3],t1);} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* chicken.irregex#chunker-prev-char in k7753 in k7522 in k7519 */ -static void f_8632(C_word 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(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_8632,4,t1,t2,t3,t4);} -a=C_alloc(12); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8636,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t6=C_eqp(t3,t4); -if(C_truep(t6)){ -t7=t5;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -f_8636(2,av2);}} -else{ -t7=C_i_vector_ref(t2,C_fix(0)); -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_8614,a[2]=t4,a[3]=t9,a[4]=t7,a[5]=((C_word)li24),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_8614(t11,t5,t3);}} - -/* k8634 in chicken.irregex#chunker-prev-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8636(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_8636,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8649,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:383: g979 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k8647 in k8634 in chicken.irregex#chunker-prev-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8649(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_8649,c,av);} -a=C_alloc(4); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8660,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:384: g981 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8658 in k8647 in k8634 in chicken.irregex#chunker-prev-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8660(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8660,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_string_ref(((C_word*)t0)[3],C_fixnum_difference(t1,C_fix(1))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.irregex#chunker-next-char in k7753 in k7522 in k7519 */ -static void f_8662(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_8662,3,t1,t2,t3);} -a=C_alloc(4); -t4=C_i_vector_ref(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8669,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:387: g987 */ -t6=t4;{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k8667 in chicken.irregex#chunker-next-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8669(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8669,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8682,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:389: g990 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k8680 in k8667 in chicken.irregex#chunker-next-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8682(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_8682,c,av);} -a=C_alloc(4); -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8689,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:389: g992 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8687 in k8680 in k8667 in chicken.irregex#chunker-next-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8689(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8689,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_string_ref(((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a8727 */ -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=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_8728,c,av);} -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(C_i_not(t3))){ -/* irregex-core.scm:404: g1009 */ -t4=C_i_vector_ref(((C_word*)t0)[3],C_fix(0));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* a8754 */ -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=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,2)))){ -C_save_and_reclaim((void *)f_8755,c,av);} -a=C_alloc(7); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -if(C_truep(t3)){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* irregex-core.scm:412: g1020 */ -t4=C_i_vector_ref(((C_word*)t0)[4],C_fix(3));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} -else{ -t4=C_i_vector_ref(((C_word*)t0)[4],C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8794,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:413: g1016 */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* k8785 in k8792 in a8754 */ -static void C_ccall f_8787(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8787,c,av);} -if(C_truep(C_i_not(t1))){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* irregex-core.scm:412: g1020 */ -t2=C_i_vector_ref(((C_word*)t0)[4],C_fix(3));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* k8792 in a8754 */ -static void C_ccall f_8794(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_8794,c,av);} -a=C_alloc(6); -if(C_truep(C_i_not(t1))){ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(0)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8787,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); -/* irregex-core.scm:414: g1018 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* irregex-core.scm:412: g1020 */ -t2=C_i_vector_ref(((C_word*)t0)[2],C_fix(3));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* chicken.irregex#string-scan-char in k7753 in k7522 in k7519 */ -static void C_ccall f_8809(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *a; -if(c<4) C_bad_min_argc_2(c,4,t0); -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){ -C_save_and_reclaim((void*)f_8809,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+9); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -t5=C_i_string_length(t2); -t6=C_i_pairp(t4); -t7=(C_truep(t6)?C_get_rest_arg(c,4,av,4,t0):C_fix(0)); -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_8822,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t9,a[6]=((C_word)li27),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_8822(t11,t1,t7);} - -/* scan in chicken.irregex#string-scan-char in k7753 in k7522 in k7519 */ -static void f_8822(C_word t0,C_word t1,C_word t2){ -C_word 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_8822,3,t0,t1,t2);} -a=C_alloc(5); -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_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[3],t2); -t5=C_eqp(((C_word*)t0)[4],t4); -if(C_truep(t5)){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:446: scan */ -t8=t1; -t9=t6; -t1=t8; -t2=t9; -goto loop;}}} - -/* scan in chicken.irregex#string-parse-hex-escape in k7753 in k7522 in k7519 */ -static void f_8865(C_word t0,C_word t1,C_word t2){ -C_word 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_8865,3,t0,t1,t2);} -a=C_alloc(5); -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_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[3],t2); -t5=C_eqp(C_make_character(125),t4); -if(C_truep(t5)){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:454: scan */ -t8=t1; -t9=t6; -t1=t8; -t2=t9; -goto loop;}}} - -/* scan in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_8922(C_word t0,C_word t1,C_word t2){ -C_word 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_8922,3,t0,t1,t2);} -a=C_alloc(5); -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_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[3],t2); -t5=C_u_i_char_numericp(t4); -if(C_truep(C_i_not(t5))){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:461: scan */ -t8=t1; -t9=t6; -t1=t8; -t2=t9; -goto loop;}}} - -/* lp in k12191 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_8960(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(23,0,4)))){ -C_save_and_reclaim_args((void *)trf_8960,5,t0,t1,t2,t3,t4);} -a=C_alloc(23); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8963,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t2,a[6]=((C_word)li84),tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[3]))){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8984,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:467: collect */ -t7=t5; -f_8963(t7,t6);} -else{ -t6=C_i_string_ref(((C_word*)t0)[2],t2); -t7=C_eqp(C_make_character(44),t6); -if(C_truep(t7)){ -t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9003,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t8,a[5]=t9,tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:468: collect */ -t11=t5; -f_8963(t11,t10);} -else{ -t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:469: lp */ -t12=t1; -t13=t8; -t14=t3; -t15=t4; -t1=t12; -t2=t13; -t3=t14; -t4=t15; -goto loop;}}} - -/* collect in lp in k12191 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void f_8963(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_8963,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8971,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:466: scheme#substring */ -t3=*((C_word*)lf[46]+1);{ -C_word av2[5]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k8969 in collect in lp in k12191 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_8971(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[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_8971,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8982 in lp in k12191 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_8984(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8984,c,av);} -/* irregex-core.scm:467: ##sys#fast-reverse */ -t2=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k9001 in lp in k12191 in k12063 in k12047 in k12038 in lp in k10470 in k10464 in chicken.irregex#string->sre in k7753 in k7522 in k7519 */ -static void C_ccall f_9003(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9003,c,av);} -/* irregex-core.scm:468: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8960(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* doloop1102 in lp in k9122 in k9106 in chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -static void f_9075(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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,3)))){ -C_save_and_reclaim_args((void *)trf_9075,4,t0,t1,t2,t3);} -a=C_alloc(10); -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=C_i_string_ref(((C_word*)t0)[3],t2); -t5=C_i_string_set(((C_word*)t0)[4],t3,t4); -t6=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t7=C_a_i_fixnum_plus(&a,2,t3,C_fix(1)); -t9=t1; -t10=t6; -t11=t7; -t1=t9; -t2=t10; -t3=t11; -goto loop;}} - -/* chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -static void f_9100(C_word t1,C_word t2){ -C_word tmp; -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_9100,2,t1,t2);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9108,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9110,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp); -/* irregex-core.scm:493: fold */ -f_9377(t3,t4,C_fix(0),t2);} - -/* k9106 in chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -static void C_ccall f_9108(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_9108,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9124,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:497: scheme#make-string */ -t3=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* a9109 in chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -static void C_ccall f_9110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_9110,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_plus(C_i_string_length(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k9122 in k9106 in chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -static void C_ccall f_9124(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -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_9124,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9127,a[2]=((C_word*)t0)[2],a[3]=t1,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_9129,a[2]=t4,a[3]=t1,a[4]=((C_word)li30),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_9129(t6,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k9125 in k9122 in k9106 in chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -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; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_9127,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* lp in k9122 in k9106 in chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -static void f_9129(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(15,0,4)))){ -C_save_and_reclaim_args((void *)trf_9129,4,t0,t1,t2,t3);} -a=C_alloc(15); -if(C_truep(C_i_pairp(t3))){ -t4=C_u_i_car(t3); -t5=C_i_string_length(t4); -t6=C_fixnum_difference(t2,t5); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9146,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,a[5]=t3,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|6,a[1]=(C_word)f_9075,a[2]=t5,a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t9,a[6]=((C_word)li29),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_9075(t11,t7,C_fix(0),t6);} -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);}}} - -/* k9144 in lp in k9122 in k9106 in chicken.irregex#string-cat-reverse in k7753 in k7522 in k7519 */ -static void C_ccall f_9146(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9146,c,av);} -/* irregex-core.scm:504: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9129(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[5]));} - -/* chicken.irregex#zero-to in k7753 in k7522 in k7519 */ -static void f_9153(C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_9153,2,t1,t2);} -a=C_alloc(6); -if(C_truep(C_fixnum_less_or_equal_p(t2,C_fix(0)))){ -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_difference(t2,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_9169,a[2]=t5,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_9169(t7,t1,t3,C_SCHEME_END_OF_LIST);}} - -/* lp in chicken.irregex#zero-to in k7753 in k7522 in k7519 */ -static void f_9169(C_word t0,C_word t1,C_word t2,C_word 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: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(3,0,3)))){ -C_save_and_reclaim_args((void *)trf_9169,4,t0,t1,t2,t3);} -a=C_alloc(3); -if(C_truep(C_i_zerop(t2))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,C_fix(0),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fixnum_difference(t2,C_fix(1)); -t5=C_a_i_cons(&a,2,t2,t3); -/* irregex-core.scm:515: lp */ -t7=t1; -t8=t4; -t9=t5; -t1=t7; -t2=t8; -t3=t9; -goto loop;}} - -/* chicken.irregex#find in k7753 in k7522 in k7519 */ -static void f_9190(C_word 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_9190,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_9196,a[2]=t5,a[3]=t2,a[4]=((C_word)li35),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_9196(t7,t1,t3);} - -/* lp in chicken.irregex#find in k7753 in k7522 in k7519 */ -static void f_9196(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_9196,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_9209,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:522: pred */ -t4=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k9207 in lp in chicken.irregex#find in k7753 in k7522 in k7519 */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9209,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_u_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* irregex-core.scm:523: lp */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_9196(t2,((C_word*)t0)[2],C_u_i_cdr(((C_word*)t0)[3]));}} - -/* chicken.irregex#last in k7753 in k7522 in k7519 */ -static void f_9251(C_word t1,C_word t2){ -C_word tmp; -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_9251,2,t1,t2);} -a=C_alloc(3); -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -/* irregex-core.scm:533: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[61]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9266,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=( - f_9266(t2) -); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* lp in chicken.irregex#last in k7753 in k7522 in k7519 */ -static C_word f_9266(C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_stack_overflow_check; -loop:{} -t2=C_i_cdr(t1); -if(C_truep(C_i_pairp(t2))){ -t4=C_u_i_cdr(t1); -t1=t4; -goto loop;} -else{ -return(C_u_i_car(t1));}} - -/* chicken.irregex#any in k7753 in k7522 in k7519 */ -static void f_9289(C_word t1,C_word t2,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_9289,3,t1,t2,t3);} -a=C_alloc(7); -if(C_truep(C_i_pairp(t3))){ -t4=C_u_i_car(t3); -t5=C_u_i_cdr(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|4,a[1]=(C_word)f_9305,a[2]=t2,a[3]=t7,a[4]=((C_word)li39),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_9305(t9,t1,t4,t5);} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* lp in chicken.irregex#any in k7753 in k7522 in k7519 */ -static void f_9305(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_9305,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t3))){ -/* irregex-core.scm:543: 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_9318,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:544: 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);}}} - -/* k9316 in lp in chicken.irregex#any in k7753 in k7522 in k7519 */ -static void C_ccall f_9318(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9318,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* irregex-core.scm:544: lp */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_9305(t2,((C_word*)t0)[2],C_i_car(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[4]));}} - -/* chicken.irregex#every in k7753 in k7522 in k7519 */ -static void f_9332(C_word t1,C_word t2,C_word t3){ -C_word 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_9332,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=C_u_i_cdr(t3); -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_9350,a[2]=t2,a[3]=t8,a[4]=((C_word)li41),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_9350(t10,t1,t5,t6);}} - -/* lp in chicken.irregex#every in k7753 in k7522 in k7519 */ -static void f_9350(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_9350,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t3))){ -/* irregex-core.scm:550: 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_9366,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:551: 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);}}} - -/* k9364 in lp in chicken.irregex#every in k7753 in k7522 in k7519 */ -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(0,c,3)))){ -C_save_and_reclaim((void *)f_9366,c,av);} -if(C_truep(t1)){ -/* irregex-core.scm:551: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9350(t2,((C_word*)t0)[3],C_i_car(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.irregex#fold in k7753 in k7522 in k7519 */ -static void f_9377(C_word 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_9377,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_9383,a[2]=t6,a[3]=t2,a[4]=((C_word)li43),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_9383(t8,t1,t4,t3);} - -/* lp in chicken.irregex#fold in k7753 in k7522 in k7519 */ -static void f_9383(C_word 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(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_9383,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]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9401,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:557: kons */ -t6=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_u_i_car(t2); -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k9399 in lp in chicken.irregex#fold in k7753 in k7522 in k7519 */ -static void C_ccall f_9401(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9401,c,av);} -/* irregex-core.scm:557: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9383(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* chicken.irregex#flag-join in k7753 in k7522 in k7519 */ -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=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_9707,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_fixnum_or(t2,t3):t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.irregex#flag-clear in k7753 in k7522 in k7519 */ -static void C_ccall f_9716(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_9716,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_and(t2,C_fixnum_not(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.irregex#with-read-from-string in k7753 in k7522 in k7519 */ -static void f_9734(C_word 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_9734,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_9741,a[2]=t6,a[3]=t2,a[4]=t8,a[5]=((C_word)li59),tmp=(C_word)a,a+=6,tmp)); -t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10306,a[2]=t2,a[3]=t4,a[4]=((C_word)li60),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:723: read */ -t13=((C_word*)t8)[1]; -f_9741(t13,t1,t3,t12);} - -/* f_9741 in chicken.irregex#with-read-from-string in k7753 in k7522 in k7519 */ -static void f_9741(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word t36; -C_word t37; -C_word t38; -C_word t39; -C_word t40; -C_word t41; -C_word t42; -C_word t43; -C_word *a; -loop: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(19,0,5)))){ -C_save_and_reclaim_args((void *)trf_9741,4,t0,t1,t2,t3);} -a=C_alloc(19); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]))){ -/* irregex-core.scm:640: chicken.base#error */ -t4=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[69]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[3],t2); -switch(t4){ -case C_make_character(40): -t5=C_a_i_fixnum_plus(&a,2,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|6,a[1]=(C_word)f_9768,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t7,a[6]=((C_word)li50),tmp=(C_word)a,a+=7,tmp)); -t9=((C_word*)t7)[1]; -f_9768(t9,t1,t5,C_SCHEME_END_OF_LIST); -case C_make_character(41): -t5=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:664: k */ -t6=t3;{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[67]; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);} -case C_make_character(59): -t5=C_a_i_fixnum_plus(&a,2,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|7,a[1]=(C_word)f_9882,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t7,a[7]=((C_word)li51),tmp=(C_word)a,a+=8,tmp)); -t9=((C_word*)t7)[1]; -f_9882(t9,t1,t5); -default: -t5=C_eqp(t4,C_make_character(39)); -t6=(C_truep(t5)?t5:C_eqp(t4,C_make_character(96))); -if(C_truep(t6)){ -t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9931,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=t3,a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp); -/* irregex-core.scm:671: read */ -t41=t1; -t42=t7; -t43=t8; -t1=t41; -t2=t42; -t3=t43; -goto loop;} -else{ -switch(t4){ -case C_make_character(44): -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9959,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -if(C_truep(C_fixnum_lessp(t8,((C_word*)((C_word*)t0)[2])[1]))){ -t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t10=t7; -f_9959(t10,C_eqp(C_make_character(64),C_i_string_ref(((C_word*)t0)[3],t9)));} -else{ -t9=t7; -f_9959(t9,C_SCHEME_FALSE);} -case C_make_character(34): -t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t8=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -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_10016,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t10,a[6]=((C_word)li55),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_10016(t12,t1,t7,t8,C_SCHEME_END_OF_LIST); -case C_make_character(35): -t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t8=C_i_string_ref(((C_word*)t0)[3],t7); -switch(t8){ -case C_make_character(59): -t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10117,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word)li56),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:693: read */ -t41=t1; -t42=t9; -t43=t10; -t1=t41; -t2=t42; -t3=t43; -goto loop; -case C_make_character(92): -t9=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10135,a[2]=t3,a[3]=((C_word)li57),tmp=(C_word)a,a+=4,tmp); -/* irregex-core.scm:695: read */ -t41=t1; -t42=t9; -t43=t10; -t1=t41; -t2=t42; -t3=t43; -goto loop; -default: -t9=C_eqp(t8,C_make_character(116)); -t10=(C_truep(t9)?t9:C_eqp(t8,C_make_character(102))); -if(C_truep(t10)){ -t11=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -t12=C_i_string_ref(((C_word*)t0)[3],t11); -t13=C_eqp(C_make_character(116),t12); -t14=C_a_i_fixnum_plus(&a,2,t2,C_fix(2)); -/* irregex-core.scm:706: k */ -t15=t3;{ -C_word av2[4]; -av2[0]=t15; -av2[1]=t1; -av2[2]=t13; -av2[3]=t14; -((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} -else{ -/* irregex-core.scm:708: chicken.base#error */ -t11=*((C_word*)lf[30]+1);{ -C_word av2[4]; -av2[0]=t11; -av2[1]=t1; -av2[2]=lf[84]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}}} -default: -if(C_truep(C_u_i_char_whitespacep(C_i_string_ref(((C_word*)t0)[3],t2)))){ -t7=C_a_i_fixnum_plus(&a,2,t2,C_fix(1)); -/* irregex-core.scm:712: read */ -t41=t1; -t42=t7; -t43=t3; -t1=t41; -t2=t42; -t3=t43; -goto loop;} -else{ -t7=C_a_i_fixnum_plus(&a,2,t2,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_10235,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t9,a[7]=((C_word)li58),tmp=(C_word)a,a+=8,tmp)); -t11=((C_word*)t9)[1]; -f_10235(t11,t1,t7);}}}}}} - -/* lp */ -static void f_9768(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_9768,4,t0,t1,t2,t3);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9774,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)li49),tmp=(C_word)a,a+=8,tmp); -/* irregex-core.scm:645: read */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_9741(t5,t1,t2,t4);} - -/* a9773 in lp */ -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=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_9774,c,av);} -a=C_alloc(7); -t4=C_eqp(t2,lf[67]); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9788,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:650: ##sys#fast-reverse */ -t6=*((C_word*)lf[70]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=C_eqp(t2,lf[71]); -if(C_truep(t5)){ -if(C_truep(C_i_nullp(((C_word*)t0)[3]))){ -/* irregex-core.scm:653: chicken.base#error */ -t6=*((C_word*)lf[30]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[72]; -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_9808,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)li48),tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:654: read */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_9741(t7,t1,t3,t6);}} -else{ -t6=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -/* irregex-core.scm:662: lp */ -t7=((C_word*)((C_word*)t0)[6])[1]; -f_9768(t7,t1,t3,t6);}}} - -/* k9786 in a9773 in lp */ -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 *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9788,c,av);} -/* irregex-core.scm:650: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a9807 in a9773 in lp */ -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 *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_9808,c,av);} -a=C_alloc(7); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9814,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)li47),tmp=(C_word)a,a+=7,tmp); -/* irregex-core.scm:655: read */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_9741(t5,t1,t3,t4);} - -/* a9813 in a9807 in a9773 in lp */ -static void C_ccall f_9814(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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(10,c,3)))){ -C_save_and_reclaim((void *)f_9814,c,av);} -a=C_alloc(10); -t4=C_eqp(t2,lf[67]); -if(C_truep(C_i_not(t4))){ -/* irregex-core.scm:657: chicken.base#error */ -t5=*((C_word*)lf[30]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[73]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9831,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9835,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:658: ##sys#fast-reverse */ -t7=*((C_word*)lf[70]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=C_i_cdr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} - -/* k9829 in a9813 in a9807 in a9773 in lp */ -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; -C_word *a; -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9831,c,av);} -/* irregex-core.scm:658: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k9833 in a9813 in a9807 in a9773 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; -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_9835,c,av);} -a=C_alloc(3); -t2=C_u_i_car(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -/* irregex-core.scm:658: scheme#append */ -t4=*((C_word*)lf[74]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[4]; -av2[2]=t1; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* skip */ -static void f_9882(C_word t0,C_word 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: -C_check_for_interrupt; -if(C_unlikely(!C_demand(C_calculate_demand(0,0,3)))){ -C_save_and_reclaim_args((void *)trf_9882,3,t0,t1,t2);} -t3=C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]); -t4=(C_truep(t3)?t3:C_eqp(C_make_character(10),C_i_string_ref(((C_word*)t0)[3],t2))); -if(C_truep(t4)){ -/* irregex-core.scm:668: read */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_9741(t5,t1,C_fixnum_plus(t2,C_fix(1)),((C_word*)t0)[5]);} -else{ -/* irregex-core.scm:669: skip */ -t6=t1; -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* a9930 */ -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; -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_9931,c,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[75]:lf[76]); -t7=C_a_i_list2(&a,2,t6,t2); -/* irregex-core.scm:674: k */ -t8=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t1; -av2[2]=t7; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} - -/* k9957 */ -static void f_9959(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,4)))){ -C_save_and_reclaim_args((void *)trf_9959,2,t0,t1);} -a=C_alloc(10); -t2=(C_truep(t1)?lf[77]:lf[78]); -t3=(C_truep(t1)?C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(2)):C_a_i_fixnum_plus(&a,2,((C_word*)t0)[2],C_fix(1))); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9970,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li53),tmp=(C_word)a,a+=5,tmp); -/* irregex-core.scm:679: read */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_9741(t5,((C_word*)t0)[5],t3,t4);} - -/* a9969 in k9957 */ -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=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_9970,c,av);} -a=C_alloc(6); -t4=C_a_i_list2(&a,2,((C_word*)t0)[2],t2); -/* irregex-core.scm:679: k */ -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* toplevel */ -static 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 t4; -C_word t5; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("irregex")); -C_check_nursery_minimum(C_calculate_demand(19,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void*)C_irregex_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(2387))){ -C_save(t1); -C_rereclaim2(2387*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(19); -C_initialize_lf(lf,503); -lf[0]=C_h_intern(&lf[0],7, C_text("irregex")); -lf[1]=C_h_intern(&lf[1],16, C_text("chicken.irregex#")); -lf[3]=C_h_intern(&lf[3],19, C_text("scheme#vector-copy!")); -lf[4]=C_h_intern(&lf[4],18, C_text("scheme#make-vector")); -lf[5]=C_h_intern(&lf[5],24, C_text("chicken.irregex#irregex?")); -lf[6]=C_h_intern(&lf[6],6, C_text("regexp")); -lf[7]=C_h_intern(&lf[7],38, C_text("chicken.irregex#irregex-num-submatches")); -lf[8]=C_h_intern(&lf[8],22, C_text("irregex-num-submatches")); -lf[9]=C_h_intern(&lf[9],29, C_text("chicken.irregex#irregex-names")); -lf[10]=C_h_intern(&lf[10],13, C_text("irregex-names")); -lf[12]=C_h_intern(&lf[12],12, C_text("regexp-match")); -lf[14]=C_h_intern(&lf[14],19, C_text("scheme#vector-fill!")); -lf[16]=C_h_intern(&lf[16],35, C_text("chicken.irregex#irregex-match-data?")); -lf[17]=C_h_intern(&lf[17],44, C_text("chicken.irregex#irregex-match-num-submatches")); -lf[18]=C_h_intern(&lf[18],28, C_text("irregex-match-num-submatches")); -lf[19]=C_h_intern(&lf[19],35, C_text("chicken.irregex#irregex-match-names")); -lf[20]=C_h_intern(&lf[20],19, C_text("irregex-match-names")); -lf[21]=C_h_intern(&lf[21],41, C_text("chicken.irregex#irregex-match-start-chunk")); -lf[23]=C_h_intern(&lf[23],25, C_text("irregex-match-start-chunk")); -lf[24]=C_h_intern(&lf[24],41, C_text("chicken.irregex#irregex-match-start-index")); -lf[25]=C_h_intern(&lf[25],25, C_text("irregex-match-start-index")); -lf[26]=C_h_intern(&lf[26],39, C_text("chicken.irregex#irregex-match-end-chunk")); -lf[27]=C_h_intern(&lf[27],23, C_text("irregex-match-end-chunk")); -lf[28]=C_h_intern(&lf[28],39, C_text("chicken.irregex#irregex-match-end-index")); -lf[29]=C_h_intern(&lf[29],23, C_text("irregex-match-end-index")); -lf[30]=C_h_intern(&lf[30],18, C_text("chicken.base#error")); -lf[31]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\156\157\164\040\155\141\164\143\150\040\144\141\164\141\000")); -lf[32]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\164\157\157\040\155\141\156\171\040\141\162\147\165\155\145\156\164\163\000")); -lf[33]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\156\157\164\040\141\040\166\141\154\151\144\040\151\156\144\145\170\000")); -lf[34]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[35]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\165\156\153\156\157\167\156\040\155\141\164\143\150\040\156\141\155\145\000")); -lf[36]=C_h_intern(&lf[36],42, C_text("chicken.irregex#irregex-match-valid-index?")); -lf[37]=C_h_intern(&lf[37],26, C_text("irregex-match-valid-index?")); -lf[38]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[39]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\156\157\164\040\155\141\164\143\150\040\144\141\164\141\000")); -lf[40]=C_h_intern(&lf[40],39, C_text("chicken.irregex#irregex-match-substring")); -lf[41]=C_h_intern(&lf[41],23, C_text("irregex-match-substring")); -lf[42]=C_h_intern(&lf[42],38, C_text("chicken.irregex#irregex-match-subchunk")); -lf[43]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\164\150\151\163\040\143\150\165\156\153\040\164\171\160\145\040\144\157\145\163\040\156\157\164\040\163\165\160\160\157\162\164\040\155\141\164\143\150\040\163\165\142\143\150\165\156\153\163\000")); -lf[44]=C_h_intern(&lf[44],22, C_text("irregex-match-subchunk")); -lf[45]=C_h_intern(&lf[45],36, C_text("chicken.irregex#make-irregex-chunker")); -lf[46]=C_h_intern(&lf[46],16, C_text("scheme#substring")); -lf[48]=C_h_intern(&lf[48],20, C_text("make-irregex-chunker")); -lf[49]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\145\170\160\145\143\164\145\144\040\141\040\160\162\157\143\144\165\162\145\000")); -lf[52]=C_h_intern(&lf[52],1, C_text("/")); -lf[56]=C_h_intern(&lf[56],18, C_text("scheme#make-string")); -lf[61]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\143\141\156\047\164\040\164\141\153\145\040\154\141\163\164\040\157\146\040\145\155\160\164\171\040\154\151\163\164\000")); -lf[66]=C_h_intern(&lf[66],5, C_text("close")); -lf[69]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\165\156\164\145\162\155\151\156\141\164\145\144\040\145\155\142\145\144\144\145\144\040\123\122\105\000")); -lf[70]=C_h_intern(&lf[70],18, C_text("##sys#fast-reverse")); -lf[71]=C_h_intern(&lf[71],1, C_text(".")); -lf[72]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\142\141\144\040\144\157\164\164\145\144\040\146\157\162\155\000")); -lf[73]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\142\141\144\040\144\157\164\164\145\144\040\146\157\162\155\000")); -lf[74]=C_h_intern(&lf[74],13, C_text("scheme#append")); -lf[75]=C_h_intern(&lf[75],5, C_text("quote")); -lf[76]=C_h_intern(&lf[76],10, C_text("quasiquote")); -lf[77]=C_h_intern(&lf[77],15, C_text("uquote-splicing")); -lf[78]=C_h_intern(&lf[78],7, C_text("unquote")); -lf[79]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\165\156\164\145\162\155\151\156\141\164\145\144\040\163\164\162\151\156\147\040\151\156\040\145\155\142\145\144\144\145\144\040\123\122\105\000")); -lf[80]=C_h_intern(&lf[80],5, C_text("space")); -lf[81]=C_h_intern(&lf[81],7, C_text("newline")); -lf[82]=C_h_intern(&lf[82],20, C_text("##sys#number->string")); -lf[83]=C_h_intern(&lf[83],21, C_text("scheme#symbol->string")); -lf[84]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\043\040\163\171\156\164\141\170\040\151\156\040\163\151\155\160\154\151\146\151\145\144\040\123\122\105\000")); -lf[85]=C_h_intern(&lf[85],21, C_text("scheme#string->symbol")); -lf[86]=C_h_intern(&lf[86],21, C_text("scheme#string->number")); -lf[87]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\073\376\003\000\000\002\376\377\012\000\000\050\376\003\000\000\002\376\377\012\000\000\051\376\003\000\000\002\376\377\012\000\000\042\376\003\000\000\002\376\377\012\000\000\043\376\003\000\000\002\376\377\012\000\000\134\376\377\016")); -lf[88]=C_h_intern(&lf[88],11, C_text("close-token")); -lf[89]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\165\156\145\170\160\145\143\164\145\144\040\047\051\047\040\151\156\040\123\122\105\000")); -lf[91]=C_h_intern(&lf[91],1, C_text("i")); -lf[92]=C_h_intern(&lf[92],1, C_text("m")); -lf[93]=C_h_intern(&lf[93],10, C_text("multi-line")); -lf[94]=C_h_intern(&lf[94],1, C_text("s")); -lf[95]=C_h_intern(&lf[95],11, C_text("single-line")); -lf[96]=C_h_intern(&lf[96],1, C_text("x")); -lf[97]=C_h_intern(&lf[97],12, C_text("ignore-space")); -lf[98]=C_h_intern(&lf[98],1, C_text("u")); -lf[99]=C_h_intern(&lf[99],4, C_text("utf8")); -lf[100]=C_h_intern(&lf[100],2, C_text("ci")); -lf[101]=C_h_intern(&lf[101],16, C_text("case-insensitive")); -lf[102]=C_h_intern(&lf[102],33, C_text("chicken.irregex#maybe-string->sre")); -lf[103]=C_h_intern(&lf[103],27, C_text("chicken.irregex#string->sre")); -lf[104]=C_h_intern(&lf[104],2, C_text("or")); -lf[106]=C_h_intern(&lf[106],18, C_text("##sys#string->list")); -lf[109]=C_h_intern(&lf[109],8, C_text("submatch")); -lf[110]=C_h_intern(&lf[110],2, C_text("if")); -lf[111]=C_h_intern(&lf[111],7, C_text("epsilon")); -lf[112]=C_h_intern(&lf[112],10, C_text("look-ahead")); -lf[113]=C_h_intern(&lf[113],14, C_text("neg-look-ahead")); -lf[114]=C_h_intern(&lf[114],11, C_text("look-behind")); -lf[115]=C_h_intern(&lf[115],15, C_text("neg-look-behind")); -lf[116]=C_h_intern(&lf[116],3, C_text("seq")); -lf[117]=C_h_intern(&lf[117],13, C_text("scheme#cddadr")); -lf[118]=C_h_intern(&lf[118],13, C_text("scheme#cadadr")); -lf[119]=C_h_intern(&lf[119],12, C_text("##sys#append")); -lf[120]=C_h_intern(&lf[120],2, C_text("=>")); -lf[121]=C_h_intern(&lf[121],14, C_text("submatch-named")); -lf[122]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\075\076\376\003\000\000\002\376\001\000\000\016\001\163\165\142\155\141\164\143\150\055\156\141\155\145\144\376\377\016")); -lf[123]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\141\164\157\155\151\143\376\003\000\000\002\376\001\000\000\002\001\151\146\376\003\000\000\002\376\001\000\000\012\001\154\157\157\153\055\141\150\145\141\144\376\003\000\000\002\376\001\000\000\016\001\156\145\147\055\154\157\157\153\055\141\150\145\141\144\376\003\000\000\002\376\001\000\000\013\001\154\157\157\153\055\142\145\150\151\156\144\376\003\000\000\002\376\001\000\000\017\001\156\145\147\055\154\157\157\153\055\142\145\150\151\156\144\376\003\000\000\002\376\001\000\000\002\001\075\076\376\003\000\000\002\376\001\000\000\016\001\163\165\142\155\141\164\143\150\055\156\141\155\145\144\376\003\000\000\002\376\001\000\000\006\001\167\057\165\164\146\070\376\003\000\000\002\376\001\000\000\010\001\167\057\156\157\165\164\146\070\376\377\016")); -lf[124]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\165\156\164\145\162\155\151\156\141\164\145\144\040\160\141\162\145\156\164\150\145\163\151\163\040\151\156\040\162\145\147\145\170\160\000")); -lf[125]=C_h_intern(&lf[125],3, C_text("any")); -lf[126]=C_h_intern(&lf[126],4, C_text("nonl")); -lf[127]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\077\040\143\141\156\047\164\040\146\157\154\154\157\167\040\145\155\160\164\171\040\160\141\164\164\145\162\156\000")); -lf[128]=C_h_intern(&lf[128],1, C_text("*")); -lf[129]=C_h_intern(&lf[129],2, C_text("*?")); -lf[130]=C_h_intern(&lf[130],1, C_text("+")); -lf[131]=C_h_intern(&lf[131],3, C_text("**?")); -lf[132]=C_h_intern(&lf[132],1, C_text("?")); -lf[133]=C_h_intern(&lf[133],2, C_text("??")); -lf[134]=C_h_intern(&lf[134],2, C_text("**")); -lf[135]=C_h_intern(&lf[135],1, C_text("=")); -lf[136]=C_h_intern(&lf[136],2, C_text(">=")); -lf[138]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\144\165\160\154\151\143\141\164\145\040\162\145\160\145\164\151\164\151\157\156\040\050\145\056\147\056\040\052\052\051\040\151\156\040\160\141\164\164\145\162\156\000")); -lf[139]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\143\141\156\047\164\040\162\145\160\145\141\164\040\145\155\160\164\171\040\160\141\164\164\145\162\156\040\050\145\056\147\056\040\050\051\052\051\000")); -lf[141]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\165\156\164\145\162\155\151\156\141\164\145\144\040\160\141\162\145\156\164\150\145\163\151\163\040\151\156\040\162\145\147\145\170\160\000")); -lf[142]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\077\376\003\000\000\002\376\377\012\000\000\052\376\377\016")); -lf[143]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\165\156\164\145\162\155\151\156\141\164\145\144\040\160\141\162\145\156\164\150\145\163\151\163\040\151\156\040\162\145\147\145\170\160\000")); -lf[144]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\165\156\164\145\162\155\151\156\141\164\145\144\040\050\052\047\056\056\056\051\040\123\122\105\040\145\163\143\141\160\145\000")); -lf[145]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\142\141\144\040\162\145\147\145\170\160\040\163\171\156\164\141\170\072\040\050\052\106\117\117\051\040\156\157\164\040\163\165\160\160\157\162\164\145\144\000")); -lf[146]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\012\001\154\157\157\153\055\141\150\145\141\144\376\377\016")); -lf[147]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001\156\145\147\055\154\157\157\153\055\141\150\145\141\144\376\377\016")); -lf[148]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\165\156\164\145\162\155\151\156\141\164\145\144\040\160\141\162\145\156\164\150\145\163\151\163\040\151\156\040\162\145\147\145\170\160\000")); -lf[149]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001\154\157\157\153\055\142\145\150\151\156\144\376\377\016")); -lf[150]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\017\001\156\145\147\055\154\157\157\153\055\142\145\150\151\156\144\376\377\016")); -lf[151]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\151\156\166\141\154\151\144\040\050\077\074\040\163\145\161\165\145\156\143\145\000")); -lf[152]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\141\164\157\155\151\143\376\377\016")); -lf[153]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\165\156\164\145\162\155\151\156\141\164\145\144\040\160\141\162\145\156\164\150\145\163\151\163\040\151\156\040\162\145\147\145\170\160\000")); -lf[154]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\151\156\166\141\154\151\144\040\143\157\156\144\151\164\151\157\156\141\154\040\162\145\146\145\162\145\156\143\145\000")); -lf[155]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\151\146\376\377\016")); -lf[156]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\165\156\163\165\160\160\157\162\164\145\144\040\120\145\162\154\055\163\164\171\154\145\040\143\154\165\163\164\145\162\000")); -lf[157]=C_h_intern(&lf[157],6, C_text("w/utf8")); -lf[158]=C_h_intern(&lf[158],8, C_text("w/noutf8")); -lf[159]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\143\157\155\160\154\145\164\145\040\143\154\165\163\164\145\162\000")); -lf[160]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\165\156\153\156\157\167\156\040\162\145\147\145\170\040\143\154\165\163\164\145\162\040\155\157\144\151\146\151\145\162\000")); -lf[161]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\164\157\157\040\155\141\156\171\040\051\047\163\040\151\156\040\162\145\147\145\170\160\000")); -lf[162]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\143\157\155\160\154\145\164\145\040\143\150\141\162\040\163\145\164\000")); -lf[164]=C_h_intern(&lf[164],19, C_text("scheme#vector->list")); -lf[167]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\142\141\144\040\143\150\141\162\055\163\145\164\000")); -lf[168]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\145\162\164\145\144\040\162\141\156\147\145\040\151\156\040\143\150\141\162\055\163\145\164\000")); -lf[171]=C_decode_literal(C_heaptop,C_text("\376\000\000\001\000\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\001\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\002\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\003\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\004\376\377\001\000\000\000\005\376\377\001\000\000\000\005\376\377\001\000\000\000\005\376\377\001\000\000\000\005\376\377\001\000\000\000\006\376\377\001\000\000\000\006\376\377\001\000\000\000\000\376\377\001\000\000\000\000")); -lf[172]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\143\157\155\160\154\145\164\145\040\143\150\141\162\141\143\164\145\162\040\143\154\141\163\163\000")); -lf[174]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\143\157\154\154\141\164\151\156\147\040\163\145\161\165\145\156\143\145\163\040\156\157\164\040\163\165\160\160\157\162\164\145\144\000")); -lf[175]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\173\040\143\141\156\047\164\040\146\157\154\154\157\167\040\145\155\160\164\171\040\160\141\164\164\145\162\156\000")); -lf[176]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\151\156\166\141\154\151\144\040\173\156\175\040\162\145\160\145\164\151\164\151\157\156\040\163\171\156\164\141\170\000")); -lf[177]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[178]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\143\157\155\160\154\145\164\145\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\000")); -lf[179]=C_h_intern(&lf[179],7, C_text("numeric")); -lf[180]=C_h_intern(&lf[180],1, C_text("~")); -lf[181]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\137\000")); -lf[182]=C_h_intern(&lf[182],12, C_text("alphanumeric")); -lf[183]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\137\000")); -lf[184]=C_h_intern(&lf[184],3, C_text("bow")); -lf[185]=C_h_intern(&lf[185],3, C_text("eow")); -lf[186]=C_h_intern(&lf[186],3, C_text("nwb")); -lf[187]=C_h_intern(&lf[187],3, C_text("bos")); -lf[188]=C_h_intern(&lf[188],3, C_text("eos")); -lf[189]=C_h_intern(&lf[189],5, C_text("reset")); -lf[190]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\074\376\003\000\000\002\376\377\012\000\000\173\376\003\000\000\002\376\377\012\000\000\047\376\377\016")); -lf[191]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\134\153\040\165\163\141\147\145\054\040\145\170\160\145\143\164\145\144\040\134\153\074\056\056\056\076\000")); -lf[192]=C_h_intern(&lf[192],10, C_text("backref-ci")); -lf[193]=C_h_intern(&lf[193],7, C_text("backref")); -lf[194]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\165\156\164\145\162\155\151\156\141\164\145\144\040\156\141\155\145\144\040\142\141\143\153\162\145\146\000")); -lf[195]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\165\156\153\156\157\167\156\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\000")); -lf[196]=C_h_intern(&lf[196],3, C_text("bol")); -lf[197]=C_h_intern(&lf[197],3, C_text("eol")); -lf[198]=C_h_intern(&lf[198],11, C_text("string->sre")); -lf[199]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\145\170\160\145\143\164\145\144\040\141\040\163\164\162\151\156\147\000")); -lf[200]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\143\157\155\160\154\145\164\145\040\150\145\170\040\145\163\143\141\160\145\000")); -lf[201]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\151\156\143\157\155\160\154\145\164\145\040\150\145\170\040\142\162\141\143\145\040\145\163\143\141\160\145\000")); -lf[202]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\142\141\144\040\150\145\170\040\142\162\141\143\145\040\145\163\143\141\160\145\000")); -lf[203]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\143\157\155\160\154\145\164\145\040\150\145\170\040\145\163\143\141\160\145\000")); -lf[204]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\142\141\144\040\150\145\170\040\145\163\143\141\160\145\000")); -lf[206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\165\164\146\070\040\154\145\156\147\164\150\000")); -lf[208]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\165\164\146\070\040\154\145\156\147\164\150\000")); -lf[210]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\165\156\151\143\157\144\145\040\143\157\144\145\160\157\151\156\164\040\157\165\164\040\157\146\040\162\141\156\147\145\072\000")); -lf[212]=C_h_intern(&lf[212],3, C_text("map")); -lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\165\164\146\070\040\154\145\156\147\164\150\000")); -lf[218]=C_h_intern(&lf[218],23, C_text("chicken.irregex#irregex")); -lf[219]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\013\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\006\000\376\377\001\000\000\000\000")); -lf[220]=C_h_intern(&lf[220],31, C_text("chicken.irregex#string->irregex")); -lf[221]=C_h_intern(&lf[221],28, C_text("chicken.irregex#sre->irregex")); -lf[222]=C_h_intern(&lf[222],5, C_text("small")); -lf[223]=C_h_intern(&lf[223],4, C_text("fast")); -lf[226]=C_h_intern(&lf[226],6, C_text("w/case")); -lf[227]=C_h_intern(&lf[227],8, C_text("w/nocase")); -lf[228]=C_h_intern(&lf[228],1, C_text(":")); -lf[229]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\151\156\166\141\154\151\144\040\163\162\145\072\040\145\155\160\164\171\040\052\000")); -lf[230]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\166\141\154\151\144\040\163\162\145\072\040\145\155\160\164\171\040\052\077\000")); -lf[231]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\151\156\166\141\154\151\144\040\163\162\145\072\040\145\155\160\164\171\040\053\000")); -lf[232]=C_h_intern(&lf[232],4, C_text("word")); -lf[233]=C_h_intern(&lf[233],5, C_text("word+")); -lf[234]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\137\000")); -lf[235]=C_h_intern(&lf[235],1, C_text("&")); -lf[236]=C_h_intern(&lf[236],12, C_text("posix-string")); -lf[237]=C_h_intern(&lf[237],10, C_text("scheme#not")); -lf[238]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\003\001\141\156\171\376\377\016")); -lf[239]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\157\163\376\377\016")); -lf[240]=C_h_intern(&lf[240],6, C_text("atomic")); -lf[241]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\165\156\153\156\157\167\156\040\156\141\155\145\144\040\142\141\143\153\162\145\146\040\151\156\040\123\122\105\040\111\106\000")); -lf[242]=C_h_intern(&lf[242],18, C_text("scheme#string-ci=?")); -lf[243]=C_h_intern(&lf[243],15, C_text("scheme#string=?")); -lf[244]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\165\156\153\156\157\167\156\040\142\141\143\153\162\145\146\145\162\145\156\143\145\000")); -lf[245]=C_h_intern(&lf[245],3, C_text("dsm")); -lf[246]=C_h_intern(&lf[246],1, C_text("$")); -lf[247]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\165\156\153\156\157\167\156\040\162\145\147\145\170\160\040\157\160\145\162\141\164\157\162\000")); -lf[248]=C_h_intern(&lf[248],1, C_text("-")); -lf[250]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\165\156\153\156\157\167\156\040\162\145\147\145\170\160\000")); -lf[251]=C_h_intern(&lf[251],16, C_text("scheme#char-ci=?")); -lf[252]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\165\156\153\156\157\167\156\040\162\145\147\145\170\160\000")); -lf[255]=C_h_intern(&lf[255],10, C_text("scheme#max")); -lf[256]=C_h_intern(&lf[256],10, C_text("scheme#min")); -lf[257]=C_h_intern(&lf[257],10, C_text("sre-length")); -lf[258]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\166\141\154\151\144\040\142\141\143\153\162\145\146\145\162\145\156\143\145\000")); -lf[259]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\151\156\166\141\154\151\144\040\146\157\162\167\141\162\144\040\142\141\143\153\162\145\146\145\162\145\156\143\145\000")); -lf[260]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\165\156\153\156\157\167\156\040\142\141\143\153\162\145\146\145\162\145\156\143\145\000")); -lf[261]=C_h_intern(&lf[261],3, C_text(">=?")); -lf[262]=C_h_intern(&lf[262],17, C_text("sre-length-ranges")); -lf[263]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\165\156\153\156\157\167\156\040\163\162\145\040\157\160\145\162\141\164\157\162\000")); -lf[264]=C_h_intern(&lf[264],2, C_text("=?")); -lf[265]=C_h_intern(&lf[265],6, C_text("commit")); -lf[266]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\165\156\153\156\157\167\156\040\163\162\145\000")); -lf[267]=C_h_intern(&lf[267],11, C_text("scheme#cons")); -lf[270]=C_h_intern(&lf[270],9, C_text("backtrack")); -lf[273]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\003\001\141\156\171\376\377\016")); -lf[274]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\004\001\156\157\156\154\376\377\016")); -lf[275]=C_h_intern(&lf[275],8, C_text("utf8-any")); -lf[276]=C_h_intern(&lf[276],9, C_text("utf8-nonl")); -lf[277]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001\145\160\163\151\154\157\156\376\003\000\000\002\376\001\000\000\003\001\142\157\163\376\003\000\000\002\376\001\000\000\003\001\145\157\163\376\003\000\000\002\376\001\000\000\003\001\142\157\154\376\003\000\000\002\376\001\000\000\003\001\145\157\154\376\003\000\000\002\376\001\000\000\003\001\142\157\167\376\003\000\000\002\376\001\000\000\003\001\145\157\167\376\003\000\000\002\376\001\000\000\006\001\143\157\155\155\151\164\376\377\016")); -lf[279]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\052\376\003\000\000\002\376\001\000\000\001\001\053\376\377\016")); -lf[282]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\044\376\003\000\000\002\376\001\000\000\010\001\163\165\142\155\141\164\143\150\376\003\000\000\002\376\001\000\000\002\001\075\076\376\003\000\000\002\376\001\000\000\016\001\163\165\142\155\141\164\143\150\055\156\141\155\145\144\376\377\016")); -lf[283]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\002\001\157\162\376\377\016")); -lf[287]=C_h_intern(&lf[287],30, C_text("chicken.irregex#irregex-search")); -lf[288]=C_h_intern(&lf[288],38, C_text("chicken.irregex#irregex-search/chunked")); -lf[289]=C_h_intern(&lf[289],14, C_text("irregex-search")); -lf[290]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[291]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[292]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[294]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\156\157\164\040\141\156\040\151\156\164\145\147\145\162\000")); -lf[295]=C_h_intern(&lf[295],11, C_text("irregex-dfa")); -lf[298]=C_h_intern(&lf[298],11, C_text("irregex-nfa")); -lf[299]=C_h_intern(&lf[299],29, C_text("chicken.irregex#irregex-match")); -lf[300]=C_h_intern(&lf[300],37, C_text("chicken.irregex#irregex-match/chunked")); -lf[301]=C_h_intern(&lf[301],13, C_text("irregex-match")); -lf[302]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[303]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[304]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[305]=C_h_intern(&lf[305],30, C_text("chicken.irregex#irregex-match?")); -lf[307]=C_h_intern(&lf[307],8, C_text("for-each")); -lf[308]=C_h_intern(&lf[308],10, C_text("alphabetic")); -lf[309]=C_h_intern(&lf[309],5, C_text("alpha")); -lf[310]=C_h_intern(&lf[310],8, C_text("alphanum")); -lf[311]=C_h_intern(&lf[311],5, C_text("alnum")); -lf[312]=C_h_intern(&lf[312],10, C_text("lower-case")); -lf[313]=C_h_intern(&lf[313],5, C_text("lower")); -lf[314]=C_h_intern(&lf[314],10, C_text("upper-case")); -lf[315]=C_h_intern(&lf[315],5, C_text("upper")); -lf[316]=C_h_intern(&lf[316],3, C_text("num")); -lf[317]=C_h_intern(&lf[317],5, C_text("digit")); -lf[318]=C_h_intern(&lf[318],11, C_text("punctuation")); -lf[319]=C_h_intern(&lf[319],5, C_text("punct")); -lf[320]=C_h_intern(&lf[320],7, C_text("graphic")); -lf[321]=C_h_intern(&lf[321],5, C_text("graph")); -lf[322]=C_h_intern(&lf[322],5, C_text("blank")); -lf[323]=C_h_intern(&lf[323],10, C_text("whitespace")); -lf[324]=C_h_intern(&lf[324],5, C_text("white")); -lf[325]=C_h_intern(&lf[325],8, C_text("printing")); -lf[326]=C_h_intern(&lf[326],5, C_text("print")); -lf[327]=C_h_intern(&lf[327],7, C_text("control")); -lf[328]=C_h_intern(&lf[328],5, C_text("cntrl")); -lf[329]=C_h_intern(&lf[329],9, C_text("hex-digit")); -lf[330]=C_h_intern(&lf[330],6, C_text("xdigit")); -lf[331]=C_h_intern(&lf[331],5, C_text("ascii")); -lf[332]=C_h_intern(&lf[332],10, C_text("ascii-nonl")); -lf[333]=C_h_intern(&lf[333],14, C_text("utf8-tail-char")); -lf[334]=C_h_intern(&lf[334],11, C_text("utf8-2-char")); -lf[335]=C_h_intern(&lf[335],11, C_text("utf8-3-char")); -lf[336]=C_h_intern(&lf[336],11, C_text("utf8-4-char")); -lf[337]=C_h_intern(&lf[337],7, C_text("integer")); -lf[338]=C_h_intern(&lf[338],4, C_text("real")); -lf[339]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\041\044\045\046\052\057\072\074\075\076\077\136\137\176\000")); -lf[340]=C_h_intern(&lf[340],14, C_text("symbol-initial")); -lf[341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\053\055\056\100\000")); -lf[342]=C_h_intern(&lf[342],17, C_text("symbol-subsequent")); -lf[343]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\053\055\000")); -lf[344]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[345]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\056\056\000")); -lf[346]=C_h_intern(&lf[346],6, C_text("symbol")); -lf[347]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\073\000")); -lf[348]=C_h_intern(&lf[348],10, C_text("sexp-space")); -lf[349]=C_h_intern(&lf[349],6, C_text("escape")); -lf[350]=C_h_intern(&lf[350],6, C_text("string")); -lf[351]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\061\062\000")); -lf[352]=C_h_intern(&lf[352],10, C_text("ipv4-digit")); -lf[353]=C_h_intern(&lf[353],12, C_text("ipv4-address")); -lf[354]=C_h_intern(&lf[354],12, C_text("ipv6-address")); -lf[355]=C_h_intern(&lf[355],10, C_text("ip-address")); -lf[356]=C_h_intern(&lf[356],11, C_text("domain-atom")); -lf[357]=C_h_intern(&lf[357],6, C_text("domain")); -lf[358]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\141\162\160\141\000")); -lf[359]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\143\157\155\000")); -lf[360]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\147\157\166\000")); -lf[361]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\155\151\154\000")); -lf[362]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\156\145\164\000")); -lf[363]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\157\162\147\000")); -lf[364]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\145\144\165\000")); -lf[365]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\141\145\162\157\000")); -lf[366]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\142\151\172\000")); -lf[367]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\143\157\157\160\000")); -lf[368]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\151\156\146\157\000")); -lf[369]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\155\165\163\145\165\155\000")); -lf[370]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\156\141\155\145\000")); -lf[371]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\160\162\157\000")); -lf[372]=C_h_intern(&lf[372],16, C_text("top-level-domain")); -lf[373]=C_h_intern(&lf[373],13, C_text("domain/common")); -lf[374]=C_h_intern(&lf[374],16, C_text("email-local-part")); -lf[375]=C_h_intern(&lf[375],5, C_text("email")); -lf[376]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\045\000")); -lf[377]=C_h_intern(&lf[377],8, C_text("url-char")); -lf[378]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\045\000")); -lf[379]=C_h_intern(&lf[379],14, C_text("url-final-char")); -lf[380]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\163\000")); -lf[381]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000")); -lf[382]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[383]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\077\000")); -lf[384]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\043\000")); -lf[385]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[386]=C_h_intern(&lf[386],8, C_text("http-url")); -lf[387]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\150\164\164\160\000")); -lf[388]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\072\057\057\000")); -lf[391]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[393]=C_h_intern(&lf[393],12, C_text("scheme#cadar")); -lf[394]=C_h_intern(&lf[394],12, C_text("scheme#cddar")); -lf[395]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001\145\160\163\151\154\157\156\376\377\016")); -lf[396]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\156\157\156\055\160\162\157\143\145\144\165\162\145\040\151\156\040\157\160\040\160\157\163\151\164\151\157\156\000")); -lf[402]=C_h_intern(&lf[402],13, C_text("scheme#caddar")); -lf[407]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\156\157\164\040\141\040\166\141\154\151\144\040\163\162\145\040\143\150\141\162\055\163\145\164\040\157\160\145\162\141\164\157\162\000")); -lf[408]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\156\157\164\040\141\040\166\141\154\151\144\040\163\162\145\040\143\150\141\162\055\163\145\164\000")); -lf[410]=C_h_intern(&lf[410],19, C_text("scheme#list->vector")); -lf[412]=C_h_intern(&lf[412],12, C_text("irregex-fold")); -lf[413]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[414]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[415]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[416]=C_h_intern(&lf[416],28, C_text("chicken.irregex#irregex-fold")); -lf[417]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\156\157\164\040\141\040\160\162\157\143\145\144\165\162\145\000")); -lf[419]=C_h_intern(&lf[419],20, C_text("irregex-fold/chunked")); -lf[420]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\156\157\164\040\141\156\040\151\156\164\145\147\145\162\000")); -lf[421]=C_h_intern(&lf[421],36, C_text("chicken.irregex#irregex-fold/chunked")); -lf[422]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\156\157\164\040\141\040\160\162\157\143\145\144\165\162\145\000")); -lf[423]=C_h_intern(&lf[423],31, C_text("chicken.irregex#irregex-replace")); -lf[425]=C_h_intern(&lf[425],15, C_text("irregex-replace")); -lf[426]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[427]=C_h_intern(&lf[427],35, C_text("chicken.irregex#irregex-replace/all")); -lf[428]=C_h_intern(&lf[428],19, C_text("irregex-replace/all")); -lf[429]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[430]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[431]=C_h_intern(&lf[431],3, C_text("pre")); -lf[432]=C_h_intern(&lf[432],4, C_text("post")); -lf[433]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\165\156\153\156\157\167\156\040\155\141\164\143\150\040\162\145\160\154\141\143\145\155\145\156\164\000")); -lf[434]=C_h_intern(&lf[434],31, C_text("chicken.irregex#irregex-extract")); -lf[435]=C_h_intern(&lf[435],15, C_text("irregex-extract")); -lf[436]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[437]=C_h_intern(&lf[437],29, C_text("chicken.irregex#irregex-split")); -lf[438]=C_h_intern(&lf[438],20, C_text("scheme#string-append")); -lf[439]=C_h_intern(&lf[439],13, C_text("irregex-split")); -lf[440]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[441]=C_h_intern(&lf[441],29, C_text("chicken.irregex#irregex-quote")); -lf[442]=C_h_intern(&lf[442],18, C_text("##sys#list->string")); -lf[443]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\134\174\133\135\050\051\173\175\056\052\053\077\136\044\043\000")); -lf[444]=C_h_intern(&lf[444],27, C_text("chicken.irregex#irregex-opt")); -lf[445]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[446]=C_h_intern(&lf[446],12, C_text("scheme#char?")); -lf[447]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\002\000\000\001\000\376\377\016")); -lf[449]=C_h_intern(&lf[449],24, C_text("scheme#get-output-string")); -lf[450]=C_h_intern(&lf[450],14, C_text("scheme#display")); -lf[451]=C_h_intern(&lf[451],21, C_text("##sys#write-char/port")); -lf[452]=C_h_intern(&lf[452],25, C_text("scheme#open-output-string")); -lf[453]=C_h_intern(&lf[453],27, C_text("chicken.irregex#sre->string")); -lf[454]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[455]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\050\077\072\000")); -lf[456]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[457]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[458]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[459]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000")); -lf[460]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\050\077\074\000")); -lf[461]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\174\000")); -lf[462]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[463]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\050\077\072\000")); -lf[464]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[465]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\050\077\072\000")); -lf[466]=C_h_intern(&lf[466],3, C_text("not")); -lf[467]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\135\000")); -lf[468]=C_h_intern(&lf[468],12, C_text("scheme#cdadr")); -lf[469]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\133\136\000")); -lf[470]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\143\141\156\047\164\040\162\145\160\162\145\163\145\156\164\040\147\145\156\145\162\141\154\040\047\156\157\164\047\040\151\156\040\163\164\162\151\156\147\163\000")); -lf[471]=C_h_intern(&lf[471],4, C_text("cset")); -lf[472]=C_h_intern(&lf[472],12, C_text("scheme#caadr")); -lf[473]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\135\000")); -lf[474]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\133\000")); -lf[475]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\135\000")); -lf[476]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\133\136\000")); -lf[477]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[478]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000")); -lf[479]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\055\000")); -lf[480]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\050\077\000")); -lf[481]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\165\156\153\156\157\167\156\040\163\162\145\040\157\160\145\162\141\164\157\162\000")); -lf[482]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\136\000")); -lf[483]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\044\000")); -lf[484]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[485]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\165\156\153\156\157\167\156\040\163\162\145\040\163\171\155\142\157\154\000")); -lf[486]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\165\156\153\156\157\167\156\040\163\162\145\040\160\141\164\164\145\162\156\000")); -lf[487]=C_h_intern(&lf[487],25, C_text("chicken.irregex#glob->sre")); -lf[488]=C_h_intern(&lf[488],9, C_text("glob->sre")); -lf[489]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\057\134\000")); -lf[490]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\057\134\000")); -lf[491]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\057\134\000")); -lf[492]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\057\134\000")); -lf[493]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\143\150\141\162\141\143\164\145\162\040\143\154\141\163\163\000")); -lf[494]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000\057\376\377\016")); -lf[495]=C_h_intern(&lf[495],10, C_text("scheme#car")); -lf[496]=C_h_intern(&lf[496],11, C_text("scheme#cadr")); -lf[497]=C_h_intern(&lf[497],12, C_text("scheme#caddr")); -lf[498]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\076\000")); -lf[499]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\145\163\000")); -lf[500]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\040\163\165\142\155\141\164\143\150\000")); -lf[501]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\043\074\162\145\147\145\170\160\055\155\141\164\143\150\040\050\000")); -lf[502]=C_h_intern(&lf[502],32, C_text("chicken.base#set-record-printer!")); -C_register_lf2(lf,503,create_ptable());{} -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7521,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[1215] = { -{C_text("f33666:irregex_2escm"),(void*)f33666}, -{C_text("f33670:irregex_2escm"),(void*)f33670}, -{C_text("f_10016:irregex_2escm"),(void*)f_10016}, -{C_text("f_10019:irregex_2escm"),(void*)f_10019}, -{C_text("f_10033:irregex_2escm"),(void*)f_10033}, -{C_text("f_10058:irregex_2escm"),(void*)f_10058}, -{C_text("f_10065:irregex_2escm"),(void*)f_10065}, -{C_text("f_10084:irregex_2escm"),(void*)f_10084}, -{C_text("f_10117:irregex_2escm"),(void*)f_10117}, -{C_text("f_10135:irregex_2escm"),(void*)f_10135}, -{C_text("f_10155:irregex_2escm"),(void*)f_10155}, -{C_text("f_10235:irregex_2escm"),(void*)f_10235}, -{C_text("f_10245:irregex_2escm"),(void*)f_10245}, -{C_text("f_10248:irregex_2escm"),(void*)f_10248}, -{C_text("f_10255:irregex_2escm"),(void*)f_10255}, -{C_text("f_10258:irregex_2escm"),(void*)f_10258}, -{C_text("f_10306:irregex_2escm"),(void*)f_10306}, -{C_text("f_10327:irregex_2escm"),(void*)f_10327}, -{C_text("f_10333:irregex_2escm"),(void*)f_10333}, -{C_text("f_10351:irregex_2escm"),(void*)f_10351}, -{C_text("f_10362:irregex_2escm"),(void*)f_10362}, -{C_text("f_10450:irregex_2escm"),(void*)f_10450}, -{C_text("f_10462:irregex_2escm"),(void*)f_10462}, -{C_text("f_10466:irregex_2escm"),(void*)f_10466}, -{C_text("f_10472:irregex_2escm"),(void*)f_10472}, -{C_text("f_10477:irregex_2escm"),(void*)f_10477}, -{C_text("f_10480:irregex_2escm"),(void*)f_10480}, -{C_text("f_10502:irregex_2escm"),(void*)f_10502}, -{C_text("f_10519:irregex_2escm"),(void*)f_10519}, -{C_text("f_10522:irregex_2escm"),(void*)f_10522}, -{C_text("f_10524:irregex_2escm"),(void*)f_10524}, -{C_text("f_10558:irregex_2escm"),(void*)f_10558}, -{C_text("f_10572:irregex_2escm"),(void*)f_10572}, -{C_text("f_10576:irregex_2escm"),(void*)f_10576}, -{C_text("f_10578:irregex_2escm"),(void*)f_10578}, -{C_text("f_10585:irregex_2escm"),(void*)f_10585}, -{C_text("f_10594:irregex_2escm"),(void*)f_10594}, -{C_text("f_10614:irregex_2escm"),(void*)f_10614}, -{C_text("f_10618:irregex_2escm"),(void*)f_10618}, -{C_text("f_10622:irregex_2escm"),(void*)f_10622}, -{C_text("f_10650:irregex_2escm"),(void*)f_10650}, -{C_text("f_10654:irregex_2escm"),(void*)f_10654}, -{C_text("f_10657:irregex_2escm"),(void*)f_10657}, -{C_text("f_10660:irregex_2escm"),(void*)f_10660}, -{C_text("f_10663:irregex_2escm"),(void*)f_10663}, -{C_text("f_10668:irregex_2escm"),(void*)f_10668}, -{C_text("f_10671:irregex_2escm"),(void*)f_10671}, -{C_text("f_10741:irregex_2escm"),(void*)f_10741}, -{C_text("f_10757:irregex_2escm"),(void*)f_10757}, -{C_text("f_10833:irregex_2escm"),(void*)f_10833}, -{C_text("f_10844:irregex_2escm"),(void*)f_10844}, -{C_text("f_10858:irregex_2escm"),(void*)f_10858}, -{C_text("f_10880:irregex_2escm"),(void*)f_10880}, -{C_text("f_10883:irregex_2escm"),(void*)f_10883}, -{C_text("f_10895:irregex_2escm"),(void*)f_10895}, -{C_text("f_10955:irregex_2escm"),(void*)f_10955}, -{C_text("f_10984:irregex_2escm"),(void*)f_10984}, -{C_text("f_11115:irregex_2escm"),(void*)f_11115}, -{C_text("f_11121:irregex_2escm"),(void*)f_11121}, -{C_text("f_11136:irregex_2escm"),(void*)f_11136}, -{C_text("f_11207:irregex_2escm"),(void*)f_11207}, -{C_text("f_11237:irregex_2escm"),(void*)f_11237}, -{C_text("f_11247:irregex_2escm"),(void*)f_11247}, -{C_text("f_11269:irregex_2escm"),(void*)f_11269}, -{C_text("f_11304:irregex_2escm"),(void*)f_11304}, -{C_text("f_11319:irregex_2escm"),(void*)f_11319}, -{C_text("f_11345:irregex_2escm"),(void*)f_11345}, -{C_text("f_11368:irregex_2escm"),(void*)f_11368}, -{C_text("f_11391:irregex_2escm"),(void*)f_11391}, -{C_text("f_11433:irregex_2escm"),(void*)f_11433}, -{C_text("f_11456:irregex_2escm"),(void*)f_11456}, -{C_text("f_11459:irregex_2escm"),(void*)f_11459}, -{C_text("f_11485:irregex_2escm"),(void*)f_11485}, -{C_text("f_11489:irregex_2escm"),(void*)f_11489}, -{C_text("f_11493:irregex_2escm"),(void*)f_11493}, -{C_text("f_11545:irregex_2escm"),(void*)f_11545}, -{C_text("f_11570:irregex_2escm"),(void*)f_11570}, -{C_text("f_11573:irregex_2escm"),(void*)f_11573}, -{C_text("f_11603:irregex_2escm"),(void*)f_11603}, -{C_text("f_11607:irregex_2escm"),(void*)f_11607}, -{C_text("f_11622:irregex_2escm"),(void*)f_11622}, -{C_text("f_11625:irregex_2escm"),(void*)f_11625}, -{C_text("f_11646:irregex_2escm"),(void*)f_11646}, -{C_text("f_11650:irregex_2escm"),(void*)f_11650}, -{C_text("f_11673:irregex_2escm"),(void*)f_11673}, -{C_text("f_11704:irregex_2escm"),(void*)f_11704}, -{C_text("f_11707:irregex_2escm"),(void*)f_11707}, -{C_text("f_11716:irregex_2escm"),(void*)f_11716}, -{C_text("f_11860:irregex_2escm"),(void*)f_11860}, -{C_text("f_11891:irregex_2escm"),(void*)f_11891}, -{C_text("f_11982:irregex_2escm"),(void*)f_11982}, -{C_text("f_11997:irregex_2escm"),(void*)f_11997}, -{C_text("f_12017:irregex_2escm"),(void*)f_12017}, -{C_text("f_12021:irregex_2escm"),(void*)f_12021}, -{C_text("f_12040:irregex_2escm"),(void*)f_12040}, -{C_text("f_12049:irregex_2escm"),(void*)f_12049}, -{C_text("f_12065:irregex_2escm"),(void*)f_12065}, -{C_text("f_12068:irregex_2escm"),(void*)f_12068}, -{C_text("f_12071:irregex_2escm"),(void*)f_12071}, -{C_text("f_12074:irregex_2escm"),(void*)f_12074}, -{C_text("f_12083:irregex_2escm"),(void*)f_12083}, -{C_text("f_12193:irregex_2escm"),(void*)f_12193}, -{C_text("f_12269:irregex_2escm"),(void*)f_12269}, -{C_text("f_12296:irregex_2escm"),(void*)f_12296}, -{C_text("f_12319:irregex_2escm"),(void*)f_12319}, -{C_text("f_12346:irregex_2escm"),(void*)f_12346}, -{C_text("f_12373:irregex_2escm"),(void*)f_12373}, -{C_text("f_12404:irregex_2escm"),(void*)f_12404}, -{C_text("f_12439:irregex_2escm"),(void*)f_12439}, -{C_text("f_12462:irregex_2escm"),(void*)f_12462}, -{C_text("f_12485:irregex_2escm"),(void*)f_12485}, -{C_text("f_12516:irregex_2escm"),(void*)f_12516}, -{C_text("f_12539:irregex_2escm"),(void*)f_12539}, -{C_text("f_12562:irregex_2escm"),(void*)f_12562}, -{C_text("f_12585:irregex_2escm"),(void*)f_12585}, -{C_text("f_12608:irregex_2escm"),(void*)f_12608}, -{C_text("f_12631:irregex_2escm"),(void*)f_12631}, -{C_text("f_12642:irregex_2escm"),(void*)f_12642}, -{C_text("f_12662:irregex_2escm"),(void*)f_12662}, -{C_text("f_12666:irregex_2escm"),(void*)f_12666}, -{C_text("f_12690:irregex_2escm"),(void*)f_12690}, -{C_text("f_12693:irregex_2escm"),(void*)f_12693}, -{C_text("f_12696:irregex_2escm"),(void*)f_12696}, -{C_text("f_12731:irregex_2escm"),(void*)f_12731}, -{C_text("f_12735:irregex_2escm"),(void*)f_12735}, -{C_text("f_12762:irregex_2escm"),(void*)f_12762}, -{C_text("f_12770:irregex_2escm"),(void*)f_12770}, -{C_text("f_12830:irregex_2escm"),(void*)f_12830}, -{C_text("f_12873:irregex_2escm"),(void*)f_12873}, -{C_text("f_12885:irregex_2escm"),(void*)f_12885}, -{C_text("f_12894:irregex_2escm"),(void*)f_12894}, -{C_text("f_12914:irregex_2escm"),(void*)f_12914}, -{C_text("f_12918:irregex_2escm"),(void*)f_12918}, -{C_text("f_12922:irregex_2escm"),(void*)f_12922}, -{C_text("f_12974:irregex_2escm"),(void*)f_12974}, -{C_text("f_12990:irregex_2escm"),(void*)f_12990}, -{C_text("f_13054:irregex_2escm"),(void*)f_13054}, -{C_text("f_13080:irregex_2escm"),(void*)f_13080}, -{C_text("f_13109:irregex_2escm"),(void*)f_13109}, -{C_text("f_13137:irregex_2escm"),(void*)f_13137}, -{C_text("f_13158:irregex_2escm"),(void*)f_13158}, -{C_text("f_13176:irregex_2escm"),(void*)f_13176}, -{C_text("f_13290:irregex_2escm"),(void*)f_13290}, -{C_text("f_13309:irregex_2escm"),(void*)f_13309}, -{C_text("f_13321:irregex_2escm"),(void*)f_13321}, -{C_text("f_13324:irregex_2escm"),(void*)f_13324}, -{C_text("f_13355:irregex_2escm"),(void*)f_13355}, -{C_text("f_13358:irregex_2escm"),(void*)f_13358}, -{C_text("f_13399:irregex_2escm"),(void*)f_13399}, -{C_text("f_13434:irregex_2escm"),(void*)f_13434}, -{C_text("f_13444:irregex_2escm"),(void*)f_13444}, -{C_text("f_13451:irregex_2escm"),(void*)f_13451}, -{C_text("f_13472:irregex_2escm"),(void*)f_13472}, -{C_text("f_13482:irregex_2escm"),(void*)f_13482}, -{C_text("f_13499:irregex_2escm"),(void*)f_13499}, -{C_text("f_13516:irregex_2escm"),(void*)f_13516}, -{C_text("f_13527:irregex_2escm"),(void*)f_13527}, -{C_text("f_13528:irregex_2escm"),(void*)f_13528}, -{C_text("f_13549:irregex_2escm"),(void*)f_13549}, -{C_text("f_13561:irregex_2escm"),(void*)f_13561}, -{C_text("f_13571:irregex_2escm"),(void*)f_13571}, -{C_text("f_13674:irregex_2escm"),(void*)f_13674}, -{C_text("f_13683:irregex_2escm"),(void*)f_13683}, -{C_text("f_13689:irregex_2escm"),(void*)f_13689}, -{C_text("f_13692:irregex_2escm"),(void*)f_13692}, -{C_text("f_13702:irregex_2escm"),(void*)f_13702}, -{C_text("f_13709:irregex_2escm"),(void*)f_13709}, -{C_text("f_13713:irregex_2escm"),(void*)f_13713}, -{C_text("f_13757:irregex_2escm"),(void*)f_13757}, -{C_text("f_13796:irregex_2escm"),(void*)f_13796}, -{C_text("f_13806:irregex_2escm"),(void*)f_13806}, -{C_text("f_13810:irregex_2escm"),(void*)f_13810}, -{C_text("f_13814:irregex_2escm"),(void*)f_13814}, -{C_text("f_13829:irregex_2escm"),(void*)f_13829}, -{C_text("f_13837:irregex_2escm"),(void*)f_13837}, -{C_text("f_13841:irregex_2escm"),(void*)f_13841}, -{C_text("f_13860:irregex_2escm"),(void*)f_13860}, -{C_text("f_13913:irregex_2escm"),(void*)f_13913}, -{C_text("f_13927:irregex_2escm"),(void*)f_13927}, -{C_text("f_13931:irregex_2escm"),(void*)f_13931}, -{C_text("f_13935:irregex_2escm"),(void*)f_13935}, -{C_text("f_13945:irregex_2escm"),(void*)f_13945}, -{C_text("f_14003:irregex_2escm"),(void*)f_14003}, -{C_text("f_14024:irregex_2escm"),(void*)f_14024}, -{C_text("f_14027:irregex_2escm"),(void*)f_14027}, -{C_text("f_14219:irregex_2escm"),(void*)f_14219}, -{C_text("f_14257:irregex_2escm"),(void*)f_14257}, -{C_text("f_14333:irregex_2escm"),(void*)f_14333}, -{C_text("f_14474:irregex_2escm"),(void*)f_14474}, -{C_text("f_14477:irregex_2escm"),(void*)f_14477}, -{C_text("f_14498:irregex_2escm"),(void*)f_14498}, -{C_text("f_14503:irregex_2escm"),(void*)f_14503}, -{C_text("f_14535:irregex_2escm"),(void*)f_14535}, -{C_text("f_14560:irregex_2escm"),(void*)f_14560}, -{C_text("f_14564:irregex_2escm"),(void*)f_14564}, -{C_text("f_14575:irregex_2escm"),(void*)f_14575}, -{C_text("f_14583:irregex_2escm"),(void*)f_14583}, -{C_text("f_14609:irregex_2escm"),(void*)f_14609}, -{C_text("f_14639:irregex_2escm"),(void*)f_14639}, -{C_text("f_14649:irregex_2escm"),(void*)f_14649}, -{C_text("f_14657:irregex_2escm"),(void*)f_14657}, -{C_text("f_14673:irregex_2escm"),(void*)f_14673}, -{C_text("f_14675:irregex_2escm"),(void*)f_14675}, -{C_text("f_14711:irregex_2escm"),(void*)f_14711}, -{C_text("f_14747:irregex_2escm"),(void*)f_14747}, -{C_text("f_14767:irregex_2escm"),(void*)f_14767}, -{C_text("f_14769:irregex_2escm"),(void*)f_14769}, -{C_text("f_14801:irregex_2escm"),(void*)f_14801}, -{C_text("f_14808:irregex_2escm"),(void*)f_14808}, -{C_text("f_14814:irregex_2escm"),(void*)f_14814}, -{C_text("f_14830:irregex_2escm"),(void*)f_14830}, -{C_text("f_14832:irregex_2escm"),(void*)f_14832}, -{C_text("f_14872:irregex_2escm"),(void*)f_14872}, -{C_text("f_14878:irregex_2escm"),(void*)f_14878}, -{C_text("f_14886:irregex_2escm"),(void*)f_14886}, -{C_text("f_14906:irregex_2escm"),(void*)f_14906}, -{C_text("f_14908:irregex_2escm"),(void*)f_14908}, -{C_text("f_14940:irregex_2escm"),(void*)f_14940}, -{C_text("f_14947:irregex_2escm"),(void*)f_14947}, -{C_text("f_14953:irregex_2escm"),(void*)f_14953}, -{C_text("f_14969:irregex_2escm"),(void*)f_14969}, -{C_text("f_14971:irregex_2escm"),(void*)f_14971}, -{C_text("f_15011:irregex_2escm"),(void*)f_15011}, -{C_text("f_15017:irregex_2escm"),(void*)f_15017}, -{C_text("f_15036:irregex_2escm"),(void*)f_15036}, -{C_text("f_15045:irregex_2escm"),(void*)f_15045}, -{C_text("f_15057:irregex_2escm"),(void*)f_15057}, -{C_text("f_15069:irregex_2escm"),(void*)f_15069}, -{C_text("f_15075:irregex_2escm"),(void*)f_15075}, -{C_text("f_15077:irregex_2escm"),(void*)f_15077}, -{C_text("f_15125:irregex_2escm"),(void*)f_15125}, -{C_text("f_15133:irregex_2escm"),(void*)f_15133}, -{C_text("f_15140:irregex_2escm"),(void*)f_15140}, -{C_text("f_15146:irregex_2escm"),(void*)f_15146}, -{C_text("f_15178:irregex_2escm"),(void*)f_15178}, -{C_text("f_15180:irregex_2escm"),(void*)f_15180}, -{C_text("f_15230:irregex_2escm"),(void*)f_15230}, -{C_text("f_15248:irregex_2escm"),(void*)f_15248}, -{C_text("f_15273:irregex_2escm"),(void*)f_15273}, -{C_text("f_15316:irregex_2escm"),(void*)f_15316}, -{C_text("f_15318:irregex_2escm"),(void*)f_15318}, -{C_text("f_15407:irregex_2escm"),(void*)f_15407}, -{C_text("f_15409:irregex_2escm"),(void*)f_15409}, -{C_text("f_15464:irregex_2escm"),(void*)f_15464}, -{C_text("f_15472:irregex_2escm"),(void*)f_15472}, -{C_text("f_15474:irregex_2escm"),(void*)f_15474}, -{C_text("f_15488:irregex_2escm"),(void*)f_15488}, -{C_text("f_15492:irregex_2escm"),(void*)f_15492}, -{C_text("f_15510:irregex_2escm"),(void*)f_15510}, -{C_text("f_15519:irregex_2escm"),(void*)f_15519}, -{C_text("f_15534:irregex_2escm"),(void*)f_15534}, -{C_text("f_15586:irregex_2escm"),(void*)f_15586}, -{C_text("f_15589:irregex_2escm"),(void*)f_15589}, -{C_text("f_15646:irregex_2escm"),(void*)f_15646}, -{C_text("f_15657:irregex_2escm"),(void*)f_15657}, -{C_text("f_15659:irregex_2escm"),(void*)f_15659}, -{C_text("f_15684:irregex_2escm"),(void*)f_15684}, -{C_text("f_15707:irregex_2escm"),(void*)f_15707}, -{C_text("f_15718:irregex_2escm"),(void*)f_15718}, -{C_text("f_15720:irregex_2escm"),(void*)f_15720}, -{C_text("f_15745:irregex_2escm"),(void*)f_15745}, -{C_text("f_15761:irregex_2escm"),(void*)f_15761}, -{C_text("f_15770:irregex_2escm"),(void*)f_15770}, -{C_text("f_15776:irregex_2escm"),(void*)f_15776}, -{C_text("f_15786:irregex_2escm"),(void*)f_15786}, -{C_text("f_15793:irregex_2escm"),(void*)f_15793}, -{C_text("f_15828:irregex_2escm"),(void*)f_15828}, -{C_text("f_15830:irregex_2escm"),(void*)f_15830}, -{C_text("f_15855:irregex_2escm"),(void*)f_15855}, -{C_text("f_15884:irregex_2escm"),(void*)f_15884}, -{C_text("f_15886:irregex_2escm"),(void*)f_15886}, -{C_text("f_15911:irregex_2escm"),(void*)f_15911}, -{C_text("f_15975:irregex_2escm"),(void*)f_15975}, -{C_text("f_15985:irregex_2escm"),(void*)f_15985}, -{C_text("f_15988:irregex_2escm"),(void*)f_15988}, -{C_text("f_15990:irregex_2escm"),(void*)f_15990}, -{C_text("f_16037:irregex_2escm"),(void*)f_16037}, -{C_text("f_16044:irregex_2escm"),(void*)f_16044}, -{C_text("f_16098:irregex_2escm"),(void*)f_16098}, -{C_text("f_16165:irregex_2escm"),(void*)f_16165}, -{C_text("f_16173:irregex_2escm"),(void*)f_16173}, -{C_text("f_16175:irregex_2escm"),(void*)f_16175}, -{C_text("f_16179:irregex_2escm"),(void*)f_16179}, -{C_text("f_16182:irregex_2escm"),(void*)f_16182}, -{C_text("f_16185:irregex_2escm"),(void*)f_16185}, -{C_text("f_16188:irregex_2escm"),(void*)f_16188}, -{C_text("f_16194:irregex_2escm"),(void*)f_16194}, -{C_text("f_16197:irregex_2escm"),(void*)f_16197}, -{C_text("f_16200:irregex_2escm"),(void*)f_16200}, -{C_text("f_16203:irregex_2escm"),(void*)f_16203}, -{C_text("f_16206:irregex_2escm"),(void*)f_16206}, -{C_text("f_16221:irregex_2escm"),(void*)f_16221}, -{C_text("f_16235:irregex_2escm"),(void*)f_16235}, -{C_text("f_16240:irregex_2escm"),(void*)f_16240}, -{C_text("f_16266:irregex_2escm"),(void*)f_16266}, -{C_text("f_16270:irregex_2escm"),(void*)f_16270}, -{C_text("f_16308:irregex_2escm"),(void*)f_16308}, -{C_text("f_16325:irregex_2escm"),(void*)f_16325}, -{C_text("f_16368:irregex_2escm"),(void*)f_16368}, -{C_text("f_16475:irregex_2escm"),(void*)f_16475}, -{C_text("f_16498:irregex_2escm"),(void*)f_16498}, -{C_text("f_16576:irregex_2escm"),(void*)f_16576}, -{C_text("f_16621:irregex_2escm"),(void*)f_16621}, -{C_text("f_16638:irregex_2escm"),(void*)f_16638}, -{C_text("f_16710:irregex_2escm"),(void*)f_16710}, -{C_text("f_16714:irregex_2escm"),(void*)f_16714}, -{C_text("f_16751:irregex_2escm"),(void*)f_16751}, -{C_text("f_16827:irregex_2escm"),(void*)f_16827}, -{C_text("f_16831:irregex_2escm"),(void*)f_16831}, -{C_text("f_16868:irregex_2escm"),(void*)f_16868}, -{C_text("f_16881:irregex_2escm"),(void*)f_16881}, -{C_text("f_16944:irregex_2escm"),(void*)f_16944}, -{C_text("f_16970:irregex_2escm"),(void*)f_16970}, -{C_text("f_16983:irregex_2escm"),(void*)f_16983}, -{C_text("f_16989:irregex_2escm"),(void*)f_16989}, -{C_text("f_17010:irregex_2escm"),(void*)f_17010}, -{C_text("f_17016:irregex_2escm"),(void*)f_17016}, -{C_text("f_17046:irregex_2escm"),(void*)f_17046}, -{C_text("f_17083:irregex_2escm"),(void*)f_17083}, -{C_text("f_17086:irregex_2escm"),(void*)f_17086}, -{C_text("f_17093:irregex_2escm"),(void*)f_17093}, -{C_text("f_17095:irregex_2escm"),(void*)f_17095}, -{C_text("f_17098:irregex_2escm"),(void*)f_17098}, -{C_text("f_17138:irregex_2escm"),(void*)f_17138}, -{C_text("f_17154:irregex_2escm"),(void*)f_17154}, -{C_text("f_17167:irregex_2escm"),(void*)f_17167}, -{C_text("f_17174:irregex_2escm"),(void*)f_17174}, -{C_text("f_17207:irregex_2escm"),(void*)f_17207}, -{C_text("f_17237:irregex_2escm"),(void*)f_17237}, -{C_text("f_17252:irregex_2escm"),(void*)f_17252}, -{C_text("f_17289:irregex_2escm"),(void*)f_17289}, -{C_text("f_17305:irregex_2escm"),(void*)f_17305}, -{C_text("f_17309:irregex_2escm"),(void*)f_17309}, -{C_text("f_17322:irregex_2escm"),(void*)f_17322}, -{C_text("f_17345:irregex_2escm"),(void*)f_17345}, -{C_text("f_17348:irregex_2escm"),(void*)f_17348}, -{C_text("f_17355:irregex_2escm"),(void*)f_17355}, -{C_text("f_17357:irregex_2escm"),(void*)f_17357}, -{C_text("f_17371:irregex_2escm"),(void*)f_17371}, -{C_text("f_17385:irregex_2escm"),(void*)f_17385}, -{C_text("f_17410:irregex_2escm"),(void*)f_17410}, -{C_text("f_17414:irregex_2escm"),(void*)f_17414}, -{C_text("f_17491:irregex_2escm"),(void*)f_17491}, -{C_text("f_17504:irregex_2escm"),(void*)f_17504}, -{C_text("f_17540:irregex_2escm"),(void*)f_17540}, -{C_text("f_17549:irregex_2escm"),(void*)f_17549}, -{C_text("f_17649:irregex_2escm"),(void*)f_17649}, -{C_text("f_17658:irregex_2escm"),(void*)f_17658}, -{C_text("f_17676:irregex_2escm"),(void*)f_17676}, -{C_text("f_17679:irregex_2escm"),(void*)f_17679}, -{C_text("f_17697:irregex_2escm"),(void*)f_17697}, -{C_text("f_17744:irregex_2escm"),(void*)f_17744}, -{C_text("f_17818:irregex_2escm"),(void*)f_17818}, -{C_text("f_17846:irregex_2escm"),(void*)f_17846}, -{C_text("f_17871:irregex_2escm"),(void*)f_17871}, -{C_text("f_17890:irregex_2escm"),(void*)f_17890}, -{C_text("f_17911:irregex_2escm"),(void*)f_17911}, -{C_text("f_17921:irregex_2escm"),(void*)f_17921}, -{C_text("f_17929:irregex_2escm"),(void*)f_17929}, -{C_text("f_18157:irregex_2escm"),(void*)f_18157}, -{C_text("f_18180:irregex_2escm"),(void*)f_18180}, -{C_text("f_18189:irregex_2escm"),(void*)f_18189}, -{C_text("f_18212:irregex_2escm"),(void*)f_18212}, -{C_text("f_18235:irregex_2escm"),(void*)f_18235}, -{C_text("f_18308:irregex_2escm"),(void*)f_18308}, -{C_text("f_18333:irregex_2escm"),(void*)f_18333}, -{C_text("f_18368:irregex_2escm"),(void*)f_18368}, -{C_text("f_18391:irregex_2escm"),(void*)f_18391}, -{C_text("f_18395:irregex_2escm"),(void*)f_18395}, -{C_text("f_18416:irregex_2escm"),(void*)f_18416}, -{C_text("f_18518:irregex_2escm"),(void*)f_18518}, -{C_text("f_18702:irregex_2escm"),(void*)f_18702}, -{C_text("f_18724:irregex_2escm"),(void*)f_18724}, -{C_text("f_18730:irregex_2escm"),(void*)f_18730}, -{C_text("f_18734:irregex_2escm"),(void*)f_18734}, -{C_text("f_18751:irregex_2escm"),(void*)f_18751}, -{C_text("f_18784:irregex_2escm"),(void*)f_18784}, -{C_text("f_18821:irregex_2escm"),(void*)f_18821}, -{C_text("f_18823:irregex_2escm"),(void*)f_18823}, -{C_text("f_18848:irregex_2escm"),(void*)f_18848}, -{C_text("f_18916:irregex_2escm"),(void*)f_18916}, -{C_text("f_18918:irregex_2escm"),(void*)f_18918}, -{C_text("f_18922:irregex_2escm"),(void*)f_18922}, -{C_text("f_18931:irregex_2escm"),(void*)f_18931}, -{C_text("f_18937:irregex_2escm"),(void*)f_18937}, -{C_text("f_18940:irregex_2escm"),(void*)f_18940}, -{C_text("f_19008:irregex_2escm"),(void*)f_19008}, -{C_text("f_19012:irregex_2escm"),(void*)f_19012}, -{C_text("f_19015:irregex_2escm"),(void*)f_19015}, -{C_text("f_19018:irregex_2escm"),(void*)f_19018}, -{C_text("f_19021:irregex_2escm"),(void*)f_19021}, -{C_text("f_19051:irregex_2escm"),(void*)f_19051}, -{C_text("f_19070:irregex_2escm"),(void*)f_19070}, -{C_text("f_19095:irregex_2escm"),(void*)f_19095}, -{C_text("f_19112:irregex_2escm"),(void*)f_19112}, -{C_text("f_19116:irregex_2escm"),(void*)f_19116}, -{C_text("f_19121:irregex_2escm"),(void*)f_19121}, -{C_text("f_19128:irregex_2escm"),(void*)f_19128}, -{C_text("f_19151:irregex_2escm"),(void*)f_19151}, -{C_text("f_19161:irregex_2escm"),(void*)f_19161}, -{C_text("f_19182:irregex_2escm"),(void*)f_19182}, -{C_text("f_19200:irregex_2escm"),(void*)f_19200}, -{C_text("f_19206:irregex_2escm"),(void*)f_19206}, -{C_text("f_19220:irregex_2escm"),(void*)f_19220}, -{C_text("f_19226:irregex_2escm"),(void*)f_19226}, -{C_text("f_19233:irregex_2escm"),(void*)f_19233}, -{C_text("f_19263:irregex_2escm"),(void*)f_19263}, -{C_text("f_19276:irregex_2escm"),(void*)f_19276}, -{C_text("f_19283:irregex_2escm"),(void*)f_19283}, -{C_text("f_19290:irregex_2escm"),(void*)f_19290}, -{C_text("f_19292:irregex_2escm"),(void*)f_19292}, -{C_text("f_19300:irregex_2escm"),(void*)f_19300}, -{C_text("f_19304:irregex_2escm"),(void*)f_19304}, -{C_text("f_19313:irregex_2escm"),(void*)f_19313}, -{C_text("f_19319:irregex_2escm"),(void*)f_19319}, -{C_text("f_19322:irregex_2escm"),(void*)f_19322}, -{C_text("f_19390:irregex_2escm"),(void*)f_19390}, -{C_text("f_19394:irregex_2escm"),(void*)f_19394}, -{C_text("f_19397:irregex_2escm"),(void*)f_19397}, -{C_text("f_19412:irregex_2escm"),(void*)f_19412}, -{C_text("f_19435:irregex_2escm"),(void*)f_19435}, -{C_text("f_19446:irregex_2escm"),(void*)f_19446}, -{C_text("f_19482:irregex_2escm"),(void*)f_19482}, -{C_text("f_19492:irregex_2escm"),(void*)f_19492}, -{C_text("f_19498:irregex_2escm"),(void*)f_19498}, -{C_text("f_19504:irregex_2escm"),(void*)f_19504}, -{C_text("f_19514:irregex_2escm"),(void*)f_19514}, -{C_text("f_19516:irregex_2escm"),(void*)f_19516}, -{C_text("f_19526:irregex_2escm"),(void*)f_19526}, -{C_text("f_19545:irregex_2escm"),(void*)f_19545}, -{C_text("f_19558:irregex_2escm"),(void*)f_19558}, -{C_text("f_19590:irregex_2escm"),(void*)f_19590}, -{C_text("f_19613:irregex_2escm"),(void*)f_19613}, -{C_text("f_19618:irregex_2escm"),(void*)f_19618}, -{C_text("f_19625:irregex_2escm"),(void*)f_19625}, -{C_text("f_19676:irregex_2escm"),(void*)f_19676}, -{C_text("f_19683:irregex_2escm"),(void*)f_19683}, -{C_text("f_19686:irregex_2escm"),(void*)f_19686}, -{C_text("f_19691:irregex_2escm"),(void*)f_19691}, -{C_text("f_19743:irregex_2escm"),(void*)f_19743}, -{C_text("f_19758:irregex_2escm"),(void*)f_19758}, -{C_text("f_19794:irregex_2escm"),(void*)f_19794}, -{C_text("f_19804:irregex_2escm"),(void*)f_19804}, -{C_text("f_19814:irregex_2escm"),(void*)f_19814}, -{C_text("f_19816:irregex_2escm"),(void*)f_19816}, -{C_text("f_19874:irregex_2escm"),(void*)f_19874}, -{C_text("f_19902:irregex_2escm"),(void*)f_19902}, -{C_text("f_19906:irregex_2escm"),(void*)f_19906}, -{C_text("f_19911:irregex_2escm"),(void*)f_19911}, -{C_text("f_19931:irregex_2escm"),(void*)f_19931}, -{C_text("f_19933:irregex_2escm"),(void*)f_19933}, -{C_text("f_19958:irregex_2escm"),(void*)f_19958}, -{C_text("f_19970:irregex_2escm"),(void*)f_19970}, -{C_text("f_19973:irregex_2escm"),(void*)f_19973}, -{C_text("f_19986:irregex_2escm"),(void*)f_19986}, -{C_text("f_19990:irregex_2escm"),(void*)f_19990}, -{C_text("f_19993:irregex_2escm"),(void*)f_19993}, -{C_text("f_19998:irregex_2escm"),(void*)f_19998}, -{C_text("f_20008:irregex_2escm"),(void*)f_20008}, -{C_text("f_20011:irregex_2escm"),(void*)f_20011}, -{C_text("f_20021:irregex_2escm"),(void*)f_20021}, -{C_text("f_20056:irregex_2escm"),(void*)f_20056}, -{C_text("f_20108:irregex_2escm"),(void*)f_20108}, -{C_text("f_20120:irregex_2escm"),(void*)f_20120}, -{C_text("f_20144:irregex_2escm"),(void*)f_20144}, -{C_text("f_20145:irregex_2escm"),(void*)f_20145}, -{C_text("f_20174:irregex_2escm"),(void*)f_20174}, -{C_text("f_20183:irregex_2escm"),(void*)f_20183}, -{C_text("f_20197:irregex_2escm"),(void*)f_20197}, -{C_text("f_20216:irregex_2escm"),(void*)f_20216}, -{C_text("f_20224:irregex_2escm"),(void*)f_20224}, -{C_text("f_20234:irregex_2escm"),(void*)f_20234}, -{C_text("f_20247:irregex_2escm"),(void*)f_20247}, -{C_text("f_20272:irregex_2escm"),(void*)f_20272}, -{C_text("f_20281:irregex_2escm"),(void*)f_20281}, -{C_text("f_20317:irregex_2escm"),(void*)f_20317}, -{C_text("f_20320:irregex_2escm"),(void*)f_20320}, -{C_text("f_20359:irregex_2escm"),(void*)f_20359}, -{C_text("f_20362:irregex_2escm"),(void*)f_20362}, -{C_text("f_20387:irregex_2escm"),(void*)f_20387}, -{C_text("f_20427:irregex_2escm"),(void*)f_20427}, -{C_text("f_20455:irregex_2escm"),(void*)f_20455}, -{C_text("f_20580:irregex_2escm"),(void*)f_20580}, -{C_text("f_20614:irregex_2escm"),(void*)f_20614}, -{C_text("f_20755:irregex_2escm"),(void*)f_20755}, -{C_text("f_20759:irregex_2escm"),(void*)f_20759}, -{C_text("f_20762:irregex_2escm"),(void*)f_20762}, -{C_text("f_20764:irregex_2escm"),(void*)f_20764}, -{C_text("f_20767:irregex_2escm"),(void*)f_20767}, -{C_text("f_20777:irregex_2escm"),(void*)f_20777}, -{C_text("f_20781:irregex_2escm"),(void*)f_20781}, -{C_text("f_20790:irregex_2escm"),(void*)f_20790}, -{C_text("f_20793:irregex_2escm"),(void*)f_20793}, -{C_text("f_20802:irregex_2escm"),(void*)f_20802}, -{C_text("f_20838:irregex_2escm"),(void*)f_20838}, -{C_text("f_20849:irregex_2escm"),(void*)f_20849}, -{C_text("f_20855:irregex_2escm"),(void*)f_20855}, -{C_text("f_20872:irregex_2escm"),(void*)f_20872}, -{C_text("f_20905:irregex_2escm"),(void*)f_20905}, -{C_text("f_20911:irregex_2escm"),(void*)f_20911}, -{C_text("f_20918:irregex_2escm"),(void*)f_20918}, -{C_text("f_20929:irregex_2escm"),(void*)f_20929}, -{C_text("f_20943:irregex_2escm"),(void*)f_20943}, -{C_text("f_20961:irregex_2escm"),(void*)f_20961}, -{C_text("f_20986:irregex_2escm"),(void*)f_20986}, -{C_text("f_21013:irregex_2escm"),(void*)f_21013}, -{C_text("f_21044:irregex_2escm"),(void*)f_21044}, -{C_text("f_21051:irregex_2escm"),(void*)f_21051}, -{C_text("f_21063:irregex_2escm"),(void*)f_21063}, -{C_text("f_21093:irregex_2escm"),(void*)f_21093}, -{C_text("f_21107:irregex_2escm"),(void*)f_21107}, -{C_text("f_21110:irregex_2escm"),(void*)f_21110}, -{C_text("f_21116:irregex_2escm"),(void*)f_21116}, -{C_text("f_21130:irregex_2escm"),(void*)f_21130}, -{C_text("f_21154:irregex_2escm"),(void*)f_21154}, -{C_text("f_21157:irregex_2escm"),(void*)f_21157}, -{C_text("f_21164:irregex_2escm"),(void*)f_21164}, -{C_text("f_21181:irregex_2escm"),(void*)f_21181}, -{C_text("f_21197:irregex_2escm"),(void*)f_21197}, -{C_text("f_21200:irregex_2escm"),(void*)f_21200}, -{C_text("f_21203:irregex_2escm"),(void*)f_21203}, -{C_text("f_21209:irregex_2escm"),(void*)f_21209}, -{C_text("f_21219:irregex_2escm"),(void*)f_21219}, -{C_text("f_21223:irregex_2escm"),(void*)f_21223}, -{C_text("f_21234:irregex_2escm"),(void*)f_21234}, -{C_text("f_21238:irregex_2escm"),(void*)f_21238}, -{C_text("f_21242:irregex_2escm"),(void*)f_21242}, -{C_text("f_21250:irregex_2escm"),(void*)f_21250}, -{C_text("f_21258:irregex_2escm"),(void*)f_21258}, -{C_text("f_21273:irregex_2escm"),(void*)f_21273}, -{C_text("f_21279:irregex_2escm"),(void*)f_21279}, -{C_text("f_21293:irregex_2escm"),(void*)f_21293}, -{C_text("f_21307:irregex_2escm"),(void*)f_21307}, -{C_text("f_21313:irregex_2escm"),(void*)f_21313}, -{C_text("f_21316:irregex_2escm"),(void*)f_21316}, -{C_text("f_21343:irregex_2escm"),(void*)f_21343}, -{C_text("f_21347:irregex_2escm"),(void*)f_21347}, -{C_text("f_21367:irregex_2escm"),(void*)f_21367}, -{C_text("f_21373:irregex_2escm"),(void*)f_21373}, -{C_text("f_21376:irregex_2escm"),(void*)f_21376}, -{C_text("f_21379:irregex_2escm"),(void*)f_21379}, -{C_text("f_21395:irregex_2escm"),(void*)f_21395}, -{C_text("f_21403:irregex_2escm"),(void*)f_21403}, -{C_text("f_21415:irregex_2escm"),(void*)f_21415}, -{C_text("f_21445:irregex_2escm"),(void*)f_21445}, -{C_text("f_21451:irregex_2escm"),(void*)f_21451}, -{C_text("f_21454:irregex_2escm"),(void*)f_21454}, -{C_text("f_21457:irregex_2escm"),(void*)f_21457}, -{C_text("f_21473:irregex_2escm"),(void*)f_21473}, -{C_text("f_21481:irregex_2escm"),(void*)f_21481}, -{C_text("f_21489:irregex_2escm"),(void*)f_21489}, -{C_text("f_21493:irregex_2escm"),(void*)f_21493}, -{C_text("f_21512:irregex_2escm"),(void*)f_21512}, -{C_text("f_21530:irregex_2escm"),(void*)f_21530}, -{C_text("f_21658:irregex_2escm"),(void*)f_21658}, -{C_text("f_21664:irregex_2escm"),(void*)f_21664}, -{C_text("f_21667:irregex_2escm"),(void*)f_21667}, -{C_text("f_21675:irregex_2escm"),(void*)f_21675}, -{C_text("f_21714:irregex_2escm"),(void*)f_21714}, -{C_text("f_21749:irregex_2escm"),(void*)f_21749}, -{C_text("f_21756:irregex_2escm"),(void*)f_21756}, -{C_text("f_21782:irregex_2escm"),(void*)f_21782}, -{C_text("f_21878:irregex_2escm"),(void*)f_21878}, -{C_text("f_21882:irregex_2escm"),(void*)f_21882}, -{C_text("f_21895:irregex_2escm"),(void*)f_21895}, -{C_text("f_21907:irregex_2escm"),(void*)f_21907}, -{C_text("f_21911:irregex_2escm"),(void*)f_21911}, -{C_text("f_21918:irregex_2escm"),(void*)f_21918}, -{C_text("f_21924:irregex_2escm"),(void*)f_21924}, -{C_text("f_21928:irregex_2escm"),(void*)f_21928}, -{C_text("f_21931:irregex_2escm"),(void*)f_21931}, -{C_text("f_21933:irregex_2escm"),(void*)f_21933}, -{C_text("f_21940:irregex_2escm"),(void*)f_21940}, -{C_text("f_21947:irregex_2escm"),(void*)f_21947}, -{C_text("f_21982:irregex_2escm"),(void*)f_21982}, -{C_text("f_21995:irregex_2escm"),(void*)f_21995}, -{C_text("f_22096:irregex_2escm"),(void*)f_22096}, -{C_text("f_22102:irregex_2escm"),(void*)f_22102}, -{C_text("f_22108:irregex_2escm"),(void*)f_22108}, -{C_text("f_22161:irregex_2escm"),(void*)f_22161}, -{C_text("f_22232:irregex_2escm"),(void*)f_22232}, -{C_text("f_22285:irregex_2escm"),(void*)f_22285}, -{C_text("f_22294:irregex_2escm"),(void*)f_22294}, -{C_text("f_22314:irregex_2escm"),(void*)f_22314}, -{C_text("f_22343:irregex_2escm"),(void*)f_22343}, -{C_text("f_22367:irregex_2escm"),(void*)f_22367}, -{C_text("f_22374:irregex_2escm"),(void*)f_22374}, -{C_text("f_22377:irregex_2escm"),(void*)f_22377}, -{C_text("f_22380:irregex_2escm"),(void*)f_22380}, -{C_text("f_22383:irregex_2escm"),(void*)f_22383}, -{C_text("f_22399:irregex_2escm"),(void*)f_22399}, -{C_text("f_22416:irregex_2escm"),(void*)f_22416}, -{C_text("f_22451:irregex_2escm"),(void*)f_22451}, -{C_text("f_22455:irregex_2escm"),(void*)f_22455}, -{C_text("f_22483:irregex_2escm"),(void*)f_22483}, -{C_text("f_22486:irregex_2escm"),(void*)f_22486}, -{C_text("f_22492:irregex_2escm"),(void*)f_22492}, -{C_text("f_22578:irregex_2escm"),(void*)f_22578}, -{C_text("f_22581:irregex_2escm"),(void*)f_22581}, -{C_text("f_22586:irregex_2escm"),(void*)f_22586}, -{C_text("f_22596:irregex_2escm"),(void*)f_22596}, -{C_text("f_22599:irregex_2escm"),(void*)f_22599}, -{C_text("f_22619:irregex_2escm"),(void*)f_22619}, -{C_text("f_22627:irregex_2escm"),(void*)f_22627}, -{C_text("f_22660:irregex_2escm"),(void*)f_22660}, -{C_text("f_22662:irregex_2escm"),(void*)f_22662}, -{C_text("f_22687:irregex_2escm"),(void*)f_22687}, -{C_text("f_22700:irregex_2escm"),(void*)f_22700}, -{C_text("f_22739:irregex_2escm"),(void*)f_22739}, -{C_text("f_22754:irregex_2escm"),(void*)f_22754}, -{C_text("f_22775:irregex_2escm"),(void*)f_22775}, -{C_text("f_22793:irregex_2escm"),(void*)f_22793}, -{C_text("f_22802:irregex_2escm"),(void*)f_22802}, -{C_text("f_22816:irregex_2escm"),(void*)f_22816}, -{C_text("f_22820:irregex_2escm"),(void*)f_22820}, -{C_text("f_22823:irregex_2escm"),(void*)f_22823}, -{C_text("f_22829:irregex_2escm"),(void*)f_22829}, -{C_text("f_22832:irregex_2escm"),(void*)f_22832}, -{C_text("f_22835:irregex_2escm"),(void*)f_22835}, -{C_text("f_22852:irregex_2escm"),(void*)f_22852}, -{C_text("f_22924:irregex_2escm"),(void*)f_22924}, -{C_text("f_22928:irregex_2escm"),(void*)f_22928}, -{C_text("f_22932:irregex_2escm"),(void*)f_22932}, -{C_text("f_22934:irregex_2escm"),(void*)f_22934}, -{C_text("f_22957:irregex_2escm"),(void*)f_22957}, -{C_text("f_22986:irregex_2escm"),(void*)f_22986}, -{C_text("f_22990:irregex_2escm"),(void*)f_22990}, -{C_text("f_23014:irregex_2escm"),(void*)f_23014}, -{C_text("f_23042:irregex_2escm"),(void*)f_23042}, -{C_text("f_23052:irregex_2escm"),(void*)f_23052}, -{C_text("f_23062:irregex_2escm"),(void*)f_23062}, -{C_text("f_23067:irregex_2escm"),(void*)f_23067}, -{C_text("f_23082:irregex_2escm"),(void*)f_23082}, -{C_text("f_23102:irregex_2escm"),(void*)f_23102}, -{C_text("f_23125:irregex_2escm"),(void*)f_23125}, -{C_text("f_23157:irregex_2escm"),(void*)f_23157}, -{C_text("f_23164:irregex_2escm"),(void*)f_23164}, -{C_text("f_23166:irregex_2escm"),(void*)f_23166}, -{C_text("f_23190:irregex_2escm"),(void*)f_23190}, -{C_text("f_23234:irregex_2escm"),(void*)f_23234}, -{C_text("f_23247:irregex_2escm"),(void*)f_23247}, -{C_text("f_23261:irregex_2escm"),(void*)f_23261}, -{C_text("f_23288:irregex_2escm"),(void*)f_23288}, -{C_text("f_23369:irregex_2escm"),(void*)f_23369}, -{C_text("f_23385:irregex_2escm"),(void*)f_23385}, -{C_text("f_23395:irregex_2escm"),(void*)f_23395}, -{C_text("f_23404:irregex_2escm"),(void*)f_23404}, -{C_text("f_23444:irregex_2escm"),(void*)f_23444}, -{C_text("f_23447:irregex_2escm"),(void*)f_23447}, -{C_text("f_23470:irregex_2escm"),(void*)f_23470}, -{C_text("f_23486:irregex_2escm"),(void*)f_23486}, -{C_text("f_23493:irregex_2escm"),(void*)f_23493}, -{C_text("f_23513:irregex_2escm"),(void*)f_23513}, -{C_text("f_23533:irregex_2escm"),(void*)f_23533}, -{C_text("f_23536:irregex_2escm"),(void*)f_23536}, -{C_text("f_23537:irregex_2escm"),(void*)f_23537}, -{C_text("f_23543:irregex_2escm"),(void*)f_23543}, -{C_text("f_23559:irregex_2escm"),(void*)f_23559}, -{C_text("f_23687:irregex_2escm"),(void*)f_23687}, -{C_text("f_23706:irregex_2escm"),(void*)f_23706}, -{C_text("f_23729:irregex_2escm"),(void*)f_23729}, -{C_text("f_23730:irregex_2escm"),(void*)f_23730}, -{C_text("f_23736:irregex_2escm"),(void*)f_23736}, -{C_text("f_23755:irregex_2escm"),(void*)f_23755}, -{C_text("f_23756:irregex_2escm"),(void*)f_23756}, -{C_text("f_23762:irregex_2escm"),(void*)f_23762}, -{C_text("f_23784:irregex_2escm"),(void*)f_23784}, -{C_text("f_23790:irregex_2escm"),(void*)f_23790}, -{C_text("f_23791:irregex_2escm"),(void*)f_23791}, -{C_text("f_23797:irregex_2escm"),(void*)f_23797}, -{C_text("f_23829:irregex_2escm"),(void*)f_23829}, -{C_text("f_23835:irregex_2escm"),(void*)f_23835}, -{C_text("f_23837:irregex_2escm"),(void*)f_23837}, -{C_text("f_23843:irregex_2escm"),(void*)f_23843}, -{C_text("f_23853:irregex_2escm"),(void*)f_23853}, -{C_text("f_23859:irregex_2escm"),(void*)f_23859}, -{C_text("f_23883:irregex_2escm"),(void*)f_23883}, -{C_text("f_23889:irregex_2escm"),(void*)f_23889}, -{C_text("f_23896:irregex_2escm"),(void*)f_23896}, -{C_text("f_23902:irregex_2escm"),(void*)f_23902}, -{C_text("f_23985:irregex_2escm"),(void*)f_23985}, -{C_text("f_23988:irregex_2escm"),(void*)f_23988}, -{C_text("f_23989:irregex_2escm"),(void*)f_23989}, -{C_text("f_24002:irregex_2escm"),(void*)f_24002}, -{C_text("f_24008:irregex_2escm"),(void*)f_24008}, -{C_text("f_24021:irregex_2escm"),(void*)f_24021}, -{C_text("f_24026:irregex_2escm"),(void*)f_24026}, -{C_text("f_24057:irregex_2escm"),(void*)f_24057}, -{C_text("f_24061:irregex_2escm"),(void*)f_24061}, -{C_text("f_24066:irregex_2escm"),(void*)f_24066}, -{C_text("f_24137:irregex_2escm"),(void*)f_24137}, -{C_text("f_24140:irregex_2escm"),(void*)f_24140}, -{C_text("f_24141:irregex_2escm"),(void*)f_24141}, -{C_text("f_24154:irregex_2escm"),(void*)f_24154}, -{C_text("f_24160:irregex_2escm"),(void*)f_24160}, -{C_text("f_24170:irregex_2escm"),(void*)f_24170}, -{C_text("f_24182:irregex_2escm"),(void*)f_24182}, -{C_text("f_24195:irregex_2escm"),(void*)f_24195}, -{C_text("f_24216:irregex_2escm"),(void*)f_24216}, -{C_text("f_24226:irregex_2escm"),(void*)f_24226}, -{C_text("f_24230:irregex_2escm"),(void*)f_24230}, -{C_text("f_24236:irregex_2escm"),(void*)f_24236}, -{C_text("f_24308:irregex_2escm"),(void*)f_24308}, -{C_text("f_24358:irregex_2escm"),(void*)f_24358}, -{C_text("f_24371:irregex_2escm"),(void*)f_24371}, -{C_text("f_24372:irregex_2escm"),(void*)f_24372}, -{C_text("f_24379:irregex_2escm"),(void*)f_24379}, -{C_text("f_24387:irregex_2escm"),(void*)f_24387}, -{C_text("f_24394:irregex_2escm"),(void*)f_24394}, -{C_text("f_24406:irregex_2escm"),(void*)f_24406}, -{C_text("f_24407:irregex_2escm"),(void*)f_24407}, -{C_text("f_24414:irregex_2escm"),(void*)f_24414}, -{C_text("f_24422:irregex_2escm"),(void*)f_24422}, -{C_text("f_24429:irregex_2escm"),(void*)f_24429}, -{C_text("f_24444:irregex_2escm"),(void*)f_24444}, -{C_text("f_24445:irregex_2escm"),(void*)f_24445}, -{C_text("f_24449:irregex_2escm"),(void*)f_24449}, -{C_text("f_24455:irregex_2escm"),(void*)f_24455}, -{C_text("f_24462:irregex_2escm"),(void*)f_24462}, -{C_text("f_24471:irregex_2escm"),(void*)f_24471}, -{C_text("f_24481:irregex_2escm"),(void*)f_24481}, -{C_text("f_24485:irregex_2escm"),(void*)f_24485}, -{C_text("f_24490:irregex_2escm"),(void*)f_24490}, -{C_text("f_24507:irregex_2escm"),(void*)f_24507}, -{C_text("f_24516:irregex_2escm"),(void*)f_24516}, -{C_text("f_24527:irregex_2escm"),(void*)f_24527}, -{C_text("f_24528:irregex_2escm"),(void*)f_24528}, -{C_text("f_24532:irregex_2escm"),(void*)f_24532}, -{C_text("f_24543:irregex_2escm"),(void*)f_24543}, -{C_text("f_24550:irregex_2escm"),(void*)f_24550}, -{C_text("f_24562:irregex_2escm"),(void*)f_24562}, -{C_text("f_24565:irregex_2escm"),(void*)f_24565}, -{C_text("f_24568:irregex_2escm"),(void*)f_24568}, -{C_text("f_24577:irregex_2escm"),(void*)f_24577}, -{C_text("f_24580:irregex_2escm"),(void*)f_24580}, -{C_text("f_24581:irregex_2escm"),(void*)f_24581}, -{C_text("f_24638:irregex_2escm"),(void*)f_24638}, -{C_text("f_24639:irregex_2escm"),(void*)f_24639}, -{C_text("f_24645:irregex_2escm"),(void*)f_24645}, -{C_text("f_24681:irregex_2escm"),(void*)f_24681}, -{C_text("f_24686:irregex_2escm"),(void*)f_24686}, -{C_text("f_24718:irregex_2escm"),(void*)f_24718}, -{C_text("f_24721:irregex_2escm"),(void*)f_24721}, -{C_text("f_24722:irregex_2escm"),(void*)f_24722}, -{C_text("f_24726:irregex_2escm"),(void*)f_24726}, -{C_text("f_24744:irregex_2escm"),(void*)f_24744}, -{C_text("f_24757:irregex_2escm"),(void*)f_24757}, -{C_text("f_24771:irregex_2escm"),(void*)f_24771}, -{C_text("f_24775:irregex_2escm"),(void*)f_24775}, -{C_text("f_24789:irregex_2escm"),(void*)f_24789}, -{C_text("f_24795:irregex_2escm"),(void*)f_24795}, -{C_text("f_24808:irregex_2escm"),(void*)f_24808}, -{C_text("f_24815:irregex_2escm"),(void*)f_24815}, -{C_text("f_24822:irregex_2escm"),(void*)f_24822}, -{C_text("f_24844:irregex_2escm"),(void*)f_24844}, -{C_text("f_24848:irregex_2escm"),(void*)f_24848}, -{C_text("f_24935:irregex_2escm"),(void*)f_24935}, -{C_text("f_24936:irregex_2escm"),(void*)f_24936}, -{C_text("f_24984:irregex_2escm"),(void*)f_24984}, -{C_text("f_25044:irregex_2escm"),(void*)f_25044}, -{C_text("f_25079:irregex_2escm"),(void*)f_25079}, -{C_text("f_25279:irregex_2escm"),(void*)f_25279}, -{C_text("f_25299:irregex_2escm"),(void*)f_25299}, -{C_text("f_25308:irregex_2escm"),(void*)f_25308}, -{C_text("f_25314:irregex_2escm"),(void*)f_25314}, -{C_text("f_25320:irregex_2escm"),(void*)f_25320}, -{C_text("f_25337:irregex_2escm"),(void*)f_25337}, -{C_text("f_25374:irregex_2escm"),(void*)f_25374}, -{C_text("f_25383:irregex_2escm"),(void*)f_25383}, -{C_text("f_25389:irregex_2escm"),(void*)f_25389}, -{C_text("f_25395:irregex_2escm"),(void*)f_25395}, -{C_text("f_25429:irregex_2escm"),(void*)f_25429}, -{C_text("f_25459:irregex_2escm"),(void*)f_25459}, -{C_text("f_25466:irregex_2escm"),(void*)f_25466}, -{C_text("f_25503:irregex_2escm"),(void*)f_25503}, -{C_text("f_25510:irregex_2escm"),(void*)f_25510}, -{C_text("f_25517:irregex_2escm"),(void*)f_25517}, -{C_text("f_25526:irregex_2escm"),(void*)f_25526}, -{C_text("f_25545:irregex_2escm"),(void*)f_25545}, -{C_text("f_25562:irregex_2escm"),(void*)f_25562}, -{C_text("f_25569:irregex_2escm"),(void*)f_25569}, -{C_text("f_25590:irregex_2escm"),(void*)f_25590}, -{C_text("f_25610:irregex_2escm"),(void*)f_25610}, -{C_text("f_25617:irregex_2escm"),(void*)f_25617}, -{C_text("f_25624:irregex_2escm"),(void*)f_25624}, -{C_text("f_25643:irregex_2escm"),(void*)f_25643}, -{C_text("f_25650:irregex_2escm"),(void*)f_25650}, -{C_text("f_25657:irregex_2escm"),(void*)f_25657}, -{C_text("f_25680:irregex_2escm"),(void*)f_25680}, -{C_text("f_25701:irregex_2escm"),(void*)f_25701}, -{C_text("f_25708:irregex_2escm"),(void*)f_25708}, -{C_text("f_25715:irregex_2escm"),(void*)f_25715}, -{C_text("f_25722:irregex_2escm"),(void*)f_25722}, -{C_text("f_25731:irregex_2escm"),(void*)f_25731}, -{C_text("f_25751:irregex_2escm"),(void*)f_25751}, -{C_text("f_25767:irregex_2escm"),(void*)f_25767}, -{C_text("f_25784:irregex_2escm"),(void*)f_25784}, -{C_text("f_25804:irregex_2escm"),(void*)f_25804}, -{C_text("f_25808:irregex_2escm"),(void*)f_25808}, -{C_text("f_25811:irregex_2escm"),(void*)f_25811}, -{C_text("f_25817:irregex_2escm"),(void*)f_25817}, -{C_text("f_25862:irregex_2escm"),(void*)f_25862}, -{C_text("f_25926:irregex_2escm"),(void*)f_25926}, -{C_text("f_25943:irregex_2escm"),(void*)f_25943}, -{C_text("f_25945:irregex_2escm"),(void*)f_25945}, -{C_text("f_25955:irregex_2escm"),(void*)f_25955}, -{C_text("f_25961:irregex_2escm"),(void*)f_25961}, -{C_text("f_25967:irregex_2escm"),(void*)f_25967}, -{C_text("f_25983:irregex_2escm"),(void*)f_25983}, -{C_text("f_25989:irregex_2escm"),(void*)f_25989}, -{C_text("f_26011:irregex_2escm"),(void*)f_26011}, -{C_text("f_26025:irregex_2escm"),(void*)f_26025}, -{C_text("f_26042:irregex_2escm"),(void*)f_26042}, -{C_text("f_26044:irregex_2escm"),(void*)f_26044}, -{C_text("f_26054:irregex_2escm"),(void*)f_26054}, -{C_text("f_26060:irregex_2escm"),(void*)f_26060}, -{C_text("f_26066:irregex_2escm"),(void*)f_26066}, -{C_text("f_26082:irregex_2escm"),(void*)f_26082}, -{C_text("f_26140:irregex_2escm"),(void*)f_26140}, -{C_text("f_26166:irregex_2escm"),(void*)f_26166}, -{C_text("f_26168:irregex_2escm"),(void*)f_26168}, -{C_text("f_26181:irregex_2escm"),(void*)f_26181}, -{C_text("f_26200:irregex_2escm"),(void*)f_26200}, -{C_text("f_26209:irregex_2escm"),(void*)f_26209}, -{C_text("f_26215:irregex_2escm"),(void*)f_26215}, -{C_text("f_26221:irregex_2escm"),(void*)f_26221}, -{C_text("f_26227:irregex_2escm"),(void*)f_26227}, -{C_text("f_26379:irregex_2escm"),(void*)f_26379}, -{C_text("f_26391:irregex_2escm"),(void*)f_26391}, -{C_text("f_26441:irregex_2escm"),(void*)f_26441}, -{C_text("f_26459:irregex_2escm"),(void*)f_26459}, -{C_text("f_26470:irregex_2escm"),(void*)f_26470}, -{C_text("f_26476:irregex_2escm"),(void*)f_26476}, -{C_text("f_26488:irregex_2escm"),(void*)f_26488}, -{C_text("f_26490:irregex_2escm"),(void*)f_26490}, -{C_text("f_26500:irregex_2escm"),(void*)f_26500}, -{C_text("f_26503:irregex_2escm"),(void*)f_26503}, -{C_text("f_26529:irregex_2escm"),(void*)f_26529}, -{C_text("f_26550:irregex_2escm"),(void*)f_26550}, -{C_text("f_26554:irregex_2escm"),(void*)f_26554}, -{C_text("f_26567:irregex_2escm"),(void*)f_26567}, -{C_text("f_26569:irregex_2escm"),(void*)f_26569}, -{C_text("f_26594:irregex_2escm"),(void*)f_26594}, -{C_text("f_26618:irregex_2escm"),(void*)f_26618}, -{C_text("f_26631:irregex_2escm"),(void*)f_26631}, -{C_text("f_26633:irregex_2escm"),(void*)f_26633}, -{C_text("f_26658:irregex_2escm"),(void*)f_26658}, -{C_text("f_26680:irregex_2escm"),(void*)f_26680}, -{C_text("f_26688:irregex_2escm"),(void*)f_26688}, -{C_text("f_26701:irregex_2escm"),(void*)f_26701}, -{C_text("f_26703:irregex_2escm"),(void*)f_26703}, -{C_text("f_26728:irregex_2escm"),(void*)f_26728}, -{C_text("f_26748:irregex_2escm"),(void*)f_26748}, -{C_text("f_26758:irregex_2escm"),(void*)f_26758}, -{C_text("f_26773:irregex_2escm"),(void*)f_26773}, -{C_text("f_26786:irregex_2escm"),(void*)f_26786}, -{C_text("f_26788:irregex_2escm"),(void*)f_26788}, -{C_text("f_26813:irregex_2escm"),(void*)f_26813}, -{C_text("f_26935:irregex_2escm"),(void*)f_26935}, -{C_text("f_26937:irregex_2escm"),(void*)f_26937}, -{C_text("f_26955:irregex_2escm"),(void*)f_26955}, -{C_text("f_26957:irregex_2escm"),(void*)f_26957}, -{C_text("f_26990:irregex_2escm"),(void*)f_26990}, -{C_text("f_27042:irregex_2escm"),(void*)f_27042}, -{C_text("f_27078:irregex_2escm"),(void*)f_27078}, -{C_text("f_27086:irregex_2escm"),(void*)f_27086}, -{C_text("f_27090:irregex_2escm"),(void*)f_27090}, -{C_text("f_27092:irregex_2escm"),(void*)f_27092}, -{C_text("f_27106:irregex_2escm"),(void*)f_27106}, -{C_text("f_27110:irregex_2escm"),(void*)f_27110}, -{C_text("f_27114:irregex_2escm"),(void*)f_27114}, -{C_text("f_27127:irregex_2escm"),(void*)f_27127}, -{C_text("f_27131:irregex_2escm"),(void*)f_27131}, -{C_text("f_27135:irregex_2escm"),(void*)f_27135}, -{C_text("f_27273:irregex_2escm"),(void*)f_27273}, -{C_text("f_27281:irregex_2escm"),(void*)f_27281}, -{C_text("f_27285:irregex_2escm"),(void*)f_27285}, -{C_text("f_27287:irregex_2escm"),(void*)f_27287}, -{C_text("f_27301:irregex_2escm"),(void*)f_27301}, -{C_text("f_27314:irregex_2escm"),(void*)f_27314}, -{C_text("f_27318:irregex_2escm"),(void*)f_27318}, -{C_text("f_27364:irregex_2escm"),(void*)f_27364}, -{C_text("f_27367:irregex_2escm"),(void*)f_27367}, -{C_text("f_27374:irregex_2escm"),(void*)f_27374}, -{C_text("f_27469:irregex_2escm"),(void*)f_27469}, -{C_text("f_27477:irregex_2escm"),(void*)f_27477}, -{C_text("f_27481:irregex_2escm"),(void*)f_27481}, -{C_text("f_27483:irregex_2escm"),(void*)f_27483}, -{C_text("f_27500:irregex_2escm"),(void*)f_27500}, -{C_text("f_27595:irregex_2escm"),(void*)f_27595}, -{C_text("f_27603:irregex_2escm"),(void*)f_27603}, -{C_text("f_27605:irregex_2escm"),(void*)f_27605}, -{C_text("f_27613:irregex_2escm"),(void*)f_27613}, -{C_text("f_27615:irregex_2escm"),(void*)f_27615}, -{C_text("f_27629:irregex_2escm"),(void*)f_27629}, -{C_text("f_27635:irregex_2escm"),(void*)f_27635}, -{C_text("f_27644:irregex_2escm"),(void*)f_27644}, -{C_text("f_27648:irregex_2escm"),(void*)f_27648}, -{C_text("f_27652:irregex_2escm"),(void*)f_27652}, -{C_text("f_27656:irregex_2escm"),(void*)f_27656}, -{C_text("f_27680:irregex_2escm"),(void*)f_27680}, -{C_text("f_27690:irregex_2escm"),(void*)f_27690}, -{C_text("f_27699:irregex_2escm"),(void*)f_27699}, -{C_text("f_27703:irregex_2escm"),(void*)f_27703}, -{C_text("f_27707:irregex_2escm"),(void*)f_27707}, -{C_text("f_27711:irregex_2escm"),(void*)f_27711}, -{C_text("f_27721:irregex_2escm"),(void*)f_27721}, -{C_text("f_27736:irregex_2escm"),(void*)f_27736}, -{C_text("f_27740:irregex_2escm"),(void*)f_27740}, -{C_text("f_27743:irregex_2escm"),(void*)f_27743}, -{C_text("f_27746:irregex_2escm"),(void*)f_27746}, -{C_text("f_27755:irregex_2escm"),(void*)f_27755}, -{C_text("f_27758:irregex_2escm"),(void*)f_27758}, -{C_text("f_27767:irregex_2escm"),(void*)f_27767}, -{C_text("f_27770:irregex_2escm"),(void*)f_27770}, -{C_text("f_27778:irregex_2escm"),(void*)f_27778}, -{C_text("f_27791:irregex_2escm"),(void*)f_27791}, -{C_text("f_27826:irregex_2escm"),(void*)f_27826}, -{C_text("f_27829:irregex_2escm"),(void*)f_27829}, -{C_text("f_27937:irregex_2escm"),(void*)f_27937}, -{C_text("f_27954:irregex_2escm"),(void*)f_27954}, -{C_text("f_27958:irregex_2escm"),(void*)f_27958}, -{C_text("f_27959:irregex_2escm"),(void*)f_27959}, -{C_text("f_27967:irregex_2escm"),(void*)f_27967}, -{C_text("f_27982:irregex_2escm"),(void*)f_27982}, -{C_text("f_27986:irregex_2escm"),(void*)f_27986}, -{C_text("f_27989:irregex_2escm"),(void*)f_27989}, -{C_text("f_27998:irregex_2escm"),(void*)f_27998}, -{C_text("f_28004:irregex_2escm"),(void*)f_28004}, -{C_text("f_28012:irregex_2escm"),(void*)f_28012}, -{C_text("f_28025:irregex_2escm"),(void*)f_28025}, -{C_text("f_28075:irregex_2escm"),(void*)f_28075}, -{C_text("f_28085:irregex_2escm"),(void*)f_28085}, -{C_text("f_28099:irregex_2escm"),(void*)f_28099}, -{C_text("f_28102:irregex_2escm"),(void*)f_28102}, -{C_text("f_28105:irregex_2escm"),(void*)f_28105}, -{C_text("f_28157:irregex_2escm"),(void*)f_28157}, -{C_text("f_28164:irregex_2escm"),(void*)f_28164}, -{C_text("f_28168:irregex_2escm"),(void*)f_28168}, -{C_text("f_28169:irregex_2escm"),(void*)f_28169}, -{C_text("f_28177:irregex_2escm"),(void*)f_28177}, -{C_text("f_28192:irregex_2escm"),(void*)f_28192}, -{C_text("f_28196:irregex_2escm"),(void*)f_28196}, -{C_text("f_28199:irregex_2escm"),(void*)f_28199}, -{C_text("f_28213:irregex_2escm"),(void*)f_28213}, -{C_text("f_28217:irregex_2escm"),(void*)f_28217}, -{C_text("f_28221:irregex_2escm"),(void*)f_28221}, -{C_text("f_28229:irregex_2escm"),(void*)f_28229}, -{C_text("f_28268:irregex_2escm"),(void*)f_28268}, -{C_text("f_28272:irregex_2escm"),(void*)f_28272}, -{C_text("f_28277:irregex_2escm"),(void*)f_28277}, -{C_text("f_28311:irregex_2escm"),(void*)f_28311}, -{C_text("f_28318:irregex_2escm"),(void*)f_28318}, -{C_text("f_28326:irregex_2escm"),(void*)f_28326}, -{C_text("f_28328:irregex_2escm"),(void*)f_28328}, -{C_text("f_28349:irregex_2escm"),(void*)f_28349}, -{C_text("f_28361:irregex_2escm"),(void*)f_28361}, -{C_text("f_28367:irregex_2escm"),(void*)f_28367}, -{C_text("f_28394:irregex_2escm"),(void*)f_28394}, -{C_text("f_28419:irregex_2escm"),(void*)f_28419}, -{C_text("f_28445:irregex_2escm"),(void*)f_28445}, -{C_text("f_28509:irregex_2escm"),(void*)f_28509}, -{C_text("f_28541:irregex_2escm"),(void*)f_28541}, -{C_text("f_28571:irregex_2escm"),(void*)f_28571}, -{C_text("f_28592:irregex_2escm"),(void*)f_28592}, -{C_text("f_28596:irregex_2escm"),(void*)f_28596}, -{C_text("f_28601:irregex_2escm"),(void*)f_28601}, -{C_text("f_28609:irregex_2escm"),(void*)f_28609}, -{C_text("f_28611:irregex_2escm"),(void*)f_28611}, -{C_text("f_28627:irregex_2escm"),(void*)f_28627}, -{C_text("f_28631:irregex_2escm"),(void*)f_28631}, -{C_text("f_28637:irregex_2escm"),(void*)f_28637}, -{C_text("f_28642:irregex_2escm"),(void*)f_28642}, -{C_text("f_28656:irregex_2escm"),(void*)f_28656}, -{C_text("f_28700:irregex_2escm"),(void*)f_28700}, -{C_text("f_28708:irregex_2escm"),(void*)f_28708}, -{C_text("f_28710:irregex_2escm"),(void*)f_28710}, -{C_text("f_28751:irregex_2escm"),(void*)f_28751}, -{C_text("f_28791:irregex_2escm"),(void*)f_28791}, -{C_text("f_28825:irregex_2escm"),(void*)f_28825}, -{C_text("f_28838:irregex_2escm"),(void*)f_28838}, -{C_text("f_28868:irregex_2escm"),(void*)f_28868}, -{C_text("f_28876:irregex_2escm"),(void*)f_28876}, -{C_text("f_28880:irregex_2escm"),(void*)f_28880}, -{C_text("f_28882:irregex_2escm"),(void*)f_28882}, -{C_text("f_28901:irregex_2escm"),(void*)f_28901}, -{C_text("f_28925:irregex_2escm"),(void*)f_28925}, -{C_text("f_28942:irregex_2escm"),(void*)f_28942}, -{C_text("f_28949:irregex_2escm"),(void*)f_28949}, -{C_text("f_28972:irregex_2escm"),(void*)f_28972}, -{C_text("f_28993:irregex_2escm"),(void*)f_28993}, -{C_text("f_28995:irregex_2escm"),(void*)f_28995}, -{C_text("f_29005:irregex_2escm"),(void*)f_29005}, -{C_text("f_29032:irregex_2escm"),(void*)f_29032}, -{C_text("f_29062:irregex_2escm"),(void*)f_29062}, -{C_text("f_29067:irregex_2escm"),(void*)f_29067}, -{C_text("f_29079:irregex_2escm"),(void*)f_29079}, -{C_text("f_29099:irregex_2escm"),(void*)f_29099}, -{C_text("f_29134:irregex_2escm"),(void*)f_29134}, -{C_text("f_29142:irregex_2escm"),(void*)f_29142}, -{C_text("f_29178:irregex_2escm"),(void*)f_29178}, -{C_text("f_29192:irregex_2escm"),(void*)f_29192}, -{C_text("f_29196:irregex_2escm"),(void*)f_29196}, -{C_text("f_29199:irregex_2escm"),(void*)f_29199}, -{C_text("f_29204:irregex_2escm"),(void*)f_29204}, -{C_text("f_29214:irregex_2escm"),(void*)f_29214}, -{C_text("f_29225:irregex_2escm"),(void*)f_29225}, -{C_text("f_29228:irregex_2escm"),(void*)f_29228}, -{C_text("f_29235:irregex_2escm"),(void*)f_29235}, -{C_text("f_29247:irregex_2escm"),(void*)f_29247}, -{C_text("f_29262:irregex_2escm"),(void*)f_29262}, -{C_text("f_29272:irregex_2escm"),(void*)f_29272}, -{C_text("f_29276:irregex_2escm"),(void*)f_29276}, -{C_text("f_29279:irregex_2escm"),(void*)f_29279}, -{C_text("f_29284:irregex_2escm"),(void*)f_29284}, -{C_text("f_29307:irregex_2escm"),(void*)f_29307}, -{C_text("f_29310:irregex_2escm"),(void*)f_29310}, -{C_text("f_29317:irregex_2escm"),(void*)f_29317}, -{C_text("f_29322:irregex_2escm"),(void*)f_29322}, -{C_text("f_29332:irregex_2escm"),(void*)f_29332}, -{C_text("f_29352:irregex_2escm"),(void*)f_29352}, -{C_text("f_29362:irregex_2escm"),(void*)f_29362}, -{C_text("f_29404:irregex_2escm"),(void*)f_29404}, -{C_text("f_29411:irregex_2escm"),(void*)f_29411}, -{C_text("f_29416:irregex_2escm"),(void*)f_29416}, -{C_text("f_29426:irregex_2escm"),(void*)f_29426}, -{C_text("f_29446:irregex_2escm"),(void*)f_29446}, -{C_text("f_29449:irregex_2escm"),(void*)f_29449}, -{C_text("f_29452:irregex_2escm"),(void*)f_29452}, -{C_text("f_29461:irregex_2escm"),(void*)f_29461}, -{C_text("f_29466:irregex_2escm"),(void*)f_29466}, -{C_text("f_29476:irregex_2escm"),(void*)f_29476}, -{C_text("f_29500:irregex_2escm"),(void*)f_29500}, -{C_text("f_29503:irregex_2escm"),(void*)f_29503}, -{C_text("f_29504:irregex_2escm"),(void*)f_29504}, -{C_text("f_29508:irregex_2escm"),(void*)f_29508}, -{C_text("f_29520:irregex_2escm"),(void*)f_29520}, -{C_text("f_29525:irregex_2escm"),(void*)f_29525}, -{C_text("f_29535:irregex_2escm"),(void*)f_29535}, -{C_text("f_29559:irregex_2escm"),(void*)f_29559}, -{C_text("f_29562:irregex_2escm"),(void*)f_29562}, -{C_text("f_29573:irregex_2escm"),(void*)f_29573}, -{C_text("f_29576:irregex_2escm"),(void*)f_29576}, -{C_text("f_29583:irregex_2escm"),(void*)f_29583}, -{C_text("f_29588:irregex_2escm"),(void*)f_29588}, -{C_text("f_29598:irregex_2escm"),(void*)f_29598}, -{C_text("f_29656:irregex_2escm"),(void*)f_29656}, -{C_text("f_29659:irregex_2escm"),(void*)f_29659}, -{C_text("f_29662:irregex_2escm"),(void*)f_29662}, -{C_text("f_29669:irregex_2escm"),(void*)f_29669}, -{C_text("f_29673:irregex_2escm"),(void*)f_29673}, -{C_text("f_29686:irregex_2escm"),(void*)f_29686}, -{C_text("f_29699:irregex_2escm"),(void*)f_29699}, -{C_text("f_29702:irregex_2escm"),(void*)f_29702}, -{C_text("f_29709:irregex_2escm"),(void*)f_29709}, -{C_text("f_29720:irregex_2escm"),(void*)f_29720}, -{C_text("f_29729:irregex_2escm"),(void*)f_29729}, -{C_text("f_29732:irregex_2escm"),(void*)f_29732}, -{C_text("f_29735:irregex_2escm"),(void*)f_29735}, -{C_text("f_29742:irregex_2escm"),(void*)f_29742}, -{C_text("f_29767:irregex_2escm"),(void*)f_29767}, -{C_text("f_29805:irregex_2escm"),(void*)f_29805}, -{C_text("f_29808:irregex_2escm"),(void*)f_29808}, -{C_text("f_29811:irregex_2escm"),(void*)f_29811}, -{C_text("f_29818:irregex_2escm"),(void*)f_29818}, -{C_text("f_29823:irregex_2escm"),(void*)f_29823}, -{C_text("f_29833:irregex_2escm"),(void*)f_29833}, -{C_text("f_29869:irregex_2escm"),(void*)f_29869}, -{C_text("f_30033:irregex_2escm"),(void*)f_30033}, -{C_text("f_30046:irregex_2escm"),(void*)f_30046}, -{C_text("f_30056:irregex_2escm"),(void*)f_30056}, -{C_text("f_30067:irregex_2escm"),(void*)f_30067}, -{C_text("f_30071:irregex_2escm"),(void*)f_30071}, -{C_text("f_30073:irregex_2escm"),(void*)f_30073}, -{C_text("f_30104:irregex_2escm"),(void*)f_30104}, -{C_text("f_30151:irregex_2escm"),(void*)f_30151}, -{C_text("f_30171:irregex_2escm"),(void*)f_30171}, -{C_text("f_30181:irregex_2escm"),(void*)f_30181}, -{C_text("f_30208:irregex_2escm"),(void*)f_30208}, -{C_text("f_30230:irregex_2escm"),(void*)f_30230}, -{C_text("f_30332:irregex_2escm"),(void*)f_30332}, -{C_text("f_30797:irregex_2escm"),(void*)f_30797}, -{C_text("f_30959:irregex_2escm"),(void*)f_30959}, -{C_text("f_30962:irregex_2escm"),(void*)f_30962}, -{C_text("f_30996:irregex_2escm"),(void*)f_30996}, -{C_text("f_31000:irregex_2escm"),(void*)f_31000}, -{C_text("f_31003:irregex_2escm"),(void*)f_31003}, -{C_text("f_31006:irregex_2escm"),(void*)f_31006}, -{C_text("f_31009:irregex_2escm"),(void*)f_31009}, -{C_text("f_31012:irregex_2escm"),(void*)f_31012}, -{C_text("f_7521:irregex_2escm"),(void*)f_7521}, -{C_text("f_7524:irregex_2escm"),(void*)f_7524}, -{C_text("f_7532:irregex_2escm"),(void*)f_7532}, -{C_text("f_7536:irregex_2escm"),(void*)f_7536}, -{C_text("f_7539:irregex_2escm"),(void*)f_7539}, -{C_text("f_7545:irregex_2escm"),(void*)f_7545}, -{C_text("f_7587:irregex_2escm"),(void*)f_7587}, -{C_text("f_7605:irregex_2escm"),(void*)f_7605}, -{C_text("f_7614:irregex_2escm"),(void*)f_7614}, -{C_text("f_7622:irregex_2escm"),(void*)f_7622}, -{C_text("f_7635:irregex_2escm"),(void*)f_7635}, -{C_text("f_7637:irregex_2escm"),(void*)f_7637}, -{C_text("f_7644:irregex_2escm"),(void*)f_7644}, -{C_text("f_7646:irregex_2escm"),(void*)f_7646}, -{C_text("f_7660:irregex_2escm"),(void*)f_7660}, -{C_text("f_7678:irregex_2escm"),(void*)f_7678}, -{C_text("f_7684:irregex_2escm"),(void*)f_7684}, -{C_text("f_7709:irregex_2escm"),(void*)f_7709}, -{C_text("f_7755:irregex_2escm"),(void*)f_7755}, -{C_text("f_7768:irregex_2escm"),(void*)f_7768}, -{C_text("f_7770:irregex_2escm"),(void*)f_7770}, -{C_text("f_7774:irregex_2escm"),(void*)f_7774}, -{C_text("f_7795:irregex_2escm"),(void*)f_7795}, -{C_text("f_7799:irregex_2escm"),(void*)f_7799}, -{C_text("f_7824:irregex_2escm"),(void*)f_7824}, -{C_text("f_7828:irregex_2escm"),(void*)f_7828}, -{C_text("f_7853:irregex_2escm"),(void*)f_7853}, -{C_text("f_7857:irregex_2escm"),(void*)f_7857}, -{C_text("f_7946:irregex_2escm"),(void*)f_7946}, -{C_text("f_8014:irregex_2escm"),(void*)f_8014}, -{C_text("f_8056:irregex_2escm"),(void*)f_8056}, -{C_text("f_8058:irregex_2escm"),(void*)f_8058}, -{C_text("f_8128:irregex_2escm"),(void*)f_8128}, -{C_text("f_8130:irregex_2escm"),(void*)f_8130}, -{C_text("f_8134:irregex_2escm"),(void*)f_8134}, -{C_text("f_8191:irregex_2escm"),(void*)f_8191}, -{C_text("f_8193:irregex_2escm"),(void*)f_8193}, -{C_text("f_8197:irregex_2escm"),(void*)f_8197}, -{C_text("f_8274:irregex_2escm"),(void*)f_8274}, -{C_text("f_8278:irregex_2escm"),(void*)f_8278}, -{C_text("f_8364:irregex_2escm"),(void*)f_8364}, -{C_text("f_8398:irregex_2escm"),(void*)f_8398}, -{C_text("f_8404:irregex_2escm"),(void*)f_8404}, -{C_text("f_8438:irregex_2escm"),(void*)f_8438}, -{C_text("f_8452:irregex_2escm"),(void*)f_8452}, -{C_text("f_8459:irregex_2escm"),(void*)f_8459}, -{C_text("f_8465:irregex_2escm"),(void*)f_8465}, -{C_text("f_8483:irregex_2escm"),(void*)f_8483}, -{C_text("f_8487:irregex_2escm"),(void*)f_8487}, -{C_text("f_8491:irregex_2escm"),(void*)f_8491}, -{C_text("f_8498:irregex_2escm"),(void*)f_8498}, -{C_text("f_8506:irregex_2escm"),(void*)f_8506}, -{C_text("f_8510:irregex_2escm"),(void*)f_8510}, -{C_text("f_8514:irregex_2escm"),(void*)f_8514}, -{C_text("f_8518:irregex_2escm"),(void*)f_8518}, -{C_text("f_8522:irregex_2escm"),(void*)f_8522}, -{C_text("f_8526:irregex_2escm"),(void*)f_8526}, -{C_text("f_8530:irregex_2escm"),(void*)f_8530}, -{C_text("f_8539:irregex_2escm"),(void*)f_8539}, -{C_text("f_8547:irregex_2escm"),(void*)f_8547}, -{C_text("f_8556:irregex_2escm"),(void*)f_8556}, -{C_text("f_8614:irregex_2escm"),(void*)f_8614}, -{C_text("f_8618:irregex_2escm"),(void*)f_8618}, -{C_text("f_8632:irregex_2escm"),(void*)f_8632}, -{C_text("f_8636:irregex_2escm"),(void*)f_8636}, -{C_text("f_8649:irregex_2escm"),(void*)f_8649}, -{C_text("f_8660:irregex_2escm"),(void*)f_8660}, -{C_text("f_8662:irregex_2escm"),(void*)f_8662}, -{C_text("f_8669:irregex_2escm"),(void*)f_8669}, -{C_text("f_8682:irregex_2escm"),(void*)f_8682}, -{C_text("f_8689:irregex_2escm"),(void*)f_8689}, -{C_text("f_8728:irregex_2escm"),(void*)f_8728}, -{C_text("f_8755:irregex_2escm"),(void*)f_8755}, -{C_text("f_8787:irregex_2escm"),(void*)f_8787}, -{C_text("f_8794:irregex_2escm"),(void*)f_8794}, -{C_text("f_8809:irregex_2escm"),(void*)f_8809}, -{C_text("f_8822:irregex_2escm"),(void*)f_8822}, -{C_text("f_8865:irregex_2escm"),(void*)f_8865}, -{C_text("f_8922:irregex_2escm"),(void*)f_8922}, -{C_text("f_8960:irregex_2escm"),(void*)f_8960}, -{C_text("f_8963:irregex_2escm"),(void*)f_8963}, -{C_text("f_8971:irregex_2escm"),(void*)f_8971}, -{C_text("f_8984:irregex_2escm"),(void*)f_8984}, -{C_text("f_9003:irregex_2escm"),(void*)f_9003}, -{C_text("f_9075:irregex_2escm"),(void*)f_9075}, -{C_text("f_9100:irregex_2escm"),(void*)f_9100}, -{C_text("f_9108:irregex_2escm"),(void*)f_9108}, -{C_text("f_9110:irregex_2escm"),(void*)f_9110}, -{C_text("f_9124:irregex_2escm"),(void*)f_9124}, -{C_text("f_9127:irregex_2escm"),(void*)f_9127}, -{C_text("f_9129:irregex_2escm"),(void*)f_9129}, -{C_text("f_9146:irregex_2escm"),(void*)f_9146}, -{C_text("f_9153:irregex_2escm"),(void*)f_9153}, -{C_text("f_9169:irregex_2escm"),(void*)f_9169}, -{C_text("f_9190:irregex_2escm"),(void*)f_9190}, -{C_text("f_9196:irregex_2escm"),(void*)f_9196}, -{C_text("f_9209:irregex_2escm"),(void*)f_9209}, -{C_text("f_9251:irregex_2escm"),(void*)f_9251}, -{C_text("f_9266:irregex_2escm"),(void*)f_9266}, -{C_text("f_9289:irregex_2escm"),(void*)f_9289}, -{C_text("f_9305:irregex_2escm"),(void*)f_9305}, -{C_text("f_9318:irregex_2escm"),(void*)f_9318}, -{C_text("f_9332:irregex_2escm"),(void*)f_9332}, -{C_text("f_9350:irregex_2escm"),(void*)f_9350}, -{C_text("f_9366:irregex_2escm"),(void*)f_9366}, -{C_text("f_9377:irregex_2escm"),(void*)f_9377}, -{C_text("f_9383:irregex_2escm"),(void*)f_9383}, -{C_text("f_9401:irregex_2escm"),(void*)f_9401}, -{C_text("f_9707:irregex_2escm"),(void*)f_9707}, -{C_text("f_9716:irregex_2escm"),(void*)f_9716}, -{C_text("f_9734:irregex_2escm"),(void*)f_9734}, -{C_text("f_9741:irregex_2escm"),(void*)f_9741}, -{C_text("f_9768:irregex_2escm"),(void*)f_9768}, -{C_text("f_9774:irregex_2escm"),(void*)f_9774}, -{C_text("f_9788:irregex_2escm"),(void*)f_9788}, -{C_text("f_9808:irregex_2escm"),(void*)f_9808}, -{C_text("f_9814:irregex_2escm"),(void*)f_9814}, -{C_text("f_9831:irregex_2escm"),(void*)f_9831}, -{C_text("f_9835:irregex_2escm"),(void*)f_9835}, -{C_text("f_9882:irregex_2escm"),(void*)f_9882}, -{C_text("f_9931:irregex_2escm"),(void*)f_9931}, -{C_text("f_9959:irregex_2escm"),(void*)f_9959}, -{C_text("f_9970:irregex_2escm"),(void*)f_9970}, -{C_text("toplevel:irregex_2escm"),(void*)C_irregex_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.irregex#d -o|hiding unexported module binding: chicken.irregex#define-alias -o|hiding unexported module binding: chicken.irregex#build-cache -o|hiding unexported module binding: chicken.irregex#%vector-copy -o|hiding unexported module binding: chicken.irregex#%vector-copy! -o|hiding unexported module binding: chicken.irregex#%vector-copy -o|hiding unexported module binding: chicken.irregex#irregex-dfa -o|hiding unexported module binding: chicken.irregex#irregex-dfa/search -o|hiding unexported module binding: chicken.irregex#irregex-nfa -o|hiding unexported module binding: chicken.irregex#irregex-flags -o|hiding unexported module binding: chicken.irregex#irregex-lengths -o|hiding unexported module binding: chicken.irregex#irregex-new-matches -o|hiding unexported module binding: chicken.irregex#irregex-reset-matches! -o|hiding unexported module binding: chicken.irregex#irregex-copy-matches -o|hiding unexported module binding: chicken.irregex#irregex-match-chunker -o|hiding unexported module binding: chicken.irregex#irregex-match-chunker-set! -o|hiding unexported module binding: chicken.irregex#%irregex-match-end-index -o|hiding unexported module binding: chicken.irregex#%irregex-match-fail -o|hiding unexported module binding: chicken.irregex#%irregex-match-fail-set! -o|hiding unexported module binding: chicken.irregex#irregex-match-valid-named-index? -o|hiding unexported module binding: chicken.irregex#irregex-match-start-chunk-set! -o|hiding unexported module binding: chicken.irregex#irregex-match-start-index-set! -o|hiding unexported module binding: chicken.irregex#irregex-match-end-chunk-set! -o|hiding unexported module binding: chicken.irregex#irregex-match-end-index-set! -o|hiding unexported module binding: chicken.irregex#irregex-match-chunk&index-from-tag-set! -o|hiding unexported module binding: chicken.irregex#irregex-match-numeric-index -o|hiding unexported module binding: chicken.irregex#chunker-get-next -o|hiding unexported module binding: chicken.irregex#chunker-get-str -o|hiding unexported module binding: chicken.irregex#chunker-get-start -o|hiding unexported module binding: chicken.irregex#chunker-get-end -o|hiding unexported module binding: chicken.irregex#chunker-get-substring -o|hiding unexported module binding: chicken.irregex#chunker-get-subchunk -o|hiding unexported module binding: chicken.irregex#chunker-prev-chunk -o|hiding unexported module binding: chicken.irregex#chunker-prev-char -o|hiding unexported module binding: chicken.irregex#chunker-next-char -o|hiding unexported module binding: chicken.irregex#chunk-before? -o|hiding unexported module binding: chicken.irregex#wrap-end-chunker -o|hiding unexported module binding: chicken.irregex#*all-chars* -o|hiding unexported module binding: chicken.irregex#*allow-utf8-mode?* -o|hiding unexported module binding: chicken.irregex#string-scan-char -o|hiding unexported module binding: chicken.irregex#string-scan-char-escape -o|hiding unexported module binding: chicken.irregex#string-scan-pred -o|hiding unexported module binding: chicken.irregex#string-split-char -o|hiding unexported module binding: chicken.irregex#char-alphanumeric? -o|hiding unexported module binding: chicken.irregex#%substring=? -o|hiding unexported module binding: chicken.irregex#%%string-copy! -o|hiding unexported module binding: chicken.irregex#string-cat-reverse -o|hiding unexported module binding: chicken.irregex#string-cat-reverse/aux -o|hiding unexported module binding: chicken.irregex#zero-to -o|hiding unexported module binding: chicken.irregex#find -o|hiding unexported module binding: chicken.irregex#find-tail -o|hiding unexported module binding: chicken.irregex#last -o|hiding unexported module binding: chicken.irregex#any -o|hiding unexported module binding: chicken.irregex#every -o|hiding unexported module binding: chicken.irregex#fold -o|hiding unexported module binding: chicken.irregex#filter -o|hiding unexported module binding: chicken.irregex#remove -o|hiding unexported module binding: chicken.irregex#bit-shr -o|hiding unexported module binding: chicken.irregex#bit-shl -o|hiding unexported module binding: chicken.irregex#bit-not -o|hiding unexported module binding: chicken.irregex#bit-ior -o|hiding unexported module binding: chicken.irregex#bit-and -o|hiding unexported module binding: chicken.irregex#integer-log -o|hiding unexported module binding: chicken.irregex#flag-set? -o|hiding unexported module binding: chicken.irregex#flag-join -o|hiding unexported module binding: chicken.irregex#flag-clear -o|hiding unexported module binding: chicken.irregex#~none -o|hiding unexported module binding: chicken.irregex#~searcher? -o|hiding unexported module binding: chicken.irregex#~consumer? -o|hiding unexported module binding: chicken.irregex#close-token -o|hiding unexported module binding: chicken.irregex#dot-token -o|hiding unexported module binding: chicken.irregex#with-read-from-string -o|hiding unexported module binding: chicken.irregex#~save? -o|hiding unexported module binding: chicken.irregex#~case-insensitive? -o|hiding unexported module binding: chicken.irregex#~multi-line? -o|hiding unexported module binding: chicken.irregex#~single-line? -o|hiding unexported module binding: chicken.irregex#~ignore-space? -o|hiding unexported module binding: chicken.irregex#~utf8? -o|hiding unexported module binding: chicken.irregex#symbol-list->flags -o|hiding unexported module binding: chicken.irregex#posix-escape-sequences -o|hiding unexported module binding: chicken.irregex#char-altcase -o|hiding unexported module binding: chicken.irregex#char-mirror -o|hiding unexported module binding: chicken.irregex#string-parse-hex-escape -o|hiding unexported module binding: chicken.irregex#string-parse-cset -o|hiding unexported module binding: chicken.irregex#high-char? -o|hiding unexported module binding: chicken.irregex#utf8-start-char->length -o|hiding unexported module binding: chicken.irregex#utf8-string-ref -o|hiding unexported module binding: chicken.irregex#utf8-backup-to-initial-char -o|hiding unexported module binding: chicken.irregex#utf8-lowest-digit-of-length -o|hiding unexported module binding: chicken.irregex#utf8-highest-digit-of-length -o|hiding unexported module binding: chicken.irregex#char->utf8-list -o|hiding unexported module binding: chicken.irregex#unicode-range->utf8-pattern -o|hiding unexported module binding: chicken.irregex#unicode-range-helper -o|hiding unexported module binding: chicken.irregex#unicode-range-up-from -o|hiding unexported module binding: chicken.irregex#unicode-range-up-to -o|hiding unexported module binding: chicken.irregex#unicode-range-climb-digits -o|hiding unexported module binding: chicken.irregex#unicode-range-middle -o|hiding unexported module binding: chicken.irregex#cset->utf8-pattern -o|hiding unexported module binding: chicken.irregex#sre-adjust-utf8 -o|hiding unexported module binding: chicken.irregex#cached -o|hiding unexported module binding: chicken.irregex#sre-empty? -o|hiding unexported module binding: chicken.irregex#sre-any? -o|hiding unexported module binding: chicken.irregex#sre-repeater? -o|hiding unexported module binding: chicken.irregex#sre-bos? -o|hiding unexported module binding: chicken.irregex#sre-searcher? -o|hiding unexported module binding: chicken.irregex#sre-consumer? -o|hiding unexported module binding: chicken.irregex#sre-has-submatches? -o|hiding unexported module binding: chicken.irregex#sre-count-submatches -o|hiding unexported module binding: chicken.irregex#sre-length-ranges -o|hiding unexported module binding: chicken.irregex#sre-sequence -o|hiding unexported module binding: chicken.irregex#sre-alternate -o|hiding unexported module binding: chicken.irregex#sre-strip-submatches -o|hiding unexported module binding: chicken.irregex#sre-flatten-ranges -o|hiding unexported module binding: chicken.irregex#sre-names -o|hiding unexported module binding: chicken.irregex#sre-sequence-names -o|hiding unexported module binding: chicken.irregex#sre-remove-initial-bos -o|hiding unexported module binding: chicken.irregex#irregex-basic-string-chunker -o|hiding unexported module binding: chicken.irregex#irregex-search/matches -o|hiding unexported module binding: chicken.irregex#irregex-search/backtrack -o|hiding unexported module binding: chicken.irregex#dfa-init-state -o|hiding unexported module binding: chicken.irregex#dfa-next-state -o|hiding unexported module binding: chicken.irregex#dfa-cell-commands -o|hiding unexported module binding: chicken.irregex#dfa-finalizer -o|hiding unexported module binding: chicken.irregex#dfa-match/shortest -o|hiding unexported module binding: chicken.irregex#finalize! -o|hiding unexported module binding: chicken.irregex#make-initial-memory -o|hiding unexported module binding: chicken.irregex#dfa-match/longest -o|hiding unexported module binding: chicken.irregex#sre-named-definitions -o|hiding unexported module binding: chicken.irregex#*nfa-presize* -o|hiding unexported module binding: chicken.irregex#*nfa-num-fields* -o|hiding unexported module binding: chicken.irregex#nfa-num-states -o|hiding unexported module binding: chicken.irregex#nfa-start-state -o|hiding unexported module binding: chicken.irregex#nfa-num-tags -o|hiding unexported module binding: chicken.irregex#nfa-highest-map-index -o|hiding unexported module binding: chicken.irregex#nfa-set-highest-map-index! -o|hiding unexported module binding: chicken.irregex#nfa-get-state-trans -o|hiding unexported module binding: chicken.irregex#nfa-set-state-trans! -o|hiding unexported module binding: chicken.irregex#nfa-get-epsilons -o|hiding unexported module binding: chicken.irregex#nfa-set-epsilons! -o|hiding unexported module binding: chicken.irregex#nfa-add-epsilon! -o|hiding unexported module binding: chicken.irregex#nfa-get-reorder-commands -o|hiding unexported module binding: chicken.irregex#nfa-set-reorder-commands! -o|hiding unexported module binding: chicken.irregex#nfa-get-closure -o|hiding unexported module binding: chicken.irregex#nfa-add-closure! -o|hiding unexported module binding: chicken.irregex#sre->nfa -o|hiding unexported module binding: chicken.irregex#*mst-first-state-index* -o|hiding unexported module binding: chicken.irregex#mst-mappings-summary -o|hiding unexported module binding: chicken.irregex#mst-num-states -o|hiding unexported module binding: chicken.irregex#mst-num-states-set! -o|hiding unexported module binding: chicken.irregex#mst-hash -o|hiding unexported module binding: chicken.irregex#mst-hash-set! -o|hiding unexported module binding: chicken.irregex#mst-state-mappings -o|hiding unexported module binding: chicken.irregex#mst-state-mappings-set! -o|hiding unexported module binding: chicken.irregex#make-mst -o|hiding unexported module binding: chicken.irregex#mst-copy -o|hiding unexported module binding: chicken.irregex#nfa-state->mst -o|hiding unexported module binding: chicken.irregex#mst-add! -o|hiding unexported module binding: chicken.irregex#mst-add/fast! -o|hiding unexported module binding: chicken.irregex#mst-add-tagged! -o|hiding unexported module binding: chicken.irregex#mst-same-states? -o|hiding unexported module binding: chicken.irregex#mst-fold -o|hiding unexported module binding: chicken.irregex#next-index-for-tag! -o|hiding unexported module binding: chicken.irregex#nfa->dfa -o|hiding unexported module binding: chicken.irregex#dfa-renumber -o|hiding unexported module binding: chicken.irregex#get-distinct-transitions -o|hiding unexported module binding: chicken.irregex#nfa-epsilon-closure-internal -o|hiding unexported module binding: chicken.irregex#nfa-epsilon-closure -o|hiding unexported module binding: chicken.irregex#tag-set-commands-for-closure -o|hiding unexported module binding: chicken.irregex#find-reorder-commands-internal -o|hiding unexported module binding: chicken.irregex#find-reorder-commands -o|hiding unexported module binding: chicken.irregex#sre->procedure -o|hiding unexported module binding: chicken.irregex#sre-cset->procedure -o|hiding unexported module binding: chicken.irregex#make-cset -o|hiding unexported module binding: chicken.irregex#range->cset -o|hiding unexported module binding: chicken.irregex#char->cset -o|hiding unexported module binding: chicken.irregex#cset-empty? -o|hiding unexported module binding: chicken.irregex#maybe-cset->char -o|hiding unexported module binding: chicken.irregex#cset=? -o|hiding unexported module binding: chicken.irregex#cset-size -o|hiding unexported module binding: chicken.irregex#cset->plist -o|hiding unexported module binding: chicken.irregex#plist->cset -o|hiding unexported module binding: chicken.irregex#string->cset -o|hiding unexported module binding: chicken.irregex#sre->cset -o|hiding unexported module binding: chicken.irregex#cset->sre -o|hiding unexported module binding: chicken.irregex#cset-contains? -o|hiding unexported module binding: chicken.irregex#char-ranges-union -o|hiding unexported module binding: chicken.irregex#cset-union -o|hiding unexported module binding: chicken.irregex#cset-adjoin -o|hiding unexported module binding: chicken.irregex#next-char -o|hiding unexported module binding: chicken.irregex#prev-char -o|hiding unexported module binding: chicken.irregex#cset-difference -o|hiding unexported module binding: chicken.irregex#min-char -o|hiding unexported module binding: chicken.irregex#max-char -o|hiding unexported module binding: chicken.irregex#cset-intersection -o|hiding unexported module binding: chicken.irregex#cset-complement -o|hiding unexported module binding: chicken.irregex#cset-case-insensitive -o|hiding unexported module binding: chicken.irregex#irregex-fold/fast -o|hiding unexported module binding: chicken.irregex#irregex-fold/chunked/fast -o|hiding unexported module binding: chicken.irregex#irregex-apply-match -o|hiding unexported module binding: chicken.irregex#rx-special-chars -o|hiding unexported module binding: chicken.irregex#string-scan-char -o|hiding unexported module binding: chicken.irregex#cset->string -S|applied compiler syntax: -S| irregex-match-chunk&index-from-tag-set! 1 -S| scheme#for-each 12 -S| irregex-match-end-index-set! 7 -S| irregex-match-end-chunk-set! 7 -S| irregex-match-start-index-set! 7 -S| irregex-match-start-chunk-set! 7 -S| make-irregex 2 -S| scheme#map 24 -S| bit-not 1 -S| bit-shr 10 -S| bit-shl 11 -S| bit-and 18 -S| bit-ior 11 -S| scheme#reverse 35 -S| make-irregex-match 1 -o|eliminated procedure checks: 537 -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#integer->char (quote 0)) -o|folded constant expression: (scheme#integer->char (quote 55295)) -o|folded constant expression: (scheme#integer->char (quote 57344)) -o|folded constant expression: (scheme#integer->char (quote 1114111)) -o|folded constant expression: (scheme#string->symbol (quote ".")) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#+ (quote 10) (quote 3)) -o|folded constant expression: (scheme#integer->char (quote 13)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#- (quote 10) (quote 1)) -o|folded constant expression: (scheme#integer->char (quote 9)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#- (quote 10) (quote 3)) -o|folded constant expression: (scheme#integer->char (quote 7)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#+ (quote 10) (quote 17)) -o|folded constant expression: (scheme#integer->char (quote 27)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#+ (quote 10) (quote 2)) -o|folded constant expression: (scheme#integer->char (quote 12)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#integer->char (quote 255)) -o|folded constant expression: (scheme#integer->char (quote 255)) -o|folded constant expression: (scheme#integer->char (quote 255)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#integer->char (quote 255)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#integer->char (quote 255)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#integer->char (quote 255)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#integer->char (quote 255)) -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#- (quote 32) (quote 23)) -o|folded constant expression: (scheme#integer->char (quote 9)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#- (quote 32) (quote 32)) -o|folded constant expression: (scheme#integer->char (quote 0)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#- (quote 32) (quote 1)) -o|folded constant expression: (scheme#integer->char (quote 31)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#- (quote 32) (quote 32)) -o|folded constant expression: (scheme#integer->char (quote 0)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 95)) -o|folded constant expression: (scheme#integer->char (quote 127)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#- (quote 32) (quote 32)) -o|folded constant expression: (scheme#integer->char (quote 0)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#- (quote 10) (quote 1)) -o|folded constant expression: (scheme#integer->char (quote 9)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#+ (quote 10) (quote 1)) -o|folded constant expression: (scheme#integer->char (quote 11)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 95)) -o|folded constant expression: (scheme#integer->char (quote 127)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#+ (quote 10) (quote 3)) -o|folded constant expression: (scheme#integer->char (quote 13)) -o|folded constant expression: (scheme#char->integer (quote #\newline)) -o|folded constant expression: (scheme#+ (quote 10) (quote 3)) -o|folded constant expression: (scheme#integer->char (quote 13)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 96)) -o|folded constant expression: (scheme#integer->char (quote 128)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 161)) -o|folded constant expression: (scheme#integer->char (quote 193)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 162)) -o|folded constant expression: (scheme#integer->char (quote 194)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 191)) -o|folded constant expression: (scheme#integer->char (quote 223)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 192)) -o|folded constant expression: (scheme#integer->char (quote 224)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 207)) -o|folded constant expression: (scheme#integer->char (quote 239)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 208)) -o|folded constant expression: (scheme#integer->char (quote 240)) -o|folded constant expression: (scheme#char->integer (quote #\space)) -o|folded constant expression: (scheme#+ (quote 32) (quote 215)) -o|folded constant expression: (scheme#integer->char (quote 247)) -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#+ (quote 2) (quote 0)) -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|folded constant expression: (scheme#+ (quote 3) (quote 0)) -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|specializations: -o| 1 (scheme#> fixnum fixnum) -o| 1 (scheme#> integer integer) -o| 1 (scheme#< integer integer) -o| 1 (scheme#char= fixnum fixnum) -o| 1 (scheme#< fixnum fixnum) -o| 5 (scheme#<= fixnum fixnum) -o| 7 (scheme#>= integer integer) -o| 6 (scheme#cddr (pair * pair)) -o| 17 (scheme#memq * list) -o| 4 (##sys#check-list (or pair list) *) -o| 3 (scheme#memv (or symbol keyword procedure eof null fixnum char boolean) list) -o| 3 (scheme#string-ref string fixnum) -o| 1 (scheme#number->string *) -o| 128 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) -o| 6 (scheme#+ integer integer) -o| 7 (scheme#* fixnum fixnum) -o| 4 (scheme#odd? *) -o| 13 (scheme#zero? *) -o| 4 (scheme#char=? char char) -o| 264 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) -o| 215 (scheme#cdr pair) -o| 5 (scheme#cdar (pair pair *)) -o| 12 (scheme#integer? *) -o| 159 (scheme#car pair) -o| 16 (scheme#- fixnum fixnum) -o| 1 (chicken.irregex#irregex-names (struct regexp)) -o| 1 (scheme#* integer integer) -o| 215 (scheme#+ fixnum fixnum) -(o e)|safe calls: 3629 -(o e)|assignments to immediate values: 13 -o|dropping redundant toplevel assignment: chicken.irregex#%vector-copy -o|safe globals: (chicken.irregex#%irregex-match-fail-set! chicken.irregex#%irregex-match-fail chicken.irregex#%irregex-match-end-index chicken.irregex#irregex-match-chunker-set! chicken.irregex#irregex-match-names chicken.irregex#irregex-match-chunker chicken.irregex#irregex-match-num-submatches chicken.irregex#irregex-match-data? chicken.irregex#irregex-copy-matches chicken.irregex#irregex-reset-matches! chicken.irregex#irregex-new-matches chicken.irregex#irregex-names chicken.irregex#irregex-lengths chicken.irregex#irregex-num-submatches chicken.irregex#irregex-flags chicken.irregex#irregex-nfa chicken.irregex#irregex-dfa/search chicken.irregex#irregex-dfa chicken.irregex#irregex? chicken.irregex#%vector-copy chicken.irregex#%vector-copy!) -o|contracted procedure: "(irregex-core.scm:94) chicken.irregex#%vector-copy!" -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-dfa/search -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-flags -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-lengths -o|substituted constant variable: a7631 -o|substituted constant variable: a7629 -o|inlining procedure: k7648 -o|inlining procedure: k7648 -o|substituted constant variable: a7693 -o|inlining procedure: k7775 -o|contracted procedure: "(irregex-core.scm:237) g779780" -o|inlining procedure: k7775 -o|inlining procedure: k7800 -o|contracted procedure: "(irregex-core.scm:240) g788789" -o|inlining procedure: k7800 -o|inlining procedure: k7829 -o|contracted procedure: "(irregex-core.scm:243) g797798" -o|inlining procedure: k7829 -o|inlining procedure: k7858 -o|inlining procedure: k7858 -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-start-chunk-set! -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-start-index-set! -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-end-chunk-set! -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-end-index-set! -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunk&index-from-tag-set! -o|inlining procedure: k7948 -o|inlining procedure: k7948 -o|inlining procedure: k7963 -o|inlining procedure: k7963 -o|inlining procedure: k7979 -o|inlining procedure: k8015 -o|inlining procedure: k8015 -o|contracted procedure: "(irregex-core.scm:282) g845846" -o|inlining procedure: k8023 -o|inlining procedure: k8023 -o|contracted procedure: "(irregex-core.scm:281) g838839" -o|inlining procedure: k7993 -o|substituted constant variable: a8011 -o|inlining procedure: k7993 -o|inlining procedure: k7979 -o|inlining procedure: k8060 -o|inlining procedure: k8060 -o|inlining procedure: k8078 -o|inlining procedure: k8078 -o|contracted procedure: "(irregex-core.scm:292) g859860" -o|inlining procedure: k8135 -o|contracted procedure: "(irregex-core.scm:303) g867868" -o|inlining procedure: k8153 -o|substituted constant variable: a8171 -o|inlining procedure: k8153 -o|inlining procedure: k8135 -o|contracted procedure: "(irregex-core.scm:304) chicken.irregex#irregex-match-valid-named-index?" -o|inlining procedure: k7759 -o|inlining procedure: k7759 -o|inlining procedure: k8201 -o|contracted procedure: "(irregex-core.scm:313) g890891" -o|contracted procedure: "(irregex-core.scm:312) g886887" -o|contracted procedure: "(irregex-core.scm:311) g882883" -o|inlining procedure: "(irregex-core.scm:310) chicken.irregex#chunker-get-substring" -o|inlining procedure: k8201 -o|inlining procedure: "(irregex-core.scm:308) chicken.irregex#irregex-match-chunker" -o|inlining procedure: k8285 -o|inlining procedure: k8285 -o|contracted procedure: "(irregex-core.scm:325) g909910" -o|contracted procedure: "(irregex-core.scm:324) g905906" -o|contracted procedure: "(irregex-core.scm:323) g901902" -o|inlining procedure: "(irregex-core.scm:319) chicken.irregex#chunker-get-subchunk" -o|inlining procedure: "(irregex-core.scm:318) chicken.irregex#irregex-match-chunker" -o|inlining procedure: k8409 -o|inlining procedure: k8421 -o|inlining procedure: k8421 -o|inlining procedure: k8409 -o|inlining procedure: k8440 -o|inlining procedure: k8440 -o|inlining procedure: k8467 -o|inlining procedure: k8467 -o|inlining procedure: k8637 -o|inlining procedure: "(irregex-core.scm:384) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:383) chicken.irregex#chunker-get-str" -o|inlining procedure: k8637 -o|contracted procedure: "(irregex-core.scm:381) chicken.irregex#chunker-prev-chunk" -o|inlining procedure: k8601 -o|inlining procedure: k8601 -o|inlining procedure: k8619 -o|inlining procedure: k8619 -o|inlining procedure: "(irregex-core.scm:373) chicken.irregex#chunker-get-next" -o|inlining procedure: k8670 -o|inlining procedure: "(irregex-core.scm:390) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:389) chicken.irregex#chunker-get-str" -o|inlining procedure: k8670 -o|inlining procedure: "(irregex-core.scm:387) chicken.irregex#chunker-get-next" -o|inlining procedure: k8824 -o|inlining procedure: k8824 -o|substituted constant variable: a8841 -o|inlining procedure: k9021 -o|inlining procedure: k9021 -o|removed side-effect free assignment to unused variable: chicken.irregex#%substring=? -o|contracted procedure: "(irregex-core.scm:492) chicken.irregex#string-cat-reverse/aux" -o|inlining procedure: k9131 -o|contracted procedure: "(irregex-core.scm:503) chicken.irregex#%%string-copy!" -o|inlining procedure: k9077 -o|inlining procedure: k9077 -o|substituted constant variable: a9091 -o|substituted constant variable: a9094 -o|inlining procedure: k9131 -o|inlining procedure: k9155 -o|inlining procedure: k9155 -o|inlining procedure: k9171 -o|inlining procedure: k9171 -o|inlining procedure: k9198 -o|inlining procedure: k9198 -o|removed side-effect free assignment to unused variable: chicken.irregex#find-tail -o|inlining procedure: k9253 -o|inlining procedure: k9253 -o|inlining procedure: k9268 -o|inlining procedure: k9268 -o|inlining procedure: k9291 -o|inlining procedure: k9307 -o|inlining procedure: k9307 -o|inlining procedure: k9291 -o|inlining procedure: k9337 -o|inlining procedure: k9337 -o|inlining procedure: k9352 -o|inlining procedure: k9352 -o|inlining procedure: k9385 -o|inlining procedure: k9385 -o|removed side-effect free assignment to unused variable: chicken.irregex#filter -o|removed side-effect free assignment to unused variable: chicken.irregex#remove -o|removed side-effect free assignment to unused variable: chicken.irregex#bit-shr -o|removed side-effect free assignment to unused variable: chicken.irregex#bit-shl -o|removed side-effect free assignment to unused variable: chicken.irregex#bit-not -o|removed side-effect free assignment to unused variable: chicken.irregex#bit-ior -o|removed side-effect free assignment to unused variable: chicken.irregex#bit-and -o|removed side-effect free assignment to unused variable: chicken.irregex#integer-log -o|inlining procedure: k9709 -o|inlining procedure: k9709 -o|inlining procedure: k9743 -o|inlining procedure: k9743 -o|substituted constant variable: a9766 -o|inlining procedure: k9776 -o|inlining procedure: k9776 -o|inlining procedure: k9795 -o|inlining procedure: k9795 -o|inlining procedure: k9816 -o|inlining procedure: k9816 -o|substituted constant variable: chicken.irregex#dot-token -o|inlining procedure: k9857 -o|substituted constant variable: a9868 -o|inlining procedure: k9857 -o|substituted constant variable: a9880 -o|inlining procedure: k9884 -o|inlining procedure: k9884 -o|substituted constant variable: a9910 -o|inlining procedure: k9915 -o|substituted constant variable: a9929 -o|substituted constant variable: a9946 -o|inlining procedure: k9915 -o|substituted constant variable: a9980 -o|substituted constant variable: a9982 -o|substituted constant variable: a9989 -o|substituted constant variable: a9996 -o|substituted constant variable: a9999 -o|inlining procedure: k10000 -o|substituted constant variable: a10011 -o|substituted constant variable: a10014 -o|inlining procedure: k10021 -o|inlining procedure: k10021 -o|inlining procedure: k10034 -o|inlining procedure: k10034 -o|substituted constant variable: a10061 -o|inlining procedure: k10066 -o|substituted constant variable: a10077 -o|substituted constant variable: a10080 -o|inlining procedure: k10066 -o|substituted constant variable: a10090 -o|substituted constant variable: a10092 -o|substituted constant variable: a10094 -o|inlining procedure: k10000 -o|inlining procedure: k10104 -o|substituted constant variable: a10115 -o|inlining procedure: k10104 -o|substituted constant variable: a10133 -o|inlining procedure: k10141 -o|inlining procedure: k10141 -o|substituted constant variable: a10157 -o|inlining procedure: k10153 -o|inlining procedure: k10153 -o|substituted constant variable: a10169 -o|substituted constant variable: a10171 -o|inlining procedure: k10172 -o|substituted constant variable: a10190 -o|substituted constant variable: a10191 -o|substituted constant variable: a10198 -o|inlining procedure: k10172 -o|substituted constant variable: a10206 -o|substituted constant variable: a10208 -o|substituted constant variable: a10210 -o|substituted constant variable: a10212 -o|substituted constant variable: a10215 -o|inlining procedure: k10216 -o|substituted constant variable: a10227 -o|inlining procedure: k10216 -o|substituted constant variable: a10233 -o|inlining procedure: k10237 -o|inlining procedure: k10256 -o|inlining procedure: k10256 -o|inlining procedure: k10237 -o|inlining procedure: k10275 -o|inlining procedure: k10275 -o|substituted constant variable: a10279 -o|substituted constant variable: a10284 -o|substituted constant variable: a10286 -o|substituted constant variable: a10288 -o|substituted constant variable: a10293 -o|substituted constant variable: a10295 -o|substituted constant variable: a10297 -o|substituted constant variable: a10299 -o|substituted constant variable: a10301 -o|inlining procedure: k10308 -o|inlining procedure: k10308 -o|inlining procedure: k10335 -o|inlining procedure: k10335 -o|inlining procedure: k10354 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|propagated global variable: r1035531214 chicken.irregex#~case-insensitive? -o|inlining procedure: k10354 -o|substituted constant variable: chicken.irregex#~multi-line? -o|inlining procedure: k10372 -o|substituted constant variable: chicken.irregex#~single-line? -o|propagated global variable: r1037331218 chicken.irregex#~single-line? -o|inlining procedure: k10372 -o|substituted constant variable: chicken.irregex#~ignore-space? -o|inlining procedure: k10390 -o|substituted constant variable: chicken.irregex#~utf8? -o|substituted constant variable: chicken.irregex#~none -o|inlining procedure: k10390 -o|substituted constant variable: a10406 -o|substituted constant variable: a10408 -o|substituted constant variable: a10413 -o|substituted constant variable: a10415 -o|substituted constant variable: a10420 -o|substituted constant variable: a10422 -o|substituted constant variable: a10427 -o|substituted constant variable: a10429 -o|inlining procedure: k10433 -o|inlining procedure: k10433 -o|substituted constant variable: a10440 -o|substituted constant variable: a10442 -o|substituted constant variable: a10444 -o|substituted constant variable: chicken.irregex#~none -o|inlining procedure: k10452 -o|inlining procedure: k10452 -o|inlining procedure: k10482 -o|inlining procedure: k10482 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k10504 -o|inlining procedure: k10526 -o|inlining procedure: k10526 -o|inlining procedure: k10504 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k10560 -o|inlining procedure: k10560 -o|inlining procedure: k10586 -o|inlining procedure: k10586 -o|inlining procedure: k10620 -o|inlining procedure: k10620 -o|contracted procedure: "(irregex-core.scm:781) chicken.irregex#utf8-backup-to-initial-char" -o|inlining procedure: k14221 -o|inlining procedure: k14221 -o|substituted constant variable: a14244 -o|substituted constant variable: a14249 -o|substituted constant variable: a14251 -o|substituted constant variable: chicken.irregex#~utf8? -o|inlining procedure: k10680 -o|inlining procedure: k10695 -o|substituted constant variable: a10714 -o|inlining procedure: k10707 -o|inlining procedure: k10707 -o|inlining procedure: k10695 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k10680 -o|substituted constant variable: a10822 -o|inlining procedure: k10815 -o|inlining procedure: k10815 -o|inlining procedure: k10859 -o|inlining procedure: k10859 -o|substituted constant variable: a10873 -o|substituted constant variable: a10881 -o|inlining procedure: k10896 -o|inlining procedure: k10896 -o|substituted constant variable: a10928 -o|substituted constant variable: a10931 -o|substituted constant variable: chicken.irregex#~single-line? -o|inlining procedure: k10947 -o|substituted constant variable: a10973 -o|substituted constant variable: a10976 -o|inlining procedure: k10982 -o|inlining procedure: k11002 -o|inlining procedure: k11002 -o|inlining procedure: k11032 -o|inlining procedure: k11032 -o|inlining procedure: k11062 -o|inlining procedure: k11062 -o|substituted constant variable: a11090 -o|substituted constant variable: a11092 -o|substituted constant variable: a11094 -o|substituted constant variable: a11096 -o|substituted constant variable: a11098 -o|substituted constant variable: a11100 -o|inlining procedure: k10982 -o|inlining procedure: k10947 -o|inlining procedure: k11122 -o|inlining procedure: k11122 -o|substituted constant variable: a11145 -o|substituted constant variable: a11148 -o|inlining procedure: k11169 -o|substituted constant variable: a11180 -o|inlining procedure: k11185 -o|substituted constant variable: a11196 -o|substituted constant variable: a11199 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k11185 -o|substituted constant variable: a11213 -o|inlining procedure: k11218 -o|substituted constant variable: a11235 -o|inlining procedure: k11239 -o|inlining procedure: k11239 -o|substituted constant variable: a11277 -o|substituted constant variable: a11285 -o|substituted constant variable: a11292 -o|inlining procedure: k11218 -o|substituted constant variable: a11322 -o|inlining procedure: k11323 -o|substituted constant variable: a11334 -o|substituted constant variable: a11337 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k11323 -o|substituted constant variable: a11357 -o|substituted constant variable: a11360 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k11369 -o|substituted constant variable: a11380 -o|substituted constant variable: a11383 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k11369 -o|substituted constant variable: a11403 -o|inlining procedure: k11398 -o|inlining procedure: k11398 -o|substituted constant variable: a11422 -o|substituted constant variable: a11425 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k11434 -o|substituted constant variable: a11445 -o|substituted constant variable: a11448 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k11434 -o|substituted constant variable: a11496 -o|substituted constant variable: chicken.irregex#~save? -o|substituted constant variable: a11508 -o|substituted constant variable: a11515 -o|substituted constant variable: a11517 -o|substituted constant variable: a11519 -o|substituted constant variable: a11522 -o|inlining procedure: k11523 -o|substituted constant variable: a11534 -o|substituted constant variable: a11537 -o|substituted constant variable: chicken.irregex#~save? -o|inlining procedure: k11523 -o|substituted constant variable: a11557 -o|inlining procedure: k11552 -o|inlining procedure: k11552 -o|inlining procedure: k11574 -o|inlining procedure: k11574 -o|substituted constant variable: a11588 -o|substituted constant variable: a11591 -o|substituted constant variable: chicken.irregex#~save? -o|substituted constant variable: a11610 -o|substituted constant variable: a11613 -o|inlining procedure: k11614 -o|substituted constant variable: a11631 -o|substituted constant variable: a11634 -o|substituted constant variable: chicken.irregex#~save? -o|substituted constant variable: a11653 -o|substituted constant variable: a11656 -o|inlining procedure: k11614 -o|substituted constant variable: a11662 -o|substituted constant variable: a11665 -o|substituted constant variable: chicken.irregex#~save? -o|substituted constant variable: a11680 -o|substituted constant variable: a11687 -o|inlining procedure: k11688 -o|inlining procedure: k11688 -o|substituted constant variable: a11702 -o|inlining procedure: k11709 -o|propagated global variable: r1171031299 chicken.irregex#flag-clear -o|inlining procedure: k11709 -o|propagated global variable: r1171031304 chicken.irregex#flag-join -o|inlining procedure: k11724 -o|inlining procedure: k11724 -o|inlining procedure: k11734 -o|inlining procedure: k11734 -o|substituted constant variable: chicken.irregex#~utf8? -o|substituted constant variable: chicken.irregex#~utf8? -o|inlining procedure: k11737 -o|inlining procedure: k11737 -o|substituted constant variable: a11760 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k11765 -o|substituted constant variable: a11776 -o|substituted constant variable: chicken.irregex#~multi-line? -o|inlining procedure: k11765 -o|substituted constant variable: a11792 -o|substituted constant variable: chicken.irregex#~ignore-space? -o|inlining procedure: k11797 -o|substituted constant variable: a11811 -o|substituted constant variable: chicken.irregex#~utf8? -o|substituted constant variable: a11821 -o|inlining procedure: k11797 -o|substituted constant variable: a11833 -o|inlining procedure: k11838 -o|substituted constant variable: a11849 -o|substituted constant variable: a11852 -o|inlining procedure: k11838 -o|substituted constant variable: a11872 -o|substituted constant variable: a11875 -o|substituted constant variable: a11896 -o|substituted constant variable: a11898 -o|substituted constant variable: a11900 -o|substituted constant variable: a11902 -o|substituted constant variable: a11904 -o|substituted constant variable: a11906 -o|substituted constant variable: a11908 -o|substituted constant variable: a11910 -o|substituted constant variable: a11912 -o|substituted constant variable: a11914 -o|substituted constant variable: a11916 -o|substituted constant variable: a11918 -o|substituted constant variable: a11920 -o|substituted constant variable: a11922 -o|substituted constant variable: a11924 -o|substituted constant variable: a11927 -o|substituted constant variable: a11932 -o|substituted constant variable: a11935 -o|substituted constant variable: a11941 -o|substituted constant variable: a11944 -o|inlining procedure: k11169 -o|inlining procedure: k11951 -o|inlining procedure: k11951 -o|substituted constant variable: a11965 -o|substituted constant variable: a11968 -o|inlining procedure: k11987 -o|substituted constant variable: a12024 -o|contracted procedure: "(irregex-core.scm:1023) chicken.irregex#string-parse-cset" -o|inlining procedure: k13401 -o|inlining procedure: k13401 -o|inlining procedure: k13419 -o|substituted constant variable: a13430 -o|inlining procedure: k13419 -o|contracted procedure: "(irregex-core.scm:1243) chicken.irregex#cset->sre" -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k13458 -o|substituted constant variable: a13478 -o|inlining procedure: k13483 -o|inlining procedure: k13483 -o|inlining procedure: k13501 -o|inlining procedure: k13501 -o|inlining procedure: k13525 -o|inlining procedure: k13525 -o|substituted constant variable: a13555 -o|inlining procedure: k13556 -o|substituted constant variable: a13578 -o|inlining procedure: k13556 -o|substituted constant variable: a13584 -o|substituted constant variable: a13602 -o|substituted constant variable: a13605 -o|substituted constant variable: a13606 -o|substituted constant variable: a13614 -o|substituted constant variable: a13618 -o|inlining procedure: k13622 -o|inlining procedure: k13622 -o|substituted constant variable: a13628 -o|substituted constant variable: a13635 -o|substituted constant variable: a13642 -o|inlining procedure: k13458 -o|inlining procedure: k13666 -o|substituted constant variable: a13698 -o|consed rest parameter at call site: "(irregex-core.scm:1279) chicken.irregex#sre->cset" 2 -o|substituted constant variable: a13716 -o|substituted constant variable: a13724 -o|substituted constant variable: a13735 -o|inlining procedure: k13666 -o|substituted constant variable: a13753 -o|substituted constant variable: a13762 -o|substituted constant variable: a13764 -o|substituted constant variable: a13766 -o|substituted constant variable: a13768 -o|substituted constant variable: a13770 -o|substituted constant variable: a13771 -o|substituted constant variable: a13778 -o|inlining procedure: k13779 -o|substituted constant variable: a13802 -o|consed rest parameter at call site: "(irregex-core.scm:1294) chicken.irregex#sre->cset" 2 -o|inlining procedure: k13819 -o|substituted constant variable: a13844 -o|inlining procedure: k13819 -o|substituted constant variable: a13856 -o|substituted constant variable: a13865 -o|inlining procedure: k13869 -o|inlining procedure: k13869 -o|inlining procedure: k13881 -o|inlining procedure: k13881 -o|substituted constant variable: a13894 -o|substituted constant variable: a13896 -o|substituted constant variable: a13898 -o|substituted constant variable: a13900 -o|substituted constant variable: a13902 -o|substituted constant variable: a13904 -o|substituted constant variable: a13907 -o|inlining procedure: k13779 -o|substituted constant variable: a13941 -o|substituted constant variable: a13954 -o|substituted constant variable: a13956 -o|substituted constant variable: a13958 -o|substituted constant variable: a13960 -o|inlining procedure: k13961 -o|inlining procedure: k13972 -o|inlining procedure: k13972 -o|inlining procedure: "(irregex-core.scm:1316) chicken.irregex#make-cset" -o|substituted constant variable: chicken.irregex#~multi-line? -o|inlining procedure: k13961 -o|inlining procedure: "(irregex-core.scm:1317) chicken.irregex#make-cset" -o|substituted constant variable: chicken.irregex#~utf8? -o|substituted constant variable: a13997 -o|inlining procedure: k11987 -o|substituted constant variable: a12036 -o|inlining procedure: k12031 -o|substituted constant variable: a12046 -o|inlining procedure: k12031 -o|inlining procedure: k12075 -o|inlining procedure: k12075 -o|substituted constant variable: a12098 -o|substituted constant variable: a12101 -o|inlining procedure: k12110 -o|substituted constant variable: a12118 -o|substituted constant variable: a12121 -o|inlining procedure: k12110 -o|substituted constant variable: a12135 -o|substituted constant variable: a12138 -o|inlining procedure: k12149 -o|inlining procedure: k12149 -o|contracted procedure: "(irregex-core.scm:1039) chicken.irregex#string-split-char" -o|inlining procedure: k8972 -o|inlining procedure: k8972 -o|substituted constant variable: a8996 -o|substituted constant variable: a8999 -o|substituted constant variable: a9009 -o|substituted constant variable: a12196 -o|substituted constant variable: a12199 -o|inlining procedure: k12207 -o|inlining procedure: k12207 -o|substituted constant variable: a12213 -o|substituted constant variable: a12220 -o|substituted constant variable: a12227 -o|inlining procedure: k12228 -o|substituted constant variable: a12239 -o|inlining procedure: k12247 -o|substituted constant variable: a12258 -o|substituted constant variable: a12261 -o|inlining procedure: k12247 -o|substituted constant variable: a12281 -o|substituted constant variable: a12284 -o|inlining procedure: k12297 -o|substituted constant variable: a12308 -o|substituted constant variable: a12311 -o|inlining procedure: k12297 -o|substituted constant variable: a12331 -o|substituted constant variable: a12334 -o|inlining procedure: k12347 -o|substituted constant variable: a12358 -o|substituted constant variable: a12361 -o|inlining procedure: k12347 -o|substituted constant variable: a12389 -o|substituted constant variable: a12392 -o|inlining procedure: k12413 -o|substituted constant variable: a12424 -o|substituted constant variable: a12427 -o|inlining procedure: k12413 -o|substituted constant variable: a12451 -o|substituted constant variable: a12454 -o|inlining procedure: k12463 -o|substituted constant variable: a12474 -o|substituted constant variable: a12477 -o|inlining procedure: k12463 -o|substituted constant variable: a12497 -o|substituted constant variable: a12500 -o|inlining procedure: k12517 -o|substituted constant variable: a12528 -o|substituted constant variable: a12531 -o|inlining procedure: k12517 -o|substituted constant variable: a12551 -o|substituted constant variable: a12554 -o|inlining procedure: k12563 -o|substituted constant variable: a12574 -o|substituted constant variable: a12577 -o|inlining procedure: k12563 -o|substituted constant variable: a12597 -o|substituted constant variable: a12600 -o|inlining procedure: k12609 -o|substituted constant variable: a12620 -o|substituted constant variable: a12623 -o|inlining procedure: k12609 -o|substituted constant variable: a12669 -o|inlining procedure: k12670 -o|inlining procedure: k12700 -o|inlining procedure: k12700 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|substituted constant variable: a12744 -o|substituted constant variable: a12747 -o|contracted procedure: "(irregex-core.scm:1108) chicken.irregex#char-mirror" -o|inlining procedure: k13257 -o|inlining procedure: k13257 -o|inlining procedure: k13269 -o|inlining procedure: k13269 -o|substituted constant variable: a13282 -o|substituted constant variable: a13284 -o|substituted constant variable: a13286 -o|substituted constant variable: a13288 -o|substituted constant variable: a12750 -o|substituted constant variable: a12753 -o|inlining procedure: k12670 -o|substituted constant variable: a12768 -o|inlining procedure: k12772 -o|inlining procedure: k12772 -o|substituted constant variable: a12796 -o|inlining procedure: k12791 -o|substituted constant variable: a12803 -o|inlining procedure: k12791 -o|substituted constant variable: a12819 -o|substituted constant variable: a12822 -o|substituted constant variable: a12840 -o|substituted constant variable: a12841 -o|substituted constant variable: a12848 -o|substituted constant variable: a12854 -o|substituted constant variable: a12855 -o|inlining procedure: k12860 -o|substituted constant variable: a12871 -o|inlining procedure: k12860 -o|substituted constant variable: a12925 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|substituted constant variable: a12941 -o|contracted procedure: "(irregex-core.scm:1149) chicken.irregex#string-scan-pred" -o|inlining procedure: k8924 -o|inlining procedure: k8924 -o|substituted constant variable: a8941 -o|inlining procedure: k12942 -o|substituted constant variable: a12959 -o|substituted constant variable: a12962 -o|inlining procedure: k12942 -o|substituted constant variable: a12983 -o|substituted constant variable: a12986 -o|substituted constant variable: a12992 -o|substituted constant variable: a12994 -o|substituted constant variable: a12996 -o|substituted constant variable: a12998 -o|substituted constant variable: a13000 -o|substituted constant variable: a13002 -o|substituted constant variable: a13004 -o|substituted constant variable: a13006 -o|substituted constant variable: a13008 -o|substituted constant variable: a13010 -o|substituted constant variable: a13012 -o|substituted constant variable: a13014 -o|substituted constant variable: a13016 -o|substituted constant variable: a13018 -o|substituted constant variable: a13020 -o|substituted constant variable: a13022 -o|substituted constant variable: a13024 -o|substituted constant variable: a13026 -o|substituted constant variable: a13028 -o|substituted constant variable: a13031 -o|inlining procedure: k12228 -o|substituted constant variable: a13043 -o|substituted constant variable: a13046 -o|inlining procedure: k13055 -o|substituted constant variable: a13069 -o|substituted constant variable: a13072 -o|substituted constant variable: chicken.irregex#~multi-line? -o|inlining procedure: k13055 -o|substituted constant variable: a13098 -o|substituted constant variable: a13101 -o|substituted constant variable: chicken.irregex#~multi-line? -o|inlining procedure: k13113 -o|substituted constant variable: a13130 -o|substituted constant variable: a13133 -o|substituted constant variable: a13143 -o|substituted constant variable: chicken.irregex#~ignore-space? -o|inlining procedure: k13113 -o|inlining procedure: k13150 -o|substituted constant variable: a13178 -o|substituted constant variable: a13181 -o|inlining procedure: k13150 -o|substituted constant variable: a13187 -o|substituted constant variable: chicken.irregex#~ignore-space? -o|substituted constant variable: a13193 -o|substituted constant variable: a13195 -o|substituted constant variable: a13197 -o|substituted constant variable: a13199 -o|substituted constant variable: a13201 -o|substituted constant variable: a13203 -o|substituted constant variable: a13205 -o|substituted constant variable: a13207 -o|substituted constant variable: a13209 -o|substituted constant variable: a13211 -o|substituted constant variable: a13213 -o|substituted constant variable: a13218 -o|substituted constant variable: a13220 -o|substituted constant variable: a13222 -o|substituted constant variable: a13224 -o|inlining procedure: k13242 -o|inlining procedure: k13242 -o|inlining procedure: k13292 -o|inlining procedure: k13292 -o|inlining procedure: k13310 -o|inlining procedure: k13310 -o|substituted constant variable: a13340 -o|substituted constant variable: a13343 -o|contracted procedure: "(irregex-core.scm:1211) chicken.irregex#string-scan-char-escape" -o|inlining procedure: k8867 -o|inlining procedure: k8867 -o|inlining procedure: k8879 -o|substituted constant variable: a8890 -o|inlining procedure: k8879 -o|substituted constant variable: a8896 -o|substituted constant variable: a8898 -o|inlining procedure: k13344 -o|inlining procedure: k13344 -o|substituted constant variable: a13371 -o|substituted constant variable: a13377 -o|substituted constant variable: a13380 -o|substituted constant variable: a13381 -o|substituted constant variable: a14008 -o|substituted constant variable: table1918 -o|inlining procedure: k14036 -o|inlining procedure: k14036 -o|inlining procedure: k14079 -o|inlining procedure: k14079 -o|substituted constant variable: a14205 -o|substituted constant variable: a14207 -o|substituted constant variable: a14209 -o|substituted constant variable: a14211 -o|inlining procedure: k14259 -o|inlining procedure: k14259 -o|inlining procedure: k14271 -o|inlining procedure: k14271 -o|substituted constant variable: a14287 -o|substituted constant variable: a14289 -o|substituted constant variable: a14291 -o|substituted constant variable: a14293 -o|inlining procedure: k14338 -o|inlining procedure: k14338 -o|inlining procedure: k14372 -o|inlining procedure: k14372 -o|substituted constant variable: a14462 -o|substituted constant variable: a14464 -o|substituted constant variable: a14466 -o|substituted constant variable: a14468 -o|inlining procedure: k14611 -o|inlining procedure: k14611 -o|inlining procedure: k14677 -o|contracted procedure: "(irregex-core.scm:1455) g20572066" -o|inlining procedure: k14677 -o|inlining procedure: k14713 -o|inlining procedure: k14713 -o|inlining procedure: k14834 -o|inlining procedure: k14834 -o|inlining procedure: k14973 -o|inlining procedure: k14973 -o|inlining procedure: k15476 -o|inlining procedure: k15494 -o|inlining procedure: k15494 -o|inlining procedure: k15476 -o|contracted procedure: "(irregex-core.scm:1543) chicken.irregex#unicode-range->utf8-pattern" -o|inlining procedure: k14478 -o|contracted procedure: "(irregex-core.scm:1428) chicken.irregex#unicode-range-climb-digits" -o|inlining procedure: k15079 -o|contracted procedure: "(irregex-core.scm:1510) g22172226" -o|inlining procedure: k15079 -o|contracted procedure: "(irregex-core.scm:1509) chicken.irregex#utf8-highest-digit-of-length" -o|inlining procedure: k14297 -o|inlining procedure: k14297 -o|inlining procedure: k14309 -o|inlining procedure: k14309 -o|substituted constant variable: a14325 -o|substituted constant variable: a14327 -o|substituted constant variable: a14329 -o|substituted constant variable: a14331 -o|inlining procedure: k15182 -o|contracted procedure: "(irregex-core.scm:1521) g22572266" -o|inlining procedure: k15182 -o|inlining procedure: k15250 -o|inlining procedure: k15250 -o|substituted constant variable: a15288 -o|inlining procedure: k15320 -o|contracted procedure: "(irregex-core.scm:1501) g21642173" -o|inlining procedure: k15320 -o|inlining procedure: k15360 -o|inlining procedure: k15360 -o|inlining procedure: k14478 -o|inlining procedure: k14505 -o|inlining procedure: k14523 -o|inlining procedure: k14523 -o|inlining procedure: k14505 -o|contracted procedure: "(irregex-core.scm:1442) chicken.irregex#unicode-range-middle" -o|inlining procedure: k15411 -o|contracted procedure: "(irregex-core.scm:1530) g22952304" -o|inlining procedure: k15411 -o|inlining procedure: k16039 -o|inlining procedure: k16039 -o|inlining procedure: k16051 -o|inlining procedure: k16051 -o|inlining procedure: k16069 -o|inlining procedure: k16069 -o|inlining procedure: k16087 -o|inlining procedure: k16087 -o|inlining procedure: k16152 -o|inlining procedure: k16152 -o|inlining procedure: k16213 -o|inlining procedure: k16213 -o|contracted procedure: "(irregex-core.scm:1648) chicken.irregex#sre->procedure" -o|inlining procedure: "(irregex-core.scm:3145) chicken.irregex#%irregex-match-fail-set!" -o|inlining procedure: k23452 -o|consed rest parameter at call site: "(irregex-core.scm:3153) chicken.irregex#sre->cset" 2 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k23478 -o|consed rest parameter at call site: "(irregex-core.scm:3158) chicken.irregex#sre->cset" 2 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k23478 -o|inlining procedure: k23507 -o|inlining procedure: k23507 -o|substituted constant variable: a23573 -o|substituted constant variable: a23575 -o|inlining procedure: k23578 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k23578 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k23616 -o|substituted constant variable: chicken.irregex#~utf8? -o|inlining procedure: k23616 -o|substituted constant variable: chicken.irregex#~utf8? -o|inlining procedure: k23654 -o|inlining procedure: k23672 -o|inlining procedure: k23672 -o|substituted constant variable: a23716 -o|substituted constant variable: a23718 -o|inlining procedure: k23654 -o|inlining procedure: k23747 -o|inlining procedure: k23747 -o|inlining procedure: k23779 -o|inlining procedure: k23779 -o|inlining procedure: k23818 -o|inlining procedure: k23818 -o|inlining procedure: k23878 -o|inlining procedure: k23878 -o|inlining procedure: k23915 -o|inlining procedure: k23915 -o|inlining procedure: k23974 -o|inlining procedure: k24010 -o|inlining procedure: k24010 -o|inlining procedure: k24028 -o|inlining procedure: k24028 -o|inlining procedure: k24051 -o|inlining procedure: k24051 -o|inlining procedure: k24068 -o|inlining procedure: k24068 -o|inlining procedure: k24079 -o|inlining procedure: k24079 -o|inlining procedure: k24087 -o|inlining procedure: k24087 -o|inlining procedure: k24102 -o|inlining procedure: k24102 -o|inlining procedure: k23974 -o|inlining procedure: k24132 -o|inlining procedure: k24162 -o|inlining procedure: k24162 -o|inlining procedure: k24184 -o|inlining procedure: k24184 -o|inlining procedure: k24132 -o|inlining procedure: k24218 -o|inlining procedure: k24218 -o|inlining procedure: k24241 -o|inlining procedure: k24241 -o|inlining procedure: k24249 -o|inlining procedure: k24249 -o|inlining procedure: k24264 -o|inlining procedure: k24264 -o|inlining procedure: k24288 -o|inlining procedure: k24288 -o|inlining procedure: k24346 -o|inlining procedure: k24346 -o|inlining procedure: k24374 -o|inlining procedure: k24374 -o|inlining procedure: k24398 -o|inlining procedure: k24409 -o|inlining procedure: k24409 -o|inlining procedure: k24398 -o|inlining procedure: k24463 -o|inlining procedure: k24463 -o|inlining procedure: "(irregex-core.scm:3364) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:3362) chicken.irregex#chunker-get-str" -o|contracted procedure: "(irregex-core.scm:3361) chicken.irregex#wrap-end-chunker" -o|inlining procedure: k8730 -o|inlining procedure: "(irregex-core.scm:404) chicken.irregex#chunker-get-next" -o|inlining procedure: k8730 -o|inlining procedure: k8757 -o|inlining procedure: k8757 -o|inlining procedure: "(irregex-core.scm:416) chicken.irregex#chunker-get-end" -o|inlining procedure: k8772 -o|inlining procedure: "(irregex-core.scm:414) chicken.irregex#chunker-get-next" -o|inlining procedure: k8772 -o|inlining procedure: "(irregex-core.scm:413) chicken.irregex#chunker-get-next" -o|inlining procedure: "(irregex-core.scm:418) chicken.irregex#chunker-get-subchunk" -o|inlining procedure: "(irregex-core.scm:417) chicken.irregex#chunker-get-substring" -o|inlining procedure: "(irregex-core.scm:406) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:405) chicken.irregex#chunker-get-str" -o|inlining procedure: k24519 -o|inlining procedure: k24533 -o|inlining procedure: k24533 -o|inlining procedure: k24519 -o|inlining procedure: k24569 -o|inlining procedure: k24583 -o|inlining procedure: k24583 -o|contracted procedure: "(irregex-core.scm:3402) g47834784" -o|inlining procedure: k24618 -o|inlining procedure: k24618 -o|inlining procedure: k24569 -o|inlining procedure: k24707 -o|inlining procedure: k24727 -o|inlining procedure: k24727 -o|inlining procedure: k24746 -o|inlining procedure: k24746 -o|inlining procedure: k24796 -o|inlining procedure: "(irregex-core.scm:3447) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:3446) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3445) chicken.irregex#chunker-get-str" -o|inlining procedure: k24796 -o|inlining procedure: "(irregex-core.scm:3442) chicken.irregex#chunker-get-next" -o|inlining procedure: k24864 -o|inlining procedure: k24864 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k24880 -o|inlining procedure: k24880 -o|inlining procedure: k24707 -o|inlining procedure: k24924 -o|contracted procedure: "(irregex-core.scm:3476) g48964897" -o|contracted procedure: "(irregex-core.scm:3475) g48924893" -o|contracted procedure: "(irregex-core.scm:3462) g48624863" -o|inlining procedure: k24924 -o|substituted constant variable: a25167 -o|substituted constant variable: a25169 -o|substituted constant variable: a25174 -o|substituted constant variable: a25176 -o|substituted constant variable: a25178 -o|substituted constant variable: a25183 -o|substituted constant variable: a25185 -o|substituted constant variable: a25187 -o|substituted constant variable: a25189 -o|substituted constant variable: a25194 -o|substituted constant variable: a25196 -o|substituted constant variable: a25198 -o|substituted constant variable: a25200 -o|substituted constant variable: a25202 -o|substituted constant variable: a25204 -o|substituted constant variable: a25206 -o|substituted constant variable: a25208 -o|substituted constant variable: a25210 -o|substituted constant variable: a25212 -o|substituted constant variable: a25214 -o|substituted constant variable: a25216 -o|substituted constant variable: a25218 -o|substituted constant variable: a25220 -o|substituted constant variable: a25222 -o|substituted constant variable: a25224 -o|substituted constant variable: a25229 -o|substituted constant variable: a25231 -o|substituted constant variable: a25233 -o|substituted constant variable: a25235 -o|substituted constant variable: a25237 -o|substituted constant variable: a25239 -o|substituted constant variable: a25241 -o|inlining procedure: k25245 -o|inlining procedure: k25245 -o|substituted constant variable: a25258 -o|substituted constant variable: a25260 -o|substituted constant variable: a25262 -o|substituted constant variable: a25264 -o|inlining procedure: k23452 -o|inlining procedure: k25273 -o|inlining procedure: k25281 -o|inlining procedure: k25281 -o|inlining procedure: "(irregex-core.scm:3500) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:3499) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3498) chicken.irregex#chunker-get-str" -o|inlining procedure: "(irregex-core.scm:3496) chicken.irregex#chunker-get-next" -o|inlining procedure: k25273 -o|inlining procedure: k25339 -o|substituted constant variable: a25356 -o|substituted constant variable: a25364 -o|inlining procedure: k25339 -o|inlining procedure: k25396 -o|substituted constant variable: a25407 -o|inlining procedure: k25396 -o|substituted constant variable: a25415 -o|inlining procedure: "(irregex-core.scm:3513) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:3512) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3511) chicken.irregex#chunker-get-str" -o|inlining procedure: "(irregex-core.scm:3509) chicken.irregex#chunker-get-next" -o|inlining procedure: k25423 -o|inlining procedure: k25431 -o|inlining procedure: k25431 -o|inlining procedure: k25423 -o|inlining procedure: k25461 -o|inlining procedure: k25461 -o|substituted constant variable: a25482 -o|inlining procedure: "(irregex-core.scm:3525) chicken.irregex#chunker-get-start" -o|inlining procedure: k25504 -o|inlining procedure: k25512 -o|inlining procedure: k25512 -o|inlining procedure: k25527 -o|inlining procedure: k25527 -o|inlining procedure: "(irregex-core.scm:3543) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3542) chicken.irregex#chunker-get-str" -o|inlining procedure: "(irregex-core.scm:3539) chicken.irregex#chunker-get-next" -o|inlining procedure: k25594 -o|inlining procedure: k25594 -o|inlining procedure: "(irregex-core.scm:3533) chicken.irregex#chunker-get-start" -o|inlining procedure: k25504 -o|inlining procedure: k25619 -o|inlining procedure: k25619 -o|inlining procedure: "(irregex-core.scm:3548) chicken.irregex#chunker-get-next" -o|inlining procedure: k25644 -o|inlining procedure: k25652 -o|inlining procedure: k25652 -o|substituted constant variable: a25670 -o|inlining procedure: k25681 -o|inlining procedure: k25681 -o|substituted constant variable: a25690 -o|inlining procedure: "(irregex-core.scm:3560) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3559) chicken.irregex#chunker-get-str" -o|inlining procedure: "(irregex-core.scm:3555) chicken.irregex#chunker-get-next" -o|inlining procedure: k25644 -o|inlining procedure: k25717 -o|inlining procedure: k25717 -o|inlining procedure: k25732 -o|inlining procedure: k25732 -o|inlining procedure: "(irregex-core.scm:3569) chicken.irregex#chunker-get-start" -o|inlining procedure: k25788 -o|inlining procedure: k25788 -o|inlining procedure: k25798 -o|inlining procedure: k25812 -o|inlining procedure: k25812 -o|inlining procedure: k25824 -o|inlining procedure: k25824 -o|inlining procedure: "(irregex-core.scm:3580) chicken.irregex#chunker-get-start" -o|inlining procedure: k25798 -o|inlining procedure: k25881 -o|inlining procedure: k25881 -o|substituted constant variable: a25895 -o|substituted constant variable: a25897 -o|substituted constant variable: a25899 -o|substituted constant variable: a25901 -o|substituted constant variable: a25903 -o|substituted constant variable: a25905 -o|substituted constant variable: a25907 -o|substituted constant variable: a25909 -o|substituted constant variable: a25911 -o|substituted constant variable: a25913 -o|inlining procedure: k25914 -o|inlining procedure: k25928 -o|inlining procedure: k25947 -o|inlining procedure: "(irregex-core.scm:3607) chicken.irregex#chunker-get-next" -o|inlining procedure: k25984 -o|substituted constant variable: a25995 -o|inlining procedure: k25984 -o|inlining procedure: "(irregex-core.scm:3605) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:3604) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3603) chicken.irregex#chunker-get-str" -o|inlining procedure: k25947 -o|inlining procedure: "(irregex-core.scm:3601) chicken.irregex#chunker-get-next" -o|inlining procedure: k25928 -o|substituted constant variable: a26017 -o|inlining procedure: k26027 -o|inlining procedure: k26046 -o|inlining procedure: "(irregex-core.scm:3625) chicken.irregex#chunker-get-next" -o|inlining procedure: k26083 -o|substituted constant variable: a26094 -o|inlining procedure: k26083 -o|inlining procedure: "(irregex-core.scm:3623) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:3622) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3621) chicken.irregex#chunker-get-str" -o|inlining procedure: k26046 -o|inlining procedure: "(irregex-core.scm:3619) chicken.irregex#chunker-get-next" -o|inlining procedure: k26027 -o|substituted constant variable: a26116 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k25914 -o|substituted constant variable: chicken.irregex#~none -o|inlining procedure: k16230 -o|substituted constant variable: chicken.irregex#~consumer? -o|propagated global variable: r1623131885 chicken.irregex#~consumer? -o|inlining procedure: k16230 -o|substituted constant variable: chicken.irregex#~none -o|inlining procedure: k16237 -o|substituted constant variable: chicken.irregex#~searcher? -o|propagated global variable: r1623831889 chicken.irregex#~searcher? -o|substituted constant variable: chicken.irregex#~none -o|inlining procedure: k16237 -o|substituted constant variable: chicken.irregex#~none -o|contracted procedure: "(irregex-core.scm:1640) chicken.irregex#sre-length-ranges" -o|inlining procedure: k17108 -o|inlining procedure: k17108 -o|inlining procedure: k17114 -o|inlining procedure: k17130 -o|inlining procedure: k17130 -o|inlining procedure: k17159 -o|inlining procedure: k17176 -o|inlining procedure: k17190 -o|inlining procedure: k17190 -o|inlining procedure: k17176 -o|inlining procedure: k17225 -o|inlining procedure: k17225 -o|inlining procedure: k17159 -o|inlining procedure: k17254 -o|inlining procedure: k17268 -o|inlining procedure: k17268 -o|inlining procedure: k17278 -o|inlining procedure: k17278 -o|inlining procedure: k17254 -o|inlining procedure: k17307 -o|inlining procedure: k17307 -o|inlining procedure: k17325 -o|inlining procedure: k17395 -o|inlining procedure: k17401 -o|inlining procedure: k17401 -o|inlining procedure: k17395 -o|inlining procedure: k17428 -o|inlining procedure: k17428 -o|inlining procedure: k17325 -o|inlining procedure: k17483 -o|inlining procedure: k17517 -o|inlining procedure: k17517 -o|inlining procedure: k17483 -o|inlining procedure: k17541 -o|inlining procedure: k17541 -o|inlining procedure: k17576 -o|inlining procedure: k17576 -o|inlining procedure: k17619 -o|inlining procedure: k17619 -o|inlining procedure: k17638 -o|inlining procedure: k17638 -o|inlining procedure: k17671 -o|inlining procedure: k17671 -o|inlining procedure: k17707 -o|inlining procedure: k17707 -o|inlining procedure: k17765 -o|inlining procedure: k17765 -o|inlining procedure: k17780 -o|inlining procedure: k17780 -o|inlining procedure: k17804 -o|inlining procedure: k17804 -o|inlining procedure: k17852 -o|inlining procedure: k17852 -o|inlining procedure: k17863 -o|substituted constant variable: a17900 -o|inlining procedure: k17892 -o|inlining procedure: k17892 -o|inlining procedure: k17863 -o|inlining procedure: k17918 -o|inlining procedure: k17918 -o|inlining procedure: k17949 -o|inlining procedure: k17949 -o|substituted constant variable: a17962 -o|substituted constant variable: a17964 -o|substituted constant variable: a17966 -o|substituted constant variable: a17968 -o|inlining procedure: k17972 -o|inlining procedure: k17972 -o|substituted constant variable: a17985 -o|substituted constant variable: a17987 -o|substituted constant variable: a17989 -o|substituted constant variable: a17991 -o|substituted constant variable: a17996 -o|substituted constant variable: a17998 -o|substituted constant variable: a18000 -o|substituted constant variable: a18005 -o|substituted constant variable: a18007 -o|substituted constant variable: a18012 -o|substituted constant variable: a18014 -o|substituted constant variable: a18019 -o|substituted constant variable: a18021 -o|inlining procedure: k18025 -o|inlining procedure: k18025 -o|substituted constant variable: a18038 -o|substituted constant variable: a18040 -o|substituted constant variable: a18042 -o|substituted constant variable: a18044 -o|substituted constant variable: a18046 -o|substituted constant variable: a18048 -o|substituted constant variable: a18050 -o|inlining procedure: k18054 -o|inlining procedure: k18054 -o|inlining procedure: k18066 -o|inlining procedure: k18066 -o|substituted constant variable: a18073 -o|substituted constant variable: a18075 -o|substituted constant variable: a18077 -o|substituted constant variable: a18079 -o|substituted constant variable: a18081 -o|substituted constant variable: a18083 -o|inlining procedure: k18087 -o|inlining procedure: k18087 -o|substituted constant variable: a18100 -o|substituted constant variable: a18102 -o|substituted constant variable: a18104 -o|substituted constant variable: a18106 -o|inlining procedure: k17114 -o|inlining procedure: k18118 -o|inlining procedure: k18118 -o|substituted constant variable: a18133 -o|substituted constant variable: a18141 -o|inlining procedure: k18137 -o|inlining procedure: k18137 -o|inlining procedure: k18155 -o|inlining procedure: k18155 -o|consed rest parameter at call site: "(irregex-core.scm:1636) chicken.irregex#nfa->dfa" 2 -o|substituted constant variable: a16259 -o|inlining procedure: k16261 -o|inlining procedure: k16261 -o|consed rest parameter at call site: "(irregex-core.scm:1632) chicken.irregex#nfa->dfa" 2 -o|substituted constant variable: a16294 -o|substituted constant variable: a16299 -o|inlining procedure: k16296 -o|inlining procedure: k16296 -o|contracted procedure: "(irregex-core.scm:1619) chicken.irregex#sre-adjust-utf8" -o|inlining procedure: k15594 -o|inlining procedure: k15616 -o|inlining procedure: k15616 -o|inlining procedure: k15661 -o|inlining procedure: k15661 -o|inlining procedure: k15692 -o|inlining procedure: k15722 -o|inlining procedure: k15722 -o|inlining procedure: k15692 -o|inlining procedure: k15762 -o|inlining procedure: k15762 -o|inlining procedure: k15777 -o|inlining procedure: k15777 -o|consed rest parameter at call site: "(irregex-core.scm:1564) chicken.irregex#sre->cset" 2 -o|inlining procedure: k15794 -o|inlining procedure: k15809 -o|inlining procedure: k15809 -o|inlining procedure: k15832 -o|inlining procedure: k15832 -o|substituted constant variable: a15864 -o|substituted constant variable: a15866 -o|inlining procedure: k15794 -o|inlining procedure: k15888 -o|inlining procedure: k15888 -o|substituted constant variable: a15920 -o|inlining procedure: k15924 -o|inlining procedure: k15924 -o|substituted constant variable: a15937 -o|substituted constant variable: a15939 -o|substituted constant variable: a15941 -o|substituted constant variable: a15943 -o|substituted constant variable: a15945 -o|substituted constant variable: a15947 -o|substituted constant variable: a15949 -o|substituted constant variable: a15951 -o|inlining procedure: k15594 -o|inlining procedure: k15958 -o|inlining procedure: k15958 -o|inlining procedure: k15961 -o|inlining procedure: k15961 -o|inlining procedure: k15992 -o|inlining procedure: k15992 -o|inlining procedure: k16023 -o|inlining procedure: k16023 -o|substituted constant variable: a16033 -o|substituted constant variable: a16035 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|substituted constant variable: chicken.irregex#~utf8? -o|inlining procedure: k16310 -o|inlining procedure: k16326 -o|inlining procedure: k16326 -o|inlining procedure: k16360 -o|inlining procedure: k16360 -o|inlining procedure: k16377 -o|inlining procedure: k16377 -o|inlining procedure: k16389 -o|inlining procedure: k16389 -o|inlining procedure: k16401 -o|inlining procedure: k16401 -o|substituted constant variable: a16414 -o|substituted constant variable: a16416 -o|substituted constant variable: a16418 -o|substituted constant variable: a16420 -o|substituted constant variable: a16422 -o|substituted constant variable: a16424 -o|substituted constant variable: a16426 -o|substituted constant variable: a16428 -o|substituted constant variable: a16430 -o|substituted constant variable: a16432 -o|inlining procedure: k16436 -o|inlining procedure: k16436 -o|inlining procedure: k16448 -o|inlining procedure: k16448 -o|substituted constant variable: a16461 -o|substituted constant variable: a16463 -o|substituted constant variable: a16465 -o|substituted constant variable: a16467 -o|substituted constant variable: a16469 -o|substituted constant variable: a16471 -o|inlining procedure: k16310 -o|substituted constant variable: a16473 -o|inlining procedure: k16480 -o|inlining procedure: k16480 -o|inlining procedure: k16490 -o|inlining procedure: k16505 -o|inlining procedure: k16505 -o|inlining procedure: k16490 -o|substituted constant variable: a16535 -o|inlining procedure: k16539 -o|inlining procedure: k16539 -o|inlining procedure: k16551 -o|inlining procedure: k16551 -o|substituted constant variable: a16564 -o|substituted constant variable: a16566 -o|substituted constant variable: a16568 -o|substituted constant variable: a16570 -o|substituted constant variable: a16572 -o|substituted constant variable: a16574 -o|substituted constant variable: a16586 -o|inlining procedure: k16578 -o|substituted constant variable: a16595 -o|inlining procedure: k16590 -o|inlining procedure: k16602 -o|inlining procedure: k16602 -o|inlining procedure: k16590 -o|inlining procedure: k16578 -o|inlining procedure: k16623 -o|inlining procedure: k16639 -o|inlining procedure: k16639 -o|inlining procedure: k16654 -o|inlining procedure: k16654 -o|substituted constant variable: a16666 -o|inlining procedure: k16670 -o|inlining procedure: k16670 -o|inlining procedure: k16682 -o|inlining procedure: k16682 -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: k16623 -o|inlining procedure: k16715 -o|inlining procedure: k16715 -o|inlining procedure: k16725 -o|inlining procedure: k16725 -o|inlining procedure: k16752 -o|inlining procedure: k16752 -o|inlining procedure: k16767 -o|inlining procedure: k16767 -o|substituted constant variable: a16779 -o|inlining procedure: k16783 -o|inlining procedure: k16783 -o|inlining procedure: k16795 -o|inlining procedure: k16795 -o|substituted constant variable: a16808 -o|substituted constant variable: a16810 -o|substituted constant variable: a16812 -o|substituted constant variable: a16814 -o|substituted constant variable: a16816 -o|substituted constant variable: a16818 -o|substituted constant variable: a16823 -o|substituted constant variable: a16825 -o|inlining procedure: k16832 -o|inlining procedure: k16832 -o|inlining procedure: k16842 -o|inlining procedure: k16842 -o|inlining procedure: k16869 -o|inlining procedure: k16869 -o|inlining procedure: k16884 -o|inlining procedure: k16884 -o|substituted constant variable: a16896 -o|inlining procedure: k16900 -o|inlining procedure: k16900 -o|inlining procedure: k16912 -o|inlining procedure: k16912 -o|substituted constant variable: a16925 -o|substituted constant variable: a16927 -o|substituted constant variable: a16929 -o|substituted constant variable: a16931 -o|substituted constant variable: a16933 -o|substituted constant variable: a16935 -o|substituted constant variable: a16940 -o|substituted constant variable: a16942 -o|substituted constant variable: a16954 -o|inlining procedure: k16946 -o|inlining procedure: k16958 -o|inlining procedure: k16958 -o|inlining procedure: k16946 -o|inlining procedure: k16991 -o|inlining procedure: k17008 -o|inlining procedure: k17008 -o|inlining procedure: k17034 -o|inlining procedure: k17034 -o|substituted constant variable: a17052 -o|substituted constant variable: a17054 -o|inlining procedure: k17058 -o|inlining procedure: k17058 -o|substituted constant variable: a17071 -o|substituted constant variable: a17073 -o|substituted constant variable: a17075 -o|substituted constant variable: a17077 -o|inlining procedure: k16991 -o|inlining procedure: k18191 -o|inlining procedure: k18191 -o|inlining procedure: k18214 -o|inlining procedure: k18214 -o|inlining procedure: k18237 -o|inlining procedure: k18237 -o|inlining procedure: k18264 -o|inlining procedure: k18264 -o|inlining procedure: k18310 -o|inlining procedure: k18310 -o|substituted constant variable: a18342 -o|substituted constant variable: a18347 -o|substituted constant variable: a18349 -o|substituted constant variable: a18354 -o|substituted constant variable: a18356 -o|inlining procedure: k18418 -o|inlining procedure: k18418 -o|inlining procedure: k18449 -o|inlining procedure: k18449 -o|inlining procedure: k18510 -o|inlining procedure: k18510 -o|inlining procedure: k18540 -o|inlining procedure: k18540 -o|substituted constant variable: a18560 -o|substituted constant variable: a18562 -o|substituted constant variable: a18567 -o|substituted constant variable: a18569 -o|inlining procedure: k18573 -o|inlining procedure: k18573 -o|inlining procedure: k18585 -o|inlining procedure: k18585 -o|inlining procedure: k18597 -o|inlining procedure: k18597 -o|inlining procedure: k18609 -o|inlining procedure: k18609 -o|inlining procedure: k18621 -o|inlining procedure: k18621 -o|inlining procedure: k18633 -o|inlining procedure: k18633 -o|inlining procedure: k18645 -o|inlining procedure: k18645 -o|substituted constant variable: a18652 -o|substituted constant variable: a18654 -o|substituted constant variable: a18656 -o|substituted constant variable: a18658 -o|substituted constant variable: a18660 -o|substituted constant variable: a18662 -o|substituted constant variable: a18664 -o|substituted constant variable: a18666 -o|substituted constant variable: a18668 -o|substituted constant variable: a18670 -o|substituted constant variable: a18672 -o|substituted constant variable: a18674 -o|substituted constant variable: a18676 -o|substituted constant variable: a18678 -o|substituted constant variable: a18680 -o|substituted constant variable: a18682 -o|substituted constant variable: a18687 -o|substituted constant variable: a18689 -o|substituted constant variable: a18694 -o|substituted constant variable: a18696 -o|inlining procedure: k18704 -o|inlining procedure: k18704 -o|inlining procedure: k18736 -o|inlining procedure: k18752 -o|inlining procedure: k18752 -o|inlining procedure: k18802 -o|inlining procedure: k18825 -o|inlining procedure: k18825 -o|inlining procedure: k18802 -o|substituted constant variable: a18857 -o|inlining procedure: k18861 -o|inlining procedure: k18861 -o|inlining procedure: k18873 -o|inlining procedure: k18873 -o|inlining procedure: k18885 -o|inlining procedure: k18885 -o|substituted constant variable: a18898 -o|substituted constant variable: a18900 -o|substituted constant variable: a18902 -o|substituted constant variable: a18904 -o|substituted constant variable: a18906 -o|substituted constant variable: a18908 -o|substituted constant variable: a18910 -o|substituted constant variable: a18912 -o|inlining procedure: k18736 -o|inlining procedure: k18955 -o|inlining procedure: k18955 -o|inlining procedure: k18969 -o|inlining procedure: k18969 -o|inlining procedure: k18982 -o|inlining procedure: k18982 -o|inlining procedure: "(irregex-core.scm:1992) chicken.irregex#irregex-match-chunker-set!" -o|inlining procedure: "(irregex-core.scm:1990) chicken.irregex#chunker-get-start" -o|inlining procedure: k19053 -o|inlining procedure: k19065 -o|inlining procedure: k19065 -o|inlining procedure: k19090 -o|inlining procedure: k19123 -o|inlining procedure: k19123 -o|inlining procedure: k19152 -o|inlining procedure: k19152 -o|inlining procedure: "(irregex-core.scm:2014) chicken.irregex#chunker-get-next" -o|inlining procedure: "(irregex-core.scm:2013) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:2012) chicken.irregex#chunker-get-start" -o|inlining procedure: k19090 -o|contracted procedure: "(irregex-core.scm:2009) chicken.irregex#dfa-match/shortest" -o|inlining procedure: k19678 -o|inlining procedure: k19693 -o|inlining procedure: k19693 -o|inlining procedure: k19744 -o|substituted constant variable: a19752 -o|inlining procedure: k19744 -o|inlining procedure: k19763 -o|inlining procedure: k19763 -o|inlining procedure: k19795 -o|inlining procedure: k19795 -o|inlining procedure: "(irregex-core.scm:2143) chicken.irregex#dfa-finalizer" -o|inlining procedure: k19678 -o|inlining procedure: "(irregex-core.scm:2135) chicken.irregex#dfa-init-state" -o|inlining procedure: "(irregex-core.scm:2133) chicken.irregex#chunker-get-next" -o|inlining procedure: "(irregex-core.scm:2132) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:2131) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:2130) chicken.irregex#chunker-get-str" -o|substituted constant variable: chicken.irregex#~searcher? -o|inlining procedure: k19053 -o|inlining procedure: "(irregex-core.scm:2032) chicken.irregex#%irregex-match-fail-set!" -o|contracted procedure: "(irregex-core.scm:2031) chicken.irregex#irregex-search/backtrack" -o|inlining procedure: k19210 -o|inlining procedure: k19210 -o|inlining procedure: k19228 -o|inlining procedure: k19228 -o|inlining procedure: k19264 -o|inlining procedure: "(irregex-core.scm:2059) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:2058) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:2057) chicken.irregex#chunker-get-str" -o|inlining procedure: k19264 -o|substituted constant variable: chicken.irregex#~searcher? -o|inlining procedure: "(irregex-core.scm:2039) chicken.irregex#chunker-get-next" -o|inlining procedure: "(irregex-core.scm:2038) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:2037) chicken.irregex#chunker-get-str" -o|contracted procedure: "(irregex-core.scm:2036) chicken.irregex#irregex-nfa" -o|contracted procedure: "(irregex-core.scm:1999) chicken.irregex#irregex-dfa" -o|inlining procedure: k19337 -o|inlining procedure: k19337 -o|inlining procedure: k19351 -o|inlining procedure: k19351 -o|inlining procedure: k19364 -o|inlining procedure: k19364 -o|inlining procedure: k19401 -o|inlining procedure: k19413 -o|inlining procedure: "(irregex-core.scm:2089) chicken.irregex#chunker-get-start" -o|inlining procedure: k19413 -o|contracted procedure: "(irregex-core.scm:2083) g33703371" -o|inlining procedure: "(irregex-core.scm:2083) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:2082) chicken.irregex#chunker-get-start" -o|inlining procedure: k19401 -o|inlining procedure: k19518 -o|inlining procedure: "(irregex-core.scm:2105) chicken.irregex#%irregex-match-fail-set!" -o|inlining procedure: k19530 -o|inlining procedure: "(irregex-core.scm:2108) chicken.irregex#%irregex-match-fail" -o|inlining procedure: k19530 -o|inlining procedure: "(irregex-core.scm:2107) chicken.irregex#%irregex-match-fail" -o|contracted procedure: "(irregex-core.scm:2103) g34103411" -o|inlining procedure: "(irregex-core.scm:2102) chicken.irregex#chunker-get-end" -o|contracted procedure: "(irregex-core.scm:2101) g34043405" -o|inlining procedure: "(irregex-core.scm:2100) chicken.irregex#chunker-get-next" -o|inlining procedure: k19518 -o|inlining procedure: "(irregex-core.scm:2095) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:2094) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:2093) chicken.irregex#chunker-get-str" -o|inlining procedure: "(irregex-core.scm:2077) chicken.irregex#irregex-match-chunker-set!" -o|inlining procedure: k19620 -o|inlining procedure: k19620 -o|removed unused formal parameters: (dfa3428) -o|removed unused formal parameters: (dfa3431) -o|substituted constant variable: a19841 -o|substituted constant variable: a19838 -o|inlining procedure: k19843 -o|inlining procedure: k19843 -o|substituted constant variable: a19857 -o|substituted constant variable: a19854 -o|inlining procedure: k19859 -o|inlining procedure: k19859 -o|inlining procedure: k19876 -o|inlining procedure: k19876 -o|inlining procedure: k20000 -o|inlining procedure: k20022 -o|inlining procedure: k20048 -o|inlining procedure: k20048 -o|contracted procedure: "(irregex-core.scm:2225) g36113612" -o|inlining procedure: k20022 -o|inlining procedure: k20000 -o|inlining procedure: k20121 -o|substituted constant variable: a20129 -o|substituted constant variable: a20132 -o|inlining procedure: k20121 -o|substituted constant variable: a20138 -o|inlining procedure: k20226 -o|contracted procedure: "(irregex-core.scm:2255) g36543672" -o|inlining procedure: k20226 -o|inlining procedure: k20249 -o|inlining procedure: k20249 -o|inlining procedure: k20283 -o|inlining procedure: k20283 -o|inlining procedure: "(irregex-core.scm:2241) chicken.irregex#dfa-cell-commands" -o|inlining procedure: "(irregex-core.scm:2238) chicken.irregex#dfa-finalizer" -o|inlining procedure: k20312 -o|inlining procedure: k20312 -o|inlining procedure: k20360 -o|inlining procedure: k20360 -o|contracted procedure: "(irregex-core.scm:2273) g37303731" -o|inlining procedure: k20392 -o|inlining procedure: k20392 -o|inlining procedure: k20457 -o|inlining procedure: k20457 -o|inlining procedure: "(irregex-core.scm:2201) chicken.irregex#dfa-cell-commands" -o|inlining procedure: "(irregex-core.scm:2192) chicken.irregex#dfa-finalizer" -o|contracted procedure: "(irregex-core.scm:2189) chicken.irregex#make-initial-memory" -o|substituted constant variable: a19903 -o|inlining procedure: k19913 -o|inlining procedure: k19913 -o|substituted constant variable: a19927 -o|inlining procedure: "(irregex-core.scm:2185) chicken.irregex#dfa-init-state" -o|inlining procedure: "(irregex-core.scm:2184) chicken.irregex#chunker-get-next" -o|inlining procedure: "(irregex-core.scm:2183) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:2182) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:2181) chicken.irregex#chunker-get-str" -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: k20582 -o|inlining procedure: k20582 -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: k20619 -o|contracted procedure: "(irregex-core.scm:2433) chicken.irregex#nfa-set-epsilons!" -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: k20619 -o|contracted procedure: "(irregex-core.scm:2490) chicken.irregex#nfa-set-state-trans!" -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|substituted constant variable: a20800 -o|inlining procedure: k20804 -o|inlining procedure: k20804 -o|substituted constant variable: a20818 -o|substituted constant variable: a20824 -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: k20840 -o|inlining procedure: k20840 -o|inlining procedure: k20860 -o|inlining procedure: k20860 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k20888 -o|inlining procedure: k20888 -o|inlining procedure: k20906 -o|inlining procedure: k20906 -o|inlining procedure: k20921 -o|substituted constant variable: a20941 -o|inlining procedure: k20945 -o|inlining procedure: k20945 -o|inlining procedure: k20921 -o|inlining procedure: k20991 -o|inlining procedure: k21011 -o|inlining procedure: k21011 -o|inlining procedure: k20991 -o|inlining procedure: k21036 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k21036 -o|inlining procedure: k21099 -o|substituted constant variable: a21138 -o|inlining procedure: k21132 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|propagated global variable: r2113332503 chicken.irregex#~case-insensitive? -o|inlining procedure: k21132 -o|substituted constant variable: chicken.irregex#~utf8? -o|propagated global variable: r2113332505 chicken.irregex#~utf8? -o|substituted constant variable: a21143 -o|inlining procedure: k21099 -o|consed rest parameter at call site: "(irregex-core.scm:2557) chicken.irregex#sre->cset" 2 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k21173 -o|inlining procedure: k21185 -o|inlining procedure: k21185 -o|inlining procedure: k21173 -o|inlining procedure: k21274 -o|inlining procedure: k21274 -o|inlining procedure: k21296 -o|inlining procedure: k21317 -o|inlining procedure: k21317 -o|inlining procedure: k21296 -o|inlining procedure: k21368 -o|inlining procedure: k21368 -o|inlining procedure: k21428 -o|inlining procedure: k21458 -o|inlining procedure: k21458 -o|inlining procedure: k21428 -o|inlining procedure: k21514 -o|inlining procedure: k21514 -o|substituted constant variable: a21561 -o|substituted constant variable: a21563 -o|substituted constant variable: a21568 -o|substituted constant variable: a21570 -o|substituted constant variable: a21575 -o|substituted constant variable: a21577 -o|substituted constant variable: a21579 -o|substituted constant variable: a21581 -o|inlining procedure: k21585 -o|inlining procedure: k21585 -o|substituted constant variable: a21598 -o|substituted constant variable: a21600 -o|substituted constant variable: a21602 -o|substituted constant variable: a21604 -o|inlining procedure: k21608 -o|inlining procedure: k21608 -o|substituted constant variable: a21621 -o|substituted constant variable: a21623 -o|substituted constant variable: a21625 -o|substituted constant variable: a21627 -o|substituted constant variable: a21632 -o|substituted constant variable: a21634 -o|inlining procedure: k21659 -o|substituted constant variable: a21673 -o|inlining procedure: k21677 -o|inlining procedure: k21677 -o|substituted constant variable: a21691 -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: k21659 -o|inlining procedure: k21716 -o|inlining procedure: k21716 -o|inlining procedure: k21741 -o|inlining procedure: k21741 -o|inlining procedure: k21790 -o|inlining procedure: k21790 -o|substituted constant variable: a21803 -o|substituted constant variable: a21805 -o|substituted constant variable: a21807 -o|substituted constant variable: a21809 -o|substituted constant variable: chicken.irregex#*nfa-presize* -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|substituted constant variable: chicken.irregex#*nfa-presize* -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|inlining procedure: "(irregex-core.scm:2748) chicken.irregex#nfa-num-tags" -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|inlining procedure: k21956 -o|inlining procedure: k21956 -o|inlining procedure: "(irregex-core.scm:2781) chicken.irregex#mst-hash-set!" -o|inlining procedure: k21997 -o|inlining procedure: k21997 -o|inlining procedure: "(irregex-core.scm:2771) chicken.irregex#mst-mappings-summary" -o|inlining procedure: "(irregex-core.scm:2769) chicken.irregex#mst-num-states-set!" -o|inlining procedure: "(irregex-core.scm:2769) chicken.irregex#mst-num-states" -o|inlining procedure: "(irregex-core.scm:2766) chicken.irregex#mst-hash" -o|inlining procedure: k22296 -o|inlining procedure: k22296 -o|substituted constant variable: a22310 -o|inlining procedure: k22312 -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|inlining procedure: k22312 -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|merged explicitly consed rest parameter: o4173 -o|inlining procedure: k22401 -o|contracted procedure: "(irregex-core.scm:2899) chicken.irregex#dfa-renumber" -o|inlining procedure: k22588 -o|inlining procedure: k22588 -o|substituted constant variable: a22608 -o|contracted procedure: "(irregex-core.scm:2951) chicken.irregex#maybe-cset->char" -o|inlining procedure: k26283 -o|inlining procedure: k26283 -o|substituted constant variable: a26322 -o|inlining procedure: k22664 -o|inlining procedure: k22664 -o|inlining procedure: k22702 -o|inlining procedure: k22702 -o|inlining procedure: "(irregex-core.scm:2898) chicken.irregex#nfa-highest-map-index" -o|inlining procedure: k22401 -o|inlining procedure: k22433 -o|inlining procedure: k22433 -o|inlining procedure: k22457 -o|inlining procedure: k22457 -o|contracted procedure: "(irregex-core.scm:2916) chicken.irregex#find-reorder-commands" -o|inlining procedure: k23380 -o|inlining procedure: k23380 -o|contracted procedure: "(irregex-core.scm:3123) chicken.irregex#nfa-set-reorder-commands!" -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: "(irregex-core.scm:2440) chicken.irregex#mst-hash" -o|contracted procedure: "(irregex-core.scm:3122) chicken.irregex#find-reorder-commands-internal" -o|inlining procedure: k23236 -o|inlining procedure: k23236 -o|inlining procedure: k23263 -o|inlining procedure: k23263 -o|inlining procedure: k23290 -o|inlining procedure: k23290 -o|inlining procedure: k23341 -o|inlining procedure: k23341 -o|inlining procedure: "(irregex-core.scm:3101) chicken.irregex#mst-mappings-summary" -o|contracted procedure: "(irregex-core.scm:3099) chicken.irregex#mst-same-states?" -o|inlining procedure: k22213 -o|inlining procedure: k22237 -o|inlining procedure: k22237 -o|substituted constant variable: a22251 -o|substituted constant variable: chicken.irregex#*mst-first-state-index* -o|inlining procedure: "(irregex-core.scm:2819) chicken.irregex#mst-num-states" -o|inlining procedure: "(irregex-core.scm:2819) chicken.irregex#mst-num-states" -o|inlining procedure: k22213 -o|inlining procedure: "(irregex-core.scm:2818) chicken.irregex#mst-hash" -o|inlining procedure: "(irregex-core.scm:2818) chicken.irregex#mst-hash" -o|inlining procedure: "(irregex-core.scm:3095) chicken.irregex#mst-mappings-summary" -o|inlining procedure: "(irregex-core.scm:3094) chicken.irregex#nfa-num-tags" -o|contracted procedure: "(irregex-core.scm:3121) chicken.irregex#nfa-get-reorder-commands" -o|inlining procedure: k20646 -o|inlining procedure: k20646 -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: "(irregex-core.scm:2436) chicken.irregex#mst-hash" -o|contracted procedure: "(irregex-core.scm:2906) chicken.irregex#get-distinct-transitions" -o|inlining procedure: k22759 -o|inlining procedure: k22759 -o|inlining procedure: k22777 -o|inlining procedure: k22777 -o|inlining procedure: k22836 -o|inlining procedure: k22836 -o|inlining procedure: k22813 -o|inlining procedure: k22813 -o|contracted procedure: "(irregex-core.scm:2984) csets-intersect?4261" -o|inlining procedure: k22740 -o|inlining procedure: k22740 -o|contracted procedure: "(irregex-core.scm:2967) chicken.irregex#nfa-get-state-trans" -o|inlining procedure: k20556 -o|inlining procedure: k20556 -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|contracted procedure: "(irregex-core.scm:2883) chicken.irregex#nfa-start-state" -o|substituted constant variable: a20534 -o|inlining procedure: k23057 -o|inlining procedure: k23057 -o|contracted procedure: "(irregex-core.scm:3050) chicken.irregex#nfa-add-closure!" -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: "(irregex-core.scm:2448) chicken.irregex#mst-hash" -o|contracted procedure: "(irregex-core.scm:3049) chicken.irregex#nfa-epsilon-closure-internal" -o|inlining procedure: k22936 -o|inlining procedure: k22936 -o|inlining procedure: k22959 -o|inlining procedure: k22959 -o|contracted procedure: "(irregex-core.scm:3038) chicken.irregex#mst-add-tagged!" -o|inlining procedure: "(irregex-core.scm:2813) chicken.irregex#mst-hash-set!" -o|inlining procedure: "(irregex-core.scm:2808) chicken.irregex#mst-num-states-set!" -o|inlining procedure: "(irregex-core.scm:2808) chicken.irregex#mst-num-states" -o|inlining procedure: "(irregex-core.scm:2805) chicken.irregex#mst-hash" -o|inlining procedure: k22163 -o|inlining procedure: k22163 -o|inlining procedure: "(irregex-core.scm:2797) chicken.irregex#mst-mappings-summary" -o|contracted procedure: "(irregex-core.scm:3036) chicken.irregex#next-index-for-tag!" -o|inlining procedure: k22333 -o|contracted procedure: "(irregex-core.scm:2845) chicken.irregex#nfa-set-highest-map-index!" -o|inlining procedure: k22333 -o|inlining procedure: k22345 -o|inlining procedure: k22345 -o|inlining procedure: "(irregex-core.scm:2841) chicken.irregex#mst-mappings-summary" -o|inlining procedure: "(irregex-core.scm:2840) chicken.irregex#nfa-highest-map-index" -o|inlining procedure: k22983 -o|inlining procedure: k22983 -o|contracted procedure: "(irregex-core.scm:3043) chicken.irregex#mst-add/fast!" -o|inlining procedure: "(irregex-core.scm:2790) chicken.irregex#mst-num-states-set!" -o|inlining procedure: "(irregex-core.scm:2790) chicken.irregex#mst-num-states" -o|inlining procedure: "(irregex-core.scm:2787) chicken.irregex#mst-hash-set!" -o|inlining procedure: "(irregex-core.scm:2788) chicken.irregex#mst-hash" -o|contracted procedure: "(irregex-core.scm:3048) chicken.irregex#nfa-get-closure" -o|inlining procedure: k20703 -o|inlining procedure: k20703 -o|substituted constant variable: chicken.irregex#*nfa-num-fields* -o|inlining procedure: "(irregex-core.scm:2444) chicken.irregex#mst-hash" -o|inlining procedure: k23084 -o|inlining procedure: k23084 -o|inlining procedure: k23104 -o|inlining procedure: k23104 -o|inlining procedure: k23146 -o|inlining procedure: k23168 -o|inlining procedure: k23168 -o|inlining procedure: k23192 -o|inlining procedure: k23192 -o|inlining procedure: k23146 -o|inlining procedure: "(irregex-core.scm:3058) chicken.irregex#mst-mappings-summary" -o|inlining procedure: "(irregex-core.scm:3057) chicken.irregex#mst-mappings-summary" -o|inlining procedure: "(irregex-core.scm:3056) chicken.irregex#nfa-num-tags" -o|inlining procedure: k26170 -o|substituted constant variable: a26187 -o|inlining procedure: k26170 -o|inlining procedure: k26222 -o|substituted constant variable: a26233 -o|inlining procedure: k26222 -o|inlining procedure: "(irregex-core.scm:3667) chicken.irregex#chunker-get-end" -o|inlining procedure: "(irregex-core.scm:3666) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3665) chicken.irregex#chunker-get-str" -o|inlining procedure: "(irregex-core.scm:3663) chicken.irregex#chunker-get-next" -o|removed side-effect free assignment to unused variable: chicken.irregex#cset-size -o|substituted constant variable: a26389 -o|inlining procedure: k26393 -o|inlining procedure: k26393 -o|inlining procedure: "(irregex-core.scm:3712) chicken.irregex#make-cset" -o|merged explicitly consed rest parameter: o5207 -o|inlining procedure: k26508 -o|inlining procedure: k26520 -o|inlining procedure: k26520 -o|inlining procedure: k26538 -o|inlining procedure: k26571 -o|inlining procedure: k26571 -o|inlining procedure: k26538 -o|inlining procedure: k26635 -o|inlining procedure: k26635 -o|inlining procedure: k26670 -o|inlining procedure: k26705 -o|inlining procedure: k26705 -o|inlining procedure: k26670 -o|inlining procedure: k26749 -o|inlining procedure: k26749 -o|contracted procedure: "(irregex-core.scm:3735) chicken.irregex#plist->cset" -o|inlining procedure: k26443 -o|inlining procedure: k26443 -o|inlining procedure: "(irregex-core.scm:3704) chicken.irregex#make-cset" -o|contracted procedure: "(irregex-core.scm:3735) chicken.irregex#sre-flatten-ranges" -o|inlining procedure: k18370 -o|inlining procedure: k18370 -o|inlining procedure: k26761 -o|inlining procedure: k26790 -o|inlining procedure: k26790 -o|inlining procedure: k26761 -o|inlining procedure: k26840 -o|inlining procedure: k26840 -o|substituted constant variable: a26859 -o|substituted constant variable: a26861 -o|substituted constant variable: a26863 -o|substituted constant variable: a26865 -o|substituted constant variable: a26867 -o|substituted constant variable: a26869 -o|substituted constant variable: a26871 -o|inlining procedure: k26508 -o|inlining procedure: k26880 -o|inlining procedure: k26880 -o|inlining procedure: k26893 -o|inlining procedure: k26893 -o|inlining procedure: k26962 -o|inlining procedure: k26962 -o|inlining procedure: k26977 -o|inlining procedure: k26977 -o|substituted constant variable: a27005 -o|inlining procedure: k26998 -o|inlining procedure: k26998 -o|inlining procedure: k27021 -o|inlining procedure: k27021 -o|substituted constant variable: a27037 -o|substituted constant variable: a27039 -o|inlining procedure: k27052 -o|inlining procedure: k27052 -o|inlining procedure: k27094 -o|inlining procedure: k27094 -o|substituted constant variable: a27150 -o|inlining procedure: k27142 -o|inlining procedure: k27142 -o|substituted constant variable: a27176 -o|inlining procedure: k27186 -o|inlining procedure: k27186 -o|inlining procedure: k27289 -o|inlining procedure: k27289 -o|inlining procedure: k27325 -o|inlining procedure: k27325 -o|inlining procedure: k27351 -o|inlining procedure: k27351 -o|inlining procedure: k27376 -o|inlining procedure: k27376 -o|contracted procedure: "(irregex-core.scm:3841) chicken.irregex#next-char" -o|substituted constant variable: a27259 -o|contracted procedure: "(irregex-core.scm:3839) chicken.irregex#prev-char" -o|substituted constant variable: a27271 -o|inlining procedure: k27485 -o|inlining procedure: k27485 -o|inlining procedure: k27518 -o|inlining procedure: k27518 -o|contracted procedure: "(irregex-core.scm:3868) chicken.irregex#min-char" -o|inlining procedure: k27453 -o|inlining procedure: k27453 -o|contracted procedure: "(irregex-core.scm:3867) chicken.irregex#max-char" -o|inlining procedure: k27462 -o|inlining procedure: k27462 -o|consed rest parameter at call site: "(irregex-core.scm:3876) chicken.irregex#sre->cset" 2 -o|inlining procedure: k27617 -o|inlining procedure: k27617 -o|inlining procedure: k27780 -o|inlining procedure: k27780 -o|inlining procedure: k27830 -o|inlining procedure: k27830 -o|substituted constant variable: chicken.irregex#~consumer? -o|contracted procedure: "(irregex-core.scm:3926) g54885489" -o|inlining procedure: "(irregex-core.scm:3913) chicken.irregex#irregex-match-chunker-set!" -o|propagated global variable: str73132902 chicken.irregex#irregex-basic-string-chunker -o|inlining procedure: k27875 -o|inlining procedure: k27875 -o|inlining procedure: k27889 -o|inlining procedure: k27889 -o|inlining procedure: k27908 -o|inlining procedure: k27908 -o|inlining procedure: k28014 -o|inlining procedure: k28014 -o|inlining procedure: k28058 -o|inlining procedure: "(irregex-core.scm:3965) chicken.irregex#chunker-get-start" -o|inlining procedure: "(irregex-core.scm:3964) chicken.irregex#chunker-get-next" -o|inlining procedure: "(irregex-core.scm:3963) chicken.irregex#chunker-get-end" -o|inlining procedure: k28058 -o|substituted constant variable: chicken.irregex#~consumer? -o|contracted procedure: "(irregex-core.scm:3960) g55405541" -o|inlining procedure: "(irregex-core.scm:3953) chicken.irregex#irregex-match-chunker-set!" -o|inlining procedure: "(irregex-core.scm:3950) chicken.irregex#chunker-get-start" -o|inlining procedure: k28200 -o|contracted procedure: "(irregex-core.scm:3985) g55725573" -o|inlining procedure: k28200 -o|inlining procedure: k28299 -o|inlining procedure: k28299 -o|contracted procedure: "(irregex-core.scm:3994) g55855586" -o|inlining procedure: k28337 -o|inlining procedure: k28337 -o|inlining procedure: k28369 -o|inlining procedure: k28369 -o|inlining procedure: k28395 -o|inlining procedure: k28395 -o|inlining procedure: k28400 -o|inlining procedure: k28400 -o|inlining procedure: k28427 -o|contracted procedure: "(irregex-core.scm:4023) g56185619" -o|contracted procedure: "(irregex-core.scm:4021) g56145615" -o|inlining procedure: k28427 -o|contracted procedure: "(irregex-core.scm:4026) g56235624" -o|inlining procedure: k28538 -o|inlining procedure: k28538 -o|substituted constant variable: a28573 -o|substituted constant variable: a28575 -o|inlining procedure: k28644 -o|inlining procedure: k28644 -o|contracted procedure: "(irregex-core.scm:4062) g56655666" -o|contracted procedure: "(irregex-core.scm:4059) g56615662" -o|inlining procedure: k28712 -o|inlining procedure: k28712 -o|inlining procedure: k28730 -o|inlining procedure: k28730 -o|inlining procedure: k28840 -o|inlining procedure: k28840 -o|substituted constant variable: a28857 -o|inlining procedure: k28884 -o|inlining procedure: k28884 -o|substituted constant variable: chicken.irregex#rx-special-chars -o|inlining procedure: k29047 -o|inlining procedure: k29047 -o|inlining procedure: k29069 -o|inlining procedure: k29081 -o|contracted procedure: "(irregex-utils.scm:47) make-alt5916" -o|inlining procedure: k28930 -o|inlining procedure: k28930 -o|inlining procedure: k29081 -o|substituted constant variable: a29111 -o|inlining procedure: k29113 -o|inlining procedure: k29113 -o|contracted procedure: "(irregex-utils.scm:55) make-seq5917" -o|inlining procedure: k28960 -o|inlining procedure: k28960 -o|inlining procedure: k28997 -o|contracted procedure: "(irregex-utils.scm:36) g59405949" -o|inlining procedure: k28982 -o|inlining procedure: k28982 -o|inlining procedure: k28997 -o|inlining procedure: k29037 -o|inlining procedure: k29037 -o|inlining procedure: k29069 -o|substituted constant variable: a29185 -o|inlining procedure: k29206 -o|inlining procedure: k29206 -o|inlining procedure: k29286 -o|inlining procedure: k29302 -o|inlining procedure: k29324 -o|inlining procedure: k29324 -o|inlining procedure: k29302 -o|inlining procedure: k29354 -o|inlining procedure: k29354 -o|inlining procedure: k29377 -o|inlining procedure: k29377 -o|inlining procedure: k29396 -o|inlining procedure: k29418 -o|inlining procedure: k29418 -o|inlining procedure: k29396 -o|inlining procedure: k29468 -o|inlining procedure: k29468 -o|inlining procedure: k29492 -o|inlining procedure: k29527 -o|inlining procedure: k29527 -o|inlining procedure: k29492 -o|inlining procedure: k29590 -o|inlining procedure: k29590 -o|inlining procedure: k29617 -o|substituted constant variable: a29630 -o|inlining procedure: k29617 -o|inlining procedure: k29645 -o|inlining procedure: k29645 -o|inlining procedure: k29712 -o|inlining procedure: k29744 -o|inlining procedure: k29744 -o|substituted constant variable: a29754 -o|consed rest parameter at call site: "(irregex-utils.scm:130) chicken.irregex#sre->cset" 2 -o|inlining procedure: k29768 -o|inlining procedure: k29768 -o|substituted constant variable: a29791 -o|inlining procedure: k29712 -o|inlining procedure: k29825 -o|inlining procedure: k29825 -o|inlining procedure: k29853 -o|inlining procedure: k29853 -o|substituted constant variable: a29881 -o|substituted constant variable: a29883 -o|inlining procedure: k29887 -o|inlining procedure: k29887 -o|substituted constant variable: a29900 -o|substituted constant variable: a29902 -o|substituted constant variable: a29904 -o|substituted constant variable: a29906 -o|substituted constant variable: a29908 -o|substituted constant variable: a29910 -o|inlining procedure: k29914 -o|inlining procedure: k29914 -o|inlining procedure: k29926 -o|inlining procedure: k29926 -o|substituted constant variable: a29933 -o|substituted constant variable: a29935 -o|substituted constant variable: a29937 -o|substituted constant variable: a29939 -o|substituted constant variable: a29941 -o|substituted constant variable: a29943 -o|substituted constant variable: a29945 -o|substituted constant variable: a29947 -o|substituted constant variable: a29952 -o|substituted constant variable: a29954 -o|inlining procedure: k29286 -o|inlining procedure: k29961 -o|inlining procedure: k29961 -o|inlining procedure: k29985 -o|inlining procedure: k29985 -o|substituted constant variable: a30004 -o|substituted constant variable: a30006 -o|substituted constant variable: a30011 -o|substituted constant variable: a30013 -o|substituted constant variable: a30018 -o|substituted constant variable: a30020 -o|inlining procedure: k30021 -o|inlining procedure: k30021 -o|inlining procedure: k30075 -o|inlining procedure: k30075 -o|inlining procedure: k30091 -o|inlining procedure: k30091 -o|substituted constant variable: a30164 -o|inlining procedure: k30160 -o|inlining procedure: k30160 -o|substituted constant variable: a30176 -o|inlining procedure: k30183 -o|inlining procedure: k30183 -o|substituted constant variable: a30224 -o|inlining procedure: k30225 -o|inlining procedure: k30225 -o|inlining procedure: k30300 -o|inlining procedure: k30300 -o|substituted constant variable: a30335 -o|inlining procedure: k31010 -o|inlining procedure: k31010 -o|simplifications: ((if . 8)) -o|replaced variables: 7216 -o|removed binding forms: 706 -o|substituted constant variable: r764931029 -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunker -o|removed side-effect free assignment to unused variable: chicken.irregex#irregex-match-chunker-set! -o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-fail -o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-fail-set! -o|substituted constant variable: r777631031 -o|substituted constant variable: r780131033 -o|substituted constant variable: r783031035 -o|substituted constant variable: r785931037 -o|substituted constant variable: r801631044 -o|substituted constant variable: r802431045 -o|substituted constant variable: r802431046 -o|substituted constant variable: r799431048 -o|substituted constant variable: r815431056 -o|substituted constant variable: r776031058 -o|substituted constant variable: r776031059 -o|substituted constant variable: r820231066 -o|inlining procedure: k8409 -o|substituted constant variable: r842231087 -o|inlining procedure: k8409 -o|substituted constant variable: r841031088 -o|substituted constant variable: r841031088 -o|folded constant expression: (scheme#not (quote #f)) -o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-next -o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-str -o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-start -o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-end -o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-substring -o|removed side-effect free assignment to unused variable: chicken.irregex#chunker-get-subchunk -o|substituted constant variable: r863831105 -o|substituted constant variable: r860231106 -o|substituted constant variable: r867131126 -o|substituted constant variable: r882531132 -o|substituted constant variable: fstart1100 -o|substituted constant variable: r915631140 -o|substituted constant variable: r919931144 -o|substituted constant variable: r929231153 -o|removed side-effect free assignment to unused variable: chicken.irregex#~none -o|removed side-effect free assignment to unused variable: chicken.irregex#dot-token -o|converted assignments to bindings: (collect1327) -o|substituted constant variable: r1014231186 -o|substituted constant variable: r1014231186 -o|inlining procedure: k10141 -o|inlining procedure: k10141 -o|removed side-effect free assignment to unused variable: chicken.irregex#~save? -o|removed side-effect free assignment to unused variable: chicken.irregex#~multi-line? -o|removed side-effect free assignment to unused variable: chicken.irregex#~ignore-space? -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|inlining procedure: k10354 -o|inlining procedure: k10354 -o|substituted constant variable: chicken.irregex#~single-line? -o|propagated global variable: r1035533135 chicken.irregex#~single-line? -o|propagated global variable: r1035533135 chicken.irregex#~single-line? -o|inlining procedure: k10354 -o|inlining procedure: k10354 -o|inlining procedure: k10354 -o|substituted constant variable: r1039131221 -o|substituted constant variable: r1422231240 -o|converted assignments to bindings: (shift1496) -o|substituted constant variable: r1086031253 -o|substituted constant variable: r1173531311 -o|substituted constant variable: r1173531311 -o|substituted constant variable: r1173531313 -o|substituted constant variable: r1173531313 -o|substituted constant variable: r1215031377 -o|substituted constant variable: c1065 -o|converted assignments to bindings: (collect1075) -o|substituted constant variable: r1325831404 -o|substituted constant variable: r1327031406 -o|substituted constant variable: r892531416 -o|substituted constant variable: r886831434 -o|substituted constant variable: c1041 -o|folded constant expression: (scheme#eq? (quote #\}) (quote #\\)) -o|substituted constant variable: c1041 -o|converted assignments to bindings: (byte1929) -o|substituted constant variable: r1426031444 -o|substituted constant variable: r1427231446 -o|substituted constant variable: r1549531463 -o|substituted constant variable: r1549531463 -o|substituted constant variable: r1429831471 -o|substituted constant variable: r1431031473 -o|substituted constant variable: r1536131481 -o|substituted constant variable: r1536131481 -o|folded constant expression: (scheme#integer->char (quote 127)) -o|substituted constant variable: r1536131483 -o|substituted constant variable: r1536131483 -o|folded constant expression: (scheme#integer->char (quote 255)) -o|substituted constant variable: r1452431487 -o|substituted constant variable: r1452431487 -o|substituted constant variable: r2408031547 -o|substituted constant variable: r2408831549 -o|substituted constant variable: r2410331551 -o|substituted constant variable: r2424231562 -o|substituted constant variable: r2425031564 -o|substituted constant variable: r2426531566 -o|substituted constant variable: r873131595 -o|substituted constant variable: r877331609 -o|substituted constant variable: r2568231779 -o|substituted constant variable: r2582531812 -o|converted assignments to bindings: (rec4413) -o|substituted constant variable: chicken.irregex#~consumer? -o|substituted constant variable: chicken.irregex#~consumer? -o|substituted constant variable: r1623131887 -o|substituted constant variable: r1623131887 -o|substituted constant variable: chicken.irregex#~searcher? -o|substituted constant variable: chicken.irregex#~searcher? -o|substituted constant variable: r1623831891 -o|substituted constant variable: r1623831891 -o|substituted constant variable: r1710931896 -o|substituted constant variable: r1710931896 -o|inlining procedure: k17190 -o|substituted constant variable: r1719131905 -o|substituted constant variable: r1719131905 -o|inlining procedure: k17225 -o|substituted constant variable: r1722631910 -o|substituted constant variable: r1722631910 -o|inlining procedure: k17268 -o|substituted constant variable: r1726931916 -o|substituted constant variable: r1726931916 -o|substituted constant variable: r1727931920 -o|substituted constant variable: r1727931920 -o|inlining procedure: k17307 -o|substituted constant variable: r1730831925 -o|substituted constant variable: r1730831925 -o|inlining procedure: k17395 -o|substituted constant variable: r1740231931 -o|substituted constant variable: r1739631932 -o|substituted constant variable: r1739631932 -o|inlining procedure: k17576 -o|substituted constant variable: r1757731951 -o|substituted constant variable: r1757731951 -o|inlining procedure: k17707 -o|substituted constant variable: r1770831961 -o|substituted constant variable: r1770831961 -o|substituted constant variable: r1776631964 -o|substituted constant variable: r1778131966 -o|inlining procedure: k17852 -o|substituted constant variable: r1785331971 -o|substituted constant variable: r1785331971 -o|substituted constant variable: r1789331974 -o|substituted constant variable: r1789331974 -o|converted assignments to bindings: (grow2830) -o|substituted constant variable: r1626232011 -o|substituted constant variable: r1629732013 -o|substituted constant variable: r1629732014 -o|substituted constant variable: r1581032029 -o|substituted constant variable: r1595932039 -o|substituted constant variable: r1595932040 -o|substituted constant variable: r1602432046 -o|converted assignments to bindings: (rec2338) -o|substituted constant variable: r1636132051 -o|substituted constant variable: r1650632067 -o|substituted constant variable: r1660332076 -o|substituted constant variable: r1659132077 -o|substituted constant variable: r1657932079 -o|substituted constant variable: r1664032082 -o|substituted constant variable: r1665532084 -o|substituted constant variable: r1675332095 -o|substituted constant variable: r1676832097 -o|substituted constant variable: r1687032107 -o|substituted constant variable: r1688532109 -o|substituted constant variable: r1694732117 -o|substituted constant variable: r1700932119 -o|substituted constant variable: r1700932119 -o|inlining procedure: k17008 -o|substituted constant variable: r1703532124 -o|substituted constant variable: r1819232128 -o|substituted constant variable: r1821532130 -o|substituted constant variable: r1895632178 -o|substituted constant variable: r1895632178 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r1897032182 -o|substituted constant variable: r1897032182 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r1898332185 -o|substituted constant variable: r1906632199 -o|substituted constant variable: r1915332204 -o|substituted constant variable: r1909132220 -o|substituted constant variable: r1969432222 -o|substituted constant variable: index3439 -o|substituted constant variable: index3439 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: index3439 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|inlining procedure: k19699 -o|inlining procedure: k19717 -o|inlining procedure: k19729 -o|substituted constant variable: r1974532225 -o|substituted constant variable: r1979632229 -o|substituted constant variable: r1967932236 -o|substituted constant variable: x73932265 -o|inlining procedure: k19183 -o|substituted constant variable: r1926532289 -o|substituted constant variable: r1933832307 -o|substituted constant variable: r1933832307 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r1935232311 -o|substituted constant variable: r1935232311 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r1936532314 -o|substituted constant variable: r1941432322 -o|substituted constant variable: n3373 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: x73932337 -o|substituted constant variable: r1953132347 -o|substituted constant variable: n3413 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: n3407 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: r1951932363 -o|substituted constant variable: r1962132385 -o|substituted constant variable: r1962132386 -o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-init-state -o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-cell-commands -o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-finalizer -o|substituted constant variable: r1984432389 -o|substituted constant variable: r1984432389 -o|substituted constant variable: r1986032393 -o|substituted constant variable: r1986032393 -o|substituted constant variable: r2004932399 -o|substituted constant variable: r2004932400 -o|inlining procedure: k20054 -o|substituted constant variable: r2002332401 -o|substituted constant variable: r2031332423 -o|inlining procedure: k20318 -o|removed side-effect free assignment to unused variable: chicken.irregex#*nfa-presize* -o|removed side-effect free assignment to unused variable: chicken.irregex#*nfa-num-fields* -o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-num-tags -o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-highest-map-index -o|substituted constant variable: r2058332472 -o|substituted constant variable: r2084132479 -o|substituted constant variable: r2090732485 -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|substituted constant variable: chicken.irregex#~case-insensitive? -o|substituted constant variable: chicken.irregex#~utf8? -o|substituted constant variable: chicken.irregex#~utf8? -o|inlining procedure: k21280 -o|substituted constant variable: r2127532515 -o|inlining procedure: k21380 -o|substituted constant variable: r2136932523 -o|substituted constant variable: r2166032539 -o|removed side-effect free assignment to unused variable: chicken.irregex#*mst-first-state-index* -o|removed side-effect free assignment to unused variable: chicken.irregex#mst-mappings-summary -o|removed side-effect free assignment to unused variable: chicken.irregex#mst-num-states -o|removed side-effect free assignment to unused variable: chicken.irregex#mst-num-states-set! -o|removed side-effect free assignment to unused variable: chicken.irregex#mst-hash -o|removed side-effect free assignment to unused variable: chicken.irregex#mst-hash-set! -o|substituted constant variable: r2323732614 -o|substituted constant variable: r2221432642 -o|substituted constant variable: r2064732664 -o|substituted constant variable: r2274132679 -o|substituted constant variable: r2055732680 -o|substituted constant variable: r2070432763 -o|substituted constant variable: r2316932775 -o|substituted constant variable: r2319332777 -o|substituted constant variable: r2314732778 -o|removed side-effect free assignment to unused variable: chicken.irregex#make-cset -o|removed side-effect free assignment to unused variable: chicken.irregex#cset=? -o|converted assignments to bindings: (rec5215) -o|substituted constant variable: r2696332858 -o|substituted constant variable: r2697832861 -o|substituted constant variable: r2702232865 -o|substituted constant variable: n5491 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: r2787632908 -o|substituted constant variable: r2787632908 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r2789032912 -o|substituted constant variable: r2789032912 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r2790932915 -o|substituted constant variable: n5543 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: n5575 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: n5588 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: r2839632958 -o|substituted constant variable: r2839632958 -o|substituted constant variable: n5621 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: n5617 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: n5626 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: n5668 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|substituted constant variable: n5664 -o|folded constant expression: (scheme#* (quote 0) (quote 4)) -o|removed side-effect free assignment to unused variable: chicken.irregex#rx-special-chars -o|substituted constant variable: r2884132974 -o|substituted constant variable: r2904832978 -o|substituted constant variable: r2937833008 -o|substituted constant variable: r2961833022 -o|substituted constant variable: r2976933031 -o|substituted constant variable: r3007633050 -o|substituted constant variable: r3030133061 -o|simplifications: ((let . 8)) -o|replaced variables: 1054 -o|removed binding forms: 6526 -o|removed conditional forms: 1 -o|inlining procedure: k8037 -o|inlining procedure: k8037 -o|inlining procedure: k8396 -o|substituted constant variable: r841033076 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r841033078 -o|folded constant expression: (scheme#not (quote #f)) -o|removed side-effect free assignment to unused variable: chicken.irregex#~searcher? -o|removed side-effect free assignment to unused variable: chicken.irregex#~consumer? -o|substituted constant variable: r1014233127 -o|removed side-effect free assignment to unused variable: chicken.irregex#~case-insensitive? -o|removed side-effect free assignment to unused variable: chicken.irregex#~utf8? -o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-join" -o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-join" -o|substituted constant variable: r1035533133 -o|substituted constant variable: chicken.irregex#~single-line? -o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-join" -o|substituted constant variable: chicken.irregex#~single-line? -o|propagated global variable: b126133612 chicken.irregex#~single-line? -o|propagated global variable: b126133612 chicken.irregex#~single-line? -o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-join" -o|substituted constant variable: r1035533137 -o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-join" -o|substituted constant variable: r1035533139 -o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-join" -o|substituted constant variable: r1035533141 -o|contracted procedure: k10354 -o|inlining procedure: "(irregex-core.scm:765) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:770) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:779) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:823) chicken.irregex#flag-set?" -o|inlining procedure: k10937 -o|inlining procedure: k10937 -o|inlining procedure: "(irregex-core.scm:858) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:900) chicken.irregex#flag-join" -o|inlining procedure: "(irregex-core.scm:917) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:919) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:922) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:931) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:934) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:941) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:947) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:962) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:967) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:970) chicken.irregex#flag-clear" -o|inlining procedure: chicken.irregex#flag-clear -o|inlining procedure: chicken.irregex#flag-join -o|inlining procedure: "(irregex-core.scm:981) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:980) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1239) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1240) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1238) chicken.irregex#cset-empty?" -o|inlining procedure: "(irregex-core.scm:1250) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1259) chicken.irregex#range->cset" -o|inlining procedure: "(irregex-core.scm:1267) chicken.irregex#utf8-start-char->length" -o|inlining procedure: "(irregex-core.scm:1287) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1298) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1303) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1309) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1306) chicken.irregex#utf8-start-char->length" -o|inlining procedure: "(irregex-core.scm:1310) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1315) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:1314) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1231) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1112) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1155) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:460) a12929" -o|inlining procedure: "(irregex-core.scm:1173) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1176) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1179) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1183) chicken.irregex#flag-set?" -o|contracted procedure: k8882 -o|removed call to pure procedure with unused result: "(irregex-core.scm:1455) ##sys#slot" -o|removed call to pure procedure with unused result: "(irregex-core.scm:1510) ##sys#slot" -o|inlining procedure: k15123 -o|inlining procedure: k15123 -o|inlining procedure: k15123 -o|inlining procedure: k15123 -o|removed call to pure procedure with unused result: "(irregex-core.scm:1521) ##sys#slot" -o|inlining procedure: "(irregex-core.scm:1518) chicken.irregex#utf8-start-char->length" -o|removed call to pure procedure with unused result: "(irregex-core.scm:1501) ##sys#slot" -o|inlining procedure: k15356 -o|inlining procedure: k15356 -o|removed call to pure procedure with unused result: "(irregex-core.scm:1530) ##sys#slot" -o|inlining procedure: "(irregex-core.scm:1541) chicken.irregex#high-char?" -o|inlining procedure: "(irregex-core.scm:1541) chicken.irregex#high-char?" -o|inlining procedure: "(irregex-core.scm:3153) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:3158) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:3177) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:3182) chicken.irregex#flag-join" -o|inlining procedure: "(irregex-core.scm:3185) chicken.irregex#flag-join" -o|inlining procedure: "(irregex-core.scm:3187) chicken.irregex#flag-clear" -o|inlining procedure: "(irregex-core.scm:3416) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:3597) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1641) chicken.irregex#flag-join" -o|inlining procedure: "(irregex-core.scm:1641) chicken.irregex#flag-join" -o|inlining procedure: "(irregex-core.scm:1642) chicken.irregex#flag-join" -o|inlining procedure: "(irregex-core.scm:1642) chicken.irregex#flag-join" -o|substituted constant variable: r1719133231 -o|substituted constant variable: r1722633233 -o|substituted constant variable: r1726933237 -o|substituted constant variable: r1730833239 -o|substituted constant variable: r1739633243 -o|substituted constant variable: r1757733245 -o|substituted constant variable: r1770833247 -o|substituted constant variable: r1785333249 -o|inlining procedure: "(irregex-core.scm:1636) chicken.irregex#nfa-num-states" -o|inlining procedure: "(irregex-core.scm:1632) chicken.irregex#nfa-num-states" -o|inlining procedure: "(irregex-core.scm:1583) chicken.irregex#high-char?" -o|inlining procedure: "(irregex-core.scm:1550) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:1549) chicken.irregex#flag-set?" -o|substituted constant variable: r1700933269 -o|inlining procedure: k18948 -o|inlining procedure: k18962 -o|substituted constant variable: r1971833297 -o|folded constant expression: (scheme#+ (quote 3) (quote 0)) -o|substituted constant variable: r1973033299 -o|folded constant expression: (scheme#+ (quote 2) (quote 0)) -o|inlining procedure: "(irregex-core.scm:2156) chicken.irregex#dfa-next-state" -o|inlining procedure: "(irregex-core.scm:2135) chicken.irregex#dfa-next-state" -o|inlining procedure: "(irregex-core.scm:2001) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:2040) chicken.irregex#flag-set?" -o|inlining procedure: k19330 -o|inlining procedure: k19344 -o|contracted procedure: k19466 -o|contracted procedure: k19578 -o|contracted procedure: k19606 -o|substituted constant variable: r200493239933328 -o|substituted constant variable: r200493240033329 -o|inlining procedure: k20303 -o|inlining procedure: "(irregex-core.scm:2237) chicken.irregex#dfa-next-state" -o|substituted constant variable: r203133242333339 -o|inlining procedure: "(irregex-core.scm:2191) chicken.irregex#dfa-next-state" -o|inlining procedure: "(irregex-core.scm:2498) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:2498) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:2499) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:2497) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:2536) chicken.irregex#flag-set?" -o|inlining procedure: "(irregex-core.scm:2558) chicken.irregex#flag-set?" -o|inlining procedure: k21320 -o|inlining procedure: "(irregex-core.scm:2747) chicken.irregex#nfa-num-states" -o|inlining procedure: "(irregex-core.scm:2781) chicken.irregex#nfa-num-states" -o|inlining procedure: "(irregex-core.scm:2767) chicken.irregex#mst-state-mappings" -o|inlining procedure: "(irregex-core.scm:2910) chicken.irregex#mst-state-mappings" -o|inlining procedure: k23367 -o|inlining procedure: k23367 -o|inlining procedure: "(irregex-core.scm:3000) chicken.irregex#cset-empty?" -o|inlining procedure: "(irregex-core.scm:2990) chicken.irregex#cset-empty?" -o|inlining procedure: "(irregex-core.scm:2963) chicken.irregex#cset-empty?" -o|inlining procedure: k22566 -o|inlining procedure: "(irregex-core.scm:2412) chicken.irregex#nfa-num-states" -o|inlining procedure: "(irregex-core.scm:2813) chicken.irregex#nfa-num-states" -o|inlining procedure: "(irregex-core.scm:2806) chicken.irregex#mst-state-mappings" -o|inlining procedure: "(irregex-core.scm:2789) chicken.irregex#nfa-num-states" -o|inlining procedure: k22042 -o|inlining procedure: "(irregex-core.scm:2786) chicken.irregex#mst-state-mappings" -o|inlining procedure: "(irregex-core.scm:3017) chicken.irregex#nfa-num-states" -o|inlining procedure: "(irregex-core.scm:3711) chicken.irregex#cset-adjoin" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: "(irregex-core.scm:3707) chicken.irregex#range->cset" -o|inlining procedure: "(irregex-core.scm:3748) chicken.irregex#range->cset" -o|inlining procedure: "(irregex-core.scm:3749) chicken.irregex#range->cset" -o|inlining procedure: "(irregex-core.scm:3812) chicken.irregex#char->cset" -o|inlining procedure: k27568 -o|inlining procedure: k27568 -o|inlining procedure: "(irregex-core.scm:3889) chicken.irregex#range->cset" -o|inlining procedure: "(irregex-core.scm:3931) chicken.irregex#flag-set?" -o|contracted procedure: k27815 -o|inlining procedure: k27868 -o|inlining procedure: k27882 -o|inlining procedure: k27896 -o|inlining procedure: k27896 -o|inlining procedure: k27923 -o|inlining procedure: "(irregex-core.scm:3969) chicken.irregex#flag-set?" -o|contracted procedure: k28049 -o|contracted procedure: k28245 -o|contracted procedure: k28293 -o|contracted procedure: k28465 -o|contracted procedure: k28482 -o|contracted procedure: k28529 -o|contracted procedure: k28672 -o|contracted procedure: k28693 -o|inlining procedure: k28792 -o|inlining procedure: k29087 -o|inlining procedure: k29132 -o|inlining procedure: k29018 -o|replaced variables: 4 -o|removed binding forms: 1114 -o|substituted constant variable: r803833551 -o|substituted constant variable: r803833554 -o|removed side-effect free assignment to unused variable: chicken.irregex#flag-set? -o|substituted constant variable: b126133604 -o|substituted constant variable: b126133604 -o|substituted constant variable: b126133608 -o|substituted constant variable: b126133608 -o|substituted constant variable: chicken.irregex#~single-line? -o|substituted constant variable: chicken.irregex#~single-line? -o|substituted constant variable: b126133616 -o|substituted constant variable: b126133616 -o|substituted constant variable: b126133620 -o|substituted constant variable: b126133620 -o|substituted constant variable: b126133624 -o|substituted constant variable: b126133624 -o|substituted constant variable: r10355 -o|substituted constant variable: i125733630 -o|substituted constant variable: i125733630 -o|substituted constant variable: i125733638 -o|substituted constant variable: i125733638 -o|substituted constant variable: i125733652 -o|substituted constant variable: i125733652 -o|substituted constant variable: i125733658 -o|substituted constant variable: i125733658 -o|substituted constant variable: r1093833664 -o|substituted constant variable: r1093833668 -o|substituted constant variable: i125733674 -o|substituted constant variable: i125733674 -o|substituted constant variable: b126133680 -o|substituted constant variable: b126133680 -o|substituted constant variable: b126533684 -o|substituted constant variable: b126533690 -o|substituted constant variable: b126533696 -o|substituted constant variable: b126533702 -o|substituted constant variable: b126533708 -o|substituted constant variable: b126533714 -o|substituted constant variable: b126533720 -o|substituted constant variable: b126533726 -o|substituted constant variable: b126533732 -o|substituted constant variable: b126533738 -o|substituted constant variable: i125733754 -o|substituted constant variable: i125733754 -o|substituted constant variable: i125733760 -o|substituted constant variable: i125733760 -o|substituted constant variable: ch539033768 -o|substituted constant variable: ch539033768 -o|substituted constant variable: ch539033768 -o|substituted constant variable: i125733779 -o|substituted constant variable: i125733779 -o|substituted constant variable: ch539033812 -o|substituted constant variable: ch539033812 -o|substituted constant variable: ch539033812 -o|substituted constant variable: ch517533871 -o|substituted constant variable: ch517533871 -o|substituted constant variable: i125733877 -o|substituted constant variable: i125733877 -o|substituted constant variable: i125733885 -o|substituted constant variable: i125733885 -o|substituted constant variable: i125733893 -o|substituted constant variable: i125733893 -o|substituted constant variable: i125733901 -o|substituted constant variable: i125733901 -o|substituted constant variable: i125733914 -o|substituted constant variable: i125733914 -o|substituted constant variable: i125733920 -o|substituted constant variable: i125733920 -o|substituted constant variable: i125733926 -o|substituted constant variable: i125733926 -o|substituted constant variable: i125733932 -o|substituted constant variable: i125733932 -o|substituted constant variable: r8883 -o|removed side-effect free assignment to unused variable: chicken.irregex#utf8-start-char->length -o|contracted procedure: k14702 -o|contracted procedure: k15104 -o|substituted constant variable: r1512433950 -o|folded constant expression: (scheme#integer->char (quote 127)) -o|substituted constant variable: r1512433951 -o|folded constant expression: (scheme#integer->char (quote 223)) -o|substituted constant variable: r1512433952 -o|folded constant expression: (scheme#integer->char (quote 239)) -o|substituted constant variable: r1512433953 -o|folded constant expression: (scheme#integer->char (quote 247)) -o|contracted procedure: k15207 -o|contracted procedure: k15345 -o|substituted constant variable: r1535733965 -o|substituted constant variable: r1535733966 -o|contracted procedure: k15436 -o|contracted procedure: k16207 -o|substituted constant variable: i125733985 -o|substituted constant variable: i125733985 -o|substituted constant variable: i125733991 -o|substituted constant variable: i125733991 -o|substituted constant variable: b126533997 -o|substituted constant variable: b126134003 -o|substituted constant variable: b126134003 -o|substituted constant variable: b126134007 -o|substituted constant variable: b126134007 -o|substituted constant variable: b126534011 -o|substituted constant variable: i125734019 -o|substituted constant variable: i125734019 -o|substituted constant variable: i125734029 -o|substituted constant variable: i125734029 -o|substituted constant variable: b126134037 -o|substituted constant variable: b126134037 -o|substituted constant variable: b126134041 -o|substituted constant variable: b126134041 -o|substituted constant variable: b126134045 -o|substituted constant variable: a126034044 -o|substituted constant variable: b126134045 -o|substituted constant variable: a126034044 -o|substituted constant variable: b126134049 -o|substituted constant variable: a126034048 -o|substituted constant variable: b126134049 -o|substituted constant variable: a126034048 -o|substituted constant variable: i125734086 -o|substituted constant variable: i125734086 -o|substituted constant variable: i125734092 -o|substituted constant variable: i125734092 -o|substituted constant variable: r1894934102 -o|substituted constant variable: r1896334103 -o|contracted procedure: k19713 -o|contracted procedure: k19725 -o|substituted constant variable: i125734126 -o|substituted constant variable: i125734126 -o|substituted constant variable: i125734134 -o|substituted constant variable: i125734134 -o|substituted constant variable: r1933134138 -o|substituted constant variable: r1934534139 -o|substituted constant variable: r19467 -o|folded constant expression: (scheme#+ (quote 2) (quote 0)) -o|substituted constant variable: r19579 -o|folded constant expression: (scheme#+ (quote 2) (quote 0)) -o|substituted constant variable: r19607 -o|folded constant expression: (scheme#+ (quote 2) (quote 0)) -o|removed side-effect free assignment to unused variable: chicken.irregex#dfa-next-state -o|substituted constant variable: r2030434150 -o|removed side-effect free assignment to unused variable: chicken.irregex#nfa-num-states -o|substituted constant variable: i125734190 -o|substituted constant variable: i125734190 -o|substituted constant variable: i125734198 -o|substituted constant variable: i125734198 -o|substituted constant variable: i125734204 -o|substituted constant variable: i125734204 -o|removed side-effect free assignment to unused variable: chicken.irregex#mst-state-mappings -o|substituted constant variable: state402634243 -o|folded constant expression: (scheme#+ (quote 0) (quote 3)) -o|substituted constant variable: r2336834253 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r2336834254 -o|folded constant expression: (scheme#not (quote #f)) -o|contracted procedure: k22991 -o|removed side-effect free assignment to unused variable: chicken.irregex#range->cset -o|removed side-effect free assignment to unused variable: chicken.irregex#char->cset -o|removed side-effect free assignment to unused variable: chicken.irregex#cset-empty? -o|removed side-effect free assignment to unused variable: chicken.irregex#cset-adjoin -o|substituted constant variable: i125734398 -o|substituted constant variable: i125734398 -o|substituted constant variable: r27816 -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|substituted constant variable: r2786934404 -o|substituted constant variable: r2788334405 -o|substituted constant variable: r2789734406 -o|substituted constant variable: r2789734407 -o|substituted constant variable: r2792434408 -o|substituted constant variable: i125734411 -o|substituted constant variable: i125734411 -o|substituted constant variable: r28050 -o|folded constant expression: (scheme#+ (quote 2) (quote 0)) -o|substituted constant variable: r28246 -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|substituted constant variable: r28294 -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|substituted constant variable: r28466 -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|substituted constant variable: r28483 -o|substituted constant variable: r28530 -o|substituted constant variable: r28673 -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|substituted constant variable: r28694 -o|folded constant expression: (scheme#+ (quote 1) (quote 0)) -o|substituted constant variable: r2879334421 -o|replaced variables: 273 -o|removed binding forms: 67 -o|removed conditional forms: 27 -o|removed side-effect free assignment to unused variable: chicken.irregex#~single-line? -o|inlining procedure: k15119 -o|inlining procedure: k15119 -o|inlining procedure: k15119 -o|inlining procedure: k15119 -o|inlining procedure: k16250 -o|inlining procedure: k16280 -o|substituted constant variable: r19714 -o|substituted constant variable: r19726 -o|contracted procedure: k19462 -o|contracted procedure: k19574 -o|contracted procedure: k19602 -o|inlining procedure: k21902 -o|inlining procedure: k21991 -o|contracted procedure: k2186434246 -o|inlining procedure: k20531 -o|inlining procedure: k22117 -o|inlining procedure: k22074 -o|inlining procedure: k23038 -o|contracted procedure: k27811 -o|contracted procedure: k28045 -o|contracted procedure: k28241 -o|contracted procedure: k28289 -o|contracted procedure: k28461 -o|contracted procedure: k28668 -o|contracted procedure: k28689 -o|replaced variables: 3 -o|removed binding forms: 359 -o|substituted constant variable: r1512034769 -o|substituted constant variable: r1512034770 -o|substituted constant variable: r1512034771 -o|substituted constant variable: r1512034772 -o|substituted constant variable: r19463 -o|substituted constant variable: r19575 -o|substituted constant variable: r19603 -o|substituted constant variable: r2186534244 -o|substituted constant variable: r27812 -o|substituted constant variable: r28046 -o|substituted constant variable: r28242 -o|substituted constant variable: r28290 -o|substituted constant variable: r28462 -o|substituted constant variable: r28669 -o|substituted constant variable: r28690 -o|removed binding forms: 13 -o|removed binding forms: 15 -o|simplifications: ((let . 238) (if . 175) (##core#call . 2985)) -o| call simplifications: -o| ##sys#check-string -o| chicken.fixnum#fx> 2 -o| scheme#write-char -o| scheme#list->string 2 -o| scheme#char>? 5 -o| scheme#char<=? 2 -o| scheme#char>=? 3 -o| scheme#quotient -o| scheme#assoc 4 -o| scheme#modulo 3 -o| scheme#memv 4 -o| scheme#char? 11 -o| scheme#char=? 7 -o| scheme#cdddr 9 -o| scheme#cadddr 2 -o| scheme#symbol? 7 -o| scheme#caddr 14 -o| scheme#vector-set! 63 -o| chicken.fixnum#fx+ 2 -o| chicken.fixnum#fxmod -o| ##sys#setislot -o| scheme#length 6 -o| ##sys#check-list 32 -o| chicken.fixnum#fxshr 6 -o| chicken.fixnum#fxshl 6 -o| chicken.fixnum#fx<= 8 -o| scheme#integer->char 27 -o| scheme#char-upper-case? -o| scheme#char-upcase -o| scheme#char-downcase -o| scheme#equal? 9 -o| scheme#assv 4 -o| scheme#char 11 -o| scheme#char->integer 19 -o| chicken.fixnum#fx< -o| chicken.fixnum#fx>= -o| scheme#string->list 7 -o| ##sys#setslot 34 -o| ##sys#list 179 -o| scheme#string? 24 -o| scheme#char-whitespace? 2 -o| chicken.fixnum#fxnot 14 -o| chicken.fixnum#fxand 58 -o| chicken.fixnum#fxior 22 -o| scheme#car 78 -o| scheme#<= 5 -o| scheme#string-set! -o| scheme#char-alphabetic? 7 -o| scheme#char-numeric? 5 -o| scheme#= 66 -o| scheme#- 20 -o| scheme#string-ref 69 -o| scheme#string-length 25 -o| scheme#list 49 -o| scheme#cons 223 -o| scheme#procedure? 10 -o| scheme#vector 26 -o| scheme#vector-ref 170 -o| scheme#assq 13 -o| scheme#not 101 -o| scheme#cdr 60 -o| scheme#pair? 124 -o| scheme#number? 13 -o| scheme#null? 65 -o| scheme#caar 26 -o| scheme#eq? 434 -o| scheme#cdar 15 -o| scheme#exact? 8 -o| scheme#>= 28 -o| scheme#< 21 -o| scheme#apply 16 -o| scheme#* 52 -o| scheme#+ 148 -o| ##sys#size 6 -o| chicken.fixnum#fx/ -o| ##sys#make-structure 4 -o| ##sys#check-structure 6 -o| ##sys#slot 220 -o| ##sys#structure? 3 -o| scheme#vector-length 20 -o|contracted procedure: k7541 -o|contracted procedure: k7589 -o|contracted procedure: k7607 -o|contracted procedure: k7624 -o|contracted procedure: k7639 -o|contracted procedure: k7651 -o|contracted procedure: k7662 -o|contracted procedure: k7666 -o|contracted procedure: k7670 -o|contracted procedure: k7674 -o|contracted procedure: k7686 -o|contracted procedure: k7699 -o|contracted procedure: k7695 -o|contracted procedure: k7690 -o|contracted procedure: k7711 -o|contracted procedure: k7730 -o|contracted procedure: k7738 -o|contracted procedure: k7734 -o|contracted procedure: k7784 -o|contracted procedure: k7788 -o|contracted procedure: k7809 -o|contracted procedure: k7817 -o|contracted procedure: k7813 -o|contracted procedure: k7838 -o|contracted procedure: k7846 -o|contracted procedure: k7842 -o|contracted procedure: k7951 -o|contracted procedure: k8122 -o|contracted procedure: k7960 -o|contracted procedure: k8118 -o|contracted procedure: k7966 -o|contracted procedure: k7976 -o|contracted procedure: k7982 -o|contracted procedure: k8020 -o|contracted procedure: k8034 -o|contracted procedure: k8030 -o|contracted procedure: k8026 -o|contracted procedure: k7990 -o|contracted procedure: k7996 -o|substituted constant variable: g35714 -o|contracted procedure: k8003 -o|contracted procedure: k8008 -o|contracted procedure: k8063 -o|contracted procedure: k8114 -o|contracted procedure: k8075 -o|contracted procedure: k8087 -o|contracted procedure: k8091 -o|contracted procedure: k8094 -o|contracted procedure: k8176 -o|contracted procedure: k8142 -o|contracted procedure: k8150 -o|contracted procedure: k8156 -o|substituted constant variable: g35720 -o|contracted procedure: k8163 -o|contracted procedure: k8168 -o|contracted procedure: k7762 -o|contracted procedure: k8182 -o|contracted procedure: k8198 -o|contracted procedure: k8204 -o|contracted procedure: k8217 -o|contracted procedure: k8221 -o|contracted procedure: k8224 -o|contracted procedure: k8234 -o|contracted procedure: k8242 -o|contracted procedure: k8238 -o|contracted procedure: k8245 -o|contracted procedure: k8255 -o|contracted procedure: k8263 -o|contracted procedure: k8259 -o|contracted procedure: k8266 -o|contracted procedure: k8279 -o|contracted procedure: k8282 -o|contracted procedure: k8288 -o|contracted procedure: k8307 -o|contracted procedure: k8311 -o|contracted procedure: k8314 -o|contracted procedure: k8324 -o|contracted procedure: k8332 -o|contracted procedure: k8328 -o|contracted procedure: k8335 -o|contracted procedure: k8345 -o|contracted procedure: k8353 -o|contracted procedure: k8349 -o|contracted procedure: k8356 -o|contracted procedure: k8558 -o|contracted procedure: k8366 -o|contracted procedure: k8369 -o|contracted procedure: k8552 -o|contracted procedure: k8372 -o|contracted procedure: k8548 -o|contracted procedure: k8375 -o|contracted procedure: k8378 -o|contracted procedure: k8535 -o|contracted procedure: k8381 -o|contracted procedure: k8531 -o|contracted procedure: k8384 -o|contracted procedure: k8387 -o|contracted procedure: k8443 -o|contracted procedure: k8461 -o|contracted procedure: k8470 -o|contracted procedure: k8477 -o|contracted procedure: k8500 -o|contracted procedure: k8434 -o|contracted procedure: k8390 -o|contracted procedure: k8430 -o|contracted procedure: k8393 -o|contracted procedure: k8412 -o|contracted procedure: k8418 -o|contracted procedure: k8424 -o|contracted procedure: k8409 -o|contracted procedure: k8644 -o|contracted procedure: k8655 -o|contracted procedure: k8651 -o|contracted procedure: k8604 -o|contracted procedure: k8607 -o|contracted procedure: k8622 -o|contracted procedure: k8664 -o|contracted procedure: k8677 -o|contracted procedure: k8684 -o|contracted procedure: k8804 -o|contracted procedure: k8811 -o|contracted procedure: k8847 -o|contracted procedure: k8818 -o|contracted procedure: k8827 -o|contracted procedure: k8844 -o|contracted procedure: k8833 -o|contracted procedure: k9018 -o|contracted procedure: k9134 -o|contracted procedure: k9138 -o|contracted procedure: k9141 -o|contracted procedure: k9080 -o|contracted procedure: k9096 -o|contracted procedure: k9083 -o|contracted procedure: k9116 -o|contracted procedure: k9158 -o|substituted constant variable: g35738 -o|contracted procedure: k9165 -o|contracted procedure: k9182 -o|contracted procedure: k9186 -o|contracted procedure: k9201 -o|contracted procedure: k9217 -o|contracted procedure: k9285 -o|contracted procedure: k9256 -o|contracted procedure: k9281 -o|contracted procedure: k9271 -o|contracted procedure: k9294 -o|contracted procedure: k9310 -o|contracted procedure: k9326 -o|contracted procedure: k9334 -o|contracted procedure: k9344 -o|contracted procedure: k9355 -o|contracted procedure: k9371 -o|contracted procedure: k9388 -o|contracted procedure: k9395 -o|contracted procedure: k9722 -o|contracted procedure: k9729 -o|contracted procedure: k9737 -o|contracted procedure: k9746 -o|contracted procedure: k9752 -o|contracted procedure: k9758 -o|contracted procedure: k9779 -o|contracted procedure: k9792 -o|contracted procedure: k9798 -o|contracted procedure: k9847 -o|contracted procedure: k9819 -o|contracted procedure: k9837 -o|contracted procedure: k9843 -o|contracted procedure: k9854 -o|contracted procedure: k9860 -o|contracted procedure: k9872 -o|contracted procedure: k9887 -o|contracted procedure: k9897 -o|contracted procedure: k9904 -o|contracted procedure: k9912 -o|contracted procedure: k9918 -o|contracted procedure: k9921 -o|contracted procedure: k9948 -o|contracted procedure: k9943 -o|contracted procedure: k9933 -o|contracted procedure: k9940 -o|contracted procedure: k9954 -o|contracted procedure: k9960 -o|contracted procedure: k9963 -o|contracted procedure: k9976 -o|contracted procedure: k9983 -o|contracted procedure: k9991 -o|contracted procedure: k10003 -o|contracted procedure: k10024 -o|contracted procedure: k10037 -o|contracted procedure: k10043 -o|contracted procedure: k10049 -o|contracted procedure: k10069 -o|contracted procedure: k10098 -o|contracted procedure: k10101 -o|contracted procedure: k10107 -o|contracted procedure: k10125 -o|contracted procedure: k10144 -o|contracted procedure: k10150 -o|contracted procedure: k10158 -o|contracted procedure: k10175 -o|contracted procedure: k10178 -o|contracted procedure: k10193 -o|contracted procedure: k10185 -o|contracted procedure: k10219 -o|contracted procedure: k10240 -o|contracted procedure: k10266 -o|contracted procedure: k10269 -o|contracted procedure: k10272 -o|contracted procedure: k10311 -o|contracted procedure: k10446 -o|contracted procedure: k10338 -o|contracted procedure: k10345 -o|contracted procedure: k10357 -o|inlining procedure: k10349 -o|contracted procedure: k10366 -o|contracted procedure: k10369 -o|inlining procedure: k10349 -o|contracted procedure: k10375 -o|contracted procedure: k10378 -o|contracted procedure: k10384 -o|contracted procedure: k10387 -o|contracted procedure: k10393 -o|contracted procedure: k10396 -o|inlining procedure: "(irregex-core.scm:743) chicken.irregex#flag-join" -o|contracted procedure: k10430 -o|contracted procedure: k10455 -o|contracted procedure: k10467 -o|contracted procedure: k970333633 -o|contracted procedure: k10495 -o|substituted constant variable: g35771 -o|contracted procedure: k10485 -o|contracted procedure: k970333641 -o|contracted procedure: k10507 -o|substituted constant variable: g35775 -o|contracted procedure: k10514 -o|contracted procedure: k10529 -o|contracted procedure: k10532 -o|contracted procedure: k10535 -o|contracted procedure: k10543 -o|contracted procedure: k10551 -o|contracted procedure: k10563 -o|contracted procedure: k970333655 -o|contracted procedure: k10580 -o|substituted constant variable: g35789 -o|contracted procedure: k10589 -o|contracted procedure: k10598 -o|contracted procedure: k10608 -o|contracted procedure: k10627 -o|inlining procedure: k10620 -o|contracted procedure: k10640 -o|contracted procedure: k14224 -o|substituted constant variable: g35784 -o|contracted procedure: k14253 -o|contracted procedure: k14227 -o|contracted procedure: k14233 -o|contracted procedure: k14236 -o|substituted constant variable: g35788 -o|contracted procedure: k10683 -o|contracted procedure: k970333661 -o|contracted procedure: k10775 -o|substituted constant variable: g35791 -o|contracted procedure: k10689 -o|contracted procedure: k10772 -o|contracted procedure: k10698 -o|contracted procedure: k10761 -o|contracted procedure: k10704 -o|contracted procedure: k10711 -o|contracted procedure: k10718 -o|contracted procedure: k10725 -o|contracted procedure: k10751 -o|contracted procedure: k10768 -o|contracted procedure: k10812 -o|contracted procedure: k10788 -o|contracted procedure: k10806 -o|contracted procedure: k10819 -o|contracted procedure: k10827 -o|contracted procedure: k10838 -o|contracted procedure: k10852 -o|contracted procedure: k10866 -o|contracted procedure: k10870 -o|contracted procedure: k10874 -o|contracted procedure: k10889 -o|contracted procedure: k10899 -o|contracted procedure: k10905 -o|contracted procedure: k10914 -o|contracted procedure: k10920 -o|contracted procedure: k970333677 -o|contracted procedure: k10944 -o|substituted constant variable: g35795 -o|inlining procedure: k10933 -o|inlining procedure: k10933 -o|contracted procedure: k10950 -o|contracted procedure: k10959 -o|contracted procedure: k10965 -o|contracted procedure: k10978 -o|contracted procedure: k10987 -o|contracted procedure: k10994 -o|contracted procedure: k11005 -o|contracted procedure: k11016 -o|contracted procedure: k11012 -o|contracted procedure: k11024 -o|contracted procedure: k11035 -o|contracted procedure: k11046 -o|contracted procedure: k11057 -o|contracted procedure: k11053 -o|contracted procedure: k11065 -o|contracted procedure: k11076 -o|contracted procedure: k11080 -o|contracted procedure: k11072 -o|contracted procedure: k11107 -o|contracted procedure: k11110 -o|contracted procedure: k11165 -o|contracted procedure: k11116 -o|contracted procedure: k11154 -o|contracted procedure: k11158 -o|contracted procedure: k11150 -o|contracted procedure: k11162 -o|contracted procedure: k11172 -o|contracted procedure: k11938 -o|contracted procedure: k11188 -o|contracted procedure: k11201 -o|contracted procedure: k11929 -o|contracted procedure: k11221 -o|contracted procedure: k11287 -o|contracted procedure: k11227 -o|contracted procedure: k11242 -o|contracted procedure: k11255 -o|contracted procedure: k11259 -o|contracted procedure: k11263 -o|contracted procedure: k11279 -o|contracted procedure: k11274 -o|contracted procedure: k11293 -o|contracted procedure: k11299 -o|contracted procedure: k11309 -o|contracted procedure: k11313 -o|contracted procedure: k11326 -o|contracted procedure: k972233687 -o|contracted procedure: k11339 -o|contracted procedure: k11349 -o|contracted procedure: k972233693 -o|contracted procedure: k11362 -o|contracted procedure: k11372 -o|contracted procedure: k972233699 -o|contracted procedure: k11385 -o|contracted procedure: k11395 -o|contracted procedure: k11408 -o|contracted procedure: k11414 -o|contracted procedure: k972233705 -o|contracted procedure: k11427 -o|contracted procedure: k11437 -o|contracted procedure: k972233711 -o|contracted procedure: k11450 -o|contracted procedure: k11467 -o|contracted procedure: k11471 -o|contracted procedure: k972233717 -o|contracted procedure: k11475 -o|contracted procedure: k11479 -o|contracted procedure: k11510 -o|contracted procedure: k11500 -o|contracted procedure: k11526 -o|contracted procedure: k972233723 -o|contracted procedure: k11539 -o|contracted procedure: k11549 -o|contracted procedure: k11682 -o|contracted procedure: k11565 -o|contracted procedure: k11577 -o|contracted procedure: k972233729 -o|contracted procedure: k11593 -o|contracted procedure: k11597 -o|contracted procedure: k11675 -o|contracted procedure: k11617 -o|contracted procedure: k972233735 -o|contracted procedure: k11636 -o|contracted procedure: k11640 -o|contracted procedure: k972233741 -o|contracted procedure: k11667 -o|contracted procedure: k11691 -o|contracted procedure: k972233747 -o|contracted procedure: k970333763 -o|contracted procedure: k11718 -o|substituted constant variable: g35801 -o|contracted procedure: k970333757 -o|contracted procedure: k11721 -o|substituted constant variable: g35799 -o|contracted procedure: k11727 -o|contracted procedure: k11740 -o|contracted procedure: k11746 -o|contracted procedure: k11752 -o|contracted procedure: k11768 -o|contracted procedure: k11784 -o|contracted procedure: k11800 -o|contracted procedure: k11825 -o|contracted procedure: k11835 -o|contracted procedure: k11841 -o|contracted procedure: k11864 -o|contracted procedure: k11885 -o|contracted procedure: k11881 -o|contracted procedure: k11948 -o|contracted procedure: k11954 -o|contracted procedure: k11970 -o|contracted procedure: k11984 -o|contracted procedure: k11974 -o|contracted procedure: k11990 -o|contracted procedure: k12003 -o|contracted procedure: k12007 -o|contracted procedure: k12011 -o|contracted procedure: k13389 -o|contracted procedure: k970333888 -o|contracted procedure: k13395 -o|substituted constant variable: g35825 -o|contracted procedure: k13404 -o|contracted procedure: k13410 -o|contracted procedure: k13416 -o|contracted procedure: k2627733787 -o|contracted procedure: k13422 -o|contracted procedure: k2626733776 -o|contracted procedure: k2724533771 -o|contracted procedure: k970333782 -o|contracted procedure: k13435 -o|substituted constant variable: g35807 -o|contracted procedure: k13445 -o|contracted procedure: k26943 -o|contracted procedure: k26947 -o|contracted procedure: k13461 -o|contracted procedure: k13467 -o|contracted procedure: k2626733798 -o|contracted procedure: k2724533793 -o|contracted procedure: k13486 -o|contracted procedure: k13492 -o|contracted procedure: k13504 -o|contracted procedure: k2625733804 -o|contracted procedure: k13518 -o|contracted procedure: k13608 -o|contracted procedure: k13522 -o|contracted procedure: k13534 -o|contracted procedure: k13538 -o|contracted procedure: k1402033809 -o|contracted procedure: k13562 -o|contracted procedure: k13573 -o|inlining procedure: k13525 -o|inlining procedure: k13525 -o|contracted procedure: k13589 -o|substituted constant variable: g35809 -o|substituted constant variable: g35811 -o|contracted procedure: k13592 -o|contracted procedure: k13599 -o|contracted procedure: k13630 -o|contracted procedure: k13648 -o|contracted procedure: k13636 -o|contracted procedure: k13644 -o|contracted procedure: k13654 -o|contracted procedure: k13773 -o|contracted procedure: k13657 -o|contracted procedure: k13660 -o|contracted procedure: k13663 -o|contracted procedure: k13669 -o|contracted procedure: k13678 -o|contracted procedure: k13730 -o|contracted procedure: k13726 -o|contracted procedure: k13721 -o|contracted procedure: k13739 -o|contracted procedure: k13742 -o|contracted procedure: k2626733820 -o|contracted procedure: k2724533815 -o|contracted procedure: k13782 -o|contracted procedure: k13785 -o|contracted procedure: k13791 -o|contracted procedure: k13816 -o|contracted procedure: k13822 -o|contracted procedure: k2626733831 -o|contracted procedure: k2724533826 -o|contracted procedure: k13845 -o|contracted procedure: k13848 -o|contracted procedure: k2626733842 -o|contracted procedure: k2724533837 -o|contracted procedure: k13866 -o|contracted procedure: k13872 -o|contracted procedure: k13878 -o|contracted procedure: k13884 -o|contracted procedure: k1402033858 -o|contracted procedure: k13914 -o|contracted procedure: k13921 -o|contracted procedure: k2626733853 -o|contracted procedure: k2724533848 -o|contracted procedure: k2626733869 -o|contracted procedure: k2724533864 -o|contracted procedure: k13950 -o|substituted constant variable: g35816 -o|substituted constant variable: g35818 -o|contracted procedure: k13968 -o|contracted procedure: k970333880 -o|contracted procedure: k13975 -o|substituted constant variable: g35821 -o|contracted procedure: k2626733874 -o|inlining procedure: k13972 -o|inlining procedure: k13972 -o|contracted procedure: k13988 -o|contracted procedure: k13991 -o|contracted procedure: k13999 -o|contracted procedure: k12028 -o|contracted procedure: k12053 -o|contracted procedure: k12059 -o|contracted procedure: k12078 -o|contracted procedure: k12090 -o|contracted procedure: k12107 -o|contracted procedure: k12103 -o|contracted procedure: k12127 -o|contracted procedure: k12123 -o|contracted procedure: k12144 -o|contracted procedure: k12140 -o|contracted procedure: k12152 -o|contracted procedure: k12169 -o|contracted procedure: k12165 -o|contracted procedure: k12158 -o|contracted procedure: k12174 -o|contracted procedure: k12181 -o|contracted procedure: k12187 -o|contracted procedure: k8953 -o|contracted procedure: k8975 -o|contracted procedure: k9012 -o|contracted procedure: k8988 -o|contracted procedure: k12222 -o|contracted procedure: k12204 -o|contracted procedure: k12215 -o|contracted procedure: k12207 -o|contracted procedure: k12231 -o|contracted procedure: k12244 -o|contracted procedure: k12250 -o|contracted procedure: k12263 -o|contracted procedure: k12273 -o|contracted procedure: k12290 -o|contracted procedure: k12286 -o|contracted procedure: k12300 -o|contracted procedure: k12313 -o|contracted procedure: k12323 -o|contracted procedure: k12340 -o|contracted procedure: k12336 -o|contracted procedure: k12350 -o|contracted procedure: k12375 -o|contracted procedure: k12367 -o|contracted procedure: k12363 -o|contracted procedure: k12381 -o|contracted procedure: k12410 -o|contracted procedure: k12406 -o|contracted procedure: k12398 -o|contracted procedure: k12394 -o|contracted procedure: k12416 -o|contracted procedure: k12433 -o|contracted procedure: k12429 -o|contracted procedure: k12443 -o|contracted procedure: k12456 -o|contracted procedure: k12466 -o|contracted procedure: k12479 -o|contracted procedure: k12489 -o|contracted procedure: k12506 -o|contracted procedure: k12510 -o|contracted procedure: k12502 -o|contracted procedure: k12520 -o|contracted procedure: k12533 -o|contracted procedure: k12543 -o|contracted procedure: k12556 -o|contracted procedure: k12566 -o|contracted procedure: k12579 -o|contracted procedure: k12589 -o|contracted procedure: k12602 -o|contracted procedure: k12612 -o|contracted procedure: k12625 -o|contracted procedure: k12635 -o|contracted procedure: k12648 -o|contracted procedure: k12652 -o|contracted procedure: k12656 -o|contracted procedure: k12673 -o|contracted procedure: k12676 -o|contracted procedure: k12682 -o|contracted procedure: k970333896 -o|contracted procedure: k12736 -o|substituted constant variable: g35833 -o|contracted procedure: k12697 -o|contracted procedure: k12703 -o|contracted procedure: k12713 -o|contracted procedure: k12717 -o|contracted procedure: k12725 -o|contracted procedure: k12721 -o|contracted procedure: k13260 -o|contracted procedure: k13266 -o|contracted procedure: k13272 -o|contracted procedure: k13278 -o|contracted procedure: k12757 -o|contracted procedure: k12775 -o|contracted procedure: k12782 -o|contracted procedure: k12857 -o|contracted procedure: k12788 -o|contracted procedure: k12805 -o|contracted procedure: k12843 -o|contracted procedure: k12811 -o|contracted procedure: k12824 -o|contracted procedure: k12832 -o|contracted procedure: k12863 -o|contracted procedure: k12879 -o|contracted procedure: k12889 -o|contracted procedure: k12895 -o|contracted procedure: k970333904 -o|contracted procedure: k12926 -o|substituted constant variable: g35839 -o|contracted procedure: k12898 -o|contracted procedure: k12908 -o|contracted procedure: k12901 -o|contracted procedure: k8911 -o|contracted procedure: k8946 -o|contracted procedure: k8918 -o|contracted procedure: k8927 -o|contracted procedure: k8943 -o|contracted procedure: k1293633909 -o|contracted procedure: k8933 -o|contracted procedure: k12945 -o|contracted procedure: k12948 -o|contracted procedure: k12968 -o|contracted procedure: k12964 -o|contracted procedure: k13035 -o|contracted procedure: k13048 -o|contracted procedure: k13058 -o|contracted procedure: k970333917 -o|contracted procedure: k13081 -o|substituted constant variable: g35845 -o|contracted procedure: k13061 -o|contracted procedure: k13074 -o|contracted procedure: k13087 -o|contracted procedure: k970333923 -o|contracted procedure: k13110 -o|substituted constant variable: g35847 -o|contracted procedure: k13090 -o|contracted procedure: k13103 -o|contracted procedure: k13116 -o|contracted procedure: k970333929 -o|contracted procedure: k13122 -o|substituted constant variable: g35849 -o|contracted procedure: k13147 -o|contracted procedure: k970333935 -o|contracted procedure: k13153 -o|substituted constant variable: g35851 -o|contracted procedure: k13159 -o|contracted procedure: k13166 -o|contracted procedure: k13170 -o|contracted procedure: k13232 -o|contracted procedure: k13225 -o|contracted procedure: k30972 -o|contracted procedure: k30976 -o|contracted procedure: k30980 -o|contracted procedure: k30984 -o|contracted procedure: k30988 -o|contracted procedure: k30992 -o|contracted procedure: k13236 -o|contracted procedure: k13245 -o|contracted procedure: k13295 -o|contracted procedure: k13383 -o|contracted procedure: k13304 -o|contracted procedure: k13313 -o|contracted procedure: k13332 -o|contracted procedure: k8854 -o|contracted procedure: k8904 -o|contracted procedure: k8861 -o|contracted procedure: k8870 -o|contracted procedure: k8901 -o|contracted procedure: k8876 -o|contracted procedure: k13347 -o|contracted procedure: k13366 -o|contracted procedure: k14010 -o|contracted procedure: k14033 -o|contracted procedure: k14039 -o|contracted procedure: k14048 -o|contracted procedure: k14072 -o|contracted procedure: k14056 -o|contracted procedure: k14060 -o|contracted procedure: k14068 -o|contracted procedure: k14082 -o|contracted procedure: k14125 -o|contracted procedure: k14093 -o|contracted procedure: k14113 -o|contracted procedure: k14097 -o|contracted procedure: k14101 -o|contracted procedure: k14089 -o|contracted procedure: k14109 -o|contracted procedure: k14121 -o|contracted procedure: k14135 -o|contracted procedure: k14194 -o|contracted procedure: k14146 -o|contracted procedure: k14182 -o|contracted procedure: k14150 -o|contracted procedure: k14170 -o|contracted procedure: k14154 -o|contracted procedure: k14158 -o|contracted procedure: k14142 -o|contracted procedure: k14166 -o|contracted procedure: k14178 -o|contracted procedure: k14190 -o|contracted procedure: k14262 -o|contracted procedure: k14268 -o|contracted procedure: k14274 -o|contracted procedure: k14280 -o|contracted procedure: k14335 -o|contracted procedure: k14341 -o|contracted procedure: k14350 -o|contracted procedure: k14369 -o|contracted procedure: k14357 -o|contracted procedure: k14365 -o|contracted procedure: k14361 -o|contracted procedure: k14375 -o|contracted procedure: k14406 -o|contracted procedure: k14382 -o|contracted procedure: k14402 -o|contracted procedure: k14398 -o|contracted procedure: k14386 -o|contracted procedure: k14394 -o|contracted procedure: k14390 -o|contracted procedure: k14412 -o|contracted procedure: k14455 -o|contracted procedure: k14419 -o|contracted procedure: k14451 -o|contracted procedure: k14447 -o|contracted procedure: k14423 -o|contracted procedure: k14443 -o|contracted procedure: k14439 -o|contracted procedure: k14427 -o|contracted procedure: k14435 -o|contracted procedure: k14431 -o|contracted procedure: k14614 -o|contracted procedure: k14621 -o|contracted procedure: k14625 -o|contracted procedure: k14629 -o|contracted procedure: k14641 -o|contracted procedure: k14644 -o|contracted procedure: k14659 -o|contracted procedure: k14668 -o|contracted procedure: k14651 -o|contracted procedure: k14680 -o|contracted procedure: k14698 -o|contracted procedure: k14683 -o|contracted procedure: k14686 -o|contracted procedure: k14694 -o|contracted procedure: k14716 -o|contracted procedure: k14738 -o|contracted procedure: k14734 -o|contracted procedure: k14719 -o|contracted procedure: k14722 -o|contracted procedure: k14730 -o|contracted procedure: k14882 -o|contracted procedure: k14757 -o|contracted procedure: k14753 -o|contracted procedure: k14783 -o|contracted procedure: k14779 -o|contracted procedure: k14775 -o|contracted procedure: k14787 -o|contracted procedure: k14791 -o|contracted procedure: k14803 -o|contracted procedure: k14809 -o|contracted procedure: k14824 -o|contracted procedure: k14820 -o|contracted procedure: k14816 -o|contracted procedure: k14837 -o|contracted procedure: k14859 -o|contracted procedure: k14855 -o|contracted procedure: k14840 -o|contracted procedure: k14843 -o|contracted procedure: k14851 -o|contracted procedure: k14866 -o|contracted procedure: k15021 -o|contracted procedure: k14896 -o|contracted procedure: k14892 -o|contracted procedure: k14922 -o|contracted procedure: k14918 -o|contracted procedure: k14914 -o|contracted procedure: k14926 -o|contracted procedure: k14930 -o|contracted procedure: k14942 -o|contracted procedure: k14948 -o|contracted procedure: k14963 -o|contracted procedure: k14959 -o|contracted procedure: k14955 -o|contracted procedure: k14976 -o|contracted procedure: k14998 -o|contracted procedure: k14994 -o|contracted procedure: k14979 -o|contracted procedure: k14982 -o|contracted procedure: k14990 -o|contracted procedure: k15005 -o|contracted procedure: k15479 -o|contracted procedure: k15497 -o|contracted procedure: k15504 -o|contracted procedure: k15494 -o|contracted procedure: k15568 -o|contracted procedure: k1401033980 -o|contracted procedure: k15514 -o|contracted procedure: k15524 -o|contracted procedure: k15528 -o|contracted procedure: k14601 -o|contracted procedure: k14481 -o|contracted procedure: k14488 -o|contracted procedure: k15027 -o|contracted procedure: k15038 -o|contracted procedure: k15042 -o|contracted procedure: k15059 -o|contracted procedure: k15070 -o|contracted procedure: k15051 -o|contracted procedure: k15082 -o|contracted procedure: k15100 -o|contracted procedure: k15085 -o|contracted procedure: k15088 -o|contracted procedure: k15096 -o|contracted procedure: k15111 -o|contracted procedure: k15115 -o|contracted procedure: k15119 -o|contracted procedure: k15127 -o|contracted procedure: k14300 -o|contracted procedure: k14306 -o|contracted procedure: k14312 -o|contracted procedure: k14318 -o|contracted procedure: k15135 -o|contracted procedure: k15141 -o|contracted procedure: k15148 -o|contracted procedure: k15214 -o|contracted procedure: k15222 -o|contracted procedure: k15218 -o|contracted procedure: k15160 -o|contracted procedure: k15164 -o|contracted procedure: k15173 -o|contracted procedure: k15156 -o|contracted procedure: k15185 -o|contracted procedure: k15203 -o|contracted procedure: k15188 -o|contracted procedure: k15191 -o|contracted procedure: k15199 -o|contracted procedure: k15244 -o|contracted procedure: k15240 -o|contracted procedure: k15236 -o|contracted procedure: k1402033960 -o|contracted procedure: k15232 -o|contracted procedure: k15253 -o|contracted procedure: k15256 -o|contracted procedure: k15259 -o|contracted procedure: k15267 -o|contracted procedure: k15275 -o|contracted procedure: k15283 -o|contracted procedure: k15369 -o|contracted procedure: k15352 -o|contracted procedure: k15363 -o|substituted constant variable: g35882 -o|contracted procedure: k15298 -o|contracted procedure: k15302 -o|contracted procedure: k15311 -o|contracted procedure: k15294 -o|contracted procedure: k15323 -o|contracted procedure: k15341 -o|contracted procedure: k15326 -o|contracted procedure: k15329 -o|contracted procedure: k15337 -o|contracted procedure: k14593 -o|contracted procedure: k14597 -o|contracted procedure: k14508 -o|contracted procedure: k14519 -o|contracted procedure: k14526 -o|inlining procedure: k14515 -o|contracted procedure: k14523 -o|inlining procedure: k14515 -o|contracted procedure: k14585 -o|contracted procedure: k14547 -o|contracted procedure: k14554 -o|contracted procedure: k14569 -o|contracted procedure: k15460 -o|contracted procedure: k15456 -o|contracted procedure: k15375 -o|contracted procedure: k15452 -o|contracted procedure: k15448 -o|contracted procedure: k15378 -o|contracted procedure: k15389 -o|contracted procedure: k15393 -o|contracted procedure: k15402 -o|contracted procedure: k15385 -o|contracted procedure: k15414 -o|contracted procedure: k15432 -o|contracted procedure: k15417 -o|contracted procedure: k15420 -o|contracted procedure: k15428 -o|contracted procedure: k15544 -o|contracted procedure: k15555 -o|contracted procedure: k15548 -o|contracted procedure: k15564 -o|contracted procedure: k1401033975 -o|contracted procedure: k16048 -o|contracted procedure: k16149 -o|contracted procedure: k16054 -o|contracted procedure: k16145 -o|contracted procedure: k16063 -o|contracted procedure: k16141 -o|contracted procedure: k16072 -o|contracted procedure: k16137 -o|contracted procedure: k16081 -o|contracted procedure: k16133 -o|contracted procedure: k16090 -o|contracted procedure: k16099 -o|contracted procedure: k16102 -o|contracted procedure: k16120 -o|contracted procedure: k16105 -o|contracted procedure: k16116 -o|contracted procedure: k16112 -o|contracted procedure: k16108 -o|contracted procedure: k16123 -o|contracted procedure: k16155 -o|contracted procedure: k16189 -o|contracted procedure: k17087 -o|contracted procedure: k16226 -o|contracted procedure: k16210 -o|contracted procedure: k26144 -o|contracted procedure: k23400 -o|contracted procedure: k23436 -o|contracted procedure: k23440 -o|contracted procedure: k23406 -o|contracted procedure: k23430 -o|contracted procedure: k23409 -o|contracted procedure: k23426 -o|contracted procedure: k23412 -o|contracted procedure: k23422 -o|contracted procedure: k23415 -o|contracted procedure: k23418 -o|contracted procedure: k23455 -o|contracted procedure: k23461 -o|contracted procedure: k970333988 -o|contracted procedure: k23474 -o|substituted constant variable: g35893 -o|contracted procedure: k23481 -o|contracted procedure: k970333994 -o|contracted procedure: k23495 -o|substituted constant variable: g35895 -o|contracted procedure: k23501 -o|contracted procedure: k23504 -o|contracted procedure: k23510 -o|contracted procedure: k23521 -o|contracted procedure: k23528 -o|contracted procedure: k23553 -o|contracted procedure: k23561 -o|contracted procedure: k23565 -o|contracted procedure: k23569 -o|contracted procedure: k23581 -o|contracted procedure: k972234000 -o|contracted procedure: k23592 -o|contracted procedure: k23600 -o|contracted procedure: k23611 -o|contracted procedure: k23619 -o|contracted procedure: k23630 -o|contracted procedure: k23638 -o|contracted procedure: k972234014 -o|contracted procedure: k23649 -o|contracted procedure: k23657 -o|contracted procedure: k23660 -o|contracted procedure: k23663 -o|contracted procedure: k23669 -o|contracted procedure: k23675 -o|contracted procedure: k23682 -o|contracted procedure: k23692 -o|contracted procedure: k23700 -o|contracted procedure: k23708 -o|contracted procedure: k23712 -o|contracted procedure: k23724 -o|contracted procedure: k23750 -o|contracted procedure: k23776 -o|contracted procedure: k23803 -o|contracted procedure: k23821 -o|contracted procedure: k23875 -o|contracted procedure: k23918 -o|contracted procedure: k23933 -o|contracted procedure: k23937 -o|contracted procedure: k23929 -o|contracted procedure: k23925 -o|contracted procedure: k23949 -o|contracted procedure: k23964 -o|contracted procedure: k23968 -o|contracted procedure: k23960 -o|contracted procedure: k23956 -o|contracted procedure: k23977 -o|contracted procedure: k23996 -o|contracted procedure: k24031 -o|contracted procedure: k24041 -o|contracted procedure: k24090 -o|contracted procedure: k24123 -o|contracted procedure: k24099 -o|contracted procedure: k24119 -o|contracted procedure: k24105 -o|contracted procedure: k24129 -o|contracted procedure: k24148 -o|contracted procedure: k24165 -o|contracted procedure: k24175 -o|contracted procedure: k24200 -o|contracted procedure: k24252 -o|contracted procedure: k24285 -o|contracted procedure: k24261 -o|contracted procedure: k24281 -o|contracted procedure: k24267 -o|contracted procedure: k24291 -o|contracted procedure: k24302 -o|contracted procedure: k24298 -o|contracted procedure: k24312 -o|contracted procedure: k24318 -o|contracted procedure: k24337 -o|contracted procedure: k24341 -o|contracted procedure: k24333 -o|contracted procedure: k24329 -o|contracted procedure: k24325 -o|contracted procedure: k24349 -o|contracted procedure: k24360 -o|contracted procedure: k24366 -o|contracted procedure: k24401 -o|contracted procedure: k24436 -o|contracted procedure: k24439 -o|contracted procedure: k24450 -o|contracted procedure: k24457 -o|contracted procedure: k24493 -o|contracted procedure: k24487 -o|contracted procedure: k24466 -o|contracted procedure: k24499 -o|contracted procedure: k8743 -o|contracted procedure: k8733 -o|contracted procedure: k8736 -o|contracted procedure: k8747 -o|contracted procedure: k8751 -o|contracted procedure: k8760 -o|contracted procedure: k8766 -o|contracted procedure: k8789 -o|contracted procedure: k8775 -o|contracted procedure: k8782 -o|contracted procedure: k8796 -o|contracted procedure: k8800 -o|contracted procedure: k24510 -o|contracted procedure: k24522 -o|contracted procedure: k24557 -o|contracted procedure: k24661 -o|contracted procedure: k24572 -o|contracted procedure: k24592 -o|contracted procedure: k24600 -o|contracted procedure: k24596 -o|contracted procedure: k24603 -o|contracted procedure: k24612 -o|contracted procedure: k24615 -o|contracted procedure: k24651 -o|contracted procedure: k24692 -o|contracted procedure: k24664 -o|contracted procedure: k24671 -o|contracted procedure: k24675 -o|contracted procedure: k24696 -o|contracted procedure: k24700 -o|contracted procedure: k24704 -o|contracted procedure: k24710 -o|contracted procedure: k24713 -o|contracted procedure: k24730 -o|contracted procedure: k24740 -o|contracted procedure: k24858 -o|contracted procedure: k24749 -o|contracted procedure: k24762 -o|contracted procedure: k24777 -o|contracted procedure: k24781 -o|contracted procedure: k24790 -o|contracted procedure: k24803 -o|contracted procedure: k24810 -o|contracted procedure: k24817 -o|contracted procedure: k24829 -o|contracted procedure: k24854 -o|contracted procedure: k24850 -o|contracted procedure: k24861 -o|contracted procedure: k970334022 -o|contracted procedure: k24864 -o|substituted constant variable: g35913 -o|contracted procedure: k24896 -o|contracted procedure: k24872 -o|contracted procedure: k24877 -o|contracted procedure: k24902 -o|contracted procedure: k24917 -o|contracted procedure: k24913 -o|contracted procedure: k24921 -o|contracted procedure: k24927 -o|contracted procedure: k24930 -o|contracted procedure: k24944 -o|contracted procedure: k24948 -o|contracted procedure: k24951 -o|contracted procedure: k24960 -o|contracted procedure: k24968 -o|contracted procedure: k24964 -o|contracted procedure: k24971 -o|contracted procedure: k25028 -o|contracted procedure: k25032 -o|contracted procedure: k24974 -o|contracted procedure: k25016 -o|contracted procedure: k25024 -o|contracted procedure: k25020 -o|contracted procedure: k24977 -o|contracted procedure: k25008 -o|contracted procedure: k25012 -o|contracted procedure: k24986 -o|contracted procedure: k24996 -o|contracted procedure: k25004 -o|contracted procedure: k25000 -o|contracted procedure: k24989 -o|contracted procedure: k25040 -o|contracted procedure: k25052 -o|contracted procedure: k25060 -o|contracted procedure: k25056 -o|contracted procedure: k25063 -o|contracted procedure: k25127 -o|contracted procedure: k25135 -o|contracted procedure: k25131 -o|contracted procedure: k25069 -o|contracted procedure: k25115 -o|contracted procedure: k25123 -o|contracted procedure: k25119 -o|contracted procedure: k25072 -o|contracted procedure: k25103 -o|contracted procedure: k25111 -o|contracted procedure: k25107 -o|contracted procedure: k25081 -o|contracted procedure: k25091 -o|contracted procedure: k25099 -o|contracted procedure: k25095 -o|contracted procedure: k25084 -o|contracted procedure: k25143 -o|contracted procedure: k25146 -o|contracted procedure: k25157 -o|contracted procedure: k25153 -o|contracted procedure: k25242 -o|contracted procedure: k25248 -o|contracted procedure: k25270 -o|contracted procedure: k25276 -o|contracted procedure: k25284 -o|contracted procedure: k25291 -o|contracted procedure: k25294 -o|contracted procedure: k25303 -o|contracted procedure: k25309 -o|contracted procedure: k25315 -o|contracted procedure: k25325 -o|contracted procedure: k25334 -o|contracted procedure: k25342 -o|contracted procedure: k25366 -o|contracted procedure: k25361 -o|contracted procedure: k25348 -o|contracted procedure: k25369 -o|contracted procedure: k25378 -o|contracted procedure: k25384 -o|contracted procedure: k25390 -o|contracted procedure: k25417 -o|contracted procedure: k25412 -o|contracted procedure: k25399 -o|contracted procedure: k25426 -o|contracted procedure: k25450 -o|contracted procedure: k25443 -o|contracted procedure: k25434 -o|contracted procedure: k25456 -o|contracted procedure: k25467 -o|contracted procedure: k25470 -o|contracted procedure: k25498 -o|contracted procedure: k25484 -o|contracted procedure: k25491 -o|contracted procedure: k25507 -o|contracted procedure: k25530 -o|contracted procedure: k25537 -o|contracted procedure: k25540 -o|contracted procedure: k25557 -o|contracted procedure: k25564 -o|contracted procedure: k25553 -o|contracted procedure: k25605 -o|contracted procedure: k25570 -o|contracted procedure: k25585 -o|contracted procedure: k25581 -o|contracted procedure: k25591 -o|contracted procedure: k25614 -o|contracted procedure: k25631 -o|contracted procedure: k25638 -o|contracted procedure: k25647 -o|contracted procedure: k25664 -o|contracted procedure: k25672 -o|contracted procedure: k25675 -o|contracted procedure: k25684 -o|contracted procedure: k25696 -o|contracted procedure: k25703 -o|contracted procedure: k25692 -o|contracted procedure: k25712 -o|contracted procedure: k25762 -o|contracted procedure: k25735 -o|contracted procedure: k25746 -o|contracted procedure: k25742 -o|contracted procedure: k25752 -o|contracted procedure: k25768 -o|contracted procedure: k25779 -o|contracted procedure: k25785 -o|contracted procedure: k25801 -o|contracted procedure: k25857 -o|contracted procedure: k25843 -o|contracted procedure: k25850 -o|contracted procedure: k25863 -o|contracted procedure: k25875 -o|contracted procedure: k25878 -o|contracted procedure: k25888 -o|contracted procedure: k25917 -o|contracted procedure: k970334032 -o|contracted procedure: k25923 -o|substituted constant variable: g35949 -o|contracted procedure: k25931 -o|contracted procedure: k25938 -o|contracted procedure: k25950 -o|contracted procedure: k25956 -o|contracted procedure: k25962 -o|contracted procedure: k25971 -o|contracted procedure: k25978 -o|contracted procedure: k26000 -o|contracted procedure: k26022 -o|contracted procedure: k26030 -o|contracted procedure: k26037 -o|contracted procedure: k26049 -o|contracted procedure: k26055 -o|contracted procedure: k26061 -o|contracted procedure: k26070 -o|contracted procedure: k26077 -o|contracted procedure: k26099 -o|contracted procedure: k26086 -o|contracted procedure: k26121 -o|contracted procedure: k26108 -o|contracted procedure: k26127 -o|contracted procedure: k26157 -o|contracted procedure: k26148 -o|contracted procedure: k17104 -o|contracted procedure: k17108 -o|contracted procedure: k17117 -o|contracted procedure: k17123 -o|contracted procedure: k17133 -o|contracted procedure: k17145 -o|contracted procedure: k17156 -o|contracted procedure: k17162 -o|contracted procedure: k17179 -o|contracted procedure: k17186 -o|contracted procedure: k17190 -o|contracted procedure: k17203 -o|contracted procedure: k17213 -o|contracted procedure: k17217 -o|contracted procedure: k17221 -o|contracted procedure: k17225 -o|contracted procedure: k17243 -o|contracted procedure: k17257 -o|contracted procedure: k17264 -o|contracted procedure: k17268 -o|contracted procedure: k17285 -o|contracted procedure: k17295 -o|contracted procedure: k17299 -o|contracted procedure: k17328 -o|contracted procedure: k17334 -o|contracted procedure: k17363 -o|contracted procedure: k17367 -o|contracted procedure: k17422 -o|contracted procedure: k17415 -o|contracted procedure: k17377 -o|contracted procedure: k17381 -o|contracted procedure: k17391 -o|inlining procedure: k17395 -o|inlining procedure: k17395 -o|contracted procedure: k17440 -o|contracted procedure: k17425 -o|contracted procedure: k17428 -o|contracted procedure: k17444 -o|contracted procedure: k17453 -o|contracted procedure: k17461 -o|contracted procedure: k17476 -o|contracted procedure: k17472 -o|contracted procedure: k17480 -o|contracted procedure: k17486 -o|contracted procedure: k17500 -o|contracted procedure: k17513 -o|contracted procedure: k17506 -o|contracted procedure: k17520 -o|contracted procedure: k17517 -o|contracted procedure: k17532 -o|contracted procedure: k17535 -o|contracted procedure: k17544 -o|contracted procedure: k17594 -o|contracted procedure: k17556 -o|contracted procedure: k17590 -o|contracted procedure: k17562 -o|contracted procedure: k17586 -o|contracted procedure: k17565 -o|contracted procedure: k17572 -o|contracted procedure: k17576 -o|contracted procedure: k17605 -o|contracted procedure: k17601 -o|substituted constant variable: g35957 -o|contracted procedure: k17635 -o|contracted procedure: k17611 -o|contracted procedure: k17616 -o|contracted procedure: k17641 -o|contracted procedure: k17644 -o|contracted procedure: k17665 -o|contracted procedure: k17668 -o|contracted procedure: k17686 -o|contracted procedure: k17729 -o|contracted procedure: k17725 -o|contracted procedure: k17703 -o|contracted procedure: k17721 -o|contracted procedure: k17717 -o|contracted procedure: k17707 -o|contracted procedure: k17758 -o|contracted procedure: k17754 -o|contracted procedure: k17750 -o|contracted procedure: k17762 -o|contracted procedure: k17768 -o|contracted procedure: k17801 -o|contracted procedure: k17777 -o|contracted procedure: k17797 -o|contracted procedure: k17783 -o|contracted procedure: k17807 -o|contracted procedure: k17824 -o|contracted procedure: k17832 -o|contracted procedure: k17835 -o|contracted procedure: k17852 -o|contracted procedure: k17866 -o|contracted procedure: k17884 -o|contracted procedure: k17880 -o|contracted procedure: k17876 -o|contracted procedure: k17906 -o|contracted procedure: k17915 -o|contracted procedure: k17931 -o|contracted procedure: k17935 -o|contracted procedure: k17946 -o|contracted procedure: k17952 -o|contracted procedure: k17969 -o|contracted procedure: k17975 -o|contracted procedure: k18022 -o|contracted procedure: k18028 -o|contracted procedure: k18051 -o|contracted procedure: k18057 -o|contracted procedure: k18063 -o|contracted procedure: k18084 -o|contracted procedure: k18090 -o|contracted procedure: k18112 -o|contracted procedure: k18121 -o|contracted procedure: k18145 -o|contracted procedure: k18167 -o|contracted procedure: k18158 -o|contracted procedure: k18174 -o|contracted procedure: k18181 -o|contracted procedure: k2052334061 -o|contracted procedure: k16246 -o|contracted procedure: k2052334066 -o|contracted procedure: k16276 -o|contracted procedure: k16291 -o|contracted procedure: k16287 -o|contracted procedure: k970334095 -o|contracted procedure: k15578 -o|substituted constant variable: g35978 -o|contracted procedure: k970334089 -o|contracted procedure: k15582 -o|substituted constant variable: g35976 -o|contracted procedure: k15597 -o|contracted procedure: k15604 -o|contracted procedure: k15619 -o|contracted procedure: k15634 -o|contracted procedure: k15643 -o|contracted procedure: k15652 -o|contracted procedure: k15664 -o|contracted procedure: k15667 -o|contracted procedure: k15670 -o|contracted procedure: k15678 -o|contracted procedure: k15686 -o|contracted procedure: k15695 -o|contracted procedure: k15704 -o|contracted procedure: k15713 -o|contracted procedure: k15725 -o|contracted procedure: k15728 -o|contracted procedure: k15731 -o|contracted procedure: k15739 -o|contracted procedure: k15747 -o|contracted procedure: k15756 -o|contracted procedure: k15765 -o|contracted procedure: k15797 -o|contracted procedure: k15806 -o|contracted procedure: k15812 -o|contracted procedure: k15819 -o|contracted procedure: k15823 -o|contracted procedure: k15835 -o|contracted procedure: k15838 -o|contracted procedure: k15841 -o|contracted procedure: k15849 -o|contracted procedure: k15857 -o|contracted procedure: k15875 -o|contracted procedure: k15879 -o|contracted procedure: k15891 -o|contracted procedure: k15894 -o|contracted procedure: k15897 -o|contracted procedure: k15905 -o|contracted procedure: k15913 -o|contracted procedure: k15921 -o|contracted procedure: k15927 -o|contracted procedure: k15955 -o|contracted procedure: k15964 -o|contracted procedure: k15980 -o|contracted procedure: k15995 -o|contracted procedure: k16017 -o|contracted procedure: k16013 -o|contracted procedure: k15998 -o|contracted procedure: k16001 -o|contracted procedure: k16009 -o|contracted procedure: k16026 -o|contracted procedure: k1401034081 -o|contracted procedure: k16313 -o|contracted procedure: k16320 -o|contracted procedure: k16329 -o|contracted procedure: k16346 -o|contracted procedure: k16342 -o|contracted procedure: k16332 -o|contracted procedure: k16352 -o|contracted procedure: k16363 -o|inlining procedure: k16366 -o|contracted procedure: k16374 -o|inlining procedure: k16366 -o|contracted procedure: k16380 -o|contracted procedure: k16386 -o|contracted procedure: k16392 -o|contracted procedure: k16398 -o|contracted procedure: k16404 -o|contracted procedure: k16433 -o|contracted procedure: k16439 -o|contracted procedure: k16445 -o|contracted procedure: k16451 -o|contracted procedure: k16477 -o|contracted procedure: k16486 -o|contracted procedure: k16493 -o|contracted procedure: k16502 -o|contracted procedure: k16518 -o|contracted procedure: k16508 -o|contracted procedure: k16526 -o|contracted procedure: k16536 -o|contracted procedure: k16542 -o|contracted procedure: k16548 -o|contracted procedure: k16554 -o|contracted procedure: k16581 -o|contracted procedure: k16599 -o|contracted procedure: k16615 -o|contracted procedure: k16605 -o|contracted procedure: k16626 -o|contracted procedure: k16633 -o|contracted procedure: k16642 -o|contracted procedure: k16649 -o|contracted procedure: k16657 -o|contracted procedure: k16667 -o|contracted procedure: k16673 -o|contracted procedure: k16679 -o|contracted procedure: k16685 -o|contracted procedure: k16721 -o|contracted procedure: k16728 -o|contracted procedure: k16731 -o|contracted procedure: k16746 -o|contracted procedure: k16755 -o|contracted procedure: k16762 -o|contracted procedure: k16770 -o|contracted procedure: k16780 -o|contracted procedure: k16786 -o|contracted procedure: k16792 -o|contracted procedure: k16798 -o|contracted procedure: k16838 -o|contracted procedure: k16845 -o|contracted procedure: k16848 -o|contracted procedure: k16863 -o|contracted procedure: k16872 -o|contracted procedure: k16887 -o|contracted procedure: k16897 -o|contracted procedure: k16903 -o|contracted procedure: k16909 -o|contracted procedure: k16915 -o|contracted procedure: k16949 -o|contracted procedure: k16961 -o|contracted procedure: k16972 -o|contracted procedure: k16994 -o|inlining procedure: k17001 -o|contracted procedure: k17011 -o|inlining procedure: k17001 -o|contracted procedure: k17020 -o|contracted procedure: k17027 -o|contracted procedure: k17031 -o|contracted procedure: k17037 -o|contracted procedure: k17048 -o|inlining procedure: k17001 -o|contracted procedure: k17055 -o|contracted procedure: k17061 -o|contracted procedure: k18194 -o|contracted procedure: k18208 -o|contracted procedure: k18200 -o|contracted procedure: k18217 -o|contracted procedure: k18231 -o|contracted procedure: k18223 -o|contracted procedure: k18358 -o|contracted procedure: k18240 -o|contracted procedure: k18243 -o|contracted procedure: k18249 -o|contracted procedure: k18252 -o|contracted procedure: k18267 -o|contracted procedure: k18270 -o|contracted procedure: k18281 -o|contracted procedure: k18287 -o|contracted procedure: k18298 -o|contracted procedure: k18301 -o|contracted procedure: k18313 -o|contracted procedure: k18316 -o|contracted procedure: k18319 -o|contracted procedure: k18327 -o|contracted procedure: k18335 -o|contracted procedure: k18698 -o|contracted procedure: k18421 -o|contracted procedure: k18424 -o|contracted procedure: k18430 -o|contracted procedure: k18433 -o|contracted procedure: k18444 -o|contracted procedure: k18452 -o|contracted procedure: k18455 -o|contracted procedure: k18466 -o|contracted procedure: k18478 -o|contracted procedure: k18474 -o|contracted procedure: k18470 -o|contracted procedure: k18482 -o|contracted procedure: k18488 -o|contracted procedure: k18503 -o|contracted procedure: k18499 -o|contracted procedure: k18507 -o|contracted procedure: k18513 -o|contracted procedure: k18527 -o|contracted procedure: k18530 -o|contracted procedure: k18537 -o|contracted procedure: k18543 -o|contracted procedure: k18546 -o|contracted procedure: k18553 -o|contracted procedure: k18570 -o|contracted procedure: k18576 -o|contracted procedure: k18582 -o|contracted procedure: k18588 -o|contracted procedure: k18594 -o|contracted procedure: k18600 -o|contracted procedure: k18606 -o|contracted procedure: k18612 -o|contracted procedure: k18618 -o|contracted procedure: k18624 -o|contracted procedure: k18630 -o|contracted procedure: k18636 -o|contracted procedure: k18642 -o|contracted procedure: k18707 -o|contracted procedure: k18714 -o|contracted procedure: k18718 -o|contracted procedure: k18739 -o|contracted procedure: k18746 -o|contracted procedure: k18797 -o|contracted procedure: k18755 -o|contracted procedure: k18793 -o|contracted procedure: k18761 -o|contracted procedure: k18786 -o|contracted procedure: k18778 -o|contracted procedure: k18805 -o|contracted procedure: k18812 -o|contracted procedure: k18816 -o|contracted procedure: k18828 -o|contracted procedure: k18831 -o|contracted procedure: k18834 -o|contracted procedure: k18842 -o|contracted procedure: k18850 -o|contracted procedure: k18858 -o|contracted procedure: k18864 -o|contracted procedure: k18870 -o|contracted procedure: k18876 -o|contracted procedure: k18882 -o|contracted procedure: k18888 -o|contracted procedure: k18993 -o|contracted procedure: k18923 -o|contracted procedure: k18926 -o|contracted procedure: k18932 -o|contracted procedure: k18945 -o|contracted procedure: k18955 -o|contracted procedure: k18948 -o|contracted procedure: k18969 -o|contracted procedure: k18962 -o|contracted procedure: k18979 -o|contracted procedure: k18985 -o|contracted procedure: k19004 -o|contracted procedure: k18997 -o|contracted procedure: k19022 -o|contracted procedure: k19029 -o|contracted procedure: k19032 -o|contracted procedure: k19040 -o|contracted procedure: k19044 -o|contracted procedure: k7553 -o|contracted procedure: k19056 -o|contracted procedure: k19176 -o|contracted procedure: k970334129 -o|contracted procedure: k19062 -o|substituted constant variable: g35998 -o|contracted procedure: k19082 -o|contracted procedure: k19071 -o|contracted procedure: k19078 -o|contracted procedure: k19074 -o|contracted procedure: k19086 -o|contracted procedure: k19096 -o|contracted procedure: k19099 -o|contracted procedure: k19102 -o|contracted procedure: k19105 -o|contracted procedure: k19140 -o|contracted procedure: k19129 -o|contracted procedure: k19136 -o|contracted procedure: k19132 -o|contracted procedure: k19146 -o|contracted procedure: k19166 -o|contracted procedure: k19171 -o|contracted procedure: k19657 -o|contracted procedure: k19660 -o|contracted procedure: k19663 -o|contracted procedure: k19666 -o|contracted procedure: k19810 -o|contracted procedure: k19806 -o|contracted procedure: k1963934123 -o|contracted procedure: k19669 -o|contracted procedure: k19696 -o|contracted procedure: k19721 -o|contracted procedure: k19702 -o|contracted procedure: k19709 -o|contracted procedure: k19699 -o|contracted procedure: k19735 -o|contracted procedure: k19738 -o|contracted procedure: k1963934113 -o|contracted procedure: k19754 -o|contracted procedure: k19785 -o|contracted procedure: k19760 -o|contracted procedure: k19778 -o|contracted procedure: k19769 -o|contracted procedure: k19789 -o|contracted procedure: k19183 -o|contracted procedure: k7571 -o|contracted procedure: k19192 -o|contracted procedure: k19195 -o|contracted procedure: k19201 -o|contracted procedure: k19207 -o|contracted procedure: k19295 -o|contracted procedure: k970334137 -o|contracted procedure: k19213 -o|substituted constant variable: g36004 -o|contracted procedure: k19245 -o|contracted procedure: k19234 -o|contracted procedure: k19241 -o|contracted procedure: k19237 -o|contracted procedure: k19251 -o|contracted procedure: k19258 -o|contracted procedure: k19271 -o|contracted procedure: k19278 -o|contracted procedure: k19285 -o|contracted procedure: k19375 -o|contracted procedure: k19305 -o|contracted procedure: k19308 -o|contracted procedure: k19314 -o|contracted procedure: k19327 -o|contracted procedure: k19337 -o|contracted procedure: k19330 -o|contracted procedure: k19351 -o|contracted procedure: k19344 -o|contracted procedure: k19361 -o|contracted procedure: k19367 -o|contracted procedure: k19386 -o|contracted procedure: k19379 -o|contracted procedure: k19398 -o|contracted procedure: k19404 -o|contracted procedure: k19441 -o|contracted procedure: k19416 -o|contracted procedure: k19437 -o|contracted procedure: k19419 -o|contracted procedure: k19426 -o|contracted procedure: k19430 -o|contracted procedure: k19422 -o|contracted procedure: k19458 -o|contracted procedure: k19469 -o|contracted procedure: k19473 -o|contracted procedure: k19477 -o|contracted procedure: k19484 -o|contracted procedure: k19487 -o|contracted procedure: k19493 -o|contracted procedure: k19499 -o|contracted procedure: k19505 -o|contracted procedure: k19527 -o|contracted procedure: k19533 -o|contracted procedure: k19540 -o|contracted procedure: k19585 -o|contracted procedure: k19546 -o|contracted procedure: k19553 -o|contracted procedure: k19570 -o|contracted procedure: k19581 -o|contracted procedure: k19598 -o|contracted procedure: k19609 -o|contracted procedure: k19818 -o|contracted procedure: k19821 -o|contracted procedure: k19824 -o|contracted procedure: k19834 -o|contracted procedure: k19843 -o|contracted procedure: k19850 -o|contracted procedure: k19859 -o|contracted procedure: k19867 -o|contracted procedure: k19879 -o|contracted procedure: k19889 -o|contracted procedure: k19893 -o|contracted procedure: k19935 -o|contracted procedure: k19938 -o|contracted procedure: k19941 -o|contracted procedure: k19944 -o|contracted procedure: k19947 -o|contracted procedure: k19950 -o|contracted procedure: k19953 -o|contracted procedure: k19959 -o|contracted procedure: k1963934168 -o|contracted procedure: k19962 -o|contracted procedure: k19965 -o|contracted procedure: k19978 -o|contracted procedure: k19982 -o|contracted procedure: k20003 -o|contracted procedure: k20034 -o|contracted procedure: k20042 -o|contracted procedure: k20038 -o|contracted procedure: k20045 -o|contracted procedure: k20051 -o|contracted procedure: k20067 -o|contracted procedure: k20060 -o|contracted procedure: k20070 -o|contracted procedure: k20092 -o|contracted procedure: k20100 -o|contracted procedure: k20096 -o|contracted procedure: k20073 -o|contracted procedure: k20080 -o|contracted procedure: k20088 -o|contracted procedure: k20084 -o|contracted procedure: k20103 -o|contracted procedure: k1963934156 -o|contracted procedure: k20112 -o|contracted procedure: k20115 -o|contracted procedure: k20139 -o|contracted procedure: k20163 -o|contracted procedure: k20147 -o|contracted procedure: k20159 -o|contracted procedure: k20150 -o|contracted procedure: k20166 -o|contracted procedure: k20169 -o|contracted procedure: k20180 -o|contracted procedure: k20185 -o|contracted procedure: k20207 -o|contracted procedure: k20188 -o|contracted procedure: k20203 -o|contracted procedure: k20191 -o|contracted procedure: k20194 -o|contracted procedure: k20211 -o|contracted procedure: k20217 -o|contracted procedure: k20229 -o|contracted procedure: k20239 -o|contracted procedure: k20243 -o|contracted procedure: k20252 -o|contracted procedure: k20255 -o|contracted procedure: k20258 -o|contracted procedure: k20266 -o|contracted procedure: k20274 -o|contracted procedure: k20286 -o|contracted procedure: k20296 -o|contracted procedure: k20300 -o|contracted procedure: k20303 -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: k20372 -o|contracted procedure: k20380 -o|contracted procedure: k20376 -o|contracted procedure: k20414 -o|contracted procedure: k20389 -o|contracted procedure: k20407 -o|contracted procedure: k20398 -o|contracted procedure: k20418 -o|contracted procedure: k20421 -o|contracted procedure: k20442 -o|contracted procedure: k20429 -o|contracted procedure: k20438 -o|contracted procedure: k20478 -o|contracted procedure: k20445 -o|contracted procedure: k20448 -o|contracted procedure: k20460 -o|contracted procedure: k20470 -o|contracted procedure: k20474 -o|contracted procedure: k20500 -o|contracted procedure: k20508 -o|contracted procedure: k20504 -o|contracted procedure: k20481 -o|contracted procedure: k20488 -o|contracted procedure: k20496 -o|contracted procedure: k20492 -o|contracted procedure: k19916 -o|contracted procedure: k19919 -o|contracted procedure: k30337 -o|contracted procedure: k30955 -o|contracted procedure: k30951 -o|contracted procedure: k30345 -o|contracted procedure: k30353 -o|contracted procedure: k30361 -o|contracted procedure: k30369 -o|contracted procedure: k30377 -o|contracted procedure: k30385 -o|contracted procedure: k30393 -o|contracted procedure: k30401 -o|contracted procedure: k30409 -o|contracted procedure: k30417 -o|contracted procedure: k30425 -o|contracted procedure: k30433 -o|contracted procedure: k30441 -o|contracted procedure: k30449 -o|contracted procedure: k30457 -o|contracted procedure: k30465 -o|contracted procedure: k30473 -o|contracted procedure: k30481 -o|contracted procedure: k30489 -o|contracted procedure: k30497 -o|contracted procedure: k30505 -o|contracted procedure: k30513 -o|contracted procedure: k30521 -o|contracted procedure: k30529 -o|contracted procedure: k30537 -o|contracted procedure: k30947 -o|contracted procedure: k30545 -o|contracted procedure: k30553 -o|contracted procedure: k30561 -o|contracted procedure: k30565 -o|contracted procedure: k30939 -o|contracted procedure: k30943 -o|contracted procedure: k30569 -o|contracted procedure: k30935 -o|contracted procedure: k30931 -o|contracted procedure: k30573 -o|contracted procedure: k30577 -o|contracted procedure: k30927 -o|contracted procedure: k30581 -o|contracted procedure: k30923 -o|contracted procedure: k30585 -o|contracted procedure: k30919 -o|contracted procedure: k30589 -o|contracted procedure: k30593 -o|contracted procedure: k30597 -o|contracted procedure: k30915 -o|contracted procedure: k30907 -o|contracted procedure: k30911 -o|contracted procedure: k30601 -o|contracted procedure: k30903 -o|contracted procedure: k30879 -o|contracted procedure: k30883 -o|contracted procedure: k30899 -o|contracted procedure: k30887 -o|contracted procedure: k30895 -o|contracted procedure: k30891 -o|contracted procedure: k30605 -o|contracted procedure: k30875 -o|contracted procedure: k30609 -o|contracted procedure: k30871 -o|contracted procedure: k30613 -o|contracted procedure: k30867 -o|contracted procedure: k30839 -o|contracted procedure: k30855 -o|contracted procedure: k30863 -o|contracted procedure: k30859 -o|contracted procedure: k30843 -o|contracted procedure: k30851 -o|contracted procedure: k30847 -o|contracted procedure: k30617 -o|contracted procedure: k30831 -o|contracted procedure: k30835 -o|contracted procedure: k30823 -o|contracted procedure: k30827 -o|contracted procedure: k30621 -o|contracted procedure: k30819 -o|contracted procedure: k30625 -o|contracted procedure: k30815 -o|contracted procedure: k30807 -o|contracted procedure: k30811 -o|contracted procedure: k30803 -o|contracted procedure: k30629 -o|contracted procedure: k30793 -o|contracted procedure: k30785 -o|contracted procedure: k30789 -o|contracted procedure: k30633 -o|contracted procedure: k30781 -o|contracted procedure: k30637 -o|contracted procedure: k30765 -o|contracted procedure: k30773 -o|contracted procedure: k30777 -o|contracted procedure: k30769 -o|contracted procedure: k30641 -o|contracted procedure: k30645 -o|contracted procedure: k30761 -o|contracted procedure: k30649 -o|contracted procedure: k30757 -o|contracted procedure: k30653 -o|contracted procedure: k30753 -o|contracted procedure: k30749 -o|contracted procedure: k30657 -o|contracted procedure: k30745 -o|contracted procedure: k30661 -o|contracted procedure: k30741 -o|contracted procedure: k30665 -o|contracted procedure: k30669 -o|contracted procedure: k30737 -o|contracted procedure: k30673 -o|contracted procedure: k30733 -o|contracted procedure: k30677 -o|contracted procedure: k30685 -o|contracted procedure: k30689 -o|contracted procedure: k30729 -o|contracted procedure: k30693 -o|contracted procedure: k30725 -o|contracted procedure: k30701 -o|contracted procedure: k30721 -o|contracted procedure: k30705 -o|contracted procedure: k30717 -o|contracted procedure: k30713 -o|contracted procedure: k30709 -o|contracted procedure: k30697 -o|contracted procedure: k30681 -o|contracted procedure: k30557 -o|contracted procedure: k30549 -o|contracted procedure: k30541 -o|contracted procedure: k30533 -o|contracted procedure: k30525 -o|contracted procedure: k30517 -o|contracted procedure: k30509 -o|contracted procedure: k30501 -o|contracted procedure: k30493 -o|contracted procedure: k30485 -o|contracted procedure: k30477 -o|contracted procedure: k30469 -o|contracted procedure: k30461 -o|contracted procedure: k30453 -o|contracted procedure: k30445 -o|contracted procedure: k30437 -o|contracted procedure: k30429 -o|contracted procedure: k30421 -o|contracted procedure: k30413 -o|contracted procedure: k30405 -o|contracted procedure: k30397 -o|contracted procedure: k30389 -o|contracted procedure: k30381 -o|contracted procedure: k30373 -o|contracted procedure: k30365 -o|contracted procedure: k30357 -o|contracted procedure: k30349 -o|contracted procedure: k30341 -o|contracted procedure: k20514 -o|contracted procedure: k20585 -o|substituted constant variable: g36033 -o|contracted procedure: k20596 -o|contracted procedure: k20592 -o|contracted procedure: k20637 -o|contracted procedure: k20622 -o|contracted procedure: k20633 -o|contracted procedure: k20629 -o|contracted procedure: k20610 -o|contracted procedure: k20606 -o|contracted procedure: k20773 -o|contracted procedure: k20576 -o|contracted procedure: k20782 -o|contracted procedure: k20830 -o|contracted procedure: k20834 -o|contracted procedure: k20785 -o|contracted procedure: k20797 -o|contracted procedure: k20807 -o|substituted constant variable: g36035 -o|contracted procedure: k20820 -o|contracted procedure: k20810 -o|contracted procedure: k20826 -o|contracted procedure: k20851 -o|contracted procedure: k970334193 -o|contracted procedure: k20863 -o|substituted constant variable: g36040 -o|contracted procedure: k2626734182 -o|contracted procedure: k20874 -o|contracted procedure: k2626734177 -o|contracted procedure: k20878 -o|contracted procedure: k2626734187 -o|contracted procedure: k20885 -o|contracted procedure: k20891 -o|contracted procedure: k21653 -o|contracted procedure: k20897 -o|contracted procedure: k20900 -o|contracted procedure: k20924 -o|contracted procedure: k20938 -o|contracted procedure: k20948 -o|substituted constant variable: g36043 -o|contracted procedure: k20955 -o|contracted procedure: k20967 -o|contracted procedure: k20963 -o|contracted procedure: k20977 -o|contracted procedure: k20994 -o|contracted procedure: k20997 -o|inlining procedure: k21007 -o|contracted procedure: k21025 -o|contracted procedure: k21016 -o|inlining procedure: k21007 -o|contracted procedure: k21033 -o|contracted procedure: k21636 -o|contracted procedure: k21039 -o|contracted procedure: k970334201 -o|contracted procedure: k21054 -o|substituted constant variable: g36046 -o|contracted procedure: k21065 -o|contracted procedure: k21072 -o|contracted procedure: k21075 -o|contracted procedure: k21081 -o|contracted procedure: k21084 -o|contracted procedure: k21102 -o|contracted procedure: k21140 -o|contracted procedure: k21111 -o|contracted procedure: k21124 -o|contracted procedure: k21149 -o|contracted procedure: k970334207 -o|contracted procedure: k21170 -o|substituted constant variable: g36048 -o|contracted procedure: k21176 -o|contracted procedure: k21260 -o|contracted procedure: k21188 -o|contracted procedure: k21228 -o|contracted procedure: k21244 -o|contracted procedure: k21268 -o|contracted procedure: k21287 -o|contracted procedure: k21299 -o|contracted procedure: k21302 -o|contracted procedure: k21333 -o|contracted procedure: k21326 -o|contracted procedure: k21337 -o|contracted procedure: k21353 -o|contracted procedure: k21356 -o|contracted procedure: k21423 -o|contracted procedure: k21419 -o|contracted procedure: k21359 -o|contracted procedure: k21362 -o|contracted procedure: k21397 -o|contracted procedure: k21409 -o|contracted procedure: k21431 -o|contracted procedure: k21434 -o|contracted procedure: k21501 -o|contracted procedure: k21497 -o|contracted procedure: k21437 -o|contracted procedure: k21440 -o|contracted procedure: k21475 -o|contracted procedure: k21554 -o|contracted procedure: k21506 -o|contracted procedure: k21547 -o|contracted procedure: k21517 -o|contracted procedure: k21524 -o|contracted procedure: k21536 -o|contracted procedure: k21543 -o|contracted procedure: k21582 -o|contracted procedure: k21588 -o|contracted procedure: k21605 -o|contracted procedure: k21611 -o|contracted procedure: k21670 -o|contracted procedure: k21680 -o|substituted constant variable: g36051 -o|contracted procedure: k21693 -o|contracted procedure: k21683 -o|contracted procedure: k21702 -o|contracted procedure: k21698 -o|contracted procedure: k21706 -o|contracted procedure: k21710 -o|contracted procedure: k21820 -o|contracted procedure: k21719 -o|contracted procedure: k21729 -o|contracted procedure: k21722 -o|contracted procedure: k21725 -o|contracted procedure: k21816 -o|contracted procedure: k21735 -o|contracted procedure: k21738 -o|contracted procedure: k21744 -o|contracted procedure: k21758 -o|contracted procedure: k21766 -o|contracted procedure: k21762 -o|contracted procedure: k21787 -o|contracted procedure: k21793 -o|contracted procedure: k21874 -o|contracted procedure: k21883 -o|contracted procedure: k21886 -o|contracted procedure: k21889 -o|contracted procedure: k21897 -o|contracted procedure: k2052334219 -o|contracted procedure: k21912 -o|contracted procedure: k21920 -o|contracted procedure: k21935 -o|contracted procedure: k21944 -o|contracted procedure: k21949 -o|contracted procedure: k21953 -o|contracted procedure: k21974 -o|contracted procedure: k21959 -o|contracted procedure: k21963 -o|contracted procedure: k21970 -o|contracted procedure: k21977 -o|contracted procedure: k2052334224 -o|contracted procedure: k21987 -o|contracted procedure: k22000 -o|contracted procedure: k22010 -o|contracted procedure: k22014 -o|contracted procedure: k2186434232 -o|contracted procedure: k22036 -o|contracted procedure: k22017 -o|contracted procedure: k22021 -o|contracted procedure: k22032 -o|contracted procedure: k22028 -o|contracted procedure: k22287 -o|contracted procedure: k22299 -o|contracted procedure: k22302 -o|contracted procedure: k22569 -o|contracted procedure: k22369 -o|contracted procedure: k22562 -o|contracted procedure: k22558 -o|contracted procedure: k22554 -o|contracted procedure: k22550 -o|contracted procedure: k22384 -o|contracted procedure: k22391 -o|contracted procedure: k22395 -o|contracted procedure: k22404 -o|contracted procedure: k22424 -o|contracted procedure: k22420 -o|contracted procedure: k22407 -o|contracted procedure: k22591 -o|contracted procedure: k22616 -o|contracted procedure: k22641 -o|contracted procedure: k22633 -o|contracted procedure: k22637 -o|contracted procedure: k22629 -o|contracted procedure: k22646 -o|contracted procedure: k26293 -o|contracted procedure: k26319 -o|contracted procedure: k26296 -o|contracted procedure: k26315 -o|contracted procedure: k26303 -o|contracted procedure: k26311 -o|contracted procedure: k26307 -o|contracted procedure: k22655 -o|contracted procedure: k22612 -o|contracted procedure: k22600 -o|contracted procedure: k22667 -o|contracted procedure: k22670 -o|contracted procedure: k22673 -o|contracted procedure: k22681 -o|contracted procedure: k22689 -o|contracted procedure: k22696 -o|contracted procedure: k22705 -o|contracted procedure: k22712 -o|contracted procedure: k22716 -o|contracted procedure: k22728 -o|contracted procedure: k22724 -o|contracted procedure: k22720 -o|contracted procedure: k22543 -o|contracted procedure: k22436 -o|contracted procedure: k22460 -o|contracted procedure: k22463 -o|contracted procedure: k22478 -o|contracted procedure: k22470 -o|contracted procedure: k22474 -o|contracted procedure: k22487 -o|contracted procedure: k22493 -o|contracted procedure: k22502 -o|contracted procedure: k22518 -o|contracted procedure: k22522 -o|contracted procedure: k22514 -o|contracted procedure: k22510 -o|contracted procedure: k22506 -o|contracted procedure: k22532 -o|contracted procedure: k20665 -o|contracted procedure: k20661 -o|contracted procedure: k20657 -o|contracted procedure: k20653 -o|contracted procedure: k20643 -o|contracted procedure: k23377 -o|contracted procedure: k20694 -o|contracted procedure: k20690 -o|contracted procedure: k20671 -o|contracted procedure: k20682 -o|contracted procedure: k20686 -o|contracted procedure: k20678 -o|contracted procedure: k23386 -o|contracted procedure: k23224 -o|contracted procedure: k23227 -o|contracted procedure: k23239 -o|contracted procedure: k23363 -o|contracted procedure: k23257 -o|contracted procedure: k23266 -o|contracted procedure: k23273 -o|contracted procedure: k23280 -o|contracted procedure: k23284 -o|contracted procedure: k23293 -o|contracted procedure: k23299 -o|contracted procedure: k23306 -o|contracted procedure: k23313 -o|contracted procedure: k23319 -o|contracted procedure: k23326 -o|contracted procedure: k23333 -o|contracted procedure: k23337 -o|contracted procedure: k23344 -o|contracted procedure: k23351 -o|contracted procedure: k23341 -o|contracted procedure: k23371 -o|contracted procedure: k22277 -o|contracted procedure: k22281 -o|contracted procedure: k22216 -o|contracted procedure: k22269 -o|contracted procedure: k22273 -o|contracted procedure: k22222 -o|contracted procedure: k22225 -o|contracted procedure: k22234 -o|contracted procedure: k22265 -o|contracted procedure: k22253 -o|contracted procedure: k22261 -o|contracted procedure: k22257 -o|contracted procedure: k22243 -o|contracted procedure: k22539 -o|contracted procedure: k22762 -o|contracted procedure: k22769 -o|contracted procedure: k22780 -o|contracted procedure: k22787 -o|contracted procedure: k22912 -o|contracted procedure: k22797 -o|contracted procedure: k22807 -o|contracted procedure: k22908 -o|contracted procedure: k2627734273 -o|contracted procedure: k22747 -o|contracted procedure: k22743 -o|contracted procedure: k22810 -o|contracted procedure: k22824 -o|contracted procedure: k2627734263 -o|contracted procedure: k22839 -o|contracted procedure: k22846 -o|contracted procedure: k22865 -o|contracted procedure: k22861 -o|contracted procedure: k22872 -o|contracted procedure: k2627734268 -o|contracted procedure: k22882 -o|contracted procedure: k22875 -o|contracted procedure: k22886 -o|contracted procedure: k22890 -o|contracted procedure: k22902 -o|contracted procedure: k20559 -o|substituted constant variable: g36093 -o|contracted procedure: k20566 -o|contracted procedure: k2052334283 -o|contracted procedure: k20722 -o|contracted procedure: k20718 -o|contracted procedure: k20714 -o|contracted procedure: k20710 -o|contracted procedure: k20700 -o|contracted procedure: k23054 -o|contracted procedure: k20751 -o|contracted procedure: k20747 -o|contracted procedure: k20728 -o|contracted procedure: k20739 -o|contracted procedure: k20743 -o|contracted procedure: k20735 -o|contracted procedure: k23063 -o|contracted procedure: k22939 -o|contracted procedure: k22942 -o|contracted procedure: k22962 -o|contracted procedure: k22968 -o|contracted procedure: k23034 -o|contracted procedure: k22974 -o|contracted procedure: k22977 -o|contracted procedure: k22980 -o|contracted procedure: k22088 -o|contracted procedure: k22091 -o|contracted procedure: k22097 -o|contracted procedure: k2052334288 -o|contracted procedure: k22113 -o|contracted procedure: k22109 -o|contracted procedure: k22998 -o|contracted procedure: k23006 -o|contracted procedure: k23002 -o|contracted procedure: k22135 -o|contracted procedure: k22120 -o|contracted procedure: k22124 -o|contracted procedure: k22131 -o|contracted procedure: k2186434294 -o|contracted procedure: k22157 -o|contracted procedure: k22138 -o|contracted procedure: k22142 -o|contracted procedure: k22153 -o|contracted procedure: k22149 -o|contracted procedure: k22166 -o|contracted procedure: k22173 -o|contracted procedure: k22207 -o|contracted procedure: k22179 -o|contracted procedure: k22190 -o|contracted procedure: k22186 -o|contracted procedure: k22201 -o|contracted procedure: k22324 -o|contracted procedure: k22363 -o|contracted procedure: k22327 -o|contracted procedure: k22336 -o|contracted procedure: k22333 -o|contracted procedure: k22359 -o|contracted procedure: k22348 -o|contracted procedure: k22355 -o|contracted procedure: k23025 -o|contracted procedure: k23021 -o|contracted procedure: k2186434310 -o|contracted procedure: k22082 -o|contracted procedure: k22048 -o|contracted procedure: k22078 -o|contracted procedure: k22070 -o|contracted procedure: k2052334303 -o|contracted procedure: k22066 -o|contracted procedure: k22051 -o|contracted procedure: k22062 -o|contracted procedure: k22058 -o|contracted procedure: k22042 -o|contracted procedure: k2052334319 -o|contracted procedure: k23048 -o|contracted procedure: k23069 -o|contracted procedure: k23072 -o|contracted procedure: k23075 -o|contracted procedure: k23087 -o|contracted procedure: k23094 -o|contracted procedure: k23098 -o|contracted procedure: k23107 -o|contracted procedure: k23114 -o|contracted procedure: k23218 -o|contracted procedure: k23120 -o|contracted procedure: k23141 -o|contracted procedure: k23137 -o|contracted procedure: k23214 -o|contracted procedure: k23149 -o|contracted procedure: k23186 -o|contracted procedure: k23171 -o|contracted procedure: k23178 -o|contracted procedure: k23182 -o|contracted procedure: k23210 -o|contracted procedure: k23195 -o|contracted procedure: k23202 -o|contracted procedure: k23206 -o|contracted procedure: k26173 -o|contracted procedure: k26192 -o|contracted procedure: k26195 -o|contracted procedure: k26204 -o|contracted procedure: k26210 -o|contracted procedure: k26216 -o|contracted procedure: k26238 -o|contracted procedure: k26386 -o|contracted procedure: k26396 -o|substituted constant variable: g36129 -o|contracted procedure: k26403 -o|contracted procedure: k26427 -o|contracted procedure: k26411 -o|contracted procedure: k26423 -o|contracted procedure: k26419 -o|contracted procedure: k26415 -o|contracted procedure: k26407 -o|contracted procedure: k2626734336 -o|contracted procedure: k2724534331 -o|contracted procedure: k26482 -o|contracted procedure: k26922 -o|contracted procedure: k26496 -o|contracted procedure: k26511 -o|contracted procedure: k26517 -o|contracted procedure: k26541 -o|contracted procedure: k26556 -o|contracted procedure: k26559 -o|contracted procedure: k26562 -o|contracted procedure: k26574 -o|contracted procedure: k26577 -o|contracted procedure: k26580 -o|contracted procedure: k26588 -o|contracted procedure: k26596 -o|contracted procedure: k26603 -o|contracted procedure: k26609 -o|contracted procedure: k26620 -o|contracted procedure: k26623 -o|contracted procedure: k26626 -o|contracted procedure: k26638 -o|contracted procedure: k26641 -o|contracted procedure: k26644 -o|contracted procedure: k26652 -o|contracted procedure: k26660 -o|contracted procedure: k26667 -o|contracted procedure: k26673 -o|contracted procedure: k26690 -o|contracted procedure: k26693 -o|contracted procedure: k26696 -o|contracted procedure: k26708 -o|contracted procedure: k26711 -o|contracted procedure: k26714 -o|contracted procedure: k26722 -o|contracted procedure: k26730 -o|contracted procedure: k26737 -o|contracted procedure: k26743 -o|contracted procedure: k26437 -o|contracted procedure: k26446 -o|contracted procedure: k26453 -o|contracted procedure: k2625734348 -o|contracted procedure: k26461 -o|contracted procedure: k18373 -o|contracted procedure: k18412 -o|contracted procedure: k18382 -o|contracted procedure: k18406 -o|contracted procedure: k26764 -o|contracted procedure: k26775 -o|contracted procedure: k26778 -o|contracted procedure: k26781 -o|contracted procedure: k26793 -o|contracted procedure: k26796 -o|contracted procedure: k26799 -o|contracted procedure: k26807 -o|contracted procedure: k26815 -o|contracted procedure: k26822 -o|contracted procedure: k26828 -o|contracted procedure: k26843 -o|contracted procedure: k26877 -o|contracted procedure: k2625734364 -o|contracted procedure: k26887 -o|contracted procedure: k2625734370 -o|contracted procedure: k26896 -o|contracted procedure: k26903 -o|contracted procedure: k26906 -o|contracted procedure: k26916 -o|contracted procedure: k26959 -o|contracted procedure: k26965 -o|contracted procedure: k26971 -o|contracted procedure: k26974 -o|contracted procedure: k27033 -o|contracted procedure: k26992 -o|contracted procedure: k26995 -o|contracted procedure: k27009 -o|contracted procedure: k27018 -o|contracted procedure: k27024 -o|contracted procedure: k27070 -o|contracted procedure: k27074 -o|contracted procedure: k27064 -o|contracted procedure: k27048 -o|contracted procedure: k27055 -o|contracted procedure: k27097 -o|contracted procedure: k27118 -o|contracted procedure: k27136 -o|contracted procedure: k27139 -o|contracted procedure: k27235 -o|contracted procedure: k27147 -o|contracted procedure: k27231 -o|contracted procedure: k27152 -o|contracted procedure: k27161 -o|contracted procedure: k27168 -o|contracted procedure: k27173 -o|contracted procedure: k27183 -o|contracted procedure: k27189 -o|contracted procedure: k27196 -o|contracted procedure: k27213 -o|contracted procedure: k27292 -o|contracted procedure: k27305 -o|contracted procedure: k27319 -o|contracted procedure: k27322 -o|contracted procedure: k27443 -o|contracted procedure: k27447 -o|contracted procedure: k27328 -o|contracted procedure: k27337 -o|contracted procedure: k27343 -o|contracted procedure: k27424 -o|contracted procedure: k27354 -o|contracted procedure: k27376 -o|contracted procedure: k27388 -o|contracted procedure: k27256 -o|contracted procedure: k27395 -o|contracted procedure: k27406 -o|contracted procedure: k27268 -o|contracted procedure: k27415 -o|contracted procedure: k27488 -o|contracted procedure: k27491 -o|contracted procedure: k27501 -o|contracted procedure: k27504 -o|contracted procedure: k27584 -o|contracted procedure: k27588 -o|contracted procedure: k27510 -o|contracted procedure: k27521 -o|contracted procedure: k27465 -o|contracted procedure: k27564 -o|contracted procedure: k27456 -o|contracted procedure: k27529 -o|contracted procedure: k27555 -o|contracted procedure: k27536 -o|contracted procedure: k27547 -o|contracted procedure: k27540 -o|contracted procedure: k27544 -o|contracted procedure: k27620 -o|contracted procedure: k2625734393 -o|contracted procedure: k27658 -o|contracted procedure: k27670 -o|contracted procedure: k27674 -o|contracted procedure: k27682 -o|contracted procedure: k27713 -o|contracted procedure: k27732 -o|contracted procedure: k27722 -o|contracted procedure: k27939 -o|contracted procedure: k27747 -o|contracted procedure: k27750 -o|contracted procedure: k27759 -o|contracted procedure: k27762 -o|contracted procedure: k27771 -o|contracted procedure: k27783 -o|contracted procedure: k27795 -o|contracted procedure: k27807 -o|contracted procedure: k27818 -o|contracted procedure: k27864 -o|contracted procedure: k970334401 -o|contracted procedure: k27833 -o|substituted constant variable: g36162 -o|contracted procedure: k27842 -o|contracted procedure: k27849 -o|contracted procedure: k27853 -o|contracted procedure: k27860 -o|contracted procedure: k27875 -o|contracted procedure: k27868 -o|contracted procedure: k27889 -o|contracted procedure: k27882 -o|contracted procedure: k27905 -o|contracted procedure: k27911 -o|contracted procedure: k27918 -o|contracted procedure: k27896 -o|contracted procedure: k27929 -o|contracted procedure: k27923 -o|contracted procedure: k27950 -o|contracted procedure: k27943 -o|contracted procedure: k27978 -o|contracted procedure: k27971 -o|contracted procedure: k28159 -o|contracted procedure: k27990 -o|contracted procedure: k27993 -o|contracted procedure: k27999 -o|contracted procedure: k28005 -o|contracted procedure: k28017 -o|contracted procedure: k28029 -o|contracted procedure: k28041 -o|contracted procedure: k28052 -o|contracted procedure: k28094 -o|contracted procedure: k28067 -o|contracted procedure: k28070 -o|contracted procedure: k28080 -o|contracted procedure: k28090 -o|contracted procedure: k28119 -o|contracted procedure: k970334414 -o|contracted procedure: k28109 -o|substituted constant variable: g36170 -o|contracted procedure: k28123 -o|contracted procedure: k28129 -o|contracted procedure: k28149 -o|contracted procedure: k28137 -o|contracted procedure: k28143 -o|contracted procedure: k28188 -o|contracted procedure: k28181 -o|contracted procedure: k28207 -o|contracted procedure: k28223 -o|contracted procedure: k28237 -o|contracted procedure: k28248 -o|contracted procedure: k28264 -o|contracted procedure: k28257 -o|contracted procedure: k28285 -o|contracted procedure: k28296 -o|contracted procedure: k28302 -o|contracted procedure: k28320 -o|contracted procedure: k28330 -o|contracted procedure: k28340 -o|contracted procedure: k28337 -o|contracted procedure: k28357 -o|contracted procedure: k28350 -o|contracted procedure: k28372 -o|contracted procedure: k28379 -o|contracted procedure: k28388 -o|contracted procedure: k28403 -o|contracted procedure: k28412 -o|contracted procedure: k28423 -o|contracted procedure: k28430 -o|contracted procedure: k28439 -o|contracted procedure: k28478 -o|contracted procedure: k28485 -o|contracted procedure: k28447 -o|contracted procedure: k28457 -o|contracted procedure: k28468 -o|contracted procedure: k28491 -o|contracted procedure: k28525 -o|contracted procedure: k28532 -o|contracted procedure: k28494 -o|contracted procedure: k28503 -o|contracted procedure: k28515 -o|contracted procedure: k28535 -o|contracted procedure: k28551 -o|contracted procedure: k28555 -o|contracted procedure: k28547 -o|contracted procedure: k28582 -o|contracted procedure: k28623 -o|contracted procedure: k28616 -o|contracted procedure: k28809 -o|contracted procedure: k28632 -o|contracted procedure: k28685 -o|contracted procedure: k28696 -o|contracted procedure: k28647 -o|contracted procedure: k28664 -o|contracted procedure: k28675 -o|contracted procedure: k28715 -o|contracted procedure: k28779 -o|contracted procedure: k28721 -o|contracted procedure: k28733 -o|contracted procedure: k28740 -o|inlining procedure: k28730 -o|inlining procedure: k28730 -o|contracted procedure: k28755 -o|contracted procedure: k28759 -o|contracted procedure: k28773 -o|contracted procedure: k28782 -o|contracted procedure: k28801 -o|contracted procedure: k28792 -o|contracted procedure: k28820 -o|contracted procedure: k28813 -o|contracted procedure: k28827 -o|contracted procedure: k28863 -o|contracted procedure: k28834 -o|contracted procedure: k28843 -o|contracted procedure: k28860 -o|contracted procedure: k28849 -o|contracted procedure: k28887 -o|contracted procedure: k28893 -o|contracted procedure: k28912 -o|contracted procedure: k28908 -o|contracted procedure: k28921 -o|contracted procedure: k29050 -o|contracted procedure: k29188 -o|contracted procedure: k29056 -o|contracted procedure: k29072 -o|contracted procedure: k29084 -o|substituted constant variable: g36197 -o|contracted procedure: k28954 -o|contracted procedure: k28933 -o|inlining procedure: k29087 -o|inlining procedure: k29087 -o|contracted procedure: k29100 -o|contracted procedure: k29103 -o|contracted procedure: k29116 -o|contracted procedure: k29122 -o|inlining procedure: k29113 -o|inlining procedure: k29113 -o|contracted procedure: k29136 -o|contracted procedure: k29044 -o|contracted procedure: k28963 -o|inlining procedure: k29113 -o|contracted procedure: k28977 -o|contracted procedure: k29000 -o|contracted procedure: k29006 -o|contracted procedure: k29014 -o|contracted procedure: k29022 -o|contracted procedure: k28985 -o|contracted procedure: k29018 -o|contracted procedure: k29034 -o|contracted procedure: k29143 -o|contracted procedure: k29146 -o|contracted procedure: k29152 -o|contracted procedure: k29160 -o|contracted procedure: k29180 -o|contracted procedure: k29172 -o|contracted procedure: k29163 -o|contracted procedure: k29209 -o|contracted procedure: k29220 -o|contracted procedure: k29241 -o|contracted procedure: k29237 -o|contracted procedure: k29253 -o|contracted procedure: k29249 -o|contracted procedure: k29264 -o|contracted procedure: k29289 -o|contracted procedure: k29296 -o|contracted procedure: k29299 -o|contracted procedure: k29312 -o|contracted procedure: k29327 -o|contracted procedure: k29337 -o|contracted procedure: k29341 -o|contracted procedure: k29345 -o|contracted procedure: k29357 -o|contracted procedure: k29367 -o|contracted procedure: k29371 -o|contracted procedure: k29374 -o|contracted procedure: k29391 -o|contracted procedure: k29380 -o|contracted procedure: k29387 -o|contracted procedure: k29399 -o|contracted procedure: k29406 -o|contracted procedure: k29421 -o|contracted procedure: k29431 -o|contracted procedure: k29435 -o|contracted procedure: k29441 -o|contracted procedure: k29453 -o|contracted procedure: k29456 -o|contracted procedure: k29471 -o|contracted procedure: k29481 -o|contracted procedure: k29485 -o|contracted procedure: k29489 -o|contracted procedure: k29495 -o|contracted procedure: k29512 -o|contracted procedure: k29515 -o|contracted procedure: k29530 -o|contracted procedure: k29540 -o|contracted procedure: k29544 -o|contracted procedure: k29548 -o|contracted procedure: k29554 -o|contracted procedure: k29642 -o|contracted procedure: k29568 -o|contracted procedure: k29578 -o|contracted procedure: k29593 -o|contracted procedure: k29603 -o|contracted procedure: k29607 -o|contracted procedure: k29614 -o|contracted procedure: k29620 -o|contracted procedure: k29632 -o|contracted procedure: k29627 -o|contracted procedure: k29648 -o|contracted procedure: k29688 -o|contracted procedure: k29677 -o|contracted procedure: k29694 -o|contracted procedure: k29715 -o|contracted procedure: k29724 -o|contracted procedure: k29747 -o|contracted procedure: k29744 -o|contracted procedure: k29761 -o|contracted procedure: k29771 -o|contracted procedure: k29777 -o|contracted procedure: k29784 -o|contracted procedure: k29797 -o|contracted procedure: k29800 -o|contracted procedure: k29813 -o|contracted procedure: k29828 -o|contracted procedure: k29838 -o|contracted procedure: k29842 -o|contracted procedure: k29845 -o|contracted procedure: k29856 -o|contracted procedure: k29863 -o|contracted procedure: k29884 -o|contracted procedure: k29890 -o|contracted procedure: k29911 -o|contracted procedure: k29917 -o|contracted procedure: k29923 -o|contracted procedure: k29958 -o|contracted procedure: k29964 -o|contracted procedure: k29967 -o|contracted procedure: k29976 -o|contracted procedure: k29979 -o|contracted procedure: k29988 -o|contracted procedure: k29991 -o|contracted procedure: k30024 -o|contracted procedure: k30037 -o|contracted procedure: k30048 -o|contracted procedure: k30058 -o|contracted procedure: k30078 -o|contracted procedure: k30081 -o|contracted procedure: k30088 -o|contracted procedure: k30138 -o|contracted procedure: k30122 -o|contracted procedure: k30134 -o|contracted procedure: k30130 -o|contracted procedure: k30126 -o|contracted procedure: k30106 -o|contracted procedure: k30118 -o|contracted procedure: k30114 -o|contracted procedure: k30110 -o|contracted procedure: k30098 -o|contracted procedure: k30157 -o|contracted procedure: k30153 -o|contracted procedure: k30145 -o|contracted procedure: k30323 -o|contracted procedure: k30186 -o|contracted procedure: k30319 -o|contracted procedure: k30195 -o|contracted procedure: k30221 -o|contracted procedure: k30211 -o|contracted procedure: k30202 -o|contracted procedure: k30235 -o|contracted procedure: k30243 -o|contracted procedure: k30239 -o|contracted procedure: k30287 -o|contracted procedure: k30255 -o|contracted procedure: k30262 -o|contracted procedure: k30270 -o|contracted procedure: k30266 -o|contracted procedure: k30282 -o|contracted procedure: k30297 -o|contracted procedure: k30313 -o|contracted procedure: k30303 -o|contracted procedure: k30968 -o|contracted procedure: k31016 -o|contracted procedure: k31019 -o|simplifications: ((if . 14) (let . 673)) -o|replaced variables: 212 -o|removed binding forms: 2715 -o|inlining procedure: "(irregex-core.scm:246) chicken.irregex#%irregex-match-end-index" -o|inlining procedure: "(irregex-core.scm:314) chicken.irregex#%irregex-match-end-index" -o|inlining procedure: "(irregex-core.scm:326) chicken.irregex#%irregex-match-end-index" -(o x)|known list op on rest arg sublist: ##core#rest-car o916 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr o916 0 -(o x)|known list op on rest arg sublist: ##core#rest-car o1030 0 -o|contracted procedure: k9890 -o|substituted constant variable: b126136261 -o|substituted constant variable: b126136261 -o|inlining procedure: "(irregex-core.scm:767) chicken.irregex#char-altcase" -o|contracted procedure: k10845 -o|contracted procedure: k13392 -o|contracted procedure: k13619 -o|inlining procedure: k8763 -o|inlining procedure: k8763 -o|inlining procedure: k8763 -o|inlining procedure: "(irregex-core.scm:3464) chicken.irregex#%irregex-match-end-index" -o|inlining procedure: "(irregex-core.scm:3538) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3541) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3534) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3536) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3570) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3572) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3566) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3568) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3585) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3586) chicken.irregex#char-alphanumeric?" -o|inlining procedure: "(irregex-core.scm:3584) chicken.irregex#char-alphanumeric?" -o|contracted procedure: k17337 -o|substituted constant variable: r1739636328 -o|inlining procedure: k17008 -o|inlining procedure: k19320 -o|inlining procedure: "(irregex-core.scm:2084) chicken.irregex#%irregex-match-end-index" -o|inlining procedure: "(irregex-core.scm:2104) chicken.irregex#%irregex-match-end-index" -o|contracted procedure: k19827 -o|inlining procedure: "(irregex-core.scm:2496) chicken.irregex#char-altcase" -o|inlining procedure: "(irregex-core.scm:2770) chicken.irregex#mst-state-mappings-set!" -o|inlining procedure: k26286 -o|inlining procedure: k26286 -o|contracted procedure: k22756 -o|inlining procedure: "(irregex-core.scm:2809) chicken.irregex#mst-state-mappings-set!" -o|inlining procedure: "(irregex-core.scm:2791) chicken.irregex#mst-state-mappings-set!" -o|inlining procedure: "(irregex-core.scm:2791) chicken.irregex#mst-state-mappings-set!" -o|inlining procedure: "(irregex-core.scm:3890) chicken.irregex#char-altcase" -o|inlining procedure: "(irregex-core.scm:3889) chicken.irregex#char-altcase" -o|inlining procedure: "(irregex-core.scm:3927) chicken.irregex#%irregex-match-end-index" -o|inlining procedure: "(irregex-core.scm:3961) chicken.irregex#%irregex-match-end-index" -o|inlining procedure: "(irregex-core.scm:3983) chicken.irregex#%irregex-match-end-index" -o|inlining procedure: "(irregex-core.scm:4029) chicken.irregex#%irregex-match-end-index" -(o x)|known list op on rest arg sublist: ##core#rest-car o5894 0 -o|inlining procedure: k29132 -o|simplifications: ((if . 3) (let . 6)) -o|replaced variables: 10 -o|removed binding forms: 272 -o|removed side-effect free assignment to unused variable: chicken.irregex#%irregex-match-end-index -o|removed side-effect free assignment to unused variable: chicken.irregex#char-alphanumeric? -o|contracted procedure: k10633 -o|removed side-effect free assignment to unused variable: chicken.irregex#char-altcase -o|substituted constant variable: r876436600 -o|substituted constant variable: n73436687 -o|substituted constant variable: n73436692 -o|removed side-effect free assignment to unused variable: chicken.irregex#mst-state-mappings-set! -o|substituted constant variable: r2628736735 -o|contracted procedure: k22430 -o|substituted constant variable: n73436814 -o|contracted procedure: k28061 -o|substituted constant variable: n73436821 -o|substituted constant variable: n73436828 -o|substituted constant variable: n73436833 -o|simplifications: ((let . 9) (if . 3)) -o|replaced variables: 74 -o|removed binding forms: 17 -o|removed conditional forms: 1 -o|inlining procedure: k8270 -o|inlining procedure: k8360 -o|inlining procedure: k10492 -o|inlining procedure: k25577 -o|inlining procedure: k25601 -o|inlining procedure: k25775 -o|inlining procedure: k25795 -o|inlining procedure: k25840 -o|inlining procedure: k19560 -o|inlining procedure: k27666 -o|inlining procedure: k28252 -o|inlining procedure: k28511 -o|removed binding forms: 76 -o|contracted procedure: k25066 -o|contracted procedure: k25830 -o|contracted procedure: k19448 -o|contracted procedure: k20857 -o|contracted procedure: k21941 -o|contracted procedure: k22103 -o|contracted procedure: k27662 -o|contracted procedure: k27821 -o|contracted procedure: k28055 -o|simplifications: ((let . 5)) -o|removed binding forms: 21 -o|direct leaf routine/allocation: lp1153 0 -o|direct leaf routine/allocation: cased-char1431 9 -o|direct leaf routine/allocation: join1617 0 -o|direct leaf routine/allocation: new-res1618 6 -o|direct leaf routine/allocation: g18581859 6 -o|direct leaf routine/allocation: byte1929 0 -o|direct leaf routine/allocation: chicken.irregex#sre-repeater? 0 -o|direct leaf routine/allocation: chicken.irregex#sre-sequence 3 -o|direct leaf routine/allocation: chicken.irregex#sre-alternate 3 -o|direct leaf routine/allocation: g34893496 20 -o|direct leaf routine/allocation: g36443662 3 -o|direct leaf routine/allocation: g35603567 3 -o|direct leaf routine/allocation: chicken.irregex#nfa-get-epsilons 0 -o|direct leaf routine/allocation: g40624069 3 -o|direct leaf routine/allocation: doloop41624163 0 -o|direct leaf routine/allocation: chicken.irregex#char-ranges-union 6 -o|converted assignments to bindings: (lp1153) -o|contracted procedure: "(irregex-core.scm:771) k10547" -o|contracted procedure: "(irregex-core.scm:819) k10677" -o|contracted procedure: "(irregex-core.scm:822) k10686" -o|contracted procedure: "(irregex-core.scm:837) k10729" -o|contracted procedure: "(irregex-core.scm:840) k10743" -o|contracted procedure: "(irregex-core.scm:841) k10747" -o|contracted procedure: "(irregex-core.scm:887) k11125" -o|contracted procedure: "(irregex-core.scm:991) k11762" -o|contracted procedure: "(irregex-core.scm:993) k11778" -o|contracted procedure: "(irregex-core.scm:995) k11794" -o|contracted procedure: "(irregex-core.scm:998) k11813" -o|contracted procedure: "(irregex-core.scm:1003) k11854" -o|contracted procedure: "(irregex-core.scm:1006) k11877" -o|inlining procedure: "(irregex-core.scm:1260) k13525" -o|contracted procedure: "(irregex-core.scm:1371) k14076" -o|contracted procedure: "(irregex-core.scm:1372) k14064" -o|contracted procedure: "(irregex-core.scm:1375) k14129" -o|contracted procedure: "(irregex-core.scm:1376) k14117" -o|contracted procedure: "(irregex-core.scm:1377) k14105" -o|contracted procedure: "(irregex-core.scm:1380) k14198" -o|contracted procedure: "(irregex-core.scm:1381) k14186" -o|contracted procedure: "(irregex-core.scm:1382) k14174" -o|contracted procedure: "(irregex-core.scm:1383) k14162" -o|contracted procedure: "(irregex-core.scm:1452) k14633" -o|contracted procedure: "(irregex-core.scm:1464) k14761" -o|contracted procedure: "(irregex-core.scm:1471) k14795" -o|contracted procedure: "(irregex-core.scm:1480) k14900" -o|contracted procedure: "(irregex-core.scm:1487) k14934" -o|contracted procedure: "(irregex-core.scm:1495) k14492" -o|inlining procedure: "(irregex-core.scm:1428) k15532" -o|contracted procedure: "(irregex-core.scm:1498) k15290" -o|contracted procedure: "(irregex-core.scm:1515) k15152" -o|contracted procedure: "(irregex-core.scm:1528) k14577" -o|contracted procedure: "(irregex-core.scm:3166) k23549" -o|contracted procedure: "(irregex-core.scm:3175) k23588" -o|contracted procedure: "(irregex-core.scm:3180) k23607" -o|contracted procedure: "(irregex-core.scm:3185) k23626" -o|contracted procedure: "(irregex-core.scm:3187) k23645" -o|contracted procedure: "(irregex-core.scm:3193) k23696" -o|contracted procedure: "(irregex-core.scm:3199) k23742" -o|contracted procedure: "(irregex-core.scm:3204) k23768" -o|contracted procedure: "(irregex-core.scm:3213) k23807" -o|contracted procedure: "(irregex-core.scm:3210) k23813" -o|contracted procedure: "(irregex-core.scm:3225) k23849" -o|contracted procedure: "(irregex-core.scm:3220) k23867" -o|contracted procedure: "(irregex-core.scm:3244) k23892" -o|contracted procedure: "(irregex-core.scm:3239) k23910" -o|contracted procedure: "(irregex-core.scm:3268) k23999" -o|contracted procedure: "(irregex-core.scm:3302) k24151" -o|contracted procedure: "(irregex-core.scm:3335) k24390" -o|contracted procedure: "(irregex-core.scm:3345) k24425" -o|contracted procedure: "(irregex-core.scm:3355) k24503" -o|contracted procedure: "(irregex-core.scm:3372) k24546" -o|contracted procedure: "(irregex-core.scm:3454) k24909" -o|contracted procedure: "(irregex-core.scm:3457) k25036" -o|contracted procedure: "(irregex-core.scm:3636) k26134" -o|contracted procedure: "(irregex-core.scm:1795) k17468" -o|contracted procedure: "(irregex-core.scm:1819) k17654" -o|contracted procedure: "(irregex-core.scm:1830) k17693" -o|contracted procedure: "(irregex-core.scm:1834) k17740" -o|contracted procedure: "(irregex-core.scm:1838) k17814" -o|contracted procedure: "(irregex-core.scm:1842) k17842" -o|contracted procedure: "(irregex-core.scm:1555) k15611" -o|contracted procedure: "(irregex-core.scm:1556) k15626" -o|contracted procedure: "(irregex-core.scm:1571) k15800" -o|contracted procedure: "(irregex-core.scm:1697) k16738" -o|contracted procedure: "(irregex-core.scm:1708) k16855" -o|contracted procedure: "(irregex-core.scm:1897) k18259" -o|contracted procedure: "(irregex-core.scm:1898) k18277" -o|contracted procedure: "(irregex-core.scm:1899) k18294" -o|contracted procedure: "(irregex-core.scm:1919) k18440" -o|contracted procedure: "(irregex-core.scm:1921) k18462" -o|contracted procedure: "(irregex-core.scm:1925) k18495" -o|contracted procedure: "(irregex-core.scm:2162) k19882" -o|contracted procedure: "(irregex-core.scm:2246) k20289" -o|contracted procedure: "(irregex-core.scm:2198) k20463" -o|contracted procedure: "(irregex-core.scm:2431) k20616" -o|contracted procedure: "(irregex-core.scm:2570) k21252" -o|contracted procedure: "(irregex-core.scm:2643) k21405" -o|contracted procedure: "(irregex-core.scm:2656) k21483" -o|contracted procedure: "(irregex-core.scm:2772) k22003" -o|contracted procedure: "(irregex-core.scm:3023) k22951" -o|contracted procedure: k22330 -o|converted assignments to bindings: (doloop41624163) -o|contracted procedure: "(irregex-core.scm:3742) k26835" -o|contracted procedure: "(irregex-core.scm:3744) k26850" -o|contracted procedure: "(irregex-core.scm:3805) k27202" -o|contracted procedure: "(irregex-core.scm:3809) k27217" -o|simplifications: ((if . 1) (let . 2)) -o|removed binding forms: 85 -o|contracted procedure: "(irregex-core.scm:1797) k17496" -o|replaced variables: 10 -o|removed binding forms: 1 -o|simplifications: ((if . 6)) -o|removed binding forms: 10 -o|contracted procedure: k24013 -o|contracted procedure: k24054 -o|contracted procedure: k24187 -o|contracted procedure: k24213 -o|removed binding forms: 4 -o|direct leaf routine/allocation: shift1496 6 -o|direct leaf routine/allocation: chicken.irregex#nfa-add-epsilon! 6 -o|contracted procedure: "(irregex-core.scm:822) k10782" -o|contracted procedure: "(irregex-core.scm:844) k10797" -o|contracted procedure: "(irregex-core.scm:2508) k20912" -o|contracted procedure: "(irregex-core.scm:2582) k21210" -o|contracted procedure: "(irregex-core.scm:2583) k21213" -o|contracted procedure: "(irregex-core.scm:2592) k21280" -o|contracted procedure: "(irregex-core.scm:2607) k21320" -o|inlining procedure: "(irregex-core.scm:2609) k21317" -o|contracted procedure: "(irregex-core.scm:2647) k21383" -o|contracted procedure: "(irregex-core.scm:2648) k21380" -o|contracted procedure: "(irregex-core.scm:2660) k21461" -o|contracted procedure: "(irregex-core.scm:2661) k21458" -o|removed binding forms: 11 -o|contracted procedure: "(irregex-core.scm:2609) k21317" -o|removed binding forms: 1 -o|customizable procedures: (k30228 loop26270 loop6255 k29557 k29718 for-each-loop62076217 k29727 k29654 chicken.irregex#cset->string k29571 for-each-loop61526162 g61116118 for-each-loop61106122 for-each-loop60896099 for-each-loop60706080 k29305 for-each-loop60536063 lp6011 for-each-loop60346044 lp5993 lp15960 k29003 map-loop59345952 lp25963 loop5905 scan5896 k28635 k28706 lp5671 g56335634 lp5596 chicken.irregex#irregex-apply-match lp5533 chicken.irregex#irregex-copy-matches k27753 k27756 chicken.irregex#irregex-reset-matches! lp5479 k27633 lp5446 intersect5427 k27362 k27365 k27372 diff5398 union-range5373 lp5354 map-loop53065323 lp3065 lp5197 map-loop52795296 map-loop52515268 rec5215 map-loop52255242 lp5208 lp5191 k23123 lp24348 lp4345 k23012 g43174318 k22988 lp4109 k22100 k22106 lp24303 lp4297 chicken.irregex#mst-fold g42824283 chicken.irregex#cset-difference chicken.irregex#mst-copy k22830 lp4270 chicken.irregex#nfa-state->mst chicken.irregex#nfa-epsilon-closure lp4138 k23245 lp34379 lp24375 lp4373 k22484 chicken.irregex#tag-set-commands-for-closure lp24195 lp4184 lp4214 g42334242 map-loop42274249 doloop42194220 k22625 lp4150 k21938 for-each-loop40614080 chicken.irregex#make-mst chicken.irregex#mst-add! k21747 lp3819 doloop40044005 k21105 k21152 g39943995 chicken.irregex#string->cset add-char-state!3853 lp23885 lp3845 extend-state!3852 new-state-number3850 add-state!3851 doloop38583859 k20779 doloop35193520 k19968 for-each-loop35593571 k20357 k20315 for-each-loop36433667 g36833692 map-loop36773699 for-each-loop36533706 lp23585 k20006 chicken.irregex#finalize! lp13576 for-each-loop34883509 k19524 lp3394 k19311 lp3310 lp13445 chicken.irregex#find chicken.irregex#cset-contains? lp23452 lp23276 lp13272 chicken.irregex#dfa-match/longest chicken.irregex#irregex-new-matches chicken.irregex#irregex-search/matches k18929 k18749 map-loop31803197 k18516 chicken.irregex#sre-sequence-names map-loop30393056 k17014 k16866 k16749 k16636 k16496 k16323 k16366 chicken.irregex#every k15973 map-loop24782495 k15759 map-loop24442461 rec2338 map-loop24182435 chicken.irregex#any chicken.irregex#cset->utf8-pattern g23812390 map-loop23752393 g23542363 map-loop23482366 adjust2330 g25892590 chicken.irregex#sre->nfa g26002601 chicken.irregex#nfa->dfa k17136 k17165 k17489 k17869 k17909 g30023003 k17888 k17674 k17677 k17547 k17353 lp22872 lp22860 lp2820 grow2830 chicken.irregex#sre-names lp5104 lp5080 k25815 chicken.irregex#chunker-next-char k25729 k25720 k25655 k25622 k25524 k25515 chicken.irregex#chunker-prev-char k23484 k24719 lp4819 k24575 k24135 k24138 k23983 k23986 chicken.irregex#sre-count-submatches rec4413 chicken.irregex#sre-cset->procedure lp4404 chicken.irregex#cset->plist k15517 chicken.irregex#char->utf8-list map-loop22892310 chicken.irregex#unicode-range-up-from lp2007 map-loop21582179 g21942203 map-loop21882239 map-loop22512272 chicken.irregex#utf8-lowest-digit-of-length k15055 chicken.irregex#zero-to map-loop22112232 chicken.irregex#unicode-range-up-to lp2319 map-loop21222139 map-loop20872104 map-loop20252042 map-loop20512072 chicken.irregex#unicode-range-helper scan1044 chicken.irregex#symbol-list->flags scan1056 lp21747 k12688 k12038 lp1067 collect1075 k12081 k13911 k13794 k13681 chicken.irregex#sre->cset k13470 k13547 k13559 chicken.irregex#string-parse-hex-escape chicken.irregex#cset-case-insensitive chicken.irregex#cset-complement go1824 lp21609 chicken.irregex#with-read-from-string k11245 save1436 collect/single1434 k10982 lp1425 collect/terms1435 collect1433 chicken.irregex#last k10655 k10658 lp1488 lp1951 chicken.irregex#utf8-string-ref k10592 cased-string1432 map-loop14451462 k10360 k10349 lp1390 k10243 scan1360 scan1323 collect1327 k9957 skip1305 lp1291 read1278 lp1182 lp1173 lp1160 lp1134 lp1127 chicken.irregex#fold doloop11021103 lp1116 scan1032 lp968 k8402 loop940 chicken.irregex#string-cat-reverse lp851 k8012 chicken.irregex#irregex-match-numeric-index chicken.irregex#%vector-copy) -o|calls to known targets: 1149 -o|identified direct recursive calls: f_8058 2 -o|identified direct recursive calls: f_8822 1 -o|identified direct recursive calls: f_9075 1 -o|identified direct recursive calls: f_9169 1 -o|identified direct recursive calls: f_9266 1 -o|identified direct recursive calls: f_9882 1 -o|identified direct recursive calls: f_10016 1 -o|identified direct recursive calls: f_9741 4 -o|identified direct recursive calls: f_10524 1 -o|identified direct recursive calls: f_14219 1 -o|identified direct recursive calls: f_10668 2 -o|identified direct recursive calls: f_11704 6 -o|identified direct recursive calls: f_8960 1 -o|identified direct recursive calls: f_12770 2 -o|identified direct recursive calls: f_8922 1 -o|identified direct recursive calls: f_10477 3 -o|identified direct recursive calls: f_8865 1 -o|identified direct recursive calls: f_14675 1 -o|identified direct recursive calls: f_14711 1 -o|identified direct recursive calls: f_14832 1 -o|identified direct recursive calls: f_14971 1 -o|identified direct recursive calls: f_15077 1 -o|identified direct recursive calls: f_15180 1 -o|identified direct recursive calls: f_15318 1 -o|identified direct recursive calls: f_15409 1 -o|identified direct recursive calls: f_14503 1 -o|identified direct recursive calls: f_17095 1 -o|identified direct recursive calls: f_15990 1 -o|identified direct recursive calls: f_15586 2 -o|identified direct recursive calls: f_16576 1 -o|identified direct recursive calls: f_18235 3 -o|identified direct recursive calls: f_18416 3 -o|identified direct recursive calls: f_19874 1 -o|identified direct recursive calls: f_20281 1 -o|identified direct recursive calls: f_20455 1 -o|identified direct recursive calls: f_20802 1 -o|identified direct recursive calls: f_20764 4 -o|identified direct recursive calls: f_21675 1 -o|identified direct recursive calls: f_21714 1 -o|identified direct recursive calls: f_21995 1 -o|identified direct recursive calls: f_22294 1 -o|identified direct recursive calls: f_22700 1 -o|identified direct recursive calls: f_23288 2 -o|identified direct recursive calls: f_22232 1 -o|identified direct recursive calls: f_22399 1 -o|identified direct recursive calls: f_22161 1 -o|identified direct recursive calls: f_22343 1 -o|identified direct recursive calls: f_22957 1 -o|identified direct recursive calls: f_26391 1 -o|identified direct recursive calls: f_18368 1 -o|identified direct recursive calls: f_26500 2 -o|identified direct recursive calls: f_26990 2 -o|identified direct recursive calls: f_27092 4 -o|identified direct recursive calls: f_27287 3 -o|identified direct recursive calls: f_27483 3 -o|identified direct recursive calls: f_28367 1 -o|identified direct recursive calls: f_28710 2 -o|identified direct recursive calls: f_28838 1 -o|identified direct recursive calls: f_29079 2 -o|identified direct recursive calls: f_29067 1 -o|identified direct recursive calls: f_30073 4 -o|fast box initializations: 143 -o|fast global references: 365 -o|fast global assignments: 79 -o|dropping unused closure argument: f_10327 -o|dropping unused closure argument: f_13290 -o|dropping unused closure argument: f_14024 -o|dropping unused closure argument: f_14257 -o|dropping unused closure argument: f_14333 -o|dropping unused closure argument: f_14609 -o|dropping unused closure argument: f_14747 -o|dropping unused closure argument: f_14886 -o|dropping unused closure argument: f_15464 -o|dropping unused closure argument: f_16576 -o|dropping unused closure argument: f_16983 -o|dropping unused closure argument: f_18189 -o|dropping unused closure argument: f_18212 -o|dropping unused closure argument: f_18416 -o|dropping unused closure argument: f_18702 -o|dropping unused closure argument: f_19051 -o|dropping unused closure argument: f_19814 -o|dropping unused closure argument: f_19933 -o|dropping unused closure argument: f_20580 -o|dropping unused closure argument: f_20614 -o|dropping unused closure argument: f_20755 -o|dropping unused closure argument: f_21878 -o|dropping unused closure argument: f_21907 -o|dropping unused closure argument: f_21924 -o|dropping unused closure argument: f_21933 -o|dropping unused closure argument: f_22285 -o|dropping unused closure argument: f_22367 -o|dropping unused closure argument: f_23052 -o|dropping unused closure argument: f_23067 -o|dropping unused closure argument: f_26166 -o|dropping unused closure argument: f_26379 -o|dropping unused closure argument: f_26470 -o|dropping unused closure argument: f_26490 -o|dropping unused closure argument: f_26957 -o|dropping unused closure argument: f_27042 -o|dropping unused closure argument: f_27273 -o|dropping unused closure argument: f_27595 -o|dropping unused closure argument: f_27605 -o|dropping unused closure argument: f_28361 -o|dropping unused closure argument: f_29192 -o|dropping unused closure argument: f_7532 -o|dropping unused closure argument: f_7614 -o|dropping unused closure argument: f_7637 -o|dropping unused closure argument: f_7646 -o|dropping unused closure argument: f_7946 -o|dropping unused closure argument: f_8632 -o|dropping unused closure argument: f_8662 -o|dropping unused closure argument: f_9100 -o|dropping unused closure argument: f_9153 -o|dropping unused closure argument: f_9190 -o|dropping unused closure argument: f_9251 -o|dropping unused closure argument: f_9266 -o|dropping unused closure argument: f_9289 -o|dropping unused closure argument: f_9332 -o|dropping unused closure argument: f_9377 -o|dropping unused closure argument: f_9734 -*/ -/* end of file */ diff --git a/chicken/src/library.c b/chicken/src/library.c deleted file mode 100644 index be33286..0000000 --- a/chicken/src/library.c +++ /dev/null @@ -1,91757 +0,0 @@ -/* Generated from library.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: library.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file library.c -no-module-registration -emit-import-library chicken.bitwise -emit-import-library chicken.bytevector -emit-import-library chicken.fixnum -emit-import-library chicken.flonum -emit-import-library chicken.gc -emit-import-library chicken.keyword -emit-import-library chicken.platform -emit-import-library chicken.plist -emit-import-library chicken.io -emit-import-library chicken.process-context - unit: library - uses: build-version library -*/ -#include "chicken.h" - -#include -#include - -#ifdef HAVE_SYSEXITS_H -# include -#endif - -#ifndef EX_SOFTWARE -# define EX_SOFTWARE 70 -#endif - -#define C_close_file(p) (C_fclose((C_FILEPTR)(C_port_file(p))), C_SCHEME_UNDEFINED) -#define C_a_f64peek(ptr, c, b, i) C_flonum(ptr, ((double *)C_data_pointer(b))[ C_unfix(i) ]) -#define C_fetch_c_strlen(b, i) C_fix(strlen((C_char *)C_block_item(b, C_unfix(i)))) -#define C_asciiz_strlen(str) C_fix(strlen(C_c_string(str))) -#define C_peek_c_string(b, i, to, len) (C_memcpy(C_data_pointer(to), (C_char *)C_block_item(b, C_unfix(i)), C_unfix(len)), C_SCHEME_UNDEFINED) -#define C_free_mptr(p, i) (C_free((void *)C_block_item(p, C_unfix(i))), C_SCHEME_UNDEFINED) -#define C_free_sptr(p, i) (C_free((void *)(((C_char **)C_block_item(p, 0))[ C_unfix(i) ])), C_SCHEME_UNDEFINED) - -#define C_a_get_current_seconds(ptr, c, dummy) C_int64_to_num(ptr, time(NULL)) -#define C_peek_c_string_at(ptr, i) ((C_char *)(((C_char **)ptr)[ i ])) - -#define C_utf_bytes_needed(b) C_fix(C_utf_expect(C_unfix(b))) - -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); - C_char * buf = C_c_string(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_word C_i_sleep_until_interrupt(C_word secs) -{ - while(C_i_process_sleep(secs) == C_fix(-1) && errno == EINTR); - return C_SCHEME_UNDEFINED; -} - -#ifdef NO_DLOAD2 -# define HAVE_DLOAD 0 -#else -# define HAVE_DLOAD 1 -#endif - -#ifdef C_ENABLE_PTABLES -# define HAVE_PTABLES 1 -#else -# define HAVE_PTABLES 0 -#endif - -#ifdef C_GC_HOOKS -# define HAVE_GCHOOKS 1 -#else -# define HAVE_GCHOOKS 0 -#endif - -#if defined(C_CROSS_CHICKEN) && C_CROSS_CHICKEN -# define IS_CROSS_CHICKEN 1 -#else -# define IS_CROSS_CHICKEN 0 -#endif - - -#define C_chdir(str) C_fix(chdir(C_c_string(str))) -#define C_curdir(buf, size) (getcwd(C_c_string(buf), size) ? C_fix(strlen(C_c_string(buf))) : C_SCHEME_FALSE) - - - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_build_2dversion_toplevel) -C_extern void C_ccall C_build_2dversion_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[1631]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,110,111,116,32,120,41,0,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,98,111,111,108,101,97,110,63,32,120,41,0,0,0,0,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,101,113,63,32,120,32,121,41}; -static C_char li3[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,113,118,63,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,101,113,117,97,108,63,32,120,32,121,41,0,0,0,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,102,41}; -static C_char li6[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,98,111,111,108,101,97,110,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,102,41}; -static C_char li8[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,121,109,98,111,108,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,112,97,105,114,63,32,120,41}; -static C_char li10[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,111,110,115,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,97,114,32,120,41,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,100,114,32,120,41,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,115,101,116,45,99,97,114,33,32,120,32,121,41,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,115,101,116,45,99,100,114,33,32,120,32,121,41,0,0,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,97,100,114,32,120,41,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,100,100,114,32,120,41}; -static C_char li17[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,100,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,100,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,97,97,114,32,120,41,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,100,97,114,32,120,41,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,99,100,100,114,32,120,41,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,97,97,114,32,120,41}; -static C_char li23[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,97,100,114,32,120,41}; -static C_char li24[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,97,100,97,114,32,120,41}; -static C_char li25[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,97,97,114,32,120,41}; -static C_char li26[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,97,100,114,32,120,41}; -static C_char li27[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,100,97,114,32,120,41}; -static C_char li28[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,100,100,100,114,32,120,41}; -static C_char li29[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,97,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,97,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,100,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,97,100,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,97,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,97,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,97,100,100,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,97,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,97,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li38[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,100,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,97,100,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,97,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,97,100,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,99,100,100,100,97,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,110,117,108,108,63,32,120,41}; -static C_char li44[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,108,105,115,116,32,46,32,108,115,116,41,0,0,0,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,108,101,110,103,116,104,32,108,115,116,41,0,0,0,0,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,108,105,115,116,45,116,97,105,108,32,108,115,116,32,105,41}; -static C_char li47[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,108,105,115,116,45,114,101,102,32,108,115,116,32,105,41,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,114,101,115,116,41,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,114,101,118,101,114,115,101,32,108,115,116,48,41,0,0,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,101,109,113,32,120,32,108,115,116,41,0,0,0,0,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,101,109,118,32,120,32,108,115,116,41,0,0,0,0,0}; -static C_char li52[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,109,101,109,98,101,114,32,120,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li54[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,97,115,115,113,32,120,32,108,115,116,41,0,0,0,0,0}; -static C_char li55[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,97,115,115,118,32,120,32,108,115,116,41,0,0,0,0,0}; -static C_char li56[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li57[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,97,115,115,111,99,32,120,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li58[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,108,105,115,116,63,32,120,41}; -static C_char li59[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,115,116,114,105,110,103,63,32,120,41,0,0,0,0,0,0}; -static C_char li60[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,108,101,110,103,116,104,32,115,41}; -static C_char li61[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,114,101,102,32,115,32,105,41,0}; -static C_char li62[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,115,101,116,33,32,115,32,105,32,99,41,0,0,0,0,0,0}; -static C_char li63[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,115,32,102,41,0,0,0,0,0}; -static C_char li64[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,116,114,105,110,103,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0,0}; -static C_char li65[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,115,32,102,41,0,0,0,0,0}; -static C_char li66[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0}; -static C_char li67[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,101,120,97,99,116,45,62,105,110,101,120,97,99,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li68[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,97,98,115,32,120,41,0,0}; -static C_char li69[] C_aligned={C_lihdr(0,0,6),67,95,112,108,117,115,0,0}; -static C_char li70[] C_aligned={C_lihdr(0,0,7),67,95,109,105,110,117,115,0}; -static C_char li71[] C_aligned={C_lihdr(0,0,7),67,95,116,105,109,101,115,0}; -static C_char li72[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,113,117,111,116,105,101,110,116,32,97,32,98,41,0,0,0}; -static C_char li73[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,114,101,109,97,105,110,100,101,114,32,97,32,98,41,0,0}; -static C_char li74[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,109,111,100,117,108,111,32,97,32,98,41,0,0,0,0,0}; -static C_char li75[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,101,118,101,110,63,32,110,41}; -static C_char li76[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,111,100,100,63,32,110,41,0}; -static C_char li77[] 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 li78[] 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 li79[] C_aligned={C_lihdr(0,0,7),67,95,108,101,115,115,112,0}; -static C_char li80[] 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 li81[] 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 li82[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,110,117,109,98,101,114,63,32,120,41,0,0,0,0,0,0}; -static C_char li83[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,114,101,97,108,63,32,120,41}; -static C_char li84[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,97,116,105,111,110,97,108,63,32,110,41,0,0,0,0}; -static C_char li85[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,105,110,116,101,103,101,114,63,32,120,41,0,0,0,0,0}; -static C_char li86[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,120,97,99,116,63,32,120,41,0,0,0,0,0,0,0}; -static C_char li87[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,105,110,101,120,97,99,116,63,32,120,41,0,0,0,0,0}; -static C_char li88[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,122,101,114,111,63,32,110,41}; -static C_char li89[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,112,111,115,105,116,105,118,101,63,32,110,41,0,0,0,0}; -static C_char li90[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,110,101,103,97,116,105,118,101,63,32,110,41,0,0,0,0}; -static C_char li91[] 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 li92[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,115,121,109,98,111,108,63,32,120,41,0,0,0,0,0,0}; -static C_char li93[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,118,101,99,116,111,114,63,32,120,41,0,0,0,0,0,0}; -static C_char li94[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,108,101,110,103,116,104,32,118,41}; -static C_char li95[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,114,101,102,32,118,32,105,41,0}; -static C_char li96[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,115,101,116,33,32,118,32,105,32,120,41,0,0,0,0,0,0}; -static C_char li97[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,99,104,97,114,63,32,120,41}; -static C_char li98[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,62,105,110,116,101,103,101,114,32,99,41}; -static C_char li99[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,105,110,116,101,103,101,114,45,62,99,104,97,114,32,110,41}; -static C_char li100[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0}; -static C_char li101[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,99,104,97,114,61,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0,0}; -static C_char li102[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0}; -static C_char li103[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,99,104,97,114,62,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0,0}; -static C_char li104[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0}; -static C_char li105[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,99,104,97,114,60,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0,0}; -static C_char li106[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0}; -static C_char li107[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,62,61,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0}; -static C_char li108[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,99,115,32,102,41,0,0,0,0,0}; -static C_char li109[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,60,61,63,32,99,49,32,99,50,32,46,32,109,111,114,101,41,0,0,0}; -static C_char li110[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,99,104,97,114,45,117,112,99,97,115,101,32,99,41,0,0}; -static C_char li111[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,100,111,119,110,99,97,115,101,32,99,41}; -static C_char li112[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,117,112,112,101,114,45,99,97,115,101,63,32,99,41,0,0,0,0,0}; -static C_char li113[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,108,111,119,101,114,45,99,97,115,101,63,32,99,41,0,0,0,0,0}; -static C_char li114[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,104,97,114,45,110,117,109,101,114,105,99,63,32,99,41}; -static C_char li115[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,119,104,105,116,101,115,112,97,99,101,63,32,99,41,0,0,0,0,0}; -static C_char li116[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,97,108,112,104,97,98,101,116,105,99,63,32,99,41,0,0,0,0,0}; -static C_char li117[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,46,99,104,97,114,35,100,105,103,105,116,45,118,97,108,117,101,32,99,41,0,0,0,0,0}; -static C_char li118[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,112,114,111,99,101,100,117,114,101,63,32,120,41,0,0,0}; -static C_char li119[] C_aligned={C_lihdr(0,0,7),67,95,97,112,112,108,121,0}; -static C_char li120[] C_aligned={C_lihdr(0,0,8),67,95,118,97,108,117,101,115}; -static C_char li121[] 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 li122[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,105,110,112,117,116,45,112,111,114,116,63,32,120,41,0,0}; -static C_char li123[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,111,117,116,112,117,116,45,112,111,114,116,63,32,120,41,0}; -static C_char li124[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,98,105,110,97,114,121,45,112,111,114,116,63,32,112,111,114,116,41,0,0,0,0,0,0}; -static C_char li125[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,116,101,120,116,117,97,108,45,112,111,114,116,63,32,112,111,114,116,41,0,0,0,0,0}; -static C_char li126[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,112,111,114,116,63,32,120,41}; -static C_char li127[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,105,110,112,117,116,45,112,111,114,116,45,111,112,101,110,63,32,112,41,0,0,0,0,0}; -static C_char li128[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,111,117,116,112,117,116,45,112,111,114,116,45,111,112,101,110,63,32,112,41,0,0,0,0}; -static C_char li129[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,101,111,102,45,111,98,106,101,99,116,63,32,120,41,0,0}; -static C_char li130[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,101,118,97,108,32,120,32,46,32,101,110,118,41,0,0,0}; -static C_char li131[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,105,110,116,101,114,97,99,116,105,111,110,45,101,110,118,105,114,111,110,109,101,110,116,41}; -static C_char li132[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,115,99,104,101,109,101,45,114,101,112,111,114,116,45,101,110,118,105,114,111,110,109,101,110,116,32,110,41,0,0,0,0}; -static C_char li133[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,110,117,108,108,45,101,110,118,105,114,111,110,109,101,110,116,41,0,0,0,0,0,0,0}; -static C_char li134[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,108,111,97,100,32,102,105,108,101,110,97,109,101,32,46,32,101,118,97,108,117,97,116,111,114,41,0,0,0,0,0,0}; -static C_char li135[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,105,120,110,117,109,63,32,120,41}; -static C_char li136[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,111,110,117,109,63,32,120,41}; -static C_char li137[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,105,103,110,117,109,63,32,120,41}; -static C_char li138[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,97,116,110,117,109,63,32,120,41}; -static C_char li139[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,112,108,120,110,117,109,63,32,120,41,0,0,0,0,0,0,0}; -static C_char li140[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,63,32,120,41,0}; -static C_char li141[] C_aligned={C_lihdr(0,0,24),67,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114}; -static C_char li142[] C_aligned={C_lihdr(0,0,8),40,97,49,50,53,56,56,41}; -static C_char li143[] C_aligned={C_lihdr(0,0,16),40,97,49,50,53,57,52,32,100,105,118,32,114,101,109,41}; -static C_char li144[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,113,117,111,116,105,101,110,116,38,109,111,100,117,108,111,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li145[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,105,110,105,116,101,63,32,120,41}; -static C_char li146[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,110,102,105,110,105,116,101,63,32,120,41,0,0,0,0,0,0}; -static C_char li147[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,110,97,110,63,32,120,41,0,0,0}; -static C_char li148[] C_aligned={C_lihdr(0,0,8),67,95,115,105,103,110,117,109}; -static C_char li149[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,100,100,49,32,110,41,0,0,0}; -static C_char li150[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,117,98,49,32,110,41,0,0,0}; -static C_char li151[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,114,114,111,114,32,46,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li152[] C_aligned={C_lihdr(0,0,23),40,99,104,105,99,107,101,110,46,98,97,115,101,35,118,111,105,100,32,46,32,95,41,0}; -static C_char li153[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,111,109,105,115,101,63,32,120,41,0,0,0,0,0,0,0}; -static C_char li154[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,109,97,107,101,45,112,114,111,109,105,115,101,32,112,114,111,99,41,0,0,0,0,0,0,0}; -static C_char li155[] C_aligned={C_lihdr(0,0,8),40,97,49,50,55,48,57,41}; -static C_char li156[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,109,97,107,101,45,112,114,111,109,105,115,101,32,111,98,106,41,0}; -static C_char li157[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,122,41,0,0,0,0}; -static C_char li158[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,111,108,100,108,32,102,32,122,32,108,115,116,41,0,0,0,0}; -static C_char li159[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li160[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,111,108,100,114,32,102,32,122,32,108,115,116,41,0,0,0,0}; -static C_char li161[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,110,45,101,120,105,116,32,116,104,117,110,107,41,0,0,0,0}; -static C_char li162[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,105,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li163[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,109,101,114,103,101,110,99,121,45,101,120,105,116,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li164[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,100,101,110,116,105,116,121,32,120,41,0,0,0,0,0,0,0}; -static C_char li165[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,101,100,115,41,0,0,0,0}; -static C_char li166[] C_aligned={C_lihdr(0,0,11),40,102,95,49,50,56,51,57,32,120,41,0,0,0,0,0}; -static C_char li167[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,110,106,111,105,110,32,46,32,112,114,101,100,115,41,0,0}; -static C_char li168[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,101,100,115,41,0,0,0,0}; -static C_char li169[] C_aligned={C_lihdr(0,0,11),40,102,95,49,50,56,55,50,32,120,41,0,0,0,0,0}; -static C_char li170[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,100,105,115,106,111,105,110,32,46,32,112,114,101,100,115,41,0,0}; -static C_char li171[] C_aligned={C_lihdr(0,0,13),40,102,95,49,50,57,49,56,32,46,32,95,41,0,0,0}; -static C_char li172[] C_aligned={C_lihdr(0,0,13),40,102,95,49,50,57,50,48,32,46,32,95,41,0,0,0}; -static C_char li173[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,110,115,116,97,110,116,108,121,32,46,32,120,115,41,0,0}; -static C_char li174[] C_aligned={C_lihdr(0,0,13),40,102,95,49,50,57,51,48,32,120,32,121,41,0,0,0}; -static C_char li175[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,105,112,32,112,114,111,99,41}; -static C_char li176[] C_aligned={C_lihdr(0,0,16),40,102,95,49,50,57,51,56,32,46,32,97,114,103,115,41}; -static C_char li177[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,108,101,109,101,110,116,32,112,41,0,0,0,0,0}; -static C_char li178[] C_aligned={C_lihdr(0,0,8),40,97,49,50,57,54,52,41}; -static C_char li179[] C_aligned={C_lihdr(0,0,16),40,102,95,49,50,57,53,57,32,46,32,97,114,103,115,41}; -static C_char li180[] C_aligned={C_lihdr(0,0,14),40,114,101,99,32,102,48,32,46,32,102,110,115,41,0,0}; -static C_char li181[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,111,115,101,32,46,32,102,110,115,41,0,0,0,0}; -static C_char li182[] C_aligned={C_lihdr(0,0,11),40,102,95,49,51,48,49,48,32,120,41,0,0,0,0,0}; -static C_char li183[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,110,115,41,0,0,0,0,0,0}; -static C_char li184[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,111,32,46,32,102,110,115,41,0,0}; -static C_char li185[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li186[] C_aligned={C_lihdr(0,0,13),40,102,95,49,51,48,50,53,32,108,115,116,41,0,0,0}; -static C_char li187[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,108,105,115,116,45,111,102,63,32,112,114,101,100,41,0,0,0,0}; -static C_char li188[] C_aligned={C_lihdr(0,0,13),40,102,95,49,51,48,55,53,32,46,32,95,41,0,0,0}; -static C_char li189[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,99,115,41,0,0,0,0}; -static C_char li190[] C_aligned={C_lihdr(0,0,16),40,102,95,49,51,48,56,57,32,46,32,97,114,103,115,41}; -static C_char li191[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,97,99,104,32,46,32,112,114,111,99,115,41,0,0,0,0,0}; -static C_char li192[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,119,112,45,111,98,106,101,99,116,63,32,120,41,0,0,0,0}; -static C_char li193[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,119,101,97,107,45,99,111,110,115,32,120,32,121,41,0,0,0,0}; -static C_char li194[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,119,101,97,107,45,112,97,105,114,63,32,120,41,0,0,0,0,0}; -static C_char li195[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,116,111,109,63,32,120,41,0,0}; -static C_char li196[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li197[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,98,97,115,101,35,116,97,105,108,63,32,120,32,121,41}; -static C_char li198[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,110,115,41,0,0,0,0,0,0,0}; -static C_char li199[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,105,110,116,101,114,115,112,101,114,115,101,32,108,115,116,32,120,41}; -static C_char li200[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li201[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,98,117,116,108,97,115,116,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li202[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,108,105,115,116,115,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li203[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,97,116,116,101,110,32,46,32,108,105,115,116,115,48,41,0}; -static C_char li204[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,115,116,115,41,0,0,0,0,0}; -static C_char li205[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,106,111,105,110,32,108,115,116,115,32,46,32,108,115,116,41,0,0}; -static C_char li206[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,98,108,115,116,32,108,115,116,41,0}; -static C_char li207[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,111,109,112,114,101,115,115,32,98,108,115,116,32,108,115,116,41}; -static C_char li208[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,104,97,114,45,102,111,108,100,99,97,115,101,32,99,41,0,0}; -static C_char li209[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,116,114,105,110,103,45,102,111,108,100,99,97,115,101,32,115,116,114,41,0,0,0,0,0,0}; -static C_char li210[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li211[] C_aligned={C_lihdr(0,0,15),40,102,95,49,51,52,55,49,32,120,32,108,115,116,41,0}; -static C_char li212[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,117,112,100,97,116,101,33,32,120,32,121,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li213[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li214[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,117,112,100,97,116,101,32,107,32,118,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li215[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li216[] C_aligned={C_lihdr(0,0,15),40,102,95,49,51,54,54,51,32,120,32,108,115,116,41,0}; -static C_char li217[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,97,115,101,35,97,108,105,115,116,45,114,101,102,32,120,32,108,115,116,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li218[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,108,41}; -static C_char li219[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,97,115,115,111,99,32,120,32,108,115,116,32,46,32,116,115,116,41,0,0,0,0,0,0,0}; -static C_char li220[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,111,112,101,110,45,105,110,112,117,116,45,115,116,114,105,110,103,32,115,116,114,105,110,103,41,0,0,0,0,0,0,0}; -static C_char li221[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,111,112,101,110,45,111,117,116,112,117,116,45,115,116,114,105,110,103,41,0,0,0,0,0}; -static C_char li222[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,103,101,116,45,111,117,116,112,117,116,45,115,116,114,105,110,103,32,112,111,114,116,41,0}; -static C_char li223[] C_aligned={C_lihdr(0,0,10),40,97,49,51,56,56,52,32,95,41,0,0,0,0,0,0}; -static C_char li224[] C_aligned={C_lihdr(0,0,10),40,97,49,51,56,57,55,32,95,41,0,0,0,0,0,0}; -static C_char li225[] C_aligned={C_lihdr(0,0,12),40,97,49,51,57,48,57,32,95,32,95,41,0,0,0,0}; -static C_char li226[] C_aligned={C_lihdr(0,0,10),40,97,49,51,57,49,53,32,95,41,0,0,0,0,0,0}; -static C_char li227[] C_aligned={C_lihdr(0,0,23),40,97,49,51,57,50,53,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0}; -static C_char li228[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,111,112,101,110,45,105,110,112,117,116,45,98,121,116,101,118,101,99,116,111,114,32,98,118,41,0,0,0,0,0,0,0}; -static C_char li229[] C_aligned={C_lihdr(0,0,18),40,97,100,100,32,98,118,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0}; -static C_char li230[] C_aligned={C_lihdr(0,0,8),40,103,101,116,116,101,114,41}; -static C_char li231[] C_aligned={C_lihdr(0,0,12),40,97,49,51,57,55,51,32,112,32,99,41,0,0,0,0}; -static C_char li232[] C_aligned={C_lihdr(0,0,23),40,97,49,51,57,57,48,32,112,32,98,118,32,115,116,97,114,116,32,101,110,100,41,0}; -static C_char li233[] C_aligned={C_lihdr(0,0,12),40,97,49,51,57,57,54,32,95,32,95,41,0,0,0,0}; -static C_char li234[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,111,112,101,110,45,111,117,116,112,117,116,45,98,121,116,101,118,101,99,116,111,114,41,0}; -static C_char li235[] C_aligned={C_lihdr(0,0,6),40,102,97,105,108,41,0,0}; -static C_char li236[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,103,101,116,45,111,117,116,112,117,116,45,98,121,116,101,118,101,99,116,111,114,32,112,41}; -static C_char li237[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,43,32,120,32,121,41}; -static C_char li238[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,45,32,120,32,121,41}; -static C_char li239[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,42,32,120,32,121,41}; -static C_char li240[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,61,32,120,32,121,41}; -static C_char li241[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,62,32,120,32,121,41}; -static C_char li242[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,60,32,120,32,121,41}; -static C_char li243[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,62,61,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li244[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,60,61,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li245[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,105,110,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li246[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,97,120,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li247[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,110,101,103,32,120,41}; -static C_char li248[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,97,110,100,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li249[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,105,111,114,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li250[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,120,111,114,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li251[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,110,111,116,32,120,41}; -static C_char li252[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,115,104,108,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li253[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,115,104,114,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li254[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,111,100,100,63,32,120,41,0,0,0,0,0,0,0}; -static C_char li255[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,101,118,101,110,63,32,120,41,0,0,0,0,0,0}; -static C_char li256[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,108,101,110,32,120,41}; -static C_char li257[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,47,32,120,32,121,41}; -static C_char li258[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,103,99,100,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li259[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,109,111,100,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li260[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,114,101,109,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li261[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,43,63,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li262[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,45,63,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li263[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,42,63,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li264[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,105,120,110,117,109,35,102,120,47,63,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li265[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,100,101,98,117,103,45,109,111,100,101,63,41,0,0,0,0,0}; -static C_char li266[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,119,97,114,110,105,110,103,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; -static C_char li267[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,98,97,115,101,35,110,111,116,105,99,101,32,109,115,103,32,46,32,97,114,103,115,41}; -static C_char li268[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,110,97,98,108,101,45,119,97,114,110,105,110,103,115,32,46,32,98,111,111,108,41,0,0,0}; -static C_char li269[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,101,114,114,111,114,47,101,114,114,110,111,32,101,114,114,32,46,32,97,114,103,115,41,0,0}; -static C_char li270[] C_aligned={C_lihdr(0,0,4),67,95,103,99,0,0,0,0}; -static C_char li271[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,115,101,116,115,108,111,116,32,120,32,105,32,121,41,0,0,0}; -static C_char li272[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,101,116,105,115,108,111,116,32,120,32,105,32,121,41,0,0}; -static C_char li273[] 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 li274[] C_aligned={C_lihdr(0,0,21),67,95,97,108,108,111,99,97,116,101,95,98,121,116,101,118,101,99,116,111,114,0,0,0}; -static C_char li275[] 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 li276[] 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 li277[] 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 li278[] 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 li279[] 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 li280[] 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 li281[] 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 li282[] 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 li283[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,105,109,109,101,100,105,97,116,101,63,32,120,41,0,0,0,0}; -static C_char li284[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,109,101,115,115,97,103,101,32,115,116,114,41,0,0,0,0,0}; -static C_char li285[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,98,121,116,101,32,120,32,105,41}; -static C_char li286[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,104,97,108,116,32,109,115,103,41}; -static C_char li287[] C_aligned={C_lihdr(0,0,8),67,95,98,101,99,111,109,101}; -static C_char li288[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,98,108,111,99,107,45,114,101,102,32,120,32,105,41,0,0,0}; -static C_char li289[] 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 li290[] 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 li291[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,98,108,111,99,107,45,115,101,116,33,32,120,32,105,32,121,41}; -static C_char li292[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,117,114,114,101,110,116,45,112,114,111,99,101,115,115,45,109,105,108,108,105,115,101,99,111,110,100,115,41,0,0,0,0,0}; -static C_char li293[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,117,114,114,101,110,116,45,115,101,99,111,110,100,115,41,0,0}; -static C_char li294[] C_aligned={C_lihdr(0,0,23),40,99,104,105,99,107,101,110,46,116,105,109,101,35,99,112,117,45,116,105,109,101,41,0}; -static C_char li295[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,117,99,116,117,114,101,32,120,32,121,32,46,32,108,111,99,41,0,0,0,0,0,0,0}; -static C_char li296[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,98,108,111,98,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li297[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,112,97,105,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li298[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,108,105,115,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li299[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,115,116,114,105,110,103,32,120,32,46,32,108,111,99,41,0,0,0,0}; -static C_char li300[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,110,117,109,98,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0}; -static C_char li301[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,102,105,120,110,117,109,32,120,32,46,32,108,111,99,41,0,0,0,0}; -static C_char li302[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,99,104,101,99,107,45,98,121,116,101,118,101,99,116,111,114,32,120,32,46,32,108,111,99,41}; -static C_char li303[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0}; -static C_char li304[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,101,120,97,99,116,32,120,32,46,32,108,111,99,41,0,0,0}; -static C_char li305[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,115,121,109,98,111,108,32,120,32,46,32,108,111,99,41,0,0,0,0}; -static C_char li306[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,107,101,121,119,111,114,100,32,120,32,46,32,108,111,99,41,0,0,0}; -static C_char li307[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,99,104,101,99,107,45,118,101,99,116,111,114,32,120,32,46,32,108,111,99,41,0,0,0,0}; -static C_char li308[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,99,104,97,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li309[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,98,111,111,108,101,97,110,32,120,32,46,32,108,111,99,41,0,0,0}; -static C_char li310[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,99,104,101,99,107,45,108,111,99,97,116,105,118,101,32,120,32,46,32,108,111,99,41,0,0}; -static C_char li311[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0}; -static C_char li312[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,45,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0,0}; -static C_char li313[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,99,104,101,99,107,45,101,120,97,99,116,45,117,105,110,116,101,103,101,114,32,120,32,46,32,108,111,99,41,0,0,0,0}; -static C_char li314[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,114,101,97,108,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li315[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,104,101,99,107,45,114,97,110,103,101,32,105,32,102,114,111,109,32,116,111,32,46,32,108,111,99,41,0,0,0,0,0}; -static C_char li316[] C_aligned={C_lihdr(0,0,45),40,35,35,115,121,115,35,99,104,101,99,107,45,114,97,110,103,101,47,105,110,99,108,117,100,105,110,103,32,105,32,102,114,111,109,32,116,111,32,46,32,108,111,99,41,0,0,0}; -static C_char li317[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,99,104,101,99,107,45,115,112,101,99,105,97,108,32,112,116,114,32,46,32,108,111,99,41,0}; -static C_char li318[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,99,104,101,99,107,45,99,108,111,115,117,114,101,32,120,32,46,32,108,111,99,41,0,0,0}; -static C_char li319[] C_aligned={C_lihdr(0,0,20),40,108,112,32,112,114,111,109,105,115,101,32,102,111,114,119,97,114,100,41,0,0,0,0}; -static C_char li320[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,102,111,114,99,101,32,111,98,106,41,0,0,0,0,0,0}; -static C_char li321[] C_aligned={C_lihdr(0,0,7),67,95,100,108,111,97,100,0}; -static C_char li322[] 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 li323[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,114,114,111,114,45,110,111,116,45,97,45,112,114,111,112,101,114,45,108,105,115,116,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li324[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,110,117,109,98,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li325[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li326[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,101,120,97,99,116,45,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li327[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,101,120,97,99,116,45,117,105,110,116,101,103,101,114,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li328[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,105,110,101,120,97,99,116,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li329[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,114,101,97,108,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li330[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,101,114,114,111,114,45,98,97,100,45,98,97,115,101,32,97,114,103,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li331[] C_aligned={C_lihdr(0,0,11),40,99,111,112,121,32,110,111,100,101,41,0,0,0,0,0}; -static C_char li332[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,115,116,115,41,0,0,0,0,0}; -static C_char li333[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,97,112,112,101,110,100,32,46,32,108,115,116,115,41,0,0}; -static C_char li334[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,114,101,115,116,41,0}; -static C_char li335[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,102,97,115,116,45,114,101,118,101,114,115,101,32,108,115,116,48,41,0,0,0,0,0,0,0}; -static C_char li336[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,109,97,107,101,45,98,121,116,101,118,101,99,116,111,114,32,115,105,122,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li337[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,32,46,32,114,101,115,116,41,0}; -static C_char li338[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,98,117,102,102,101,114,45,62,115,116,114,105,110,103,32,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0,0,0,0}; -static C_char li339[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,117,116,102,45,100,101,99,111,100,101,114,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0,0}; -static C_char li340[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,117,116,102,45,101,110,99,111,100,101,114,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0,0}; -static C_char li341[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,117,116,102,45,115,99,97,110,110,101,114,32,115,116,97,116,101,32,98,121,116,101,41,0,0}; -static C_char li342[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,108,97,116,105,110,45,100,101,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0}; -static C_char li343[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,108,97,116,105,110,45,101,110,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0,0}; -static C_char li344[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,108,97,116,105,110,45,115,99,97,110,110,101,114,32,115,116,97,116,101,32,98,121,116,101,41}; -static C_char li345[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,98,105,110,97,114,121,45,100,101,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0}; -static C_char li346[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,98,105,110,97,114,121,45,101,110,99,111,100,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,107,41,0,0,0}; -static C_char li347[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,98,105,110,97,114,121,45,115,99,97,110,110,101,114,32,115,116,97,116,101,32,98,121,116,101,41,0,0,0,0,0,0,0}; -static C_char li348[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,101,110,99,111,100,105,110,103,45,104,111,111,107,32,101,110,99,32,107,41,0,0,0,0,0}; -static C_char li349[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,101,110,99,111,100,105,110,103,45,104,111,111,107,32,101,110,99,32,107,41,0,0,0,0,0}; -static C_char li350[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,101,110,99,111,100,105,110,103,32,110,97,109,101,115,32,100,101,99,32,101,110,99,32,115,99,97,110,41,0,0,0,0}; -static C_char li351[] C_aligned={C_lihdr(0,0,20),40,97,49,53,49,56,52,32,100,101,99,111,100,101,114,32,95,32,95,41,0,0,0,0}; -static C_char li352[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,98,117,102,102,101,114,45,62,115,116,114,105,110,103,47,101,110,99,111,100,105,110,103,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,101,110,99,41,0,0,0,0,0,0,0}; -static C_char li353[] C_aligned={C_lihdr(0,0,20),40,97,49,53,49,57,54,32,95,32,101,110,99,111,100,101,114,32,95,41,0,0,0,0}; -static C_char li354[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,101,110,99,111,100,101,45,98,117,102,102,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,101,110,99,32,107,41}; -static C_char li355[] C_aligned={C_lihdr(0,0,20),40,97,49,53,50,48,56,32,100,101,99,111,100,101,114,32,95,32,95,41,0,0,0,0}; -static C_char li356[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,100,101,99,111,100,101,45,98,117,102,102,101,114,32,98,118,32,115,116,97,114,116,32,108,101,110,32,101,110,99,32,107,41}; -static C_char li357[] C_aligned={C_lihdr(0,0,22),40,97,49,53,50,50,57,32,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0,0}; -static C_char li358[] C_aligned={C_lihdr(0,0,20),40,97,49,53,50,50,48,32,95,32,101,110,99,111,100,101,114,32,95,41,0,0,0,0}; -static C_char li359[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,110,99,111,100,101,45,99,104,97,114,32,99,32,98,118,32,101,110,99,41,0,0,0,0}; -static C_char li360[] C_aligned={C_lihdr(0,0,20),40,97,49,53,50,52,50,32,98,117,102,32,115,116,97,114,116,32,95,41,0,0,0,0}; -static C_char li361[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,100,101,99,111,100,101,45,99,104,97,114,32,98,118,32,101,110,99,32,115,116,97,114,116,41}; -static C_char li362[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,115,116,97,116,101,32,105,41,0,0}; -static C_char li363[] C_aligned={C_lihdr(0,0,19),40,97,49,53,50,53,49,32,100,101,99,32,95,32,115,99,97,110,41,0,0,0,0,0}; -static C_char li364[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,47,101,110,99,111,100,105,110,103,32,112,32,101,110,99,32,107,41,0,0,0,0,0,0}; -static C_char li365[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,109,97,107,101,45,115,116,114,105,110,103,32,115,105,122,101,32,46,32,102,105,108,108,41}; -static C_char li366[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,105,32,108,115,41,0,0,0,0,0}; -static C_char li367[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,108,105,115,116,32,115,32,46,32,114,101,115,116,41,0,0}; -static C_char li368[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,105,32,112,32,108,115,116,41,0,0}; -static C_char li369[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,62,115,116,114,105,110,103,32,108,115,116,48,41,0,0,0,0,0,0}; -static C_char li370[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,32,108,32,110,41,0,0,0,0}; -static C_char li371[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,114,101,118,101,114,115,101,45,108,105,115,116,45,62,115,116,114,105,110,103,32,108,41,0,0}; -static C_char li372[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,50,48,52,56,41,0,0,0,0}; -static C_char li373[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,102,105,108,108,33,32,115,32,99,32,46,32,114,101,115,116,41}; -static C_char li374[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,111,112,121,32,115,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li375[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,50,49,48,54,32,105,41,0,0}; -static C_char li376[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,50,49,49,50,32,105,41,0,0}; -static C_char li377[] C_aligned={C_lihdr(0,0,39),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,111,112,121,33,32,116,111,32,97,116,32,102,114,111,109,32,46,32,114,101,115,116,41,0}; -static C_char li378[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,117,98,115,116,114,105,110,103,32,115,32,115,116,97,114,116,32,101,110,100,41,0,0,0}; -static C_char li379[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,115,117,98,115,116,114,105,110,103,32,115,32,115,116,97,114,116,32,46,32,101,110,100,41}; -static C_char li380[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,115,32,108,101,110,32,115,115,32,102,41,0,0,0,0,0,0,0}; -static C_char li381[] C_aligned={C_lihdr(0,0,28),40,99,111,109,112,97,114,101,32,115,49,32,115,50,32,109,111,114,101,32,108,111,99,32,99,109,112,41,0,0,0,0}; -static C_char li382[] C_aligned={C_lihdr(0,0,22),40,97,49,54,48,50,51,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li383[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,115,116,114,105,110,103,60,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0}; -static C_char li384[] C_aligned={C_lihdr(0,0,22),40,97,49,54,48,52,55,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li385[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,115,116,114,105,110,103,62,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0}; -static C_char li386[] C_aligned={C_lihdr(0,0,22),40,97,49,54,48,55,49,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li387[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,115,116,114,105,110,103,60,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0}; -static C_char li388[] C_aligned={C_lihdr(0,0,22),40,97,49,54,48,57,50,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li389[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,115,116,114,105,110,103,62,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0}; -static C_char li390[] C_aligned={C_lihdr(0,0,17),40,108,111,111,112,32,115,32,108,101,110,32,115,115,32,102,41,0,0,0,0,0,0,0}; -static C_char li391[] C_aligned={C_lihdr(0,0,28),40,99,111,109,112,97,114,101,32,115,49,32,115,50,32,109,111,114,101,32,108,111,99,32,99,109,112,41,0,0,0,0}; -static C_char li392[] C_aligned={C_lihdr(0,0,22),40,97,49,54,49,55,51,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li393[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,60,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0,0}; -static C_char li394[] C_aligned={C_lihdr(0,0,22),40,97,49,54,49,57,55,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li395[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,62,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0,0}; -static C_char li396[] C_aligned={C_lihdr(0,0,22),40,97,49,54,50,50,49,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li397[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,60,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0}; -static C_char li398[] C_aligned={C_lihdr(0,0,22),40,97,49,54,50,52,50,32,99,109,112,32,108,101,110,49,32,108,101,110,50,41,0,0}; -static C_char li399[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,99,105,62,61,63,32,115,49,32,115,50,32,46,32,109,111,114,101,41,0,0,0,0,0,0}; -static C_char li400[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,115,116,114,105,110,103,45,97,112,112,101,110,100,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li401[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,114,115,32,110,32,117,108,41}; -static C_char li402[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,97,112,112,101,110,100,32,46,32,97,108,108,41,0,0,0,0}; -static C_char li403[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,115,116,114,105,110,103,32,46,32,99,104,97,114,115,41,0}; -static C_char li404[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,99,104,97,114,45,62,117,116,102,56,45,115,116,114,105,110,103,32,99,41,0,0,0,0,0}; -static C_char li405[] C_aligned={C_lihdr(0,0,20),40,100,111,108,111,111,112,50,50,57,56,32,104,100,32,116,108,32,99,41,0,0,0,0}; -static C_char li406[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,105,41,0,0,0,0}; -static C_char li407[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,104,111,112,32,108,115,116,32,110,41,0,0,0,0,0,0,0}; -static C_char li408[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,43,32,120,32,121,41}; -static C_char li409[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,45,32,120,32,121,41}; -static C_char li410[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,42,32,120,32,121,41}; -static C_char li411[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,47,32,120,32,121,41}; -static C_char li412[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,42,43,32,120,32,121,32,122,41,0,0,0,0,0}; -static C_char li413[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,103,99,100,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li414[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,47,63,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li415[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,61,32,120,32,121,41}; -static C_char li416[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,62,32,120,32,121,41}; -static C_char li417[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,60,32,120,32,121,41}; -static C_char li418[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,62,61,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li419[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,60,61,32,120,32,121,41,0,0,0,0,0,0,0}; -static C_char li420[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,110,101,103,32,120,41}; -static C_char li421[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,109,97,120,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li422[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,109,105,110,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li423[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,102,108,111,111,114,32,120,41,0,0,0,0,0,0}; -static C_char li424[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,114,117,110,99,97,116,101,32,120,41,0,0,0}; -static C_char li425[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,114,111,117,110,100,32,120,41,0,0,0,0,0,0}; -static C_char li426[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,101,105,108,105,110,103,32,120,41,0,0,0,0}; -static C_char li427[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,105,110,32,120,41}; -static C_char li428[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,111,115,32,120,41}; -static C_char li429[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,97,110,32,120,41}; -static C_char li430[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,115,105,110,32,120,41,0,0,0,0,0,0,0}; -static C_char li431[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,99,111,115,32,120,41,0,0,0,0,0,0,0}; -static C_char li432[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,32,120,41,0,0,0,0,0,0,0}; -static C_char li433[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,50,32,120,32,121,41,0,0,0,0}; -static C_char li434[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,105,110,104,32,120,41,0,0,0,0,0,0,0}; -static C_char li435[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,99,111,115,104,32,120,41,0,0,0,0,0,0,0}; -static C_char li436[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,116,97,110,104,32,120,41,0,0,0,0,0,0,0}; -static C_char li437[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,115,105,110,104,32,120,41,0,0,0,0,0,0}; -static C_char li438[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,99,111,115,104,32,120,41,0,0,0,0,0,0}; -static C_char li439[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,116,97,110,104,32,120,41,0,0,0,0,0,0}; -static C_char li440[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,101,120,112,32,120,41}; -static C_char li441[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,101,120,112,116,32,120,32,121,41,0,0,0,0,0}; -static C_char li442[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,108,111,103,32,120,41}; -static C_char li443[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,115,113,114,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li444[] C_aligned={C_lihdr(0,0,24),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,97,98,115,32,120,41}; -static C_char li445[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,112,105,110,116,101,103,101,114,63,32,120,41,0,0,0}; -static C_char li446[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,102,108,111,110,117,109,35,102,108,111,110,117,109,45,112,114,105,110,116,45,112,114,101,99,105,115,105,111,110,32,46,32,114,101,115,116,41,0,0}; -static C_char li447[] C_aligned={C_lihdr(0,0,18),40,109,97,107,101,45,99,111,109,112,108,101,120,32,114,32,105,41,0,0,0,0,0,0}; -static C_char li448[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,109,97,107,101,45,114,101,99,116,97,110,103,117,108,97,114,32,114,32,105,41,0,0,0}; -static C_char li449[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,109,97,107,101,45,112,111,108,97,114,32,114,32,112,104,105,41,0,0,0,0,0,0,0}; -static C_char li450[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,101,97,108,45,112,97,114,116,32,120,41,0,0,0,0}; -static C_char li451[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,105,109,97,103,45,112,97,114,116,32,120,41,0,0,0,0}; -static C_char li452[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,97,110,103,108,101,32,110,41}; -static C_char li453[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,97,103,110,105,116,117,100,101,32,120,41,0,0,0,0}; -static C_char li454[] C_aligned={C_lihdr(0,0,10),40,114,97,116,110,117,109,32,110,41,0,0,0,0,0,0}; -static C_char li455[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,110,117,109,101,114,97,116,111,114,32,110,41,0,0,0,0}; -static C_char li456[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,100,101,110,111,109,105,110,97,116,111,114,32,110,41,0,0}; -static C_char li457[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,115,105,103,110,117,109,32,120,41,0,0,0,0,0,0,0}; -static C_char li458[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,50,56,54,57,32,120,32,105,41}; -static C_char li459[] C_aligned={C_lihdr(0,0,13),40,100,101,108,105,118,101,114,32,121,32,100,41,0,0,0}; -static C_char li460[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,105,110,101,120,97,99,116,45,62,101,120,97,99,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li461[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,97,110,100,0,0,0}; -static C_char li462[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,105,111,114,0,0,0}; -static C_char li463[] C_aligned={C_lihdr(0,0,13),67,95,98,105,116,119,105,115,101,95,120,111,114,0,0,0}; -static C_char li464[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,98,105,116,119,105,115,101,45,110,111,116,32,110,41,0}; -static C_char li465[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,98,105,116,45,62,98,111,111,108,101,97,110,32,110,32,105,41,0,0,0,0,0,0}; -static C_char li466[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,105,110,116,101,103,101,114,45,108,101,110,103,116,104,32,120,41,0,0,0,0,0,0}; -static C_char li467[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,105,116,119,105,115,101,35,97,114,105,116,104,109,101,116,105,99,45,115,104,105,102,116,32,110,32,109,41,0,0}; -static C_char li468[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,97,114,103,115,32,120,41,0,0,0}; -static C_char li469[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,47,32,97,114,103,49,32,46,32,97,114,103,115,41,0,0}; -static C_char li470[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,47,45,50,32,120,32,121,41,0}; -static C_char li471[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,102,108,111,111,114,32,120,41}; -static C_char li472[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,99,101,105,108,105,110,103,32,120,41,0,0,0,0,0,0}; -static C_char li473[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,116,114,117,110,99,97,116,101,32,120,41,0,0,0,0,0}; -static C_char li474[] C_aligned={C_lihdr(0,0,16),40,115,99,104,101,109,101,35,114,111,117,110,100,32,120,41}; -static C_char li475[] C_aligned={C_lihdr(0,0,8),40,115,114,32,120,32,121,41}; -static C_char li476[] C_aligned={C_lihdr(0,0,24),40,102,105,110,100,45,114,97,116,105,111,45,98,101,116,119,101,101,110,32,120,32,121,41}; -static C_char li477[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,114,97,116,105,111,110,97,108,105,122,101,32,120,32,101,41}; -static C_char li478[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,105,32,109,32,120,115,41,0,0,0}; -static C_char li479[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,97,120,32,120,49,32,46,32,120,115,41,0,0,0,0}; -static C_char li480[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,105,32,109,32,120,115,41,0,0,0}; -static C_char li481[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,109,105,110,32,120,49,32,46,32,120,115,41,0,0,0,0}; -static C_char li482[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,101,120,112,32,110,41,0,0}; -static C_char li483[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,108,111,103,45,49,32,120,41,0}; -static C_char li484[] C_aligned={C_lihdr(0,0,21),40,115,99,104,101,109,101,35,108,111,103,32,97,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li485[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,115,105,110,32,110,41,0,0}; -static C_char li486[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,99,111,115,32,110,41,0,0}; -static C_char li487[] C_aligned={C_lihdr(0,0,14),40,115,99,104,101,109,101,35,116,97,110,32,110,41,0,0}; -static C_char li488[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,97,115,105,110,32,110,41,0}; -static C_char li489[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,97,99,111,115,32,110,41,0}; -static C_char li490[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,97,116,97,110,32,110,32,46,32,114,101,115,116,41,0,0}; -static C_char li491[] C_aligned={C_lihdr(0,0,8),40,97,49,57,48,49,48,41}; -static C_char li492[] C_aligned={C_lihdr(0,0,34),67,95,117,95,105,110,116,101,103,101,114,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114,0,0,0,0,0,0}; -static C_char li493[] C_aligned={C_lihdr(0,0,8),40,97,49,57,48,52,49,41}; -static C_char li494[] C_aligned={C_lihdr(0,0,20),40,97,49,57,48,53,55,32,113,51,50,51,54,32,117,51,50,51,56,41,0,0,0,0}; -static C_char li495[] C_aligned={C_lihdr(0,0,22),40,97,49,57,48,50,52,32,115,94,51,50,49,54,32,114,94,51,50,49,56,41,0,0}; -static C_char li496[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,115,113,114,116,32,97,41,0,0,0,0}; -static C_char li497[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,115,113,114,116,32,120,41,0,0,0}; -static C_char li498[] C_aligned={C_lihdr(0,0,8),40,97,49,57,49,57,56,41}; -static C_char li499[] C_aligned={C_lihdr(0,0,14),40,97,49,57,50,48,52,32,115,94,50,32,114,41,0,0}; -static C_char li500[] C_aligned={C_lihdr(0,0,8),40,97,49,57,50,50,54,41}; -static C_char li501[] C_aligned={C_lihdr(0,0,8),40,97,49,57,50,53,48,41}; -static C_char li502[] C_aligned={C_lihdr(0,0,16),40,97,49,57,50,54,50,32,100,115,94,50,32,100,114,41}; -static C_char li503[] C_aligned={C_lihdr(0,0,16),40,97,49,57,50,51,56,32,110,115,94,50,32,110,114,41}; -static C_char li504[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,113,114,116,47,108,111,99,32,108,111,99,32,110,41,0,0}; -static C_char li505[] C_aligned={C_lihdr(0,0,15),40,115,99,104,101,109,101,35,115,113,114,116,32,120,41,0}; -static C_char li506[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,48,53,41}; -static C_char li507[] C_aligned={C_lihdr(0,0,16),40,97,49,57,51,49,49,32,100,105,118,32,114,101,109,41}; -static C_char li508[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,102,108,111,111,114,47,32,120,32,121,41,0,0,0,0,0}; -static C_char li509[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,54,48,41}; -static C_char li510[] C_aligned={C_lihdr(0,0,16),40,97,49,57,51,54,54,32,100,105,118,32,114,101,109,41}; -static C_char li511[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,102,108,111,111,114,45,114,101,109,97,105,110,100,101,114,32,120,32,121,41,0,0,0,0}; -static C_char li512[] C_aligned={C_lihdr(0,0,8),40,97,49,57,51,55,53,41}; -static C_char li513[] C_aligned={C_lihdr(0,0,16),40,97,49,57,51,56,49,32,100,105,118,32,114,101,109,41}; -static C_char li514[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,102,108,111,111,114,45,113,117,111,116,105,101,110,116,32,120,32,121,41,0,0,0,0,0}; -static C_char li515[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,115,113,117,97,114,101,32,110,41,0,0,0,0,0,0,0}; -static C_char li516[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,110,116,104,45,114,111,111,116,32,107,32,110,41,0,0,0,0,0,0,0}; -static C_char li517[] C_aligned={C_lihdr(0,0,10),40,108,112,32,103,48,32,103,49,41,0,0,0,0,0,0}; -static C_char li518[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,101,120,97,99,116,45,105,110,116,101,103,101,114,45,110,116,104,45,114,111,111,116,47,108,111,99,32,108,111,99,32,107,32,110,41,0,0,0,0,0,0}; -static C_char li519[] C_aligned={C_lihdr(0,0,11),40,108,112,32,114,101,115,32,101,50,41,0,0,0,0,0}; -static C_char li520[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,105,110,116,101,103,101,114,45,112,111,119,101,114,32,98,97,115,101,32,101,41,0,0,0,0}; -static C_char li521[] C_aligned={C_lihdr(0,0,14),40,108,111,103,45,101,120,112,116,32,97,32,98,41,0,0}; -static C_char li522[] C_aligned={C_lihdr(0,0,15),40,115,108,111,119,45,101,120,112,116,32,97,32,98,41,0}; -static C_char li523[] C_aligned={C_lihdr(0,0,8),40,97,49,57,55,49,49,41}; -static C_char li524[] C_aligned={C_lihdr(0,0,15),40,97,49,57,55,50,51,32,100,115,94,110,32,114,41,0}; -static C_char li525[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,101,120,112,116,32,97,32,98,41,0,0,0,0,0,0,0}; -static C_char li526[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,105,110,116,101,114,110,97,108,45,103,99,100,32,108,111,99,32,97,32,98,41,0,0,0,0}; -static C_char li527[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,103,99,100,32,97,32,98,41,0}; -static C_char li528[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,110,101,120,116,41}; -static C_char li529[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,103,99,100,32,46,32,110,115,41,0,0,0,0,0,0,0}; -static C_char li530[] C_aligned={C_lihdr(0,0,15),40,35,35,115,121,115,35,108,99,109,32,120,32,121,41,0}; -static C_char li531[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,104,101,97,100,32,110,101,120,116,41}; -static C_char li532[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,108,99,109,32,46,32,110,115,41,0,0,0,0,0,0,0}; -static C_char li533[] C_aligned={C_lihdr(0,0,34),67,95,117,95,105,110,116,101,103,101,114,95,113,117,111,116,105,101,110,116,95,97,110,100,95,114,101,109,97,105,110,100,101,114,0,0,0,0,0,0}; -static C_char li534[] C_aligned={C_lihdr(0,0,8),40,97,50,48,48,55,52,41}; -static C_char li535[] C_aligned={C_lihdr(0,0,22),40,97,50,48,48,56,48,32,104,105,51,52,51,57,32,108,111,51,52,52,49,41,0,0}; -static C_char li536[] C_aligned={C_lihdr(0,0,61),40,35,35,115,121,115,35,105,110,116,101,103,101,114,45,62,115,116,114,105,110,103,47,114,101,99,117,114,115,105,118,101,32,110,32,98,97,115,101,32,101,120,112,101,99,116,101,100,45,115,116,114,105,110,103,45,115,105,122,101,41,0,0,0}; -static C_char li537[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,101,120,116,101,110,100,101,100,45,110,117,109,98,101,114,45,62,115,116,114,105,110,103,32,110,32,98,97,115,101,41,0,0}; -static C_char li538[] C_aligned={C_lihdr(0,0,20),40,114,111,117,110,100,45,113,117,111,116,105,101,110,116,32,110,32,100,41,0,0,0,0}; -static C_char li539[] C_aligned={C_lihdr(0,0,13),40,103,111,45,105,110,101,120,97,99,116,33,41,0,0,0}; -static C_char li540[] C_aligned={C_lihdr(0,0,23),40,115,97,102,101,45,101,120,112,111,110,101,110,116,32,118,97,108,117,101,32,101,41,0}; -static C_char li541[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; -static C_char li542[] C_aligned={C_lihdr(0,0,19),40,115,99,97,110,45,100,105,103,105,116,115,32,115,116,97,114,116,41,0,0,0,0,0}; -static C_char li543[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; -static C_char li544[] C_aligned={C_lihdr(0,0,19),40,115,99,97,110,45,104,97,115,104,101,115,32,115,116,97,114,116,41,0,0,0,0,0}; -static C_char li545[] C_aligned={C_lihdr(0,0,46),40,115,99,97,110,45,100,105,103,105,116,115,43,104,97,115,104,101,115,32,115,116,97,114,116,32,110,101,103,63,32,97,108,108,45,104,97,115,104,101,115,45,111,107,63,41,0,0}; -static C_char li546[] C_aligned={C_lihdr(0,0,21),40,115,99,97,110,45,101,120,112,111,110,101,110,116,32,115,116,97,114,116,41,0,0,0}; -static C_char li547[] C_aligned={C_lihdr(0,0,43),40,115,99,97,110,45,100,101,99,105,109,97,108,45,116,97,105,108,32,115,116,97,114,116,32,110,101,103,63,32,100,101,99,105,109,97,108,45,104,101,97,100,41,0,0,0,0,0}; -static C_char li548[] C_aligned={C_lihdr(0,0,23),40,115,99,97,110,45,117,114,101,97,108,32,115,116,97,114,116,32,110,101,103,63,41,0}; -static C_char li549[] C_aligned={C_lihdr(0,0,17),40,115,99,97,110,45,114,101,97,108,32,115,116,97,114,116,41,0,0,0,0,0,0,0}; -static C_char li550[] C_aligned={C_lihdr(0,0,50),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,99,111,109,112,110,117,109,32,114,97,100,105,120,32,115,116,114,32,111,102,102,115,101,116,32,101,120,97,99,116,110,101,115,115,41,0,0,0,0,0,0}; -static C_char li551[] C_aligned={C_lihdr(0,0,32),40,115,99,97,110,45,112,114,101,102,105,120,32,105,32,101,120,110,101,115,115,32,114,97,100,105,120,32,108,101,110,41}; -static C_char li552[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,110,117,109,98,101,114,32,115,116,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li553[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,110,117,109,98,101,114,32,115,116,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li554[] 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 li555[] C_aligned={C_lihdr(0,0,18),67,95,102,108,111,110,117,109,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0,0}; -static C_char li556[] C_aligned={C_lihdr(0,0,19),67,95,105,110,116,101,103,101,114,95,116,111,95,115,116,114,105,110,103,0,0,0,0,0}; -static C_char li557[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li558[] C_aligned={C_lihdr(0,0,25),40,99,111,109,112,97,114,101,45,115,108,111,116,115,32,120,32,121,32,115,116,97,114,116,41,0,0,0,0,0,0,0}; -static C_char li559[] C_aligned={C_lihdr(0,0,10),40,119,97,108,107,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li560[] C_aligned={C_lihdr(0,0,26),40,99,104,105,99,107,101,110,46,98,97,115,101,35,101,113,117,97,108,61,63,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li561[] 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 li562[] C_aligned={C_lihdr(0,0,19),67,95,115,116,114,105,110,103,95,116,111,95,107,101,121,119,111,114,100,0,0,0,0,0}; -static C_char li563[] 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 li564[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,105,110,116,101,114,110,101,100,45,115,121,109,98,111,108,63,32,120,41,0,0,0,0,0,0}; -static C_char li565[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,45,110,97,109,101,32,115,41,0,0,0}; -static C_char li566[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,47,115,104,97,114,101,100,32,115,41,0}; -static C_char li567[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,41}; -static C_char li568[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0,0,0}; -static C_char li569[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,115,121,109,98,111,108,45,62,115,116,114,105,110,103,32,115,41,0,0,0,0,0,0,0}; -static C_char li570[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0,0}; -static C_char li571[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,116,114,105,110,103,45,62,117,110,105,110,116,101,114,110,101,100,45,115,121,109,98,111,108,32,115,116,114,41,0,0,0,0}; -static C_char li572[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,110,115,121,109,32,46,32,115,116,114,45,111,114,45,115,121,109,41,0,0,0,0,0,0}; -static C_char li573[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,57,57,57,32,103,52,48,49,49,41,0,0,0,0}; -static C_char li574[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,121,109,98,111,108,45,97,112,112,101,110,100,32,46,32,115,115,41,0,0,0,0,0,0,0}; -static C_char li575[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,107,101,121,119,111,114,100,63,32,120,41,0,0,0,0}; -static C_char li576[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,115,116,114,105,110,103,45,62,107,101,121,119,111,114,100,32,115,41,0,0,0,0,0}; -static C_char li577[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,107,101,121,119,111,114,100,45,62,115,116,114,105,110,103,32,107,119,41,0,0,0,0}; -static C_char li578[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,107,101,121,119,111,114,100,35,103,101,116,45,107,101,121,119,111,114,100,32,107,101,121,32,97,114,103,115,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li579[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,105,32,108,115,116,41,0,0,0,0}; -static C_char li580[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,98,121,116,101,118,101,99,116,111,114,45,62,108,105,115,116,32,118,41,0,0,0,0,0,0}; -static C_char li581[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,115,116,32,105,41,0,0,0,0}; -static C_char li582[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,108,105,115,116,45,62,98,121,116,101,118,101,99,116,111,114,32,108,115,116,48,41,0,0,0}; -static C_char li583[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,109,97,107,101,45,98,121,116,101,118,101,99,116,111,114,32,115,105,122,101,32,46,32,114,101,115,116,41}; -static C_char li584[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,63,32,120,41,0,0,0,0,0,0}; -static C_char li585[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,108,101,110,103,116,104,32,98,118,41,0,0,0,0,0,0,0}; -static C_char li586[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,117,56,45,114,101,102,32,98,118,32,105,41,0,0,0,0,0}; -static C_char li587[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,117,56,45,115,101,116,33,32,98,118,32,105,32,98,41,0,0}; -static C_char li588[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,115,116,114,105,110,103,45,62,117,116,102,56,32,115,41,0,0,0,0,0}; -static C_char li589[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,117,116,102,56,45,62,115,116,114,105,110,103,32,98,118,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li590[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,115,116,114,105,110,103,45,62,108,97,116,105,110,49,32,115,41,0,0,0}; -static C_char li591[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,108,97,116,105,110,49,45,62,115,116,114,105,110,103,32,98,118,41,0,0}; -static C_char li592[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,61,63,32,98,49,32,98,50,41,0}; -static C_char li593[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li594[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,32,46,32,97,114,103,115,41,0,0}; -static C_char li595[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,99,111,112,121,32,98,118,32,46,32,114,101,115,116,41,0,0}; -static C_char li596[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,99,111,112,121,33,32,98,118,49,32,97,116,32,98,118,50,32,46,32,114,101,115,116,41,0}; -static C_char li597[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li598[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,108,115,116,32,108,101,110,41,0,0}; -static C_char li599[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,121,116,101,118,101,99,116,111,114,35,98,121,116,101,118,101,99,116,111,114,45,97,112,112,101,110,100,32,46,32,98,118,115,41,0,0,0,0}; -static C_char li600[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,109,97,107,101,45,118,101,99,116,111,114,32,115,105,122,101,32,46,32,102,105,108,108,41}; -static C_char li601[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li602[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,62,118,101,99,116,111,114,32,108,115,116,48,41,0,0,0,0,0,0}; -static C_char li603[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li604[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,62,108,105,115,116,32,118,32,46,32,114,101,115,116,41,0,0}; -static C_char li605[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,118,101,99,116,111,114,32,46,32,120,115,41,0,0,0,0}; -static C_char li606[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,51,51,55,41,0,0,0,0}; -static C_char li607[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,102,105,108,108,33,32,118,32,120,32,46,32,114,101,115,116,41}; -static C_char li608[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,52,51,54,56,32,102,105,41,0}; -static C_char li609[] C_aligned={C_lihdr(0,0,18),40,99,111,112,121,32,118,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0}; -static C_char li610[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,99,111,112,121,32,118,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li611[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,52,52,48,57,32,116,105,41,0}; -static C_char li612[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,52,52,49,53,32,116,105,41,0}; -static C_char li613[] C_aligned={C_lihdr(0,0,28),40,99,111,112,121,33,32,116,111,32,97,116,32,102,114,111,109,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0}; -static C_char li614[] C_aligned={C_lihdr(0,0,39),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,99,111,112,121,33,32,116,111,32,97,116,32,102,114,111,109,32,46,32,114,101,115,116,41,0}; -static C_char li615[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,52,51,52,41,0,0,0,0,0}; -static C_char li616[] C_aligned={C_lihdr(0,0,22),40,100,111,108,111,111,112,52,53,48,49,32,118,115,32,108,101,110,115,32,105,41,0,0}; -static C_char li617[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,52,52,57,49,32,103,52,52,57,48,41,0,0,0,0,0,0,0}; -static C_char li618[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,52,54,48,32,103,52,52,55,50,41,0,0,0,0}; -static C_char li619[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,97,112,112,101,110,100,32,46,32,118,115,41,0,0,0,0,0}; -static C_char li620[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,53,50,56,41,0,0,0,0}; -static C_char li621[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,117,98,118,101,99,116,111,114,32,118,32,105,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li622[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,98,97,115,101,35,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,32,110,32,46,32,114,101,115,116,41,0}; -static C_char li623[] C_aligned={C_lihdr(0,0,12),40,100,111,108,111,111,112,52,53,53,54,41,0,0,0,0}; -static C_char li624[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,118,101,99,116,111,114,45,114,101,115,105,122,101,32,118,32,110,32,105,110,105,116,41,0,0}; -static C_char li625[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0}; -static C_char li626[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0}; -static C_char li627[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0}; -static C_char li628[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,62,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0}; -static C_char li629[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0}; -static C_char li630[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,60,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0,0}; -static C_char li631[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0}; -static C_char li632[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,62,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0}; -static C_char li633[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,99,32,99,115,32,102,41,0,0,0}; -static C_char li634[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,99,104,97,114,45,99,105,60,61,63,32,120,32,121,32,46,32,109,111,114,101,41,0,0}; -static C_char li635[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li636[] C_aligned={C_lihdr(0,0,15),40,108,111,111,107,117,112,45,99,104,97,114,32,99,41,0}; -static C_char li637[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,104,97,114,45,110,97,109,101,32,120,32,46,32,121,41,0,0}; -static C_char li638[] 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 li639[] 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 li640[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li641[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,102,111,114,45,101,97,99,104,32,112,32,108,115,116,48,41,0}; -static C_char li642[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li643[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,109,97,112,32,112,32,108,115,116,48,41,0,0,0,0,0,0}; -static C_char li644[] C_aligned={C_lihdr(0,0,9),40,108,112,32,108,115,116,115,41,0,0,0,0,0,0,0}; -static C_char li645[] C_aligned={C_lihdr(0,0,14),40,97,50,52,50,52,56,32,101,109,112,116,121,41,0,0}; -static C_char li646[] C_aligned={C_lihdr(0,0,24),40,109,97,112,115,97,102,101,52,55,48,50,32,112,32,108,115,116,115,32,108,111,99,41}; -static C_char li647[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,52,55,50,50,32,103,52,55,50,57,41,0,0,0,0,0,0,0}; -static C_char li648[] C_aligned={C_lihdr(0,0,10),40,97,50,52,51,55,48,32,120,41,0,0,0,0,0,0}; -static C_char li649[] C_aligned={C_lihdr(0,0,10),40,97,50,52,51,55,54,32,120,41,0,0,0,0,0,0}; -static C_char li650[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,97,108,108,41,0,0,0,0,0,0}; -static C_char li651[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,102,111,114,45,101,97,99,104,32,102,110,32,108,115,116,49,32,46,32,108,115,116,115,41}; -static C_char li652[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,52,55,53,48,32,103,52,55,54,50,41,0,0,0,0}; -static C_char li653[] C_aligned={C_lihdr(0,0,10),40,97,50,52,52,55,49,32,120,41,0,0,0,0,0,0}; -static C_char li654[] C_aligned={C_lihdr(0,0,10),40,97,50,52,52,55,55,32,120,41,0,0,0,0,0,0}; -static C_char li655[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,97,108,108,41,0,0,0,0,0,0}; -static C_char li656[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,109,97,112,32,102,110,32,108,115,116,49,32,46,32,108,115,116,115,41,0,0,0,0,0}; -static C_char li657[] C_aligned={C_lihdr(0,0,18),40,97,50,52,52,57,55,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; -static C_char li658[] C_aligned={C_lihdr(0,0,40),40,115,99,104,101,109,101,35,100,121,110,97,109,105,99,45,119,105,110,100,32,98,101,102,111,114,101,32,116,104,117,110,107,32,97,102,116,101,114,41}; -static C_char li659[] C_aligned={C_lihdr(0,0,24),40,99,111,110,116,105,110,117,97,116,105,111,110,32,46,32,114,101,115,117,108,116,115,41}; -static C_char li660[] C_aligned={C_lihdr(0,0,13),40,97,50,52,53,50,49,32,99,111,110,116,41,0,0,0}; -static C_char li661[] C_aligned={C_lihdr(0,0,44),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,99,117,114,114,101,110,116,45,99,111,110,116,105,110,117,97,116,105,111,110,32,112,114,111,99,41,0,0,0,0}; -static C_char li662[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,100,121,110,97,109,105,99,45,117,110,119,105,110,100,32,119,105,110,100,115,32,110,41,0,0}; -static C_char li663[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,111,114,116,45,99,108,111,115,101,100,63,32,112,41,0,0,0}; -static C_char li664[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,109,97,107,101,45,112,111,114,116,32,105,47,111,32,99,108,97,115,115,32,110,97,109,101,32,116,121,112,101,41,0,0,0}; -static C_char li665[] C_aligned={C_lihdr(0,0,22),40,97,52,49,55,48,51,32,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0,0}; -static C_char li666[] C_aligned={C_lihdr(0,0,26),40,97,52,49,54,57,55,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,100,101,99,41,0,0,0,0,0,0}; -static C_char li667[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li668[] C_aligned={C_lihdr(0,0,10),40,97,52,49,54,50,57,32,112,41,0,0,0,0,0,0}; -static C_char li669[] C_aligned={C_lihdr(0,0,20),40,97,52,49,55,52,48,32,98,117,102,32,115,116,97,114,116,32,95,41,0,0,0,0}; -static C_char li670[] C_aligned={C_lihdr(0,0,26),40,97,52,49,55,50,56,32,98,117,102,32,115,116,97,114,116,32,108,101,110,32,100,101,99,41,0,0,0,0,0,0}; -static C_char li671[] C_aligned={C_lihdr(0,0,10),40,97,52,49,55,49,48,32,112,41,0,0,0,0,0,0}; -static C_char li672[] C_aligned={C_lihdr(0,0,12),40,97,52,49,55,52,51,32,112,32,99,41,0,0,0,0}; -static C_char li673[] C_aligned={C_lihdr(0,0,21),40,97,52,49,55,56,53,32,98,118,32,115,116,97,114,116,32,108,101,110,41,0,0,0}; -static C_char li674[] C_aligned={C_lihdr(0,0,21),40,97,52,49,55,55,49,32,112,32,98,118,32,102,114,111,109,32,116,111,41,0,0,0}; -static C_char li675[] C_aligned={C_lihdr(0,0,12),40,97,52,49,55,56,56,32,112,32,100,41,0,0,0,0}; -static C_char li676[] C_aligned={C_lihdr(0,0,10),40,97,52,49,55,57,52,32,112,41,0,0,0,0,0,0}; -static C_char li677[] C_aligned={C_lihdr(0,0,10),40,97,52,49,55,57,55,32,112,41,0,0,0,0,0,0}; -static C_char li678[] C_aligned={C_lihdr(0,0,8),40,97,52,49,56,52,51,41}; -static C_char li679[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,114,101,109,32,97,99,116,32,115,116,97,114,116,41,0,0,0,0}; -static C_char li680[] C_aligned={C_lihdr(0,0,23),40,97,52,49,56,48,48,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0}; -static C_char li681[] C_aligned={C_lihdr(0,0,8),40,97,52,50,48,48,56,41}; -static C_char li682[] C_aligned={C_lihdr(0,0,32),40,108,111,111,112,32,108,101,110,32,108,105,109,105,116,32,98,117,102,102,101,114,32,114,101,115,117,108,116,32,102,41}; -static C_char li683[] C_aligned={C_lihdr(0,0,17),40,97,52,49,57,48,55,32,112,32,114,108,105,109,105,116,41,0,0,0,0,0,0,0}; -static C_char li684[] 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 li685[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,99,104,101,99,107,45,105,110,112,117,116,45,112,111,114,116,32,120,32,111,112,101,110,32,46,32,108,111,99,41,0,0,0}; -static C_char li686[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,104,101,99,107,45,111,117,116,112,117,116,45,112,111,114,116,32,120,32,111,112,101,110,32,46,32,108,111,99,41,0,0}; -static C_char li687[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,99,104,101,99,107,45,112,111,114,116,32,120,32,46,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li688[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,99,104,101,99,107,45,111,112,101,110,45,112,111,114,116,32,120,32,46,32,108,111,99,41,0}; -static C_char li689[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,52,57,54,52,41,0,0,0,0,0,0}; -static C_char li690[] C_aligned={C_lihdr(0,0,34),40,115,99,104,101,109,101,35,99,117,114,114,101,110,116,45,105,110,112,117,116,45,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; -static C_char li691[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,52,57,56,57,41,0,0,0,0,0,0}; -static C_char li692[] C_aligned={C_lihdr(0,0,35),40,115,99,104,101,109,101,35,99,117,114,114,101,110,116,45,111,117,116,112,117,116,45,112,111,114,116,32,46,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li693[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,53,48,49,52,41,0,0,0,0,0,0}; -static C_char li694[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,98,97,115,101,35,99,117,114,114,101,110,116,45,101,114,114,111,114,45,112,111,114,116,32,46,32,97,114,103,115,41}; -static C_char li695[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,116,116,121,45,112,111,114,116,63,32,112,111,114,116,41,0,0}; -static C_char li696[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,112,111,114,116,45,100,97,116,97,32,112,111,114,116,41,0,0}; -static C_char li697[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,101,116,45,112,111,114,116,45,100,97,116,97,33,32,112,111,114,116,32,100,97,116,97,41}; -static C_char li698[] C_aligned={C_lihdr(0,0,18),40,100,111,108,111,111,112,53,48,53,51,32,109,111,100,101,115,41,0,0,0,0,0,0}; -static C_char li699[] C_aligned={C_lihdr(0,0,25),40,111,112,101,110,32,110,97,109,101,32,105,110,112,32,109,111,100,101,115,32,108,111,99,41,0,0,0,0,0,0,0}; -static C_char li700[] C_aligned={C_lihdr(0,0,20),40,99,108,111,115,101,32,112,111,114,116,32,105,110,112,32,108,111,99,41,0,0,0,0}; -static C_char li701[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,35,111,112,101,110,45,105,110,112,117,116,45,102,105,108,101,32,110,97,109,101,32,46,32,109,111,100,101,41,0,0,0,0}; -static C_char li702[] C_aligned={C_lihdr(0,0,37),40,115,99,104,101,109,101,35,111,112,101,110,45,111,117,116,112,117,116,45,102,105,108,101,32,110,97,109,101,32,46,32,109,111,100,101,41,0,0,0}; -static C_char li703[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,99,108,111,115,101,45,105,110,112,117,116,45,112,111,114,116,32,112,111,114,116,41,0,0}; -static C_char li704[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,35,99,108,111,115,101,45,111,117,116,112,117,116,45,112,111,114,116,32,112,111,114,116,41,0}; -static C_char li705[] C_aligned={C_lihdr(0,0,8),40,97,50,53,50,52,53,41}; -static C_char li706[] C_aligned={C_lihdr(0,0,18),40,97,50,53,50,53,49,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; -static C_char li707[] C_aligned={C_lihdr(0,0,43),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,105,110,112,117,116,45,102,105,108,101,32,110,97,109,101,32,112,32,46,32,109,111,100,101,41,0,0,0,0,0}; -static C_char li708[] C_aligned={C_lihdr(0,0,8),40,97,50,53,50,54,57,41}; -static C_char li709[] C_aligned={C_lihdr(0,0,18),40,97,50,53,50,55,53,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; -static C_char li710[] C_aligned={C_lihdr(0,0,44),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,111,117,116,112,117,116,45,102,105,108,101,32,110,97,109,101,32,112,32,46,32,109,111,100,101,41,0,0,0,0}; -static C_char li711[] C_aligned={C_lihdr(0,0,8),40,97,50,53,50,57,51,41}; -static C_char li712[] C_aligned={C_lihdr(0,0,18),40,97,50,53,51,48,52,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; -static C_char li713[] C_aligned={C_lihdr(0,0,8),40,97,50,53,50,57,56,41}; -static C_char li714[] C_aligned={C_lihdr(0,0,8),40,97,50,53,51,49,51,41}; -static C_char li715[] C_aligned={C_lihdr(0,0,46),40,115,99,104,101,109,101,35,119,105,116,104,45,105,110,112,117,116,45,102,114,111,109,45,102,105,108,101,32,115,116,114,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0}; -static C_char li716[] C_aligned={C_lihdr(0,0,8),40,97,50,53,51,50,55,41}; -static C_char li717[] C_aligned={C_lihdr(0,0,18),40,97,50,53,51,51,56,32,46,32,114,101,115,117,108,116,115,41,0,0,0,0,0,0}; -static C_char li718[] C_aligned={C_lihdr(0,0,8),40,97,50,53,51,51,50,41}; -static C_char li719[] C_aligned={C_lihdr(0,0,8),40,97,50,53,51,52,55,41}; -static C_char li720[] C_aligned={C_lihdr(0,0,45),40,115,99,104,101,109,101,35,119,105,116,104,45,111,117,116,112,117,116,45,116,111,45,102,105,108,101,32,115,116,114,32,116,104,117,110,107,32,46,32,109,111,100,101,41,0,0,0}; -static C_char li721[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,102,105,108,101,45,101,120,105,115,116,115,63,32,110,97,109,101,32,102,105,108,101,63,32,100,105,114,63,32,108,111,99,41}; -static C_char li722[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,102,108,117,115,104,45,111,117,116,112,117,116,32,112,111,114,116,41,0,0,0,0,0,0,0}; -static C_char li723[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,102,108,117,115,104,45,111,117,116,112,117,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li724[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,112,111,114,116,45,108,105,110,101,32,112,111,114,116,41,0,0}; -static C_char li725[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,53,50,49,55,32,105,41,0,0}; -static C_char li726[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li727[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,100,101,99,111,114,97,116,101,45,108,97,109,98,100,97,32,112,114,111,99,32,112,114,101,100,32,100,101,99,111,114,97,116,111,114,41,0,0,0,0,0}; -static C_char li728[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li729[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,108,97,109,98,100,97,45,100,101,99,111,114,97,116,105,111,110,32,112,114,111,99,32,112,114,101,100,41,0,0,0,0,0}; -static C_char li730[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,109,97,107,101,45,108,97,109,98,100,97,45,105,110,102,111,32,115,116,114,41,0,0,0,0}; -static C_char li731[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,63,32,120,41,0,0}; -static C_char li732[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,32,112,114,111,99,41}; -static C_char li733[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,108,97,109,98,100,97,45,105,110,102,111,45,62,115,116,114,105,110,103,32,105,110,102,111,41}; -static C_char li734[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,111,99,101,100,117,114,101,45,105,110,102,111,114,109,97,116,105,111,110,32,120,41,0,0}; -static C_char li735[] C_aligned={C_lihdr(0,0,12),40,97,50,53,54,51,55,32,112,32,105,41,0,0,0,0}; -static C_char li736[] C_aligned={C_lihdr(0,0,10),40,97,50,53,54,52,55,32,120,41,0,0,0,0,0,0}; -static C_char li737[] C_aligned={C_lihdr(0,0,15),40,97,50,53,54,54,51,32,112,114,111,99,32,105,41,0}; -static C_char li738[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,116,116,101,114,45,119,105,116,104,45,115,101,116,116,101,114,32,103,101,116,32,115,101,116,32,46,32,114,101,115,116,41}; -static C_char li739[] C_aligned={C_lihdr(0,0,11),40,102,95,50,53,57,50,52,32,120,41,0,0,0,0,0}; -static C_char li740[] C_aligned={C_lihdr(0,0,28),40,97,115,115,105,103,110,32,118,97,108,32,110,32,99,111,110,118,101,114,116,63,32,115,101,116,63,41,0,0,0,0}; -static C_char li741[] C_aligned={C_lihdr(0,0,24),40,98,111,100,121,53,51,54,57,32,99,111,110,118,101,114,116,63,32,115,101,116,63,41}; -static C_char li742[] C_aligned={C_lihdr(0,0,24),40,100,101,102,45,115,101,116,63,53,51,55,50,32,37,99,111,110,118,101,114,116,63,41}; -static C_char li743[] C_aligned={C_lihdr(0,0,18),40,100,101,102,45,99,111,110,118,101,114,116,63,53,51,55,49,41,0,0,0,0,0,0}; -static C_char li744[] C_aligned={C_lihdr(0,0,15),40,97,50,53,56,49,53,32,46,32,97,114,103,115,41,0}; -static C_char li745[] C_aligned={C_lihdr(0,0,12),40,97,50,53,56,57,55,32,118,97,108,41,0,0,0,0}; -static C_char li746[] C_aligned={C_lihdr(0,0,35),40,115,99,104,101,109,101,35,109,97,107,101,45,112,97,114,97,109,101,116,101,114,32,105,110,105,116,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li747[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,99,104,97,114,45,114,101,97,100,121,63,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li748[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,114,101,97,100,45,99,104,97,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li749[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,45,48,32,112,41,0,0,0}; -static C_char li750[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,114,101,97,100,45,99,104,97,114,47,112,111,114,116,32,112,111,114,116,41,0,0,0,0,0}; -static C_char li751[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,112,101,101,107,45,99,104,97,114,45,48,32,112,41,0,0,0}; -static C_char li752[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,112,101,101,107,45,99,104,97,114,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li753[] C_aligned={C_lihdr(0,0,20),40,115,99,104,101,109,101,35,114,101,97,100,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li754[] 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 li755[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,105,110,102,105,120,45,108,105,115,116,45,104,111,111,107,32,108,115,116,41,0,0,0,0,0}; -static C_char li756[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,115,104,97,114,112,45,110,117,109,98,101,114,45,104,111,111,107,32,112,111,114,116,32,110,41}; -static C_char li757[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,97,100,45,119,97,114,110,105,110,103,32,112,111,114,116,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0}; -static C_char li758[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,114,101,97,100,45,101,114,114,111,114,32,112,111,114,116,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; -static C_char li759[] C_aligned={C_lihdr(0,0,11),40,102,95,50,54,50,48,53,32,99,41,0,0,0,0,0}; -static C_char li760[] C_aligned={C_lihdr(0,0,21),40,105,110,102,111,32,99,108,97,115,115,32,100,97,116,97,32,118,97,108,41,0,0,0}; -static C_char li761[] C_aligned={C_lihdr(0,0,8),40,115,107,105,112,32,99,41}; -static C_char li762[] 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 li763[] C_aligned={C_lihdr(0,0,22),40,114,101,115,101,114,118,101,100,45,99,104,97,114,97,99,116,101,114,32,99,41,0,0}; -static C_char li764[] C_aligned={C_lihdr(0,0,29),40,114,101,97,100,45,117,110,114,101,115,101,114,118,101,100,45,99,104,97,114,45,48,32,112,111,114,116,41,0,0,0}; -static C_char li765[] C_aligned={C_lihdr(0,0,24),40,114,101,103,105,115,116,101,114,45,115,104,97,114,101,100,33,32,116,104,117,110,107,41}; -static C_char li766[] C_aligned={C_lihdr(0,0,16),40,117,110,116,104,117,110,107,32,111,32,102,97,105,108,41}; -static C_char li767[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,53,53,52,53,32,105,41,0,0}; -static C_char li768[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,33,32,111,41,0,0,0,0,0,0,0}; -static C_char li769[] C_aligned={C_lihdr(0,0,20),40,117,110,116,104,117,110,107,105,102,121,33,32,111,32,102,97,105,108,41,0,0,0,0}; -static C_char li770[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,99,41}; -static C_char li771[] 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 li772[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,115,101,113,32,110,41,0,0,0,0}; -static C_char li773[] C_aligned={C_lihdr(0,0,22),40,114,45,117,115,101,113,117,101,110,99,101,32,117,32,110,32,98,97,115,101,41,0,0}; -static C_char li774[] C_aligned={C_lihdr(0,0,11),40,112,97,114,115,101,32,115,101,113,41,0,0,0,0,0}; -static C_char li775[] C_aligned={C_lihdr(0,0,7),40,97,98,111,114,116,41,0}; -static C_char li776[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,115,101,113,41,0,0,0,0,0,0}; -static C_char li777[] C_aligned={C_lihdr(0,0,19),40,114,45,120,115,101,113,117,101,110,99,101,32,100,101,108,105,109,41,0,0,0,0,0}; -static C_char li778[] C_aligned={C_lihdr(0,0,14),40,101,97,116,45,119,115,32,99,32,110,108,63,41,0,0}; -static C_char li779[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0}; -static C_char li780[] C_aligned={C_lihdr(0,0,15),40,114,45,115,116,114,105,110,103,32,116,101,114,109,41,0}; -static C_char li781[] C_aligned={C_lihdr(0,0,19),40,115,116,97,114,116,105,110,103,45,108,105,110,101,32,109,115,103,41,0,0,0,0,0}; -static C_char li782[] C_aligned={C_lihdr(0,0,11),40,102,95,50,55,50,51,50,32,99,41,0,0,0,0,0}; -static C_char li783[] C_aligned={C_lihdr(0,0,15),40,97,50,55,51,52,55,32,116,111,107,32,107,119,41,0}; -static C_char li784[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,108,97,115,116,41,0,0,0,0,0}; -static C_char li785[] C_aligned={C_lihdr(0,0,15),40,97,50,55,50,50,56,32,114,101,116,117,114,110,41,0}; -static C_char li786[] C_aligned={C_lihdr(0,0,18),40,114,45,108,105,115,116,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0}; -static C_char li787[] 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 li788[] C_aligned={C_lihdr(0,0,15),40,97,50,55,52,55,52,32,116,111,107,32,107,119,41,0}; -static C_char li789[] C_aligned={C_lihdr(0,0,26),40,114,45,110,117,109,98,101,114,32,114,97,100,105,120,32,101,120,97,99,116,110,101,115,115,41,0,0,0,0,0,0}; -static C_char li790[] C_aligned={C_lihdr(0,0,31),40,114,45,110,117,109,98,101,114,45,119,105,116,104,45,101,120,97,99,116,110,101,115,115,32,114,97,100,105,120,41,0}; -static C_char li791[] C_aligned={C_lihdr(0,0,31),40,114,45,110,117,109,98,101,114,45,119,105,116,104,45,114,97,100,105,120,32,101,120,97,99,116,110,101,115,115,41,0}; -static C_char li792[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0}; -static C_char li793[] 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 li794[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,99,32,108,115,116,41,0,0,0,0}; -static C_char li795[] 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 li796[] C_aligned={C_lihdr(0,0,15),40,97,50,55,55,54,57,32,115,116,114,32,107,119,41,0}; -static C_char li797[] 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 li798[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,32,108,115,116,32,115,107,119,32,113,116,100,41,0,0,0,0,0,0}; -static C_char li799[] C_aligned={C_lihdr(0,0,12),40,114,45,120,116,111,107,101,110,32,107,41,0,0,0,0}; -static C_char li800[] C_aligned={C_lihdr(0,0,8),40,114,45,99,104,97,114,41}; -static C_char li801[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li802[] 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 li803[] 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 li804[] C_aligned={C_lihdr(0,0,11),40,114,45,113,117,111,116,101,32,113,41,0,0,0,0,0}; -static C_char li805[] C_aligned={C_lihdr(0,0,8),40,97,50,56,52,49,49,41}; -static C_char li806[] C_aligned={C_lihdr(0,0,13),40,97,50,56,52,49,55,32,46,32,120,115,41,0,0,0}; -static C_char li807[] C_aligned={C_lihdr(0,0,8),40,97,50,56,53,52,53,41}; -static C_char li808[] C_aligned={C_lihdr(0,0,8),40,97,50,56,53,56,52,41}; -static C_char li809[] C_aligned={C_lihdr(0,0,13),40,97,50,56,53,57,48,32,46,32,120,115,41,0,0,0}; -static C_char li810[] C_aligned={C_lihdr(0,0,9),40,103,53,57,56,54,32,104,41,0,0,0,0,0,0,0}; -static C_char li811[] C_aligned={C_lihdr(0,0,8),40,97,50,56,54,53,56,41}; -static C_char li812[] C_aligned={C_lihdr(0,0,13),40,97,50,56,54,54,52,32,46,32,120,115,41,0,0,0}; -static C_char li813[] C_aligned={C_lihdr(0,0,8),40,97,50,56,56,53,54,41}; -static C_char li814[] C_aligned={C_lihdr(0,0,15),40,97,50,56,56,54,55,32,115,116,114,32,107,119,41,0}; -static C_char li815[] C_aligned={C_lihdr(0,0,8),40,97,50,56,56,54,49,41}; -static C_char li816[] C_aligned={C_lihdr(0,0,8),40,97,50,56,56,57,54,41}; -static C_char li817[] C_aligned={C_lihdr(0,0,8),40,97,50,57,48,51,56,41}; -static C_char li818[] C_aligned={C_lihdr(0,0,13),40,97,50,57,48,52,52,32,46,32,120,115,41,0,0,0}; -static C_char li819[] 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 li820[] C_aligned={C_lihdr(0,0,12),40,97,50,57,50,57,50,32,46,32,97,41,0,0,0,0}; -static C_char li821[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,114,101,97,100,32,112,111,114,116,32,105,110,102,111,104,97,110,100,108,101,114,41,0,0,0}; -static C_char li822[] C_aligned={C_lihdr(0,0,11),40,102,97,105,108,32,105,116,101,109,41,0,0,0,0,0}; -static C_char li823[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41}; -static C_char li824[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,114,101,97,100,45,110,117,109,118,101,99,116,111,114,45,100,97,116,97,32,112,111,114,116,41}; -static C_char li825[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,50,32,110,115,32,112,114,101,118,41,0}; -static C_char li826[] C_aligned={C_lihdr(0,0,9),40,114,101,116,114,121,32,120,41,0,0,0,0,0,0,0}; -static C_char li827[] C_aligned={C_lihdr(0,0,15),40,108,111,111,112,32,108,115,116,32,112,114,101,118,41,0}; -static C_char li828[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,99,97,110,111,110,105,99,97,108,105,122,101,45,110,117,109,98,101,114,45,108,105,115,116,33,32,108,115,116,49,41,0,0}; -static C_char li829[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,45,48,32,99,32,112,41}; -static C_char li830[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,119,114,105,116,101,45,99,104,97,114,47,112,111,114,116,32,99,32,112,111,114,116,41,0,0}; -static C_char li831[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,35,119,114,105,116,101,45,99,104,97,114,32,99,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li832[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,110,101,119,108,105,110,101,32,46,32,114,101,115,116,41,0}; -static C_char li833[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,119,114,105,116,101,32,120,32,46,32,114,101,115,116,41,0}; -static C_char li834[] C_aligned={C_lihdr(0,0,25),40,115,99,104,101,109,101,35,100,105,115,112,108,97,121,32,120,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li835[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,50,52,56,32,103,54,50,53,53,41,0,0,0,0,0,0,0}; -static C_char li836[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,32,46,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li837[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,50,56,48,32,103,54,50,56,55,41,0,0,0,0,0,0,0}; -static C_char li838[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,42,32,46,32,97,114,103,115,41,0,0,0,0}; -static C_char li839[] C_aligned={C_lihdr(0,0,17),40,111,117,116,115,116,114,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0,0}; -static C_char li840[] C_aligned={C_lihdr(0,0,18),40,111,117,116,115,116,114,48,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0}; -static C_char li841[] C_aligned={C_lihdr(0,0,17),40,111,117,116,99,104,114,32,112,111,114,116,32,99,104,114,41,0,0,0,0,0,0,0}; -static C_char li842[] C_aligned={C_lihdr(0,0,17),40,111,117,116,115,121,109,32,112,111,114,116,32,115,121,109,41,0,0,0,0,0,0,0}; -static C_char li843[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li844[] C_aligned={C_lihdr(0,0,25),40,111,117,116,114,101,97,100,97,98,108,101,115,121,109,32,112,111,114,116,32,115,116,114,41,0,0,0,0,0,0,0}; -static C_char li845[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li846[] C_aligned={C_lihdr(0,0,22),40,115,121,109,45,105,115,45,114,101,97,100,97,98,108,101,63,32,115,116,114,41,0,0}; -static C_char li847[] C_aligned={C_lihdr(0,0,10),40,103,54,52,53,48,32,99,110,41,0,0,0,0,0,0}; -static C_char li848[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,52,55,49,32,105,32,99,41}; -static C_char li849[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,54,53,48,50,32,120,41,0,0}; -static C_char li850[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,54,53,51,49,32,105,32,99,41}; -static C_char li851[] C_aligned={C_lihdr(0,0,7),40,111,117,116,32,120,41,0}; -static C_char li852[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,112,114,105,110,116,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0,0,0}; -static C_char li853[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,112,114,111,99,101,100,117,114,101,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0}; -static C_char li854[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,98,97,115,101,35,114,101,99,111,114,100,45,112,114,105,110,116,101,114,32,116,121,112,101,41,0,0,0,0,0,0}; -static C_char li855[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,101,116,45,114,101,99,111,114,100,45,112,114,105,110,116,101,114,33,32,116,121,112,101,32,112,114,111,99,41,0,0,0,0}; -static C_char li856[] C_aligned={C_lihdr(0,0,8),40,97,51,49,48,51,48,41}; -static C_char li857[] C_aligned={C_lihdr(0,0,11),40,97,51,49,48,50,52,32,101,120,41,0,0,0,0,0}; -static C_char li858[] C_aligned={C_lihdr(0,0,8),40,97,51,49,48,55,55,41}; -static C_char li859[] C_aligned={C_lihdr(0,0,8),40,97,51,49,48,57,50,41}; -static C_char li860[] C_aligned={C_lihdr(0,0,15),40,97,51,49,48,56,54,32,46,32,97,114,103,115,41,0}; -static C_char li861[] C_aligned={C_lihdr(0,0,8),40,97,51,49,48,55,49,41}; -static C_char li862[] C_aligned={C_lihdr(0,0,10),40,97,51,49,48,49,56,32,107,41,0,0,0,0,0,0}; -static C_char li863[] C_aligned={C_lihdr(0,0,39),40,35,35,115,121,115,35,117,115,101,114,45,112,114,105,110,116,45,104,111,111,107,32,120,32,114,101,97,100,97,98,108,101,32,112,111,114,116,41,0}; -static C_char li864[] C_aligned={C_lihdr(0,0,8),40,97,51,49,49,54,49,41}; -static C_char li865[] C_aligned={C_lihdr(0,0,8),40,97,51,49,50,48,52,41}; -static C_char li866[] C_aligned={C_lihdr(0,0,8),40,97,51,49,50,49,48,41}; -static C_char li867[] C_aligned={C_lihdr(0,0,15),40,97,51,49,49,53,53,32,114,101,116,117,114,110,41,0}; -static C_char li868[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,119,105,116,104,45,112,114,105,110,116,45,108,101,110,103,116,104,45,108,105,109,105,116,32,108,105,109,105,116,32,116,104,117,110,107,41,0,0,0,0,0}; -static C_char li869[] C_aligned={C_lihdr(0,0,15),40,99,104,101,99,107,54,54,53,48,32,112,32,110,41,0}; -static C_char li870[] C_aligned={C_lihdr(0,0,10),40,97,52,49,49,51,49,32,112,41,0,0,0,0,0,0}; -static C_char li871[] C_aligned={C_lihdr(0,0,10),40,97,52,49,49,53,51,32,112,41,0,0,0,0,0,0}; -static C_char li872[] C_aligned={C_lihdr(0,0,12),40,97,52,49,49,55,49,32,112,32,99,41,0,0,0,0}; -static C_char li873[] C_aligned={C_lihdr(0,0,21),40,97,52,49,49,56,55,32,112,32,98,118,32,102,114,111,109,32,116,111,41,0,0,0}; -static C_char li874[] C_aligned={C_lihdr(0,0,10),40,97,52,49,50,48,57,32,112,41,0,0,0,0,0,0}; -static C_char li875[] C_aligned={C_lihdr(0,0,10),40,97,52,49,50,49,50,32,112,41,0,0,0,0,0,0}; -static C_char li876[] C_aligned={C_lihdr(0,0,23),40,97,52,49,50,49,53,32,112,32,110,32,100,101,115,116,32,115,116,97,114,116,41,0}; -static C_char li877[] C_aligned={C_lihdr(0,0,12),40,97,52,49,50,56,53,32,112,111,115,41,0,0,0,0}; -static C_char li878[] C_aligned={C_lihdr(0,0,8),40,97,52,49,50,55,53,41}; -static C_char li879[] C_aligned={C_lihdr(0,0,29),40,97,52,49,50,57,52,32,110,101,120,116,32,108,105,110,101,32,102,117,108,108,45,108,105,110,101,63,41,0,0,0}; -static C_char li880[] C_aligned={C_lihdr(0,0,16),40,97,52,49,50,53,49,32,112,32,108,105,109,105,116,41}; -static C_char li881[] C_aligned={C_lihdr(0,0,10),40,97,52,49,51,51,53,32,112,41,0,0,0,0,0,0}; -static C_char li882[] C_aligned={C_lihdr(0,0,6),40,103,114,111,119,41,0,0}; -static C_char li883[] C_aligned={C_lihdr(0,0,18),40,99,111,110,99,32,98,117,102,32,102,114,111,109,32,116,111,41,0,0,0,0,0,0}; -static C_char li884[] C_aligned={C_lihdr(0,0,9),40,99,111,110,99,49,32,98,41,0,0,0,0,0,0,0}; -static C_char li885[] C_aligned={C_lihdr(0,0,9),40,103,101,116,108,105,110,101,41,0,0,0,0,0,0,0}; -static C_char li886[] C_aligned={C_lihdr(0,0,8),40,97,51,49,51,56,48,41}; -static C_char li887[] C_aligned={C_lihdr(0,0,25),40,97,51,49,51,56,54,32,98,117,102,32,111,102,102,115,101,116,32,108,105,109,105,116,41,0,0,0,0,0,0,0}; -static C_char li888[] C_aligned={C_lihdr(0,0,8),40,97,51,49,52,53,52,41}; -static C_char li889[] C_aligned={C_lihdr(0,0,25),40,97,51,49,52,54,48,32,98,117,102,32,111,102,102,115,101,116,32,108,105,109,105,116,41,0,0,0,0,0,0,0}; -static C_char li890[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,32,98,117,102,32,111,102,102,115,101,116,32,112,111,115,32,108,105,109,105,116,41,0,0,0,0,0}; -static C_char li891[] C_aligned={C_lihdr(0,0,63),40,35,35,115,121,115,35,115,99,97,110,45,98,117,102,102,101,114,45,108,105,110,101,32,98,117,102,32,108,105,109,105,116,32,115,116,97,114,116,45,112,111,115,32,101,111,115,45,104,97,110,100,108,101,114,32,46,32,114,101,115,116,41,0}; -static C_char li892[] C_aligned={C_lihdr(0,0,9),40,103,54,56,48,51,32,120,41,0,0,0,0,0,0,0}; -static C_char li893[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,56,48,50,32,103,54,56,48,57,41,0,0,0,0,0,0,0}; -static C_char li894[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,114,105,110,116,45,116,111,45,115,116,114,105,110,103,32,120,115,41,0,0,0,0,0,0}; -static C_char li895[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,111,105,110,116,101,114,45,62,115,116,114,105,110,103,32,120,41,0,0,0,0,0,0,0}; -static C_char li896[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li897[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,98,97,115,101,35,103,101,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li898[] C_aligned={C_lihdr(0,0,8),40,97,51,49,56,53,53,41}; -static C_char li899[] C_aligned={C_lihdr(0,0,12),40,103,54,56,55,50,32,105,110,102,111,41,0,0,0,0}; -static C_char li900[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,56,55,49,32,103,54,56,55,56,41,0,0,0,0,0,0,0}; -static C_char li901[] C_aligned={C_lihdr(0,0,49),40,35,35,115,121,115,35,114,101,97,108,108,121,45,112,114,105,110,116,45,99,97,108,108,45,99,104,97,105,110,32,112,111,114,116,32,99,104,97,105,110,32,104,101,97,100,101,114,41,0,0,0,0,0,0,0}; -static C_char li902[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,98,97,115,101,35,112,114,105,110,116,45,99,97,108,108,45,99,104,97,105,110,32,46,32,114,101,115,116,41,0,0}; -static C_char li903[] C_aligned={C_lihdr(0,0,7),40,98,114,101,97,107,41,0}; -static C_char li904[] 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 li905[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,54,57,51,49,32,103,54,57,51,56,41,0,0,0,0,0,0,0}; -static C_char li906[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li907[] C_aligned={C_lihdr(0,0,21),40,99,108,101,97,110,117,112,45,98,101,102,111,114,101,45,101,120,105,116,41,0,0,0}; -static C_char li908[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,100,98,103,45,104,111,111,107,32,46,32,97,114,103,115,41,0}; -static C_char li909[] C_aligned={C_lihdr(0,0,8),40,97,51,50,49,56,55,41}; -static C_char li910[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,48,49,48,32,103,55,48,49,55,41,0,0,0,0,0,0,0}; -static C_char li911[] 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,47,101,114,114,110,111,32,109,111,100,101,32,101,114,114,110,111,32,109,115,103,32,46,32,97,114,103,115,41,0}; -static C_char li912[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,115,105,103,110,97,108,45,104,111,111,107,32,109,111,100,101,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li913[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,97,98,111,114,116,32,120,41,0,0,0,0,0}; -static C_char li914[] C_aligned={C_lihdr(0,0,28),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,115,105,103,110,97,108,32,120,41,0,0,0,0}; -static C_char li915[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,99,117,114,114,101,110,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,99,41,0,0,0,0,0}; -static C_char li916[] C_aligned={C_lihdr(0,0,8),40,97,51,50,54,53,49,41}; -static C_char li917[] C_aligned={C_lihdr(0,0,8),40,97,51,50,54,53,53,41}; -static C_char li918[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,119,105,116,104,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,104,97,110,100,108,101,114,32,116,104,117,110,107,41}; -static C_char li919[] C_aligned={C_lihdr(0,0,10),40,98,111,100,121,55,49,54,55,41,0,0,0,0,0,0}; -static C_char li920[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,117,114,114,101,110,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,46,32,97,114,103,115,41,0,0,0,0}; -static C_char li921[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,112,115,41,0,0,0,0}; -static C_char li922[] C_aligned={C_lihdr(0,0,69),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,112,114,111,112,45,108,105,115,116,45,62,107,105,110,100,45,112,114,101,102,105,120,101,100,45,112,114,111,112,45,108,105,115,116,32,108,111,99,32,107,105,110,100,32,112,108,105,115,116,41,0,0,0}; -static C_char li923[] C_aligned={C_lihdr(0,0,56),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,109,97,107,101,45,112,114,111,112,101,114,116,121,45,99,111,110,100,105,116,105,111,110,32,107,105,110,100,32,46,32,112,114,111,112,115,41}; -static C_char li924[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,50,49,49,41,0,0,0,0,0}; -static C_char li925[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,50,53,54,32,103,55,50,54,56,41,0,0,0,0}; -static C_char li926[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,50,50,57,32,103,55,50,52,49,41,0,0,0,0}; -static C_char li927[] C_aligned={C_lihdr(0,0,55),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,109,97,107,101,45,99,111,109,112,111,115,105,116,101,45,99,111,110,100,105,116,105,111,110,32,99,49,32,46,32,99,111,110,100,115,41,0}; -static C_char li928[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,51,49,54,32,103,55,51,50,56,41,0,0,0,0}; -static C_char li929[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,50,56,57,32,103,55,51,48,49,41,0,0,0,0}; -static C_char li930[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,32,97,114,103,49,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; -static C_char li931[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,63,32,120,41}; -static C_char li932[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,114,111,112,115,41,0,0,0,0}; -static C_char li933[] C_aligned={C_lihdr(0,0,9),40,103,55,51,53,50,32,107,41,0,0,0,0,0,0,0}; -static C_char li934[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,55,51,52,54,32,103,55,51,53,56,41,0,0,0,0}; -static C_char li935[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,62,108,105,115,116,32,120,41,0,0,0}; -static C_char li936[] C_aligned={C_lihdr(0,0,11),40,102,95,51,51,49,55,52,32,99,41,0,0,0,0,0}; -static C_char li937[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,112,114,101,100,105,99,97,116,101,32,107,105,110,100,41,0,0,0,0}; -static C_char li938[] C_aligned={C_lihdr(0,0,11),40,102,95,51,51,50,48,49,32,99,41,0,0,0,0,0}; -static C_char li939[] C_aligned={C_lihdr(0,0,67),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,99,111,110,100,105,116,105,111,110,45,112,114,111,112,101,114,116,121,45,97,99,99,101,115,115,111,114,32,107,105,110,100,32,112,114,111,112,32,46,32,101,114,114,45,100,101,102,41,0,0,0,0,0}; -static C_char li940[] C_aligned={C_lihdr(0,0,64),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,103,101,116,45,99,111,110,100,105,116,105,111,110,45,112,114,111,112,101,114,116,121,32,99,32,107,105,110,100,32,112,114,111,112,32,46,32,101,114,114,45,100,101,102,41}; -static C_char li941[] C_aligned={C_lihdr(0,0,8),40,97,51,51,50,54,55,41}; -static C_char li942[] C_aligned={C_lihdr(0,0,9),40,103,55,52,49,55,32,120,41,0,0,0,0,0,0,0}; -static C_char li943[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,52,49,54,32,103,55,52,50,51,41,0,0,0,0,0,0,0}; -static C_char li944[] C_aligned={C_lihdr(0,0,21),40,119,114,105,116,101,97,114,103,115,32,97,114,103,115,32,112,111,114,116,41,0,0,0}; -static C_char li945[] C_aligned={C_lihdr(0,0,11),40,103,55,52,54,48,32,109,115,103,41,0,0,0,0,0}; -static C_char li946[] C_aligned={C_lihdr(0,0,22),40,98,111,100,121,55,52,51,55,32,112,111,114,116,32,104,101,97,100,101,114,41,0,0}; -static C_char li947[] C_aligned={C_lihdr(0,0,22),40,100,101,102,45,104,101,97,100,101,114,55,52,52,48,32,37,112,111,114,116,41,0,0}; -static C_char li948[] C_aligned={C_lihdr(0,0,14),40,100,101,102,45,112,111,114,116,55,52,51,57,41,0,0}; -static C_char li949[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,99,111,110,100,105,116,105,111,110,35,112,114,105,110,116,45,101,114,114,111,114,45,109,101,115,115,97,103,101,32,101,120,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; -static C_char li950[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,115,104,111,119,45,101,120,99,101,112,116,105,111,110,45,119,97,114,110,105,110,103,32,101,120,110,32,99,97,117,115,101,32,46,32,114,101,115,116,41,0}; -static C_char li951[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,101,114,114,111,114,45,104,111,111,107,32,99,111,100,101,32,108,111,99,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; -static C_char li952[] C_aligned={C_lihdr(0,0,8),40,97,51,52,50,55,57,41}; -static C_char li953[] C_aligned={C_lihdr(0,0,8),40,97,51,52,51,49,57,41}; -static C_char li954[] C_aligned={C_lihdr(0,0,45),40,115,99,104,101,109,101,35,119,105,116,104,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,104,97,110,100,108,101,114,32,116,104,117,110,107,41,0,0,0}; -static C_char li955[] C_aligned={C_lihdr(0,0,8),40,97,51,52,51,53,49,41}; -static C_char li956[] C_aligned={C_lihdr(0,0,18),40,115,99,104,101,109,101,35,114,97,105,115,101,32,111,98,106,41,0,0,0,0,0,0}; -static C_char li957[] C_aligned={C_lihdr(0,0,8),40,97,51,52,51,57,50,41}; -static C_char li958[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,114,97,105,115,101,45,99,111,110,116,105,110,117,97,98,108,101,32,111,98,106,41,0,0}; -static C_char li959[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,114,101,97,100,45,101,114,114,111,114,63,32,111,98,106,41}; -static C_char li960[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,102,105,108,101,45,101,114,114,111,114,63,32,111,98,106,41}; -static C_char li961[] C_aligned={C_lihdr(0,0,22),40,35,35,115,121,115,35,115,116,114,117,99,116,117,114,101,63,32,120,32,115,41,0,0}; -static C_char li962[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,103,101,110,101,114,105,99,45,115,116,114,117,99,116,117,114,101,63,32,120,41,0,0,0,0}; -static C_char li963[] C_aligned={C_lihdr(0,0,16),40,35,35,115,121,115,35,115,108,111,116,32,120,32,105,41}; -static C_char li964[] C_aligned={C_lihdr(0,0,14),40,35,35,115,121,115,35,115,105,122,101,32,120,41,0,0}; -static C_char li965[] 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 li966[] 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 li967[] C_aligned={C_lihdr(0,0,18),40,35,35,115,121,115,35,112,111,105,110,116,101,114,63,32,120,41,0,0,0,0,0,0}; -static C_char li968[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,115,101,116,45,112,111,105,110,116,101,114,45,97,100,100,114,101,115,115,33,32,112,116,114,32,97,100,100,114,41,0,0,0}; -static C_char li969[] C_aligned={C_lihdr(0,0,21),40,35,35,115,121,115,35,98,121,116,101,118,101,99,116,111,114,63,32,120,41,0,0,0}; -static C_char li970[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,116,114,105,110,103,45,62,112,98,121,116,101,118,101,99,116,111,114,32,115,41,0,0,0}; -static C_char li971[] C_aligned={C_lihdr(0,0,20),40,35,35,115,121,115,35,112,101,114,109,97,110,101,110,116,63,32,120,41,0,0,0,0}; -static C_char li972[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,98,108,111,99,107,45,97,100,100,114,101,115,115,32,120,41,0}; -static C_char li973[] C_aligned={C_lihdr(0,0,19),40,35,35,115,121,115,35,108,111,99,97,116,105,118,101,63,32,120,41,0,0,0,0,0}; -static C_char li974[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,115,114,102,105,45,52,45,118,101,99,116,111,114,63,32,120,41}; -static C_char li975[] 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 li976[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,110,117,108,108,45,112,111,105,110,116,101,114,63,32,120,41,0}; -static C_char li977[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,97,100,100,114,101,115,115,45,62,112,111,105,110,116,101,114,32,97,100,100,114,41,0,0,0}; -static C_char li978[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,112,111,105,110,116,101,114,45,62,97,100,100,114,101,115,115,32,112,116,114,41,0,0,0,0}; -static C_char li979[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,109,97,107,101,45,99,45,115,116,114,105,110,103,32,115,116,114,32,46,32,114,101,115,116,41}; -static C_char li980[] 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 li981[] 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 li982[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,102,105,120,110,117,109,32,98,32,105,41,0}; -static C_char li983[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,98,121,116,101,32,112,116,114,32,105,41,0}; -static C_char li984[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,118,101,99,116,111,114,45,62,115,116,114,117,99,116,117,114,101,33,32,118,101,99,41,0,0}; -static C_char li985[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,112,101,101,107,45,100,111,117,98,108,101,32,98,32,105,41,0}; -static C_char li986[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,101,101,107,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0,0}; -static C_char li987[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,112,101,101,107,45,110,111,110,110,117,108,108,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0,0}; -static C_char li988[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0}; -static C_char li989[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,110,111,110,110,117,108,108,45,99,45,115,116,114,105,110,103,32,98,32,105,41,0,0,0,0,0,0}; -static C_char li990[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,112,111,107,101,45,99,45,115,116,114,105,110,103,32,98,32,105,32,115,41,0,0,0,0,0}; -static C_char li991[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,112,111,107,101,45,105,110,116,101,103,101,114,32,98,32,105,32,110,41,0,0,0,0,0,0}; -static C_char li992[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,112,111,107,101,45,100,111,117,98,108,101,32,98,32,105,32,110,41,0,0,0,0,0,0,0}; -static C_char li993[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li994[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,112,101,101,107,45,99,45,115,116,114,105,110,103,45,108,105,115,116,32,112,116,114,32,110,41}; -static C_char li995[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li996[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,112,101,101,107,45,97,110,100,45,102,114,101,101,45,99,45,115,116,114,105,110,103,45,108,105,115,116,32,112,116,114,32,110,41,0,0,0,0,0,0,0}; -static C_char li997[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,118,101,99,116,111,114,45,62,99,108,111,115,117,114,101,33,32,118,101,99,32,97,100,100,114,41,0,0,0,0,0,0,0}; -static C_char li998[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,115,121,109,98,111,108,45,104,97,115,45,116,111,112,108,101,118,101,108,45,98,105,110,100,105,110,103,63,32,115,41,0,0}; -static C_char li999[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,98,108,111,99,107,45,112,111,105,110,116,101,114,32,120,41,0}; -static C_char li1000[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,99,104,97,114,45,97,114,103,117,109,101,110,116,32,120,41,0}; -static C_char li1001[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,102,105,120,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li1002[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,102,108,111,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li1003[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,98,108,111,99,107,45,97,114,103,117,109,101,110,116,32,120,41}; -static C_char li1004[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,99,112,108,120,110,117,109,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0}; -static C_char li1005[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,116,114,117,99,116,45,119,114,97,112,112,101,114,45,97,114,103,117,109,101,110,116,32,116,32,120,41,0,0,0,0,0}; -static C_char li1006[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,116,114,105,110,103,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li1007[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,115,121,109,98,111,108,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li1008[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,112,111,105,110,116,101,114,45,97,114,103,117,109,101,110,116,32,120,41,0,0,0,0,0,0}; -static C_char li1009[] C_aligned={C_lihdr(0,0,44),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,116,97,103,103,101,100,45,112,111,105,110,116,101,114,45,97,114,103,117,109,101,110,116,32,120,32,116,120,41,0,0,0,0}; -static C_char li1010[] C_aligned={C_lihdr(0,0,48),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,114,97,110,103,101,100,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,111,98,106,32,115,105,122,101,41}; -static C_char li1011[] C_aligned={C_lihdr(0,0,57),40,35,35,115,121,115,35,102,111,114,101,105,103,110,45,117,110,115,105,103,110,101,100,45,114,97,110,103,101,100,45,105,110,116,101,103,101,114,45,97,114,103,117,109,101,110,116,32,111,98,106,32,115,105,122,101,41,0,0,0,0,0,0,0}; -static C_char li1012[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,119,114,97,112,45,115,116,114,117,99,116,32,116,121,112,101,32,114,101,99,41,0,0,0,0}; -static C_char li1013[] C_aligned={C_lihdr(0,0,37),40,35,35,115,121,115,35,100,101,102,97,117,108,116,45,101,120,99,101,112,116,105,111,110,45,104,97,110,100,108,101,114,32,97,114,103,41,0,0,0}; -static C_char li1014[] C_aligned={C_lihdr(0,0,38),40,35,35,115,121,115,35,109,97,107,101,45,116,104,114,101,97,100,32,116,104,117,110,107,32,115,116,97,116,101,32,110,97,109,101,32,113,41,0,0}; -static C_char li1015[] C_aligned={C_lihdr(0,0,27),40,35,35,115,121,115,35,109,97,107,101,45,109,117,116,101,120,32,105,100,32,111,119,110,101,114,41,0,0,0,0,0}; -static C_char li1016[] 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 li1017[] C_aligned={C_lihdr(0,0,8),40,97,51,52,56,56,57,41}; -static C_char li1018[] C_aligned={C_lihdr(0,0,15),40,97,51,52,56,56,48,32,114,101,116,117,114,110,41,0}; -static C_char li1019[] 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 li1020[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,107,105,108,108,45,111,116,104,101,114,45,116,104,114,101,97,100,115,32,116,104,117,110,107,41}; -static C_char li1021[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,114,101,115,117,109,101,45,116,104,114,101,97,100,45,111,110,45,101,118,101,110,116,32,116,41}; -static C_char li1022[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,115,117,115,112,101,110,100,45,116,104,114,101,97,100,45,111,110,45,101,118,101,110,116,32,116,41,0,0,0,0,0,0,0}; -static C_char li1023[] C_aligned={C_lihdr(0,0,12),40,97,51,52,57,49,54,32,46,32,95,41,0,0,0,0}; -static C_char li1024[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,115,108,101,101,112,45,117,110,116,105,108,45,105,110,116,101,114,114,117,112,116,41,0,0,0}; -static C_char li1025[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,109,97,107,101,45,101,118,101,110,116,45,113,117,101,117,101,41}; -static C_char li1026[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,97,100,100,45,101,118,101,110,116,45,116,111,45,113,117,101,117,101,33,32,113,32,101,41,0}; -static C_char li1027[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,103,101,116,45,110,101,120,116,45,101,118,101,110,116,32,113,41}; -static C_char li1028[] C_aligned={C_lihdr(0,0,7),40,97,103,97,105,110,41,0}; -static C_char li1029[] C_aligned={C_lihdr(0,0,29),40,35,35,115,121,115,35,119,97,105,116,45,102,111,114,45,110,101,120,116,45,101,118,101,110,116,32,113,41,0,0,0}; -static C_char li1030[] C_aligned={C_lihdr(0,0,27),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,108,101,101,112,45,104,111,111,107,32,110,41,0,0,0,0,0}; -static C_char li1031[] C_aligned={C_lihdr(0,0,22),40,99,104,105,99,107,101,110,46,98,97,115,101,35,115,108,101,101,112,32,110,41,0,0}; -static C_char li1032[] 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 li1033[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,114,101,97,115,111,110,41,0,0,0}; -static C_char li1034[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,105,110,116,101,114,114,117,112,116,45,104,111,111,107,32,114,101,97,115,111,110,32,115,116,97,116,101,41,0,0,0,0,0}; -static C_char li1035[] C_aligned={C_lihdr(0,0,28),40,35,35,115,121,115,35,100,105,115,112,97,116,99,104,45,105,110,116,101,114,114,117,112,116,32,107,41,0,0,0,0}; -static C_char li1036[] 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 li1037[] C_aligned={C_lihdr(0,0,13),40,35,35,115,121,115,35,101,114,114,110,111,41,0,0,0}; -static C_char li1038[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,55,57,49,50,32,99,41,0,0}; -static C_char li1039[] C_aligned={C_lihdr(0,0,13),40,114,101,97,100,108,110,32,112,111,114,116,41,0,0,0}; -static C_char li1040[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li1041[] C_aligned={C_lihdr(0,0,36),40,114,101,97,100,45,101,115,99,97,112,101,100,45,115,101,120,112,32,112,111,114,116,32,115,107,105,112,45,98,114,97,99,101,63,41,0,0,0,0}; -static C_char li1042[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,55,57,52,55,32,108,110,41,0}; -static C_char li1043[] 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 li1044[] C_aligned={C_lihdr(0,0,27),40,108,111,111,112,50,32,108,115,116,32,110,101,120,116,45,115,116,114,105,110,103,32,97,99,99,41,0,0,0,0,0}; -static C_char li1045[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li1046[] C_aligned={C_lihdr(0,0,32),40,35,35,115,121,115,35,117,115,101,114,45,114,101,97,100,45,104,111,111,107,32,99,104,97,114,32,112,111,114,116,41}; -static C_char li1047[] C_aligned={C_lihdr(0,0,47),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,32,110,97,109,101,41,0}; -static C_char li1048[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,99,104,97,110,103,101,45,100,105,114,101,99,116,111,114,121,45,104,111,111,107,32,100,105,114,41,0,0,0,0,0,0,0}; -static C_char li1049[] C_aligned={C_lihdr(0,0,54),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,103,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,32,118,97,114,41,0,0}; -static C_char li1050[] C_aligned={C_lihdr(0,0,59),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,115,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,33,32,118,97,114,32,118,97,108,41,0,0,0,0,0}; -static C_char li1051[] C_aligned={C_lihdr(0,0,57),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,117,110,115,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,33,32,118,97,114,41,0,0,0,0,0,0,0}; -static C_char li1052[] C_aligned={C_lihdr(0,0,8),40,115,99,97,110,32,106,41}; -static C_char li1053[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li1054[] C_aligned={C_lihdr(0,0,51),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,103,101,116,45,101,110,118,105,114,111,110,109,101,110,116,45,118,97,114,105,97,98,108,101,115,41,0,0,0,0,0}; -static C_char li1055[] C_aligned={C_lihdr(0,0,45),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,101,120,101,99,117,116,97,98,108,101,45,112,97,116,104,110,97,109,101,41,0,0,0}; -static C_char li1056[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,97,114,103,99,43,97,114,103,118,41,0,0,0,0,0}; -static C_char li1057[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,56,49,49,53,32,105,32,118,41}; -static C_char li1058[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,97,114,103,118,41,0,0}; -static C_char li1059[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,103,99,35,99,117,114,114,101,110,116,45,103,99,45,109,105,108,108,105,115,101,99,111,110,100,115,41,0,0,0,0}; -static C_char li1060[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,103,99,35,115,101,116,45,103,99,45,114,101,112,111,114,116,33,32,102,108,97,103,41}; -static C_char li1061[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,103,99,35,109,101,109,111,114,121,45,115,116,97,116,105,115,116,105,99,115,41,0,0}; -static C_char li1062[] 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 li1063[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,105,110,105,116,45,102,105,110,97,108,105,122,101,114,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li1064[] C_aligned={C_lihdr(0,0,25),40,99,104,105,99,107,101,110,46,103,99,35,102,105,110,97,108,105,122,101,114,63,32,120,41,0,0,0,0,0,0,0}; -static C_char li1065[] C_aligned={C_lihdr(0,0,11),40,104,97,110,100,108,101,114,32,111,41,0,0,0,0,0}; -static C_char li1066[] C_aligned={C_lihdr(0,0,10),40,104,97,110,100,108,101,32,111,41,0,0,0,0,0,0}; -static C_char li1067[] C_aligned={C_lihdr(0,0,15),40,97,51,54,48,53,51,32,46,32,114,101,115,116,41,0}; -static C_char li1068[] C_aligned={C_lihdr(0,0,15),40,97,51,54,48,55,52,32,112,114,111,99,32,105,41,0}; -static C_char li1069[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,50,48,50,32,103,56,50,48,57,41,0,0,0,0,0,0,0}; -static C_char li1070[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,103,99,35,109,97,107,101,45,102,105,110,97,108,105,122,101,114,32,46,32,111,98,106,101,99,116,115,41,0,0,0}; -static C_char li1071[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,50,52,52,32,103,56,50,53,49,41,0,0,0,0,0,0,0}; -static C_char li1072[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,103,99,35,97,100,100,45,116,111,45,102,105,110,97,108,105,122,101,114,32,102,32,46,32,111,98,106,101,99,116,115,41,0,0,0,0,0,0,0}; -static C_char li1073[] C_aligned={C_lihdr(0,0,8),40,97,51,54,50,51,56,41}; -static C_char li1074[] C_aligned={C_lihdr(0,0,11),40,97,51,54,50,51,50,32,101,120,41,0,0,0,0,0}; -static C_char li1075[] C_aligned={C_lihdr(0,0,8),40,97,51,54,50,53,48,41}; -static C_char li1076[] C_aligned={C_lihdr(0,0,8),40,97,51,54,50,55,51,41}; -static C_char li1077[] C_aligned={C_lihdr(0,0,15),40,97,51,54,50,54,55,32,46,32,97,114,103,115,41,0}; -static C_char li1078[] C_aligned={C_lihdr(0,0,8),40,97,51,54,50,52,52,41}; -static C_char li1079[] C_aligned={C_lihdr(0,0,10),40,97,51,54,50,50,54,32,107,41,0,0,0,0,0,0}; -static C_char li1080[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,56,50,55,54,32,105,41,0,0}; -static C_char li1081[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,117,110,45,112,101,110,100,105,110,103,45,102,105,110,97,108,105,122,101,114,115,32,115,116,97,116,101,41,0,0,0,0}; -static C_char li1082[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li1083[] 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 li1084[] C_aligned={C_lihdr(0,0,21),40,99,104,105,99,107,101,110,46,103,99,35,103,99,32,46,32,97,114,103,41,0,0,0}; -static C_char li1085[] C_aligned={C_lihdr(0,0,41),40,35,35,115,121,115,35,109,97,107,101,45,108,111,99,97,116,105,118,101,32,111,98,106,32,105,110,100,101,120,32,119,101,97,107,63,32,108,111,99,41,0,0,0,0,0,0,0}; -static C_char li1086[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,112,117,116,33,32,115,121,109,32,112,114,111,112,32,118,97,108,41,0,0,0,0,0,0,0}; -static C_char li1087[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,103,101,116,32,115,121,109,32,112,114,111,112,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li1088[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,112,116,108,41,0,0,0,0,0,0}; -static C_char li1089[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,114,101,109,112,114,111,112,33,32,115,121,109,32,112,114,111,112,41,0,0,0,0,0,0,0}; -static C_char li1090[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,112,108,105,115,116,41,0,0,0,0}; -static C_char li1091[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,108,105,115,116,35,103,101,116,45,112,114,111,112,101,114,116,105,101,115,32,115,121,109,32,112,114,111,112,115,41}; -static C_char li1092[] C_aligned={C_lihdr(0,0,10),40,112,110,117,109,32,110,117,109,41,0,0,0,0,0,0}; -static C_char li1093[] C_aligned={C_lihdr(0,0,14),40,114,111,117,110,100,45,116,111,32,120,32,121,41,0,0}; -static C_char li1094[] C_aligned={C_lihdr(0,0,12),40,112,109,101,109,32,98,121,116,101,115,41,0,0,0,0}; -static C_char li1095[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,100,105,115,112,108,97,121,45,116,105,109,101,115,32,105,110,102,111,41,0,0,0,0,0,0}; -static C_char li1096[] 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 li1097[] 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 li1098[] C_aligned={C_lihdr(0,0,32),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,111,102,116,119,97,114,101,45,116,121,112,101,41}; -static C_char li1099[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,109,97,99,104,105,110,101,45,116,121,112,101,41,0}; -static C_char li1100[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,109,97,99,104,105,110,101,45,98,121,116,101,45,111,114,100,101,114,41,0,0,0}; -static C_char li1101[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,111,102,116,119,97,114,101,45,118,101,114,115,105,111,110,41,0,0,0,0,0}; -static C_char li1102[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,98,117,105,108,100,45,112,108,97,116,102,111,114,109,41,0,0,0,0,0,0,0}; -static C_char li1103[] C_aligned={C_lihdr(0,0,7),40,115,116,114,32,120,41,0}; -static C_char li1104[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,105,99,107,101,110,45,118,101,114,115,105,111,110,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li1105[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,105,99,107,101,110,45,104,111,109,101,41,0}; -static C_char li1106[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,105,110,99,108,117,100,101,45,112,97,116,104,32,46,32,114,101,115,116,41,0,0}; -static C_char li1107[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,97,114,116,32,112,111,115,41}; -static C_char li1108[] C_aligned={C_lihdr(0,0,23),40,35,35,115,121,115,35,115,112,108,105,116,45,112,97,116,104,32,112,97,116,104,41,0}; -static C_char li1109[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,99,104,111,112,45,115,101,112,97,114,97,116,111,114,32,115,116,114,41,0,0,0}; -static C_char li1110[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,105,110,99,108,117,100,101,45,112,97,116,104,41,0}; -static C_char li1111[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,45,62,102,101,97,116,117,114,101,45,105,100,32,120,41,0,0,0,0,0,0,0}; -static C_char li1112[] C_aligned={C_lihdr(0,0,9),40,99,104,101,99,107,32,102,41,0,0,0,0,0,0,0}; -static C_char li1113[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,55,53,48,32,103,56,55,53,55,41,0,0,0,0,0,0,0}; -static C_char li1114[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,41,0,0,0,0,0,0,0}; -static C_char li1115[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,102,102,115,41,0,0,0,0,0,0}; -static C_char li1116[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,56,55,55,51,32,103,56,55,56,53,41,0,0,0,0}; -static C_char li1117[] C_aligned={C_lihdr(0,0,43),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,117,110,114,101,103,105,115,116,101,114,45,102,101,97,116,117,114,101,33,32,46,32,102,115,41,0,0,0,0,0}; -static C_char li1118[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,100,115,41,0,0,0,0,0,0}; -static C_char li1119[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,102,101,97,116,117,114,101,63,32,46,32,105,100,115,41,0,0,0,0,0,0,0}; -static C_char li1120[] 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 li1121[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,121,115,116,101,109,45,99,111,110,102,105,103,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0}; -static C_char li1122[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,112,108,97,116,102,111,114,109,35,115,121,115,116,101,109,45,99,97,99,104,101,45,100,105,114,101,99,116,111,114,121,41,0,0,0,0,0,0,0}; -static C_char li1123[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,56,56,54,53,32,103,56,56,55,55,41,0,0,0,0}; -static C_char li1124[] C_aligned={C_lihdr(0,0,17),40,115,99,104,101,109,101,35,102,101,97,116,117,114,101,115,41,0,0,0,0,0,0,0}; -static C_char li1125[] C_aligned={C_lihdr(0,0,21),40,100,111,108,111,111,112,56,57,48,49,32,105,32,114,101,115,117,108,116,41,0,0,0}; -static C_char li1126[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,35,109,97,107,101,45,108,105,115,116,32,110,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li1127[] C_aligned={C_lihdr(0,0,16),40,100,111,108,111,111,112,56,57,49,49,32,105,32,108,41}; -static C_char li1128[] C_aligned={C_lihdr(0,0,26),40,115,99,104,101,109,101,35,108,105,115,116,45,115,101,116,33,32,108,32,110,32,111,98,106,41,0,0,0,0,0,0}; -static C_char li1129[] C_aligned={C_lihdr(0,0,12),40,108,112,32,114,101,115,32,108,115,116,41,0,0,0,0}; -static C_char li1130[] C_aligned={C_lihdr(0,0,22),40,115,99,104,101,109,101,35,108,105,115,116,45,99,111,112,121,32,108,115,116,41,0,0}; -static C_char li1131[] C_aligned={C_lihdr(0,0,15),40,100,111,108,111,111,112,56,57,53,48,32,102,105,41,0}; -static C_char li1132[] C_aligned={C_lihdr(0,0,18),40,115,45,62,118,32,115,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0}; -static C_char li1133[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,62,118,101,99,116,111,114,32,115,32,46,32,114,101,115,116,41}; -static C_char li1134[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,116,105,32,102,105,41,0,0,0,0}; -static C_char li1135[] C_aligned={C_lihdr(0,0,18),40,118,45,62,115,32,118,32,115,116,97,114,116,32,101,110,100,41,0,0,0,0,0,0}; -static C_char li1136[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,62,115,116,114,105,110,103,32,118,32,46,32,114,101,115,116,41}; -static C_char li1137[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,105,32,106,41,0,0,0,0,0,0}; -static C_char li1138[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,48,49,51,41,0,0,0,0,0}; -static C_char li1139[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,48,52,51,32,103,57,48,52,50,41,0,0,0,0,0,0,0}; -static C_char li1140[] C_aligned={C_lihdr(0,0,7),40,103,57,48,57,49,41,0}; -static C_char li1141[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,48,56,53,32,103,57,48,57,55,41,0,0,0,0}; -static C_char li1142[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,48,56,48,32,105,41,0,0}; -static C_char li1143[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,48,53,48,32,103,57,48,54,50,41,0,0,0,0}; -static C_char li1144[] C_aligned={C_lihdr(0,0,35),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,109,97,112,32,112,114,111,99,32,115,116,114,32,46,32,109,111,114,101,41,0,0,0,0,0}; -static C_char li1145[] C_aligned={C_lihdr(0,0,6),40,108,112,32,105,41,0,0}; -static C_char li1146[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,49,51,54,41,0,0,0,0,0}; -static C_char li1147[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,49,54,54,32,103,57,49,54,53,41,0,0,0,0,0,0,0}; -static C_char li1148[] C_aligned={C_lihdr(0,0,7),40,103,57,50,49,52,41,0}; -static C_char li1149[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,50,48,56,32,103,57,50,50,48,41,0,0,0,0}; -static C_char li1150[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,50,48,51,32,105,41,0,0}; -static C_char li1151[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,49,55,51,32,103,57,49,56,53,41,0,0,0,0}; -static C_char li1152[] C_aligned={C_lihdr(0,0,40),40,115,99,104,101,109,101,35,115,116,114,105,110,103,45,102,111,114,45,101,97,99,104,32,112,114,111,99,32,115,116,114,32,46,32,109,111,114,101,41}; -static C_char li1153[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,50,53,52,32,105,41,0,0}; -static C_char li1154[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,50,54,52,41,0,0,0,0,0}; -static C_char li1155[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,50,57,52,32,103,57,50,57,51,41,0,0,0,0,0,0,0}; -static C_char li1156[] C_aligned={C_lihdr(0,0,7),40,103,57,51,52,50,41,0}; -static C_char li1157[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,51,51,54,32,103,57,51,52,56,41,0,0,0,0}; -static C_char li1158[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,51,51,49,32,105,41,0,0}; -static C_char li1159[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,51,48,49,32,103,57,51,49,51,41,0,0,0,0}; -static C_char li1160[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,109,97,112,32,112,114,111,99,32,118,32,46,32,109,111,114,101,41,0,0,0,0,0,0,0}; -static C_char li1161[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,51,56,48,32,105,41,0,0}; -static C_char li1162[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,57,51,57,48,41,0,0,0,0,0}; -static C_char li1163[] C_aligned={C_lihdr(0,0,17),40,102,111,108,100,108,57,52,50,48,32,103,57,52,49,57,41,0,0,0,0,0,0,0}; -static C_char li1164[] C_aligned={C_lihdr(0,0,7),40,103,57,52,54,56,41,0}; -static C_char li1165[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,52,54,50,32,103,57,52,55,52,41,0,0,0,0}; -static C_char li1166[] C_aligned={C_lihdr(0,0,14),40,100,111,108,111,111,112,57,52,53,55,32,105,41,0,0}; -static C_char li1167[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,57,52,50,55,32,103,57,52,51,57,41,0,0,0,0}; -static C_char li1168[] C_aligned={C_lihdr(0,0,38),40,115,99,104,101,109,101,35,118,101,99,116,111,114,45,102,111,114,45,101,97,99,104,32,112,114,111,99,32,118,32,46,32,109,111,114,101,41,0,0}; -static C_char li1169[] C_aligned={C_lihdr(0,0,24),40,115,99,104,101,109,101,35,99,108,111,115,101,45,112,111,114,116,32,112,111,114,116,41}; -static C_char li1170[] C_aligned={C_lihdr(0,0,8),40,97,51,57,48,55,57,41}; -static C_char li1171[] C_aligned={C_lihdr(0,0,14),40,97,51,57,48,56,53,32,46,32,114,101,116,41,0,0}; -static C_char li1172[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,35,99,97,108,108,45,119,105,116,104,45,112,111,114,116,32,112,111,114,116,32,112,114,111,99,41,0,0,0,0,0,0,0}; -static C_char li1173[] C_aligned={C_lihdr(0,0,19),40,115,99,104,101,109,101,35,101,111,102,45,111,98,106,101,99,116,41,0,0,0,0,0}; -static C_char li1174[] C_aligned={C_lihdr(0,0,23),40,115,99,104,101,109,101,35,112,101,101,107,45,117,56,32,46,32,114,118,97,114,41,0}; -static C_char li1175[] C_aligned={C_lihdr(0,0,30),40,115,99,104,101,109,101,35,119,114,105,116,101,45,115,116,114,105,110,103,32,115,32,46,32,114,101,115,116,41,0,0}; -static C_char li1176[] C_aligned={C_lihdr(0,0,19),40,100,111,108,111,111,112,57,53,56,54,32,120,32,105,32,120,115,41,0,0,0,0,0}; -static C_char li1177[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,115,116,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li1178[] C_aligned={C_lihdr(0,0,10),40,103,57,54,49,48,32,114,108,41,0,0,0,0,0,0}; -static C_char li1179[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,105,41}; -static C_char li1180[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,110,101,32,46,32,97,114,103,115,41,0,0,0}; -static C_char li1181[] C_aligned={C_lihdr(0,0,12),40,108,111,111,112,32,108,110,115,32,110,41,0,0,0,0}; -static C_char li1182[] C_aligned={C_lihdr(0,0,30),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,108,105,110,101,115,32,46,32,114,101,115,116,41,0,0}; -static C_char li1183[] C_aligned={C_lihdr(0,0,34),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,108,105,110,101,32,115,116,114,32,46,32,112,111,114,116,41,0,0,0,0,0,0}; -static C_char li1184[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,115,116,97,114,116,32,110,32,109,41}; -static C_char li1185[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,33,47,112,111,114,116,32,110,32,100,101,115,116,32,112,111,114,116,32,115,116,97,114,116,41,0,0,0,0}; -static C_char li1186[] C_aligned={C_lihdr(0,0,23),40,97,51,57,55,52,52,32,100,98,117,102,32,115,116,97,114,116,32,108,101,110,41,0}; -static C_char li1187[] C_aligned={C_lihdr(0,0,20),40,114,101,97,100,98,32,110,32,98,117,102,32,112,111,114,116,32,112,41,0,0,0,0}; -static C_char li1188[] C_aligned={C_lihdr(0,0,14),40,102,105,110,105,115,104,32,98,121,116,101,115,41,0,0}; -static C_char li1189[] C_aligned={C_lihdr(0,0,15),40,114,101,99,111,117,110,116,32,98,121,116,101,115,41,0}; -static C_char li1190[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,32,112,32,110,32,117,110,32,98,110,41}; -static C_char li1191[] C_aligned={C_lihdr(0,0,20),40,97,51,57,55,50,54,32,100,101,99,111,100,101,114,32,95,32,95,41,0,0,0,0}; -static C_char li1192[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,33,47,112,111,114,116,32,110,32,100,101,115,116,32,112,111,114,116,32,115,116,97,114,116,41}; -static C_char li1193[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,33,32,110,32,100,101,115,116,32,46,32,114,101,115,116,41,0}; -static C_char li1194[] C_aligned={C_lihdr(0,0,41),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,33,32,100,101,115,116,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li1195[] C_aligned={C_lihdr(0,0,16),40,97,52,48,48,54,56,32,98,117,102,32,108,101,110,41}; -static C_char li1196[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,47,112,111,114,116,32,110,32,112,41,0,0,0,0,0,0,0}; -static C_char li1197[] C_aligned={C_lihdr(0,0,20),40,108,111,111,112,32,98,117,102,32,98,115,105,122,101,32,112,111,115,41,0,0,0,0}; -static C_char li1198[] C_aligned={C_lihdr(0,0,26),40,35,35,115,121,115,35,114,101,97,100,45,114,101,109,97,105,110,105,110,103,32,112,32,107,41,0,0,0,0,0,0}; -static C_char li1199[] C_aligned={C_lihdr(0,0,37),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,47,112,111,114,116,32,110,32,112,41,0,0,0}; -static C_char li1200[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,115,116,114,105,110,103,32,46,32,114,101,115,116,41,0}; -static C_char li1201[] C_aligned={C_lihdr(0,0,16),40,97,52,48,50,52,48,32,98,117,102,32,108,101,110,41}; -static C_char li1202[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,118,101,99,116,111,114,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li1203[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,117,102,102,101,114,101,100,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li1204[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li1205[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,116,111,107,101,110,32,112,114,101,100,32,46,32,112,111,114,116,41,0,0,0,0,0}; -static C_char li1206[] C_aligned={C_lihdr(0,0,29),40,99,104,105,99,107,101,110,46,105,111,35,114,101,97,100,45,98,121,116,101,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li1207[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,98,121,116,101,32,98,121,116,101,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li1208[] C_aligned={C_lihdr(0,0,39),40,99,104,105,99,107,101,110,46,105,111,35,119,114,105,116,101,45,98,121,116,101,118,101,99,116,111,114,32,98,118,32,46,32,114,101,115,116,41,0}; -static C_char li1209[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,56,54,57,48,32,103,56,55,48,50,41,0,0,0,0}; -static C_char li1210[] C_aligned={C_lihdr(0,0,19),40,102,111,114,45,101,97,99,104,45,108,111,111,112,56,54,52,56,41,0,0,0,0,0}; -static C_char li1211[] C_aligned={C_lihdr(0,0,12),40,97,52,48,54,56,49,32,110,101,119,41,0,0,0,0}; -static C_char li1212[] 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 li1213[] 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 li1214[] 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 li1215[] 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 li1216[] 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 li1217[] C_aligned={C_lihdr(0,0,12),40,97,52,48,55,56,48,32,115,121,109,41,0,0,0,0}; -static C_char li1218[] C_aligned={C_lihdr(0,0,16),40,97,52,48,55,56,57,32,115,121,109,32,108,115,116,41}; -static C_char li1219[] C_aligned={C_lihdr(0,0,10),40,97,52,48,56,50,57,32,120,41,0,0,0,0,0,0}; -static C_char li1220[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li1221[] C_aligned={C_lihdr(0,0,19),40,102,52,57,48,51,57,32,120,56,49,51,54,52,57,48,51,56,41,0,0,0,0,0}; -static C_char li1222[] C_aligned={C_lihdr(0,0,19),40,102,52,57,48,52,53,32,120,56,49,50,50,52,57,48,52,52,41,0,0,0,0,0}; -static C_char li1223[] C_aligned={C_lihdr(0,0,19),40,102,52,57,48,53,49,32,120,56,49,50,50,52,57,48,53,48,41,0,0,0,0,0}; -static C_char li1224[] C_aligned={C_lihdr(0,0,8),40,97,52,48,57,49,48,41}; -static C_char li1225[] C_aligned={C_lihdr(0,0,12),40,97,52,48,57,51,53,32,100,105,114,41,0,0,0,0}; -static C_char li1226[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,48,55,56,32,103,55,48,56,53,41,0,0,0,0,0,0,0}; -static C_char li1227[] C_aligned={C_lihdr(0,0,8),40,97,52,48,57,55,55,41}; -static C_char li1228[] C_aligned={C_lihdr(0,0,9),40,103,55,49,48,52,32,120,41,0,0,0,0,0,0,0}; -static C_char li1229[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,55,49,48,51,32,103,55,49,49,48,41,0,0,0,0,0,0,0}; -static C_char li1230[] C_aligned={C_lihdr(0,0,15),40,97,52,49,48,56,57,32,46,32,97,114,103,115,41,0}; -static C_char li1231[] C_aligned={C_lihdr(0,0,19),40,97,52,48,57,53,48,32,109,115,103,32,46,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li1232[] C_aligned={C_lihdr(0,0,8),40,97,52,49,48,57,50,41}; -static C_char li1233[] C_aligned={C_lihdr(0,0,8),40,97,52,49,49,48,49,41}; -static C_char li1234[] C_aligned={C_lihdr(0,0,15),40,97,52,49,49,48,55,32,46,32,114,101,115,116,41,0}; -static C_char li1235[] C_aligned={C_lihdr(0,0,10),40,97,52,49,51,54,54,32,120,41,0,0,0,0,0,0}; -static C_char li1236[] C_aligned={C_lihdr(0,0,14),40,97,52,49,51,55,53,32,120,32,105,32,121,41,0,0}; -static C_char li1237[] C_aligned={C_lihdr(0,0,12),40,97,52,49,51,56,53,32,120,32,121,41,0,0,0,0}; -static C_char li1238[] C_aligned={C_lihdr(0,0,12),40,97,52,49,51,57,53,32,120,32,121,41,0,0,0,0}; -static C_char li1239[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,48,53,32,120,32,121,41,0,0,0,0}; -static C_char li1240[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,49,53,32,120,32,121,41,0,0,0,0}; -static C_char li1241[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,50,53,32,120,32,121,41,0,0,0,0}; -static C_char li1242[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,51,53,32,120,32,121,41,0,0,0,0}; -static C_char li1243[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,52,53,32,120,32,121,41,0,0,0,0}; -static C_char li1244[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,53,53,32,120,32,121,41,0,0,0,0}; -static C_char li1245[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,54,53,32,120,32,121,41,0,0,0,0}; -static C_char li1246[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,55,53,32,120,32,121,41,0,0,0,0}; -static C_char li1247[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,56,53,32,120,32,121,41,0,0,0,0}; -static C_char li1248[] C_aligned={C_lihdr(0,0,12),40,97,52,49,52,57,53,32,120,32,121,41,0,0,0,0}; -static C_char li1249[] C_aligned={C_lihdr(0,0,10),40,97,52,49,53,50,57,32,120,41,0,0,0,0,0,0}; -static C_char li1250[] C_aligned={C_lihdr(0,0,13),40,97,52,49,53,48,53,32,112,114,111,99,41,0,0,0}; -static C_char li1251[] C_aligned={C_lihdr(0,0,10),40,97,52,49,53,52,53,32,120,41,0,0,0,0,0,0}; -static C_char li1252[] C_aligned={C_lihdr(0,0,10),40,97,52,49,54,48,48,32,120,41,0,0,0,0,0,0}; -static C_char li1253[] C_aligned={C_lihdr(0,0,15),40,97,52,49,54,49,54,32,112,114,111,99,32,105,41,0}; -static C_char li1254[] C_aligned={C_lihdr(0,0,16),40,97,52,49,53,55,49,32,103,101,116,32,115,101,116,41}; -static C_char li1255[] C_aligned={C_lihdr(0,0,15),40,97,52,49,53,54,49,32,112,114,111,99,32,105,41,0}; -static C_char li1256[] 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 stub8111(C_word C_buf,C_word C_a0){ -C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; -C_word i=(C_word )(C_a0); -C_return(C_main_argv[C_unfix(i)]); -C_ret: -#undef return - -return C_r;} - -/* from chicken.process-context#executable-pathname in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -C_regparm static C_word stub8103(C_word C_buf){ -C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; -C_r=C_mpointer(&C_a,(void*)C_executable_pathname()); -return C_r;} - -/* from k35739 */ -C_regparm static C_word stub8079(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 chicken.process-context#_getenv */ -C_regparm static C_word stub8071(C_word C_buf,C_word C_a0){ -C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; -C_word t0=(C_word )(C_a0); -C_r=C_mpointer(&C_a,(void*)C_getenv(t0)); -return C_r;} - -/* from k34725 */ -C_regparm static C_word stub7746(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 k34716 */ -C_regparm static C_word stub7738(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 k34664 */ -C_regparm static C_word stub7719(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 stub6825(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 k20283 */ -C_regparm static C_word stub3497(C_word C_buf,C_word C_a0,C_word C_a1){ -C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; -double t0=(double )C_c_double(C_a0); -int t1=(int )C_unfix(C_a1); -C_r=C_flonum(&C_a,ldexp(t0,t1)); -return C_r;} - -C_noret_decl(f45112) -static void C_ccall f45112(C_word c,C_word *av) C_noret; -C_noret_decl(f45311) -static void C_ccall f45311(C_word c,C_word *av) C_noret; -C_noret_decl(f45315) -static void C_ccall f45315(C_word c,C_word *av) C_noret; -C_noret_decl(f45445) -static void C_ccall f45445(C_word c,C_word *av) C_noret; -C_noret_decl(f45450) -static void C_ccall f45450(C_word c,C_word *av) C_noret; -C_noret_decl(f45457) -static void C_ccall f45457(C_word c,C_word *av) C_noret; -C_noret_decl(f45466) -static void C_ccall f45466(C_word c,C_word *av) C_noret; -C_noret_decl(f45475) -static void C_ccall f45475(C_word c,C_word *av) C_noret; -C_noret_decl(f49039) -static void C_ccall f49039(C_word c,C_word *av) C_noret; -C_noret_decl(f49045) -static void C_ccall f49045(C_word c,C_word *av) C_noret; -C_noret_decl(f49051) -static void C_ccall f49051(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_11440) -static void C_ccall f_11440(C_word c,C_word *av) 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_11446) -static void C_ccall f_11446(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_11452) -static void C_ccall f_11452(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_11471) -static C_word f_11471(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_11500) -static void C_ccall f_11500(C_word c,C_word *av) C_noret; -C_noret_decl(f_11516) -static C_word f_11516(C_word t0,C_word t1,C_word t2); -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_11551) -static void C_ccall f_11551(C_word c,C_word *av) C_noret; -C_noret_decl(f_11554) -static void C_ccall f_11554(C_word c,C_word *av) 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_11560) -static void C_ccall f_11560(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_11566) -static void C_ccall f_11566(C_word c,C_word *av) C_noret; -C_noret_decl(f_11569) -static void C_ccall f_11569(C_word c,C_word *av) C_noret; -C_noret_decl(f_11572) -static void C_ccall f_11572(C_word c,C_word *av) C_noret; -C_noret_decl(f_11575) -static void C_ccall f_11575(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_11581) -static void C_ccall f_11581(C_word c,C_word *av) C_noret; -C_noret_decl(f_11584) -static void C_ccall f_11584(C_word c,C_word *av) C_noret; -C_noret_decl(f_11598) -static void C_ccall f_11598(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_11612) -static void C_ccall f_11612(C_word c,C_word *av) C_noret; -C_noret_decl(f_11626) -static void C_ccall f_11626(C_word c,C_word *av) C_noret; -C_noret_decl(f_11633) -static void C_ccall f_11633(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_11661) -static void C_ccall f_11661(C_word c,C_word *av) 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_11690) -static void C_ccall f_11690(C_word c,C_word *av) C_noret; -C_noret_decl(f_11701) -static void C_ccall f_11701(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_11719) -static void C_ccall f_11719(C_word c,C_word *av) C_noret; -C_noret_decl(f_11723) -static void C_ccall f_11723(C_word c,C_word *av) C_noret; -C_noret_decl(f_11730) -static void C_ccall f_11730(C_word c,C_word *av) C_noret; -C_noret_decl(f_11748) -static void C_ccall f_11748(C_word c,C_word *av) C_noret; -C_noret_decl(f_11759) -static void C_ccall f_11759(C_word c,C_word *av) C_noret; -C_noret_decl(f_11770) -static void C_ccall f_11770(C_word c,C_word *av) C_noret; -C_noret_decl(f_11777) -static void C_ccall f_11777(C_word c,C_word *av) C_noret; -C_noret_decl(f_11795) -static void C_ccall f_11795(C_word c,C_word *av) C_noret; -C_noret_decl(f_11806) -static void C_ccall f_11806(C_word c,C_word *av) C_noret; -C_noret_decl(f_11824) -static void C_ccall f_11824(C_word c,C_word *av) C_noret; -C_noret_decl(f_11830) -static void C_ccall f_11830(C_word c,C_word *av) C_noret; -C_noret_decl(f_11833) -static void C_ccall f_11833(C_word c,C_word *av) C_noret; -C_noret_decl(f_11836) -static void C_ccall f_11836(C_word c,C_word *av) C_noret; -C_noret_decl(f_11839) -static void C_ccall f_11839(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_11848) -static void f_11848(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_11881) -static void C_ccall f_11881(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_11887) -static void C_ccall f_11887(C_word c,C_word *av) C_noret; -C_noret_decl(f_11899) -static void f_11899(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11912) -static void C_ccall f_11912(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_11934) -static void C_ccall f_11934(C_word c,C_word *av) C_noret; -C_noret_decl(f_11937) -static void C_ccall f_11937(C_word c,C_word *av) C_noret; -C_noret_decl(f_11949) -static void f_11949(C_word t0,C_word t1,C_word t2) 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_11986) -static void C_ccall f_11986(C_word c,C_word *av) C_noret; -C_noret_decl(f_11989) -static void C_ccall f_11989(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_11995) -static void C_ccall f_11995(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_12001) -static void C_ccall f_12001(C_word c,C_word *av) C_noret; -C_noret_decl(f_12008) -static C_word f_12008(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_12034) -static void C_ccall f_12034(C_word c,C_word *av) C_noret; -C_noret_decl(f_12041) -static C_word f_12041(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_12085) -static void C_ccall f_12085(C_word c,C_word *av) C_noret; -C_noret_decl(f_12088) -static void C_ccall f_12088(C_word c,C_word *av) C_noret; -C_noret_decl(f_12094) -static void C_ccall f_12094(C_word c,C_word *av) C_noret; -C_noret_decl(f_12097) -static void C_ccall f_12097(C_word c,C_word *av) C_noret; -C_noret_decl(f_12100) -static void C_ccall f_12100(C_word c,C_word *av) C_noret; -C_noret_decl(f_12103) -static void C_ccall f_12103(C_word c,C_word *av) C_noret; -C_noret_decl(f_12106) -static void C_ccall f_12106(C_word c,C_word *av) C_noret; -C_noret_decl(f_12114) -static void C_ccall f_12114(C_word c,C_word *av) C_noret; -C_noret_decl(f_12118) -static void C_ccall f_12118(C_word c,C_word *av) C_noret; -C_noret_decl(f_12121) -static void C_ccall f_12121(C_word c,C_word *av) C_noret; -C_noret_decl(f_12124) -static void C_ccall f_12124(C_word c,C_word *av) C_noret; -C_noret_decl(f_12127) -static void C_ccall f_12127(C_word c,C_word *av) C_noret; -C_noret_decl(f_12130) -static void C_ccall f_12130(C_word c,C_word *av) C_noret; -C_noret_decl(f_12133) -static void C_ccall f_12133(C_word c,C_word *av) C_noret; -C_noret_decl(f_12136) -static void C_ccall f_12136(C_word c,C_word *av) C_noret; -C_noret_decl(f_12139) -static void C_ccall f_12139(C_word c,C_word *av) C_noret; -C_noret_decl(f_12143) -static void C_ccall f_12143(C_word c,C_word *av) C_noret; -C_noret_decl(f_12146) -static void C_ccall f_12146(C_word c,C_word *av) C_noret; -C_noret_decl(f_12149) -static void C_ccall f_12149(C_word c,C_word *av) C_noret; -C_noret_decl(f_12152) -static void C_ccall f_12152(C_word c,C_word *av) C_noret; -C_noret_decl(f_12155) -static void C_ccall f_12155(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_12166) -static void C_ccall f_12166(C_word c,C_word *av) C_noret; -C_noret_decl(f_12173) -static void C_ccall f_12173(C_word c,C_word *av) C_noret; -C_noret_decl(f_12180) -static void C_ccall f_12180(C_word c,C_word *av) C_noret; -C_noret_decl(f_12193) -static C_word f_12193(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_12219) -static void C_ccall f_12219(C_word c,C_word *av) C_noret; -C_noret_decl(f_12232) -static C_word f_12232(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_12258) -static void C_ccall f_12258(C_word c,C_word *av) C_noret; -C_noret_decl(f_12271) -static C_word f_12271(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_12297) -static void C_ccall f_12297(C_word c,C_word *av) C_noret; -C_noret_decl(f_12310) -static C_word f_12310(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_12336) -static void C_ccall f_12336(C_word c,C_word *av) C_noret; -C_noret_decl(f_12349) -static C_word f_12349(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_12375) -static void C_ccall f_12375(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_12392) -static void C_ccall f_12392(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_12404) -static void C_ccall f_12404(C_word c,C_word *av) C_noret; -C_noret_decl(f_12410) -static void C_ccall f_12410(C_word c,C_word *av) C_noret; -C_noret_decl(f_12416) -static void C_ccall f_12416(C_word c,C_word *av) C_noret; -C_noret_decl(f_12422) -static void C_ccall f_12422(C_word c,C_word *av) C_noret; -C_noret_decl(f_12438) -static void C_ccall f_12438(C_word c,C_word *av) C_noret; -C_noret_decl(f_12446) -static void C_ccall f_12446(C_word c,C_word *av) C_noret; -C_noret_decl(f_12452) -static void C_ccall f_12452(C_word c,C_word *av) C_noret; -C_noret_decl(f_12458) -static void C_ccall f_12458(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_12474) -static void C_ccall f_12474(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_12490) -static void C_ccall f_12490(C_word c,C_word *av) C_noret; -C_noret_decl(f_12496) -static void C_ccall f_12496(C_word c,C_word *av) C_noret; -C_noret_decl(f_12501) -static void C_ccall f_12501(C_word c,C_word *av) C_noret; -C_noret_decl(f_12516) -static void C_ccall f_12516(C_word c,C_word *av) C_noret; -C_noret_decl(f_12527) -static void C_ccall f_12527(C_word c,C_word *av) C_noret; -C_noret_decl(f_12533) -static void C_ccall f_12533(C_word c,C_word *av) C_noret; -C_noret_decl(f_12539) -static void C_ccall f_12539(C_word c,C_word *av) C_noret; -C_noret_decl(f_12545) -static void C_ccall f_12545(C_word c,C_word *av) C_noret; -C_noret_decl(f_12551) -static void C_ccall f_12551(C_word c,C_word *av) C_noret; -C_noret_decl(f_12561) -static void C_ccall f_12561(C_word c,C_word *av) C_noret; -C_noret_decl(f_12563) -static void C_ccall f_12563(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_12569) -static void C_ccall f_12569(C_word c,C_word *av) C_noret; -C_noret_decl(f_12572) -static void C_ccall f_12572(C_word c,C_word *av) C_noret; -C_noret_decl(f_12575) -static void C_ccall f_12575(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_12583) -static void C_ccall f_12583(C_word c,C_word *av) 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_12595) -static void C_ccall f_12595(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_12633) -static void C_ccall f_12633(C_word c,C_word *av) C_noret; -C_noret_decl(f_12636) -static void C_ccall f_12636(C_word c,C_word *av) C_noret; -C_noret_decl(f_12644) -static void C_ccall f_12644(C_word c,C_word *av) C_noret; -C_noret_decl(f_12650) -static void C_ccall f_12650(C_word c,C_word *av) C_noret; -C_noret_decl(f_12657) -static void C_ccall f_12657(C_word c,C_word *av) C_noret; -C_noret_decl(f_12672) -static void C_ccall f_12672(C_word c,C_word *av) C_noret; -C_noret_decl(f_12686) -static void C_ccall f_12686(C_word c,C_word *av) C_noret; -C_noret_decl(f_12692) -static void C_ccall f_12692(C_word c,C_word *av) C_noret; -C_noret_decl(f_12698) -static void C_ccall f_12698(C_word c,C_word *av) C_noret; -C_noret_decl(f_12705) -static void C_ccall f_12705(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_12713) -static void C_ccall f_12713(C_word c,C_word *av) C_noret; -C_noret_decl(f_12722) -static void f_12722(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_12740) -static void C_ccall f_12740(C_word c,C_word *av) C_noret; -C_noret_decl(f_12750) -static void C_ccall f_12750(C_word c,C_word *av) C_noret; -C_noret_decl(f_12759) -static void f_12759(C_word t0,C_word t1,C_word t2) 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_12790) -static void C_ccall f_12790(C_word c,C_word *av) C_noret; -C_noret_decl(f_12797) -static void C_ccall f_12797(C_word c,C_word *av) C_noret; -C_noret_decl(f_12804) -static void C_ccall f_12804(C_word c,C_word *av) C_noret; -C_noret_decl(f_12815) -static void C_ccall f_12815(C_word c,C_word *av) C_noret; -C_noret_decl(f_12834) -static void C_ccall f_12834(C_word c,C_word *av) C_noret; -C_noret_decl(f_12837) -static void C_ccall f_12837(C_word c,C_word *av) C_noret; -C_noret_decl(f_12839) -static void C_ccall f_12839(C_word c,C_word *av) C_noret; -C_noret_decl(f_12845) -static void f_12845(C_word t0,C_word t1,C_word t2) 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_12870) -static void C_ccall f_12870(C_word c,C_word *av) C_noret; -C_noret_decl(f_12872) -static void C_ccall f_12872(C_word c,C_word *av) C_noret; -C_noret_decl(f_12878) -static void f_12878(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_12891) -static void C_ccall f_12891(C_word c,C_word *av) C_noret; -C_noret_decl(f_12907) -static void C_ccall f_12907(C_word c,C_word *av) C_noret; -C_noret_decl(f_12918) -static void C_ccall f_12918(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_12928) -static void C_ccall f_12928(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_12936) -static void C_ccall f_12936(C_word c,C_word *av) C_noret; -C_noret_decl(f_12938) -static void C_ccall f_12938(C_word c,C_word *av) C_noret; -C_noret_decl(f_12946) -static void C_ccall f_12946(C_word c,C_word *av) C_noret; -C_noret_decl(f_12948) -static void C_ccall f_12948(C_word c,C_word *av) C_noret; -C_noret_decl(f_12951) -static void C_ccall f_12951(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_12965) -static void C_ccall f_12965(C_word c,C_word *av) C_noret; -C_noret_decl(f_12973) -static void C_ccall f_12973(C_word c,C_word *av) C_noret; -C_noret_decl(f_12984) -static void C_ccall f_12984(C_word c,C_word *av) C_noret; -C_noret_decl(f_12996) -static void f_12996(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13010) -static void C_ccall f_13010(C_word c,C_word *av) C_noret; -C_noret_decl(f_13018) -static void C_ccall f_13018(C_word c,C_word *av) C_noret; -C_noret_decl(f_13021) -static void C_ccall f_13021(C_word c,C_word *av) C_noret; -C_noret_decl(f_13023) -static void C_ccall f_13023(C_word c,C_word *av) C_noret; -C_noret_decl(f_13025) -static void C_ccall f_13025(C_word c,C_word *av) C_noret; -C_noret_decl(f_13031) -static void f_13031(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13050) -static void C_ccall f_13050(C_word c,C_word *av) C_noret; -C_noret_decl(f_13067) -static void C_ccall f_13067(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_13089) -static void C_ccall f_13089(C_word c,C_word *av) C_noret; -C_noret_decl(f_13095) -static void f_13095(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13114) -static void C_ccall f_13114(C_word c,C_word *av) C_noret; -C_noret_decl(f_13123) -static void C_ccall f_13123(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_13129) -static void C_ccall f_13129(C_word c,C_word *av) C_noret; -C_noret_decl(f_13132) -static void C_ccall f_13132(C_word c,C_word *av) C_noret; -C_noret_decl(f_13135) -static void C_ccall f_13135(C_word c,C_word *av) C_noret; -C_noret_decl(f_13144) -static C_word f_13144(C_word t0,C_word t1); -C_noret_decl(f_13163) -static void C_ccall f_13163(C_word c,C_word *av) C_noret; -C_noret_decl(f_13169) -static void f_13169(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13194) -static void C_ccall f_13194(C_word c,C_word *av) C_noret; -C_noret_decl(f_13196) -static void C_ccall f_13196(C_word c,C_word *av) C_noret; -C_noret_decl(f_13205) -static void f_13205(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13226) -static void C_ccall f_13226(C_word c,C_word *av) C_noret; -C_noret_decl(f_13228) -static void C_ccall f_13228(C_word c,C_word *av) C_noret; -C_noret_decl(f_13234) -static void f_13234(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_13260) -static void C_ccall f_13260(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_13269) -static void C_ccall f_13269(C_word c,C_word *av) C_noret; -C_noret_decl(f_13281) -static void f_13281(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13316) -static void C_ccall f_13316(C_word c,C_word *av) C_noret; -C_noret_decl(f_13326) -static void C_ccall f_13326(C_word c,C_word *av) C_noret; -C_noret_decl(f_13335) -static void f_13335(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_13377) -static void C_ccall f_13377(C_word c,C_word *av) C_noret; -C_noret_decl(f_13406) -static void C_ccall f_13406(C_word c,C_word *av) C_noret; -C_noret_decl(f_13412) -static void C_ccall f_13412(C_word c,C_word *av) C_noret; -C_noret_decl(f_13426) -static void C_ccall f_13426(C_word c,C_word *av) C_noret; -C_noret_decl(f_13432) -static void C_ccall f_13432(C_word c,C_word *av) C_noret; -C_noret_decl(f_13439) -static void f_13439(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13442) -static void C_ccall f_13442(C_word c,C_word *av) C_noret; -C_noret_decl(f_13471) -static void C_ccall f_13471(C_word c,C_word *av) C_noret; -C_noret_decl(f_13477) -static void f_13477(C_word t0,C_word t1,C_word t2) 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_13518) -static void C_ccall f_13518(C_word c,C_word *av) C_noret; -C_noret_decl(f_13527) -static void f_13527(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13568) -static void C_ccall f_13568(C_word c,C_word *av) C_noret; -C_noret_decl(f_13590) -static void C_ccall f_13590(C_word c,C_word *av) C_noret; -C_noret_decl(f_13622) -static void C_ccall f_13622(C_word c,C_word *av) C_noret; -C_noret_decl(f_13638) -static void f_13638(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13641) -static void C_ccall f_13641(C_word c,C_word *av) C_noret; -C_noret_decl(f_13663) -static void C_ccall f_13663(C_word c,C_word *av) C_noret; -C_noret_decl(f_13669) -static void f_13669(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13694) -static void C_ccall f_13694(C_word c,C_word *av) C_noret; -C_noret_decl(f_13734) -static void C_ccall f_13734(C_word c,C_word *av) C_noret; -C_noret_decl(f_13746) -static void f_13746(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_13765) -static void C_ccall f_13765(C_word c,C_word *av) C_noret; -C_noret_decl(f_13782) -static void C_ccall f_13782(C_word c,C_word *av) C_noret; -C_noret_decl(f_13789) -static void C_ccall f_13789(C_word c,C_word *av) C_noret; -C_noret_decl(f_13799) -static void C_ccall f_13799(C_word c,C_word *av) C_noret; -C_noret_decl(f_13810) -static void C_ccall f_13810(C_word c,C_word *av) C_noret; -C_noret_decl(f_13814) -static void C_ccall f_13814(C_word c,C_word *av) C_noret; -C_noret_decl(f_13827) -static void C_ccall f_13827(C_word c,C_word *av) C_noret; -C_noret_decl(f_13829) -static void C_ccall f_13829(C_word c,C_word *av) C_noret; -C_noret_decl(f_13863) -static void C_ccall f_13863(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_13885) -static void C_ccall f_13885(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_13910) -static void C_ccall f_13910(C_word c,C_word *av) C_noret; -C_noret_decl(f_13916) -static void C_ccall f_13916(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_13930) -static void C_ccall f_13930(C_word c,C_word *av) C_noret; -C_noret_decl(f_13934) -static void C_ccall f_13934(C_word c,C_word *av) C_noret; -C_noret_decl(f_13938) -static void C_ccall f_13938(C_word c,C_word *av) C_noret; -C_noret_decl(f_13941) -static void C_ccall f_13941(C_word c,C_word *av) C_noret; -C_noret_decl(f_13943) -static void f_13943(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_13947) -static void f_13947(C_word t0,C_word t1) C_noret; -C_noret_decl(f_13951) -static void C_ccall f_13951(C_word c,C_word *av) C_noret; -C_noret_decl(f_13955) -static void C_ccall f_13955(C_word c,C_word *av) C_noret; -C_noret_decl(f_13959) -static void C_ccall f_13959(C_word c,C_word *av) C_noret; -C_noret_decl(f_13974) -static void C_ccall f_13974(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_13997) -static void C_ccall f_13997(C_word c,C_word *av) C_noret; -C_noret_decl(f_14003) -static void C_ccall f_14003(C_word c,C_word *av) C_noret; -C_noret_decl(f_14006) -static void f_14006(C_word t0,C_word t1) C_noret; -C_noret_decl(f_14013) -static void C_ccall f_14013(C_word c,C_word *av) C_noret; -C_noret_decl(f_14050) -static void C_ccall f_14050(C_word c,C_word *av) C_noret; -C_noret_decl(f_14053) -static void C_ccall f_14053(C_word c,C_word *av) C_noret; -C_noret_decl(f_14056) -static void C_ccall f_14056(C_word c,C_word *av) C_noret; -C_noret_decl(f_14059) -static void C_ccall f_14059(C_word c,C_word *av) C_noret; -C_noret_decl(f_14065) -static void C_ccall f_14065(C_word c,C_word *av) C_noret; -C_noret_decl(f_14068) -static void C_ccall f_14068(C_word c,C_word *av) C_noret; -C_noret_decl(f_14071) -static void C_ccall f_14071(C_word c,C_word *av) C_noret; -C_noret_decl(f_14074) -static void C_ccall f_14074(C_word c,C_word *av) C_noret; -C_noret_decl(f_14077) -static void C_ccall f_14077(C_word c,C_word *av) C_noret; -C_noret_decl(f_14080) -static void C_ccall f_14080(C_word c,C_word *av) C_noret; -C_noret_decl(f_14083) -static void C_ccall f_14083(C_word c,C_word *av) C_noret; -C_noret_decl(f_14086) -static void C_ccall f_14086(C_word c,C_word *av) C_noret; -C_noret_decl(f_14089) -static void C_ccall f_14089(C_word c,C_word *av) C_noret; -C_noret_decl(f_14092) -static void C_ccall f_14092(C_word c,C_word *av) C_noret; -C_noret_decl(f_14095) -static void C_ccall f_14095(C_word c,C_word *av) C_noret; -C_noret_decl(f_14098) -static void C_ccall f_14098(C_word c,C_word *av) C_noret; -C_noret_decl(f_14101) -static void C_ccall f_14101(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_14107) -static void C_ccall f_14107(C_word c,C_word *av) C_noret; -C_noret_decl(f_14110) -static void C_ccall f_14110(C_word c,C_word *av) C_noret; -C_noret_decl(f_14113) -static void C_ccall f_14113(C_word c,C_word *av) C_noret; -C_noret_decl(f_14116) -static void C_ccall f_14116(C_word c,C_word *av) C_noret; -C_noret_decl(f_14119) -static void C_ccall f_14119(C_word c,C_word *av) C_noret; -C_noret_decl(f_14122) -static void C_ccall f_14122(C_word c,C_word *av) C_noret; -C_noret_decl(f_14125) -static void C_ccall f_14125(C_word c,C_word *av) C_noret; -C_noret_decl(f_14128) -static void C_ccall f_14128(C_word c,C_word *av) C_noret; -C_noret_decl(f_14131) -static void C_ccall f_14131(C_word c,C_word *av) C_noret; -C_noret_decl(f_14134) -static void C_ccall f_14134(C_word c,C_word *av) C_noret; -C_noret_decl(f_14137) -static void C_ccall f_14137(C_word c,C_word *av) C_noret; -C_noret_decl(f_14142) -static void C_ccall f_14142(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_14163) -static void C_ccall f_14163(C_word c,C_word *av) C_noret; -C_noret_decl(f_14177) -static void C_ccall f_14177(C_word c,C_word *av) C_noret; -C_noret_decl(f_14193) -static void C_ccall f_14193(C_word c,C_word *av) C_noret; -C_noret_decl(f_14196) -static void C_ccall f_14196(C_word c,C_word *av) C_noret; -C_noret_decl(f_14205) -static void C_ccall f_14205(C_word c,C_word *av) C_noret; -C_noret_decl(f_14209) -static void C_ccall f_14209(C_word c,C_word *av) C_noret; -C_noret_decl(f_14211) -static void C_ccall f_14211(C_word c,C_word *av) C_noret; -C_noret_decl(f_14215) -static void C_ccall f_14215(C_word c,C_word *av) C_noret; -C_noret_decl(f_14218) -static void C_ccall f_14218(C_word c,C_word *av) C_noret; -C_noret_decl(f_14229) -static void C_ccall f_14229(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_14241) -static void C_ccall f_14241(C_word c,C_word *av) C_noret; -C_noret_decl(f_14246) -static void C_ccall f_14246(C_word c,C_word *av) C_noret; -C_noret_decl(f_14250) -static void C_ccall f_14250(C_word c,C_word *av) C_noret; -C_noret_decl(f_14255) -static void C_ccall f_14255(C_word c,C_word *av) C_noret; -C_noret_decl(f_14259) -static void C_ccall f_14259(C_word c,C_word *av) C_noret; -C_noret_decl(f_14290) -static void C_ccall f_14290(C_word c,C_word *av) C_noret; -C_noret_decl(f_14293) -static void C_ccall f_14293(C_word c,C_word *av) C_noret; -C_noret_decl(f_14296) -static void C_ccall f_14296(C_word c,C_word *av) C_noret; -C_noret_decl(f_14313) -static void C_ccall f_14313(C_word c,C_word *av) C_noret; -C_noret_decl(f_14324) -static void C_ccall f_14324(C_word c,C_word *av) C_noret; -C_noret_decl(f_14335) -static void C_ccall f_14335(C_word c,C_word *av) C_noret; -C_noret_decl(f_14346) -static void C_ccall f_14346(C_word c,C_word *av) C_noret; -C_noret_decl(f_14357) -static void C_ccall f_14357(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_14379) -static void C_ccall f_14379(C_word c,C_word *av) C_noret; -C_noret_decl(f_14390) -static void C_ccall f_14390(C_word c,C_word *av) C_noret; -C_noret_decl(f_14401) -static void C_ccall f_14401(C_word c,C_word *av) C_noret; -C_noret_decl(f_14412) -static void C_ccall f_14412(C_word c,C_word *av) C_noret; -C_noret_decl(f_14423) -static void C_ccall f_14423(C_word c,C_word *av) C_noret; -C_noret_decl(f_14434) -static void C_ccall f_14434(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_14456) -static void C_ccall f_14456(C_word c,C_word *av) C_noret; -C_noret_decl(f_14467) -static void C_ccall f_14467(C_word c,C_word *av) C_noret; -C_noret_decl(f_14478) -static void C_ccall f_14478(C_word c,C_word *av) C_noret; -C_noret_decl(f_14489) -static void C_ccall f_14489(C_word c,C_word *av) C_noret; -C_noret_decl(f_14506) -static void C_ccall f_14506(C_word c,C_word *av) C_noret; -C_noret_decl(f_14523) -static void C_ccall f_14523(C_word c,C_word *av) C_noret; -C_noret_decl(f_14547) -static void C_ccall f_14547(C_word c,C_word *av) C_noret; -C_noret_decl(f_14564) -static void C_ccall f_14564(C_word c,C_word *av) C_noret; -C_noret_decl(f_14575) -static void C_ccall f_14575(C_word c,C_word *av) C_noret; -C_noret_decl(f_14586) -static void C_ccall f_14586(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_14617) -static void C_ccall f_14617(C_word c,C_word *av) C_noret; -C_noret_decl(f_14629) -static void f_14629(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_14663) -static void C_ccall f_14663(C_word c,C_word *av) C_noret; -C_noret_decl(f_14678) -static void f_14678(C_word t0,C_word t1) C_noret; -C_noret_decl(f_14745) -static void C_ccall f_14745(C_word c,C_word *av) C_noret; -C_noret_decl(f_14761) -static void C_ccall f_14761(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_14793) -static void C_ccall f_14793(C_word c,C_word *av) C_noret; -C_noret_decl(f_14809) -static void C_ccall f_14809(C_word c,C_word *av) C_noret; -C_noret_decl(f_14825) -static void C_ccall f_14825(C_word c,C_word *av) C_noret; -C_noret_decl(f_14841) -static void C_ccall f_14841(C_word c,C_word *av) C_noret; -C_noret_decl(f_14857) -static void C_ccall f_14857(C_word c,C_word *av) C_noret; -C_noret_decl(f_14873) -static void C_ccall f_14873(C_word c,C_word *av) C_noret; -C_noret_decl(f_14885) -static void f_14885(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14904) -static void f_14904(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_14935) -static void C_ccall f_14935(C_word c,C_word *av) C_noret; -C_noret_decl(f_14952) -static void C_ccall f_14952(C_word c,C_word *av) C_noret; -C_noret_decl(f_14958) -static void f_14958(C_word t0,C_word t1,C_word t2,C_word t3) 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_14997) -static void C_ccall f_14997(C_word c,C_word *av) C_noret; -C_noret_decl(f_15007) -static void C_ccall f_15007(C_word c,C_word *av) C_noret; -C_noret_decl(f_15019) -static void C_ccall f_15019(C_word c,C_word *av) C_noret; -C_noret_decl(f_15023) -static void C_ccall f_15023(C_word c,C_word *av) C_noret; -C_noret_decl(f_15030) -static void C_ccall f_15030(C_word c,C_word *av) C_noret; -C_noret_decl(f_15036) -static void C_ccall f_15036(C_word c,C_word *av) C_noret; -C_noret_decl(f_15042) -static void C_ccall f_15042(C_word c,C_word *av) C_noret; -C_noret_decl(f_15066) -static void C_ccall f_15066(C_word c,C_word *av) C_noret; -C_noret_decl(f_15070) -static void C_ccall f_15070(C_word c,C_word *av) C_noret; -C_noret_decl(f_15079) -static void C_ccall f_15079(C_word c,C_word *av) C_noret; -C_noret_decl(f_15083) -static void C_ccall f_15083(C_word c,C_word *av) C_noret; -C_noret_decl(f_15092) -static void C_ccall f_15092(C_word c,C_word *av) C_noret; -C_noret_decl(f_15095) -static void C_ccall f_15095(C_word c,C_word *av) C_noret; -C_noret_decl(f_15101) -static void C_ccall f_15101(C_word c,C_word *av) C_noret; -C_noret_decl(f_15107) -static void C_ccall f_15107(C_word c,C_word *av) C_noret; -C_noret_decl(f_15110) -static void C_ccall f_15110(C_word c,C_word *av) C_noret; -C_noret_decl(f_15149) -static void C_ccall f_15149(C_word c,C_word *av) C_noret; -C_noret_decl(f_15152) -static void C_ccall f_15152(C_word c,C_word *av) C_noret; -C_noret_decl(f_15162) -static void f_15162(C_word t0,C_word t1) 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_15185) -static void C_ccall f_15185(C_word c,C_word *av) C_noret; -C_noret_decl(f_15191) -static void C_ccall f_15191(C_word c,C_word *av) C_noret; -C_noret_decl(f_15197) -static void C_ccall f_15197(C_word c,C_word *av) C_noret; -C_noret_decl(f_15203) -static void C_ccall f_15203(C_word c,C_word *av) C_noret; -C_noret_decl(f_15209) -static void C_ccall f_15209(C_word c,C_word *av) C_noret; -C_noret_decl(f_15215) -static void C_ccall f_15215(C_word c,C_word *av) C_noret; -C_noret_decl(f_15221) -static void C_ccall f_15221(C_word c,C_word *av) C_noret; -C_noret_decl(f_15225) -static void C_ccall f_15225(C_word c,C_word *av) C_noret; -C_noret_decl(f_15230) -static void C_ccall f_15230(C_word c,C_word *av) 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_15243) -static void C_ccall f_15243(C_word c,C_word *av) C_noret; -C_noret_decl(f_15246) -static void C_ccall f_15246(C_word c,C_word *av) C_noret; -C_noret_decl(f_15252) -static void C_ccall f_15252(C_word c,C_word *av) C_noret; -C_noret_decl(f_15256) -static void C_ccall f_15256(C_word c,C_word *av) C_noret; -C_noret_decl(f_15264) -static void f_15264(C_word t0,C_word t1,C_word t2,C_word t3) 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_15286) -static void C_ccall f_15286(C_word c,C_word *av) C_noret; -C_noret_decl(f_15310) -static void C_ccall f_15310(C_word c,C_word *av) C_noret; -C_noret_decl(f_15317) -static void C_ccall f_15317(C_word c,C_word *av) C_noret; -C_noret_decl(f_15341) -static void C_ccall f_15341(C_word c,C_word *av) C_noret; -C_noret_decl(f_15363) -static void C_ccall f_15363(C_word c,C_word *av) C_noret; -C_noret_decl(f_15366) -static void C_ccall f_15366(C_word c,C_word *av) C_noret; -C_noret_decl(f_15375) -static void f_15375(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_15432) -static void C_ccall f_15432(C_word c,C_word *av) C_noret; -C_noret_decl(f_15445) -static void C_ccall f_15445(C_word c,C_word *av) C_noret; -C_noret_decl(f_15450) -static void f_15450(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_15498) -static void C_ccall f_15498(C_word c,C_word *av) C_noret; -C_noret_decl(f_15503) -static void f_15503(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_15545) -static void C_ccall f_15545(C_word c,C_word *av) C_noret; -C_noret_decl(f_15568) -static void f_15568(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15591) -static C_word f_15591(C_word t0,C_word t1); -C_noret_decl(f_15664) -static void C_ccall f_15664(C_word c,C_word *av) C_noret; -C_noret_decl(f_15684) -static void f_15684(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15687) -static void C_ccall f_15687(C_word c,C_word *av) C_noret; -C_noret_decl(f_15690) -static void C_ccall f_15690(C_word c,C_word *av) C_noret; -C_noret_decl(f_15699) -static void C_ccall f_15699(C_word c,C_word *av) C_noret; -C_noret_decl(f_15712) -static void C_ccall f_15712(C_word c,C_word *av) C_noret; -C_noret_decl(f_15739) -static void C_ccall f_15739(C_word c,C_word *av) C_noret; -C_noret_decl(f_15769) -static void C_ccall f_15769(C_word c,C_word *av) C_noret; -C_noret_decl(f_15788) -static C_word f_15788(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_15822) -static C_word f_15822(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_15856) -static void C_ccall f_15856(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_15894) -static void C_ccall f_15894(C_word c,C_word *av) C_noret; -C_noret_decl(f_15904) -static void C_ccall f_15904(C_word c,C_word *av) C_noret; -C_noret_decl(f_15914) -static void f_15914(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15921) -static void f_15921(C_word t0,C_word t1) C_noret; -C_noret_decl(f_15949) -static void f_15949(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_15969) -static void C_ccall f_15969(C_word c,C_word *av) C_noret; -C_noret_decl(f_15971) -static void f_15971(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) 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_16018) -static void C_ccall f_16018(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_16042) -static void C_ccall f_16042(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_16066) -static void C_ccall f_16066(C_word c,C_word *av) C_noret; -C_noret_decl(f_16072) -static void C_ccall f_16072(C_word c,C_word *av) C_noret; -C_noret_decl(f_16087) -static void C_ccall f_16087(C_word c,C_word *av) C_noret; -C_noret_decl(f_16093) -static void C_ccall f_16093(C_word c,C_word *av) C_noret; -C_noret_decl(f_16107) -static void f_16107(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_16127) -static void C_ccall f_16127(C_word c,C_word *av) C_noret; -C_noret_decl(f_16129) -static void f_16129(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_16157) -static void C_ccall f_16157(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_16174) -static void C_ccall f_16174(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_16198) -static void C_ccall f_16198(C_word c,C_word *av) C_noret; -C_noret_decl(f_16216) -static void C_ccall f_16216(C_word c,C_word *av) C_noret; -C_noret_decl(f_16222) -static void C_ccall f_16222(C_word c,C_word *av) 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_16243) -static void C_ccall f_16243(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_16274) -static void C_ccall f_16274(C_word c,C_word *av) C_noret; -C_noret_decl(f_16304) -static void C_ccall f_16304(C_word c,C_word *av) C_noret; -C_noret_decl(f_16308) -static void C_ccall f_16308(C_word c,C_word *av) C_noret; -C_noret_decl(f_16310) -static void f_16310(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_16321) -static void C_ccall f_16321(C_word c,C_word *av) C_noret; -C_noret_decl(f_16344) -static void C_ccall f_16344(C_word c,C_word *av) C_noret; -C_noret_decl(f_16362) -static void C_ccall f_16362(C_word c,C_word *av) C_noret; -C_noret_decl(f_16368) -static void C_ccall f_16368(C_word c,C_word *av) C_noret; -C_noret_decl(f_16374) -static void C_ccall f_16374(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_16389) -static void f_16389(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_16410) -static void f_16410(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_16424) -static void C_ccall f_16424(C_word c,C_word *av) C_noret; -C_noret_decl(f_16428) -static void C_ccall f_16428(C_word c,C_word *av) C_noret; -C_noret_decl(f_16469) -static void C_ccall f_16469(C_word c,C_word *av) C_noret; -C_noret_decl(f_16491) -static void C_ccall f_16491(C_word c,C_word *av) C_noret; -C_noret_decl(f_16493) -static void C_ccall f_16493(C_word c,C_word *av) C_noret; -C_noret_decl(f_16515) -static void C_ccall f_16515(C_word c,C_word *av) C_noret; -C_noret_decl(f_16517) -static void C_ccall f_16517(C_word c,C_word *av) C_noret; -C_noret_decl(f_16539) -static void C_ccall f_16539(C_word c,C_word *av) C_noret; -C_noret_decl(f_16541) -static void C_ccall f_16541(C_word c,C_word *av) C_noret; -C_noret_decl(f_16563) -static void C_ccall f_16563(C_word c,C_word *av) C_noret; -C_noret_decl(f_16565) -static void C_ccall f_16565(C_word c,C_word *av) C_noret; -C_noret_decl(f_16569) -static void C_ccall f_16569(C_word c,C_word *av) C_noret; -C_noret_decl(f_16572) -static void f_16572(C_word t0,C_word t1) C_noret; -C_noret_decl(f_16590) -static void C_ccall f_16590(C_word c,C_word *av) C_noret; -C_noret_decl(f_16612) -static void C_ccall f_16612(C_word c,C_word *av) C_noret; -C_noret_decl(f_16614) -static void C_ccall f_16614(C_word c,C_word *av) C_noret; -C_noret_decl(f_16636) -static void C_ccall f_16636(C_word c,C_word *av) C_noret; -C_noret_decl(f_16638) -static void C_ccall f_16638(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_16662) -static void C_ccall f_16662(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_16686) -static void C_ccall f_16686(C_word c,C_word *av) C_noret; -C_noret_decl(f_16708) -static void C_ccall f_16708(C_word c,C_word *av) C_noret; -C_noret_decl(f_16710) -static void C_ccall f_16710(C_word c,C_word *av) C_noret; -C_noret_decl(f_16732) -static void C_ccall f_16732(C_word c,C_word *av) C_noret; -C_noret_decl(f_16734) -static void C_ccall f_16734(C_word c,C_word *av) C_noret; -C_noret_decl(f_16756) -static void C_ccall f_16756(C_word c,C_word *av) C_noret; -C_noret_decl(f_16758) -static void C_ccall f_16758(C_word c,C_word *av) C_noret; -C_noret_decl(f_16774) -static void C_ccall f_16774(C_word c,C_word *av) C_noret; -C_noret_decl(f_16776) -static void C_ccall f_16776(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_16800) -static void C_ccall f_16800(C_word c,C_word *av) C_noret; -C_noret_decl(f_16822) -static void C_ccall f_16822(C_word c,C_word *av) C_noret; -C_noret_decl(f_16824) -static void C_ccall f_16824(C_word c,C_word *av) C_noret; -C_noret_decl(f_16840) -static void C_ccall f_16840(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_16858) -static void C_ccall f_16858(C_word c,C_word *av) C_noret; -C_noret_decl(f_16860) -static void C_ccall f_16860(C_word c,C_word *av) C_noret; -C_noret_decl(f_16876) -static void C_ccall f_16876(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_16894) -static void C_ccall f_16894(C_word c,C_word *av) C_noret; -C_noret_decl(f_16896) -static void C_ccall f_16896(C_word c,C_word *av) C_noret; -C_noret_decl(f_16912) -static void C_ccall f_16912(C_word c,C_word *av) C_noret; -C_noret_decl(f_16914) -static void C_ccall f_16914(C_word c,C_word *av) C_noret; -C_noret_decl(f_16930) -static void C_ccall f_16930(C_word c,C_word *av) C_noret; -C_noret_decl(f_16932) -static void C_ccall f_16932(C_word c,C_word *av) C_noret; -C_noret_decl(f_16948) -static void C_ccall f_16948(C_word c,C_word *av) C_noret; -C_noret_decl(f_16950) -static void C_ccall f_16950(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_16968) -static void C_ccall f_16968(C_word c,C_word *av) C_noret; -C_noret_decl(f_16984) -static void C_ccall f_16984(C_word c,C_word *av) C_noret; -C_noret_decl(f_16986) -static void C_ccall f_16986(C_word c,C_word *av) C_noret; -C_noret_decl(f_17002) -static void C_ccall f_17002(C_word c,C_word *av) C_noret; -C_noret_decl(f_17004) -static void C_ccall f_17004(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_17028) -static void C_ccall f_17028(C_word c,C_word *av) C_noret; -C_noret_decl(f_17044) -static void C_ccall f_17044(C_word c,C_word *av) 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_17062) -static void C_ccall f_17062(C_word c,C_word *av) 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_17080) -static void C_ccall f_17080(C_word c,C_word *av) C_noret; -C_noret_decl(f_17082) -static void C_ccall f_17082(C_word c,C_word *av) C_noret; -C_noret_decl(f_17098) -static void C_ccall f_17098(C_word c,C_word *av) C_noret; -C_noret_decl(f_17100) -static void C_ccall f_17100(C_word c,C_word *av) C_noret; -C_noret_decl(f_17116) -static void C_ccall f_17116(C_word c,C_word *av) C_noret; -C_noret_decl(f_17118) -static void C_ccall f_17118(C_word c,C_word *av) C_noret; -C_noret_decl(f_17134) -static void C_ccall f_17134(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_17152) -static void C_ccall f_17152(C_word c,C_word *av) C_noret; -C_noret_decl(f_17154) -static void C_ccall f_17154(C_word c,C_word *av) C_noret; -C_noret_decl(f_17176) -static void C_ccall f_17176(C_word c,C_word *av) C_noret; -C_noret_decl(f_17178) -static void C_ccall f_17178(C_word c,C_word *av) C_noret; -C_noret_decl(f_17194) -static void C_ccall f_17194(C_word c,C_word *av) C_noret; -C_noret_decl(f_17196) -static void C_ccall f_17196(C_word c,C_word *av) C_noret; -C_noret_decl(f_17212) -static void C_ccall f_17212(C_word c,C_word *av) C_noret; -C_noret_decl(f_17214) -static void C_ccall f_17214(C_word c,C_word *av) C_noret; -C_noret_decl(f_17230) -static void C_ccall f_17230(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_17248) -static void C_ccall f_17248(C_word c,C_word *av) C_noret; -C_noret_decl(f_17250) -static void C_ccall f_17250(C_word c,C_word *av) C_noret; -C_noret_decl(f_17268) -static void f_17268(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_17278) -static void C_ccall f_17278(C_word c,C_word *av) C_noret; -C_noret_decl(f_17282) -static void C_ccall f_17282(C_word c,C_word *av) C_noret; -C_noret_decl(f_17304) -static void C_ccall f_17304(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_17311) -static void C_ccall f_17311(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_17320) -static void C_ccall f_17320(C_word c,C_word *av) C_noret; -C_noret_decl(f_17323) -static void C_ccall f_17323(C_word c,C_word *av) C_noret; -C_noret_decl(f_17326) -static void C_ccall f_17326(C_word c,C_word *av) C_noret; -C_noret_decl(f_17339) -static void C_ccall f_17339(C_word c,C_word *av) C_noret; -C_noret_decl(f_17362) -static void C_ccall f_17362(C_word c,C_word *av) C_noret; -C_noret_decl(f_17388) -static void C_ccall f_17388(C_word c,C_word *av) C_noret; -C_noret_decl(f_17397) -static void C_ccall f_17397(C_word c,C_word *av) C_noret; -C_noret_decl(f_17402) -static void C_ccall f_17402(C_word c,C_word *av) C_noret; -C_noret_decl(f_17404) -static void C_ccall f_17404(C_word c,C_word *av) C_noret; -C_noret_decl(f_17448) -static C_word f_17448(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_17494) -static void C_ccall f_17494(C_word c,C_word *av) C_noret; -C_noret_decl(f_17518) -static void C_ccall f_17518(C_word c,C_word *av) C_noret; -C_noret_decl(f_17522) -static void C_ccall f_17522(C_word c,C_word *av) C_noret; -C_noret_decl(f_17540) -static void C_ccall f_17540(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_17568) -static void C_ccall f_17568(C_word c,C_word *av) C_noret; -C_noret_decl(f_17586) -static void C_ccall f_17586(C_word c,C_word *av) C_noret; -C_noret_decl(f_17627) -static void f_17627(C_word t0,C_word t1,C_word t2,C_word t3) 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_17644) -static void f_17644(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_17648) -static void C_ccall f_17648(C_word c,C_word *av) C_noret; -C_noret_decl(f_17662) -static void C_ccall f_17662(C_word c,C_word *av) C_noret; -C_noret_decl(f_17675) -static void C_ccall f_17675(C_word c,C_word *av) C_noret; -C_noret_decl(f_17679) -static void C_ccall f_17679(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_17700) -static void C_ccall f_17700(C_word c,C_word *av) C_noret; -C_noret_decl(f_17706) -static void C_ccall f_17706(C_word c,C_word *av) C_noret; -C_noret_decl(f_17710) -static void C_ccall f_17710(C_word c,C_word *av) C_noret; -C_noret_decl(f_17750) -static void C_ccall f_17750(C_word c,C_word *av) C_noret; -C_noret_decl(f_17754) -static void C_ccall f_17754(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_17777) -static void C_ccall f_17777(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_17783) -static void C_ccall f_17783(C_word c,C_word *av) C_noret; -C_noret_decl(f_17786) -static void C_ccall f_17786(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_17809) -static void f_17809(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_17827) -static void C_ccall f_17827(C_word c,C_word *av) C_noret; -C_noret_decl(f_17837) -static void C_ccall f_17837(C_word c,C_word *av) C_noret; -C_noret_decl(f_17841) -static void C_ccall f_17841(C_word c,C_word *av) C_noret; -C_noret_decl(f_17879) -static void C_ccall f_17879(C_word c,C_word *av) C_noret; -C_noret_decl(f_17882) -static void C_ccall f_17882(C_word c,C_word *av) C_noret; -C_noret_decl(f_17885) -static void C_ccall f_17885(C_word c,C_word *av) 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_17894) -static void C_ccall f_17894(C_word c,C_word *av) C_noret; -C_noret_decl(f_17897) -static void C_ccall f_17897(C_word c,C_word *av) C_noret; -C_noret_decl(f_17945) -static void C_ccall f_17945(C_word c,C_word *av) C_noret; -C_noret_decl(f_17949) -static void C_ccall f_17949(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_18065) -static void C_ccall f_18065(C_word c,C_word *av) C_noret; -C_noret_decl(f_18120) -static void C_ccall f_18120(C_word c,C_word *av) C_noret; -C_noret_decl(f_18165) -static void C_ccall f_18165(C_word c,C_word *av) C_noret; -C_noret_decl(f_18210) -static void C_ccall f_18210(C_word c,C_word *av) C_noret; -C_noret_decl(f_18247) -static void C_ccall f_18247(C_word c,C_word *av) C_noret; -C_noret_decl(f_18267) -static void C_ccall f_18267(C_word c,C_word *av) C_noret; -C_noret_decl(f_18291) -static void f_18291(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_18294) -static void f_18294(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_18298) -static void C_ccall f_18298(C_word c,C_word *av) C_noret; -C_noret_decl(f_18301) -static void C_ccall f_18301(C_word c,C_word *av) C_noret; -C_noret_decl(f_18319) -static void C_ccall f_18319(C_word c,C_word *av) C_noret; -C_noret_decl(f_18342) -static void C_ccall f_18342(C_word c,C_word *av) C_noret; -C_noret_decl(f_18346) -static void C_ccall f_18346(C_word c,C_word *av) C_noret; -C_noret_decl(f_18369) -static void C_ccall f_18369(C_word c,C_word *av) C_noret; -C_noret_decl(f_18373) -static void C_ccall f_18373(C_word c,C_word *av) C_noret; -C_noret_decl(f_18405) -static void C_ccall f_18405(C_word c,C_word *av) C_noret; -C_noret_decl(f_18441) -static void C_ccall f_18441(C_word c,C_word *av) C_noret; -C_noret_decl(f_18445) -static void C_ccall f_18445(C_word c,C_word *av) C_noret; -C_noret_decl(f_18464) -static void C_ccall f_18464(C_word c,C_word *av) C_noret; -C_noret_decl(f_18466) -static void C_ccall f_18466(C_word c,C_word *av) C_noret; -C_noret_decl(f_18473) -static void f_18473(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_18510) -static void C_ccall f_18510(C_word c,C_word *av) C_noret; -C_noret_decl(f_18517) -static void f_18517(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_18572) -static void C_ccall f_18572(C_word c,C_word *av) C_noret; -C_noret_decl(f_18581) -static void C_ccall f_18581(C_word c,C_word *av) C_noret; -C_noret_decl(f_18586) -static void C_ccall f_18586(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_18625) -static void C_ccall f_18625(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_18637) -static void C_ccall f_18637(C_word c,C_word *av) C_noret; -C_noret_decl(f_18641) -static void C_ccall f_18641(C_word c,C_word *av) C_noret; -C_noret_decl(f_18645) -static void C_ccall f_18645(C_word c,C_word *av) C_noret; -C_noret_decl(f_18648) -static void C_ccall f_18648(C_word c,C_word *av) C_noret; -C_noret_decl(f_18662) -static void C_ccall f_18662(C_word c,C_word *av) C_noret; -C_noret_decl(f_18666) -static void C_ccall f_18666(C_word c,C_word *av) C_noret; -C_noret_decl(f_18677) -static void C_ccall f_18677(C_word c,C_word *av) C_noret; -C_noret_decl(f_18701) -static void C_ccall f_18701(C_word c,C_word *av) C_noret; -C_noret_decl(f_18705) -static void C_ccall f_18705(C_word c,C_word *av) C_noret; -C_noret_decl(f_18711) -static void C_ccall f_18711(C_word c,C_word *av) C_noret; -C_noret_decl(f_18735) -static void C_ccall f_18735(C_word c,C_word *av) C_noret; -C_noret_decl(f_18739) -static void C_ccall f_18739(C_word c,C_word *av) C_noret; -C_noret_decl(f_18745) -static void C_ccall f_18745(C_word c,C_word *av) C_noret; -C_noret_decl(f_18762) -static void C_ccall f_18762(C_word c,C_word *av) C_noret; -C_noret_decl(f_18766) -static void C_ccall f_18766(C_word c,C_word *av) C_noret; -C_noret_decl(f_18770) -static void C_ccall f_18770(C_word c,C_word *av) C_noret; -C_noret_decl(f_18780) -static void f_18780(C_word t0,C_word t1) C_noret; -C_noret_decl(f_18786) -static void f_18786(C_word t0,C_word t1) 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_18805) -static void C_ccall f_18805(C_word c,C_word *av) C_noret; -C_noret_decl(f_18828) -static void C_ccall f_18828(C_word c,C_word *av) C_noret; -C_noret_decl(f_18832) -static void C_ccall f_18832(C_word c,C_word *av) C_noret; -C_noret_decl(f_18842) -static void f_18842(C_word t0,C_word t1) C_noret; -C_noret_decl(f_18848) -static void f_18848(C_word t0,C_word t1) C_noret; -C_noret_decl(f_18855) -static void C_ccall f_18855(C_word c,C_word *av) C_noret; -C_noret_decl(f_18870) -static void C_ccall f_18870(C_word c,C_word *av) C_noret; -C_noret_decl(f_18874) -static void C_ccall f_18874(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_18911) -static void C_ccall f_18911(C_word c,C_word *av) C_noret; -C_noret_decl(f_18928) -static void C_ccall f_18928(C_word c,C_word *av) C_noret; -C_noret_decl(f_18938) -static void C_ccall f_18938(C_word c,C_word *av) C_noret; -C_noret_decl(f_19011) -static void C_ccall f_19011(C_word c,C_word *av) C_noret; -C_noret_decl(f_19025) -static void C_ccall f_19025(C_word c,C_word *av) C_noret; -C_noret_decl(f_19042) -static void C_ccall f_19042(C_word c,C_word *av) C_noret; -C_noret_decl(f_19058) -static void C_ccall f_19058(C_word c,C_word *av) C_noret; -C_noret_decl(f_19129) -static void C_ccall f_19129(C_word c,C_word *av) C_noret; -C_noret_decl(f_19133) -static void C_ccall f_19133(C_word c,C_word *av) C_noret; -C_noret_decl(f_19138) -static void C_ccall f_19138(C_word c,C_word *av) C_noret; -C_noret_decl(f_19148) -static void C_ccall f_19148(C_word c,C_word *av) C_noret; -C_noret_decl(f_19152) -static void C_ccall f_19152(C_word c,C_word *av) C_noret; -C_noret_decl(f_19167) -static void C_ccall f_19167(C_word c,C_word *av) C_noret; -C_noret_decl(f_19171) -static void C_ccall f_19171(C_word c,C_word *av) C_noret; -C_noret_decl(f_19188) -static void C_ccall f_19188(C_word c,C_word *av) C_noret; -C_noret_decl(f_19199) -static void C_ccall f_19199(C_word c,C_word *av) C_noret; -C_noret_decl(f_19205) -static void C_ccall f_19205(C_word c,C_word *av) C_noret; -C_noret_decl(f_19216) -static void C_ccall f_19216(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_19239) -static void C_ccall f_19239(C_word c,C_word *av) C_noret; -C_noret_decl(f_19251) -static void C_ccall f_19251(C_word c,C_word *av) C_noret; -C_noret_decl(f_19263) -static void C_ccall f_19263(C_word c,C_word *av) C_noret; -C_noret_decl(f_19280) -static void C_ccall f_19280(C_word c,C_word *av) C_noret; -C_noret_decl(f_19287) -static void C_ccall f_19287(C_word c,C_word *av) C_noret; -C_noret_decl(f_19291) -static void C_ccall f_19291(C_word c,C_word *av) C_noret; -C_noret_decl(f_19293) -static void C_ccall f_19293(C_word c,C_word *av) C_noret; -C_noret_decl(f_19300) -static void C_ccall f_19300(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_19312) -static void C_ccall f_19312(C_word c,C_word *av) C_noret; -C_noret_decl(f_19355) -static void C_ccall f_19355(C_word c,C_word *av) C_noret; -C_noret_decl(f_19361) -static void C_ccall f_19361(C_word c,C_word *av) C_noret; -C_noret_decl(f_19367) -static void C_ccall f_19367(C_word c,C_word *av) C_noret; -C_noret_decl(f_19370) -static void C_ccall f_19370(C_word c,C_word *av) C_noret; -C_noret_decl(f_19376) -static void C_ccall f_19376(C_word c,C_word *av) C_noret; -C_noret_decl(f_19382) -static void C_ccall f_19382(C_word c,C_word *av) C_noret; -C_noret_decl(f_19385) -static void C_ccall f_19385(C_word c,C_word *av) C_noret; -C_noret_decl(f_19391) -static void C_ccall f_19391(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_19398) -static void C_ccall f_19398(C_word c,C_word *av) C_noret; -C_noret_decl(f_19403) -static void C_ccall f_19403(C_word c,C_word *av) C_noret; -C_noret_decl(f_19413) -static void f_19413(C_word t0,C_word t1) 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_19448) -static void f_19448(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_19478) -static void C_ccall f_19478(C_word c,C_word *av) C_noret; -C_noret_decl(f_19489) -static void C_ccall f_19489(C_word c,C_word *av) C_noret; -C_noret_decl(f_19505) -static void C_ccall f_19505(C_word c,C_word *av) C_noret; -C_noret_decl(f_19509) -static void C_ccall f_19509(C_word c,C_word *av) C_noret; -C_noret_decl(f_19513) -static void C_ccall f_19513(C_word c,C_word *av) C_noret; -C_noret_decl(f_19529) -static void C_ccall f_19529(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_19558) -static void f_19558(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_19580) -static void C_ccall f_19580(C_word c,C_word *av) C_noret; -C_noret_decl(f_19597) -static void C_ccall f_19597(C_word c,C_word *av) C_noret; -C_noret_decl(f_19600) -static void f_19600(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_19612) -static void C_ccall f_19612(C_word c,C_word *av) C_noret; -C_noret_decl(f_19614) -static void f_19614(C_word t0,C_word t1,C_word t2) 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_19666) -static void C_ccall f_19666(C_word c,C_word *av) C_noret; -C_noret_decl(f_19670) -static void C_ccall f_19670(C_word c,C_word *av) C_noret; -C_noret_decl(f_19705) -static void C_ccall f_19705(C_word c,C_word *av) C_noret; -C_noret_decl(f_19712) -static void C_ccall f_19712(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_19744) -static void C_ccall f_19744(C_word c,C_word *av) C_noret; -C_noret_decl(f_19748) -static void C_ccall f_19748(C_word c,C_word *av) C_noret; -C_noret_decl(f_19768) -static void f_19768(C_word t0,C_word t1) C_noret; -C_noret_decl(f_19788) -static void C_ccall f_19788(C_word c,C_word *av) C_noret; -C_noret_decl(f_19792) -static void C_ccall f_19792(C_word c,C_word *av) C_noret; -C_noret_decl(f_19796) -static void C_ccall f_19796(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_19819) -static void C_ccall f_19819(C_word c,C_word *av) C_noret; -C_noret_decl(f_19823) -static void C_ccall f_19823(C_word c,C_word *av) C_noret; -C_noret_decl(f_19864) -static void f_19864(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_19897) -static void C_ccall f_19897(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_19934) -static void C_ccall f_19934(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_19960) -static void f_19960(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_19985) -static void C_ccall f_19985(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_19995) -static void C_ccall f_19995(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_20025) -static void f_20025(C_word t0,C_word t1,C_word t2,C_word t3) 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_20063) -static void C_ccall f_20063(C_word c,C_word *av) C_noret; -C_noret_decl(f_20070) -static void C_ccall f_20070(C_word c,C_word *av) C_noret; -C_noret_decl(f_20075) -static void C_ccall f_20075(C_word c,C_word *av) C_noret; -C_noret_decl(f_20081) -static void C_ccall f_20081(C_word c,C_word *av) C_noret; -C_noret_decl(f_20085) -static void C_ccall f_20085(C_word c,C_word *av) C_noret; -C_noret_decl(f_20088) -static void C_ccall f_20088(C_word c,C_word *av) C_noret; -C_noret_decl(f_20095) -static void C_ccall f_20095(C_word c,C_word *av) C_noret; -C_noret_decl(f_20113) -static void C_ccall f_20113(C_word c,C_word *av) C_noret; -C_noret_decl(f_20127) -static void C_ccall f_20127(C_word c,C_word *av) C_noret; -C_noret_decl(f_20131) -static void C_ccall f_20131(C_word c,C_word *av) C_noret; -C_noret_decl(f_20168) -static void C_ccall f_20168(C_word c,C_word *av) C_noret; -C_noret_decl(f_20176) -static void C_ccall f_20176(C_word c,C_word *av) C_noret; -C_noret_decl(f_20205) -static void C_ccall f_20205(C_word c,C_word *av) C_noret; -C_noret_decl(f_20208) -static void C_ccall f_20208(C_word c,C_word *av) C_noret; -C_noret_decl(f_20223) -static void C_ccall f_20223(C_word c,C_word *av) C_noret; -C_noret_decl(f_20226) -static void f_20226(C_word t0,C_word t1) 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_20244) -static void C_ccall f_20244(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_20287) -static void f_20287(C_word t0,C_word t1,C_word t2) 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_20330) -static void f_20330(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_20334) -static C_word f_20334(C_word t0,C_word t1); -C_noret_decl(f_20348) -static void f_20348(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_20408) -static void C_ccall f_20408(C_word c,C_word *av) C_noret; -C_noret_decl(f_20428) -static void f_20428(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20434) -static void f_20434(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20494) -static void f_20494(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20532) -static void f_20532(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20538) -static void f_20538(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20580) -static void f_20580(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_20584) -static void C_ccall f_20584(C_word c,C_word *av) C_noret; -C_noret_decl(f_20587) -static void C_ccall f_20587(C_word c,C_word *av) C_noret; -C_noret_decl(f_20636) -static void f_20636(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_20649) -static void f_20649(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20655) -static void C_ccall f_20655(C_word c,C_word *av) C_noret; -C_noret_decl(f_20689) -static void f_20689(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_20699) -static void C_ccall f_20699(C_word c,C_word *av) C_noret; -C_noret_decl(f_20708) -static void f_20708(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20720) -static void f_20720(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20729) -static void C_ccall f_20729(C_word c,C_word *av) C_noret; -C_noret_decl(f_20741) -static void C_ccall f_20741(C_word c,C_word *av) C_noret; -C_noret_decl(f_20747) -static void f_20747(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20753) -static void C_ccall f_20753(C_word c,C_word *av) C_noret; -C_noret_decl(f_20795) -static void C_ccall f_20795(C_word c,C_word *av) C_noret; -C_noret_decl(f_20901) -static void f_20901(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_20908) -static void f_20908(C_word t0,C_word t1) C_noret; -C_noret_decl(f_20921) -static void C_ccall f_20921(C_word c,C_word *av) C_noret; -C_noret_decl(f_20979) -static void f_20979(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_21007) -static void C_ccall f_21007(C_word c,C_word *av) C_noret; -C_noret_decl(f_21043) -static void C_ccall f_21043(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_21080) -static void C_ccall f_21080(C_word c,C_word *av) C_noret; -C_noret_decl(f_21243) -static void f_21243(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_21256) -static void f_21256(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21311) -static void f_21311(C_word t0,C_word t1) C_noret; -C_noret_decl(f_21349) -static void C_ccall f_21349(C_word c,C_word *av) C_noret; -C_noret_decl(f_21397) -static void C_ccall f_21397(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_21477) -static void C_ccall f_21477(C_word c,C_word *av) C_noret; -C_noret_decl(f_21489) -static void C_ccall f_21489(C_word c,C_word *av) C_noret; -C_noret_decl(f_21571) -static void C_ccall f_21571(C_word c,C_word *av) C_noret; -C_noret_decl(f_21635) -static void C_ccall f_21635(C_word c,C_word *av) C_noret; -C_noret_decl(f_21713) -static void C_ccall f_21713(C_word c,C_word *av) C_noret; -C_noret_decl(f_21723) -static void C_ccall f_21723(C_word c,C_word *av) C_noret; -C_noret_decl(f_21730) -static void f_21730(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_21962) -static void C_ccall f_21962(C_word c,C_word *av) C_noret; -C_noret_decl(f_22008) -static void C_ccall f_22008(C_word c,C_word *av) C_noret; -C_noret_decl(f_22011) -static void f_22011(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_22038) -static void f_22038(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22062) -static void C_ccall f_22062(C_word c,C_word *av) C_noret; -C_noret_decl(f_22079) -static void f_22079(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22195) -static void C_ccall f_22195(C_word c,C_word *av) C_noret; -C_noret_decl(f_22198) -static void C_ccall f_22198(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_22210) -static void C_ccall f_22210(C_word c,C_word *av) C_noret; -C_noret_decl(f_22216) -static void C_ccall f_22216(C_word c,C_word *av) C_noret; -C_noret_decl(f_22226) -static void C_ccall f_22226(C_word c,C_word *av) C_noret; -C_noret_decl(f_22229) -static void C_ccall f_22229(C_word c,C_word *av) C_noret; -C_noret_decl(f_22237) -static void C_ccall f_22237(C_word c,C_word *av) C_noret; -C_noret_decl(f_22239) -static void C_ccall f_22239(C_word c,C_word *av) C_noret; -C_noret_decl(f_22248) -static void C_ccall f_22248(C_word c,C_word *av) C_noret; -C_noret_decl(f_22257) -static void C_ccall f_22257(C_word c,C_word *av) C_noret; -C_noret_decl(f_22268) -static void C_ccall f_22268(C_word c,C_word *av) C_noret; -C_noret_decl(f_22270) -static void C_ccall f_22270(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_22291) -static void C_ccall f_22291(C_word c,C_word *av) C_noret; -C_noret_decl(f_22295) -static void C_ccall f_22295(C_word c,C_word *av) C_noret; -C_noret_decl(f_22299) -static void C_ccall f_22299(C_word c,C_word *av) C_noret; -C_noret_decl(f_22308) -static void C_ccall f_22308(C_word c,C_word *av) C_noret; -C_noret_decl(f_22328) -static void C_ccall f_22328(C_word c,C_word *av) C_noret; -C_noret_decl(f_22336) -static void C_ccall f_22336(C_word c,C_word *av) C_noret; -C_noret_decl(f_22351) -static void C_ccall f_22351(C_word c,C_word *av) C_noret; -C_noret_decl(f_22353) -static void f_22353(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_22378) -static void C_ccall f_22378(C_word c,C_word *av) C_noret; -C_noret_decl(f_22387) -static void C_ccall f_22387(C_word c,C_word *av) C_noret; -C_noret_decl(f_22390) -static void C_ccall f_22390(C_word c,C_word *av) C_noret; -C_noret_decl(f_22401) -static void C_ccall f_22401(C_word c,C_word *av) C_noret; -C_noret_decl(f_22403) -static void C_ccall f_22403(C_word c,C_word *av) C_noret; -C_noret_decl(f_22410) -static void C_ccall f_22410(C_word c,C_word *av) C_noret; -C_noret_decl(f_22421) -static void C_ccall f_22421(C_word c,C_word *av) C_noret; -C_noret_decl(f_22428) -static void C_ccall f_22428(C_word c,C_word *av) C_noret; -C_noret_decl(f_22452) -static void C_ccall f_22452(C_word c,C_word *av) C_noret; -C_noret_decl(f_22465) -static void f_22465(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22486) -static void C_ccall f_22486(C_word c,C_word *av) C_noret; -C_noret_decl(f_22493) -static void C_ccall f_22493(C_word c,C_word *av) C_noret; -C_noret_decl(f_22498) -static void f_22498(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22511) -static void C_ccall f_22511(C_word c,C_word *av) C_noret; -C_noret_decl(f_22525) -static void C_ccall f_22525(C_word c,C_word *av) C_noret; -C_noret_decl(f_22549) -static void C_ccall f_22549(C_word c,C_word *av) C_noret; -C_noret_decl(f_22555) -static void C_ccall f_22555(C_word c,C_word *av) C_noret; -C_noret_decl(f_22564) -static void C_ccall f_22564(C_word c,C_word *av) C_noret; -C_noret_decl(f_22567) -static void C_ccall f_22567(C_word c,C_word *av) C_noret; -C_noret_decl(f_22570) -static void C_ccall f_22570(C_word c,C_word *av) C_noret; -C_noret_decl(f_22584) -static void C_ccall f_22584(C_word c,C_word *av) C_noret; -C_noret_decl(f_22586) -static void C_ccall f_22586(C_word c,C_word *av) 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_22626) -static void C_ccall f_22626(C_word c,C_word *av) C_noret; -C_noret_decl(f_22643) -static void C_ccall f_22643(C_word c,C_word *av) C_noret; -C_noret_decl(f_22645) -static void C_ccall f_22645(C_word c,C_word *av) C_noret; -C_noret_decl(f_22655) -static void C_ccall f_22655(C_word c,C_word *av) C_noret; -C_noret_decl(f_22661) -static void C_ccall f_22661(C_word c,C_word *av) C_noret; -C_noret_decl(f_22683) -static void C_ccall f_22683(C_word c,C_word *av) C_noret; -C_noret_decl(f_22688) -static void C_ccall f_22688(C_word c,C_word *av) C_noret; -C_noret_decl(f_22693) -static C_word f_22693(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_22714) -static void C_ccall f_22714(C_word c,C_word *av) C_noret; -C_noret_decl(f_22739) -static void C_ccall f_22739(C_word c,C_word *av) C_noret; -C_noret_decl(f_22745) -static void f_22745(C_word t0,C_word t1) C_noret; -C_noret_decl(f_22751) -static void C_ccall f_22751(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_22795) -static void C_ccall f_22795(C_word c,C_word *av) C_noret; -C_noret_decl(f_22829) -static void f_22829(C_word t0,C_word t1) C_noret; -C_noret_decl(f_22832) -static void C_ccall f_22832(C_word c,C_word *av) C_noret; -C_noret_decl(f_22835) -static void C_ccall f_22835(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_22877) -static void C_ccall f_22877(C_word c,C_word *av) C_noret; -C_noret_decl(f_22883) -static void f_22883(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_22893) -static void C_ccall f_22893(C_word c,C_word *av) C_noret; -C_noret_decl(f_22898) -static C_word f_22898(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_22935) -static void C_ccall f_22935(C_word c,C_word *av) C_noret; -C_noret_decl(f_22942) -static void C_ccall f_22942(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_22980) -static void C_ccall f_22980(C_word c,C_word *av) C_noret; -C_noret_decl(f_22985) -static C_word f_22985(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_23016) -static void C_ccall f_23016(C_word c,C_word *av) C_noret; -C_noret_decl(f_23038) -static void C_ccall f_23038(C_word c,C_word *av) C_noret; -C_noret_decl(f_23041) -static void C_ccall f_23041(C_word c,C_word *av) C_noret; -C_noret_decl(f_23046) -static void f_23046(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_23064) -static void C_ccall f_23064(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_23108) -static void C_ccall f_23108(C_word c,C_word *av) C_noret; -C_noret_decl(f_23130) -static void C_ccall f_23130(C_word c,C_word *av) C_noret; -C_noret_decl(f_23133) -static void C_ccall f_23133(C_word c,C_word *av) C_noret; -C_noret_decl(f_23138) -static C_word f_23138(C_word t0,C_word t1); -C_noret_decl(f_23189) -static void C_ccall f_23189(C_word c,C_word *av) C_noret; -C_noret_decl(f_23206) -static void f_23206(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_23213) -static void C_ccall f_23213(C_word c,C_word *av) 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_23219) -static void C_ccall f_23219(C_word c,C_word *av) C_noret; -C_noret_decl(f_23224) -static C_word f_23224(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_23296) -static void C_ccall f_23296(C_word c,C_word *av) C_noret; -C_noret_decl(f_23316) -static void f_23316(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_23329) -static void C_ccall f_23329(C_word c,C_word *av) C_noret; -C_noret_decl(f_23332) -static void C_ccall f_23332(C_word c,C_word *av) C_noret; -C_noret_decl(f_23335) -static void C_ccall f_23335(C_word c,C_word *av) C_noret; -C_noret_decl(f_23338) -static void C_ccall f_23338(C_word c,C_word *av) C_noret; -C_noret_decl(f_23357) -static C_word f_23357(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_23391) -static C_word f_23391(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_23469) -static void C_ccall f_23469(C_word c,C_word *av) C_noret; -C_noret_decl(f_23484) -static void C_ccall f_23484(C_word c,C_word *av) C_noret; -C_noret_decl(f_23487) -static void C_ccall f_23487(C_word c,C_word *av) C_noret; -C_noret_decl(f_23492) -static void f_23492(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23502) -static void C_ccall f_23502(C_word c,C_word *av) C_noret; -C_noret_decl(f_23532) -static C_word f_23532(C_word t0,C_word t1); -C_noret_decl(f_23556) -static void f_23556(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_23590) -static C_word f_23590(C_word t0); -C_noret_decl(f_23613) -static void C_ccall f_23613(C_word c,C_word *av) C_noret; -C_noret_decl(f_23632) -static void C_ccall f_23632(C_word c,C_word *av) C_noret; -C_noret_decl(f_23635) -static void C_ccall f_23635(C_word c,C_word *av) C_noret; -C_noret_decl(f_23638) -static void C_ccall f_23638(C_word c,C_word *av) C_noret; -C_noret_decl(f_23643) -static C_word f_23643(C_word t0,C_word t1); -C_noret_decl(f_23676) -static void C_ccall f_23676(C_word c,C_word *av) C_noret; -C_noret_decl(f_23697) -static void f_23697(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_23701) -static void C_ccall f_23701(C_word c,C_word *av) C_noret; -C_noret_decl(f_23704) -static void C_ccall f_23704(C_word c,C_word *av) C_noret; -C_noret_decl(f_23709) -static C_word f_23709(C_word t0,C_word t1); -C_noret_decl(f_23736) -static void C_ccall f_23736(C_word c,C_word *av) C_noret; -C_noret_decl(f_23752) -static void f_23752(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23768) -static void C_ccall f_23768(C_word c,C_word *av) C_noret; -C_noret_decl(f_23785) -static void C_ccall f_23785(C_word c,C_word *av) C_noret; -C_noret_decl(f_23799) -static void f_23799(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23815) -static void C_ccall f_23815(C_word c,C_word *av) C_noret; -C_noret_decl(f_23828) -static void C_ccall f_23828(C_word c,C_word *av) C_noret; -C_noret_decl(f_23842) -static void f_23842(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23858) -static void C_ccall f_23858(C_word c,C_word *av) C_noret; -C_noret_decl(f_23871) -static void C_ccall f_23871(C_word c,C_word *av) C_noret; -C_noret_decl(f_23885) -static void f_23885(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23901) -static void C_ccall f_23901(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_23928) -static void f_23928(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_23944) -static void C_ccall f_23944(C_word c,C_word *av) C_noret; -C_noret_decl(f_23959) -static void C_ccall f_23959(C_word c,C_word *av) C_noret; -C_noret_decl(f_23961) -static void f_23961(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_23974) -static C_word f_23974(C_word t0,C_word t1); -C_noret_decl(f_24002) -static void C_ccall f_24002(C_word c,C_word *av) C_noret; -C_noret_decl(f_24015) -static void C_ccall f_24015(C_word c,C_word *av) C_noret; -C_noret_decl(f_24033) -static void C_ccall f_24033(C_word c,C_word *av) C_noret; -C_noret_decl(f_24036) -static void C_ccall f_24036(C_word c,C_word *av) C_noret; -C_noret_decl(f_24119) -static void C_ccall f_24119(C_word c,C_word *av) C_noret; -C_noret_decl(f_24122) -static void C_ccall f_24122(C_word c,C_word *av) C_noret; -C_noret_decl(f_24125) -static void C_ccall f_24125(C_word c,C_word *av) C_noret; -C_noret_decl(f_24128) -static void C_ccall f_24128(C_word c,C_word *av) C_noret; -C_noret_decl(f_24131) -static void C_ccall f_24131(C_word c,C_word *av) C_noret; -C_noret_decl(f_24134) -static void C_ccall f_24134(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_24140) -static void C_ccall f_24140(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_24146) -static void C_ccall f_24146(C_word c,C_word *av) C_noret; -C_noret_decl(f_24149) -static void C_ccall f_24149(C_word c,C_word *av) C_noret; -C_noret_decl(f_24152) -static void C_ccall f_24152(C_word c,C_word *av) C_noret; -C_noret_decl(f_24155) -static void C_ccall f_24155(C_word c,C_word *av) C_noret; -C_noret_decl(f_24158) -static void C_ccall f_24158(C_word c,C_word *av) C_noret; -C_noret_decl(f_24163) -static void C_ccall f_24163(C_word c,C_word *av) C_noret; -C_noret_decl(f_24169) -static void f_24169(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24185) -static void C_ccall f_24185(C_word c,C_word *av) C_noret; -C_noret_decl(f_24201) -static void C_ccall f_24201(C_word c,C_word *av) C_noret; -C_noret_decl(f_24207) -static void f_24207(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24227) -static void C_ccall f_24227(C_word c,C_word *av) C_noret; -C_noret_decl(f_24231) -static void C_ccall f_24231(C_word c,C_word *av) 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_24249) -static void C_ccall f_24249(C_word c,C_word *av) C_noret; -C_noret_decl(f_24255) -static void f_24255(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24287) -static void C_ccall f_24287(C_word c,C_word *av) C_noret; -C_noret_decl(f_24291) -static void C_ccall f_24291(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_24316) -static void f_24316(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24326) -static void C_ccall f_24326(C_word c,C_word *av) C_noret; -C_noret_decl(f_24346) -static void f_24346(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24353) -static void C_ccall f_24353(C_word c,C_word *av) C_noret; -C_noret_decl(f_24362) -static void C_ccall f_24362(C_word c,C_word *av) C_noret; -C_noret_decl(f_24369) -static void C_ccall f_24369(C_word c,C_word *av) C_noret; -C_noret_decl(f_24371) -static void C_ccall f_24371(C_word c,C_word *av) C_noret; -C_noret_decl(f_24377) -static void C_ccall f_24377(C_word c,C_word *av) C_noret; -C_noret_decl(f_24383) -static void C_ccall f_24383(C_word c,C_word *av) C_noret; -C_noret_decl(f_24401) -static void f_24401(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24426) -static void C_ccall f_24426(C_word c,C_word *av) C_noret; -C_noret_decl(f_24442) -static void f_24442(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24449) -static void C_ccall f_24449(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_24466) -static void C_ccall f_24466(C_word c,C_word *av) C_noret; -C_noret_decl(f_24470) -static void C_ccall f_24470(C_word c,C_word *av) C_noret; -C_noret_decl(f_24472) -static void C_ccall f_24472(C_word c,C_word *av) C_noret; -C_noret_decl(f_24478) -static void C_ccall f_24478(C_word c,C_word *av) C_noret; -C_noret_decl(f_24485) -static void C_ccall f_24485(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_24498) -static void C_ccall f_24498(C_word c,C_word *av) C_noret; -C_noret_decl(f_24506) -static void C_ccall f_24506(C_word c,C_word *av) C_noret; -C_noret_decl(f_24516) -static void C_ccall f_24516(C_word c,C_word *av) C_noret; -C_noret_decl(f_24522) -static void C_ccall f_24522(C_word c,C_word *av) C_noret; -C_noret_decl(f_24525) -static void C_ccall f_24525(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_24556) -static void f_24556(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_24572) -static void C_ccall f_24572(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_24601) -static void C_ccall f_24601(C_word c,C_word *av) C_noret; -C_noret_decl(f_24614) -static void C_ccall f_24614(C_word c,C_word *av) C_noret; -C_noret_decl(f_24618) -static void C_ccall f_24618(C_word c,C_word *av) C_noret; -C_noret_decl(f_24627) -static void C_ccall f_24627(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_24677) -static void C_ccall f_24677(C_word c,C_word *av) C_noret; -C_noret_decl(f_24681) -static void C_ccall f_24681(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_24687) -static void C_ccall f_24687(C_word c,C_word *av) C_noret; -C_noret_decl(f_24690) -static void C_ccall f_24690(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_24703) -static void C_ccall f_24703(C_word c,C_word *av) C_noret; -C_noret_decl(f_24714) -static void C_ccall f_24714(C_word c,C_word *av) C_noret; -C_noret_decl(f_24725) -static void C_ccall f_24725(C_word c,C_word *av) C_noret; -C_noret_decl(f_24736) -static void C_ccall f_24736(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_24751) -static C_word f_24751(C_word t0,C_word t1); -C_noret_decl(f_24757) -static C_word f_24757(C_word t0); -C_noret_decl(f_24762) -static C_word f_24762(C_word t0); -C_noret_decl(f_24797) -static void C_ccall f_24797(C_word c,C_word *av) C_noret; -C_noret_decl(f_24810) -static void C_ccall f_24810(C_word c,C_word *av) C_noret; -C_noret_decl(f_24812) -static C_word f_24812(C_word t0,C_word t1); -C_noret_decl(f_24818) -static C_word f_24818(C_word t0); -C_noret_decl(f_24823) -static C_word f_24823(C_word t0); -C_noret_decl(f_24858) -static void C_ccall f_24858(C_word c,C_word *av) C_noret; -C_noret_decl(f_24871) -static void C_ccall f_24871(C_word c,C_word *av) C_noret; -C_noret_decl(f_24873) -static C_word f_24873(C_word t0,C_word t1); -C_noret_decl(f_24879) -static C_word f_24879(C_word t0); -C_noret_decl(f_24884) -static C_word f_24884(C_word t0); -C_noret_decl(f_24919) -static void C_ccall f_24919(C_word c,C_word *av) C_noret; -C_noret_decl(f_24931) -static void C_ccall f_24931(C_word c,C_word *av) C_noret; -C_noret_decl(f_24933) -static void C_ccall f_24933(C_word c,C_word *av) C_noret; -C_noret_decl(f_24939) -static void C_ccall f_24939(C_word c,C_word *av) C_noret; -C_noret_decl(f_24946) -static void f_24946(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_24956) -static void C_ccall f_24956(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_24962) -static void C_ccall f_24962(C_word c,C_word *av) C_noret; -C_noret_decl(f_24968) -static void C_ccall f_24968(C_word c,C_word *av) C_noret; -C_noret_decl(f_24971) -static void C_ccall f_24971(C_word c,C_word *av) C_noret; -C_noret_decl(f_24978) -static void C_ccall f_24978(C_word c,C_word *av) C_noret; -C_noret_decl(f_24982) -static void C_ccall f_24982(C_word c,C_word *av) C_noret; -C_noret_decl(f_24986) -static void C_ccall f_24986(C_word c,C_word *av) C_noret; -C_noret_decl(f_24990) -static void C_ccall f_24990(C_word c,C_word *av) C_noret; -C_noret_decl(f_24996) -static void f_24996(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_25009) -static void C_ccall f_25009(C_word c,C_word *av) C_noret; -C_noret_decl(f_25053) -static void f_25053(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25063) -static void f_25063(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25176) -static void f_25176(C_word t0,C_word t1,C_word t2,C_word t3) 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_25213) -static void C_ccall f_25213(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_25225) -static void C_ccall f_25225(C_word c,C_word *av) C_noret; -C_noret_decl(f_25231) -static void C_ccall f_25231(C_word c,C_word *av) C_noret; -C_noret_decl(f_25237) -static void C_ccall f_25237(C_word c,C_word *av) C_noret; -C_noret_decl(f_25241) -static void C_ccall f_25241(C_word c,C_word *av) C_noret; -C_noret_decl(f_25246) -static void C_ccall f_25246(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_25256) -static void C_ccall f_25256(C_word c,C_word *av) C_noret; -C_noret_decl(f_25261) -static void C_ccall f_25261(C_word c,C_word *av) C_noret; -C_noret_decl(f_25265) -static void C_ccall f_25265(C_word c,C_word *av) C_noret; -C_noret_decl(f_25270) -static void C_ccall f_25270(C_word c,C_word *av) C_noret; -C_noret_decl(f_25276) -static void C_ccall f_25276(C_word c,C_word *av) C_noret; -C_noret_decl(f_25280) -static void C_ccall f_25280(C_word c,C_word *av) C_noret; -C_noret_decl(f_25285) -static void C_ccall f_25285(C_word c,C_word *av) C_noret; -C_noret_decl(f_25289) -static void C_ccall f_25289(C_word c,C_word *av) C_noret; -C_noret_decl(f_25294) -static void C_ccall f_25294(C_word c,C_word *av) C_noret; -C_noret_decl(f_25299) -static void C_ccall f_25299(C_word c,C_word *av) C_noret; -C_noret_decl(f_25305) -static void C_ccall f_25305(C_word c,C_word *av) C_noret; -C_noret_decl(f_25309) -static void C_ccall f_25309(C_word c,C_word *av) C_noret; -C_noret_decl(f_25314) -static void C_ccall f_25314(C_word c,C_word *av) C_noret; -C_noret_decl(f_25319) -static void C_ccall f_25319(C_word c,C_word *av) C_noret; -C_noret_decl(f_25323) -static void C_ccall f_25323(C_word c,C_word *av) C_noret; -C_noret_decl(f_25328) -static void C_ccall f_25328(C_word c,C_word *av) C_noret; -C_noret_decl(f_25333) -static void C_ccall f_25333(C_word c,C_word *av) C_noret; -C_noret_decl(f_25339) -static void C_ccall f_25339(C_word c,C_word *av) C_noret; -C_noret_decl(f_25343) -static void C_ccall f_25343(C_word c,C_word *av) C_noret; -C_noret_decl(f_25348) -static void C_ccall f_25348(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_25358) -static void C_ccall f_25358(C_word c,C_word *av) C_noret; -C_noret_decl(f_25379) -static void C_ccall f_25379(C_word c,C_word *av) C_noret; -C_noret_decl(f_25386) -static void C_ccall f_25386(C_word c,C_word *av) C_noret; -C_noret_decl(f_25392) -static void C_ccall f_25392(C_word c,C_word *av) C_noret; -C_noret_decl(f_25410) -static void C_ccall f_25410(C_word c,C_word *av) C_noret; -C_noret_decl(f_25419) -static void C_ccall f_25419(C_word c,C_word *av) C_noret; -C_noret_decl(f_25432) -static void f_25432(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_25440) -static void C_ccall f_25440(C_word c,C_word *av) C_noret; -C_noret_decl(f_25445) -static void f_25445(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_25482) -static void C_ccall f_25482(C_word c,C_word *av) C_noret; -C_noret_decl(f_25494) -static void C_ccall f_25494(C_word c,C_word *av) C_noret; -C_noret_decl(f_25504) -static void f_25504(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_25520) -static void C_ccall f_25520(C_word c,C_word *av) C_noret; -C_noret_decl(f_25533) -static void C_ccall f_25533(C_word c,C_word *av) C_noret; -C_noret_decl(f_25543) -static void C_ccall f_25543(C_word c,C_word *av) 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_25562) -static void C_ccall f_25562(C_word c,C_word *av) C_noret; -C_noret_decl(f_25568) -static void C_ccall f_25568(C_word c,C_word *av) C_noret; -C_noret_decl(f_25575) -static void C_ccall f_25575(C_word c,C_word *av) C_noret; -C_noret_decl(f_25582) -static void C_ccall f_25582(C_word c,C_word *av) C_noret; -C_noret_decl(f_25586) -static void C_ccall f_25586(C_word c,C_word *av) C_noret; -C_noret_decl(f_25589) -static void C_ccall f_25589(C_word c,C_word *av) C_noret; -C_noret_decl(f_25599) -static void C_ccall f_25599(C_word c,C_word *av) C_noret; -C_noret_decl(f_25603) -static void C_ccall f_25603(C_word c,C_word *av) C_noret; -C_noret_decl(f_25611) -static void C_ccall f_25611(C_word c,C_word *av) C_noret; -C_noret_decl(f_25614) -static void C_ccall f_25614(C_word c,C_word *av) C_noret; -C_noret_decl(f_25621) -static void C_ccall f_25621(C_word c,C_word *av) C_noret; -C_noret_decl(f_25624) -static void C_ccall f_25624(C_word c,C_word *av) C_noret; -C_noret_decl(f_25627) -static void C_ccall f_25627(C_word c,C_word *av) C_noret; -C_noret_decl(f_25630) -static void C_ccall f_25630(C_word c,C_word *av) C_noret; -C_noret_decl(f_25638) -static void C_ccall f_25638(C_word c,C_word *av) C_noret; -C_noret_decl(f_25646) -static void C_ccall f_25646(C_word c,C_word *av) C_noret; -C_noret_decl(f_25648) -static void C_ccall f_25648(C_word c,C_word *av) C_noret; -C_noret_decl(f_25664) -static void C_ccall f_25664(C_word c,C_word *av) C_noret; -C_noret_decl(f_25691) -static void C_ccall f_25691(C_word c,C_word *av) C_noret; -C_noret_decl(f_25695) -static void C_ccall f_25695(C_word c,C_word *av) C_noret; -C_noret_decl(f_25699) -static void C_ccall f_25699(C_word c,C_word *av) C_noret; -C_noret_decl(f_25703) -static void C_ccall f_25703(C_word c,C_word *av) C_noret; -C_noret_decl(f_25707) -static void C_ccall f_25707(C_word c,C_word *av) C_noret; -C_noret_decl(f_25711) -static void C_ccall f_25711(C_word c,C_word *av) C_noret; -C_noret_decl(f_25715) -static void C_ccall f_25715(C_word c,C_word *av) C_noret; -C_noret_decl(f_25719) -static void C_ccall f_25719(C_word c,C_word *av) C_noret; -C_noret_decl(f_25723) -static void C_ccall f_25723(C_word c,C_word *av) C_noret; -C_noret_decl(f_25727) -static void C_ccall f_25727(C_word c,C_word *av) C_noret; -C_noret_decl(f_25731) -static void C_ccall f_25731(C_word c,C_word *av) C_noret; -C_noret_decl(f_25735) -static void C_ccall f_25735(C_word c,C_word *av) C_noret; -C_noret_decl(f_25739) -static void C_ccall f_25739(C_word c,C_word *av) C_noret; -C_noret_decl(f_25743) -static void C_ccall f_25743(C_word c,C_word *av) C_noret; -C_noret_decl(f_25747) -static void C_ccall f_25747(C_word c,C_word *av) C_noret; -C_noret_decl(f_25751) -static void C_ccall f_25751(C_word c,C_word *av) C_noret; -C_noret_decl(f_25755) -static void C_ccall f_25755(C_word c,C_word *av) C_noret; -C_noret_decl(f_25759) -static void C_ccall f_25759(C_word c,C_word *av) C_noret; -C_noret_decl(f_25766) -static void C_ccall f_25766(C_word c,C_word *av) C_noret; -C_noret_decl(f_25773) -static void C_ccall f_25773(C_word c,C_word *av) C_noret; -C_noret_decl(f_25774) -static void f_25774(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_25778) -static void f_25778(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25781) -static void C_ccall f_25781(C_word c,C_word *av) C_noret; -C_noret_decl(f_25797) -static void C_ccall f_25797(C_word c,C_word *av) C_noret; -C_noret_decl(f_25808) -static void f_25808(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25816) -static void C_ccall f_25816(C_word c,C_word *av) C_noret; -C_noret_decl(f_25828) -static void f_25828(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_25837) -static void f_25837(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_25842) -static void f_25842(C_word t0,C_word t1) C_noret; -C_noret_decl(f_25898) -static void C_ccall f_25898(C_word c,C_word *av) C_noret; -C_noret_decl(f_25912) -static void C_ccall f_25912(C_word c,C_word *av) C_noret; -C_noret_decl(f_25924) -static void C_ccall f_25924(C_word c,C_word *av) C_noret; -C_noret_decl(f_25930) -static void C_ccall f_25930(C_word c,C_word *av) C_noret; -C_noret_decl(f_25955) -static void C_ccall f_25955(C_word c,C_word *av) C_noret; -C_noret_decl(f_25973) -static void C_ccall f_25973(C_word c,C_word *av) C_noret; -C_noret_decl(f_25977) -static void C_ccall f_25977(C_word c,C_word *av) C_noret; -C_noret_decl(f_26033) -static void C_ccall f_26033(C_word c,C_word *av) C_noret; -C_noret_decl(f_26042) -static void C_ccall f_26042(C_word c,C_word *av) C_noret; -C_noret_decl(f_26055) -static void C_ccall f_26055(C_word c,C_word *av) 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_26085) -static void C_ccall f_26085(C_word c,C_word *av) C_noret; -C_noret_decl(f_26105) -static void C_ccall f_26105(C_word c,C_word *av) C_noret; -C_noret_decl(f_26108) -static void C_ccall f_26108(C_word c,C_word *av) C_noret; -C_noret_decl(f_26113) -static void C_ccall f_26113(C_word c,C_word *av) C_noret; -C_noret_decl(f_26115) -static void C_ccall f_26115(C_word c,C_word *av) C_noret; -C_noret_decl(f_26123) -static void C_ccall f_26123(C_word c,C_word *av) C_noret; -C_noret_decl(f_26127) -static void C_ccall f_26127(C_word c,C_word *av) C_noret; -C_noret_decl(f_26131) -static void C_ccall f_26131(C_word c,C_word *av) C_noret; -C_noret_decl(f_26135) -static void C_ccall f_26135(C_word c,C_word *av) C_noret; -C_noret_decl(f_26139) -static void C_ccall f_26139(C_word c,C_word *av) C_noret; -C_noret_decl(f_26141) -static void C_ccall f_26141(C_word c,C_word *av) C_noret; -C_noret_decl(f_26149) -static void C_ccall f_26149(C_word c,C_word *av) C_noret; -C_noret_decl(f_26152) -static void C_ccall f_26152(C_word c,C_word *av) C_noret; -C_noret_decl(f_26162) -static void C_ccall f_26162(C_word c,C_word *av) C_noret; -C_noret_decl(f_26164) -static void C_ccall f_26164(C_word c,C_word *av) C_noret; -C_noret_decl(f_26172) -static void C_ccall f_26172(C_word c,C_word *av) C_noret; -C_noret_decl(f_26175) -static void C_ccall f_26175(C_word c,C_word *av) C_noret; -C_noret_decl(f_26185) -static void C_ccall f_26185(C_word c,C_word *av) C_noret; -C_noret_decl(f_26187) -static void C_ccall f_26187(C_word c,C_word *av) C_noret; -C_noret_decl(f_26194) -static void C_ccall f_26194(C_word c,C_word *av) C_noret; -C_noret_decl(f_26197) -static void C_ccall f_26197(C_word c,C_word *av) C_noret; -C_noret_decl(f_26200) -static void C_ccall f_26200(C_word c,C_word *av) C_noret; -C_noret_decl(f_26203) -static void C_ccall f_26203(C_word c,C_word *av) C_noret; -C_noret_decl(f_26205) -static void C_ccall f_26205(C_word c,C_word *av) C_noret; -C_noret_decl(f_26211) -static void f_26211(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_26220) -static void f_26220(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26228) -static void C_ccall f_26228(C_word c,C_word *av) C_noret; -C_noret_decl(f_26230) -static void f_26230(C_word t0,C_word t1,C_word t2) 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_26257) -static void f_26257(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26261) -static void C_ccall f_26261(C_word c,C_word *av) C_noret; -C_noret_decl(f_26266) -static void f_26266(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26270) -static void C_ccall f_26270(C_word c,C_word *av) C_noret; -C_noret_decl(f_26281) -static C_word f_26281(C_word *a,C_word t0,C_word t1,C_word t2); -C_noret_decl(f_26292) -static void f_26292(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26296) -static void C_ccall f_26296(C_word c,C_word *av) C_noret; -C_noret_decl(f_26320) -static void f_26320(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26326) -static void f_26326(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26336) -static void C_ccall f_26336(C_word c,C_word *av) C_noret; -C_noret_decl(f_26355) -static void C_ccall f_26355(C_word c,C_word *av) C_noret; -C_noret_decl(f_26379) -static void C_ccall f_26379(C_word c,C_word *av) C_noret; -C_noret_decl(f_26401) -static void f_26401(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26414) -static void C_ccall f_26414(C_word c,C_word *av) C_noret; -C_noret_decl(f_26434) -static void C_ccall f_26434(C_word c,C_word *av) C_noret; -C_noret_decl(f_26440) -static void f_26440(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26443) -static void f_26443(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26451) -static void C_ccall f_26451(C_word c,C_word *av) C_noret; -C_noret_decl(f_26453) -static void f_26453(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26466) -static void C_ccall f_26466(C_word c,C_word *av) C_noret; -C_noret_decl(f_26473) -static void C_ccall f_26473(C_word c,C_word *av) C_noret; -C_noret_decl(f_26482) -static void C_ccall f_26482(C_word c,C_word *av) C_noret; -C_noret_decl(f_26489) -static void C_ccall f_26489(C_word c,C_word *av) C_noret; -C_noret_decl(f_26491) -static void f_26491(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_26497) -static void f_26497(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26507) -static void C_ccall f_26507(C_word c,C_word *av) C_noret; -C_noret_decl(f_26510) -static void C_ccall f_26510(C_word c,C_word *av) C_noret; -C_noret_decl(f_26520) -static void C_ccall f_26520(C_word c,C_word *av) C_noret; -C_noret_decl(f_26523) -static void C_ccall f_26523(C_word c,C_word *av) C_noret; -C_noret_decl(f_26551) -static void f_26551(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26554) -static void f_26554(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26558) -static void C_ccall f_26558(C_word c,C_word *av) C_noret; -C_noret_decl(f_26561) -static void C_ccall f_26561(C_word c,C_word *av) C_noret; -C_noret_decl(f_26571) -static void C_ccall f_26571(C_word c,C_word *av) C_noret; -C_noret_decl(f_26573) -static C_word f_26573(C_word t0); -C_noret_decl(f_26577) -static void f_26577(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26586) -static void f_26586(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26590) -static void C_ccall f_26590(C_word c,C_word *av) C_noret; -C_noret_decl(f_26608) -static void C_ccall f_26608(C_word c,C_word *av) C_noret; -C_noret_decl(f_26629) -static void C_ccall f_26629(C_word c,C_word *av) C_noret; -C_noret_decl(f_26641) -static void f_26641(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26652) -static void C_ccall f_26652(C_word c,C_word *av) C_noret; -C_noret_decl(f_26655) -static void C_ccall f_26655(C_word c,C_word *av) C_noret; -C_noret_decl(f_26691) -static void f_26691(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_26699) -static void C_ccall f_26699(C_word c,C_word *av) C_noret; -C_noret_decl(f_26701) -static void f_26701(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26718) -static void C_ccall f_26718(C_word c,C_word *av) C_noret; -C_noret_decl(f_26731) -static void C_ccall f_26731(C_word c,C_word *av) C_noret; -C_noret_decl(f_26748) -static void C_ccall f_26748(C_word c,C_word *av) C_noret; -C_noret_decl(f_26765) -static void C_ccall f_26765(C_word c,C_word *av) 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_26799) -static void C_ccall f_26799(C_word c,C_word *av) C_noret; -C_noret_decl(f_26816) -static void C_ccall f_26816(C_word c,C_word *av) C_noret; -C_noret_decl(f_26833) -static void C_ccall f_26833(C_word c,C_word *av) C_noret; -C_noret_decl(f_26853) -static void C_ccall f_26853(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_26870) -static void C_ccall f_26870(C_word c,C_word *av) C_noret; -C_noret_decl(f_26877) -static void C_ccall f_26877(C_word c,C_word *av) C_noret; -C_noret_decl(f_26894) -static void C_ccall f_26894(C_word c,C_word *av) C_noret; -C_noret_decl(f_26901) -static void C_ccall f_26901(C_word c,C_word *av) C_noret; -C_noret_decl(f_26918) -static void f_26918(C_word t0,C_word t1) 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_26938) -static void f_26938(C_word t0,C_word t1) C_noret; -C_noret_decl(f_26943) -static void f_26943(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_26960) -static void C_ccall f_26960(C_word c,C_word *av) C_noret; -C_noret_decl(f_26975) -static void C_ccall f_26975(C_word c,C_word *av) C_noret; -C_noret_decl(f_26988) -static void C_ccall f_26988(C_word c,C_word *av) C_noret; -C_noret_decl(f_27010) -static void C_ccall f_27010(C_word c,C_word *av) C_noret; -C_noret_decl(f_27013) -static void C_ccall f_27013(C_word c,C_word *av) C_noret; -C_noret_decl(f_27042) -static void f_27042(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_27068) -static void C_ccall f_27068(C_word c,C_word *av) C_noret; -C_noret_decl(f_27079) -static void C_ccall f_27079(C_word c,C_word *av) C_noret; -C_noret_decl(f_27086) -static void C_ccall f_27086(C_word c,C_word *av) C_noret; -C_noret_decl(f_27184) -static void C_ccall f_27184(C_word c,C_word *av) C_noret; -C_noret_decl(f_27190) -static void f_27190(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_27199) -static void f_27199(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_27213) -static void C_ccall f_27213(C_word c,C_word *av) C_noret; -C_noret_decl(f_27216) -static void C_ccall f_27216(C_word c,C_word *av) C_noret; -C_noret_decl(f_27227) -static void C_ccall f_27227(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_27232) -static void C_ccall f_27232(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_27254) -static void f_27254(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_27258) -static void C_ccall f_27258(C_word c,C_word *av) C_noret; -C_noret_decl(f_27261) -static void f_27261(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27264) -static void C_ccall f_27264(C_word c,C_word *av) C_noret; -C_noret_decl(f_27274) -static void C_ccall f_27274(C_word c,C_word *av) C_noret; -C_noret_decl(f_27292) -static void C_ccall f_27292(C_word c,C_word *av) C_noret; -C_noret_decl(f_27295) -static void C_ccall f_27295(C_word c,C_word *av) C_noret; -C_noret_decl(f_27304) -static void f_27304(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27307) -static void C_ccall f_27307(C_word c,C_word *av) C_noret; -C_noret_decl(f_27310) -static void C_ccall f_27310(C_word c,C_word *av) C_noret; -C_noret_decl(f_27316) -static void C_ccall f_27316(C_word c,C_word *av) C_noret; -C_noret_decl(f_27329) -static void C_ccall f_27329(C_word c,C_word *av) C_noret; -C_noret_decl(f_27333) -static void C_ccall f_27333(C_word c,C_word *av) C_noret; -C_noret_decl(f_27337) -static void C_ccall f_27337(C_word c,C_word *av) C_noret; -C_noret_decl(f_27348) -static void C_ccall f_27348(C_word c,C_word *av) C_noret; -C_noret_decl(f_27352) -static void C_ccall f_27352(C_word c,C_word *av) C_noret; -C_noret_decl(f_27355) -static void C_ccall f_27355(C_word c,C_word *av) C_noret; -C_noret_decl(f_27383) -static void C_ccall f_27383(C_word c,C_word *av) C_noret; -C_noret_decl(f_27438) -static void C_ccall f_27438(C_word c,C_word *av) C_noret; -C_noret_decl(f_27442) -static void C_ccall f_27442(C_word c,C_word *av) C_noret; -C_noret_decl(f_27449) -static void C_ccall f_27449(C_word c,C_word *av) C_noret; -C_noret_decl(f_27451) -static void f_27451(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27455) -static void C_ccall f_27455(C_word c,C_word *av) C_noret; -C_noret_decl(f_27469) -static void f_27469(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_27475) -static void C_ccall f_27475(C_word c,C_word *av) C_noret; -C_noret_decl(f_27482) -static void C_ccall f_27482(C_word c,C_word *av) C_noret; -C_noret_decl(f_27489) -static void C_ccall f_27489(C_word c,C_word *av) C_noret; -C_noret_decl(f_27509) -static void C_ccall f_27509(C_word c,C_word *av) C_noret; -C_noret_decl(f_27538) -static void f_27538(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_27548) -static void C_ccall f_27548(C_word c,C_word *av) C_noret; -C_noret_decl(f_27551) -static void C_ccall f_27551(C_word c,C_word *av) C_noret; -C_noret_decl(f_27587) -static void C_ccall f_27587(C_word c,C_word *av) C_noret; -C_noret_decl(f_27589) -static void f_27589(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_27599) -static void C_ccall f_27599(C_word c,C_word *av) C_noret; -C_noret_decl(f_27602) -static void C_ccall f_27602(C_word c,C_word *av) C_noret; -C_noret_decl(f_27654) -static void C_ccall f_27654(C_word c,C_word *av) C_noret; -C_noret_decl(f_27656) -static void f_27656(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27664) -static void C_ccall f_27664(C_word c,C_word *av) C_noret; -C_noret_decl(f_27666) -static void f_27666(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_27676) -static void f_27676(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27691) -static void C_ccall f_27691(C_word c,C_word *av) C_noret; -C_noret_decl(f_27698) -static void C_ccall f_27698(C_word c,C_word *av) C_noret; -C_noret_decl(f_27718) -static void f_27718(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27726) -static void C_ccall f_27726(C_word c,C_word *av) C_noret; -C_noret_decl(f_27728) -static void f_27728(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_27744) -static void C_ccall f_27744(C_word c,C_word *av) C_noret; -C_noret_decl(f_27751) -static void C_ccall f_27751(C_word c,C_word *av) C_noret; -C_noret_decl(f_27764) -static void f_27764(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27770) -static void C_ccall f_27770(C_word c,C_word *av) C_noret; -C_noret_decl(f_27774) -static void C_ccall f_27774(C_word c,C_word *av) C_noret; -C_noret_decl(f_27781) -static void C_ccall f_27781(C_word c,C_word *av) C_noret; -C_noret_decl(f_27789) -static void f_27789(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_27794) -static void f_27794(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27799) -static void f_27799(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_27803) -static void C_ccall f_27803(C_word c,C_word *av) C_noret; -C_noret_decl(f_27812) -static void f_27812(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27818) -static void f_27818(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27825) -static void C_ccall f_27825(C_word c,C_word *av) C_noret; -C_noret_decl(f_27842) -static void C_ccall f_27842(C_word c,C_word *av) C_noret; -C_noret_decl(f_27848) -static void f_27848(C_word t0,C_word t1) C_noret; -C_noret_decl(f_27858) -static void C_ccall f_27858(C_word c,C_word *av) C_noret; -C_noret_decl(f_27909) -static void C_ccall f_27909(C_word c,C_word *av) C_noret; -C_noret_decl(f_27918) -static void C_ccall f_27918(C_word c,C_word *av) C_noret; -C_noret_decl(f_27925) -static void C_ccall f_27925(C_word c,C_word *av) C_noret; -C_noret_decl(f_27929) -static void C_ccall f_27929(C_word c,C_word *av) C_noret; -C_noret_decl(f_27933) -static void C_ccall f_27933(C_word c,C_word *av) C_noret; -C_noret_decl(f_27942) -static void C_ccall f_27942(C_word c,C_word *av) 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_27975) -static void C_ccall f_27975(C_word c,C_word *av) C_noret; -C_noret_decl(f_28002) -static void C_ccall f_28002(C_word c,C_word *av) C_noret; -C_noret_decl(f_28034) -static void C_ccall f_28034(C_word c,C_word *av) C_noret; -C_noret_decl(f_28038) -static void C_ccall f_28038(C_word c,C_word *av) C_noret; -C_noret_decl(f_28040) -static void f_28040(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28044) -static void C_ccall f_28044(C_word c,C_word *av) C_noret; -C_noret_decl(f_28047) -static void C_ccall f_28047(C_word c,C_word *av) C_noret; -C_noret_decl(f_28059) -static void C_ccall f_28059(C_word c,C_word *av) C_noret; -C_noret_decl(f_28079) -static void f_28079(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28085) -static void C_ccall f_28085(C_word c,C_word *av) C_noret; -C_noret_decl(f_28095) -static void C_ccall f_28095(C_word c,C_word *av) C_noret; -C_noret_decl(f_28232) -static void f_28232(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28239) -static void C_ccall f_28239(C_word c,C_word *av) C_noret; -C_noret_decl(f_28257) -static void f_28257(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28263) -static void f_28263(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_28267) -static void C_ccall f_28267(C_word c,C_word *av) C_noret; -C_noret_decl(f_28303) -static void C_ccall f_28303(C_word c,C_word *av) C_noret; -C_noret_decl(f_28326) -static void C_ccall f_28326(C_word c,C_word *av) C_noret; -C_noret_decl(f_28344) -static void f_28344(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28348) -static void C_ccall f_28348(C_word c,C_word *av) C_noret; -C_noret_decl(f_28355) -static void C_ccall f_28355(C_word c,C_word *av) C_noret; -C_noret_decl(f_28357) -static void f_28357(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_28361) -static void C_ccall f_28361(C_word c,C_word *av) C_noret; -C_noret_decl(f_28372) -static void C_ccall f_28372(C_word c,C_word *av) C_noret; -C_noret_decl(f_28392) -static void C_ccall f_28392(C_word c,C_word *av) C_noret; -C_noret_decl(f_28395) -static void C_ccall f_28395(C_word c,C_word *av) C_noret; -C_noret_decl(f_28398) -static void C_ccall f_28398(C_word c,C_word *av) C_noret; -C_noret_decl(f_28412) -static void C_ccall f_28412(C_word c,C_word *av) C_noret; -C_noret_decl(f_28418) -static void C_ccall f_28418(C_word c,C_word *av) C_noret; -C_noret_decl(f_28440) -static void C_ccall f_28440(C_word c,C_word *av) C_noret; -C_noret_decl(f_28452) -static void C_ccall f_28452(C_word c,C_word *av) C_noret; -C_noret_decl(f_28464) -static void C_ccall f_28464(C_word c,C_word *av) C_noret; -C_noret_decl(f_28473) -static void C_ccall f_28473(C_word c,C_word *av) C_noret; -C_noret_decl(f_28483) -static void C_ccall f_28483(C_word c,C_word *av) C_noret; -C_noret_decl(f_28492) -static void C_ccall f_28492(C_word c,C_word *av) C_noret; -C_noret_decl(f_28495) -static void C_ccall f_28495(C_word c,C_word *av) C_noret; -C_noret_decl(f_28513) -static void C_ccall f_28513(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_28537) -static void C_ccall f_28537(C_word c,C_word *av) C_noret; -C_noret_decl(f_28543) -static void C_ccall f_28543(C_word c,C_word *av) C_noret; -C_noret_decl(f_28546) -static void C_ccall f_28546(C_word c,C_word *av) C_noret; -C_noret_decl(f_28556) -static void C_ccall f_28556(C_word c,C_word *av) C_noret; -C_noret_decl(f_28575) -static void f_28575(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_28583) -static void C_ccall f_28583(C_word c,C_word *av) C_noret; -C_noret_decl(f_28585) -static void C_ccall f_28585(C_word c,C_word *av) C_noret; -C_noret_decl(f_28591) -static void C_ccall f_28591(C_word c,C_word *av) C_noret; -C_noret_decl(f_28622) -static void C_ccall f_28622(C_word c,C_word *av) C_noret; -C_noret_decl(f_28645) -static void C_ccall f_28645(C_word c,C_word *av) C_noret; -C_noret_decl(f_28659) -static void C_ccall f_28659(C_word c,C_word *av) C_noret; -C_noret_decl(f_28665) -static void C_ccall f_28665(C_word c,C_word *av) C_noret; -C_noret_decl(f_28690) -static void C_ccall f_28690(C_word c,C_word *av) C_noret; -C_noret_decl(f_28702) -static void C_ccall f_28702(C_word c,C_word *av) C_noret; -C_noret_decl(f_28714) -static void C_ccall f_28714(C_word c,C_word *av) C_noret; -C_noret_decl(f_28726) -static void C_ccall f_28726(C_word c,C_word *av) C_noret; -C_noret_decl(f_28738) -static void C_ccall f_28738(C_word c,C_word *av) C_noret; -C_noret_decl(f_28750) -static void C_ccall f_28750(C_word c,C_word *av) C_noret; -C_noret_decl(f_28771) -static void C_ccall f_28771(C_word c,C_word *av) C_noret; -C_noret_decl(f_28783) -static void C_ccall f_28783(C_word c,C_word *av) C_noret; -C_noret_decl(f_28786) -static void C_ccall f_28786(C_word c,C_word *av) C_noret; -C_noret_decl(f_28798) -static void C_ccall f_28798(C_word c,C_word *av) C_noret; -C_noret_decl(f_28810) -static void C_ccall f_28810(C_word c,C_word *av) C_noret; -C_noret_decl(f_28813) -static void C_ccall f_28813(C_word c,C_word *av) C_noret; -C_noret_decl(f_28825) -static void C_ccall f_28825(C_word c,C_word *av) C_noret; -C_noret_decl(f_28837) -static void C_ccall f_28837(C_word c,C_word *av) C_noret; -C_noret_decl(f_28849) -static void C_ccall f_28849(C_word c,C_word *av) C_noret; -C_noret_decl(f_28852) -static void C_ccall f_28852(C_word c,C_word *av) C_noret; -C_noret_decl(f_28857) -static void C_ccall f_28857(C_word c,C_word *av) C_noret; -C_noret_decl(f_28862) -static void C_ccall f_28862(C_word c,C_word *av) C_noret; -C_noret_decl(f_28868) -static void C_ccall f_28868(C_word c,C_word *av) C_noret; -C_noret_decl(f_28897) -static void C_ccall f_28897(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_28912) -static void C_ccall f_28912(C_word c,C_word *av) C_noret; -C_noret_decl(f_28915) -static void C_ccall f_28915(C_word c,C_word *av) C_noret; -C_noret_decl(f_28930) -static void C_ccall f_28930(C_word c,C_word *av) C_noret; -C_noret_decl(f_28939) -static void C_ccall f_28939(C_word c,C_word *av) C_noret; -C_noret_decl(f_28942) -static void C_ccall f_28942(C_word c,C_word *av) C_noret; -C_noret_decl(f_28948) -static void f_28948(C_word t0,C_word t1) C_noret; -C_noret_decl(f_28951) -static void C_ccall f_28951(C_word c,C_word *av) C_noret; -C_noret_decl(f_28957) -static void C_ccall f_28957(C_word c,C_word *av) C_noret; -C_noret_decl(f_29004) -static void C_ccall f_29004(C_word c,C_word *av) C_noret; -C_noret_decl(f_29023) -static void C_ccall f_29023(C_word c,C_word *av) C_noret; -C_noret_decl(f_29039) -static void C_ccall f_29039(C_word c,C_word *av) C_noret; -C_noret_decl(f_29045) -static void C_ccall f_29045(C_word c,C_word *av) C_noret; -C_noret_decl(f_29115) -static void C_ccall f_29115(C_word c,C_word *av) C_noret; -C_noret_decl(f_29127) -static void C_ccall f_29127(C_word c,C_word *av) C_noret; -C_noret_decl(f_29205) -static void C_ccall f_29205(C_word c,C_word *av) C_noret; -C_noret_decl(f_29279) -static void C_ccall f_29279(C_word c,C_word *av) C_noret; -C_noret_decl(f_29282) -static void C_ccall f_29282(C_word c,C_word *av) C_noret; -C_noret_decl(f_29285) -static void C_ccall f_29285(C_word c,C_word *av) C_noret; -C_noret_decl(f_29293) -static void C_ccall f_29293(C_word c,C_word *av) C_noret; -C_noret_decl(f_29303) -static void C_ccall f_29303(C_word c,C_word *av) C_noret; -C_noret_decl(f_29308) -static void C_ccall f_29308(C_word c,C_word *av) C_noret; -C_noret_decl(f_29311) -static void f_29311(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29324) -static void f_29324(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29327) -static void C_ccall f_29327(C_word c,C_word *av) C_noret; -C_noret_decl(f_29363) -static void C_ccall f_29363(C_word c,C_word *av) C_noret; -C_noret_decl(f_29379) -static void C_ccall f_29379(C_word c,C_word *av) C_noret; -C_noret_decl(f_29429) -static void C_ccall f_29429(C_word c,C_word *av) C_noret; -C_noret_decl(f_29433) -static void C_ccall f_29433(C_word c,C_word *av) C_noret; -C_noret_decl(f_29460) -static void C_ccall f_29460(C_word c,C_word *av) C_noret; -C_noret_decl(f_29466) -static void f_29466(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_29482) -static void f_29482(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29522) -static void C_ccall f_29522(C_word c,C_word *av) C_noret; -C_noret_decl(f_29524) -static void f_29524(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_29531) -static void f_29531(C_word t0,C_word t1) C_noret; -C_noret_decl(f_29588) -static void C_ccall f_29588(C_word c,C_word *av) C_noret; -C_noret_decl(f_29595) -static void C_ccall f_29595(C_word c,C_word *av) C_noret; -C_noret_decl(f_29604) -static void C_ccall f_29604(C_word c,C_word *av) C_noret; -C_noret_decl(f_29616) -static void C_ccall f_29616(C_word c,C_word *av) C_noret; -C_noret_decl(f_29637) -static void C_ccall f_29637(C_word c,C_word *av) C_noret; -C_noret_decl(f_29652) -static void C_ccall f_29652(C_word c,C_word *av) C_noret; -C_noret_decl(f_29670) -static void C_ccall f_29670(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_29707) -static void f_29707(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29717) -static void C_ccall f_29717(C_word c,C_word *av) C_noret; -C_noret_decl(f_29731) -static void C_ccall f_29731(C_word c,C_word *av) C_noret; -C_noret_decl(f_29734) -static void C_ccall f_29734(C_word c,C_word *av) C_noret; -C_noret_decl(f_29739) -static void C_ccall f_29739(C_word c,C_word *av) C_noret; -C_noret_decl(f_29758) -static void f_29758(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29768) -static void C_ccall f_29768(C_word c,C_word *av) C_noret; -C_noret_decl(f_29782) -static void C_ccall f_29782(C_word c,C_word *av) C_noret; -C_noret_decl(f_29785) -static void C_ccall f_29785(C_word c,C_word *av) C_noret; -C_noret_decl(f_29792) -static void C_ccall f_29792(C_word c,C_word *av) C_noret; -C_noret_decl(f_29796) -static void C_ccall f_29796(C_word c,C_word *av) 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_29802) -static void C_ccall f_29802(C_word c,C_word *av) C_noret; -C_noret_decl(f_29809) -static void C_ccall f_29809(C_word c,C_word *av) C_noret; -C_noret_decl(f_29812) -static void C_ccall f_29812(C_word c,C_word *av) C_noret; -C_noret_decl(f_29815) -static void C_ccall f_29815(C_word c,C_word *av) C_noret; -C_noret_decl(f_29818) -static void C_ccall f_29818(C_word c,C_word *av) C_noret; -C_noret_decl(f_29820) -static void f_29820(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_29830) -static void C_ccall f_29830(C_word c,C_word *av) C_noret; -C_noret_decl(f_29836) -static void C_ccall f_29836(C_word c,C_word *av) C_noret; -C_noret_decl(f_29848) -static void C_ccall f_29848(C_word c,C_word *av) C_noret; -C_noret_decl(f_29851) -static void C_ccall f_29851(C_word c,C_word *av) C_noret; -C_noret_decl(f_29854) -static void C_ccall f_29854(C_word c,C_word *av) C_noret; -C_noret_decl(f_29871) -static void C_ccall f_29871(C_word c,C_word *av) C_noret; -C_noret_decl(f_29879) -static void f_29879(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_29903) -static void f_29903(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_29907) -static void C_ccall f_29907(C_word c,C_word *av) C_noret; -C_noret_decl(f_29920) -static void C_ccall f_29920(C_word c,C_word *av) C_noret; -C_noret_decl(f_29923) -static void C_ccall f_29923(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_29963) -static void f_29963(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_29967) -static void C_ccall f_29967(C_word c,C_word *av) C_noret; -C_noret_decl(f_29976) -static void C_ccall f_29976(C_word c,C_word *av) C_noret; -C_noret_decl(f_29993) -static void f_29993(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_30000) -static void C_ccall f_30000(C_word c,C_word *av) C_noret; -C_noret_decl(f_30005) -static void f_30005(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_30029) -static void C_ccall f_30029(C_word c,C_word *av) C_noret; -C_noret_decl(f_30035) -static void C_ccall f_30035(C_word c,C_word *av) C_noret; -C_noret_decl(f_30038) -static void C_ccall f_30038(C_word c,C_word *av) C_noret; -C_noret_decl(f_30049) -static void C_ccall f_30049(C_word c,C_word *av) C_noret; -C_noret_decl(f_30052) -static void C_ccall f_30052(C_word c,C_word *av) C_noret; -C_noret_decl(f_30055) -static void C_ccall f_30055(C_word c,C_word *av) C_noret; -C_noret_decl(f_30078) -static void f_30078(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_30129) -static void f_30129(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_30204) -static void f_30204(C_word t0,C_word t1) C_noret; -C_noret_decl(f_30304) -static void C_ccall f_30304(C_word c,C_word *av) C_noret; -C_noret_decl(f_30309) -static void f_30309(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_30364) -static void C_ccall f_30364(C_word c,C_word *av) C_noret; -C_noret_decl(f_30370) -static void C_ccall f_30370(C_word c,C_word *av) C_noret; -C_noret_decl(f_30374) -static void f_30374(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_30382) -static void C_ccall f_30382(C_word c,C_word *av) C_noret; -C_noret_decl(f_30397) -static void C_ccall f_30397(C_word c,C_word *av) C_noret; -C_noret_decl(f_30404) -static void C_ccall f_30404(C_word c,C_word *av) C_noret; -C_noret_decl(f_30423) -static void C_ccall f_30423(C_word c,C_word *av) C_noret; -C_noret_decl(f_30459) -static void C_ccall f_30459(C_word c,C_word *av) C_noret; -C_noret_decl(f_30471) -static void C_ccall f_30471(C_word c,C_word *av) C_noret; -C_noret_decl(f_30477) -static void C_ccall f_30477(C_word c,C_word *av) C_noret; -C_noret_decl(f_30506) -static void C_ccall f_30506(C_word c,C_word *av) C_noret; -C_noret_decl(f_30516) -static void C_ccall f_30516(C_word c,C_word *av) C_noret; -C_noret_decl(f_30525) -static void C_ccall f_30525(C_word c,C_word *av) C_noret; -C_noret_decl(f_30534) -static void f_30534(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_30550) -static void C_ccall f_30550(C_word c,C_word *av) C_noret; -C_noret_decl(f_30588) -static void C_ccall f_30588(C_word c,C_word *av) C_noret; -C_noret_decl(f_30654) -static void C_ccall f_30654(C_word c,C_word *av) C_noret; -C_noret_decl(f_30657) -static void C_ccall f_30657(C_word c,C_word *av) C_noret; -C_noret_decl(f_30660) -static void C_ccall f_30660(C_word c,C_word *av) C_noret; -C_noret_decl(f_30667) -static void C_ccall f_30667(C_word c,C_word *av) C_noret; -C_noret_decl(f_30711) -static void C_ccall f_30711(C_word c,C_word *av) C_noret; -C_noret_decl(f_30714) -static void C_ccall f_30714(C_word c,C_word *av) C_noret; -C_noret_decl(f_30723) -static void f_30723(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_30736) -static void C_ccall f_30736(C_word c,C_word *av) C_noret; -C_noret_decl(f_30745) -static void C_ccall f_30745(C_word c,C_word *av) C_noret; -C_noret_decl(f_30755) -static void C_ccall f_30755(C_word c,C_word *av) C_noret; -C_noret_decl(f_30758) -static void C_ccall f_30758(C_word c,C_word *av) C_noret; -C_noret_decl(f_30784) -static void C_ccall f_30784(C_word c,C_word *av) C_noret; -C_noret_decl(f_30791) -static void C_ccall f_30791(C_word c,C_word *av) C_noret; -C_noret_decl(f_30807) -static void C_ccall f_30807(C_word c,C_word *av) C_noret; -C_noret_decl(f_30819) -static void C_ccall f_30819(C_word c,C_word *av) C_noret; -C_noret_decl(f_30822) -static void C_ccall f_30822(C_word c,C_word *av) C_noret; -C_noret_decl(f_30829) -static void C_ccall f_30829(C_word c,C_word *av) C_noret; -C_noret_decl(f_30838) -static void C_ccall f_30838(C_word c,C_word *av) C_noret; -C_noret_decl(f_30841) -static void C_ccall f_30841(C_word c,C_word *av) C_noret; -C_noret_decl(f_30888) -static void C_ccall f_30888(C_word c,C_word *av) C_noret; -C_noret_decl(f_30891) -static void C_ccall f_30891(C_word c,C_word *av) C_noret; -C_noret_decl(f_30900) -static void f_30900(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_30913) -static void C_ccall f_30913(C_word c,C_word *av) C_noret; -C_noret_decl(f_30916) -static void C_ccall f_30916(C_word c,C_word *av) C_noret; -C_noret_decl(f_30941) -static void C_ccall f_30941(C_word c,C_word *av) C_noret; -C_noret_decl(f_30945) -static void C_ccall f_30945(C_word c,C_word *av) C_noret; -C_noret_decl(f_30955) -static void C_ccall f_30955(C_word c,C_word *av) C_noret; -C_noret_decl(f_30958) -static void C_ccall f_30958(C_word c,C_word *av) C_noret; -C_noret_decl(f_30970) -static void C_ccall f_30970(C_word c,C_word *av) C_noret; -C_noret_decl(f_30974) -static void C_ccall f_30974(C_word c,C_word *av) C_noret; -C_noret_decl(f_30996) -static void C_ccall f_30996(C_word c,C_word *av) C_noret; -C_noret_decl(f_30998) -static void C_ccall f_30998(C_word c,C_word *av) C_noret; -C_noret_decl(f_31014) -static void C_ccall f_31014(C_word c,C_word *av) C_noret; -C_noret_decl(f_31019) -static void C_ccall f_31019(C_word c,C_word *av) C_noret; -C_noret_decl(f_31025) -static void C_ccall f_31025(C_word c,C_word *av) C_noret; -C_noret_decl(f_31031) -static void C_ccall f_31031(C_word c,C_word *av) C_noret; -C_noret_decl(f_31035) -static void C_ccall f_31035(C_word c,C_word *av) C_noret; -C_noret_decl(f_31038) -static void C_ccall f_31038(C_word c,C_word *av) C_noret; -C_noret_decl(f_31053) -static void C_ccall f_31053(C_word c,C_word *av) C_noret; -C_noret_decl(f_31056) -static void C_ccall f_31056(C_word c,C_word *av) C_noret; -C_noret_decl(f_31072) -static void C_ccall f_31072(C_word c,C_word *av) C_noret; -C_noret_decl(f_31078) -static void C_ccall f_31078(C_word c,C_word *av) C_noret; -C_noret_decl(f_31087) -static void C_ccall f_31087(C_word c,C_word *av) C_noret; -C_noret_decl(f_31093) -static void C_ccall f_31093(C_word c,C_word *av) C_noret; -C_noret_decl(f_31100) -static void C_ccall f_31100(C_word c,C_word *av) C_noret; -C_noret_decl(f_31103) -static void C_ccall f_31103(C_word c,C_word *av) C_noret; -C_noret_decl(f_31106) -static void C_ccall f_31106(C_word c,C_word *av) C_noret; -C_noret_decl(f_31115) -static void C_ccall f_31115(C_word c,C_word *av) C_noret; -C_noret_decl(f_31131) -static void C_ccall f_31131(C_word c,C_word *av) C_noret; -C_noret_decl(f_31150) -static void C_ccall f_31150(C_word c,C_word *av) C_noret; -C_noret_decl(f_31156) -static void C_ccall f_31156(C_word c,C_word *av) C_noret; -C_noret_decl(f_31162) -static void C_ccall f_31162(C_word c,C_word *av) C_noret; -C_noret_decl(f_31166) -static void C_ccall f_31166(C_word c,C_word *av) C_noret; -C_noret_decl(f_31169) -static void C_ccall f_31169(C_word c,C_word *av) C_noret; -C_noret_decl(f_31172) -static void C_ccall f_31172(C_word c,C_word *av) C_noret; -C_noret_decl(f_31176) -static void C_ccall f_31176(C_word c,C_word *av) C_noret; -C_noret_decl(f_31180) -static void C_ccall f_31180(C_word c,C_word *av) C_noret; -C_noret_decl(f_31184) -static void C_ccall f_31184(C_word c,C_word *av) C_noret; -C_noret_decl(f_31187) -static void C_ccall f_31187(C_word c,C_word *av) C_noret; -C_noret_decl(f_31190) -static void C_ccall f_31190(C_word c,C_word *av) C_noret; -C_noret_decl(f_31193) -static void C_ccall f_31193(C_word c,C_word *av) C_noret; -C_noret_decl(f_31205) -static void C_ccall f_31205(C_word c,C_word *av) C_noret; -C_noret_decl(f_31211) -static void C_ccall f_31211(C_word c,C_word *av) C_noret; -C_noret_decl(f_31215) -static void C_ccall f_31215(C_word c,C_word *av) C_noret; -C_noret_decl(f_31218) -static void C_ccall f_31218(C_word c,C_word *av) C_noret; -C_noret_decl(f_31221) -static void C_ccall f_31221(C_word c,C_word *av) C_noret; -C_noret_decl(f_31224) -static void C_ccall f_31224(C_word c,C_word *av) C_noret; -C_noret_decl(f_31227) -static void C_ccall f_31227(C_word c,C_word *av) C_noret; -C_noret_decl(f_31230) -static void C_ccall f_31230(C_word c,C_word *av) C_noret; -C_noret_decl(f_31235) -static void C_ccall f_31235(C_word c,C_word *av) C_noret; -C_noret_decl(f_31257) -static void C_ccall f_31257(C_word c,C_word *av) C_noret; -C_noret_decl(f_31263) -static void C_ccall f_31263(C_word c,C_word *av) C_noret; -C_noret_decl(f_31288) -static void C_ccall f_31288(C_word c,C_word *av) C_noret; -C_noret_decl(f_31295) -static void C_ccall f_31295(C_word c,C_word *av) C_noret; -C_noret_decl(f_31297) -static void f_31297(C_word t0,C_word t1) C_noret; -C_noret_decl(f_31304) -static void C_ccall f_31304(C_word c,C_word *av) C_noret; -C_noret_decl(f_31308) -static void f_31308(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_31315) -static void C_ccall f_31315(C_word c,C_word *av) C_noret; -C_noret_decl(f_31331) -static void f_31331(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_31335) -static void C_ccall f_31335(C_word c,C_word *av) C_noret; -C_noret_decl(f_31351) -static void f_31351(C_word t0,C_word t1) C_noret; -C_noret_decl(f_31366) -static void f_31366(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_31376) -static void C_ccall f_31376(C_word c,C_word *av) C_noret; -C_noret_decl(f_31381) -static void C_ccall f_31381(C_word c,C_word *av) C_noret; -C_noret_decl(f_31387) -static void C_ccall f_31387(C_word c,C_word *av) C_noret; -C_noret_decl(f_31401) -static void C_ccall f_31401(C_word c,C_word *av) C_noret; -C_noret_decl(f_31410) -static void C_ccall f_31410(C_word c,C_word *av) C_noret; -C_noret_decl(f_31421) -static void C_ccall f_31421(C_word c,C_word *av) C_noret; -C_noret_decl(f_31427) -static void f_31427(C_word t0,C_word t1) C_noret; -C_noret_decl(f_31430) -static void C_ccall f_31430(C_word c,C_word *av) C_noret; -C_noret_decl(f_31441) -static void C_ccall f_31441(C_word c,C_word *av) C_noret; -C_noret_decl(f_31450) -static void C_ccall f_31450(C_word c,C_word *av) C_noret; -C_noret_decl(f_31455) -static void C_ccall f_31455(C_word c,C_word *av) C_noret; -C_noret_decl(f_31461) -static void C_ccall f_31461(C_word c,C_word *av) C_noret; -C_noret_decl(f_31482) -static void C_ccall f_31482(C_word c,C_word *av) C_noret; -C_noret_decl(f_31485) -static void C_ccall f_31485(C_word c,C_word *av) C_noret; -C_noret_decl(f_31492) -static void C_ccall f_31492(C_word c,C_word *av) C_noret; -C_noret_decl(f_31499) -static void C_ccall f_31499(C_word c,C_word *av) C_noret; -C_noret_decl(f_31508) -static void C_ccall f_31508(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_31565) -static void C_ccall f_31565(C_word c,C_word *av) C_noret; -C_noret_decl(f_31569) -static void C_ccall f_31569(C_word c,C_word *av) C_noret; -C_noret_decl(f_31570) -static void f_31570(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_31580) -static void C_ccall f_31580(C_word c,C_word *av) C_noret; -C_noret_decl(f_31585) -static void f_31585(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_31595) -static void C_ccall f_31595(C_word c,C_word *av) C_noret; -C_noret_decl(f_31608) -static void C_ccall f_31608(C_word c,C_word *av) C_noret; -C_noret_decl(f_31619) -static void C_ccall f_31619(C_word c,C_word *av) C_noret; -C_noret_decl(f_31623) -static void C_ccall f_31623(C_word c,C_word *av) C_noret; -C_noret_decl(f_31627) -static void C_ccall f_31627(C_word c,C_word *av) C_noret; -C_noret_decl(f_31649) -static void C_ccall f_31649(C_word c,C_word *av) C_noret; -C_noret_decl(f_31653) -static void C_ccall f_31653(C_word c,C_word *av) C_noret; -C_noret_decl(f_31661) -static void C_ccall f_31661(C_word c,C_word *av) C_noret; -C_noret_decl(f_31677) -static void C_ccall f_31677(C_word c,C_word *av) C_noret; -C_noret_decl(f_31688) -static void f_31688(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_31707) -static void f_31707(C_word t0,C_word t1) C_noret; -C_noret_decl(f_31718) -static void C_ccall f_31718(C_word c,C_word *av) C_noret; -C_noret_decl(f_31729) -static void C_ccall f_31729(C_word c,C_word *av) C_noret; -C_noret_decl(f_31815) -static void C_ccall f_31815(C_word c,C_word *av) C_noret; -C_noret_decl(f_31825) -static void C_ccall f_31825(C_word c,C_word *av) C_noret; -C_noret_decl(f_31826) -static void f_31826(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_31839) -static void C_ccall f_31839(C_word c,C_word *av) C_noret; -C_noret_decl(f_31842) -static void C_ccall f_31842(C_word c,C_word *av) C_noret; -C_noret_decl(f_31845) -static void C_ccall f_31845(C_word c,C_word *av) C_noret; -C_noret_decl(f_31848) -static void C_ccall f_31848(C_word c,C_word *av) C_noret; -C_noret_decl(f_31856) -static void C_ccall f_31856(C_word c,C_word *av) C_noret; -C_noret_decl(f_31863) -static void f_31863(C_word t0,C_word t1) C_noret; -C_noret_decl(f_31866) -static void C_ccall f_31866(C_word c,C_word *av) C_noret; -C_noret_decl(f_31869) -static void C_ccall f_31869(C_word c,C_word *av) C_noret; -C_noret_decl(f_31892) -static void C_ccall f_31892(C_word c,C_word *av) C_noret; -C_noret_decl(f_31897) -static void f_31897(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_31907) -static void C_ccall f_31907(C_word c,C_word *av) C_noret; -C_noret_decl(f_31920) -static void C_ccall f_31920(C_word c,C_word *av) C_noret; -C_noret_decl(f_31961) -static void C_ccall f_31961(C_word c,C_word *av) C_noret; -C_noret_decl(f_32011) -static void C_ccall f_32011(C_word c,C_word *av) C_noret; -C_noret_decl(f_32014) -static void C_ccall f_32014(C_word c,C_word *av) C_noret; -C_noret_decl(f_32033) -static void f_32033(C_word t0) C_noret; -C_noret_decl(f_32038) -static void C_ccall f_32038(C_word c,C_word *av) C_noret; -C_noret_decl(f_32044) -static void C_ccall f_32044(C_word c,C_word *av) C_noret; -C_noret_decl(f_32047) -static void C_ccall f_32047(C_word c,C_word *av) C_noret; -C_noret_decl(f_32056) -static void C_ccall f_32056(C_word c,C_word *av) C_noret; -C_noret_decl(f_32062) -static void C_ccall f_32062(C_word c,C_word *av) C_noret; -C_noret_decl(f_32081) -static void f_32081(C_word t0,C_word t1) C_noret; -C_noret_decl(f_32100) -static void C_ccall f_32100(C_word c,C_word *av) C_noret; -C_noret_decl(f_32105) -static void f_32105(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_32115) -static void C_ccall f_32115(C_word c,C_word *av) C_noret; -C_noret_decl(f_32129) -static void C_ccall f_32129(C_word c,C_word *av) C_noret; -C_noret_decl(f_32136) -static void C_ccall f_32136(C_word c,C_word *av) C_noret; -C_noret_decl(f_32140) -static void C_ccall f_32140(C_word c,C_word *av) C_noret; -C_noret_decl(f_32144) -static void C_ccall f_32144(C_word c,C_word *av) C_noret; -C_noret_decl(f_32146) -static void C_ccall f_32146(C_word c,C_word *av) C_noret; -C_noret_decl(f_32149) -static void C_ccall f_32149(C_word c,C_word *av) C_noret; -C_noret_decl(f_32175) -static void C_ccall f_32175(C_word c,C_word *av) C_noret; -C_noret_decl(f_32178) -static void C_ccall f_32178(C_word c,C_word *av) C_noret; -C_noret_decl(f_32181) -static void C_ccall f_32181(C_word c,C_word *av) C_noret; -C_noret_decl(f_32188) -static void C_ccall f_32188(C_word c,C_word *av) C_noret; -C_noret_decl(f_32192) -static void C_ccall f_32192(C_word c,C_word *av) C_noret; -C_noret_decl(f_32198) -static void C_ccall f_32198(C_word c,C_word *av) C_noret; -C_noret_decl(f_32203) -static void f_32203(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_32213) -static void C_ccall f_32213(C_word c,C_word *av) C_noret; -C_noret_decl(f_32251) -static void f_32251(C_word t0,C_word t1) C_noret; -C_noret_decl(f_32254) -static void f_32254(C_word t0,C_word t1) C_noret; -C_noret_decl(f_32274) -static void f_32274(C_word t0,C_word t1) C_noret; -C_noret_decl(f_32292) -static void C_ccall f_32292(C_word c,C_word *av) C_noret; -C_noret_decl(f_32426) -static void C_ccall f_32426(C_word c,C_word *av) C_noret; -C_noret_decl(f_32443) -static void C_ccall f_32443(C_word c,C_word *av) C_noret; -C_noret_decl(f_32458) -static void C_ccall f_32458(C_word c,C_word *av) C_noret; -C_noret_decl(f_32462) -static void C_ccall f_32462(C_word c,C_word *av) C_noret; -C_noret_decl(f_32475) -static void C_ccall f_32475(C_word c,C_word *av) C_noret; -C_noret_decl(f_32483) -static void C_ccall f_32483(C_word c,C_word *av) C_noret; -C_noret_decl(f_32486) -static void C_ccall f_32486(C_word c,C_word *av) C_noret; -C_noret_decl(f_32490) -static void C_ccall f_32490(C_word c,C_word *av) C_noret; -C_noret_decl(f_32529) -static void C_ccall f_32529(C_word c,C_word *av) C_noret; -C_noret_decl(f_32532) -static void C_ccall f_32532(C_word c,C_word *av) C_noret; -C_noret_decl(f_32539) -static void C_ccall f_32539(C_word c,C_word *av) C_noret; -C_noret_decl(f_32543) -static void C_ccall f_32543(C_word c,C_word *av) C_noret; -C_noret_decl(f_32569) -static void C_ccall f_32569(C_word c,C_word *av) C_noret; -C_noret_decl(f_32600) -static void C_ccall f_32600(C_word c,C_word *av) C_noret; -C_noret_decl(f_32603) -static void C_ccall f_32603(C_word c,C_word *av) C_noret; -C_noret_decl(f_32615) -static void C_ccall f_32615(C_word c,C_word *av) C_noret; -C_noret_decl(f_32618) -static void C_ccall f_32618(C_word c,C_word *av) C_noret; -C_noret_decl(f_32621) -static void C_ccall f_32621(C_word c,C_word *av) C_noret; -C_noret_decl(f_32646) -static void C_ccall f_32646(C_word c,C_word *av) C_noret; -C_noret_decl(f_32652) -static void C_ccall f_32652(C_word c,C_word *av) C_noret; -C_noret_decl(f_32656) -static void C_ccall f_32656(C_word c,C_word *av) C_noret; -C_noret_decl(f_32660) -static void C_ccall f_32660(C_word c,C_word *av) C_noret; -C_noret_decl(f_32673) -static void C_ccall f_32673(C_word c,C_word *av) C_noret; -C_noret_decl(f_32675) -static C_word f_32675(C_word t0,C_word t1); -C_noret_decl(f_32681) -static C_word f_32681(C_word t0); -C_noret_decl(f_32686) -static C_word f_32686(C_word t0); -C_noret_decl(f_32721) -static void f_32721(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_32727) -static void f_32727(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_32743) -static void f_32743(C_word t0,C_word t1) C_noret; -C_noret_decl(f_32765) -static void C_ccall f_32765(C_word c,C_word *av) C_noret; -C_noret_decl(f_32789) -static void C_ccall f_32789(C_word c,C_word *av) C_noret; -C_noret_decl(f_32801) -static void C_ccall f_32801(C_word c,C_word *av) C_noret; -C_noret_decl(f_32803) -static void C_ccall f_32803(C_word c,C_word *av) C_noret; -C_noret_decl(f_32822) -static void C_ccall f_32822(C_word c,C_word *av) C_noret; -C_noret_decl(f_32826) -static void C_ccall f_32826(C_word c,C_word *av) C_noret; -C_noret_decl(f_32838) -static void C_ccall f_32838(C_word c,C_word *av) C_noret; -C_noret_decl(f_32840) -static void f_32840(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_32884) -static void C_ccall f_32884(C_word c,C_word *av) C_noret; -C_noret_decl(f_32886) -static void f_32886(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_32920) -static C_word f_32920(C_word t0); -C_noret_decl(f_32943) -static void C_ccall f_32943(C_word c,C_word *av) C_noret; -C_noret_decl(f_32950) -static void C_ccall f_32950(C_word c,C_word *av) C_noret; -C_noret_decl(f_32960) -static void C_ccall f_32960(C_word c,C_word *av) C_noret; -C_noret_decl(f_32962) -static void f_32962(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33012) -static void C_ccall f_33012(C_word c,C_word *av) C_noret; -C_noret_decl(f_33014) -static void f_33014(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33039) -static void C_ccall f_33039(C_word c,C_word *av) C_noret; -C_noret_decl(f_33048) -static void C_ccall f_33048(C_word c,C_word *av) C_noret; -C_noret_decl(f_33054) -static void C_ccall f_33054(C_word c,C_word *av) C_noret; -C_noret_decl(f_33058) -static void C_ccall f_33058(C_word c,C_word *av) C_noret; -C_noret_decl(f_33062) -static void f_33062(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33070) -static void C_ccall f_33070(C_word c,C_word *av) C_noret; -C_noret_decl(f_33076) -static void f_33076(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33107) -static void C_ccall f_33107(C_word c,C_word *av) C_noret; -C_noret_decl(f_33132) -static void f_33132(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33157) -static void C_ccall f_33157(C_word c,C_word *av) C_noret; -C_noret_decl(f_33167) -static void C_ccall f_33167(C_word c,C_word *av) C_noret; -C_noret_decl(f_33172) -static void C_ccall f_33172(C_word c,C_word *av) C_noret; -C_noret_decl(f_33174) -static void C_ccall f_33174(C_word c,C_word *av) C_noret; -C_noret_decl(f_33181) -static void C_ccall f_33181(C_word c,C_word *av) C_noret; -C_noret_decl(f_33193) -static void C_ccall f_33193(C_word c,C_word *av) C_noret; -C_noret_decl(f_33201) -static void C_ccall f_33201(C_word c,C_word *av) C_noret; -C_noret_decl(f_33239) -static void C_ccall f_33239(C_word c,C_word *av) C_noret; -C_noret_decl(f_33243) -static void C_ccall f_33243(C_word c,C_word *av) C_noret; -C_noret_decl(f_33250) -static void C_ccall f_33250(C_word c,C_word *av) C_noret; -C_noret_decl(f_33253) -static void C_ccall f_33253(C_word c,C_word *av) C_noret; -C_noret_decl(f_33256) -static void C_ccall f_33256(C_word c,C_word *av) C_noret; -C_noret_decl(f_33257) -static void f_33257(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33259) -static void f_33259(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33263) -static void C_ccall f_33263(C_word c,C_word *av) C_noret; -C_noret_decl(f_33268) -static void C_ccall f_33268(C_word c,C_word *av) C_noret; -C_noret_decl(f_33280) -static void f_33280(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33290) -static void C_ccall f_33290(C_word c,C_word *av) C_noret; -C_noret_decl(f_33302) -static void C_ccall f_33302(C_word c,C_word *av) C_noret; -C_noret_decl(f_33304) -static void f_33304(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_33311) -static void C_ccall f_33311(C_word c,C_word *av) C_noret; -C_noret_decl(f_33314) -static void C_ccall f_33314(C_word c,C_word *av) C_noret; -C_noret_decl(f_33323) -static void C_ccall f_33323(C_word c,C_word *av) C_noret; -C_noret_decl(f_33326) -static void C_ccall f_33326(C_word c,C_word *av) C_noret; -C_noret_decl(f_33329) -static void C_ccall f_33329(C_word c,C_word *av) C_noret; -C_noret_decl(f_33344) -static void C_ccall f_33344(C_word c,C_word *av) C_noret; -C_noret_decl(f_33350) -static void C_ccall f_33350(C_word c,C_word *av) C_noret; -C_noret_decl(f_33358) -static void f_33358(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33362) -static void C_ccall f_33362(C_word c,C_word *av) C_noret; -C_noret_decl(f_33365) -static void C_ccall f_33365(C_word c,C_word *av) C_noret; -C_noret_decl(f_33368) -static void C_ccall f_33368(C_word c,C_word *av) C_noret; -C_noret_decl(f_33381) -static void C_ccall f_33381(C_word c,C_word *av) C_noret; -C_noret_decl(f_33385) -static void C_ccall f_33385(C_word c,C_word *av) C_noret; -C_noret_decl(f_33406) -static void C_ccall f_33406(C_word c,C_word *av) C_noret; -C_noret_decl(f_33422) -static void C_ccall f_33422(C_word c,C_word *av) C_noret; -C_noret_decl(f_33425) -static void C_ccall f_33425(C_word c,C_word *av) C_noret; -C_noret_decl(f_33431) -static void C_ccall f_33431(C_word c,C_word *av) C_noret; -C_noret_decl(f_33453) -static void f_33453(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_33458) -static void f_33458(C_word t0,C_word t1) C_noret; -C_noret_decl(f_33493) -static void C_ccall f_33493(C_word c,C_word *av) C_noret; -C_noret_decl(f_33503) -static void C_ccall f_33503(C_word c,C_word *av) C_noret; -C_noret_decl(f_33506) -static void C_ccall f_33506(C_word c,C_word *av) C_noret; -C_noret_decl(f_33509) -static void C_ccall f_33509(C_word c,C_word *av) C_noret; -C_noret_decl(f_33512) -static void C_ccall f_33512(C_word c,C_word *av) C_noret; -C_noret_decl(f_33515) -static void C_ccall f_33515(C_word c,C_word *av) C_noret; -C_noret_decl(f_33518) -static void C_ccall f_33518(C_word c,C_word *av) C_noret; -C_noret_decl(f_33525) -static void C_ccall f_33525(C_word c,C_word *av) C_noret; -C_noret_decl(f_33528) -static void C_ccall f_33528(C_word c,C_word *av) C_noret; -C_noret_decl(f_33531) -static void C_ccall f_33531(C_word c,C_word *av) C_noret; -C_noret_decl(f_33542) -static void C_ccall f_33542(C_word c,C_word *av) C_noret; -C_noret_decl(f_33565) -static void C_ccall f_33565(C_word c,C_word *av) C_noret; -C_noret_decl(f_33576) -static void C_ccall f_33576(C_word c,C_word *av) C_noret; -C_noret_decl(f_33580) -static void C_ccall f_33580(C_word c,C_word *av) C_noret; -C_noret_decl(f_33602) -static void C_ccall f_33602(C_word c,C_word *av) C_noret; -C_noret_decl(f_33613) -static void C_ccall f_33613(C_word c,C_word *av) C_noret; -C_noret_decl(f_33617) -static void C_ccall f_33617(C_word c,C_word *av) C_noret; -C_noret_decl(f_34116) -static void C_ccall f_34116(C_word c,C_word *av) C_noret; -C_noret_decl(f_34127) -static void C_ccall f_34127(C_word c,C_word *av) C_noret; -C_noret_decl(f_34131) -static void C_ccall f_34131(C_word c,C_word *av) C_noret; -C_noret_decl(f_34272) -static void C_ccall f_34272(C_word c,C_word *av) C_noret; -C_noret_decl(f_34274) -static void C_ccall f_34274(C_word c,C_word *av) C_noret; -C_noret_decl(f_34280) -static void C_ccall f_34280(C_word c,C_word *av) C_noret; -C_noret_decl(f_34284) -static void C_ccall f_34284(C_word c,C_word *av) C_noret; -C_noret_decl(f_34287) -static void C_ccall f_34287(C_word c,C_word *av) C_noret; -C_noret_decl(f_34296) -static void C_ccall f_34296(C_word c,C_word *av) C_noret; -C_noret_decl(f_34310) -static void C_ccall f_34310(C_word c,C_word *av) C_noret; -C_noret_decl(f_34318) -static void C_ccall f_34318(C_word c,C_word *av) C_noret; -C_noret_decl(f_34320) -static void C_ccall f_34320(C_word c,C_word *av) C_noret; -C_noret_decl(f_34324) -static void C_ccall f_34324(C_word c,C_word *av) C_noret; -C_noret_decl(f_34332) -static void C_ccall f_34332(C_word c,C_word *av) C_noret; -C_noret_decl(f_34340) -static void C_ccall f_34340(C_word c,C_word *av) C_noret; -C_noret_decl(f_34342) -static void C_ccall f_34342(C_word c,C_word *av) C_noret; -C_noret_decl(f_34352) -static void C_ccall f_34352(C_word c,C_word *av) C_noret; -C_noret_decl(f_34359) -static void C_ccall f_34359(C_word c,C_word *av) C_noret; -C_noret_decl(f_34369) -static void C_ccall f_34369(C_word c,C_word *av) C_noret; -C_noret_decl(f_34373) -static void C_ccall f_34373(C_word c,C_word *av) C_noret; -C_noret_decl(f_34377) -static void C_ccall f_34377(C_word c,C_word *av) C_noret; -C_noret_decl(f_34381) -static void C_ccall f_34381(C_word c,C_word *av) C_noret; -C_noret_decl(f_34383) -static void C_ccall f_34383(C_word c,C_word *av) C_noret; -C_noret_decl(f_34393) -static void C_ccall f_34393(C_word c,C_word *av) C_noret; -C_noret_decl(f_34404) -static void C_ccall f_34404(C_word c,C_word *av) C_noret; -C_noret_decl(f_34408) -static void C_ccall f_34408(C_word c,C_word *av) C_noret; -C_noret_decl(f_34413) -static void C_ccall f_34413(C_word c,C_word *av) C_noret; -C_noret_decl(f_34417) -static void C_ccall f_34417(C_word c,C_word *av) C_noret; -C_noret_decl(f_34422) -static void C_ccall f_34422(C_word c,C_word *av) C_noret; -C_noret_decl(f_34425) -static void C_ccall f_34425(C_word c,C_word *av) C_noret; -C_noret_decl(f_34428) -static void C_ccall f_34428(C_word c,C_word *av) C_noret; -C_noret_decl(f_34431) -static void C_ccall f_34431(C_word c,C_word *av) C_noret; -C_noret_decl(f_34433) -static void C_ccall f_34433(C_word c,C_word *av) C_noret; -C_noret_decl(f_34440) -static void C_ccall f_34440(C_word c,C_word *av) C_noret; -C_noret_decl(f_34443) -static void C_ccall f_34443(C_word c,C_word *av) C_noret; -C_noret_decl(f_34451) -static void C_ccall f_34451(C_word c,C_word *av) C_noret; -C_noret_decl(f_34458) -static void C_ccall f_34458(C_word c,C_word *av) C_noret; -C_noret_decl(f_34463) -static void C_ccall f_34463(C_word c,C_word *av) C_noret; -C_noret_decl(f_34466) -static void C_ccall f_34466(C_word c,C_word *av) C_noret; -C_noret_decl(f_34469) -static void C_ccall f_34469(C_word c,C_word *av) C_noret; -C_noret_decl(f_34472) -static void C_ccall f_34472(C_word c,C_word *av) C_noret; -C_noret_decl(f_34477) -static void C_ccall f_34477(C_word c,C_word *av) C_noret; -C_noret_decl(f_34480) -static void C_ccall f_34480(C_word c,C_word *av) C_noret; -C_noret_decl(f_34483) -static void C_ccall f_34483(C_word c,C_word *av) C_noret; -C_noret_decl(f_34486) -static void C_ccall f_34486(C_word c,C_word *av) C_noret; -C_noret_decl(f_34489) -static void C_ccall f_34489(C_word c,C_word *av) C_noret; -C_noret_decl(f_34492) -static void C_ccall f_34492(C_word c,C_word *av) C_noret; -C_noret_decl(f_34495) -static void C_ccall f_34495(C_word c,C_word *av) C_noret; -C_noret_decl(f_34498) -static void C_ccall f_34498(C_word c,C_word *av) C_noret; -C_noret_decl(f_34522) -static void C_ccall f_34522(C_word c,C_word *av) C_noret; -C_noret_decl(f_34526) -static void C_ccall f_34526(C_word c,C_word *av) C_noret; -C_noret_decl(f_34528) -static void C_ccall f_34528(C_word c,C_word *av) C_noret; -C_noret_decl(f_34536) -static void C_ccall f_34536(C_word c,C_word *av) C_noret; -C_noret_decl(f_34538) -static void C_ccall f_34538(C_word c,C_word *av) C_noret; -C_noret_decl(f_34542) -static void C_ccall f_34542(C_word c,C_word *av) C_noret; -C_noret_decl(f_34544) -static void C_ccall f_34544(C_word c,C_word *av) C_noret; -C_noret_decl(f_34551) -static void C_ccall f_34551(C_word c,C_word *av) C_noret; -C_noret_decl(f_34587) -static void C_ccall f_34587(C_word c,C_word *av) C_noret; -C_noret_decl(f_34590) -static void C_ccall f_34590(C_word c,C_word *av) C_noret; -C_noret_decl(f_34593) -static void C_ccall f_34593(C_word c,C_word *av) C_noret; -C_noret_decl(f_34596) -static void C_ccall f_34596(C_word c,C_word *av) C_noret; -C_noret_decl(f_34599) -static void C_ccall f_34599(C_word c,C_word *av) C_noret; -C_noret_decl(f_34615) -static void C_ccall f_34615(C_word c,C_word *av) C_noret; -C_noret_decl(f_34619) -static void C_ccall f_34619(C_word c,C_word *av) C_noret; -C_noret_decl(f_34628) -static void C_ccall f_34628(C_word c,C_word *av) C_noret; -C_noret_decl(f_34632) -static void C_ccall f_34632(C_word c,C_word *av) C_noret; -C_noret_decl(f_34634) -static void C_ccall f_34634(C_word c,C_word *av) C_noret; -C_noret_decl(f_34638) -static void C_ccall f_34638(C_word c,C_word *av) C_noret; -C_noret_decl(f_34640) -static void C_ccall f_34640(C_word c,C_word *av) C_noret; -C_noret_decl(f_34645) -static void C_ccall f_34645(C_word c,C_word *av) C_noret; -C_noret_decl(f_34647) -static void C_ccall f_34647(C_word c,C_word *av) C_noret; -C_noret_decl(f_34650) -static void C_ccall f_34650(C_word c,C_word *av) C_noret; -C_noret_decl(f_34670) -static void C_ccall f_34670(C_word c,C_word *av) C_noret; -C_noret_decl(f_34676) -static void f_34676(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_34686) -static void C_ccall f_34686(C_word c,C_word *av) C_noret; -C_noret_decl(f_34696) -static void C_ccall f_34696(C_word c,C_word *av) C_noret; -C_noret_decl(f_34731) -static void C_ccall f_34731(C_word c,C_word *av) C_noret; -C_noret_decl(f_34735) -static void C_ccall f_34735(C_word c,C_word *av) C_noret; -C_noret_decl(f_34740) -static void f_34740(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_34750) -static void C_ccall f_34750(C_word c,C_word *av) C_noret; -C_noret_decl(f_34760) -static void C_ccall f_34760(C_word c,C_word *av) C_noret; -C_noret_decl(f_34769) -static void C_ccall f_34769(C_word c,C_word *av) C_noret; -C_noret_decl(f_34772) -static void C_ccall f_34772(C_word c,C_word *av) C_noret; -C_noret_decl(f_34775) -static void C_ccall f_34775(C_word c,C_word *av) C_noret; -C_noret_decl(f_34779) -static void C_ccall f_34779(C_word c,C_word *av) C_noret; -C_noret_decl(f_34781) -static void C_ccall f_34781(C_word c,C_word *av) C_noret; -C_noret_decl(f_34784) -static void C_ccall f_34784(C_word c,C_word *av) C_noret; -C_noret_decl(f_34787) -static void C_ccall f_34787(C_word c,C_word *av) C_noret; -C_noret_decl(f_34790) -static void C_ccall f_34790(C_word c,C_word *av) C_noret; -C_noret_decl(f_34793) -static void C_ccall f_34793(C_word c,C_word *av) C_noret; -C_noret_decl(f_34802) -static void C_ccall f_34802(C_word c,C_word *av) C_noret; -C_noret_decl(f_34805) -static void C_ccall f_34805(C_word c,C_word *av) C_noret; -C_noret_decl(f_34808) -static void C_ccall f_34808(C_word c,C_word *av) C_noret; -C_noret_decl(f_34811) -static void C_ccall f_34811(C_word c,C_word *av) C_noret; -C_noret_decl(f_34814) -static void C_ccall f_34814(C_word c,C_word *av) C_noret; -C_noret_decl(f_34817) -static void C_ccall f_34817(C_word c,C_word *av) C_noret; -C_noret_decl(f_34820) -static void C_ccall f_34820(C_word c,C_word *av) C_noret; -C_noret_decl(f_34823) -static void C_ccall f_34823(C_word c,C_word *av) C_noret; -C_noret_decl(f_34830) -static void C_ccall f_34830(C_word c,C_word *av) C_noret; -C_noret_decl(f_34833) -static void C_ccall f_34833(C_word c,C_word *av) C_noret; -C_noret_decl(f_34849) -static void C_ccall f_34849(C_word c,C_word *av) C_noret; -C_noret_decl(f_34857) -static void C_ccall f_34857(C_word c,C_word *av) C_noret; -C_noret_decl(f_34860) -static void C_ccall f_34860(C_word c,C_word *av) C_noret; -C_noret_decl(f_34866) -static void C_ccall f_34866(C_word c,C_word *av) C_noret; -C_noret_decl(f_34875) -static void C_ccall f_34875(C_word c,C_word *av) C_noret; -C_noret_decl(f_34881) -static void C_ccall f_34881(C_word c,C_word *av) C_noret; -C_noret_decl(f_34890) -static void C_ccall f_34890(C_word c,C_word *av) C_noret; -C_noret_decl(f_34896) -static void C_ccall f_34896(C_word c,C_word *av) C_noret; -C_noret_decl(f_34902) -static void C_ccall f_34902(C_word c,C_word *av) C_noret; -C_noret_decl(f_34905) -static void C_ccall f_34905(C_word c,C_word *av) C_noret; -C_noret_decl(f_34911) -static void C_ccall f_34911(C_word c,C_word *av) C_noret; -C_noret_decl(f_34917) -static void C_ccall f_34917(C_word c,C_word *av) C_noret; -C_noret_decl(f_34920) -static void C_ccall f_34920(C_word c,C_word *av) C_noret; -C_noret_decl(f_34926) -static void C_ccall f_34926(C_word c,C_word *av) C_noret; -C_noret_decl(f_34965) -static void C_ccall f_34965(C_word c,C_word *av) C_noret; -C_noret_decl(f_35008) -static void C_ccall f_35008(C_word c,C_word *av) C_noret; -C_noret_decl(f_35015) -static void C_ccall f_35015(C_word c,C_word *av) C_noret; -C_noret_decl(f_35020) -static void f_35020(C_word t0,C_word t1) C_noret; -C_noret_decl(f_35036) -static void C_ccall f_35036(C_word c,C_word *av) C_noret; -C_noret_decl(f_35062) -static void C_ccall f_35062(C_word c,C_word *av) C_noret; -C_noret_decl(f_35065) -static void C_ccall f_35065(C_word c,C_word *av) C_noret; -C_noret_decl(f_35072) -static void C_ccall f_35072(C_word c,C_word *av) C_noret; -C_noret_decl(f_35077) -static void C_ccall f_35077(C_word c,C_word *av) C_noret; -C_noret_decl(f_35079) -static void C_ccall f_35079(C_word c,C_word *av) C_noret; -C_noret_decl(f_35083) -static void C_ccall f_35083(C_word c,C_word *av) C_noret; -C_noret_decl(f_35110) -static void f_35110(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_35120) -static void C_ccall f_35120(C_word c,C_word *av) C_noret; -C_noret_decl(f_35129) -static void C_ccall f_35129(C_word c,C_word *av) C_noret; -C_noret_decl(f_35136) -static void C_ccall f_35136(C_word c,C_word *av) C_noret; -C_noret_decl(f_35140) -static void C_ccall f_35140(C_word c,C_word *av) C_noret; -C_noret_decl(f_35154) -static void f_35154(C_word t0,C_word t1) C_noret; -C_noret_decl(f_35158) -static void C_ccall f_35158(C_word c,C_word *av) C_noret; -C_noret_decl(f_35165) -static void C_ccall f_35165(C_word c,C_word *av) C_noret; -C_noret_decl(f_35167) -static void f_35167(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_35189) -static void C_ccall f_35189(C_word c,C_word *av) C_noret; -C_noret_decl(f_35196) -static void C_ccall f_35196(C_word c,C_word *av) C_noret; -C_noret_decl(f_35201) -static void f_35201(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_35205) -static void C_ccall f_35205(C_word c,C_word *av) C_noret; -C_noret_decl(f_35208) -static void C_ccall f_35208(C_word c,C_word *av) C_noret; -C_noret_decl(f_35211) -static void C_ccall f_35211(C_word c,C_word *av) C_noret; -C_noret_decl(f_35216) -static void f_35216(C_word t0,C_word t1) C_noret; -C_noret_decl(f_35220) -static void C_ccall f_35220(C_word c,C_word *av) C_noret; -C_noret_decl(f_35246) -static void C_ccall f_35246(C_word c,C_word *av) C_noret; -C_noret_decl(f_35259) -static void C_ccall f_35259(C_word c,C_word *av) C_noret; -C_noret_decl(f_35262) -static void C_ccall f_35262(C_word c,C_word *av) C_noret; -C_noret_decl(f_35271) -static void C_ccall f_35271(C_word c,C_word *av) C_noret; -C_noret_decl(f_35274) -static void C_ccall f_35274(C_word c,C_word *av) C_noret; -C_noret_decl(f_35277) -static void C_ccall f_35277(C_word c,C_word *av) C_noret; -C_noret_decl(f_35283) -static void C_ccall f_35283(C_word c,C_word *av) C_noret; -C_noret_decl(f_35290) -static void C_ccall f_35290(C_word c,C_word *av) C_noret; -C_noret_decl(f_35292) -static void f_35292(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_35305) -static void C_ccall f_35305(C_word c,C_word *av) C_noret; -C_noret_decl(f_35318) -static void C_ccall f_35318(C_word c,C_word *av) C_noret; -C_noret_decl(f_35321) -static void C_ccall f_35321(C_word c,C_word *av) C_noret; -C_noret_decl(f_35324) -static void C_ccall f_35324(C_word c,C_word *av) C_noret; -C_noret_decl(f_35331) -static void C_ccall f_35331(C_word c,C_word *av) C_noret; -C_noret_decl(f_35383) -static void C_ccall f_35383(C_word c,C_word *av) C_noret; -C_noret_decl(f_35386) -static void C_ccall f_35386(C_word c,C_word *av) C_noret; -C_noret_decl(f_35389) -static void C_ccall f_35389(C_word c,C_word *av) C_noret; -C_noret_decl(f_35391) -static void f_35391(C_word t0,C_word t1) C_noret; -C_noret_decl(f_35395) -static void C_ccall f_35395(C_word c,C_word *av) C_noret; -C_noret_decl(f_35399) -static void C_ccall f_35399(C_word c,C_word *av) C_noret; -C_noret_decl(f_35405) -static void C_ccall f_35405(C_word c,C_word *av) C_noret; -C_noret_decl(f_35410) -static void f_35410(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_35414) -static void C_ccall f_35414(C_word c,C_word *av) C_noret; -C_noret_decl(f_35426) -static void C_ccall f_35426(C_word c,C_word *av) C_noret; -C_noret_decl(f_35438) -static void C_ccall f_35438(C_word c,C_word *av) C_noret; -C_noret_decl(f_35445) -static void C_ccall f_35445(C_word c,C_word *av) C_noret; -C_noret_decl(f_35451) -static void f_35451(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_35465) -static void C_ccall f_35465(C_word c,C_word *av) C_noret; -C_noret_decl(f_35504) -static void C_ccall f_35504(C_word c,C_word *av) C_noret; -C_noret_decl(f_35523) -static void C_ccall f_35523(C_word c,C_word *av) C_noret; -C_noret_decl(f_35545) -static void C_ccall f_35545(C_word c,C_word *av) C_noret; -C_noret_decl(f_35554) -static void C_ccall f_35554(C_word c,C_word *av) C_noret; -C_noret_decl(f_35561) -static void C_ccall f_35561(C_word c,C_word *av) C_noret; -C_noret_decl(f_35578) -static void C_ccall f_35578(C_word c,C_word *av) C_noret; -C_noret_decl(f_35586) -static void C_ccall f_35586(C_word c,C_word *av) C_noret; -C_noret_decl(f_35597) -static void C_ccall f_35597(C_word c,C_word *av) C_noret; -C_noret_decl(f_35605) -static void C_ccall f_35605(C_word c,C_word *av) C_noret; -C_noret_decl(f_35612) -static void C_ccall f_35612(C_word c,C_word *av) C_noret; -C_noret_decl(f_35674) -static void C_ccall f_35674(C_word c,C_word *av) C_noret; -C_noret_decl(f_35681) -static void C_ccall f_35681(C_word c,C_word *av) C_noret; -C_noret_decl(f_35684) -static void C_ccall f_35684(C_word c,C_word *av) C_noret; -C_noret_decl(f_35694) -static void C_ccall f_35694(C_word c,C_word *av) C_noret; -C_noret_decl(f_35698) -static void C_ccall f_35698(C_word c,C_word *av) C_noret; -C_noret_decl(f_35702) -static void C_ccall f_35702(C_word c,C_word *av) C_noret; -C_noret_decl(f_35705) -static void C_ccall f_35705(C_word c,C_word *av) C_noret; -C_noret_decl(f_35713) -static void C_ccall f_35713(C_word c,C_word *av) C_noret; -C_noret_decl(f_35722) -static void C_ccall f_35722(C_word c,C_word *av) C_noret; -C_noret_decl(f_35730) -static void C_ccall f_35730(C_word c,C_word *av) C_noret; -C_noret_decl(f_35743) -static void C_ccall f_35743(C_word c,C_word *av) C_noret; -C_noret_decl(f_35751) -static void C_ccall f_35751(C_word c,C_word *av) C_noret; -C_noret_decl(f_35755) -static void C_ccall f_35755(C_word c,C_word *av) C_noret; -C_noret_decl(f_35763) -static void C_ccall f_35763(C_word c,C_word *av) C_noret; -C_noret_decl(f_35771) -static void C_ccall f_35771(C_word c,C_word *av) C_noret; -C_noret_decl(f_35773) -static void C_ccall f_35773(C_word c,C_word *av) C_noret; -C_noret_decl(f_35779) -static void f_35779(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_35783) -static void C_ccall f_35783(C_word c,C_word *av) C_noret; -C_noret_decl(f_35791) -static void f_35791(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_35811) -static void C_ccall f_35811(C_word c,C_word *av) C_noret; -C_noret_decl(f_35819) -static void C_ccall f_35819(C_word c,C_word *av) C_noret; -C_noret_decl(f_35823) -static void C_ccall f_35823(C_word c,C_word *av) C_noret; -C_noret_decl(f_35838) -static void C_ccall f_35838(C_word c,C_word *av) C_noret; -C_noret_decl(f_35845) -static void C_ccall f_35845(C_word c,C_word *av) C_noret; -C_noret_decl(f_35857) -static void C_ccall f_35857(C_word c,C_word *av) C_noret; -C_noret_decl(f_35865) -static void C_ccall f_35865(C_word c,C_word *av) C_noret; -C_noret_decl(f_35871) -static void f_35871(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_35893) -static void C_ccall f_35893(C_word c,C_word *av) C_noret; -C_noret_decl(f_35897) -static void C_ccall f_35897(C_word c,C_word *av) C_noret; -C_noret_decl(f_35901) -static void C_ccall f_35901(C_word c,C_word *av) C_noret; -C_noret_decl(f_35903) -static void C_ccall f_35903(C_word c,C_word *av) C_noret; -C_noret_decl(f_35906) -static void C_ccall f_35906(C_word c,C_word *av) C_noret; -C_noret_decl(f_35909) -static void C_ccall f_35909(C_word c,C_word *av) C_noret; -C_noret_decl(f_35913) -static void C_ccall f_35913(C_word c,C_word *av) C_noret; -C_noret_decl(f_35916) -static void C_ccall f_35916(C_word c,C_word *av) C_noret; -C_noret_decl(f_35938) -static void C_ccall f_35938(C_word c,C_word *av) C_noret; -C_noret_decl(f_35944) -static void C_ccall f_35944(C_word c,C_word *av) C_noret; -C_noret_decl(f_35948) -static void C_ccall f_35948(C_word c,C_word *av) C_noret; -C_noret_decl(f_35965) -static void C_ccall f_35965(C_word c,C_word *av) C_noret; -C_noret_decl(f_35975) -static void C_ccall f_35975(C_word c,C_word *av) C_noret; -C_noret_decl(f_35979) -static void C_ccall f_35979(C_word c,C_word *av) C_noret; -C_noret_decl(f_35983) -static void C_ccall f_35983(C_word c,C_word *av) C_noret; -C_noret_decl(f_35995) -static void C_ccall f_35995(C_word c,C_word *av) C_noret; -C_noret_decl(f_36005) -static void C_ccall f_36005(C_word c,C_word *av) C_noret; -C_noret_decl(f_36014) -static void C_ccall f_36014(C_word c,C_word *av) C_noret; -C_noret_decl(f_36030) -static void C_ccall f_36030(C_word c,C_word *av) C_noret; -C_noret_decl(f_36034) -static void C_ccall f_36034(C_word c,C_word *av) C_noret; -C_noret_decl(f_36036) -static void C_ccall f_36036(C_word c,C_word *av) C_noret; -C_noret_decl(f_36042) -static void C_ccall f_36042(C_word c,C_word *av) C_noret; -C_noret_decl(f_36049) -static void C_ccall f_36049(C_word c,C_word *av) C_noret; -C_noret_decl(f_36054) -static void C_ccall f_36054(C_word c,C_word *av) C_noret; -C_noret_decl(f_36075) -static void C_ccall f_36075(C_word c,C_word *av) C_noret; -C_noret_decl(f_36085) -static void f_36085(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_36095) -static void C_ccall f_36095(C_word c,C_word *av) C_noret; -C_noret_decl(f_36108) -static void C_ccall f_36108(C_word c,C_word *av) C_noret; -C_noret_decl(f_36112) -static void C_ccall f_36112(C_word c,C_word *av) C_noret; -C_noret_decl(f_36115) -static void C_ccall f_36115(C_word c,C_word *av) C_noret; -C_noret_decl(f_36123) -static void f_36123(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_36133) -static void C_ccall f_36133(C_word c,C_word *av) C_noret; -C_noret_decl(f_36155) -static void C_ccall f_36155(C_word c,C_word *av) C_noret; -C_noret_decl(f_36159) -static void C_ccall f_36159(C_word c,C_word *av) C_noret; -C_noret_decl(f_36190) -static void C_ccall f_36190(C_word c,C_word *av) C_noret; -C_noret_decl(f_36193) -static void C_ccall f_36193(C_word c,C_word *av) C_noret; -C_noret_decl(f_36196) -static void C_ccall f_36196(C_word c,C_word *av) C_noret; -C_noret_decl(f_36202) -static void f_36202(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_36215) -static void C_ccall f_36215(C_word c,C_word *av) C_noret; -C_noret_decl(f_36218) -static void C_ccall f_36218(C_word c,C_word *av) C_noret; -C_noret_decl(f_36227) -static void C_ccall f_36227(C_word c,C_word *av) C_noret; -C_noret_decl(f_36233) -static void C_ccall f_36233(C_word c,C_word *av) C_noret; -C_noret_decl(f_36239) -static void C_ccall f_36239(C_word c,C_word *av) C_noret; -C_noret_decl(f_36245) -static void C_ccall f_36245(C_word c,C_word *av) C_noret; -C_noret_decl(f_36251) -static void C_ccall f_36251(C_word c,C_word *av) C_noret; -C_noret_decl(f_36268) -static void C_ccall f_36268(C_word c,C_word *av) C_noret; -C_noret_decl(f_36274) -static void C_ccall f_36274(C_word c,C_word *av) C_noret; -C_noret_decl(f_36289) -static void C_ccall f_36289(C_word c,C_word *av) C_noret; -C_noret_decl(f_36293) -static void C_ccall f_36293(C_word c,C_word *av) C_noret; -C_noret_decl(f_36297) -static void C_ccall f_36297(C_word c,C_word *av) C_noret; -C_noret_decl(f_36301) -static void C_ccall f_36301(C_word c,C_word *av) C_noret; -C_noret_decl(f_36322) -static void C_ccall f_36322(C_word c,C_word *av) C_noret; -C_noret_decl(f_36324) -static void C_ccall f_36324(C_word c,C_word *av) C_noret; -C_noret_decl(f_36330) -static void f_36330(C_word t0,C_word t1) C_noret; -C_noret_decl(f_36334) -static void C_ccall f_36334(C_word c,C_word *av) C_noret; -C_noret_decl(f_36343) -static void C_ccall f_36343(C_word c,C_word *av) C_noret; -C_noret_decl(f_36352) -static void C_ccall f_36352(C_word c,C_word *av) C_noret; -C_noret_decl(f_36395) -static void C_ccall f_36395(C_word c,C_word *av) C_noret; -C_noret_decl(f_36662) -static void C_ccall f_36662(C_word c,C_word *av) C_noret; -C_noret_decl(f_36668) -static void C_ccall f_36668(C_word c,C_word *av) C_noret; -C_noret_decl(f_36687) -static void C_ccall f_36687(C_word c,C_word *av) C_noret; -C_noret_decl(f_36689) -static void C_ccall f_36689(C_word c,C_word *av) C_noret; -C_noret_decl(f_36712) -static C_word f_36712(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_36758) -static void C_ccall f_36758(C_word c,C_word *av) C_noret; -C_noret_decl(f_36760) -static void C_ccall f_36760(C_word c,C_word *av) C_noret; -C_noret_decl(f_36767) -static void f_36767(C_word t0,C_word t1) C_noret; -C_noret_decl(f_36779) -static void f_36779(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_36823) -static void C_ccall f_36823(C_word c,C_word *av) C_noret; -C_noret_decl(f_36838) -static void f_36838(C_word t0,C_word t1) C_noret; -C_noret_decl(f_36846) -static void C_ccall f_36846(C_word c,C_word *av) C_noret; -C_noret_decl(f_36852) -static void f_36852(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_36860) -static void C_ccall f_36860(C_word c,C_word *av) C_noret; -C_noret_decl(f_36864) -static void C_ccall f_36864(C_word c,C_word *av) C_noret; -C_noret_decl(f_36872) -static void C_ccall f_36872(C_word c,C_word *av) C_noret; -C_noret_decl(f_36874) -static void f_36874(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_36884) -static void C_ccall f_36884(C_word c,C_word *av) C_noret; -C_noret_decl(f_36891) -static void C_ccall f_36891(C_word c,C_word *av) C_noret; -C_noret_decl(f_36895) -static void C_ccall f_36895(C_word c,C_word *av) C_noret; -C_noret_decl(f_36906) -static void C_ccall f_36906(C_word c,C_word *av) C_noret; -C_noret_decl(f_36913) -static void C_ccall f_36913(C_word c,C_word *av) C_noret; -C_noret_decl(f_36917) -static void C_ccall f_36917(C_word c,C_word *av) C_noret; -C_noret_decl(f_36928) -static void C_ccall f_36928(C_word c,C_word *av) C_noret; -C_noret_decl(f_36935) -static void C_ccall f_36935(C_word c,C_word *av) C_noret; -C_noret_decl(f_36939) -static void C_ccall f_36939(C_word c,C_word *av) C_noret; -C_noret_decl(f_36944) -static void C_ccall f_36944(C_word c,C_word *av) C_noret; -C_noret_decl(f_36950) -static void C_ccall f_36950(C_word c,C_word *av) C_noret; -C_noret_decl(f_36953) -static void C_ccall f_36953(C_word c,C_word *av) C_noret; -C_noret_decl(f_36956) -static void C_ccall f_36956(C_word c,C_word *av) C_noret; -C_noret_decl(f_36962) -static void C_ccall f_36962(C_word c,C_word *av) C_noret; -C_noret_decl(f_36971) -static void C_ccall f_36971(C_word c,C_word *av) C_noret; -C_noret_decl(f_36980) -static void C_ccall f_36980(C_word c,C_word *av) C_noret; -C_noret_decl(f_36986) -static void C_ccall f_36986(C_word c,C_word *av) C_noret; -C_noret_decl(f_36989) -static void C_ccall f_36989(C_word c,C_word *av) C_noret; -C_noret_decl(f_36992) -static void C_ccall f_36992(C_word c,C_word *av) C_noret; -C_noret_decl(f_37004) -static void C_ccall f_37004(C_word c,C_word *av) C_noret; -C_noret_decl(f_37007) -static void C_ccall f_37007(C_word c,C_word *av) C_noret; -C_noret_decl(f_37010) -static void C_ccall f_37010(C_word c,C_word *av) C_noret; -C_noret_decl(f_37013) -static void C_ccall f_37013(C_word c,C_word *av) C_noret; -C_noret_decl(f_37025) -static void C_ccall f_37025(C_word c,C_word *av) C_noret; -C_noret_decl(f_37028) -static void C_ccall f_37028(C_word c,C_word *av) C_noret; -C_noret_decl(f_37031) -static void C_ccall f_37031(C_word c,C_word *av) C_noret; -C_noret_decl(f_37034) -static void C_ccall f_37034(C_word c,C_word *av) C_noret; -C_noret_decl(f_37043) -static void C_ccall f_37043(C_word c,C_word *av) C_noret; -C_noret_decl(f_37046) -static void C_ccall f_37046(C_word c,C_word *av) C_noret; -C_noret_decl(f_37059) -static void C_ccall f_37059(C_word c,C_word *av) C_noret; -C_noret_decl(f_37060) -static void C_ccall f_37060(C_word c,C_word *av) C_noret; -C_noret_decl(f_37065) -static void C_ccall f_37065(C_word c,C_word *av) C_noret; -C_noret_decl(f_37066) -static void C_ccall f_37066(C_word c,C_word *av) C_noret; -C_noret_decl(f_37071) -static void C_ccall f_37071(C_word c,C_word *av) C_noret; -C_noret_decl(f_37072) -static void C_ccall f_37072(C_word c,C_word *av) C_noret; -C_noret_decl(f_37077) -static void C_ccall f_37077(C_word c,C_word *av) C_noret; -C_noret_decl(f_37078) -static void C_ccall f_37078(C_word c,C_word *av) C_noret; -C_noret_decl(f_37083) -static void C_ccall f_37083(C_word c,C_word *av) C_noret; -C_noret_decl(f_37084) -static void C_ccall f_37084(C_word c,C_word *av) C_noret; -C_noret_decl(f_37089) -static void f_37089(C_word t0,C_word t1) C_noret; -C_noret_decl(f_37091) -static void C_ccall f_37091(C_word c,C_word *av) C_noret; -C_noret_decl(f_37101) -static void C_ccall f_37101(C_word c,C_word *av) C_noret; -C_noret_decl(f_37104) -static void C_ccall f_37104(C_word c,C_word *av) C_noret; -C_noret_decl(f_37107) -static void C_ccall f_37107(C_word c,C_word *av) C_noret; -C_noret_decl(f_37110) -static void C_ccall f_37110(C_word c,C_word *av) C_noret; -C_noret_decl(f_37112) -static void f_37112(C_word t0,C_word t1) C_noret; -C_noret_decl(f_37126) -static void C_ccall f_37126(C_word c,C_word *av) C_noret; -C_noret_decl(f_37134) -static void C_ccall f_37134(C_word c,C_word *av) C_noret; -C_noret_decl(f_37138) -static void C_ccall f_37138(C_word c,C_word *av) C_noret; -C_noret_decl(f_37142) -static void C_ccall f_37142(C_word c,C_word *av) C_noret; -C_noret_decl(f_37146) -static void C_ccall f_37146(C_word c,C_word *av) C_noret; -C_noret_decl(f_37152) -static void C_ccall f_37152(C_word c,C_word *av) C_noret; -C_noret_decl(f_37159) -static void C_ccall f_37159(C_word c,C_word *av) C_noret; -C_noret_decl(f_37163) -static void C_ccall f_37163(C_word c,C_word *av) C_noret; -C_noret_decl(f_37167) -static void C_ccall f_37167(C_word c,C_word *av) C_noret; -C_noret_decl(f_37171) -static void C_ccall f_37171(C_word c,C_word *av) C_noret; -C_noret_decl(f_37189) -static void C_ccall f_37189(C_word c,C_word *av) C_noret; -C_noret_decl(f_37208) -static void C_ccall f_37208(C_word c,C_word *av) C_noret; -C_noret_decl(f_37211) -static void C_ccall f_37211(C_word c,C_word *av) C_noret; -C_noret_decl(f_37214) -static void C_ccall f_37214(C_word c,C_word *av) C_noret; -C_noret_decl(f_37217) -static void C_ccall f_37217(C_word c,C_word *av) C_noret; -C_noret_decl(f_37226) -static void C_ccall f_37226(C_word c,C_word *av) C_noret; -C_noret_decl(f_37232) -static void C_ccall f_37232(C_word c,C_word *av) C_noret; -C_noret_decl(f_37255) -static void C_ccall f_37255(C_word c,C_word *av) C_noret; -C_noret_decl(f_37277) -static void C_ccall f_37277(C_word c,C_word *av) C_noret; -C_noret_decl(f_37283) -static void f_37283(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_37303) -static void C_ccall f_37303(C_word c,C_word *av) C_noret; -C_noret_decl(f_37318) -static void C_ccall f_37318(C_word c,C_word *av) C_noret; -C_noret_decl(f_37322) -static void C_ccall f_37322(C_word c,C_word *av) C_noret; -C_noret_decl(f_37345) -static void C_ccall f_37345(C_word c,C_word *av) C_noret; -C_noret_decl(f_37349) -static void C_ccall f_37349(C_word c,C_word *av) C_noret; -C_noret_decl(f_37351) -static void C_ccall f_37351(C_word c,C_word *av) C_noret; -C_noret_decl(f_37381) -static void C_ccall f_37381(C_word c,C_word *av) C_noret; -C_noret_decl(f_37384) -static void C_ccall f_37384(C_word c,C_word *av) C_noret; -C_noret_decl(f_37386) -static void C_ccall f_37386(C_word c,C_word *av) C_noret; -C_noret_decl(f_37404) -static void C_ccall f_37404(C_word c,C_word *av) C_noret; -C_noret_decl(f_37411) -static void C_ccall f_37411(C_word c,C_word *av) C_noret; -C_noret_decl(f_37433) -static void C_ccall f_37433(C_word c,C_word *av) C_noret; -C_noret_decl(f_37442) -static void f_37442(C_word t0,C_word t1) C_noret; -C_noret_decl(f_37457) -static void C_ccall f_37457(C_word c,C_word *av) C_noret; -C_noret_decl(f_37460) -static void C_ccall f_37460(C_word c,C_word *av) C_noret; -C_noret_decl(f_37463) -static void C_ccall f_37463(C_word c,C_word *av) C_noret; -C_noret_decl(f_37466) -static void C_ccall f_37466(C_word c,C_word *av) C_noret; -C_noret_decl(f_37469) -static void C_ccall f_37469(C_word c,C_word *av) C_noret; -C_noret_decl(f_37472) -static void C_ccall f_37472(C_word c,C_word *av) C_noret; -C_noret_decl(f_37475) -static void f_37475(C_word t0,C_word t1) C_noret; -C_noret_decl(f_37478) -static void f_37478(C_word t0,C_word t1) C_noret; -C_noret_decl(f_37481) -static void f_37481(C_word t0,C_word t1) C_noret; -C_noret_decl(f_37484) -static void f_37484(C_word t0,C_word t1) C_noret; -C_noret_decl(f_37492) -static void C_ccall f_37492(C_word c,C_word *av) C_noret; -C_noret_decl(f_37495) -static void C_ccall f_37495(C_word c,C_word *av) C_noret; -C_noret_decl(f_37500) -static void C_ccall f_37500(C_word c,C_word *av) C_noret; -C_noret_decl(f_37506) -static void C_ccall f_37506(C_word c,C_word *av) C_noret; -C_noret_decl(f_37519) -static void C_ccall f_37519(C_word c,C_word *av) C_noret; -C_noret_decl(f_37521) -static void f_37521(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_37544) -static void C_ccall f_37544(C_word c,C_word *av) C_noret; -C_noret_decl(f_37551) -static void C_ccall f_37551(C_word c,C_word *av) C_noret; -C_noret_decl(f_37555) -static void C_ccall f_37555(C_word c,C_word *av) C_noret; -C_noret_decl(f_37557) -static void f_37557(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_37586) -static void C_ccall f_37586(C_word c,C_word *av) C_noret; -C_noret_decl(f_37588) -static void f_37588(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_37613) -static void C_ccall f_37613(C_word c,C_word *av) C_noret; -C_noret_decl(f_37622) -static void C_ccall f_37622(C_word c,C_word *av) C_noret; -C_noret_decl(f_37628) -static void f_37628(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_37652) -static void C_ccall f_37652(C_word c,C_word *av) C_noret; -C_noret_decl(f_37659) -static void C_ccall f_37659(C_word c,C_word *av) C_noret; -C_noret_decl(f_37663) -static void C_ccall f_37663(C_word c,C_word *av) C_noret; -C_noret_decl(f_37675) -static void C_ccall f_37675(C_word c,C_word *av) C_noret; -C_noret_decl(f_37683) -static void C_ccall f_37683(C_word c,C_word *av) C_noret; -C_noret_decl(f_37687) -static void C_ccall f_37687(C_word c,C_word *av) C_noret; -C_noret_decl(f_37696) -static void C_ccall f_37696(C_word c,C_word *av) C_noret; -C_noret_decl(f_37705) -static void C_ccall f_37705(C_word c,C_word *av) C_noret; -C_noret_decl(f_37713) -static void C_ccall f_37713(C_word c,C_word *av) C_noret; -C_noret_decl(f_37726) -static void C_ccall f_37726(C_word c,C_word *av) C_noret; -C_noret_decl(f_37734) -static void f_37734(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_37759) -static void C_ccall f_37759(C_word c,C_word *av) C_noret; -C_noret_decl(f_37768) -static void C_ccall f_37768(C_word c,C_word *av) C_noret; -C_noret_decl(f_37775) -static void C_ccall f_37775(C_word c,C_word *av) C_noret; -C_noret_decl(f_37778) -static void C_ccall f_37778(C_word c,C_word *av) C_noret; -C_noret_decl(f_37783) -static void f_37783(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_37815) -static void C_ccall f_37815(C_word c,C_word *av) C_noret; -C_noret_decl(f_37819) -static void C_ccall f_37819(C_word c,C_word *av) C_noret; -C_noret_decl(f_37822) -static void C_ccall f_37822(C_word c,C_word *av) C_noret; -C_noret_decl(f_37827) -static void f_37827(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_37840) -static void C_ccall f_37840(C_word c,C_word *av) C_noret; -C_noret_decl(f_37865) -static void C_ccall f_37865(C_word c,C_word *av) C_noret; -C_noret_decl(f_37877) -static void f_37877(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_37902) -static void C_ccall f_37902(C_word c,C_word *av) C_noret; -C_noret_decl(f_37904) -static void C_ccall f_37904(C_word c,C_word *av) C_noret; -C_noret_decl(f_37918) -static void f_37918(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_37928) -static void C_ccall f_37928(C_word c,C_word *av) C_noret; -C_noret_decl(f_37931) -static void C_ccall f_37931(C_word c,C_word *av) C_noret; -C_noret_decl(f_37934) -static void C_ccall f_37934(C_word c,C_word *av) C_noret; -C_noret_decl(f_37939) -static C_word f_37939(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_38008) -static void C_ccall f_38008(C_word c,C_word *av) C_noret; -C_noret_decl(f_38022) -static void f_38022(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_38032) -static void C_ccall f_38032(C_word c,C_word *av) C_noret; -C_noret_decl(f_38035) -static void C_ccall f_38035(C_word c,C_word *av) C_noret; -C_noret_decl(f_38038) -static void C_ccall f_38038(C_word c,C_word *av) C_noret; -C_noret_decl(f_38043) -static void f_38043(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_38122) -static void C_ccall f_38122(C_word c,C_word *av) C_noret; -C_noret_decl(f_38132) -static void C_ccall f_38132(C_word c,C_word *av) C_noret; -C_noret_decl(f_38137) -static void f_38137(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_38150) -static void C_ccall f_38150(C_word c,C_word *av) C_noret; -C_noret_decl(f_38184) -static void C_ccall f_38184(C_word c,C_word *av) C_noret; -C_noret_decl(f_38198) -static void C_ccall f_38198(C_word c,C_word *av) C_noret; -C_noret_decl(f_38207) -static void C_ccall f_38207(C_word c,C_word *av) C_noret; -C_noret_decl(f_38212) -static void f_38212(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38233) -static void C_ccall f_38233(C_word c,C_word *av) C_noret; -C_noret_decl(f_38238) -static C_word f_38238(C_word t0,C_word t1); -C_noret_decl(f_38245) -static void C_ccall f_38245(C_word c,C_word *av) C_noret; -C_noret_decl(f_38247) -static void f_38247(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38281) -static C_word f_38281(C_word t0,C_word t1); -C_noret_decl(f_38305) -static void f_38305(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38339) -static C_word f_38339(C_word t0); -C_noret_decl(f_38362) -static void C_ccall f_38362(C_word c,C_word *av) C_noret; -C_noret_decl(f_38374) -static void f_38374(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38384) -static void C_ccall f_38384(C_word c,C_word *av) C_noret; -C_noret_decl(f_38410) -static void C_ccall f_38410(C_word c,C_word *av) C_noret; -C_noret_decl(f_38424) -static void C_ccall f_38424(C_word c,C_word *av) C_noret; -C_noret_decl(f_38433) -static void C_ccall f_38433(C_word c,C_word *av) C_noret; -C_noret_decl(f_38438) -static void f_38438(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38448) -static void C_ccall f_38448(C_word c,C_word *av) C_noret; -C_noret_decl(f_38460) -static C_word f_38460(C_word t0,C_word t1); -C_noret_decl(f_38467) -static void C_ccall f_38467(C_word c,C_word *av) C_noret; -C_noret_decl(f_38469) -static void f_38469(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38503) -static C_word f_38503(C_word t0,C_word t1); -C_noret_decl(f_38527) -static void f_38527(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38561) -static C_word f_38561(C_word t0); -C_noret_decl(f_38584) -static void C_ccall f_38584(C_word c,C_word *av) C_noret; -C_noret_decl(f_38594) -static void C_ccall f_38594(C_word c,C_word *av) C_noret; -C_noret_decl(f_38603) -static void C_ccall f_38603(C_word c,C_word *av) C_noret; -C_noret_decl(f_38608) -static void f_38608(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38629) -static void C_ccall f_38629(C_word c,C_word *av) C_noret; -C_noret_decl(f_38639) -static void C_ccall f_38639(C_word c,C_word *av) C_noret; -C_noret_decl(f_38653) -static void C_ccall f_38653(C_word c,C_word *av) C_noret; -C_noret_decl(f_38662) -static void C_ccall f_38662(C_word c,C_word *av) C_noret; -C_noret_decl(f_38667) -static void f_38667(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38688) -static void C_ccall f_38688(C_word c,C_word *av) C_noret; -C_noret_decl(f_38693) -static C_word f_38693(C_word t0,C_word t1); -C_noret_decl(f_38700) -static void C_ccall f_38700(C_word c,C_word *av) C_noret; -C_noret_decl(f_38702) -static void f_38702(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38736) -static C_word f_38736(C_word t0,C_word t1); -C_noret_decl(f_38760) -static void f_38760(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38794) -static C_word f_38794(C_word t0); -C_noret_decl(f_38817) -static void C_ccall f_38817(C_word c,C_word *av) C_noret; -C_noret_decl(f_38827) -static void C_ccall f_38827(C_word c,C_word *av) C_noret; -C_noret_decl(f_38838) -static void f_38838(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38848) -static void C_ccall f_38848(C_word c,C_word *av) C_noret; -C_noret_decl(f_38865) -static void C_ccall f_38865(C_word c,C_word *av) C_noret; -C_noret_decl(f_38879) -static void C_ccall f_38879(C_word c,C_word *av) C_noret; -C_noret_decl(f_38888) -static void C_ccall f_38888(C_word c,C_word *av) C_noret; -C_noret_decl(f_38893) -static void f_38893(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38903) -static void C_ccall f_38903(C_word c,C_word *av) C_noret; -C_noret_decl(f_38915) -static C_word f_38915(C_word t0,C_word t1); -C_noret_decl(f_38922) -static void C_ccall f_38922(C_word c,C_word *av) C_noret; -C_noret_decl(f_38924) -static void f_38924(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_38958) -static C_word f_38958(C_word t0,C_word t1); -C_noret_decl(f_38982) -static void f_38982(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_39016) -static C_word f_39016(C_word t0); -C_noret_decl(f_39039) -static void C_ccall f_39039(C_word c,C_word *av) C_noret; -C_noret_decl(f_39043) -static void C_ccall f_39043(C_word c,C_word *av) C_noret; -C_noret_decl(f_39046) -static void C_ccall f_39046(C_word c,C_word *av) C_noret; -C_noret_decl(f_39049) -static void C_ccall f_39049(C_word c,C_word *av) C_noret; -C_noret_decl(f_39074) -static void C_ccall f_39074(C_word c,C_word *av) C_noret; -C_noret_decl(f_39080) -static void C_ccall f_39080(C_word c,C_word *av) C_noret; -C_noret_decl(f_39086) -static void C_ccall f_39086(C_word c,C_word *av) C_noret; -C_noret_decl(f_39090) -static void C_ccall f_39090(C_word c,C_word *av) C_noret; -C_noret_decl(f_39095) -static void C_ccall f_39095(C_word c,C_word *av) C_noret; -C_noret_decl(f_39098) -static void C_ccall f_39098(C_word c,C_word *av) C_noret; -C_noret_decl(f_39109) -static void C_ccall f_39109(C_word c,C_word *av) C_noret; -C_noret_decl(f_39134) -static void C_ccall f_39134(C_word c,C_word *av) C_noret; -C_noret_decl(f_39148) -static void C_ccall f_39148(C_word c,C_word *av) C_noret; -C_noret_decl(f_39176) -static void f_39176(C_word t0,C_word t1) C_noret; -C_noret_decl(f_39179) -static void f_39179(C_word t0,C_word t1) C_noret; -C_noret_decl(f_39182) -static void C_ccall f_39182(C_word c,C_word *av) C_noret; -C_noret_decl(f_39252) -static void C_ccall f_39252(C_word c,C_word *av) C_noret; -C_noret_decl(f_39281) -static void C_ccall f_39281(C_word c,C_word *av) C_noret; -C_noret_decl(f_39283) -static void f_39283(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_39303) -static void C_ccall f_39303(C_word c,C_word *av) C_noret; -C_noret_decl(f_39355) -static void C_ccall f_39355(C_word c,C_word *av) C_noret; -C_noret_decl(f_39365) -static void f_39365(C_word t0,C_word t1) C_noret; -C_noret_decl(f_39375) -static void f_39375(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_39388) -static void C_ccall f_39388(C_word c,C_word *av) C_noret; -C_noret_decl(f_39393) -static void f_39393(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_39406) -static void C_ccall f_39406(C_word c,C_word *av) C_noret; -C_noret_decl(f_39439) -static void C_ccall f_39439(C_word c,C_word *av) C_noret; -C_noret_decl(f_39448) -static void C_ccall f_39448(C_word c,C_word *av) C_noret; -C_noret_decl(f_39474) -static void C_ccall f_39474(C_word c,C_word *av) C_noret; -C_noret_decl(f_39482) -static void C_ccall f_39482(C_word c,C_word *av) C_noret; -C_noret_decl(f_39511) -static void C_ccall f_39511(C_word c,C_word *av) C_noret; -C_noret_decl(f_39539) -static void f_39539(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_39552) -static void C_ccall f_39552(C_word c,C_word *av) C_noret; -C_noret_decl(f_39601) -static void C_ccall f_39601(C_word c,C_word *av) C_noret; -C_noret_decl(f_39620) -static void C_ccall f_39620(C_word c,C_word *av) C_noret; -C_noret_decl(f_39640) -static void C_ccall f_39640(C_word c,C_word *av) C_noret; -C_noret_decl(f_39655) -static void f_39655(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_39659) -static void C_ccall f_39659(C_word c,C_word *av) C_noret; -C_noret_decl(f_39715) -static void C_ccall f_39715(C_word c,C_word *av) C_noret; -C_noret_decl(f_39719) -static void C_ccall f_39719(C_word c,C_word *av) C_noret; -C_noret_decl(f_39727) -static void C_ccall f_39727(C_word c,C_word *av) C_noret; -C_noret_decl(f_39730) -static void f_39730(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_39734) -static void C_ccall f_39734(C_word c,C_word *av) C_noret; -C_noret_decl(f_39745) -static void C_ccall f_39745(C_word c,C_word *av) C_noret; -C_noret_decl(f_39748) -static C_word f_39748(C_word t0,C_word t1,C_word t2); -C_noret_decl(f_39754) -static void f_39754(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_39758) -static void C_ccall f_39758(C_word c,C_word *av) C_noret; -C_noret_decl(f_39778) -static void f_39778(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_39803) -static void C_ccall f_39803(C_word c,C_word *av) C_noret; -C_noret_decl(f_39873) -static void C_ccall f_39873(C_word c,C_word *av) C_noret; -C_noret_decl(f_39948) -static void C_ccall f_39948(C_word c,C_word *av) C_noret; -C_noret_decl(f_40033) -static void C_ccall f_40033(C_word c,C_word *av) C_noret; -C_noret_decl(f_40052) -static void C_ccall f_40052(C_word c,C_word *av) C_noret; -C_noret_decl(f_40055) -static void C_ccall f_40055(C_word c,C_word *av) C_noret; -C_noret_decl(f_40069) -static void C_ccall f_40069(C_word c,C_word *av) C_noret; -C_noret_decl(f_40081) -static void C_ccall f_40081(C_word c,C_word *av) C_noret; -C_noret_decl(f_40083) -static void C_ccall f_40083(C_word c,C_word *av) C_noret; -C_noret_decl(f_40091) -static void C_ccall f_40091(C_word c,C_word *av) C_noret; -C_noret_decl(f_40093) -static void f_40093(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_40100) -static void C_ccall f_40100(C_word c,C_word *av) C_noret; -C_noret_decl(f_40112) -static void C_ccall f_40112(C_word c,C_word *av) C_noret; -C_noret_decl(f_40132) -static void C_ccall f_40132(C_word c,C_word *av) C_noret; -C_noret_decl(f_40136) -static void C_ccall f_40136(C_word c,C_word *av) C_noret; -C_noret_decl(f_40139) -static void C_ccall f_40139(C_word c,C_word *av) C_noret; -C_noret_decl(f_40148) -static void C_ccall f_40148(C_word c,C_word *av) C_noret; -C_noret_decl(f_40150) -static void C_ccall f_40150(C_word c,C_word *av) C_noret; -C_noret_decl(f_40201) -static void C_ccall f_40201(C_word c,C_word *av) C_noret; -C_noret_decl(f_40226) -static void C_ccall f_40226(C_word c,C_word *av) C_noret; -C_noret_decl(f_40241) -static void C_ccall f_40241(C_word c,C_word *av) C_noret; -C_noret_decl(f_40251) -static void C_ccall f_40251(C_word c,C_word *av) C_noret; -C_noret_decl(f_40281) -static void C_ccall f_40281(C_word c,C_word *av) C_noret; -C_noret_decl(f_40309) -static void C_ccall f_40309(C_word c,C_word *av) C_noret; -C_noret_decl(f_40319) -static void C_ccall f_40319(C_word c,C_word *av) C_noret; -C_noret_decl(f_40324) -static void f_40324(C_word t0,C_word t1) C_noret; -C_noret_decl(f_40328) -static void C_ccall f_40328(C_word c,C_word *av) C_noret; -C_noret_decl(f_40334) -static void C_ccall f_40334(C_word c,C_word *av) C_noret; -C_noret_decl(f_40337) -static void C_ccall f_40337(C_word c,C_word *av) C_noret; -C_noret_decl(f_40344) -static void C_ccall f_40344(C_word c,C_word *av) C_noret; -C_noret_decl(f_40365) -static void C_ccall f_40365(C_word c,C_word *av) C_noret; -C_noret_decl(f_40375) -static void C_ccall f_40375(C_word c,C_word *av) C_noret; -C_noret_decl(f_40378) -static void C_ccall f_40378(C_word c,C_word *av) C_noret; -C_noret_decl(f_40392) -static void C_ccall f_40392(C_word c,C_word *av) C_noret; -C_noret_decl(f_40405) -static void C_ccall f_40405(C_word c,C_word *av) C_noret; -C_noret_decl(f_40423) -static void C_ccall f_40423(C_word c,C_word *av) C_noret; -C_noret_decl(f_40457) -static void C_ccall f_40457(C_word c,C_word *av) C_noret; -C_noret_decl(f_40460) -static void C_ccall f_40460(C_word c,C_word *av) C_noret; -C_noret_decl(f_40519) -static void C_ccall f_40519(C_word c,C_word *av) C_noret; -C_noret_decl(f_40527) -static void C_ccall f_40527(C_word c,C_word *av) C_noret; -C_noret_decl(f_40531) -static void C_ccall f_40531(C_word c,C_word *av) C_noret; -C_noret_decl(f_40535) -static void C_ccall f_40535(C_word c,C_word *av) C_noret; -C_noret_decl(f_40541) -static void C_ccall f_40541(C_word c,C_word *av) C_noret; -C_noret_decl(f_40545) -static void C_ccall f_40545(C_word c,C_word *av) C_noret; -C_noret_decl(f_40549) -static void C_ccall f_40549(C_word c,C_word *av) C_noret; -C_noret_decl(f_40571) -static void C_ccall f_40571(C_word c,C_word *av) C_noret; -C_noret_decl(f_40575) -static void C_ccall f_40575(C_word c,C_word *av) C_noret; -C_noret_decl(f_40579) -static void C_ccall f_40579(C_word c,C_word *av) C_noret; -C_noret_decl(f_40583) -static void C_ccall f_40583(C_word c,C_word *av) C_noret; -C_noret_decl(f_40587) -static void C_ccall f_40587(C_word c,C_word *av) C_noret; -C_noret_decl(f_40607) -static void C_ccall f_40607(C_word c,C_word *av) C_noret; -C_noret_decl(f_40615) -static void f_40615(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_40640) -static void C_ccall f_40640(C_word c,C_word *av) C_noret; -C_noret_decl(f_40657) -static void C_ccall f_40657(C_word c,C_word *av) C_noret; -C_noret_decl(f_40661) -static void C_ccall f_40661(C_word c,C_word *av) C_noret; -C_noret_decl(f_40664) -static void C_ccall f_40664(C_word c,C_word *av) C_noret; -C_noret_decl(f_40667) -static void C_ccall f_40667(C_word c,C_word *av) C_noret; -C_noret_decl(f_40677) -static void C_ccall f_40677(C_word c,C_word *av) C_noret; -C_noret_decl(f_40680) -static void C_ccall f_40680(C_word c,C_word *av) C_noret; -C_noret_decl(f_40682) -static void C_ccall f_40682(C_word c,C_word *av) C_noret; -C_noret_decl(f_40699) -static C_word f_40699(C_word t0); -C_noret_decl(f_40726) -static void C_ccall f_40726(C_word c,C_word *av) C_noret; -C_noret_decl(f_40735) -static void C_ccall f_40735(C_word c,C_word *av) C_noret; -C_noret_decl(f_40755) -static void C_ccall f_40755(C_word c,C_word *av) C_noret; -C_noret_decl(f_40759) -static void C_ccall f_40759(C_word c,C_word *av) C_noret; -C_noret_decl(f_40763) -static void C_ccall f_40763(C_word c,C_word *av) C_noret; -C_noret_decl(f_40767) -static void C_ccall f_40767(C_word c,C_word *av) C_noret; -C_noret_decl(f_40771) -static void C_ccall f_40771(C_word c,C_word *av) C_noret; -C_noret_decl(f_40775) -static void C_ccall f_40775(C_word c,C_word *av) C_noret; -C_noret_decl(f_40779) -static void C_ccall f_40779(C_word c,C_word *av) C_noret; -C_noret_decl(f_40781) -static void C_ccall f_40781(C_word c,C_word *av) C_noret; -C_noret_decl(f_40790) -static void C_ccall f_40790(C_word c,C_word *av) C_noret; -C_noret_decl(f_40800) -static void C_ccall f_40800(C_word c,C_word *av) C_noret; -C_noret_decl(f_40825) -static void C_ccall f_40825(C_word c,C_word *av) C_noret; -C_noret_decl(f_40828) -static void C_ccall f_40828(C_word c,C_word *av) C_noret; -C_noret_decl(f_40830) -static void C_ccall f_40830(C_word c,C_word *av) C_noret; -C_noret_decl(f_40846) -static void f_40846(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_40881) -static void C_ccall f_40881(C_word c,C_word *av) C_noret; -C_noret_decl(f_40905) -static void C_ccall f_40905(C_word c,C_word *av) C_noret; -C_noret_decl(f_40909) -static void C_ccall f_40909(C_word c,C_word *av) C_noret; -C_noret_decl(f_40911) -static void C_ccall f_40911(C_word c,C_word *av) C_noret; -C_noret_decl(f_40915) -static void C_ccall f_40915(C_word c,C_word *av) C_noret; -C_noret_decl(f_40918) -static void C_ccall f_40918(C_word c,C_word *av) C_noret; -C_noret_decl(f_40931) -static void C_ccall f_40931(C_word c,C_word *av) C_noret; -C_noret_decl(f_40936) -static void C_ccall f_40936(C_word c,C_word *av) C_noret; -C_noret_decl(f_40951) -static void C_ccall f_40951(C_word c,C_word *av) C_noret; -C_noret_decl(f_40955) -static void C_ccall f_40955(C_word c,C_word *av) C_noret; -C_noret_decl(f_40964) -static void C_ccall f_40964(C_word c,C_word *av) C_noret; -C_noret_decl(f_40967) -static void C_ccall f_40967(C_word c,C_word *av) C_noret; -C_noret_decl(f_40970) -static void C_ccall f_40970(C_word c,C_word *av) C_noret; -C_noret_decl(f_40973) -static void C_ccall f_40973(C_word c,C_word *av) C_noret; -C_noret_decl(f_40976) -static void C_ccall f_40976(C_word c,C_word *av) C_noret; -C_noret_decl(f_40978) -static void C_ccall f_40978(C_word c,C_word *av) C_noret; -C_noret_decl(f_40988) -static void C_ccall f_40988(C_word c,C_word *av) C_noret; -C_noret_decl(f_41000) -static void C_ccall f_41000(C_word c,C_word *av) C_noret; -C_noret_decl(f_41008) -static void f_41008(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_41018) -static void C_ccall f_41018(C_word c,C_word *av) C_noret; -C_noret_decl(f_41034) -static void C_ccall f_41034(C_word c,C_word *av) C_noret; -C_noret_decl(f_41040) -static void C_ccall f_41040(C_word c,C_word *av) C_noret; -C_noret_decl(f_41043) -static void C_ccall f_41043(C_word c,C_word *av) C_noret; -C_noret_decl(f_41046) -static void C_ccall f_41046(C_word c,C_word *av) C_noret; -C_noret_decl(f_41047) -static void f_41047(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_41051) -static void C_ccall f_41051(C_word c,C_word *av) C_noret; -C_noret_decl(f_41057) -static void C_ccall f_41057(C_word c,C_word *av) C_noret; -C_noret_decl(f_41061) -static void C_ccall f_41061(C_word c,C_word *av) C_noret; -C_noret_decl(f_41063) -static void f_41063(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_41073) -static void C_ccall f_41073(C_word c,C_word *av) C_noret; -C_noret_decl(f_41090) -static void C_ccall f_41090(C_word c,C_word *av) C_noret; -C_noret_decl(f_41093) -static void C_ccall f_41093(C_word c,C_word *av) C_noret; -C_noret_decl(f_41097) -static void C_ccall f_41097(C_word c,C_word *av) C_noret; -C_noret_decl(f_41102) -static void C_ccall f_41102(C_word c,C_word *av) C_noret; -C_noret_decl(f_41108) -static void C_ccall f_41108(C_word c,C_word *av) C_noret; -C_noret_decl(f_41124) -static void C_ccall f_41124(C_word c,C_word *av) C_noret; -C_noret_decl(f_41132) -static void C_ccall f_41132(C_word c,C_word *av) C_noret; -C_noret_decl(f_41154) -static void C_ccall f_41154(C_word c,C_word *av) C_noret; -C_noret_decl(f_41172) -static void C_ccall f_41172(C_word c,C_word *av) C_noret; -C_noret_decl(f_41176) -static void C_ccall f_41176(C_word c,C_word *av) C_noret; -C_noret_decl(f_41188) -static void C_ccall f_41188(C_word c,C_word *av) C_noret; -C_noret_decl(f_41195) -static void C_ccall f_41195(C_word c,C_word *av) C_noret; -C_noret_decl(f_41210) -static void C_ccall f_41210(C_word c,C_word *av) C_noret; -C_noret_decl(f_41213) -static void C_ccall f_41213(C_word c,C_word *av) C_noret; -C_noret_decl(f_41216) -static void C_ccall f_41216(C_word c,C_word *av) C_noret; -C_noret_decl(f_41229) -static void f_41229(C_word t0,C_word t1) C_noret; -C_noret_decl(f_41252) -static void C_ccall f_41252(C_word c,C_word *av) C_noret; -C_noret_decl(f_41276) -static void C_ccall f_41276(C_word c,C_word *av) C_noret; -C_noret_decl(f_41286) -static void C_ccall f_41286(C_word c,C_word *av) C_noret; -C_noret_decl(f_41295) -static void C_ccall f_41295(C_word c,C_word *av) C_noret; -C_noret_decl(f_41336) -static void C_ccall f_41336(C_word c,C_word *av) C_noret; -C_noret_decl(f_41358) -static void C_ccall f_41358(C_word c,C_word *av) C_noret; -C_noret_decl(f_41367) -static void C_ccall f_41367(C_word c,C_word *av) C_noret; -C_noret_decl(f_41371) -static void C_ccall f_41371(C_word c,C_word *av) C_noret; -C_noret_decl(f_41376) -static void C_ccall f_41376(C_word c,C_word *av) C_noret; -C_noret_decl(f_41386) -static void C_ccall f_41386(C_word c,C_word *av) C_noret; -C_noret_decl(f_41396) -static void C_ccall f_41396(C_word c,C_word *av) C_noret; -C_noret_decl(f_41406) -static void C_ccall f_41406(C_word c,C_word *av) C_noret; -C_noret_decl(f_41416) -static void C_ccall f_41416(C_word c,C_word *av) C_noret; -C_noret_decl(f_41426) -static void C_ccall f_41426(C_word c,C_word *av) C_noret; -C_noret_decl(f_41436) -static void C_ccall f_41436(C_word c,C_word *av) C_noret; -C_noret_decl(f_41446) -static void C_ccall f_41446(C_word c,C_word *av) C_noret; -C_noret_decl(f_41456) -static void C_ccall f_41456(C_word c,C_word *av) C_noret; -C_noret_decl(f_41466) -static void C_ccall f_41466(C_word c,C_word *av) C_noret; -C_noret_decl(f_41476) -static void C_ccall f_41476(C_word c,C_word *av) C_noret; -C_noret_decl(f_41486) -static void C_ccall f_41486(C_word c,C_word *av) C_noret; -C_noret_decl(f_41496) -static void C_ccall f_41496(C_word c,C_word *av) C_noret; -C_noret_decl(f_41506) -static void C_ccall f_41506(C_word c,C_word *av) C_noret; -C_noret_decl(f_41522) -static void C_ccall f_41522(C_word c,C_word *av) C_noret; -C_noret_decl(f_41530) -static void C_ccall f_41530(C_word c,C_word *av) C_noret; -C_noret_decl(f_41546) -static void C_ccall f_41546(C_word c,C_word *av) C_noret; -C_noret_decl(f_41562) -static void C_ccall f_41562(C_word c,C_word *av) C_noret; -C_noret_decl(f_41572) -static void C_ccall f_41572(C_word c,C_word *av) C_noret; -C_noret_decl(f_41582) -static void C_ccall f_41582(C_word c,C_word *av) C_noret; -C_noret_decl(f_41601) -static void C_ccall f_41601(C_word c,C_word *av) C_noret; -C_noret_decl(f_41617) -static void C_ccall f_41617(C_word c,C_word *av) C_noret; -C_noret_decl(f_41630) -static void C_ccall f_41630(C_word c,C_word *av) C_noret; -C_noret_decl(f_41636) -static void C_ccall f_41636(C_word c,C_word *av) C_noret; -C_noret_decl(f_41668) -static void C_ccall f_41668(C_word c,C_word *av) C_noret; -C_noret_decl(f_41684) -static void C_ccall f_41684(C_word c,C_word *av) C_noret; -C_noret_decl(f_41688) -static void C_ccall f_41688(C_word c,C_word *av) C_noret; -C_noret_decl(f_41698) -static void C_ccall f_41698(C_word c,C_word *av) C_noret; -C_noret_decl(f_41704) -static void C_ccall f_41704(C_word c,C_word *av) C_noret; -C_noret_decl(f_41711) -static void C_ccall f_41711(C_word c,C_word *av) C_noret; -C_noret_decl(f_41729) -static void C_ccall f_41729(C_word c,C_word *av) C_noret; -C_noret_decl(f_41733) -static void C_ccall f_41733(C_word c,C_word *av) C_noret; -C_noret_decl(f_41741) -static void C_ccall f_41741(C_word c,C_word *av) C_noret; -C_noret_decl(f_41744) -static void C_ccall f_41744(C_word c,C_word *av) C_noret; -C_noret_decl(f_41757) -static void C_ccall f_41757(C_word c,C_word *av) C_noret; -C_noret_decl(f_41760) -static void C_ccall f_41760(C_word c,C_word *av) C_noret; -C_noret_decl(f_41772) -static void C_ccall f_41772(C_word c,C_word *av) C_noret; -C_noret_decl(f_41786) -static void C_ccall f_41786(C_word c,C_word *av) C_noret; -C_noret_decl(f_41789) -static void C_ccall f_41789(C_word c,C_word *av) C_noret; -C_noret_decl(f_41795) -static void C_ccall f_41795(C_word c,C_word *av) C_noret; -C_noret_decl(f_41798) -static void C_ccall f_41798(C_word c,C_word *av) C_noret; -C_noret_decl(f_41801) -static void C_ccall f_41801(C_word c,C_word *av) C_noret; -C_noret_decl(f_41808) -static void f_41808(C_word t0,C_word t1) C_noret; -C_noret_decl(f_41817) -static void f_41817(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_41833) -static void C_ccall f_41833(C_word c,C_word *av) C_noret; -C_noret_decl(f_41844) -static void C_ccall f_41844(C_word c,C_word *av) C_noret; -C_noret_decl(f_41855) -static void C_ccall f_41855(C_word c,C_word *av) C_noret; -C_noret_decl(f_41859) -static void C_ccall f_41859(C_word c,C_word *av) C_noret; -C_noret_decl(f_41908) -static void C_ccall f_41908(C_word c,C_word *av) C_noret; -C_noret_decl(f_41915) -static void f_41915(C_word t0,C_word t1) C_noret; -C_noret_decl(f_41928) -static void f_41928(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_41950) -static void C_ccall f_41950(C_word c,C_word *av) C_noret; -C_noret_decl(f_41974) -static void C_ccall f_41974(C_word c,C_word *av) C_noret; -C_noret_decl(f_41978) -static void C_ccall f_41978(C_word c,C_word *av) C_noret; -C_noret_decl(f_41995) -static void C_ccall f_41995(C_word c,C_word *av) C_noret; -C_noret_decl(f_42009) -static void C_ccall f_42009(C_word c,C_word *av) C_noret; -C_noret_decl(f_42017) -static void C_ccall f_42017(C_word c,C_word *av) C_noret; -C_noret_decl(f_42021) -static void C_ccall f_42021(C_word c,C_word *av) C_noret; -C_noret_decl(f_42036) -static void C_ccall f_42036(C_word c,C_word *av) C_noret; -C_noret_decl(f_42040) -static void C_ccall f_42040(C_word c,C_word *av) C_noret; -C_noret_decl(f_42054) -static void C_ccall f_42054(C_word c,C_word *av) C_noret; -C_noret_decl(f_42094) -static void C_ccall f_42094(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_11848) -static void C_ccall trf_11848(C_word c,C_word *av) C_noret; -static void C_ccall trf_11848(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11848(t0,t1,t2,t3);} - -C_noret_decl(trf_11899) -static void C_ccall trf_11899(C_word c,C_word *av) C_noret; -static void C_ccall trf_11899(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11899(t0,t1,t2);} - -C_noret_decl(trf_11949) -static void C_ccall trf_11949(C_word c,C_word *av) C_noret; -static void C_ccall trf_11949(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11949(t0,t1,t2);} - -C_noret_decl(trf_12722) -static void C_ccall trf_12722(C_word c,C_word *av) C_noret; -static void C_ccall trf_12722(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_12722(t0,t1,t2,t3);} - -C_noret_decl(trf_12759) -static void C_ccall trf_12759(C_word c,C_word *av) C_noret; -static void C_ccall trf_12759(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12759(t0,t1,t2);} - -C_noret_decl(trf_12845) -static void C_ccall trf_12845(C_word c,C_word *av) C_noret; -static void C_ccall trf_12845(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12845(t0,t1,t2);} - -C_noret_decl(trf_12878) -static void C_ccall trf_12878(C_word c,C_word *av) C_noret; -static void C_ccall trf_12878(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12878(t0,t1,t2);} - -C_noret_decl(trf_12996) -static void C_ccall trf_12996(C_word c,C_word *av) C_noret; -static void C_ccall trf_12996(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_12996(t0,t1,t2);} - -C_noret_decl(trf_13031) -static void C_ccall trf_13031(C_word c,C_word *av) C_noret; -static void C_ccall trf_13031(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13031(t0,t1,t2);} - -C_noret_decl(trf_13095) -static void C_ccall trf_13095(C_word c,C_word *av) C_noret; -static void C_ccall trf_13095(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13095(t0,t1,t2);} - -C_noret_decl(trf_13169) -static void C_ccall trf_13169(C_word c,C_word *av) C_noret; -static void C_ccall trf_13169(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13169(t0,t1,t2);} - -C_noret_decl(trf_13205) -static void C_ccall trf_13205(C_word c,C_word *av) C_noret; -static void C_ccall trf_13205(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13205(t0,t1,t2);} - -C_noret_decl(trf_13234) -static void C_ccall trf_13234(C_word c,C_word *av) C_noret; -static void C_ccall trf_13234(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_13234(t0,t1,t2,t3);} - -C_noret_decl(trf_13281) -static void C_ccall trf_13281(C_word c,C_word *av) C_noret; -static void C_ccall trf_13281(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13281(t0,t1,t2);} - -C_noret_decl(trf_13335) -static void C_ccall trf_13335(C_word c,C_word *av) C_noret; -static void C_ccall trf_13335(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_13335(t0,t1,t2,t3);} - -C_noret_decl(trf_13439) -static void C_ccall trf_13439(C_word c,C_word *av) C_noret; -static void C_ccall trf_13439(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13439(t0,t1);} - -C_noret_decl(trf_13477) -static void C_ccall trf_13477(C_word c,C_word *av) C_noret; -static void C_ccall trf_13477(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13477(t0,t1,t2);} - -C_noret_decl(trf_13527) -static void C_ccall trf_13527(C_word c,C_word *av) C_noret; -static void C_ccall trf_13527(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13527(t0,t1,t2);} - -C_noret_decl(trf_13638) -static void C_ccall trf_13638(C_word c,C_word *av) C_noret; -static void C_ccall trf_13638(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13638(t0,t1);} - -C_noret_decl(trf_13669) -static void C_ccall trf_13669(C_word c,C_word *av) C_noret; -static void C_ccall trf_13669(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13669(t0,t1,t2);} - -C_noret_decl(trf_13746) -static void C_ccall trf_13746(C_word c,C_word *av) C_noret; -static void C_ccall trf_13746(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_13746(t0,t1,t2);} - -C_noret_decl(trf_13943) -static void C_ccall trf_13943(C_word c,C_word *av) C_noret; -static void C_ccall trf_13943(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_13943(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_13947) -static void C_ccall trf_13947(C_word c,C_word *av) C_noret; -static void C_ccall trf_13947(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_13947(t0,t1);} - -C_noret_decl(trf_14006) -static void C_ccall trf_14006(C_word c,C_word *av) C_noret; -static void C_ccall trf_14006(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_14006(t0,t1);} - -C_noret_decl(trf_14629) -static void C_ccall trf_14629(C_word c,C_word *av) C_noret; -static void C_ccall trf_14629(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_14629(t0,t1,t2,t3);} - -C_noret_decl(trf_14678) -static void C_ccall trf_14678(C_word c,C_word *av) C_noret; -static void C_ccall trf_14678(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_14678(t0,t1);} - -C_noret_decl(trf_14885) -static void C_ccall trf_14885(C_word c,C_word *av) C_noret; -static void C_ccall trf_14885(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14885(t0,t1,t2);} - -C_noret_decl(trf_14904) -static void C_ccall trf_14904(C_word c,C_word *av) C_noret; -static void C_ccall trf_14904(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_14904(t0,t1,t2);} - -C_noret_decl(trf_14958) -static void C_ccall trf_14958(C_word c,C_word *av) C_noret; -static void C_ccall trf_14958(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_14958(t0,t1,t2,t3);} - -C_noret_decl(trf_15162) -static void C_ccall trf_15162(C_word c,C_word *av) C_noret; -static void C_ccall trf_15162(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15162(t0,t1);} - -C_noret_decl(trf_15264) -static void C_ccall trf_15264(C_word c,C_word *av) C_noret; -static void C_ccall trf_15264(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_15264(t0,t1,t2,t3);} - -C_noret_decl(trf_15375) -static void C_ccall trf_15375(C_word c,C_word *av) C_noret; -static void C_ccall trf_15375(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_15375(t0,t1,t2,t3);} - -C_noret_decl(trf_15450) -static void C_ccall trf_15450(C_word c,C_word *av) C_noret; -static void C_ccall trf_15450(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_15450(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_15503) -static void C_ccall trf_15503(C_word c,C_word *av) C_noret; -static void C_ccall trf_15503(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_15503(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_15568) -static void C_ccall trf_15568(C_word c,C_word *av) C_noret; -static void C_ccall trf_15568(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15568(t0,t1);} - -C_noret_decl(trf_15684) -static void C_ccall trf_15684(C_word c,C_word *av) C_noret; -static void C_ccall trf_15684(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15684(t0,t1);} - -C_noret_decl(trf_15914) -static void C_ccall trf_15914(C_word c,C_word *av) C_noret; -static void C_ccall trf_15914(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15914(t0,t1);} - -C_noret_decl(trf_15921) -static void C_ccall trf_15921(C_word c,C_word *av) C_noret; -static void C_ccall trf_15921(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_15921(t0,t1);} - -C_noret_decl(trf_15949) -static void C_ccall trf_15949(C_word c,C_word *av) C_noret; -static void C_ccall trf_15949(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_15949(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_15971) -static void C_ccall trf_15971(C_word c,C_word *av) C_noret; -static void C_ccall trf_15971(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_15971(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_16107) -static void C_ccall trf_16107(C_word c,C_word *av) C_noret; -static void C_ccall trf_16107(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_16107(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_16129) -static void C_ccall trf_16129(C_word c,C_word *av) C_noret; -static void C_ccall trf_16129(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_16129(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_16310) -static void C_ccall trf_16310(C_word c,C_word *av) C_noret; -static void C_ccall trf_16310(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_16310(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_16389) -static void C_ccall trf_16389(C_word c,C_word *av) C_noret; -static void C_ccall trf_16389(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_16389(t0,t1,t2,t3);} - -C_noret_decl(trf_16410) -static void C_ccall trf_16410(C_word c,C_word *av) C_noret; -static void C_ccall trf_16410(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_16410(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_16572) -static void C_ccall trf_16572(C_word c,C_word *av) C_noret; -static void C_ccall trf_16572(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_16572(t0,t1);} - -C_noret_decl(trf_17268) -static void C_ccall trf_17268(C_word c,C_word *av) C_noret; -static void C_ccall trf_17268(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_17268(t0,t1,t2);} - -C_noret_decl(trf_17627) -static void C_ccall trf_17627(C_word c,C_word *av) C_noret; -static void C_ccall trf_17627(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_17627(t0,t1,t2,t3);} - -C_noret_decl(trf_17644) -static void C_ccall trf_17644(C_word c,C_word *av) C_noret; -static void C_ccall trf_17644(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_17644(t0,t1,t2,t3);} - -C_noret_decl(trf_17809) -static void C_ccall trf_17809(C_word c,C_word *av) C_noret; -static void C_ccall trf_17809(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_17809(t0,t1,t2,t3);} - -C_noret_decl(trf_18291) -static void C_ccall trf_18291(C_word c,C_word *av) C_noret; -static void C_ccall trf_18291(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_18291(t0,t1,t2);} - -C_noret_decl(trf_18294) -static void C_ccall trf_18294(C_word c,C_word *av) C_noret; -static void C_ccall trf_18294(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_18294(t0,t1,t2,t3);} - -C_noret_decl(trf_18473) -static void C_ccall trf_18473(C_word c,C_word *av) C_noret; -static void C_ccall trf_18473(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_18473(t0,t1,t2,t3,t4);} - -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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_18517(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_18780) -static void C_ccall trf_18780(C_word c,C_word *av) C_noret; -static void C_ccall trf_18780(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_18780(t0,t1);} - -C_noret_decl(trf_18786) -static void C_ccall trf_18786(C_word c,C_word *av) C_noret; -static void C_ccall trf_18786(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_18786(t0,t1);} - -C_noret_decl(trf_18842) -static void C_ccall trf_18842(C_word c,C_word *av) C_noret; -static void C_ccall trf_18842(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_18842(t0,t1);} - -C_noret_decl(trf_18848) -static void C_ccall trf_18848(C_word c,C_word *av) C_noret; -static void C_ccall trf_18848(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_18848(t0,t1);} - -C_noret_decl(trf_19413) -static void C_ccall trf_19413(C_word c,C_word *av) C_noret; -static void C_ccall trf_19413(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_19413(t0,t1);} - -C_noret_decl(trf_19448) -static void C_ccall trf_19448(C_word c,C_word *av) C_noret; -static void C_ccall trf_19448(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_19448(t0,t1,t2,t3);} - -C_noret_decl(trf_19558) -static void C_ccall trf_19558(C_word c,C_word *av) C_noret; -static void C_ccall trf_19558(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_19558(t0,t1,t2,t3);} - -C_noret_decl(trf_19600) -static void C_ccall trf_19600(C_word c,C_word *av) C_noret; -static void C_ccall trf_19600(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_19600(t0,t1,t2);} - -C_noret_decl(trf_19614) -static void C_ccall trf_19614(C_word c,C_word *av) C_noret; -static void C_ccall trf_19614(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_19614(t0,t1,t2);} - -C_noret_decl(trf_19768) -static void C_ccall trf_19768(C_word c,C_word *av) C_noret; -static void C_ccall trf_19768(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_19768(t0,t1);} - -C_noret_decl(trf_19864) -static void C_ccall trf_19864(C_word c,C_word *av) C_noret; -static void C_ccall trf_19864(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_19864(t0,t1,t2,t3);} - -C_noret_decl(trf_19960) -static void C_ccall trf_19960(C_word c,C_word *av) C_noret; -static void C_ccall trf_19960(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_19960(t0,t1,t2,t3);} - -C_noret_decl(trf_20025) -static void C_ccall trf_20025(C_word c,C_word *av) C_noret; -static void C_ccall trf_20025(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_20025(t0,t1,t2,t3);} - -C_noret_decl(trf_20226) -static void C_ccall trf_20226(C_word c,C_word *av) C_noret; -static void C_ccall trf_20226(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20226(t0,t1);} - -C_noret_decl(trf_20287) -static void C_ccall trf_20287(C_word c,C_word *av) C_noret; -static void C_ccall trf_20287(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20287(t0,t1,t2);} - -C_noret_decl(trf_20330) -static void C_ccall trf_20330(C_word c,C_word *av) C_noret; -static void C_ccall trf_20330(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_20330(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_20348) -static void C_ccall trf_20348(C_word c,C_word *av) C_noret; -static void C_ccall trf_20348(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_20348(t0,t1,t2,t3);} - -C_noret_decl(trf_20428) -static void C_ccall trf_20428(C_word c,C_word *av) C_noret; -static void C_ccall trf_20428(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20428(t0,t1,t2);} - -C_noret_decl(trf_20434) -static void C_ccall trf_20434(C_word c,C_word *av) C_noret; -static void C_ccall trf_20434(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20434(t0,t1,t2);} - -C_noret_decl(trf_20494) -static void C_ccall trf_20494(C_word c,C_word *av) C_noret; -static void C_ccall trf_20494(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20494(t0,t1);} - -C_noret_decl(trf_20532) -static void C_ccall trf_20532(C_word c,C_word *av) C_noret; -static void C_ccall trf_20532(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20532(t0,t1,t2);} - -C_noret_decl(trf_20538) -static void C_ccall trf_20538(C_word c,C_word *av) C_noret; -static void C_ccall trf_20538(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20538(t0,t1,t2);} - -C_noret_decl(trf_20580) -static void C_ccall trf_20580(C_word c,C_word *av) C_noret; -static void C_ccall trf_20580(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_20580(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_20636) -static void C_ccall trf_20636(C_word c,C_word *av) C_noret; -static void C_ccall trf_20636(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_20636(t0,t1,t2);} - -C_noret_decl(trf_20649) -static void C_ccall trf_20649(C_word c,C_word *av) C_noret; -static void C_ccall trf_20649(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20649(t0,t1);} - -C_noret_decl(trf_20689) -static void C_ccall trf_20689(C_word c,C_word *av) C_noret; -static void C_ccall trf_20689(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_20689(t0,t1,t2,t3,t4);} - -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[1]; -C_word t1=av[0]; -f_20708(t0,t1);} - -C_noret_decl(trf_20720) -static void C_ccall trf_20720(C_word c,C_word *av) C_noret; -static void C_ccall trf_20720(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20720(t0,t1);} - -C_noret_decl(trf_20747) -static void C_ccall trf_20747(C_word c,C_word *av) C_noret; -static void C_ccall trf_20747(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20747(t0,t1);} - -C_noret_decl(trf_20901) -static void C_ccall trf_20901(C_word c,C_word *av) C_noret; -static void C_ccall trf_20901(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_20901(t0,t1,t2,t3);} - -C_noret_decl(trf_20908) -static void C_ccall trf_20908(C_word c,C_word *av) C_noret; -static void C_ccall trf_20908(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20908(t0,t1);} - -C_noret_decl(trf_20979) -static void C_ccall trf_20979(C_word c,C_word *av) C_noret; -static void C_ccall trf_20979(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_20979(t0,t1);} - -C_noret_decl(trf_21243) -static void C_ccall trf_21243(C_word c,C_word *av) C_noret; -static void C_ccall trf_21243(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_21243(t0,t1,t2);} - -C_noret_decl(trf_21256) -static void C_ccall trf_21256(C_word c,C_word *av) C_noret; -static void C_ccall trf_21256(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21256(t0,t1);} - -C_noret_decl(trf_21311) -static void C_ccall trf_21311(C_word c,C_word *av) C_noret; -static void C_ccall trf_21311(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_21311(t0,t1);} - -C_noret_decl(trf_21730) -static void C_ccall trf_21730(C_word c,C_word *av) C_noret; -static void C_ccall trf_21730(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_21730(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_22011) -static void C_ccall trf_22011(C_word c,C_word *av) C_noret; -static void C_ccall trf_22011(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_22011(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_22038) -static void C_ccall trf_22038(C_word c,C_word *av) C_noret; -static void C_ccall trf_22038(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22038(t0,t1,t2);} - -C_noret_decl(trf_22079) -static void C_ccall trf_22079(C_word c,C_word *av) C_noret; -static void C_ccall trf_22079(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22079(t0,t1,t2,t3);} - -C_noret_decl(trf_22353) -static void C_ccall trf_22353(C_word c,C_word *av) C_noret; -static void C_ccall trf_22353(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_22353(t0,t1,t2);} - -C_noret_decl(trf_22465) -static void C_ccall trf_22465(C_word c,C_word *av) C_noret; -static void C_ccall trf_22465(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22465(t0,t1,t2,t3);} - -C_noret_decl(trf_22498) -static void C_ccall trf_22498(C_word c,C_word *av) C_noret; -static void C_ccall trf_22498(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22498(t0,t1,t2,t3);} - -C_noret_decl(trf_22745) -static void C_ccall trf_22745(C_word c,C_word *av) C_noret; -static void C_ccall trf_22745(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22745(t0,t1);} - -C_noret_decl(trf_22829) -static void C_ccall trf_22829(C_word c,C_word *av) C_noret; -static void C_ccall trf_22829(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_22829(t0,t1);} - -C_noret_decl(trf_22883) -static void C_ccall trf_22883(C_word c,C_word *av) C_noret; -static void C_ccall trf_22883(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_22883(t0,t1,t2,t3);} - -C_noret_decl(trf_23046) -static void C_ccall trf_23046(C_word c,C_word *av) C_noret; -static void C_ccall trf_23046(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_23046(t0,t1,t2);} - -C_noret_decl(trf_23206) -static void C_ccall trf_23206(C_word c,C_word *av) C_noret; -static void C_ccall trf_23206(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_23206(t0,t1,t2,t3);} - -C_noret_decl(trf_23316) -static void C_ccall trf_23316(C_word c,C_word *av) C_noret; -static void C_ccall trf_23316(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_23316(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_23492) -static void C_ccall trf_23492(C_word c,C_word *av) C_noret; -static void C_ccall trf_23492(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23492(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23556) -static void C_ccall trf_23556(C_word c,C_word *av) C_noret; -static void C_ccall trf_23556(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_23556(t0,t1,t2);} - -C_noret_decl(trf_23697) -static void C_ccall trf_23697(C_word c,C_word *av) C_noret; -static void C_ccall trf_23697(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_23697(t0,t1,t2,t3);} - -C_noret_decl(trf_23752) -static void C_ccall trf_23752(C_word c,C_word *av) C_noret; -static void C_ccall trf_23752(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23752(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23799) -static void C_ccall trf_23799(C_word c,C_word *av) C_noret; -static void C_ccall trf_23799(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23799(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23842) -static void C_ccall trf_23842(C_word c,C_word *av) C_noret; -static void C_ccall trf_23842(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23842(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23885) -static void C_ccall trf_23885(C_word c,C_word *av) C_noret; -static void C_ccall trf_23885(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23885(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23928) -static void C_ccall trf_23928(C_word c,C_word *av) C_noret; -static void C_ccall trf_23928(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_23928(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_23961) -static void C_ccall trf_23961(C_word c,C_word *av) C_noret; -static void C_ccall trf_23961(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_23961(t0,t1,t2);} - -C_noret_decl(trf_24169) -static void C_ccall trf_24169(C_word c,C_word *av) C_noret; -static void C_ccall trf_24169(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24169(t0,t1,t2);} - -C_noret_decl(trf_24207) -static void C_ccall trf_24207(C_word c,C_word *av) C_noret; -static void C_ccall trf_24207(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24207(t0,t1,t2);} - -C_noret_decl(trf_24255) -static void C_ccall trf_24255(C_word c,C_word *av) C_noret; -static void C_ccall trf_24255(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24255(t0,t1,t2);} - -C_noret_decl(trf_24316) -static void C_ccall trf_24316(C_word c,C_word *av) C_noret; -static void C_ccall trf_24316(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24316(t0,t1,t2);} - -C_noret_decl(trf_24346) -static void C_ccall trf_24346(C_word c,C_word *av) C_noret; -static void C_ccall trf_24346(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24346(t0,t1,t2);} - -C_noret_decl(trf_24401) -static void C_ccall trf_24401(C_word c,C_word *av) C_noret; -static void C_ccall trf_24401(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24401(t0,t1,t2);} - -C_noret_decl(trf_24442) -static void C_ccall trf_24442(C_word c,C_word *av) C_noret; -static void C_ccall trf_24442(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24442(t0,t1,t2);} - -C_noret_decl(trf_24556) -static void C_ccall trf_24556(C_word c,C_word *av) C_noret; -static void C_ccall trf_24556(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24556(t0,t1,t2);} - -C_noret_decl(trf_24946) -static void C_ccall trf_24946(C_word c,C_word *av) C_noret; -static void C_ccall trf_24946(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_24946(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_24996) -static void C_ccall trf_24996(C_word c,C_word *av) C_noret; -static void C_ccall trf_24996(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_24996(t0,t1,t2);} - -C_noret_decl(trf_25053) -static void C_ccall trf_25053(C_word c,C_word *av) C_noret; -static void C_ccall trf_25053(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25053(t0,t1);} - -C_noret_decl(trf_25063) -static void C_ccall trf_25063(C_word c,C_word *av) C_noret; -static void C_ccall trf_25063(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25063(t0,t1);} - -C_noret_decl(trf_25176) -static void C_ccall trf_25176(C_word c,C_word *av) C_noret; -static void C_ccall trf_25176(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_25176(t0,t1,t2,t3);} - -C_noret_decl(trf_25432) -static void C_ccall trf_25432(C_word c,C_word *av) C_noret; -static void C_ccall trf_25432(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_25432(t0,t1,t2);} - -C_noret_decl(trf_25445) -static void C_ccall trf_25445(C_word c,C_word *av) C_noret; -static void C_ccall trf_25445(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_25445(t0,t1,t2);} - -C_noret_decl(trf_25504) -static void C_ccall trf_25504(C_word c,C_word *av) C_noret; -static void C_ccall trf_25504(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_25504(t0,t1,t2);} - -C_noret_decl(trf_25774) -static void C_ccall trf_25774(C_word c,C_word *av) C_noret; -static void C_ccall trf_25774(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_25774(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_25778) -static void C_ccall trf_25778(C_word c,C_word *av) C_noret; -static void C_ccall trf_25778(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25778(t0,t1);} - -C_noret_decl(trf_25808) -static void C_ccall trf_25808(C_word c,C_word *av) C_noret; -static void C_ccall trf_25808(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25808(t0,t1);} - -C_noret_decl(trf_25828) -static void C_ccall trf_25828(C_word c,C_word *av) C_noret; -static void C_ccall trf_25828(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_25828(t0,t1,t2,t3);} - -C_noret_decl(trf_25837) -static void C_ccall trf_25837(C_word c,C_word *av) C_noret; -static void C_ccall trf_25837(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_25837(t0,t1,t2);} - -C_noret_decl(trf_25842) -static void C_ccall trf_25842(C_word c,C_word *av) C_noret; -static void C_ccall trf_25842(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_25842(t0,t1);} - -C_noret_decl(trf_26211) -static void C_ccall trf_26211(C_word c,C_word *av) C_noret; -static void C_ccall trf_26211(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_26211(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_26220) -static void C_ccall trf_26220(C_word c,C_word *av) C_noret; -static void C_ccall trf_26220(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26220(t0,t1);} - -C_noret_decl(trf_26230) -static void C_ccall trf_26230(C_word c,C_word *av) C_noret; -static void C_ccall trf_26230(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26230(t0,t1,t2);} - -C_noret_decl(trf_26257) -static void C_ccall trf_26257(C_word c,C_word *av) C_noret; -static void C_ccall trf_26257(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26257(t0,t1,t2);} - -C_noret_decl(trf_26266) -static void C_ccall trf_26266(C_word c,C_word *av) C_noret; -static void C_ccall trf_26266(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26266(t0,t1,t2);} - -C_noret_decl(trf_26292) -static void C_ccall trf_26292(C_word c,C_word *av) C_noret; -static void C_ccall trf_26292(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26292(t0,t1,t2,t3);} - -C_noret_decl(trf_26320) -static void C_ccall trf_26320(C_word c,C_word *av) C_noret; -static void C_ccall trf_26320(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26320(t0,t1,t2,t3);} - -C_noret_decl(trf_26326) -static void C_ccall trf_26326(C_word c,C_word *av) C_noret; -static void C_ccall trf_26326(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26326(t0,t1,t2);} - -C_noret_decl(trf_26401) -static void C_ccall trf_26401(C_word c,C_word *av) C_noret; -static void C_ccall trf_26401(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26401(t0,t1,t2);} - -C_noret_decl(trf_26440) -static void C_ccall trf_26440(C_word c,C_word *av) C_noret; -static void C_ccall trf_26440(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26440(t0,t1);} - -C_noret_decl(trf_26443) -static void C_ccall trf_26443(C_word c,C_word *av) C_noret; -static void C_ccall trf_26443(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26443(t0,t1);} - -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_26491) -static void C_ccall trf_26491(C_word c,C_word *av) C_noret; -static void C_ccall trf_26491(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_26491(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_26497) -static void C_ccall trf_26497(C_word c,C_word *av) C_noret; -static void C_ccall trf_26497(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26497(t0,t1,t2,t3);} - -C_noret_decl(trf_26551) -static void C_ccall trf_26551(C_word c,C_word *av) C_noret; -static void C_ccall trf_26551(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26551(t0,t1,t2);} - -C_noret_decl(trf_26554) -static void C_ccall trf_26554(C_word c,C_word *av) C_noret; -static void C_ccall trf_26554(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26554(t0,t1,t2);} - -C_noret_decl(trf_26577) -static void C_ccall trf_26577(C_word c,C_word *av) C_noret; -static void C_ccall trf_26577(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26577(t0,t1);} - -C_noret_decl(trf_26586) -static void C_ccall trf_26586(C_word c,C_word *av) C_noret; -static void C_ccall trf_26586(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26586(t0,t1,t2);} - -C_noret_decl(trf_26641) -static void C_ccall trf_26641(C_word c,C_word *av) C_noret; -static void C_ccall trf_26641(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26641(t0,t1);} - -C_noret_decl(trf_26691) -static void C_ccall trf_26691(C_word c,C_word *av) C_noret; -static void C_ccall trf_26691(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_26691(t0,t1,t2);} - -C_noret_decl(trf_26701) -static void C_ccall trf_26701(C_word c,C_word *av) C_noret; -static void C_ccall trf_26701(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26701(t0,t1,t2,t3);} - -C_noret_decl(trf_26918) -static void C_ccall trf_26918(C_word c,C_word *av) C_noret; -static void C_ccall trf_26918(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26918(t0,t1);} - -C_noret_decl(trf_26938) -static void C_ccall trf_26938(C_word c,C_word *av) C_noret; -static void C_ccall trf_26938(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_26938(t0,t1);} - -C_noret_decl(trf_26943) -static void C_ccall trf_26943(C_word c,C_word *av) C_noret; -static void C_ccall trf_26943(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_26943(t0,t1,t2,t3);} - -C_noret_decl(trf_27042) -static void C_ccall trf_27042(C_word c,C_word *av) C_noret; -static void C_ccall trf_27042(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27042(t0,t1);} - -C_noret_decl(trf_27190) -static void C_ccall trf_27190(C_word c,C_word *av) C_noret; -static void C_ccall trf_27190(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_27190(t0,t1,t2,t3);} - -C_noret_decl(trf_27199) -static void C_ccall trf_27199(C_word c,C_word *av) C_noret; -static void C_ccall trf_27199(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_27199(t0,t1,t2);} - -C_noret_decl(trf_27254) -static void C_ccall trf_27254(C_word c,C_word *av) C_noret; -static void C_ccall trf_27254(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_27254(t0,t1,t2);} - -C_noret_decl(trf_27261) -static void C_ccall trf_27261(C_word c,C_word *av) C_noret; -static void C_ccall trf_27261(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27261(t0,t1);} - -C_noret_decl(trf_27304) -static void C_ccall trf_27304(C_word c,C_word *av) C_noret; -static void C_ccall trf_27304(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27304(t0,t1);} - -C_noret_decl(trf_27451) -static void C_ccall trf_27451(C_word c,C_word *av) C_noret; -static void C_ccall trf_27451(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27451(t0,t1);} - -C_noret_decl(trf_27469) -static void C_ccall trf_27469(C_word c,C_word *av) C_noret; -static void C_ccall trf_27469(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_27469(t0,t1,t2,t3);} - -C_noret_decl(trf_27538) -static void C_ccall trf_27538(C_word c,C_word *av) C_noret; -static void C_ccall trf_27538(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_27538(t0,t1,t2);} - -C_noret_decl(trf_27589) -static void C_ccall trf_27589(C_word c,C_word *av) C_noret; -static void C_ccall trf_27589(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_27589(t0,t1,t2);} - -C_noret_decl(trf_27656) -static void C_ccall trf_27656(C_word c,C_word *av) C_noret; -static void C_ccall trf_27656(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27656(t0,t1);} - -C_noret_decl(trf_27666) -static void C_ccall trf_27666(C_word c,C_word *av) C_noret; -static void C_ccall trf_27666(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_27666(t0,t1,t2,t3);} - -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_27718) -static void C_ccall trf_27718(C_word c,C_word *av) C_noret; -static void C_ccall trf_27718(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27718(t0,t1);} - -C_noret_decl(trf_27728) -static void C_ccall trf_27728(C_word c,C_word *av) C_noret; -static void C_ccall trf_27728(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_27728(t0,t1,t2,t3);} - -C_noret_decl(trf_27764) -static void C_ccall trf_27764(C_word c,C_word *av) C_noret; -static void C_ccall trf_27764(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27764(t0,t1);} - -C_noret_decl(trf_27789) -static void C_ccall trf_27789(C_word c,C_word *av) C_noret; -static void C_ccall trf_27789(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_27789(t0,t1,t2);} - -C_noret_decl(trf_27794) -static void C_ccall trf_27794(C_word c,C_word *av) C_noret; -static void C_ccall trf_27794(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27794(t0,t1);} - -C_noret_decl(trf_27799) -static void C_ccall trf_27799(C_word c,C_word *av) C_noret; -static void C_ccall trf_27799(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_27799(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_27812) -static void C_ccall trf_27812(C_word c,C_word *av) C_noret; -static void C_ccall trf_27812(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27812(t0,t1);} - -C_noret_decl(trf_27818) -static void C_ccall trf_27818(C_word c,C_word *av) C_noret; -static void C_ccall trf_27818(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27818(t0,t1);} - -C_noret_decl(trf_27848) -static void C_ccall trf_27848(C_word c,C_word *av) C_noret; -static void C_ccall trf_27848(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_27848(t0,t1);} - -C_noret_decl(trf_28040) -static void C_ccall trf_28040(C_word c,C_word *av) C_noret; -static void C_ccall trf_28040(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28040(t0,t1);} - -C_noret_decl(trf_28079) -static void C_ccall trf_28079(C_word c,C_word *av) C_noret; -static void C_ccall trf_28079(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28079(t0,t1);} - -C_noret_decl(trf_28232) -static void C_ccall trf_28232(C_word c,C_word *av) C_noret; -static void C_ccall trf_28232(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28232(t0,t1);} - -C_noret_decl(trf_28257) -static void C_ccall trf_28257(C_word c,C_word *av) C_noret; -static void C_ccall trf_28257(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28257(t0,t1);} - -C_noret_decl(trf_28263) -static void C_ccall trf_28263(C_word c,C_word *av) C_noret; -static void C_ccall trf_28263(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_28263(t0,t1,t2);} - -C_noret_decl(trf_28344) -static void C_ccall trf_28344(C_word c,C_word *av) C_noret; -static void C_ccall trf_28344(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28344(t0,t1);} - -C_noret_decl(trf_28357) -static void C_ccall trf_28357(C_word c,C_word *av) C_noret; -static void C_ccall trf_28357(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_28357(t0,t1,t2);} - -C_noret_decl(trf_28575) -static void C_ccall trf_28575(C_word c,C_word *av) C_noret; -static void C_ccall trf_28575(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_28575(t0,t1,t2);} - -C_noret_decl(trf_28948) -static void C_ccall trf_28948(C_word c,C_word *av) C_noret; -static void C_ccall trf_28948(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_28948(t0,t1);} - -C_noret_decl(trf_29311) -static void C_ccall trf_29311(C_word c,C_word *av) C_noret; -static void C_ccall trf_29311(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29311(t0,t1,t2);} - -C_noret_decl(trf_29324) -static void C_ccall trf_29324(C_word c,C_word *av) C_noret; -static void C_ccall trf_29324(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29324(t0,t1);} - -C_noret_decl(trf_29466) -static void C_ccall trf_29466(C_word c,C_word *av) C_noret; -static void C_ccall trf_29466(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29466(t0,t1,t2,t3);} - -C_noret_decl(trf_29482) -static void C_ccall trf_29482(C_word c,C_word *av) C_noret; -static void C_ccall trf_29482(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29482(t0,t1,t2);} - -C_noret_decl(trf_29524) -static void C_ccall trf_29524(C_word c,C_word *av) C_noret; -static void C_ccall trf_29524(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29524(t0,t1,t2,t3);} - -C_noret_decl(trf_29531) -static void C_ccall trf_29531(C_word c,C_word *av) C_noret; -static void C_ccall trf_29531(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_29531(t0,t1);} - -C_noret_decl(trf_29707) -static void C_ccall trf_29707(C_word c,C_word *av) C_noret; -static void C_ccall trf_29707(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29707(t0,t1,t2);} - -C_noret_decl(trf_29758) -static void C_ccall trf_29758(C_word c,C_word *av) C_noret; -static void C_ccall trf_29758(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29758(t0,t1,t2);} - -C_noret_decl(trf_29820) -static void C_ccall trf_29820(C_word c,C_word *av) C_noret; -static void C_ccall trf_29820(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29820(t0,t1,t2,t3);} - -C_noret_decl(trf_29879) -static void C_ccall trf_29879(C_word c,C_word *av) C_noret; -static void C_ccall trf_29879(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_29879(t0,t1,t2);} - -C_noret_decl(trf_29903) -static void C_ccall trf_29903(C_word c,C_word *av) C_noret; -static void C_ccall trf_29903(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29903(t0,t1,t2,t3);} - -C_noret_decl(trf_29963) -static void C_ccall trf_29963(C_word c,C_word *av) C_noret; -static void C_ccall trf_29963(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29963(t0,t1,t2,t3);} - -C_noret_decl(trf_29993) -static void C_ccall trf_29993(C_word c,C_word *av) C_noret; -static void C_ccall trf_29993(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_29993(t0,t1,t2,t3);} - -C_noret_decl(trf_30005) -static void C_ccall trf_30005(C_word c,C_word *av) C_noret; -static void C_ccall trf_30005(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_30005(t0,t1,t2);} - -C_noret_decl(trf_30078) -static void C_ccall trf_30078(C_word c,C_word *av) C_noret; -static void C_ccall trf_30078(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_30078(t0,t1,t2);} - -C_noret_decl(trf_30129) -static void C_ccall trf_30129(C_word c,C_word *av) C_noret; -static void C_ccall trf_30129(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_30129(t0,t1,t2);} - -C_noret_decl(trf_30204) -static void C_ccall trf_30204(C_word c,C_word *av) C_noret; -static void C_ccall trf_30204(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_30204(t0,t1);} - -C_noret_decl(trf_30309) -static void C_ccall trf_30309(C_word c,C_word *av) C_noret; -static void C_ccall trf_30309(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_30309(t0,t1,t2);} - -C_noret_decl(trf_30374) -static void C_ccall trf_30374(C_word c,C_word *av) C_noret; -static void C_ccall trf_30374(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_30374(t0,t1,t2);} - -C_noret_decl(trf_30534) -static void C_ccall trf_30534(C_word c,C_word *av) C_noret; -static void C_ccall trf_30534(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_30534(t0,t1,t2,t3);} - -C_noret_decl(trf_30723) -static void C_ccall trf_30723(C_word c,C_word *av) C_noret; -static void C_ccall trf_30723(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_30723(t0,t1,t2);} - -C_noret_decl(trf_30900) -static void C_ccall trf_30900(C_word c,C_word *av) C_noret; -static void C_ccall trf_30900(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_30900(t0,t1,t2,t3);} - -C_noret_decl(trf_31297) -static void C_ccall trf_31297(C_word c,C_word *av) C_noret; -static void C_ccall trf_31297(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_31297(t0,t1);} - -C_noret_decl(trf_31308) -static void C_ccall trf_31308(C_word c,C_word *av) C_noret; -static void C_ccall trf_31308(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_31308(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_31331) -static void C_ccall trf_31331(C_word c,C_word *av) C_noret; -static void C_ccall trf_31331(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_31331(t0,t1,t2);} - -C_noret_decl(trf_31351) -static void C_ccall trf_31351(C_word c,C_word *av) C_noret; -static void C_ccall trf_31351(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_31351(t0,t1);} - -C_noret_decl(trf_31366) -static void C_ccall trf_31366(C_word c,C_word *av) C_noret; -static void C_ccall trf_31366(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_31366(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_31427) -static void C_ccall trf_31427(C_word c,C_word *av) C_noret; -static void C_ccall trf_31427(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_31427(t0,t1);} - -C_noret_decl(trf_31570) -static void C_ccall trf_31570(C_word c,C_word *av) C_noret; -static void C_ccall trf_31570(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_31570(t0,t1,t2);} - -C_noret_decl(trf_31585) -static void C_ccall trf_31585(C_word c,C_word *av) C_noret; -static void C_ccall trf_31585(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_31585(t0,t1,t2);} - -C_noret_decl(trf_31688) -static void C_ccall trf_31688(C_word c,C_word *av) C_noret; -static void C_ccall trf_31688(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_31688(t0,t1,t2);} - -C_noret_decl(trf_31707) -static void C_ccall trf_31707(C_word c,C_word *av) C_noret; -static void C_ccall trf_31707(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_31707(t0,t1);} - -C_noret_decl(trf_31826) -static void C_ccall trf_31826(C_word c,C_word *av) C_noret; -static void C_ccall trf_31826(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_31826(t0,t1,t2);} - -C_noret_decl(trf_31863) -static void C_ccall trf_31863(C_word c,C_word *av) C_noret; -static void C_ccall trf_31863(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_31863(t0,t1);} - -C_noret_decl(trf_31897) -static void C_ccall trf_31897(C_word c,C_word *av) C_noret; -static void C_ccall trf_31897(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_31897(t0,t1,t2);} - -C_noret_decl(trf_32033) -static void C_ccall trf_32033(C_word c,C_word *av) C_noret; -static void C_ccall trf_32033(C_word c,C_word *av){ -C_word t0=av[0]; -f_32033(t0);} - -C_noret_decl(trf_32081) -static void C_ccall trf_32081(C_word c,C_word *av) C_noret; -static void C_ccall trf_32081(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_32081(t0,t1);} - -C_noret_decl(trf_32105) -static void C_ccall trf_32105(C_word c,C_word *av) C_noret; -static void C_ccall trf_32105(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_32105(t0,t1,t2);} - -C_noret_decl(trf_32203) -static void C_ccall trf_32203(C_word c,C_word *av) C_noret; -static void C_ccall trf_32203(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_32203(t0,t1,t2);} - -C_noret_decl(trf_32251) -static void C_ccall trf_32251(C_word c,C_word *av) C_noret; -static void C_ccall trf_32251(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_32251(t0,t1);} - -C_noret_decl(trf_32254) -static void C_ccall trf_32254(C_word c,C_word *av) C_noret; -static void C_ccall trf_32254(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_32254(t0,t1);} - -C_noret_decl(trf_32274) -static void C_ccall trf_32274(C_word c,C_word *av) C_noret; -static void C_ccall trf_32274(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_32274(t0,t1);} - -C_noret_decl(trf_32721) -static void C_ccall trf_32721(C_word c,C_word *av) C_noret; -static void C_ccall trf_32721(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_32721(t0,t1,t2,t3);} - -C_noret_decl(trf_32727) -static void C_ccall trf_32727(C_word c,C_word *av) C_noret; -static void C_ccall trf_32727(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_32727(t0,t1,t2);} - -C_noret_decl(trf_32743) -static void C_ccall trf_32743(C_word c,C_word *av) C_noret; -static void C_ccall trf_32743(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_32743(t0,t1);} - -C_noret_decl(trf_32840) -static void C_ccall trf_32840(C_word c,C_word *av) C_noret; -static void C_ccall trf_32840(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_32840(t0,t1,t2);} - -C_noret_decl(trf_32886) -static void C_ccall trf_32886(C_word c,C_word *av) C_noret; -static void C_ccall trf_32886(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_32886(t0,t1,t2);} - -C_noret_decl(trf_32962) -static void C_ccall trf_32962(C_word c,C_word *av) C_noret; -static void C_ccall trf_32962(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_32962(t0,t1,t2);} - -C_noret_decl(trf_33014) -static void C_ccall trf_33014(C_word c,C_word *av) C_noret; -static void C_ccall trf_33014(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33014(t0,t1,t2);} - -C_noret_decl(trf_33062) -static void C_ccall trf_33062(C_word c,C_word *av) C_noret; -static void C_ccall trf_33062(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33062(t0,t1,t2);} - -C_noret_decl(trf_33076) -static void C_ccall trf_33076(C_word c,C_word *av) C_noret; -static void C_ccall trf_33076(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33076(t0,t1,t2);} - -C_noret_decl(trf_33132) -static void C_ccall trf_33132(C_word c,C_word *av) C_noret; -static void C_ccall trf_33132(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33132(t0,t1,t2);} - -C_noret_decl(trf_33257) -static void C_ccall trf_33257(C_word c,C_word *av) C_noret; -static void C_ccall trf_33257(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33257(t0,t1,t2);} - -C_noret_decl(trf_33259) -static void C_ccall trf_33259(C_word c,C_word *av) C_noret; -static void C_ccall trf_33259(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33259(t0,t1,t2);} - -C_noret_decl(trf_33280) -static void C_ccall trf_33280(C_word c,C_word *av) C_noret; -static void C_ccall trf_33280(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33280(t0,t1,t2);} - -C_noret_decl(trf_33304) -static void C_ccall trf_33304(C_word c,C_word *av) C_noret; -static void C_ccall trf_33304(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_33304(t0,t1,t2,t3);} - -C_noret_decl(trf_33358) -static void C_ccall trf_33358(C_word c,C_word *av) C_noret; -static void C_ccall trf_33358(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33358(t0,t1,t2);} - -C_noret_decl(trf_33453) -static void C_ccall trf_33453(C_word c,C_word *av) C_noret; -static void C_ccall trf_33453(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_33453(t0,t1,t2);} - -C_noret_decl(trf_33458) -static void C_ccall trf_33458(C_word c,C_word *av) C_noret; -static void C_ccall trf_33458(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_33458(t0,t1);} - -C_noret_decl(trf_34676) -static void C_ccall trf_34676(C_word c,C_word *av) C_noret; -static void C_ccall trf_34676(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_34676(t0,t1,t2);} - -C_noret_decl(trf_34740) -static void C_ccall trf_34740(C_word c,C_word *av) C_noret; -static void C_ccall trf_34740(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_34740(t0,t1,t2);} - -C_noret_decl(trf_35020) -static void C_ccall trf_35020(C_word c,C_word *av) C_noret; -static void C_ccall trf_35020(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_35020(t0,t1);} - -C_noret_decl(trf_35110) -static void C_ccall trf_35110(C_word c,C_word *av) C_noret; -static void C_ccall trf_35110(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_35110(t0,t1,t2);} - -C_noret_decl(trf_35154) -static void C_ccall trf_35154(C_word c,C_word *av) C_noret; -static void C_ccall trf_35154(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_35154(t0,t1);} - -C_noret_decl(trf_35167) -static void C_ccall trf_35167(C_word c,C_word *av) C_noret; -static void C_ccall trf_35167(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_35167(t0,t1,t2);} - -C_noret_decl(trf_35201) -static void C_ccall trf_35201(C_word c,C_word *av) C_noret; -static void C_ccall trf_35201(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_35201(t0,t1,t2);} - -C_noret_decl(trf_35216) -static void C_ccall trf_35216(C_word c,C_word *av) C_noret; -static void C_ccall trf_35216(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_35216(t0,t1);} - -C_noret_decl(trf_35292) -static void C_ccall trf_35292(C_word c,C_word *av) C_noret; -static void C_ccall trf_35292(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_35292(t0,t1,t2);} - -C_noret_decl(trf_35391) -static void C_ccall trf_35391(C_word c,C_word *av) C_noret; -static void C_ccall trf_35391(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_35391(t0,t1);} - -C_noret_decl(trf_35410) -static void C_ccall trf_35410(C_word c,C_word *av) C_noret; -static void C_ccall trf_35410(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_35410(t0,t1,t2);} - -C_noret_decl(trf_35451) -static void C_ccall trf_35451(C_word c,C_word *av) C_noret; -static void C_ccall trf_35451(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_35451(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_35779) -static void C_ccall trf_35779(C_word c,C_word *av) C_noret; -static void C_ccall trf_35779(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_35779(t0,t1,t2);} - -C_noret_decl(trf_35791) -static void C_ccall trf_35791(C_word c,C_word *av) C_noret; -static void C_ccall trf_35791(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_35791(t0,t1,t2);} - -C_noret_decl(trf_35871) -static void C_ccall trf_35871(C_word c,C_word *av) C_noret; -static void C_ccall trf_35871(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_35871(t0,t1,t2,t3);} - -C_noret_decl(trf_36085) -static void C_ccall trf_36085(C_word c,C_word *av) C_noret; -static void C_ccall trf_36085(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_36085(t0,t1,t2);} - -C_noret_decl(trf_36123) -static void C_ccall trf_36123(C_word c,C_word *av) C_noret; -static void C_ccall trf_36123(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_36123(t0,t1,t2);} - -C_noret_decl(trf_36202) -static void C_ccall trf_36202(C_word c,C_word *av) C_noret; -static void C_ccall trf_36202(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_36202(t0,t1,t2);} - -C_noret_decl(trf_36330) -static void C_ccall trf_36330(C_word c,C_word *av) C_noret; -static void C_ccall trf_36330(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_36330(t0,t1);} - -C_noret_decl(trf_36767) -static void C_ccall trf_36767(C_word c,C_word *av) C_noret; -static void C_ccall trf_36767(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_36767(t0,t1);} - -C_noret_decl(trf_36779) -static void C_ccall trf_36779(C_word c,C_word *av) C_noret; -static void C_ccall trf_36779(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_36779(t0,t1,t2);} - -C_noret_decl(trf_36838) -static void C_ccall trf_36838(C_word c,C_word *av) C_noret; -static void C_ccall trf_36838(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_36838(t0,t1);} - -C_noret_decl(trf_36852) -static void C_ccall trf_36852(C_word c,C_word *av) C_noret; -static void C_ccall trf_36852(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_36852(t0,t1,t2);} - -C_noret_decl(trf_36874) -static void C_ccall trf_36874(C_word c,C_word *av) C_noret; -static void C_ccall trf_36874(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_36874(t0,t1,t2);} - -C_noret_decl(trf_37089) -static void C_ccall trf_37089(C_word c,C_word *av) C_noret; -static void C_ccall trf_37089(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_37089(t0,t1);} - -C_noret_decl(trf_37112) -static void C_ccall trf_37112(C_word c,C_word *av) C_noret; -static void C_ccall trf_37112(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_37112(t0,t1);} - -C_noret_decl(trf_37283) -static void C_ccall trf_37283(C_word c,C_word *av) C_noret; -static void C_ccall trf_37283(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_37283(t0,t1,t2,t3);} - -C_noret_decl(trf_37442) -static void C_ccall trf_37442(C_word c,C_word *av) C_noret; -static void C_ccall trf_37442(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_37442(t0,t1);} - -C_noret_decl(trf_37475) -static void C_ccall trf_37475(C_word c,C_word *av) C_noret; -static void C_ccall trf_37475(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_37475(t0,t1);} - -C_noret_decl(trf_37478) -static void C_ccall trf_37478(C_word c,C_word *av) C_noret; -static void C_ccall trf_37478(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_37478(t0,t1);} - -C_noret_decl(trf_37481) -static void C_ccall trf_37481(C_word c,C_word *av) C_noret; -static void C_ccall trf_37481(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_37481(t0,t1);} - -C_noret_decl(trf_37484) -static void C_ccall trf_37484(C_word c,C_word *av) C_noret; -static void C_ccall trf_37484(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_37484(t0,t1);} - -C_noret_decl(trf_37521) -static void C_ccall trf_37521(C_word c,C_word *av) C_noret; -static void C_ccall trf_37521(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_37521(t0,t1,t2);} - -C_noret_decl(trf_37557) -static void C_ccall trf_37557(C_word c,C_word *av) C_noret; -static void C_ccall trf_37557(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_37557(t0,t1,t2);} - -C_noret_decl(trf_37588) -static void C_ccall trf_37588(C_word c,C_word *av) C_noret; -static void C_ccall trf_37588(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_37588(t0,t1,t2);} - -C_noret_decl(trf_37628) -static void C_ccall trf_37628(C_word c,C_word *av) C_noret; -static void C_ccall trf_37628(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_37628(t0,t1,t2);} - -C_noret_decl(trf_37734) -static void C_ccall trf_37734(C_word c,C_word *av) C_noret; -static void C_ccall trf_37734(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_37734(t0,t1,t2);} - -C_noret_decl(trf_37783) -static void C_ccall trf_37783(C_word c,C_word *av) C_noret; -static void C_ccall trf_37783(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_37783(t0,t1,t2,t3);} - -C_noret_decl(trf_37827) -static void C_ccall trf_37827(C_word c,C_word *av) C_noret; -static void C_ccall trf_37827(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_37827(t0,t1,t2,t3);} - -C_noret_decl(trf_37877) -static void C_ccall trf_37877(C_word c,C_word *av) C_noret; -static void C_ccall trf_37877(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_37877(t0,t1,t2,t3);} - -C_noret_decl(trf_37918) -static void C_ccall trf_37918(C_word c,C_word *av) C_noret; -static void C_ccall trf_37918(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_37918(t0,t1,t2,t3);} - -C_noret_decl(trf_38022) -static void C_ccall trf_38022(C_word c,C_word *av) C_noret; -static void C_ccall trf_38022(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_38022(t0,t1,t2,t3);} - -C_noret_decl(trf_38043) -static void C_ccall trf_38043(C_word c,C_word *av) C_noret; -static void C_ccall trf_38043(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_38043(t0,t1,t2,t3);} - -C_noret_decl(trf_38137) -static void C_ccall trf_38137(C_word c,C_word *av) C_noret; -static void C_ccall trf_38137(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_38137(t0,t1,t2,t3);} - -C_noret_decl(trf_38212) -static void C_ccall trf_38212(C_word c,C_word *av) C_noret; -static void C_ccall trf_38212(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38212(t0,t1,t2);} - -C_noret_decl(trf_38247) -static void C_ccall trf_38247(C_word c,C_word *av) C_noret; -static void C_ccall trf_38247(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38247(t0,t1,t2);} - -C_noret_decl(trf_38305) -static void C_ccall trf_38305(C_word c,C_word *av) C_noret; -static void C_ccall trf_38305(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38305(t0,t1,t2);} - -C_noret_decl(trf_38374) -static void C_ccall trf_38374(C_word c,C_word *av) C_noret; -static void C_ccall trf_38374(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38374(t0,t1,t2);} - -C_noret_decl(trf_38438) -static void C_ccall trf_38438(C_word c,C_word *av) C_noret; -static void C_ccall trf_38438(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38438(t0,t1,t2);} - -C_noret_decl(trf_38469) -static void C_ccall trf_38469(C_word c,C_word *av) C_noret; -static void C_ccall trf_38469(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38469(t0,t1,t2);} - -C_noret_decl(trf_38527) -static void C_ccall trf_38527(C_word c,C_word *av) C_noret; -static void C_ccall trf_38527(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38527(t0,t1,t2);} - -C_noret_decl(trf_38608) -static void C_ccall trf_38608(C_word c,C_word *av) C_noret; -static void C_ccall trf_38608(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38608(t0,t1,t2);} - -C_noret_decl(trf_38667) -static void C_ccall trf_38667(C_word c,C_word *av) C_noret; -static void C_ccall trf_38667(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38667(t0,t1,t2);} - -C_noret_decl(trf_38702) -static void C_ccall trf_38702(C_word c,C_word *av) C_noret; -static void C_ccall trf_38702(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38702(t0,t1,t2);} - -C_noret_decl(trf_38760) -static void C_ccall trf_38760(C_word c,C_word *av) C_noret; -static void C_ccall trf_38760(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38760(t0,t1,t2);} - -C_noret_decl(trf_38838) -static void C_ccall trf_38838(C_word c,C_word *av) C_noret; -static void C_ccall trf_38838(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38838(t0,t1,t2);} - -C_noret_decl(trf_38893) -static void C_ccall trf_38893(C_word c,C_word *av) C_noret; -static void C_ccall trf_38893(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38893(t0,t1,t2);} - -C_noret_decl(trf_38924) -static void C_ccall trf_38924(C_word c,C_word *av) C_noret; -static void C_ccall trf_38924(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38924(t0,t1,t2);} - -C_noret_decl(trf_38982) -static void C_ccall trf_38982(C_word c,C_word *av) C_noret; -static void C_ccall trf_38982(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_38982(t0,t1,t2);} - -C_noret_decl(trf_39176) -static void C_ccall trf_39176(C_word c,C_word *av) C_noret; -static void C_ccall trf_39176(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_39176(t0,t1);} - -C_noret_decl(trf_39179) -static void C_ccall trf_39179(C_word c,C_word *av) C_noret; -static void C_ccall trf_39179(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_39179(t0,t1);} - -C_noret_decl(trf_39283) -static void C_ccall trf_39283(C_word c,C_word *av) C_noret; -static void C_ccall trf_39283(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_39283(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_39365) -static void C_ccall trf_39365(C_word c,C_word *av) C_noret; -static void C_ccall trf_39365(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_39365(t0,t1);} - -C_noret_decl(trf_39375) -static void C_ccall trf_39375(C_word c,C_word *av) C_noret; -static void C_ccall trf_39375(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_39375(t0,t1,t2);} - -C_noret_decl(trf_39393) -static void C_ccall trf_39393(C_word c,C_word *av) C_noret; -static void C_ccall trf_39393(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_39393(t0,t1,t2);} - -C_noret_decl(trf_39539) -static void C_ccall trf_39539(C_word c,C_word *av) C_noret; -static void C_ccall trf_39539(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_39539(t0,t1,t2,t3);} - -C_noret_decl(trf_39655) -static void C_ccall trf_39655(C_word c,C_word *av) C_noret; -static void C_ccall trf_39655(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_39655(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_39730) -static void C_ccall trf_39730(C_word c,C_word *av) C_noret; -static void C_ccall trf_39730(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_39730(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_39754) -static void C_ccall trf_39754(C_word c,C_word *av) C_noret; -static void C_ccall trf_39754(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_39754(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_39778) -static void C_ccall trf_39778(C_word c,C_word *av) C_noret; -static void C_ccall trf_39778(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_39778(t0,t1,t2);} - -C_noret_decl(trf_40093) -static void C_ccall trf_40093(C_word c,C_word *av) C_noret; -static void C_ccall trf_40093(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_40093(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_40324) -static void C_ccall trf_40324(C_word c,C_word *av) C_noret; -static void C_ccall trf_40324(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_40324(t0,t1);} - -C_noret_decl(trf_40615) -static void C_ccall trf_40615(C_word c,C_word *av) C_noret; -static void C_ccall trf_40615(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_40615(t0,t1,t2);} - -C_noret_decl(trf_40846) -static void C_ccall trf_40846(C_word c,C_word *av) C_noret; -static void C_ccall trf_40846(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_40846(t0,t1,t2);} - -C_noret_decl(trf_41008) -static void C_ccall trf_41008(C_word c,C_word *av) C_noret; -static void C_ccall trf_41008(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_41008(t0,t1,t2);} - -C_noret_decl(trf_41047) -static void C_ccall trf_41047(C_word c,C_word *av) C_noret; -static void C_ccall trf_41047(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_41047(t0,t1,t2);} - -C_noret_decl(trf_41063) -static void C_ccall trf_41063(C_word c,C_word *av) C_noret; -static void C_ccall trf_41063(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_41063(t0,t1,t2);} - -C_noret_decl(trf_41229) -static void C_ccall trf_41229(C_word c,C_word *av) C_noret; -static void C_ccall trf_41229(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_41229(t0,t1);} - -C_noret_decl(trf_41808) -static void C_ccall trf_41808(C_word c,C_word *av) C_noret; -static void C_ccall trf_41808(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_41808(t0,t1);} - -C_noret_decl(trf_41817) -static void C_ccall trf_41817(C_word c,C_word *av) C_noret; -static void C_ccall trf_41817(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_41817(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_41915) -static void C_ccall trf_41915(C_word c,C_word *av) C_noret; -static void C_ccall trf_41915(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_41915(t0,t1);} - -C_noret_decl(trf_41928) -static void C_ccall trf_41928(C_word c,C_word *av) C_noret; -static void C_ccall trf_41928(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_41928(t0,t1,t2,t3,t4,t5,t6);} - -/* f45112 in chicken.base#exit in k12559 in k11436 */ -static void C_ccall f45112(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f45112,c,av);} -/* library.scm:907: g887 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_fix(0); -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* f45311 in chicken.base#gensym in k12559 in k11436 */ -static void C_ccall f45311(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f45311,c,av);} -/* library.scm:3322: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[747]; -av2[3]=t1; -tp(4,av2);}} - -/* f45315 in k22306 in chicken.base#gensym in k12559 in k11436 */ -static void C_ccall f45315(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f45315,c,av);} -/* library.scm:3322: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* f45445 in k27350 in a27347 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in ... */ -static void C_ccall f45445(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f45445,c,av);} -/* library.scm:5045: ##sys#intern-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[733]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[733]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* f45450 in k27350 in a27347 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in ... */ -static void C_ccall f45450(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f45450,c,av);} -/* library.scm:5045: ##sys#intern-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[733]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[733]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* f45457 in a27474 in r-number in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f45457(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f45457,c,av);} -/* library.scm:5045: ##sys#intern-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[733]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[733]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* f45466 in a27769 in r-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f45466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f45466,c,av);} -/* library.scm:5045: ##sys#intern-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[733]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[733]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* f45475 in a28867 in a28861 in k28850 in k28847 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f45475(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f45475,c,av);} -/* library.scm:5045: ##sys#intern-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[733]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[733]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* f49039 in k40823 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f49039(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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 *)f49039,c,av);} -t3=C_i_check_list_2(t2,lf[1591]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* f49045 in k40907 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f49045(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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 *)f49045,c,av);} -t3=C_i_check_string_2(t2,lf[1594]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* f49051 in k40903 in k40907 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f49051(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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 *)f49051,c,av);} -t3=C_i_check_string_2(t2,lf[1594]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k11436 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(388,c,5)))){ -C_save_and_reclaim((void *)f_11438,c,av);} -a=C_alloc(388); -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=C_mutate((C_word*)lf[2]+1 /* (set! scheme#not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11440,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[3]+1 /* (set! scheme#boolean? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11443,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[4]+1 /* (set! scheme#eq? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11446,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[5]+1 /* (set! scheme#eqv? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11449,a[2]=((C_word)li3),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[6]+1 /* (set! scheme#equal? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11452,a[2]=((C_word)li4),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[7]+1 /* (set! scheme#boolean=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11455,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[9]+1 /* (set! scheme#symbol=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11500,a[2]=((C_word)li8),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[11]+1 /* (set! scheme#pair? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11545,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[12]+1 /* (set! scheme#cons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11548,a[2]=((C_word)li10),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[13]+1 /* (set! scheme#car ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11551,a[2]=((C_word)li11),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[14]+1 /* (set! scheme#cdr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11554,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[15]+1 /* (set! scheme#set-car! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11557,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[16]+1 /* (set! scheme#set-cdr! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11560,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[17]+1 /* (set! scheme#cadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11563,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate((C_word*)lf[18]+1 /* (set! scheme#caddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11566,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[19]+1 /* (set! scheme#cadddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11569,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[20]+1 /* (set! scheme#cddddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11572,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[21]+1 /* (set! scheme#caar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11575,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate((C_word*)lf[22]+1 /* (set! scheme#cdar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11578,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); -t23=C_mutate((C_word*)lf[23]+1 /* (set! scheme#cddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11581,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); -t24=C_mutate((C_word*)lf[24]+1 /* (set! scheme#caaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11584,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); -t25=C_mutate((C_word*)lf[25]+1 /* (set! scheme#caadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11598,a[2]=((C_word)li23),tmp=(C_word)a,a+=3,tmp)); -t26=C_mutate((C_word*)lf[26]+1 /* (set! scheme#cadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11605,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); -t27=C_mutate((C_word*)lf[27]+1 /* (set! scheme#cdaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11612,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); -t28=C_mutate((C_word*)lf[28]+1 /* (set! scheme#cdadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11626,a[2]=((C_word)li26),tmp=(C_word)a,a+=3,tmp)); -t29=C_mutate((C_word*)lf[29]+1 /* (set! scheme#cddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11633,a[2]=((C_word)li27),tmp=(C_word)a,a+=3,tmp)); -t30=C_mutate((C_word*)lf[30]+1 /* (set! scheme#cdddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11647,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); -t31=C_mutate((C_word*)lf[31]+1 /* (set! scheme#caaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11661,a[2]=((C_word)li29),tmp=(C_word)a,a+=3,tmp)); -t32=C_mutate((C_word*)lf[32]+1 /* (set! scheme#caaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11679,a[2]=((C_word)li30),tmp=(C_word)a,a+=3,tmp)); -t33=C_mutate((C_word*)lf[33]+1 /* (set! scheme#caadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11690,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); -t34=C_mutate((C_word*)lf[34]+1 /* (set! scheme#caaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11701,a[2]=((C_word)li32),tmp=(C_word)a,a+=3,tmp)); -t35=C_mutate((C_word*)lf[35]+1 /* (set! scheme#cadaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11708,a[2]=((C_word)li33),tmp=(C_word)a,a+=3,tmp)); -t36=C_mutate((C_word*)lf[36]+1 /* (set! scheme#cadadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11719,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); -t37=C_mutate((C_word*)lf[37]+1 /* (set! scheme#caddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11723,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); -t38=C_mutate((C_word*)lf[38]+1 /* (set! scheme#cdaaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11730,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); -t39=C_mutate((C_word*)lf[39]+1 /* (set! scheme#cdaadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11748,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); -t40=C_mutate((C_word*)lf[40]+1 /* (set! scheme#cdadar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11759,a[2]=((C_word)li38),tmp=(C_word)a,a+=3,tmp)); -t41=C_mutate((C_word*)lf[41]+1 /* (set! scheme#cdaddr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11770,a[2]=((C_word)li39),tmp=(C_word)a,a+=3,tmp)); -t42=C_mutate((C_word*)lf[42]+1 /* (set! scheme#cddaar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11777,a[2]=((C_word)li40),tmp=(C_word)a,a+=3,tmp)); -t43=C_mutate((C_word*)lf[43]+1 /* (set! scheme#cddadr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11795,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); -t44=C_mutate((C_word*)lf[44]+1 /* (set! scheme#cdddar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11806,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); -t45=C_mutate((C_word*)lf[45]+1 /* (set! scheme#null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11824,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); -t46=C_mutate((C_word*)lf[46]+1 /* (set! scheme#list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11830,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); -t47=C_mutate((C_word*)lf[47]+1 /* (set! scheme#length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11833,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); -t48=C_mutate((C_word*)lf[48]+1 /* (set! scheme#list-tail ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11836,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); -t49=C_mutate((C_word*)lf[49]+1 /* (set! scheme#list-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11839,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); -t50=C_mutate((C_word*)lf[50]+1 /* (set! scheme#reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11842,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); -t51=C_mutate((C_word*)lf[53]+1 /* (set! scheme#memq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11881,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); -t52=C_mutate((C_word*)lf[54]+1 /* (set! scheme#memv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11884,a[2]=((C_word)li51),tmp=(C_word)a,a+=3,tmp)); -t53=C_mutate((C_word*)lf[55]+1 /* (set! scheme#member ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11887,a[2]=((C_word)li53),tmp=(C_word)a,a+=3,tmp)); -t54=C_mutate((C_word*)lf[56]+1 /* (set! scheme#assq ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11931,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); -t55=C_mutate((C_word*)lf[57]+1 /* (set! scheme#assv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11934,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); -t56=C_mutate((C_word*)lf[58]+1 /* (set! scheme#assoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11937,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); -t57=C_mutate((C_word*)lf[59]+1 /* (set! scheme#list? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11986,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); -t58=C_mutate((C_word*)lf[60]+1 /* (set! scheme#string? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11989,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); -t59=C_mutate((C_word*)lf[61]+1 /* (set! scheme#string-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11992,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp)); -t60=C_mutate((C_word*)lf[62]+1 /* (set! scheme#string-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11995,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); -t61=C_mutate((C_word*)lf[63]+1 /* (set! scheme#string-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11998,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); -t62=C_mutate((C_word*)lf[64]+1 /* (set! scheme#string=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12001,a[2]=((C_word)li64),tmp=(C_word)a,a+=3,tmp)); -t63=C_mutate((C_word*)lf[66]+1 /* (set! scheme#string-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12034,a[2]=((C_word)li66),tmp=(C_word)a,a+=3,tmp)); -t64=C_set_block_item(lf[68] /* scheme#features */,0,C_SCHEME_UNDEFINED); -t65=C_set_block_item(lf[69] /* scheme#call-with-port */,0,C_SCHEME_UNDEFINED); -t66=C_set_block_item(lf[70] /* scheme#close-port */,0,C_SCHEME_UNDEFINED); -t67=C_set_block_item(lf[71] /* scheme#peek-u8 */,0,C_SCHEME_UNDEFINED); -t68=C_set_block_item(lf[72] /* scheme#string-map */,0,C_SCHEME_UNDEFINED); -t69=C_set_block_item(lf[73] /* scheme#vector-map */,0,C_SCHEME_UNDEFINED); -t70=C_set_block_item(lf[74] /* scheme#string-for-each */,0,C_SCHEME_UNDEFINED); -t71=C_set_block_item(lf[75] /* scheme#vector-for-each */,0,C_SCHEME_UNDEFINED); -t72=C_set_block_item(lf[76] /* scheme#make-list */,0,C_SCHEME_UNDEFINED); -t73=C_set_block_item(lf[77] /* scheme#list-set! */,0,C_SCHEME_UNDEFINED); -t74=C_set_block_item(lf[78] /* scheme#write-string */,0,C_SCHEME_UNDEFINED); -t75=C_set_block_item(lf[79] /* scheme#eof-object */,0,C_SCHEME_UNDEFINED); -t76=C_set_block_item(lf[80] /* scheme#list-copy */,0,C_SCHEME_UNDEFINED); -t77=C_set_block_item(lf[81] /* scheme#string->vector */,0,C_SCHEME_UNDEFINED); -t78=C_set_block_item(lf[82] /* scheme#vector->string */,0,C_SCHEME_UNDEFINED); -t79=C_set_block_item(lf[83] /* scheme#exact */,0,C_SCHEME_UNDEFINED); -t80=C_set_block_item(lf[84] /* scheme#inexact */,0,C_SCHEME_UNDEFINED); -t81=C_set_block_item(lf[85] /* scheme#make-parameter */,0,C_SCHEME_UNDEFINED); -t82=C_mutate((C_word*)lf[86]+1 /* (set! scheme#exact->inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12085,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); -t83=C_mutate((C_word*)lf[87]+1 /* (set! scheme#abs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12088,a[2]=((C_word)li68),tmp=(C_word)a,a+=3,tmp)); -t84=C_mutate((C_word*)lf[88]+1 /* (set! scheme#+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_plus,a[2]=((C_word)li69),tmp=(C_word)a,a+=3,tmp)); -t85=C_mutate((C_word*)lf[89]+1 /* (set! scheme#- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_minus,a[2]=((C_word)li70),tmp=(C_word)a,a+=3,tmp)); -t86=C_mutate((C_word*)lf[90]+1 /* (set! scheme#* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_times,a[2]=((C_word)li71),tmp=(C_word)a,a+=3,tmp)); -t87=C_mutate((C_word*)lf[91]+1 /* (set! scheme#quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12094,a[2]=((C_word)li72),tmp=(C_word)a,a+=3,tmp)); -t88=C_mutate((C_word*)lf[92]+1 /* (set! scheme#remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12097,a[2]=((C_word)li73),tmp=(C_word)a,a+=3,tmp)); -t89=C_mutate((C_word*)lf[93]+1 /* (set! scheme#modulo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12100,a[2]=((C_word)li74),tmp=(C_word)a,a+=3,tmp)); -t90=C_mutate((C_word*)lf[94]+1 /* (set! scheme#even? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12103,a[2]=((C_word)li75),tmp=(C_word)a,a+=3,tmp)); -t91=C_mutate((C_word*)lf[95]+1 /* (set! scheme#odd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12106,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp)); -t92=C_mutate((C_word*)lf[96]+1 /* (set! scheme#= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_nequalp,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp)); -t93=C_mutate((C_word*)lf[97]+1 /* (set! scheme#> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greaterp,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); -t94=C_mutate((C_word*)lf[98]+1 /* (set! scheme#< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_lessp,a[2]=((C_word)li79),tmp=(C_word)a,a+=3,tmp)); -t95=C_mutate((C_word*)lf[99]+1 /* (set! scheme#>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_greater_or_equal_p,a[2]=((C_word)li80),tmp=(C_word)a,a+=3,tmp)); -t96=C_mutate((C_word*)lf[100]+1 /* (set! scheme#<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_less_or_equal_p,a[2]=((C_word)li81),tmp=(C_word)a,a+=3,tmp)); -t97=C_mutate((C_word*)lf[101]+1 /* (set! scheme#number? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12114,a[2]=((C_word)li82),tmp=(C_word)a,a+=3,tmp)); -t98=C_mutate((C_word*)lf[102]+1 /* (set! scheme#complex? ...) */,*((C_word*)lf[101]+1)); -t99=C_mutate((C_word*)lf[103]+1 /* (set! scheme#real? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12118,a[2]=((C_word)li83),tmp=(C_word)a,a+=3,tmp)); -t100=C_mutate((C_word*)lf[104]+1 /* (set! scheme#rational? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12121,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp)); -t101=C_mutate((C_word*)lf[105]+1 /* (set! scheme#integer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12124,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp)); -t102=C_mutate((C_word*)lf[106]+1 /* (set! scheme#exact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12127,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp)); -t103=C_mutate((C_word*)lf[107]+1 /* (set! scheme#inexact? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12130,a[2]=((C_word)li87),tmp=(C_word)a,a+=3,tmp)); -t104=C_mutate((C_word*)lf[108]+1 /* (set! scheme#zero? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12133,a[2]=((C_word)li88),tmp=(C_word)a,a+=3,tmp)); -t105=C_mutate((C_word*)lf[109]+1 /* (set! scheme#positive? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12136,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp)); -t106=C_mutate((C_word*)lf[110]+1 /* (set! scheme#negative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12139,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); -t107=C_mutate((C_word*)lf[111]+1 /* (set! scheme#number->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_number_to_string,a[2]=((C_word)li91),tmp=(C_word)a,a+=3,tmp)); -t108=C_mutate((C_word*)lf[112]+1 /* (set! scheme#symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12143,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); -t109=C_mutate((C_word*)lf[113]+1 /* (set! scheme#vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12146,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp)); -t110=C_mutate((C_word*)lf[114]+1 /* (set! scheme#vector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12149,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp)); -t111=C_mutate((C_word*)lf[115]+1 /* (set! scheme#vector-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12152,a[2]=((C_word)li95),tmp=(C_word)a,a+=3,tmp)); -t112=C_mutate((C_word*)lf[116]+1 /* (set! scheme#vector-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12155,a[2]=((C_word)li96),tmp=(C_word)a,a+=3,tmp)); -t113=C_set_block_item(lf[117] /* scheme#make-vector */,0,C_SCHEME_UNDEFINED); -t114=C_set_block_item(lf[118] /* scheme#list->vector */,0,C_SCHEME_UNDEFINED); -t115=C_set_block_item(lf[119] /* scheme#vector->list */,0,C_SCHEME_UNDEFINED); -t116=C_set_block_item(lf[120] /* scheme#vector */,0,C_SCHEME_UNDEFINED); -t117=C_set_block_item(lf[121] /* scheme#vector-fill! */,0,C_SCHEME_UNDEFINED); -t118=C_mutate((C_word*)lf[122]+1 /* (set! scheme#char? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12163,a[2]=((C_word)li97),tmp=(C_word)a,a+=3,tmp)); -t119=C_mutate((C_word*)lf[123]+1 /* (set! scheme#char->integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12166,a[2]=((C_word)li98),tmp=(C_word)a,a+=3,tmp)); -t120=C_mutate((C_word*)lf[125]+1 /* (set! scheme#integer->char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12173,a[2]=((C_word)li99),tmp=(C_word)a,a+=3,tmp)); -t121=C_mutate((C_word*)lf[127]+1 /* (set! scheme#char=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12180,a[2]=((C_word)li101),tmp=(C_word)a,a+=3,tmp)); -t122=C_mutate((C_word*)lf[129]+1 /* (set! scheme#char>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12219,a[2]=((C_word)li103),tmp=(C_word)a,a+=3,tmp)); -t123=C_mutate((C_word*)lf[131]+1 /* (set! scheme#char=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12297,a[2]=((C_word)li107),tmp=(C_word)a,a+=3,tmp)); -t125=C_mutate((C_word*)lf[135]+1 /* (set! scheme#char<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12336,a[2]=((C_word)li109),tmp=(C_word)a,a+=3,tmp)); -t126=C_mutate((C_word*)lf[137]+1 /* (set! scheme#char-upcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12375,a[2]=((C_word)li110),tmp=(C_word)a,a+=3,tmp)); -t127=C_mutate((C_word*)lf[139]+1 /* (set! scheme#char-downcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12381,a[2]=((C_word)li111),tmp=(C_word)a,a+=3,tmp)); -t128=C_set_block_item(lf[141] /* scheme#char-ci=? */,0,C_SCHEME_UNDEFINED); -t129=C_set_block_item(lf[142] /* scheme#char-ci>? */,0,C_SCHEME_UNDEFINED); -t130=C_set_block_item(lf[143] /* scheme#char-ci=? */,0,C_SCHEME_UNDEFINED); -t132=C_set_block_item(lf[145] /* scheme#char-ci<=? */,0,C_SCHEME_UNDEFINED); -t133=C_mutate((C_word*)lf[146]+1 /* (set! scheme#char-upper-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12392,a[2]=((C_word)li112),tmp=(C_word)a,a+=3,tmp)); -t134=C_mutate((C_word*)lf[148]+1 /* (set! scheme#char-lower-case? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12398,a[2]=((C_word)li113),tmp=(C_word)a,a+=3,tmp)); -t135=C_mutate((C_word*)lf[150]+1 /* (set! scheme#char-numeric? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12404,a[2]=((C_word)li114),tmp=(C_word)a,a+=3,tmp)); -t136=C_mutate((C_word*)lf[152]+1 /* (set! scheme#char-whitespace? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12410,a[2]=((C_word)li115),tmp=(C_word)a,a+=3,tmp)); -t137=C_mutate((C_word*)lf[154]+1 /* (set! scheme#char-alphabetic? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12416,a[2]=((C_word)li116),tmp=(C_word)a,a+=3,tmp)); -t138=C_mutate((C_word*)lf[156]+1 /* (set! scheme.char#digit-value ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12422,a[2]=((C_word)li117),tmp=(C_word)a,a+=3,tmp)); -t139=C_mutate((C_word*)lf[158]+1 /* (set! scheme#procedure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12438,a[2]=((C_word)li118),tmp=(C_word)a,a+=3,tmp)); -t140=C_mutate((C_word*)lf[159]+1 /* (set! scheme#apply ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply,a[2]=((C_word)li119),tmp=(C_word)a,a+=3,tmp)); -t141=C_mutate((C_word*)lf[160]+1 /* (set! scheme#values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_values,a[2]=((C_word)li120),tmp=(C_word)a,a+=3,tmp)); -t142=C_mutate((C_word*)lf[161]+1 /* (set! scheme#call-with-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_values,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); -t143=C_set_block_item(lf[162] /* scheme#call-with-current-continuation */,0,C_SCHEME_UNDEFINED); -t144=C_set_block_item(lf[163] /* scheme#call/cc */,0,C_SCHEME_UNDEFINED); -t145=C_mutate((C_word*)lf[164]+1 /* (set! scheme#input-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12446,a[2]=((C_word)li122),tmp=(C_word)a,a+=3,tmp)); -t146=C_mutate((C_word*)lf[165]+1 /* (set! scheme#output-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12452,a[2]=((C_word)li123),tmp=(C_word)a,a+=3,tmp)); -t147=C_mutate((C_word*)lf[166]+1 /* (set! scheme#binary-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12458,a[2]=((C_word)li124),tmp=(C_word)a,a+=3,tmp)); -t148=C_mutate((C_word*)lf[169]+1 /* (set! scheme#textual-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12474,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); -t149=C_mutate((C_word*)lf[168]+1 /* (set! scheme#port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12490,a[2]=((C_word)li126),tmp=(C_word)a,a+=3,tmp)); -t150=C_mutate((C_word*)lf[171]+1 /* (set! scheme#input-port-open? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12496,a[2]=((C_word)li127),tmp=(C_word)a,a+=3,tmp)); -t151=C_mutate((C_word*)lf[173]+1 /* (set! scheme#output-port-open? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12501,a[2]=((C_word)li128),tmp=(C_word)a,a+=3,tmp)); -t152=C_set_block_item(lf[175] /* scheme#current-input-port */,0,C_SCHEME_UNDEFINED); -t153=C_set_block_item(lf[176] /* scheme#current-output-port */,0,C_SCHEME_UNDEFINED); -t154=C_set_block_item(lf[177] /* scheme#open-input-file */,0,C_SCHEME_UNDEFINED); -t155=C_set_block_item(lf[178] /* scheme#open-output-file */,0,C_SCHEME_UNDEFINED); -t156=C_set_block_item(lf[179] /* scheme#close-input-port */,0,C_SCHEME_UNDEFINED); -t157=C_set_block_item(lf[180] /* scheme#close-output-port */,0,C_SCHEME_UNDEFINED); -t158=C_set_block_item(lf[181] /* scheme#call-with-input-file */,0,C_SCHEME_UNDEFINED); -t159=C_set_block_item(lf[182] /* scheme#call-with-output-file */,0,C_SCHEME_UNDEFINED); -t160=C_set_block_item(lf[183] /* scheme#with-input-from-file */,0,C_SCHEME_UNDEFINED); -t161=C_set_block_item(lf[184] /* scheme#with-output-to-file */,0,C_SCHEME_UNDEFINED); -t162=C_mutate((C_word*)lf[185]+1 /* (set! scheme#eof-object? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12516,a[2]=((C_word)li129),tmp=(C_word)a,a+=3,tmp)); -t163=C_set_block_item(lf[186] /* scheme#char-ready? */,0,C_SCHEME_UNDEFINED); -t164=C_set_block_item(lf[187] /* scheme#read-char */,0,C_SCHEME_UNDEFINED); -t165=C_set_block_item(lf[188] /* scheme#peek-char */,0,C_SCHEME_UNDEFINED); -t166=C_set_block_item(lf[189] /* scheme#read */,0,C_SCHEME_UNDEFINED); -t167=C_set_block_item(lf[190] /* scheme#write-char */,0,C_SCHEME_UNDEFINED); -t168=C_set_block_item(lf[191] /* scheme#newline */,0,C_SCHEME_UNDEFINED); -t169=C_set_block_item(lf[192] /* scheme#write */,0,C_SCHEME_UNDEFINED); -t170=C_set_block_item(lf[193] /* scheme#display */,0,C_SCHEME_UNDEFINED); -t171=C_mutate((C_word*)lf[194]+1 /* (set! scheme#eval ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12527,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); -t172=C_mutate((C_word*)lf[198]+1 /* (set! scheme#interaction-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12533,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp)); -t173=C_mutate((C_word*)lf[201]+1 /* (set! scheme#scheme-report-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12539,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); -t174=C_mutate((C_word*)lf[204]+1 /* (set! scheme#null-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12545,a[2]=((C_word)li133),tmp=(C_word)a,a+=3,tmp)); -t175=C_mutate((C_word*)lf[207]+1 /* (set! scheme#load ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12551,a[2]=((C_word)li134),tmp=(C_word)a,a+=3,tmp)); -t176=C_set_block_item(lf[210] /* scheme#for-each */,0,C_SCHEME_UNDEFINED); -t177=C_set_block_item(lf[211] /* scheme#map */,0,C_SCHEME_UNDEFINED); -t178=C_set_block_item(lf[212] /* scheme#dynamic-wind */,0,C_SCHEME_UNDEFINED); -t179=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12561,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t179; -C_library_toplevel(2,av2);}} - -/* scheme#not in k11436 */ -static void C_ccall f_11440(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11440,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_not(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#boolean? in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11443,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_booleanp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#eq? in k11436 */ -static void C_ccall f_11446(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_11446,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_eqp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#eqv? in k11436 */ -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; -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_11449,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_eqvp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#equal? in k11436 */ -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=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_11452,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_equalp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#boolean=? in k11436 */ -static void C_ccall f_11455(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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,3)))){ -C_save_and_reclaim((void*)f_11455,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+4); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -t5=C_i_check_boolean_2(t2,lf[8]); -t6=C_i_check_boolean_2(t3,lf[8]); -t7=C_eqp(t2,t3); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11471,a[2]=t3,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=( - f_11471(t8,t4,t7) -); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* loop in scheme#boolean=? in k11436 */ -static C_word f_11471(C_word t0,C_word t1,C_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(t2);} -else{ -t3=C_slot(t1,C_fix(0)); -t4=C_i_check_boolean_2(t3,lf[8]); -t5=C_slot(t1,C_fix(1)); -if(C_truep(t2)){ -t7=t5; -t8=C_eqp(t3,((C_word*)t0)[2]); -t1=t7; -t2=t8; -goto loop;} -else{ -t7=t5; -t8=C_SCHEME_FALSE; -t1=t7; -t2=t8; -goto loop;}}} - -/* scheme#symbol=? in k11436 */ -static void C_ccall f_11500(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,3)))){ -C_save_and_reclaim((void*)f_11500,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+4); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -t5=C_i_check_symbol_2(t2,lf[10]); -t6=C_i_check_symbol_2(t3,lf[10]); -t7=C_eqp(t2,t3); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11516,a[2]=t3,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=( - f_11516(t8,t4,t7) -); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* loop in scheme#symbol=? in k11436 */ -static C_word f_11516(C_word t0,C_word t1,C_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(t2);} -else{ -t3=C_slot(t1,C_fix(0)); -t4=C_i_check_symbol_2(t3,lf[10]); -t5=C_slot(t1,C_fix(1)); -if(C_truep(t2)){ -t7=t5; -t8=C_eqp(t3,((C_word*)t0)[2]); -t1=t7; -t2=t8; -goto loop;} -else{ -t7=t5; -t8=C_SCHEME_FALSE; -t1=t7; -t2=t8; -goto loop;}}} - -/* scheme#pair? in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11545,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_pairp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cons in k11436 */ -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=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_11548,c,av);} -a=C_alloc(3); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#car in k11436 */ -static void C_ccall f_11551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11551,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cdr in k11436 */ -static void C_ccall f_11554(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11554,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#set-car! in k11436 */ -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=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_11557,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_car(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#set-cdr! in k11436 */ -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=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_11560,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_cdr(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#cadr in k11436 */ -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; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11563,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cadr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#caddr in k11436 */ -static void C_ccall f_11566(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11566,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_caddr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cadddr in k11436 */ -static void C_ccall f_11569(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11569,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cadddr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cddddr in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11572,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cddddr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#caar in k11436 */ -static void C_ccall f_11575(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11575,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_caar(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cdar in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11578,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdar(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cddr in k11436 */ -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; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11581,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cddr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#caaar in k11436 */ -static void C_ccall f_11584(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_11584,c,av);} -t3=C_i_car(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_car(C_i_car(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#caadr in k11436 */ -static void C_ccall f_11598(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11598,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_car(C_i_cadr(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cadar in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11605,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cadr(C_i_car(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cdaar in k11436 */ -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=av[2]; -C_word t3; -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_11612,c,av);} -t3=C_i_car(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_cdr(C_i_car(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#cdadr in k11436 */ -static void C_ccall f_11626(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11626,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(C_i_cadr(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cddar in k11436 */ -static void C_ccall f_11633(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_11633,c,av);} -t3=C_i_car(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_cdr(C_i_cdr(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#cdddr in k11436 */ -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=av[2]; -C_word t3; -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_11647,c,av);} -t3=C_i_cdr(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_cdr(C_i_cdr(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#caaaar in k11436 */ -static void C_ccall f_11661(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11661,c,av);} -t3=C_i_car(t2); -t4=C_i_car(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_car(C_i_car(t4)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#caaadr in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11679,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_car(C_i_car(C_i_cadr(t2))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#caadar in k11436 */ -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=av[2]; -C_word t3; -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_11690,c,av);} -t3=C_i_car(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_car(C_i_cadr(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#caaddr in k11436 */ -static void C_ccall f_11701(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11701,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_car(C_i_caddr(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cadaar in k11436 */ -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=av[2]; -C_word t3; -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_11708,c,av);} -t3=C_i_car(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_cadr(C_i_car(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#cadadr in k11436 */ -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; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11719,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cadr(C_i_cadr(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#caddar in k11436 */ -static void C_ccall f_11723(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11723,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_caddr(C_i_car(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cdaaar in k11436 */ -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=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_11730,c,av);} -t3=C_i_car(t2); -t4=C_i_car(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_cdr(C_i_car(t4)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#cdaadr in k11436 */ -static void C_ccall f_11748(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11748,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(C_i_car(C_i_cadr(t2))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cdadar in k11436 */ -static void C_ccall f_11759(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_11759,c,av);} -t3=C_i_car(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_cdr(C_i_cadr(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#cdaddr in k11436 */ -static void C_ccall f_11770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11770,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(C_i_caddr(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cddaar in k11436 */ -static void C_ccall f_11777(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11777,c,av);} -t3=C_i_car(t2); -t4=C_i_car(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_cdr(C_i_cdr(t4)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#cddadr in k11436 */ -static void C_ccall f_11795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11795,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(C_i_cdr(C_i_cadr(t2))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#cdddar in k11436 */ -static void C_ccall f_11806(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11806,c,av);} -t3=C_i_car(t2); -t4=C_i_cdr(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_cdr(C_i_cdr(t4)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#null? in k11436 */ -static void C_ccall f_11824(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11824,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_eqp(t2,C_SCHEME_END_OF_LIST); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#list in k11436 */ -static void C_ccall f_11830(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ -C_save_and_reclaim((void*)f_11830,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+0); -t2=C_build_rest(&a,c,2,av); -C_word t3; -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#length in k11436 */ -static void C_ccall f_11833(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11833,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_length(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#list-tail in k11436 */ -static void C_ccall f_11836(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_11836,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_list_tail(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#list-ref in k11436 */ -static void C_ccall f_11839(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11839,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_list_ref(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#reverse in k11436 */ -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; -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_11842,c,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_11848,a[2]=t4,a[3]=t2,a[4]=((C_word)li48),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_11848(t6,t1,t2,C_SCHEME_END_OF_LIST);} - -/* loop in scheme#reverse in k11436 */ -static void f_11848(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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_11848,4,t0,t1,t2,t3);} -a=C_alloc(3); -t4=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+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:353: loop */ -t9=t1; -t10=t5; -t11=t7; -t1=t9; -t2=t10; -t3=t11; -goto loop;} -else{ -/* library.scm:354: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[52]; -tp(4,av2);}}}} - -/* scheme#memq in k11436 */ -static void C_ccall f_11881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11881,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_memq(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#memv in k11436 */ -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=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_11884,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_memv(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#member in k11436 */ -static void C_ccall f_11887(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_11887,c,av);} -a=C_alloc(8); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -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|5,a[1]=(C_word)f_11899,a[2]=t7,a[3]=t5,a[4]=t2,a[5]=((C_word)li52),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_11899(t9,t1,t3);} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_i_member(t2,t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* loop in scheme#member in k11436 */ -static void f_11899(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_11899,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11912,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* library.scm:363: eq */ -t4=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t4))(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);}}} - -/* k11910 in loop in scheme#member in k11436 */ -static void C_ccall f_11912(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11912,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:365: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_11899(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[3],C_fix(1)));}} - -/* scheme#assq in k11436 */ -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=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_11931,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_assq(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#assv in k11436 */ -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=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_11934,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_assv(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#assoc in k11436 */ -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=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_11937,c,av);} -a=C_alloc(8); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -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|5,a[1]=(C_word)f_11949,a[2]=t7,a[3]=t5,a[4]=t2,a[5]=((C_word)li56),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_11949(t9,t1,t3);} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_i_assoc(t2,t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* loop in scheme#assoc in k11436 */ -static void f_11949(C_word t0,C_word t1,C_word 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_11949,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11962,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -/* library.scm:375: eq */ -t5=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_i_car(t4); -((C_proc)C_fast_retrieve_proc(t5))(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);}}} - -/* k11960 in loop in scheme#assoc in k11436 */ -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,2)))){ -C_save_and_reclaim((void *)f_11962,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_u_i_car(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:377: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_11949(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[3],C_fix(1)));}} - -/* scheme#list? in k11436 */ -static void C_ccall f_11986(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11986,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_listp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#string? in k11436 */ -static void C_ccall f_11989(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11989,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_stringp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#string-length in k11436 */ -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!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11992,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_string_length(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#string-ref in k11436 */ -static void C_ccall f_11995(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_11995,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_string_ref(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#string-set! in k11436 */ -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=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_11998,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_string_set(t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#string=? in k11436 */ -static void C_ccall f_12001(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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 +3,c,4)))){ -C_save_and_reclaim((void*)f_12001,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -C_word t7; -t5=C_i_string_equal_p(t2,t3); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12008,a[2]=((C_word)li63),tmp=(C_word)a,a+=3,tmp); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=( - f_12008(t3,t4,t5) -); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* loop in scheme#string=? in k11436 */ -static C_word f_12008(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t2))){ -return(t3);} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_i_check_string_2(t4,lf[65]); -t6=C_slot(t2,C_fix(1)); -if(C_truep(t3)){ -t8=t4; -t9=t6; -t10=C_i_string_equal_p(t1,t4); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t8=t4; -t9=t6; -t10=C_SCHEME_FALSE; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* scheme#string-ci=? in k11436 */ -static void C_ccall f_12034(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *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 +3,c,4)))){ -C_save_and_reclaim((void*)f_12034,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -C_word t7; -t5=C_i_string_ci_equal_p(t2,t3); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12041,a[2]=((C_word)li65),tmp=(C_word)a,a+=3,tmp); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=( - f_12041(t3,t4,t5) -); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* loop in scheme#string-ci=? in k11436 */ -static C_word f_12041(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t2))){ -return(t3);} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_i_check_string_2(t4,lf[67]); -t6=C_slot(t2,C_fix(1)); -if(C_truep(t3)){ -t8=t4; -t9=t6; -t10=C_i_string_ci_equal_p(t1,t4); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t8=t4; -t9=t6; -t10=C_SCHEME_FALSE; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* scheme#exact->inexact in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(12,c,1)))){ -C_save_and_reclaim((void *)f_12085,c,av);} -a=C_alloc(12); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_exact_to_inexact(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#abs in k11436 */ -static void C_ccall f_12088(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ -C_save_and_reclaim((void *)f_12088,c,av);} -a=C_alloc(7); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_abs(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#quotient in k11436 */ -static void C_ccall f_12094(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_12094,c,av);} -a=C_alloc(5); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_s_a_i_quotient(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#remainder in k11436 */ -static void C_ccall f_12097(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_12097,c,av);} -a=C_alloc(5); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_s_a_i_remainder(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#modulo in k11436 */ -static void C_ccall f_12100(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_12100,c,av);} -a=C_alloc(5); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_s_a_i_modulo(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#even? in k11436 */ -static void C_ccall f_12103(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12103,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_evenp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#odd? in k11436 */ -static void C_ccall f_12106(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12106,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_oddp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#number? in k11436 */ -static void C_ccall f_12114(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12114,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_numberp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#real? in k11436 */ -static void C_ccall f_12118(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12118,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_realp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#rational? in k11436 */ -static void C_ccall f_12121(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12121,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_rationalp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#integer? in k11436 */ -static void C_ccall f_12124(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12124,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_integerp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#exact? in k11436 */ -static void C_ccall f_12127(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12127,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_exactp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#inexact? in k11436 */ -static void C_ccall f_12130(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12130,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_inexactp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#zero? in k11436 */ -static void C_ccall f_12133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12133,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_zerop(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#positive? in k11436 */ -static void C_ccall f_12136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12136,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_positivep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#negative? in k11436 */ -static void C_ccall f_12139(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12139,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_negativep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#symbol? in k11436 */ -static void C_ccall f_12143(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12143,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_symbolp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#vector? in k11436 */ -static void C_ccall f_12146(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12146,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_vectorp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#vector-length in k11436 */ -static void C_ccall f_12149(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12149,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_vector_length(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#vector-ref in k11436 */ -static void C_ccall f_12152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_12152,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_vector_ref(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#vector-set! in k11436 */ -static void C_ccall f_12155(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_12155,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_vector_set(t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#char? in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12163,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_charp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#char->integer in k11436 */ -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=av[2]; -C_word t3; -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_12166,c,av);} -t3=C_i_check_char_2(t2,lf[124]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fix(C_character_code(t2)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#integer->char in k11436 */ -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=av[2]; -C_word t3; -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_12173,c,av);} -t3=C_i_check_fixnum_2(t2,lf[126]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_make_character(C_unfix(t2)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#char=? in k11436 */ -static void C_ccall f_12180(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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 +3,c,4)))){ -C_save_and_reclaim((void*)f_12180,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -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_char_2(t2,lf[128]); -t6=C_i_check_char_2(t3,lf[128]); -t7=C_u_i_char_equalp(t2,t3); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12193,a[2]=((C_word)li100),tmp=(C_word)a,a+=3,tmp); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=( - f_12193(t3,t4,t7) -); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* loop in scheme#char=? in k11436 */ -static C_word f_12193(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t2))){ -return(t3);} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_i_check_char_2(t4,lf[128]); -t6=C_slot(t2,C_fix(1)); -if(C_truep(t3)){ -t8=t4; -t9=t6; -t10=C_u_i_char_equalp(t1,t4); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t8=t4; -t9=t6; -t10=C_SCHEME_FALSE; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* scheme#char>? in k11436 */ -static void C_ccall f_12219(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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 +3,c,4)))){ -C_save_and_reclaim((void*)f_12219,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -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_char_2(t2,lf[130]); -t6=C_i_check_char_2(t3,lf[130]); -t7=C_u_i_char_greaterp(t2,t3); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12232,a[2]=((C_word)li102),tmp=(C_word)a,a+=3,tmp); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=( - f_12232(t3,t4,t7) -); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* loop in scheme#char>? in k11436 */ -static C_word f_12232(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t2))){ -return(t3);} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_i_check_char_2(t4,lf[130]); -t6=C_slot(t2,C_fix(1)); -if(C_truep(t3)){ -t8=t4; -t9=t6; -t10=C_u_i_char_greaterp(t1,t4); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t8=t4; -t9=t6; -t10=C_SCHEME_FALSE; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* scheme#char=? in k11436 */ -static void C_ccall f_12297(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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 +3,c,4)))){ -C_save_and_reclaim((void*)f_12297,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -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_char_2(t2,lf[134]); -t6=C_i_check_char_2(t3,lf[134]); -t7=C_u_i_char_greater_or_equal_p(t2,t3); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12310,a[2]=((C_word)li106),tmp=(C_word)a,a+=3,tmp); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=( - f_12310(t3,t4,t7) -); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* loop in scheme#char>=? in k11436 */ -static C_word f_12310(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t2))){ -return(t3);} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_i_check_char_2(t4,lf[134]); -t6=C_slot(t2,C_fix(1)); -if(C_truep(t3)){ -t8=t4; -t9=t6; -t10=C_u_i_char_greater_or_equal_p(t1,t4); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t8=t4; -t9=t6; -t10=C_SCHEME_FALSE; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* scheme#char<=? in k11436 */ -static void C_ccall f_12336(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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 +3,c,4)))){ -C_save_and_reclaim((void*)f_12336,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -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_char_2(t2,lf[136]); -t6=C_i_check_char_2(t3,lf[136]); -t7=C_u_i_char_less_or_equal_p(t2,t3); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12349,a[2]=((C_word)li108),tmp=(C_word)a,a+=3,tmp); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=( - f_12349(t3,t4,t7) -); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* loop in scheme#char<=? in k11436 */ -static C_word f_12349(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t2))){ -return(t3);} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_i_check_char_2(t4,lf[136]); -t6=C_slot(t2,C_fix(1)); -if(C_truep(t3)){ -t8=t4; -t9=t6; -t10=C_u_i_char_less_or_equal_p(t1,t4); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t8=t4; -t9=t6; -t10=C_SCHEME_FALSE; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* scheme#char-upcase in k11436 */ -static void C_ccall f_12375(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12375,c,av);} -t3=C_i_check_char_2(t2,lf[138]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_char_upcase(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#char-downcase in k11436 */ -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=av[2]; -C_word t3; -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_12381,c,av);} -t3=C_i_check_char_2(t2,lf[140]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_char_downcase(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#char-upper-case? in k11436 */ -static void C_ccall f_12392(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12392,c,av);} -t3=C_i_check_char_2(t2,lf[147]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_char_upper_casep(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#char-lower-case? in k11436 */ -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=av[2]; -C_word t3; -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_12398,c,av);} -t3=C_i_check_char_2(t2,lf[149]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_char_lower_casep(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#char-numeric? in k11436 */ -static void C_ccall f_12404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12404,c,av);} -t3=C_i_check_char_2(t2,lf[151]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_char_numericp(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#char-whitespace? in k11436 */ -static void C_ccall f_12410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12410,c,av);} -t3=C_i_check_char_2(t2,lf[153]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_char_whitespacep(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#char-alphabetic? in k11436 */ -static void C_ccall f_12416(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12416,c,av);} -t3=C_i_check_char_2(t2,lf[155]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_char_alphabeticp(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme.char#digit-value in k11436 */ -static void C_ccall f_12422(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_12422,c,av);} -t3=C_i_check_char_2(t2,lf[157]); -t4=C_u_i_digit_value(t2); -t5=C_eqp(t4,C_fix(0)); -t6=C_i_not(t5); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_fixnum_difference(t4,C_fix(1)):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* scheme#procedure? in k11436 */ -static void C_ccall f_12438(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12438,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_closurep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#input-port? in k11436 */ -static void C_ccall f_12446(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12446,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(C_blockp(t2))?C_input_portp(t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#output-port? in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12452,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(C_blockp(t2))?C_output_portp(t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#binary-port? in k11436 */ -static void C_ccall f_12458(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12458,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12465,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:682: port? */ -t4=*((C_word*)lf[168]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k12463 in scheme#binary-port? in k11436 */ -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(0,c,1)))){ -C_save_and_reclaim((void *)f_12465,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_eqp(lf[167],C_slot(((C_word*)t0)[3],C_fix(14))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#textual-port? in k11436 */ -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; -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_12474,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12481,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:686: port? */ -t4=*((C_word*)lf[168]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k12479 in scheme#textual-port? in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12481,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_eqp(lf[170],C_slot(((C_word*)t0)[3],C_fix(14))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#port? in k11436 */ -static void C_ccall f_12490(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12490,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(C_blockp(t2))?C_portp(t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#input-port-open? in k11436 */ -static void C_ccall f_12496(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12496,c,av);} -t3=C_i_check_port(t2,C_fix(1),lf[172]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_input_port_openp(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#output-port-open? in k11436 */ -static void C_ccall f_12501(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12501,c,av);} -t3=C_i_check_port(t2,C_fix(2),lf[174]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_output_port_openp(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#eof-object? in k11436 */ -static void C_ccall f_12516(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12516,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_eofp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#eval in k11436 */ -static void C_ccall f_12527(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12527,c,av);} -/* library.scm:736: ##sys#error */ -t3=*((C_word*)lf[195]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[196]; -av2[3]=lf[197]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* scheme#interaction-environment in k11436 */ -static void C_ccall f_12533(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_12533,c,av);} -/* library.scm:739: ##sys#error */ -t2=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=lf[199]; -av2[3]=lf[200]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* scheme#scheme-report-environment in k11436 */ -static void C_ccall f_12539(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_12539,c,av);} -/* library.scm:742: ##sys#error */ -t3=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[202]; -av2[3]=lf[203]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* scheme#null-environment in k11436 */ -static void C_ccall f_12545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_12545,c,av);} -/* library.scm:745: ##sys#error */ -t2=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=lf[205]; -av2[3]=lf[206]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* scheme#load in k11436 */ -static void C_ccall f_12551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12551,c,av);} -/* library.scm:748: ##sys#error */ -t3=*((C_word*)lf[195]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[208]; -av2[3]=lf[209]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k12559 in k11436 */ -static void C_ccall f_12561(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word t36; -C_word t37; -C_word t38; -C_word t39; -C_word t40; -C_word t41; -C_word t42; -C_word t43; -C_word t44; -C_word t45; -C_word t46; -C_word t47; -C_word t48; -C_word t49; -C_word t50; -C_word t51; -C_word t52; -C_word t53; -C_word t54; -C_word t55; -C_word t56; -C_word t57; -C_word t58; -C_word t59; -C_word t60; -C_word t61; -C_word t62; -C_word t63; -C_word t64; -C_word t65; -C_word t66; -C_word t67; -C_word t68; -C_word t69; -C_word t70; -C_word t71; -C_word t72; -C_word t73; -C_word t74; -C_word t75; -C_word t76; -C_word t77; -C_word t78; -C_word t79; -C_word t80; -C_word t81; -C_word t82; -C_word t83; -C_word t84; -C_word t85; -C_word t86; -C_word t87; -C_word t88; -C_word t89; -C_word t90; -C_word t91; -C_word t92; -C_word t93; -C_word t94; -C_word t95; -C_word t96; -C_word t97; -C_word t98; -C_word t99; -C_word t100; -C_word t101; -C_word t102; -C_word t103; -C_word t104; -C_word t105; -C_word t106; -C_word t107; -C_word t108; -C_word t109; -C_word t110; -C_word t111; -C_word t112; -C_word t113; -C_word t114; -C_word t115; -C_word t116; -C_word t117; -C_word t118; -C_word t119; -C_word t120; -C_word t121; -C_word t122; -C_word t123; -C_word t124; -C_word t125; -C_word t126; -C_word t127; -C_word t128; -C_word t129; -C_word t130; -C_word t131; -C_word t132; -C_word t133; -C_word t134; -C_word t135; -C_word t136; -C_word t137; -C_word t138; -C_word t139; -C_word t140; -C_word t141; -C_word t142; -C_word t143; -C_word t144; -C_word t145; -C_word t146; -C_word t147; -C_word t148; -C_word t149; -C_word t150; -C_word t151; -C_word t152; -C_word t153; -C_word t154; -C_word t155; -C_word t156; -C_word t157; -C_word t158; -C_word t159; -C_word t160; -C_word t161; -C_word t162; -C_word t163; -C_word t164; -C_word t165; -C_word t166; -C_word t167; -C_word t168; -C_word t169; -C_word t170; -C_word t171; -C_word t172; -C_word t173; -C_word t174; -C_word t175; -C_word t176; -C_word t177; -C_word t178; -C_word t179; -C_word t180; -C_word t181; -C_word t182; -C_word t183; -C_word t184; -C_word t185; -C_word t186; -C_word t187; -C_word t188; -C_word t189; -C_word t190; -C_word t191; -C_word t192; -C_word t193; -C_word t194; -C_word t195; -C_word t196; -C_word t197; -C_word t198; -C_word t199; -C_word t200; -C_word t201; -C_word t202; -C_word t203; -C_word t204; -C_word t205; -C_word t206; -C_word t207; -C_word t208; -C_word t209; -C_word t210; -C_word t211; -C_word t212; -C_word t213; -C_word t214; -C_word t215; -C_word t216; -C_word t217; -C_word t218; -C_word t219; -C_word t220; -C_word t221; -C_word t222; -C_word t223; -C_word t224; -C_word t225; -C_word t226; -C_word t227; -C_word t228; -C_word t229; -C_word t230; -C_word t231; -C_word t232; -C_word t233; -C_word t234; -C_word t235; -C_word t236; -C_word t237; -C_word t238; -C_word t239; -C_word t240; -C_word t241; -C_word t242; -C_word t243; -C_word t244; -C_word t245; -C_word t246; -C_word t247; -C_word t248; -C_word t249; -C_word t250; -C_word t251; -C_word t252; -C_word t253; -C_word t254; -C_word t255; -C_word t256; -C_word t257; -C_word t258; -C_word t259; -C_word t260; -C_word t261; -C_word t262; -C_word t263; -C_word t264; -C_word t265; -C_word t266; -C_word t267; -C_word t268; -C_word t269; -C_word t270; -C_word t271; -C_word t272; -C_word t273; -C_word t274; -C_word t275; -C_word t276; -C_word t277; -C_word t278; -C_word t279; -C_word t280; -C_word t281; -C_word t282; -C_word t283; -C_word t284; -C_word t285; -C_word t286; -C_word t287; -C_word t288; -C_word t289; -C_word t290; -C_word t291; -C_word t292; -C_word t293; -C_word t294; -C_word t295; -C_word t296; -C_word t297; -C_word t298; -C_word t299; -C_word t300; -C_word t301; -C_word t302; -C_word t303; -C_word t304; -C_word t305; -C_word t306; -C_word t307; -C_word t308; -C_word t309; -C_word t310; -C_word t311; -C_word t312; -C_word t313; -C_word t314; -C_word t315; -C_word t316; -C_word t317; -C_word t318; -C_word t319; -C_word t320; -C_word t321; -C_word t322; -C_word t323; -C_word t324; -C_word t325; -C_word t326; -C_word t327; -C_word t328; -C_word t329; -C_word t330; -C_word t331; -C_word t332; -C_word t333; -C_word t334; -C_word t335; -C_word t336; -C_word t337; -C_word t338; -C_word t339; -C_word t340; -C_word t341; -C_word t342; -C_word t343; -C_word t344; -C_word t345; -C_word t346; -C_word t347; -C_word t348; -C_word t349; -C_word t350; -C_word t351; -C_word t352; -C_word t353; -C_word t354; -C_word t355; -C_word t356; -C_word t357; -C_word t358; -C_word t359; -C_word t360; -C_word t361; -C_word t362; -C_word t363; -C_word t364; -C_word t365; -C_word t366; -C_word t367; -C_word t368; -C_word t369; -C_word t370; -C_word t371; -C_word t372; -C_word t373; -C_word t374; -C_word t375; -C_word t376; -C_word t377; -C_word t378; -C_word t379; -C_word t380; -C_word t381; -C_word t382; -C_word t383; -C_word t384; -C_word t385; -C_word t386; -C_word t387; -C_word t388; -C_word t389; -C_word t390; -C_word t391; -C_word t392; -C_word t393; -C_word t394; -C_word t395; -C_word t396; -C_word t397; -C_word t398; -C_word t399; -C_word t400; -C_word t401; -C_word t402; -C_word t403; -C_word t404; -C_word t405; -C_word t406; -C_word t407; -C_word t408; -C_word t409; -C_word t410; -C_word t411; -C_word t412; -C_word t413; -C_word t414; -C_word t415; -C_word t416; -C_word t417; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(1142,c,7)))){ -C_save_and_reclaim((void *)f_12561,c,av);} -a=C_alloc(1142); -t2=C_a_i_provide(&a,1,lf[213]); -t3=C_mutate((C_word*)lf[214]+1 /* (set! chicken.base#fixnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12563,a[2]=((C_word)li135),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[215]+1 /* (set! chicken.base#flonum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12566,a[2]=((C_word)li136),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[216]+1 /* (set! chicken.base#bignum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12569,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[217]+1 /* (set! chicken.base#ratnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12572,a[2]=((C_word)li138),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[218]+1 /* (set! chicken.base#cplxnum? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12575,a[2]=((C_word)li139),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[219]+1 /* (set! chicken.base#exact-integer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12578,a[2]=((C_word)li140),tmp=(C_word)a,a+=3,tmp)); -t9=C_set_block_item(lf[220] /* chicken.base#exact-integer-sqrt */,0,C_SCHEME_UNDEFINED); -t10=C_mutate((C_word*)lf[221]+1 /* (set! chicken.base#quotient&remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_quotient_and_remainder,a[2]=((C_word)li141),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[222]+1 /* (set! chicken.base#quotient&modulo ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12583,a[2]=((C_word)li144),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[223]+1 /* (set! chicken.base#finite? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12630,a[2]=((C_word)li145),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[224]+1 /* (set! chicken.base#infinite? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12633,a[2]=((C_word)li146),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[225]+1 /* (set! chicken.base#nan? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12636,a[2]=((C_word)li147),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[226]+1 /* (set! chicken.base#signum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_signum,a[2]=((C_word)li148),tmp=(C_word)a,a+=3,tmp)); -t16=C_set_block_item(lf[227] /* chicken.base#get-call-chain */,0,C_SCHEME_UNDEFINED); -t17=C_set_block_item(lf[228] /* chicken.base#print-call-chain */,0,C_SCHEME_UNDEFINED); -t18=C_set_block_item(lf[229] /* chicken.base#print */,0,C_SCHEME_UNDEFINED); -t19=C_set_block_item(lf[230] /* chicken.base#print* */,0,C_SCHEME_UNDEFINED); -t20=C_mutate((C_word*)lf[231]+1 /* (set! chicken.base#add1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12644,a[2]=((C_word)li149),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[232]+1 /* (set! chicken.base#sub1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12650,a[2]=((C_word)li150),tmp=(C_word)a,a+=3,tmp)); -t22=C_set_block_item(lf[233] /* chicken.base#current-error-port */,0,C_SCHEME_UNDEFINED); -t23=C_mutate((C_word*)lf[234]+1 /* (set! chicken.base#error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12657,a[2]=((C_word)li151),tmp=(C_word)a,a+=3,tmp)); -t24=C_mutate((C_word*)lf[237]+1 /* (set! chicken.base#void ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12672,a[2]=((C_word)li152),tmp=(C_word)a,a+=3,tmp)); -t25=C_set_block_item(lf[238] /* chicken.base#sleep */,0,C_SCHEME_UNDEFINED); -t26=C_set_block_item(lf[239] /* chicken.base#char-name */,0,C_SCHEME_UNDEFINED); -t27=C_set_block_item(lf[240] /* chicken.base#getter-with-setter */,0,C_SCHEME_UNDEFINED); -t28=C_set_block_item(lf[241] /* chicken.base#procedure-information */,0,C_SCHEME_UNDEFINED); -t29=C_set_block_item(lf[242] /* chicken.base#setter */,0,C_SCHEME_UNDEFINED); -t30=C_set_block_item(lf[243] /* chicken.base#record-printer */,0,C_SCHEME_UNDEFINED); -t31=C_set_block_item(lf[244] /* chicken.base#set-record-printer! */,0,C_SCHEME_UNDEFINED); -t32=C_set_block_item(lf[245] /* chicken.base#subvector */,0,C_SCHEME_UNDEFINED); -t33=C_set_block_item(lf[246] /* chicken.base#vector-resize */,0,C_SCHEME_UNDEFINED); -t34=C_set_block_item(lf[247] /* chicken.base#port-closed? */,0,C_SCHEME_UNDEFINED); -t35=C_set_block_item(lf[248] /* chicken.base#flush-output */,0,C_SCHEME_UNDEFINED); -t36=C_mutate((C_word*)lf[249]+1 /* (set! chicken.base#promise? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12686,a[2]=((C_word)li153),tmp=(C_word)a,a+=3,tmp)); -t37=C_mutate((C_word*)lf[251]+1 /* (set! ##sys#make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12692,a[2]=((C_word)li154),tmp=(C_word)a,a+=3,tmp)); -t38=C_mutate((C_word*)lf[252]+1 /* (set! chicken.base#make-promise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12698,a[2]=((C_word)li156),tmp=(C_word)a,a+=3,tmp)); -t39=C_mutate((C_word*)lf[253]+1 /* (set! chicken.base#foldl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12713,a[2]=((C_word)li158),tmp=(C_word)a,a+=3,tmp)); -t40=C_mutate((C_word*)lf[255]+1 /* (set! chicken.base#foldr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12750,a[2]=((C_word)li160),tmp=(C_word)a,a+=3,tmp)); -t41=C_set_block_item(lf[257] /* chicken.base#implicit-exit-handler */,0,C_SCHEME_UNDEFINED); -t42=C_set_block_item(lf[258] /* chicken.base#exit-handler */,0,C_SCHEME_UNDEFINED); -t43=C_set_block_item(lf[259] /* chicken.base#cleanup-tasks */,0,C_SCHEME_END_OF_LIST); -t44=C_mutate((C_word*)lf[260]+1 /* (set! chicken.base#on-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12790,a[2]=((C_word)li161),tmp=(C_word)a,a+=3,tmp)); -t45=C_mutate((C_word*)lf[261]+1 /* (set! chicken.base#exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12797,a[2]=((C_word)li162),tmp=(C_word)a,a+=3,tmp)); -t46=C_mutate((C_word*)lf[262]+1 /* (set! chicken.base#emergency-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12815,a[2]=((C_word)li163),tmp=(C_word)a,a+=3,tmp)); -t47=C_set_block_item(lf[264] /* chicken.base#case-sensitive */,0,C_SCHEME_UNDEFINED); -t48=C_set_block_item(lf[265] /* chicken.base#keyword-style */,0,C_SCHEME_UNDEFINED); -t49=C_set_block_item(lf[266] /* chicken.base#parentheses-synonyms */,0,C_SCHEME_UNDEFINED); -t50=C_set_block_item(lf[267] /* chicken.base#symbol-escape */,0,C_SCHEME_UNDEFINED); -t51=C_mutate((C_word*)lf[268]+1 /* (set! chicken.base#identity ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12834,a[2]=((C_word)li164),tmp=(C_word)a,a+=3,tmp)); -t52=C_mutate((C_word*)lf[269]+1 /* (set! chicken.base#conjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12837,a[2]=((C_word)li167),tmp=(C_word)a,a+=3,tmp)); -t53=C_mutate((C_word*)lf[270]+1 /* (set! chicken.base#disjoin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12870,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); -t54=C_mutate((C_word*)lf[271]+1 /* (set! chicken.base#constantly ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12907,a[2]=((C_word)li173),tmp=(C_word)a,a+=3,tmp)); -t55=C_mutate((C_word*)lf[272]+1 /* (set! chicken.base#flip ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12928,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp)); -t56=C_mutate((C_word*)lf[273]+1 /* (set! chicken.base#complement ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12936,a[2]=((C_word)li177),tmp=(C_word)a,a+=3,tmp)); -t57=C_mutate((C_word*)lf[274]+1 /* (set! chicken.base#compose ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12948,a[2]=((C_word)li181),tmp=(C_word)a,a+=3,tmp)); -t58=C_mutate((C_word*)lf[275]+1 /* (set! chicken.base#o ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_12984,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp)); -t59=C_mutate((C_word*)lf[276]+1 /* (set! chicken.base#list-of? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13023,a[2]=((C_word)li187),tmp=(C_word)a,a+=3,tmp)); -t60=C_mutate((C_word*)lf[277]+1 /* (set! chicken.base#each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13067,a[2]=((C_word)li191),tmp=(C_word)a,a+=3,tmp)); -t61=C_mutate((C_word*)lf[279]+1 /* (set! chicken.base#bwp-object? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13123,a[2]=((C_word)li192),tmp=(C_word)a,a+=3,tmp)); -t62=C_mutate((C_word*)lf[280]+1 /* (set! chicken.base#weak-cons ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13126,a[2]=((C_word)li193),tmp=(C_word)a,a+=3,tmp)); -t63=C_mutate((C_word*)lf[281]+1 /* (set! chicken.base#weak-pair? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13129,a[2]=((C_word)li194),tmp=(C_word)a,a+=3,tmp)); -t64=C_mutate((C_word*)lf[282]+1 /* (set! chicken.base#atom? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13132,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); -t65=C_mutate((C_word*)lf[283]+1 /* (set! chicken.base#tail? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13135,a[2]=((C_word)li197),tmp=(C_word)a,a+=3,tmp)); -t66=C_mutate((C_word*)lf[285]+1 /* (set! chicken.base#intersperse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13163,a[2]=((C_word)li199),tmp=(C_word)a,a+=3,tmp)); -t67=C_mutate((C_word*)lf[286]+1 /* (set! chicken.base#butlast ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13196,a[2]=((C_word)li201),tmp=(C_word)a,a+=3,tmp)); -t68=C_mutate((C_word*)lf[288]+1 /* (set! chicken.base#flatten ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13228,a[2]=((C_word)li203),tmp=(C_word)a,a+=3,tmp)); -t69=C_mutate((C_word*)lf[289]+1 /* (set! chicken.base#join ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13269,a[2]=((C_word)li205),tmp=(C_word)a,a+=3,tmp)); -t70=C_mutate((C_word*)lf[292]+1 /* (set! chicken.base#compress ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13326,a[2]=((C_word)li207),tmp=(C_word)a,a+=3,tmp)); -t71=C_mutate((C_word*)lf[296]+1 /* (set! chicken.base#char-foldcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13406,a[2]=((C_word)li208),tmp=(C_word)a,a+=3,tmp)); -t72=C_mutate((C_word*)lf[298]+1 /* (set! chicken.base#string-foldcase ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13412,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); -t73=C_mutate((C_word*)lf[302]+1 /* (set! chicken.base#alist-update! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13432,a[2]=((C_word)li212),tmp=(C_word)a,a+=3,tmp)); -t74=C_mutate((C_word*)lf[303]+1 /* (set! chicken.base#alist-update ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13518,a[2]=((C_word)li214),tmp=(C_word)a,a+=3,tmp)); -t75=C_mutate((C_word*)lf[307]+1 /* (set! chicken.base#alist-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13622,a[2]=((C_word)li217),tmp=(C_word)a,a+=3,tmp)); -t76=C_mutate((C_word*)lf[310]+1 /* (set! chicken.base#rassoc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13734,a[2]=((C_word)li219),tmp=(C_word)a,a+=3,tmp)); -t77=C_mutate((C_word*)lf[312]+1 /* (set! scheme#open-input-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13782,a[2]=((C_word)li220),tmp=(C_word)a,a+=3,tmp)); -t78=C_mutate((C_word*)lf[318]+1 /* (set! scheme#open-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13810,a[2]=((C_word)li221),tmp=(C_word)a,a+=3,tmp)); -t79=C_mutate((C_word*)lf[320]+1 /* (set! scheme#get-output-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13829,a[2]=((C_word)li222),tmp=(C_word)a,a+=3,tmp)); -t80=C_mutate((C_word*)lf[323]+1 /* (set! scheme#open-input-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13863,a[2]=((C_word)li228),tmp=(C_word)a,a+=3,tmp)); -t81=C_mutate((C_word*)lf[328]+1 /* (set! scheme#open-output-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13934,a[2]=((C_word)li234),tmp=(C_word)a,a+=3,tmp)); -t82=C_mutate((C_word*)lf[330]+1 /* (set! scheme#get-output-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14003,a[2]=((C_word)li236),tmp=(C_word)a,a+=3,tmp)); -t83=C_unsigned_long_to_num(&a,C_HEADER_SIZE_MASK); -t84=C_mutate(&lf[334] /* (set! maximal-string-length ...) */,C_s_a_u_i_integer_minus(&a,2,t83,C_fix(1))); -t85=C_a_i_provide(&a,1,lf[335]); -t86=C_set_block_item(lf[336] /* chicken.fixnum#most-positive-fixnum */,0,C_fix((C_word)C_MOST_POSITIVE_FIXNUM)); -t87=C_set_block_item(lf[337] /* chicken.fixnum#most-negative-fixnum */,0,C_fix((C_word)C_MOST_NEGATIVE_FIXNUM)); -t88=C_set_block_item(lf[338] /* chicken.fixnum#fixnum-bits */,0,C_fix((C_word)(C_WORD_SIZE - 1))); -t89=C_set_block_item(lf[339] /* chicken.fixnum#fixnum-precision */,0,C_fix((C_word)(C_WORD_SIZE - (1 + 1)))); -t90=C_mutate((C_word*)lf[340]+1 /* (set! chicken.fixnum#fx+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14050,a[2]=((C_word)li237),tmp=(C_word)a,a+=3,tmp)); -t91=C_mutate((C_word*)lf[341]+1 /* (set! chicken.fixnum#fx- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14053,a[2]=((C_word)li238),tmp=(C_word)a,a+=3,tmp)); -t92=C_mutate((C_word*)lf[342]+1 /* (set! chicken.fixnum#fx* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14056,a[2]=((C_word)li239),tmp=(C_word)a,a+=3,tmp)); -t93=C_mutate((C_word*)lf[343]+1 /* (set! chicken.fixnum#fx= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14059,a[2]=((C_word)li240),tmp=(C_word)a,a+=3,tmp)); -t94=C_mutate((C_word*)lf[344]+1 /* (set! chicken.fixnum#fx> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14065,a[2]=((C_word)li241),tmp=(C_word)a,a+=3,tmp)); -t95=C_mutate((C_word*)lf[345]+1 /* (set! chicken.fixnum#fx< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14068,a[2]=((C_word)li242),tmp=(C_word)a,a+=3,tmp)); -t96=C_mutate((C_word*)lf[346]+1 /* (set! chicken.fixnum#fx>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14071,a[2]=((C_word)li243),tmp=(C_word)a,a+=3,tmp)); -t97=C_mutate((C_word*)lf[347]+1 /* (set! chicken.fixnum#fx<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14074,a[2]=((C_word)li244),tmp=(C_word)a,a+=3,tmp)); -t98=C_mutate((C_word*)lf[348]+1 /* (set! chicken.fixnum#fxmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14077,a[2]=((C_word)li245),tmp=(C_word)a,a+=3,tmp)); -t99=C_mutate((C_word*)lf[349]+1 /* (set! chicken.fixnum#fxmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14080,a[2]=((C_word)li246),tmp=(C_word)a,a+=3,tmp)); -t100=C_mutate((C_word*)lf[350]+1 /* (set! chicken.fixnum#fxneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14083,a[2]=((C_word)li247),tmp=(C_word)a,a+=3,tmp)); -t101=C_mutate((C_word*)lf[351]+1 /* (set! chicken.fixnum#fxand ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14086,a[2]=((C_word)li248),tmp=(C_word)a,a+=3,tmp)); -t102=C_mutate((C_word*)lf[352]+1 /* (set! chicken.fixnum#fxior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14089,a[2]=((C_word)li249),tmp=(C_word)a,a+=3,tmp)); -t103=C_mutate((C_word*)lf[353]+1 /* (set! chicken.fixnum#fxxor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14092,a[2]=((C_word)li250),tmp=(C_word)a,a+=3,tmp)); -t104=C_mutate((C_word*)lf[354]+1 /* (set! chicken.fixnum#fxnot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14095,a[2]=((C_word)li251),tmp=(C_word)a,a+=3,tmp)); -t105=C_mutate((C_word*)lf[355]+1 /* (set! chicken.fixnum#fxshl ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14098,a[2]=((C_word)li252),tmp=(C_word)a,a+=3,tmp)); -t106=C_mutate((C_word*)lf[356]+1 /* (set! chicken.fixnum#fxshr ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14101,a[2]=((C_word)li253),tmp=(C_word)a,a+=3,tmp)); -t107=C_mutate((C_word*)lf[357]+1 /* (set! chicken.fixnum#fxodd? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14104,a[2]=((C_word)li254),tmp=(C_word)a,a+=3,tmp)); -t108=C_mutate((C_word*)lf[358]+1 /* (set! chicken.fixnum#fxeven? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14107,a[2]=((C_word)li255),tmp=(C_word)a,a+=3,tmp)); -t109=C_mutate((C_word*)lf[359]+1 /* (set! chicken.fixnum#fxlen ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14110,a[2]=((C_word)li256),tmp=(C_word)a,a+=3,tmp)); -t110=C_mutate((C_word*)lf[360]+1 /* (set! chicken.fixnum#fx/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14113,a[2]=((C_word)li257),tmp=(C_word)a,a+=3,tmp)); -t111=C_mutate((C_word*)lf[361]+1 /* (set! chicken.fixnum#fxgcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14116,a[2]=((C_word)li258),tmp=(C_word)a,a+=3,tmp)); -t112=C_mutate((C_word*)lf[362]+1 /* (set! chicken.fixnum#fxmod ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14119,a[2]=((C_word)li259),tmp=(C_word)a,a+=3,tmp)); -t113=C_mutate((C_word*)lf[363]+1 /* (set! chicken.fixnum#fxrem ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14122,a[2]=((C_word)li260),tmp=(C_word)a,a+=3,tmp)); -t114=C_mutate((C_word*)lf[364]+1 /* (set! chicken.fixnum#fx+? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14125,a[2]=((C_word)li261),tmp=(C_word)a,a+=3,tmp)); -t115=C_mutate((C_word*)lf[365]+1 /* (set! chicken.fixnum#fx-? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14128,a[2]=((C_word)li262),tmp=(C_word)a,a+=3,tmp)); -t116=C_mutate((C_word*)lf[366]+1 /* (set! chicken.fixnum#fx*? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14131,a[2]=((C_word)li263),tmp=(C_word)a,a+=3,tmp)); -t117=C_mutate((C_word*)lf[367]+1 /* (set! chicken.fixnum#fx/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14134,a[2]=((C_word)li264),tmp=(C_word)a,a+=3,tmp)); -t118=C_mutate((C_word*)lf[368]+1 /* (set! ##sys#debug-mode? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14137,a[2]=((C_word)li265),tmp=(C_word)a,a+=3,tmp)); -t119=C_set_block_item(lf[369] /* ##sys#warnings-enabled */,0,C_SCHEME_TRUE); -t120=C_set_block_item(lf[370] /* ##sys#notices-enabled */,0,C_i_debug_modep()); -t121=C_mutate((C_word*)lf[371]+1 /* (set! chicken.base#warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14142,a[2]=((C_word)li266),tmp=(C_word)a,a+=3,tmp)); -t122=C_mutate((C_word*)lf[373]+1 /* (set! chicken.base#notice ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14151,a[2]=((C_word)li267),tmp=(C_word)a,a+=3,tmp)); -t123=C_mutate((C_word*)lf[375]+1 /* (set! chicken.base#enable-warnings ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14163,a[2]=((C_word)li268),tmp=(C_word)a,a+=3,tmp)); -t124=C_mutate((C_word*)lf[195]+1 /* (set! ##sys#error ...) */,*((C_word*)lf[234]+1)); -t125=C_mutate((C_word*)lf[376]+1 /* (set! ##sys#warn ...) */,*((C_word*)lf[371]+1)); -t126=C_mutate((C_word*)lf[377]+1 /* (set! ##sys#notice ...) */,*((C_word*)lf[373]+1)); -t127=C_mutate((C_word*)lf[378]+1 /* (set! ##sys#error/errno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14177,a[2]=((C_word)li269),tmp=(C_word)a,a+=3,tmp)); -t128=C_mutate((C_word*)lf[380]+1 /* (set! ##sys#gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_gc,a[2]=((C_word)li270),tmp=(C_word)a,a+=3,tmp)); -t129=C_mutate((C_word*)lf[381]+1 /* (set! ##sys#setslot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14193,a[2]=((C_word)li271),tmp=(C_word)a,a+=3,tmp)); -t130=C_mutate((C_word*)lf[382]+1 /* (set! ##sys#setislot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14196,a[2]=((C_word)li272),tmp=(C_word)a,a+=3,tmp)); -t131=C_mutate((C_word*)lf[383]+1 /* (set! ##sys#allocate-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_allocate_vector,a[2]=((C_word)li273),tmp=(C_word)a,a+=3,tmp)); -t132=C_mutate((C_word*)lf[384]+1 /* (set! ##sys#allocate-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_allocate_bytevector,a[2]=((C_word)li274),tmp=(C_word)a,a+=3,tmp)); -t133=C_mutate((C_word*)lf[385]+1 /* (set! ##sys#make-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_structure,a[2]=((C_word)li275),tmp=(C_word)a,a+=3,tmp)); -t134=C_mutate((C_word*)lf[386]+1 /* (set! ##sys#ensure-heap-reserve ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_ensure_heap_reserve,a[2]=((C_word)li276),tmp=(C_word)a,a+=3,tmp)); -t135=C_mutate((C_word*)lf[387]+1 /* (set! ##sys#symbol-table-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_symbol_table_info,a[2]=((C_word)li277),tmp=(C_word)a,a+=3,tmp)); -t136=C_mutate((C_word*)lf[388]+1 /* (set! ##sys#memory-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_get_memory_info,a[2]=((C_word)li278),tmp=(C_word)a,a+=3,tmp)); -t137=C_mutate((C_word*)lf[389]+1 /* (set! ##sys#start-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14205,a[2]=((C_word)li279),tmp=(C_word)a,a+=3,tmp)); -t138=C_mutate((C_word*)lf[390]+1 /* (set! ##sys#stop-timer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14211,a[2]=((C_word)li282),tmp=(C_word)a,a+=3,tmp)); -t139=C_mutate((C_word*)lf[391]+1 /* (set! ##sys#immediate? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14231,a[2]=((C_word)li283),tmp=(C_word)a,a+=3,tmp)); -t140=C_mutate((C_word*)lf[392]+1 /* (set! ##sys#message ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14238,a[2]=((C_word)li284),tmp=(C_word)a,a+=3,tmp)); -t141=C_mutate((C_word*)lf[393]+1 /* (set! ##sys#byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14241,a[2]=((C_word)li285),tmp=(C_word)a,a+=3,tmp)); -t142=C_mutate((C_word*)lf[394]+1 /* (set! ##sys#void ...) */,*((C_word*)lf[237]+1)); -t143=C_set_block_item(lf[278] /* ##sys#undefined-value */,0,C_SCHEME_UNDEFINED); -t144=C_mutate((C_word*)lf[395]+1 /* (set! ##sys#halt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14246,a[2]=((C_word)li286),tmp=(C_word)a,a+=3,tmp)); -t145=C_mutate((C_word*)lf[396]+1 /* (set! ##sys#become! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_become,a[2]=((C_word)li287),tmp=(C_word)a,a+=3,tmp)); -t146=C_mutate((C_word*)lf[397]+1 /* (set! ##sys#block-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14250,a[2]=((C_word)li288),tmp=(C_word)a,a+=3,tmp)); -t147=C_mutate((C_word*)lf[398]+1 /* (set! ##sys#apply-values ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_apply_values,a[2]=((C_word)li289),tmp=(C_word)a,a+=3,tmp)); -t148=C_mutate((C_word*)lf[399]+1 /* (set! ##sys#copy-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_copy_closure,a[2]=((C_word)li290),tmp=(C_word)a,a+=3,tmp)); -t149=C_mutate((C_word*)lf[400]+1 /* (set! ##sys#block-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14255,a[2]=((C_word)li291),tmp=(C_word)a,a+=3,tmp)); -t150=C_a_i_provide(&a,1,lf[402]); -t151=C_mutate((C_word*)lf[403]+1 /* (set! chicken.time#current-process-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14290,a[2]=((C_word)li292),tmp=(C_word)a,a+=3,tmp)); -t152=C_mutate((C_word*)lf[404]+1 /* (set! chicken.time#current-seconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14293,a[2]=((C_word)li293),tmp=(C_word)a,a+=3,tmp)); -t153=C_mutate((C_word*)lf[405]+1 /* (set! chicken.time#cpu-time ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14296,a[2]=((C_word)li294),tmp=(C_word)a,a+=3,tmp)); -t154=C_mutate((C_word*)lf[406]+1 /* (set! ##sys#check-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14313,a[2]=((C_word)li295),tmp=(C_word)a,a+=3,tmp)); -t155=C_mutate((C_word*)lf[407]+1 /* (set! ##sys#check-blob ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14324,a[2]=((C_word)li296),tmp=(C_word)a,a+=3,tmp)); -t156=C_mutate((C_word*)lf[408]+1 /* (set! ##sys#check-pair ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14335,a[2]=((C_word)li297),tmp=(C_word)a,a+=3,tmp)); -t157=C_mutate((C_word*)lf[409]+1 /* (set! ##sys#check-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14346,a[2]=((C_word)li298),tmp=(C_word)a,a+=3,tmp)); -t158=C_mutate((C_word*)lf[410]+1 /* (set! ##sys#check-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14357,a[2]=((C_word)li299),tmp=(C_word)a,a+=3,tmp)); -t159=C_mutate((C_word*)lf[411]+1 /* (set! ##sys#check-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14368,a[2]=((C_word)li300),tmp=(C_word)a,a+=3,tmp)); -t160=C_mutate((C_word*)lf[412]+1 /* (set! ##sys#check-fixnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14379,a[2]=((C_word)li301),tmp=(C_word)a,a+=3,tmp)); -t161=C_mutate((C_word*)lf[413]+1 /* (set! ##sys#check-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14390,a[2]=((C_word)li302),tmp=(C_word)a,a+=3,tmp)); -t162=C_mutate((C_word*)lf[414]+1 /* (set! ##sys#check-exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14401,a[2]=((C_word)li303),tmp=(C_word)a,a+=3,tmp)); -t163=C_mutate((C_word*)lf[415]+1 /* (set! ##sys#check-inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14412,a[2]=((C_word)li304),tmp=(C_word)a,a+=3,tmp)); -t164=C_mutate((C_word*)lf[416]+1 /* (set! ##sys#check-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14423,a[2]=((C_word)li305),tmp=(C_word)a,a+=3,tmp)); -t165=C_mutate((C_word*)lf[417]+1 /* (set! ##sys#check-keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14434,a[2]=((C_word)li306),tmp=(C_word)a,a+=3,tmp)); -t166=C_mutate((C_word*)lf[418]+1 /* (set! ##sys#check-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14445,a[2]=((C_word)li307),tmp=(C_word)a,a+=3,tmp)); -t167=C_mutate((C_word*)lf[419]+1 /* (set! ##sys#check-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14456,a[2]=((C_word)li308),tmp=(C_word)a,a+=3,tmp)); -t168=C_mutate((C_word*)lf[420]+1 /* (set! ##sys#check-boolean ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14467,a[2]=((C_word)li309),tmp=(C_word)a,a+=3,tmp)); -t169=C_mutate((C_word*)lf[421]+1 /* (set! ##sys#check-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14478,a[2]=((C_word)li310),tmp=(C_word)a,a+=3,tmp)); -t170=C_mutate((C_word*)lf[422]+1 /* (set! ##sys#check-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14489,a[2]=((C_word)li311),tmp=(C_word)a,a+=3,tmp)); -t171=C_mutate((C_word*)lf[424]+1 /* (set! ##sys#check-exact-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14506,a[2]=((C_word)li312),tmp=(C_word)a,a+=3,tmp)); -t172=C_mutate((C_word*)lf[426]+1 /* (set! ##sys#check-exact-uinteger ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14523,a[2]=((C_word)li313),tmp=(C_word)a,a+=3,tmp)); -t173=C_mutate((C_word*)lf[428]+1 /* (set! ##sys#check-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14547,a[2]=((C_word)li314),tmp=(C_word)a,a+=3,tmp)); -t174=C_mutate((C_word*)lf[430]+1 /* (set! ##sys#check-range ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14564,a[2]=((C_word)li315),tmp=(C_word)a,a+=3,tmp)); -t175=C_mutate((C_word*)lf[431]+1 /* (set! ##sys#check-range/including ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14575,a[2]=((C_word)li316),tmp=(C_word)a,a+=3,tmp)); -t176=C_mutate((C_word*)lf[432]+1 /* (set! ##sys#check-special ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14586,a[2]=((C_word)li317),tmp=(C_word)a,a+=3,tmp)); -t177=C_mutate((C_word*)lf[434]+1 /* (set! ##sys#check-closure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14606,a[2]=((C_word)li318),tmp=(C_word)a,a+=3,tmp)); -t178=C_mutate((C_word*)lf[435]+1 /* (set! scheme#force ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14617,a[2]=((C_word)li320),tmp=(C_word)a,a+=3,tmp)); -t179=C_mutate((C_word*)lf[437]+1 /* (set! ##sys#dload ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dload,a[2]=((C_word)li321),tmp=(C_word)a,a+=3,tmp)); -t180=C_mutate((C_word*)lf[438]+1 /* (set! ##sys#set-dlopen-flags! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_set_dlopen_flags,a[2]=((C_word)li322),tmp=(C_word)a,a+=3,tmp)); -t181=C_mutate((C_word*)lf[51]+1 /* (set! ##sys#error-not-a-proper-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14745,a[2]=((C_word)li323),tmp=(C_word)a,a+=3,tmp)); -t182=C_mutate((C_word*)lf[440]+1 /* (set! ##sys#error-bad-number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14761,a[2]=((C_word)li324),tmp=(C_word)a,a+=3,tmp)); -t183=C_mutate((C_word*)lf[423]+1 /* (set! ##sys#error-bad-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14777,a[2]=((C_word)li325),tmp=(C_word)a,a+=3,tmp)); -t184=C_mutate((C_word*)lf[425]+1 /* (set! ##sys#error-bad-exact-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14793,a[2]=((C_word)li326),tmp=(C_word)a,a+=3,tmp)); -t185=C_mutate((C_word*)lf[427]+1 /* (set! ##sys#error-bad-exact-uinteger ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14809,a[2]=((C_word)li327),tmp=(C_word)a,a+=3,tmp)); -t186=C_mutate((C_word*)lf[441]+1 /* (set! ##sys#error-bad-inexact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14825,a[2]=((C_word)li328),tmp=(C_word)a,a+=3,tmp)); -t187=C_mutate((C_word*)lf[429]+1 /* (set! ##sys#error-bad-real ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14841,a[2]=((C_word)li329),tmp=(C_word)a,a+=3,tmp)); -t188=C_mutate((C_word*)lf[442]+1 /* (set! ##sys#error-bad-base ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14857,a[2]=((C_word)li330),tmp=(C_word)a,a+=3,tmp)); -t189=C_mutate((C_word*)lf[443]+1 /* (set! scheme#append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14873,a[2]=((C_word)li333),tmp=(C_word)a,a+=3,tmp)); -t190=C_mutate((C_word*)lf[445]+1 /* (set! ##sys#fast-reverse ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14952,a[2]=((C_word)li335),tmp=(C_word)a,a+=3,tmp)); -t191=C_mutate((C_word*)lf[301]+1 /* (set! ##sys#make-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14982,a[2]=((C_word)li336),tmp=(C_word)a,a+=3,tmp)); -t192=C_mutate((C_word*)lf[446]+1 /* (set! ##sys#make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14997,a[2]=((C_word)li337),tmp=(C_word)a,a+=3,tmp)); -t193=C_mutate((C_word*)lf[300]+1 /* (set! ##sys#buffer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15019,a[2]=((C_word)li338),tmp=(C_word)a,a+=3,tmp)); -t194=C_mutate((C_word*)lf[447]+1 /* (set! ##sys#utf-decoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15030,a[2]=((C_word)li339),tmp=(C_word)a,a+=3,tmp)); -t195=C_mutate((C_word*)lf[448]+1 /* (set! ##sys#utf-encoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15036,a[2]=((C_word)li340),tmp=(C_word)a,a+=3,tmp)); -t196=C_mutate((C_word*)lf[449]+1 /* (set! ##sys#utf-scanner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15042,a[2]=((C_word)li341),tmp=(C_word)a,a+=3,tmp)); -t197=C_mutate((C_word*)lf[450]+1 /* (set! ##sys#latin-decoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15066,a[2]=((C_word)li342),tmp=(C_word)a,a+=3,tmp)); -t198=C_mutate((C_word*)lf[451]+1 /* (set! ##sys#latin-encoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15079,a[2]=((C_word)li343),tmp=(C_word)a,a+=3,tmp)); -t199=C_mutate((C_word*)lf[452]+1 /* (set! ##sys#latin-scanner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15092,a[2]=((C_word)li344),tmp=(C_word)a,a+=3,tmp)); -t200=C_mutate((C_word*)lf[453]+1 /* (set! ##sys#binary-decoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15095,a[2]=((C_word)li345),tmp=(C_word)a,a+=3,tmp)); -t201=C_mutate((C_word*)lf[454]+1 /* (set! ##sys#binary-encoder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15101,a[2]=((C_word)li346),tmp=(C_word)a,a+=3,tmp)); -t202=C_mutate((C_word*)lf[455]+1 /* (set! ##sys#binary-scanner ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15107,a[2]=((C_word)li347),tmp=(C_word)a,a+=3,tmp)); -t203=C_mutate((C_word*)lf[456]+1 /* (set! ##sys#encoding-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15110,a[2]=((C_word)li348),tmp=(C_word)a,a+=3,tmp)); -t204=C_mutate((C_word*)lf[460]+1 /* (set! ##sys#register-encoding ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15149,a[2]=((C_word)li350),tmp=(C_word)a,a+=3,tmp)); -t205=C_mutate((C_word*)lf[461]+1 /* (set! ##sys#buffer->string/encoding ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15179,a[2]=((C_word)li352),tmp=(C_word)a,a+=3,tmp)); -t206=C_mutate((C_word*)lf[462]+1 /* (set! ##sys#encode-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15191,a[2]=((C_word)li354),tmp=(C_word)a,a+=3,tmp)); -t207=C_mutate((C_word*)lf[463]+1 /* (set! ##sys#decode-buffer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15203,a[2]=((C_word)li356),tmp=(C_word)a,a+=3,tmp)); -t208=C_mutate((C_word*)lf[464]+1 /* (set! ##sys#encode-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15215,a[2]=((C_word)li359),tmp=(C_word)a,a+=3,tmp)); -t209=C_mutate((C_word*)lf[465]+1 /* (set! ##sys#decode-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15233,a[2]=((C_word)li361),tmp=(C_word)a,a+=3,tmp)); -t210=C_mutate((C_word*)lf[466]+1 /* (set! ##sys#read-char/encoding ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15246,a[2]=((C_word)li364),tmp=(C_word)a,a+=3,tmp)); -t211=C_mutate((C_word*)lf[470]+1 /* (set! scheme#make-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15310,a[2]=((C_word)li365),tmp=(C_word)a,a+=3,tmp)); -t212=C_mutate((C_word*)lf[474]+1 /* (set! scheme#string->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15341,a[2]=((C_word)li367),tmp=(C_word)a,a+=3,tmp)); -t213=C_mutate((C_word*)lf[476]+1 /* (set! ##sys#string->list ...) */,*((C_word*)lf[474]+1)); -t214=C_mutate((C_word*)lf[477]+1 /* (set! scheme#list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15432,a[2]=((C_word)li369),tmp=(C_word)a,a+=3,tmp)); -t215=C_mutate((C_word*)lf[479]+1 /* (set! ##sys#list->string ...) */,*((C_word*)lf[477]+1)); -t216=C_mutate((C_word*)lf[480]+1 /* (set! ##sys#reverse-list->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15494,a[2]=((C_word)li371),tmp=(C_word)a,a+=3,tmp)); -t217=C_mutate((C_word*)lf[482]+1 /* (set! scheme#string-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15545,a[2]=((C_word)li373),tmp=(C_word)a,a+=3,tmp)); -t218=C_mutate((C_word*)lf[484]+1 /* (set! scheme#string-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15664,a[2]=((C_word)li374),tmp=(C_word)a,a+=3,tmp)); -t219=C_mutate((C_word*)lf[487]+1 /* (set! scheme#string-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15739,a[2]=((C_word)li377),tmp=(C_word)a,a+=3,tmp)); -t220=C_mutate((C_word*)lf[486]+1 /* (set! ##sys#substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15890,a[2]=((C_word)li378),tmp=(C_word)a,a+=3,tmp)); -t221=C_mutate((C_word*)lf[489]+1 /* (set! scheme#substring ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15904,a[2]=((C_word)li379),tmp=(C_word)a,a+=3,tmp)); -t222=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15949,a[2]=((C_word)li381),tmp=(C_word)a,a+=3,tmp); -t223=C_mutate((C_word*)lf[491]+1 /* (set! scheme#string? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16042,a[2]=t222,a[3]=((C_word)li385),tmp=(C_word)a,a+=4,tmp)); -t225=C_mutate((C_word*)lf[495]+1 /* (set! scheme#string<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16066,a[2]=t222,a[3]=((C_word)li387),tmp=(C_word)a,a+=4,tmp)); -t226=C_mutate((C_word*)lf[497]+1 /* (set! scheme#string>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16087,a[2]=t222,a[3]=((C_word)li389),tmp=(C_word)a,a+=4,tmp)); -t227=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16107,a[2]=((C_word)li391),tmp=(C_word)a,a+=3,tmp); -t228=C_mutate((C_word*)lf[499]+1 /* (set! scheme#string-ci? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16192,a[2]=t227,a[3]=((C_word)li395),tmp=(C_word)a,a+=4,tmp)); -t230=C_mutate((C_word*)lf[503]+1 /* (set! scheme#string-ci<=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16216,a[2]=t227,a[3]=((C_word)li397),tmp=(C_word)a,a+=4,tmp)); -t231=C_mutate((C_word*)lf[505]+1 /* (set! scheme#string-ci>=? ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16237,a[2]=t227,a[3]=((C_word)li399),tmp=(C_word)a,a+=4,tmp)); -t232=C_mutate((C_word*)lf[507]+1 /* (set! ##sys#string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16258,a[2]=((C_word)li400),tmp=(C_word)a,a+=3,tmp)); -t233=C_mutate((C_word*)lf[508]+1 /* (set! scheme#string-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16304,a[2]=((C_word)li402),tmp=(C_word)a,a+=3,tmp)); -t234=C_mutate((C_word*)lf[510]+1 /* (set! scheme#string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16362,a[2]=((C_word)li403),tmp=(C_word)a,a+=3,tmp)); -t235=C_mutate((C_word*)lf[511]+1 /* (set! ##sys#char->utf8-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16368,a[2]=((C_word)li404),tmp=(C_word)a,a+=3,tmp)); -t236=C_mutate((C_word*)lf[512]+1 /* (set! chicken.base#chop ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16374,a[2]=((C_word)li407),tmp=(C_word)a,a+=3,tmp)); -t237=C_a_i_provide(&a,1,lf[515]); -t238=C_mutate((C_word*)lf[516]+1 /* (set! chicken.flonum#maximum-flonum ...) */,C_flonum(&a,DBL_MAX)); -t239=C_mutate((C_word*)lf[517]+1 /* (set! chicken.flonum#minimum-flonum ...) */,C_flonum(&a,DBL_MIN)); -t240=C_set_block_item(lf[518] /* chicken.flonum#flonum-radix */,0,C_fix((C_word)FLT_RADIX)); -t241=C_mutate((C_word*)lf[519]+1 /* (set! chicken.flonum#flonum-epsilon ...) */,C_flonum(&a,DBL_EPSILON)); -t242=C_set_block_item(lf[520] /* chicken.flonum#flonum-precision */,0,C_fix((C_word)DBL_MANT_DIG)); -t243=C_set_block_item(lf[521] /* chicken.flonum#flonum-decimal-precision */,0,C_fix((C_word)DBL_DIG)); -t244=C_set_block_item(lf[522] /* chicken.flonum#flonum-maximum-exponent */,0,C_fix((C_word)DBL_MAX_EXP)); -t245=C_set_block_item(lf[523] /* chicken.flonum#flonum-minimum-exponent */,0,C_fix((C_word)DBL_MIN_EXP)); -t246=C_set_block_item(lf[524] /* chicken.flonum#flonum-maximum-decimal-exponent */,0,C_fix((C_word)DBL_MAX_10_EXP)); -t247=C_set_block_item(lf[525] /* chicken.flonum#flonum-minimum-decimal-exponent */,0,C_fix((C_word)DBL_MIN_10_EXP)); -t248=C_mutate((C_word*)lf[526]+1 /* (set! chicken.flonum#fp+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16469,a[2]=((C_word)li408),tmp=(C_word)a,a+=3,tmp)); -t249=C_mutate((C_word*)lf[528]+1 /* (set! chicken.flonum#fp- ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16493,a[2]=((C_word)li409),tmp=(C_word)a,a+=3,tmp)); -t250=C_mutate((C_word*)lf[530]+1 /* (set! chicken.flonum#fp* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16517,a[2]=((C_word)li410),tmp=(C_word)a,a+=3,tmp)); -t251=C_mutate((C_word*)lf[532]+1 /* (set! chicken.flonum#fp/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16541,a[2]=((C_word)li411),tmp=(C_word)a,a+=3,tmp)); -t252=C_mutate((C_word*)lf[534]+1 /* (set! chicken.flonum#fp*+ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16565,a[2]=((C_word)li412),tmp=(C_word)a,a+=3,tmp)); -t253=C_mutate((C_word*)lf[536]+1 /* (set! chicken.flonum#fpgcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16590,a[2]=((C_word)li413),tmp=(C_word)a,a+=3,tmp)); -t254=C_mutate((C_word*)lf[538]+1 /* (set! chicken.flonum#fp/? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16614,a[2]=((C_word)li414),tmp=(C_word)a,a+=3,tmp)); -t255=C_mutate((C_word*)lf[540]+1 /* (set! chicken.flonum#fp= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16638,a[2]=((C_word)li415),tmp=(C_word)a,a+=3,tmp)); -t256=C_mutate((C_word*)lf[542]+1 /* (set! chicken.flonum#fp> ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16662,a[2]=((C_word)li416),tmp=(C_word)a,a+=3,tmp)); -t257=C_mutate((C_word*)lf[544]+1 /* (set! chicken.flonum#fp< ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16686,a[2]=((C_word)li417),tmp=(C_word)a,a+=3,tmp)); -t258=C_mutate((C_word*)lf[546]+1 /* (set! chicken.flonum#fp>= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16710,a[2]=((C_word)li418),tmp=(C_word)a,a+=3,tmp)); -t259=C_mutate((C_word*)lf[548]+1 /* (set! chicken.flonum#fp<= ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16734,a[2]=((C_word)li419),tmp=(C_word)a,a+=3,tmp)); -t260=C_mutate((C_word*)lf[550]+1 /* (set! chicken.flonum#fpneg ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16758,a[2]=((C_word)li420),tmp=(C_word)a,a+=3,tmp)); -t261=C_mutate((C_word*)lf[552]+1 /* (set! chicken.flonum#fpmax ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16776,a[2]=((C_word)li421),tmp=(C_word)a,a+=3,tmp)); -t262=C_mutate((C_word*)lf[554]+1 /* (set! chicken.flonum#fpmin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16800,a[2]=((C_word)li422),tmp=(C_word)a,a+=3,tmp)); -t263=C_mutate((C_word*)lf[556]+1 /* (set! chicken.flonum#fpfloor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16824,a[2]=((C_word)li423),tmp=(C_word)a,a+=3,tmp)); -t264=C_mutate((C_word*)lf[558]+1 /* (set! chicken.flonum#fptruncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16842,a[2]=((C_word)li424),tmp=(C_word)a,a+=3,tmp)); -t265=C_mutate((C_word*)lf[560]+1 /* (set! chicken.flonum#fpround ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16860,a[2]=((C_word)li425),tmp=(C_word)a,a+=3,tmp)); -t266=C_mutate((C_word*)lf[562]+1 /* (set! chicken.flonum#fpceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16878,a[2]=((C_word)li426),tmp=(C_word)a,a+=3,tmp)); -t267=C_mutate((C_word*)lf[564]+1 /* (set! chicken.flonum#fpsin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16896,a[2]=((C_word)li427),tmp=(C_word)a,a+=3,tmp)); -t268=C_mutate((C_word*)lf[566]+1 /* (set! chicken.flonum#fpcos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16914,a[2]=((C_word)li428),tmp=(C_word)a,a+=3,tmp)); -t269=C_mutate((C_word*)lf[568]+1 /* (set! chicken.flonum#fptan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16932,a[2]=((C_word)li429),tmp=(C_word)a,a+=3,tmp)); -t270=C_mutate((C_word*)lf[570]+1 /* (set! chicken.flonum#fpasin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16950,a[2]=((C_word)li430),tmp=(C_word)a,a+=3,tmp)); -t271=C_mutate((C_word*)lf[572]+1 /* (set! chicken.flonum#fpacos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16968,a[2]=((C_word)li431),tmp=(C_word)a,a+=3,tmp)); -t272=C_mutate((C_word*)lf[574]+1 /* (set! chicken.flonum#fpatan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16986,a[2]=((C_word)li432),tmp=(C_word)a,a+=3,tmp)); -t273=C_mutate((C_word*)lf[576]+1 /* (set! chicken.flonum#fpatan2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17004,a[2]=((C_word)li433),tmp=(C_word)a,a+=3,tmp)); -t274=C_mutate((C_word*)lf[578]+1 /* (set! chicken.flonum#fpsinh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17028,a[2]=((C_word)li434),tmp=(C_word)a,a+=3,tmp)); -t275=C_mutate((C_word*)lf[580]+1 /* (set! chicken.flonum#fpcosh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17046,a[2]=((C_word)li435),tmp=(C_word)a,a+=3,tmp)); -t276=C_mutate((C_word*)lf[582]+1 /* (set! chicken.flonum#fptanh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17064,a[2]=((C_word)li436),tmp=(C_word)a,a+=3,tmp)); -t277=C_mutate((C_word*)lf[584]+1 /* (set! chicken.flonum#fpasinh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17082,a[2]=((C_word)li437),tmp=(C_word)a,a+=3,tmp)); -t278=C_mutate((C_word*)lf[586]+1 /* (set! chicken.flonum#fpacosh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17100,a[2]=((C_word)li438),tmp=(C_word)a,a+=3,tmp)); -t279=C_mutate((C_word*)lf[588]+1 /* (set! chicken.flonum#fpatanh ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17118,a[2]=((C_word)li439),tmp=(C_word)a,a+=3,tmp)); -t280=C_mutate((C_word*)lf[590]+1 /* (set! chicken.flonum#fpexp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17136,a[2]=((C_word)li440),tmp=(C_word)a,a+=3,tmp)); -t281=C_mutate((C_word*)lf[592]+1 /* (set! chicken.flonum#fpexpt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17154,a[2]=((C_word)li441),tmp=(C_word)a,a+=3,tmp)); -t282=C_mutate((C_word*)lf[594]+1 /* (set! chicken.flonum#fplog ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17178,a[2]=((C_word)li442),tmp=(C_word)a,a+=3,tmp)); -t283=C_mutate((C_word*)lf[596]+1 /* (set! chicken.flonum#fpsqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17196,a[2]=((C_word)li443),tmp=(C_word)a,a+=3,tmp)); -t284=C_mutate((C_word*)lf[598]+1 /* (set! chicken.flonum#fpabs ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17214,a[2]=((C_word)li444),tmp=(C_word)a,a+=3,tmp)); -t285=C_mutate((C_word*)lf[600]+1 /* (set! chicken.flonum#fpinteger? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17232,a[2]=((C_word)li445),tmp=(C_word)a,a+=3,tmp)); -t286=C_mutate((C_word*)lf[602]+1 /* (set! chicken.flonum#flonum-print-precision ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17250,a[2]=((C_word)li446),tmp=(C_word)a,a+=3,tmp)); -t287=C_mutate(&lf[604] /* (set! make-complex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17268,a[2]=((C_word)li447),tmp=(C_word)a,a+=3,tmp)); -t288=C_mutate((C_word*)lf[606]+1 /* (set! scheme#make-rectangular ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17304,a[2]=((C_word)li448),tmp=(C_word)a,a+=3,tmp)); -t289=C_mutate((C_word*)lf[608]+1 /* (set! scheme#make-polar ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17316,a[2]=((C_word)li449),tmp=(C_word)a,a+=3,tmp)); -t290=C_mutate((C_word*)lf[610]+1 /* (set! scheme#real-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17339,a[2]=((C_word)li450),tmp=(C_word)a,a+=3,tmp)); -t291=C_mutate((C_word*)lf[612]+1 /* (set! scheme#imag-part ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17362,a[2]=((C_word)li451),tmp=(C_word)a,a+=3,tmp)); -t292=C_mutate((C_word*)lf[614]+1 /* (set! scheme#angle ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17388,a[2]=((C_word)li452),tmp=(C_word)a,a+=3,tmp)); -t293=C_mutate((C_word*)lf[616]+1 /* (set! scheme#magnitude ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17404,a[2]=((C_word)li453),tmp=(C_word)a,a+=3,tmp)); -t294=C_mutate(&lf[619] /* (set! ratnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17448,a[2]=((C_word)li454),tmp=(C_word)a,a+=3,tmp)); -t295=C_mutate((C_word*)lf[620]+1 /* (set! scheme#numerator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17494,a[2]=((C_word)li455),tmp=(C_word)a,a+=3,tmp)); -t296=C_mutate((C_word*)lf[624]+1 /* (set! scheme#denominator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17540,a[2]=((C_word)li456),tmp=(C_word)a,a+=3,tmp)); -t297=C_mutate((C_word*)lf[628]+1 /* (set! ##sys#extended-signum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17586,a[2]=((C_word)li457),tmp=(C_word)a,a+=3,tmp)); -t298=C_mutate((C_word*)lf[622]+1 /* (set! scheme#inexact->exact ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17710,a[2]=((C_word)li460),tmp=(C_word)a,a+=3,tmp)); -t299=C_a_i_provide(&a,1,lf[635]); -t300=C_mutate((C_word*)lf[636]+1 /* (set! chicken.bitwise#bitwise-and ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_and,a[2]=((C_word)li461),tmp=(C_word)a,a+=3,tmp)); -t301=C_mutate((C_word*)lf[637]+1 /* (set! chicken.bitwise#bitwise-ior ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_ior,a[2]=((C_word)li462),tmp=(C_word)a,a+=3,tmp)); -t302=C_mutate((C_word*)lf[638]+1 /* (set! chicken.bitwise#bitwise-xor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_bitwise_xor,a[2]=((C_word)li463),tmp=(C_word)a,a+=3,tmp)); -t303=C_mutate((C_word*)lf[639]+1 /* (set! chicken.bitwise#bitwise-not ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17774,a[2]=((C_word)li464),tmp=(C_word)a,a+=3,tmp)); -t304=C_mutate((C_word*)lf[640]+1 /* (set! chicken.bitwise#bit->boolean ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17777,a[2]=((C_word)li465),tmp=(C_word)a,a+=3,tmp)); -t305=C_mutate((C_word*)lf[641]+1 /* (set! chicken.bitwise#integer-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17780,a[2]=((C_word)li466),tmp=(C_word)a,a+=3,tmp)); -t306=C_mutate((C_word*)lf[642]+1 /* (set! chicken.bitwise#arithmetic-shift ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17783,a[2]=((C_word)li467),tmp=(C_word)a,a+=3,tmp)); -t307=C_mutate((C_word*)lf[643]+1 /* (set! scheme#/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17786,a[2]=((C_word)li469),tmp=(C_word)a,a+=3,tmp)); -t308=C_mutate((C_word*)lf[630]+1 /* (set! ##sys#/-2 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17837,a[2]=((C_word)li470),tmp=(C_word)a,a+=3,tmp)); -t309=C_mutate((C_word*)lf[646]+1 /* (set! scheme#floor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18120,a[2]=((C_word)li471),tmp=(C_word)a,a+=3,tmp)); -t310=C_mutate((C_word*)lf[648]+1 /* (set! scheme#ceiling ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18165,a[2]=((C_word)li472),tmp=(C_word)a,a+=3,tmp)); -t311=C_mutate((C_word*)lf[650]+1 /* (set! scheme#truncate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18210,a[2]=((C_word)li473),tmp=(C_word)a,a+=3,tmp)); -t312=C_mutate((C_word*)lf[652]+1 /* (set! scheme#round ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18247,a[2]=((C_word)li474),tmp=(C_word)a,a+=3,tmp)); -t313=C_mutate(&lf[654] /* (set! find-ratio-between ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18291,a[2]=((C_word)li476),tmp=(C_word)a,a+=3,tmp)); -t314=C_mutate((C_word*)lf[656]+1 /* (set! scheme#rationalize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18441,a[2]=((C_word)li477),tmp=(C_word)a,a+=3,tmp)); -t315=C_mutate((C_word*)lf[657]+1 /* (set! scheme#max ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18466,a[2]=((C_word)li479),tmp=(C_word)a,a+=3,tmp)); -t316=C_mutate((C_word*)lf[325]+1 /* (set! scheme#min ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18510,a[2]=((C_word)li481),tmp=(C_word)a,a+=3,tmp)); -t317=C_mutate((C_word*)lf[660]+1 /* (set! scheme#exp ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18554,a[2]=((C_word)li482),tmp=(C_word)a,a+=3,tmp)); -t318=C_mutate((C_word*)lf[662]+1 /* (set! ##sys#log-1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18599,a[2]=((C_word)li483),tmp=(C_word)a,a+=3,tmp)); -t319=C_mutate((C_word*)lf[666]+1 /* (set! scheme#log ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18648,a[2]=((C_word)li484),tmp=(C_word)a,a+=3,tmp)); -t320=C_mutate((C_word*)lf[667]+1 /* (set! scheme#sin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18677,a[2]=((C_word)li485),tmp=(C_word)a,a+=3,tmp)); -t321=C_mutate((C_word*)lf[671]+1 /* (set! scheme#cos ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18711,a[2]=((C_word)li486),tmp=(C_word)a,a+=3,tmp)); -t322=C_mutate((C_word*)lf[673]+1 /* (set! scheme#tan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18745,a[2]=((C_word)li487),tmp=(C_word)a,a+=3,tmp)); -t323=C_mutate((C_word*)lf[675]+1 /* (set! scheme#asin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18770,a[2]=((C_word)li488),tmp=(C_word)a,a+=3,tmp)); -t324=C_a_i_asin(&a,1,C_fix(1)); -t325=C_mutate((C_word*)lf[680]+1 /* (set! scheme#acos ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18832,a[2]=t324,a[3]=((C_word)li489),tmp=(C_word)a,a+=4,tmp)); -t326=C_mutate((C_word*)lf[682]+1 /* (set! scheme#atan ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18874,a[2]=((C_word)li490),tmp=(C_word)a,a+=3,tmp)); -t327=C_mutate((C_word*)lf[684]+1 /* (set! ##sys#exact-integer-sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18938,a[2]=((C_word)li496),tmp=(C_word)a,a+=3,tmp)); -t328=C_mutate((C_word*)lf[686]+1 /* (set! scheme#exact-integer-sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19129,a[2]=((C_word)li497),tmp=(C_word)a,a+=3,tmp)); -t329=C_mutate((C_word*)lf[678]+1 /* (set! ##sys#sqrt/loc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19138,a[2]=((C_word)li504),tmp=(C_word)a,a+=3,tmp)); -t330=C_mutate((C_word*)lf[617]+1 /* (set! scheme#sqrt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19293,a[2]=((C_word)li505),tmp=(C_word)a,a+=3,tmp)); -t331=C_mutate((C_word*)lf[689]+1 /* (set! scheme#truncate/ ...) */,*((C_word*)lf[221]+1)); -t332=C_mutate((C_word*)lf[690]+1 /* (set! scheme#floor/ ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19300,a[2]=((C_word)li508),tmp=(C_word)a,a+=3,tmp)); -t333=C_mutate((C_word*)lf[691]+1 /* (set! scheme#floor-remainder ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19355,a[2]=((C_word)li511),tmp=(C_word)a,a+=3,tmp)); -t334=C_mutate((C_word*)lf[692]+1 /* (set! scheme#floor-quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19370,a[2]=((C_word)li514),tmp=(C_word)a,a+=3,tmp)); -t335=C_mutate((C_word*)lf[693]+1 /* (set! scheme#square ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19385,a[2]=((C_word)li515),tmp=(C_word)a,a+=3,tmp)); -t336=C_mutate((C_word*)lf[694]+1 /* (set! chicken.base#exact-integer-nth-root ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19391,a[2]=((C_word)li516),tmp=(C_word)a,a+=3,tmp)); -t337=C_mutate((C_word*)lf[695]+1 /* (set! ##sys#exact-integer-nth-root/loc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19403,a[2]=((C_word)li518),tmp=(C_word)a,a+=3,tmp)); -t338=C_mutate((C_word*)lf[632]+1 /* (set! ##sys#integer-power ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19529,a[2]=((C_word)li520),tmp=(C_word)a,a+=3,tmp)); -t339=C_mutate((C_word*)lf[634]+1 /* (set! scheme#expt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19597,a[2]=((C_word)li525),tmp=(C_word)a,a+=3,tmp)); -t340=C_mutate(&lf[644] /* (set! ##sys#internal-gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19864,a[2]=((C_word)li526),tmp=(C_word)a,a+=3,tmp)); -t341=C_mutate((C_word*)lf[699]+1 /* (set! ##sys#gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19934,a[2]=((C_word)li527),tmp=(C_word)a,a+=3,tmp)); -t342=C_mutate((C_word*)lf[701]+1 /* (set! scheme#gcd ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19940,a[2]=((C_word)li529),tmp=(C_word)a,a+=3,tmp)); -t343=C_mutate((C_word*)lf[702]+1 /* (set! ##sys#lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19991,a[2]=((C_word)li530),tmp=(C_word)a,a+=3,tmp)); -t344=C_mutate((C_word*)lf[704]+1 /* (set! scheme#lcm ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20005,a[2]=((C_word)li532),tmp=(C_word)a,a+=3,tmp)); -t345=C_mutate((C_word*)lf[705]+1 /* (set! ##sys#integer->string/recursive ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20063,a[2]=((C_word)li536),tmp=(C_word)a,a+=3,tmp)); -t346=C_mutate((C_word*)lf[707]+1 /* (set! ##sys#extended-number->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20113,a[2]=((C_word)li537),tmp=(C_word)a,a+=3,tmp)); -t347=C_mutate(&lf[713] /* (set! round-quotient ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20287,a[2]=((C_word)li538),tmp=(C_word)a,a+=3,tmp)); -t348=C_mutate(&lf[714] /* (set! ##sys#string->compnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_20330,a[2]=((C_word)li550),tmp=(C_word)a,a+=3,tmp)); -t349=C_mutate((C_word*)lf[723]+1 /* (set! scheme#string->number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21713,a[2]=((C_word)li552),tmp=(C_word)a,a+=3,tmp)); -t350=C_mutate((C_word*)lf[725]+1 /* (set! ##sys#string->number ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21962,a[2]=((C_word)li553),tmp=(C_word)a,a+=3,tmp)); -t351=C_mutate((C_word*)lf[726]+1 /* (set! ##sys#fixnum->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_fixnum_to_string,a[2]=((C_word)li554),tmp=(C_word)a,a+=3,tmp)); -t352=C_mutate((C_word*)lf[727]+1 /* (set! ##sys#flonum->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_flonum_to_string,a[2]=((C_word)li555),tmp=(C_word)a,a+=3,tmp)); -t353=C_mutate((C_word*)lf[728]+1 /* (set! ##sys#integer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_integer_to_string,a[2]=((C_word)li556),tmp=(C_word)a,a+=3,tmp)); -t354=C_mutate((C_word*)lf[706]+1 /* (set! ##sys#number->string ...) */,*((C_word*)lf[111]+1)); -t355=C_mutate((C_word*)lf[729]+1 /* (set! chicken.base#equal=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22008,a[2]=((C_word)li560),tmp=(C_word)a,a+=3,tmp)); -t356=C_mutate((C_word*)lf[730]+1 /* (set! ##sys#snafu ...) */,lf[731]); -t357=C_mutate((C_word*)lf[732]+1 /* (set! ##sys#intern-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_string_to_symbol,a[2]=((C_word)li561),tmp=(C_word)a,a+=3,tmp)); -t358=C_mutate((C_word*)lf[733]+1 /* (set! ##sys#intern-keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_string_to_keyword,a[2]=((C_word)li562),tmp=(C_word)a,a+=3,tmp)); -t359=C_mutate((C_word*)lf[734]+1 /* (set! ##sys#make-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_symbol,a[2]=((C_word)li563),tmp=(C_word)a,a+=3,tmp)); -t360=C_mutate((C_word*)lf[735]+1 /* (set! ##sys#interned-symbol? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22195,a[2]=((C_word)li564),tmp=(C_word)a,a+=3,tmp)); -t361=C_mutate((C_word*)lf[736]+1 /* (set! ##sys#string->symbol-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22198,a[2]=((C_word)li565),tmp=(C_word)a,a+=3,tmp)); -t362=C_mutate((C_word*)lf[737]+1 /* (set! ##sys#symbol->string/shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22210,a[2]=((C_word)li566),tmp=(C_word)a,a+=3,tmp)); -t363=C_mutate((C_word*)lf[738]+1 /* (set! ##sys#symbol->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22216,a[2]=((C_word)li567),tmp=(C_word)a,a+=3,tmp)); -t364=C_mutate((C_word*)lf[739]+1 /* (set! ##sys#string->symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22229,a[2]=((C_word)li568),tmp=(C_word)a,a+=3,tmp)); -t365=C_mutate((C_word*)lf[740]+1 /* (set! scheme#symbol->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22239,a[2]=((C_word)li569),tmp=(C_word)a,a+=3,tmp)); -t366=C_mutate((C_word*)lf[742]+1 /* (set! scheme#string->symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22248,a[2]=((C_word)li570),tmp=(C_word)a,a+=3,tmp)); -t367=*((C_word*)lf[484]+1); -t368=C_mutate((C_word*)lf[744]+1 /* (set! chicken.base#string->uninterned-symbol ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22257,a[2]=((C_word)li571),tmp=(C_word)a,a+=3,tmp)); -t369=C_fix(-1); -t370=(*a=C_VECTOR_TYPE|1,a[1]=t369,tmp=(C_word)a,a+=2,tmp); -t371=C_mutate((C_word*)lf[746]+1 /* (set! chicken.base#gensym ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22270,a[2]=t370,a[3]=((C_word)li572),tmp=(C_word)a,a+=4,tmp)); -t372=*((C_word*)lf[508]+1); -t373=C_mutate((C_word*)lf[750]+1 /* (set! chicken.base#symbol-append ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22328,a[2]=t372,a[3]=((C_word)li574),tmp=(C_word)a,a+=4,tmp)); -t374=C_a_i_provide(&a,1,lf[752]); -t375=C_mutate((C_word*)lf[753]+1 /* (set! chicken.keyword#keyword? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22387,a[2]=((C_word)li575),tmp=(C_word)a,a+=3,tmp)); -t376=C_mutate((C_word*)lf[754]+1 /* (set! chicken.keyword#string->keyword ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22390,a[2]=((C_word)li576),tmp=(C_word)a,a+=3,tmp)); -t377=*((C_word*)lf[753]+1); -t378=C_mutate((C_word*)lf[756]+1 /* (set! chicken.keyword#keyword->string ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22403,a[2]=t377,a[3]=((C_word)li577),tmp=(C_word)a,a+=4,tmp)); -t379=C_a_i_list1(&a,1,lf[759]); -t380=C_mutate((C_word*)lf[760]+1 /* (set! chicken.keyword#get-keyword ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22421,a[2]=t379,a[3]=((C_word)li578),tmp=(C_word)a,a+=4,tmp)); -t381=C_mutate((C_word*)lf[762]+1 /* (set! ##sys#get-keyword ...) */,*((C_word*)lf[760]+1)); -t382=C_mutate((C_word*)lf[763]+1 /* (set! ##sys#bytevector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22452,a[2]=((C_word)li580),tmp=(C_word)a,a+=3,tmp)); -t383=C_mutate((C_word*)lf[764]+1 /* (set! ##sys#list->bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22486,a[2]=((C_word)li582),tmp=(C_word)a,a+=3,tmp)); -t384=C_a_i_provide(&a,1,lf[766]); -t385=C_mutate((C_word*)lf[767]+1 /* (set! chicken.bytevector#make-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22525,a[2]=((C_word)li583),tmp=(C_word)a,a+=3,tmp)); -t386=C_mutate((C_word*)lf[769]+1 /* (set! chicken.bytevector#bytevector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22549,a[2]=((C_word)li584),tmp=(C_word)a,a+=3,tmp)); -t387=C_mutate((C_word*)lf[770]+1 /* (set! chicken.bytevector#bytevector-length ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22555,a[2]=((C_word)li585),tmp=(C_word)a,a+=3,tmp)); -t388=C_mutate((C_word*)lf[772]+1 /* (set! chicken.bytevector#bytevector-u8-ref ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22564,a[2]=((C_word)li586),tmp=(C_word)a,a+=3,tmp)); -t389=C_mutate((C_word*)lf[773]+1 /* (set! chicken.bytevector#bytevector-u8-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22567,a[2]=((C_word)li587),tmp=(C_word)a,a+=3,tmp)); -t390=C_mutate((C_word*)lf[774]+1 /* (set! chicken.bytevector#string->utf8 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22570,a[2]=((C_word)li588),tmp=(C_word)a,a+=3,tmp)); -t391=C_mutate((C_word*)lf[776]+1 /* (set! chicken.bytevector#utf8->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22586,a[2]=((C_word)li589),tmp=(C_word)a,a+=3,tmp)); -t392=C_mutate((C_word*)lf[778]+1 /* (set! chicken.bytevector#string->latin1 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22626,a[2]=((C_word)li590),tmp=(C_word)a,a+=3,tmp)); -t393=C_mutate((C_word*)lf[780]+1 /* (set! chicken.bytevector#latin1->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22645,a[2]=((C_word)li591),tmp=(C_word)a,a+=3,tmp)); -t394=C_mutate((C_word*)lf[782]+1 /* (set! chicken.bytevector#bytevector=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22661,a[2]=((C_word)li592),tmp=(C_word)a,a+=3,tmp)); -t395=C_mutate((C_word*)lf[784]+1 /* (set! chicken.bytevector#bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22683,a[2]=((C_word)li594),tmp=(C_word)a,a+=3,tmp)); -t396=C_mutate((C_word*)lf[786]+1 /* (set! chicken.bytevector#bytevector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22714,a[2]=((C_word)li595),tmp=(C_word)a,a+=3,tmp)); -t397=C_mutate((C_word*)lf[789]+1 /* (set! chicken.bytevector#bytevector-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22795,a[2]=((C_word)li596),tmp=(C_word)a,a+=3,tmp)); -t398=C_mutate((C_word*)lf[792]+1 /* (set! chicken.bytevector#bytevector-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22877,a[2]=((C_word)li599),tmp=(C_word)a,a+=3,tmp)); -t399=C_mutate((C_word*)lf[117]+1 /* (set! scheme#make-vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22935,a[2]=((C_word)li600),tmp=(C_word)a,a+=3,tmp)); -t400=C_mutate((C_word*)lf[796]+1 /* (set! ##sys#make-vector ...) */,*((C_word*)lf[117]+1)); -t401=C_mutate((C_word*)lf[118]+1 /* (set! scheme#list->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22964,a[2]=((C_word)li602),tmp=(C_word)a,a+=3,tmp)); -t402=C_mutate((C_word*)lf[119]+1 /* (set! scheme#vector->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23016,a[2]=((C_word)li604),tmp=(C_word)a,a+=3,tmp)); -t403=C_mutate((C_word*)lf[120]+1 /* (set! scheme#vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23102,a[2]=((C_word)li605),tmp=(C_word)a,a+=3,tmp)); -t404=C_mutate((C_word*)lf[121]+1 /* (set! scheme#vector-fill! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23108,a[2]=((C_word)li607),tmp=(C_word)a,a+=3,tmp)); -t405=C_mutate((C_word*)lf[800]+1 /* (set! scheme#vector-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23189,a[2]=((C_word)li610),tmp=(C_word)a,a+=3,tmp)); -t406=C_mutate((C_word*)lf[802]+1 /* (set! scheme#vector-copy! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23296,a[2]=((C_word)li614),tmp=(C_word)a,a+=3,tmp)); -t407=C_mutate((C_word*)lf[804]+1 /* (set! scheme#vector-append ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23469,a[2]=((C_word)li619),tmp=(C_word)a,a+=3,tmp)); -t408=C_mutate((C_word*)lf[245]+1 /* (set! chicken.base#subvector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23613,a[2]=((C_word)li621),tmp=(C_word)a,a+=3,tmp)); -t409=C_mutate((C_word*)lf[246]+1 /* (set! chicken.base#vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23676,a[2]=((C_word)li622),tmp=(C_word)a,a+=3,tmp)); -t410=C_mutate(&lf[808] /* (set! ##sys#vector-resize ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23697,a[2]=((C_word)li624),tmp=(C_word)a,a+=3,tmp)); -t411=C_mutate((C_word*)lf[141]+1 /* (set! scheme#char-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23736,a[2]=((C_word)li626),tmp=(C_word)a,a+=3,tmp)); -t412=C_mutate((C_word*)lf[142]+1 /* (set! scheme#char-ci>? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23785,a[2]=((C_word)li628),tmp=(C_word)a,a+=3,tmp)); -t413=C_mutate((C_word*)lf[143]+1 /* (set! scheme#char-ci=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23871,a[2]=((C_word)li632),tmp=(C_word)a,a+=3,tmp)); -t415=C_mutate((C_word*)lf[145]+1 /* (set! scheme#char-ci<=? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23914,a[2]=((C_word)li634),tmp=(C_word)a,a+=3,tmp)); -t416=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23959,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3749: scheme#make-vector */ -t417=*((C_word*)lf[117]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t417; -av2[1]=t416; -av2[2]=C_fix(37); -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t417+1)))(4,av2);}} - -/* chicken.base#fixnum? in k12559 in k11436 */ -static void C_ccall f_12563(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12563,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fixnump(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#flonum? in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12566,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_flonump(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#bignum? in k12559 in k11436 */ -static void C_ccall f_12569(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12569,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_bignump(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#ratnum? in k12559 in k11436 */ -static void C_ccall f_12572(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12572,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_ratnump(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#cplxnum? in k12559 in k11436 */ -static void C_ccall f_12575(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12575,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cplxnump(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#exact-integer? in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12578,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_exact_integerp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#quotient&modulo in k12559 in k11436 */ -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=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_12583,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12589,a[2]=t2,a[3]=t3,a[4]=((C_word)li142),tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12595,a[2]=t3,a[3]=((C_word)li143),tmp=(C_word)a,a+=4,tmp); -/* library.scm:812: scheme#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a12588 in chicken.base#quotient&modulo in k12559 in k11436 */ -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 *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_12589,c,av);} -/* library.scm:812: chicken.base#quotient&remainder */ -t2=*((C_word*)lf[221]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a12594 in chicken.base#quotient&modulo in k12559 in k11436 */ -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; -C_word t5; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ -C_save_and_reclaim((void *)f_12595,c,av);} -a=C_alloc(29); -if(C_truep(C_i_positivep(((C_word*)t0)[2]))){ -if(C_truep(C_i_negativep(t3))){ -t4=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]); -/* library.scm:816: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -C_values(4,av2);}} -else{ -/* library.scm:817: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_values(4,av2);}}} -else{ -if(C_truep(C_i_positivep(t3))){ -t4=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]); -/* library.scm:819: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -C_values(4,av2);}} -else{ -/* library.scm:820: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_values(4,av2);}}}} - -/* chicken.base#finite? in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12630,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_finitep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#infinite? in k12559 in k11436 */ -static void C_ccall f_12633(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12633,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_infinitep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#nan? in k12559 in k11436 */ -static void C_ccall f_12636(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12636,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_nanp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#add1 in k12559 in k11436 */ -static void C_ccall f_12644(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ -C_save_and_reclaim((void *)f_12644,c,av);} -a=C_alloc(29); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_plus(&a,2,t2,C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#sub1 in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ -C_save_and_reclaim((void *)f_12650,c,av);} -a=C_alloc(29); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_minus(&a,2,t2,C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#error in k12559 in k11436 */ -static void C_ccall f_12657(C_word c,C_word *av){ -C_word tmp; -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_12657,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+0); -t2=C_build_rest(&a,c,2,av); -C_word t3; -if(C_truep(C_i_pairp(t2))){{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[236]; -av2[4]=t2; -C_apply(5,av2);}} -else{ -/* library.scm:841: ##sys#signal-hook */ -t3=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[236]; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* chicken.base#void in k12559 in k11436 */ -static void C_ccall f_12672(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12672,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#promise? in k12559 in k11436 */ -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 *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12686,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_structurep(t2,lf[250]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#make-promise in k12559 in k11436 */ -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=av[2]; -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_12692,c,av);} -a=C_alloc(3); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_record2(&a,2,lf[250],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#make-promise in k12559 in k11436 */ -static void C_ccall f_12698(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_12698,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12705,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:878: promise? */ -t4=*((C_word*)lf[249]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k12703 in chicken.base#make-promise in k12559 in k11436 */ -static void C_ccall f_12705(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_12705,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12710,a[2]=((C_word*)t0)[3],a[3]=((C_word)li155),tmp=(C_word)a,a+=4,tmp); -/* library.scm:879: ##sys#make-promise */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[251]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[251]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t2; -tp(3,av2);}}} - -/* a12709 in k12703 in chicken.base#make-promise in k12559 in k11436 */ -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 *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_12710,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#foldl in k12559 in k11436 */ -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=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_12713,c,av);} -a=C_alloc(7); -t5=C_i_check_list_2(t4,lf[254]); -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_12722,a[2]=t7,a[3]=t2,a[4]=((C_word)li157),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_12722(t9,t1,t4,t3);} - -/* loop in chicken.base#foldl in k12559 in k11436 */ -static void f_12722(C_word t0,C_word 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_12722,4,t0,t1,t2,t3);} -a=C_alloc(5); -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_slot(t2,C_fix(1)); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12740,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -/* library.scm:888: f */ -t7=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t3; -av2[3]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}} - -/* k12738 in loop in chicken.base#foldl in k12559 in k11436 */ -static void C_ccall f_12740(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12740,c,av);} -/* library.scm:888: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_12722(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* chicken.base#foldr in k12559 in k11436 */ -static void C_ccall f_12750(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_12750,c,av);} -a=C_alloc(8); -t5=C_i_check_list_2(t4,lf[256]); -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_12759,a[2]=t3,a[3]=t2,a[4]=t7,a[5]=((C_word)li159),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_12759(t9,t1,t4);} - -/* loop in chicken.base#foldr in k12559 in k11436 */ -static void f_12759(C_word t0,C_word t1,C_word 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_12759,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_i_pairp(t2); -if(C_truep(C_i_not(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=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12777,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* library.scm:895: loop */ -t7=t5; -t8=C_slot(t2,C_fix(1)); -t1=t7; -t2=t8; -goto loop;}} - -/* k12775 in loop in chicken.base#foldr in k12559 in k11436 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12777,c,av);} -/* library.scm:895: f */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* chicken.base#on-exit in k12559 in k11436 */ -static void C_ccall f_12790(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_12790,c,av);} -a=C_alloc(3); -t3=C_a_i_cons(&a,2,t2,*((C_word*)lf[259]+1)); -t4=C_mutate((C_word*)lf[259]+1 /* (set! chicken.base#cleanup-tasks ...) */,t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.base#exit in k12559 in k11436 */ -static void C_ccall f_12797(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_12797,c,av);} -a=C_alloc(4); -if(C_truep(C_rest_nullp(c,2))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45112,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:908: chicken.base#exit-handler */ -t3=*((C_word*)lf[258]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=C_get_rest_arg(c,2,av,2,t0); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12804,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:908: chicken.base#exit-handler */ -t4=*((C_word*)lf[258]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k12802 in chicken.base#exit in k12559 in k11436 */ -static void C_ccall f_12804(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12804,c,av);} -/* library.scm:907: g887 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* chicken.base#emergency-exit in k12559 in k11436 */ -static void C_ccall f_12815(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_12815,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -t2=C_i_check_fixnum_2(C_fix(0),lf[263]); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_exit_runtime(C_fix(0)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=C_get_rest_arg(c,2,av,2,t0); -t3=C_i_check_fixnum_2(t2,lf[263]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_exit_runtime(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* chicken.base#identity in k12559 in k11436 */ -static void C_ccall f_12834(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12834,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#conjoin in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,3)))){ -C_save_and_reclaim((void*)f_12837,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+4); -t2=C_build_rest(&a,c,2,av); -C_word t3; -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12839,a[2]=t2,a[3]=((C_word)li166),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_12839 in chicken.base#conjoin in k12559 in k11436 */ -static void C_ccall f_12839(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_12839,c,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_12845,a[2]=t4,a[3]=t2,a[4]=((C_word)li165),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_12845(t6,t1,((C_word*)t0)[2]);} - -/* loop */ -static void f_12845(C_word 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_12845,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_12861,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:929: g916 */ -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);}}} - -/* k12859 in loop */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12861,c,av);} -if(C_truep(t1)){ -/* library.scm:930: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_12845(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.base#disjoin in k12559 in k11436 */ -static void C_ccall f_12870(C_word c,C_word *av){ -C_word tmp; -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_12870,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+4); -t2=C_build_rest(&a,c,2,av); -C_word t3; -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12872,a[2]=t2,a[3]=((C_word)li169),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_12872 in chicken.base#disjoin in k12559 in k11436 */ -static void C_ccall f_12872(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_12872,c,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_12878,a[2]=t4,a[3]=t2,a[4]=((C_word)li168),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_12878(t6,t1,((C_word*)t0)[2]);} - -/* loop */ -static void f_12878(C_word 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_12878,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_i_nullp(t2); -if(C_truep(C_i_not(t3))){ -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_12891,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:936: g928 */ -t6=t4;{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k12889 in loop */ -static void C_ccall f_12891(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_12891,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:937: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_12878(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[4],C_fix(1)));}} - -/* chicken.base#constantly in k12559 in k11436 */ -static void C_ccall f_12907(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_12907,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_eqp(C_fix(1),C_u_i_length(t2)); -if(C_truep(t3)){ -t4=C_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12918,a[2]=t4,a[3]=((C_word)li171),tmp=(C_word)a,a+=4,tmp); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12920,a[2]=t2,a[3]=((C_word)li172),tmp=(C_word)a,a+=4,tmp); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* f_12918 in chicken.base#constantly in k12559 in k11436 */ -static void C_ccall f_12918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12918,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_12920 in chicken.base#constantly in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12920,c,av);}{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[160]+1); -av2[3]=((C_word*)t0)[2]; -C_apply(4,av2);}} - -/* chicken.base#flip in k12559 in k11436 */ -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=av[2]; -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_12928,c,av);} -a=C_alloc(4); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12930,a[2]=t2,a[3]=((C_word)li174),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_12930 in chicken.base#flip in k12559 in k11436 */ -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=av[3]; -C_word t4; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12930,c,av);} -/* library.scm:945: proc */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -av2[3]=t2; -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} - -/* chicken.base#complement in k12559 in k11436 */ -static void C_ccall f_12936(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_12936,c,av);} -a=C_alloc(4); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12938,a[2]=t2,a[3]=((C_word)li176),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_12938 in chicken.base#complement in k12559 in k11436 */ -static void C_ccall f_12938(C_word c,C_word *av){ -C_word tmp; -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_12938,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_12946,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -C_apply(4,av2);}} - -/* k12944 */ -static void C_ccall f_12946(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_12946,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_not(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#compose in k12559 in k11436 */ -static void C_ccall f_12948(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ -C_save_and_reclaim((void*)f_12948,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_12951,a[2]=t4,a[3]=((C_word)li180),tmp=(C_word)a,a+=4,tmp)); -if(C_truep(C_rest_nullp(c,2))){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=*((C_word*)lf[160]+1); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t4)[1]; -av2[3]=t2; -C_apply(4,av2);}}} - -/* rec in chicken.base#compose in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -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_12951,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=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_12959,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t2,a[5]=((C_word)li179),tmp=(C_word)a,a+=6,tmp); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* f_12959 in rec in chicken.base#compose in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,3)))){ -C_save_and_reclaim((void*)f_12959,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_12965,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li178),tmp=(C_word)a,a+=6,tmp); -/* library.scm:956: scheme#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=((C_word*)t0)[4]; -C_call_with_values(4,av2);}} - -/* a12964 */ -static void C_ccall f_12965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *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_12965,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_12973,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=((C_word*)t0)[4]; -C_apply(4,av2);}} - -/* k12971 in a12964 */ -static void C_ccall f_12973(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_12973,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -C_apply(4,av2);}} - -/* chicken.base#o in k12559 in k11436 */ -static void C_ccall f_12984(C_word c,C_word *av){ -C_word tmp; -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_12984,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_rest_nullp(c,2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=*((C_word*)lf[268]+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_12996,a[2]=t4,a[3]=((C_word)li183),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_12996(t6,t1,t2);}} - -/* loop in chicken.base#o in k12559 in k11436 */ -static void f_12996(C_word 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_12996,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_slot(t2,C_fix(0)); -t4=C_slot(t2,C_fix(1)); -if(C_truep(C_i_nullp(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13010,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=((C_word)li182),tmp=(C_word)a,a+=6,tmp); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* f_13010 in loop in chicken.base#o in k12559 in k11436 */ -static void C_ccall f_13010(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_13010,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13018,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:971: loop */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_12996(t4,t3,((C_word*)t0)[4]);} - -/* k13016 */ -static void C_ccall f_13018(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13018,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13021,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:971: g957 */ -t3=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k13019 in k13016 */ -static void C_ccall f_13021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_13021,c,av);} -/* library.scm:971: h */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* chicken.base#list-of? in k12559 in k11436 */ -static void C_ccall f_13023(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -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_13023,c,av);} -a=C_alloc(4); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13025,a[2]=t2,a[3]=((C_word)li186),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_13025 in chicken.base#list-of? in k12559 in k11436 */ -static void C_ccall f_13025(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13025,c,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_13031,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word)li185),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_13031(t6,t1,t2);} - -/* loop */ -static void f_13031(C_word t0,C_word t1,C_word 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_13031,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13050,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:978: pred */ -t5=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}}} - -/* k13048 in loop */ -static void C_ccall f_13050(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_13050,c,av);} -if(C_truep(t1)){ -/* library.scm:978: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13031(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.base#each in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_13067,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_13075,a[2]=((C_word)li188),tmp=(C_word)a,a+=3,tmp); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_slot(t2,C_fix(1)); -t4=C_i_nullp(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_slot(t2,C_fix(0)):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13089,a[2]=t2,a[3]=((C_word)li190),tmp=(C_word)a,a+=4,tmp)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* f_13075 in chicken.base#each in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13075,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=*((C_word*)lf[278]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_13089 in chicken.base#each in k12559 in k11436 */ -static void C_ccall f_13089(C_word c,C_word *av){ -C_word tmp; -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_13089,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_13095,a[2]=t2,a[3]=t4,a[4]=((C_word)li189),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_13095(t6,t1,((C_word*)t0)[2]);} - -/* loop */ -static void f_13095(C_word 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_13095,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_slot(t2,C_fix(0)); -t4=C_slot(t2,C_fix(1)); -if(C_truep(C_i_nullp(t4))){{ -C_word av2[4]; -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=((C_word*)t0)[2]; -C_apply(4,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13114,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp);{ -C_word av2[4]; -av2[0]=0; -av2[1]=t5; -av2[2]=t3; -av2[3]=((C_word*)t0)[2]; -C_apply(4,av2);}}} - -/* k13112 in loop */ -static void C_ccall f_13114(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_13114,c,av);} -/* library.scm:993: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13095(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* chicken.base#bwp-object? in k12559 in k11436 */ -static void C_ccall f_13123(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13123,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_bwpp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#weak-cons in k12559 in k11436 */ -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=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_13126,c,av);} -a=C_alloc(3); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_weak_cons(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.base#weak-pair? in k12559 in k11436 */ -static void C_ccall f_13129(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13129,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_weak_pairp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#atom? in k12559 in k11436 */ -static void C_ccall f_13132(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13132,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_not_pair_p(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#tail? in k12559 in k11436 */ -static void C_ccall f_13135(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,2)))){ -C_save_and_reclaim((void *)f_13135,c,av);} -a=C_alloc(4); -t4=C_i_check_list_2(t3,lf[284]); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13144,a[2]=t2,a[3]=((C_word)li196),tmp=(C_word)a,a+=4,tmp); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=( - f_13144(t5,t3) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* loop in chicken.base#tail? in k12559 in k11436 */ -static C_word f_13144(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(((C_word*)t0)[2],t1))){ -return(C_SCHEME_TRUE);} -else{ -t2=(C_truep(C_blockp(t1))?C_pairp(t1):C_SCHEME_FALSE); -if(C_truep(t2)){ -t4=C_slot(t1,C_fix(1)); -t1=t4; -goto loop;} -else{ -return(C_SCHEME_FALSE);}}} - -/* chicken.base#intersperse in k12559 in k11436 */ -static void C_ccall f_13163(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_13163,c,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_13169,a[2]=t3,a[3]=t5,a[4]=((C_word)li198),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_13169(t7,t1,t2);} - -/* loop in chicken.base#intersperse in k12559 in k11436 */ -static void f_13169(C_word t0,C_word t1,C_word 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_13169,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_eqp(t2,C_SCHEME_END_OF_LIST))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13194,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1022: loop */ -t7=t5; -t8=t3; -t1=t7; -t2=t8; -goto loop;}}} - -/* k13192 in loop in chicken.base#intersperse in k12559 in k11436 */ -static void C_ccall f_13194(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_13194,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#butlast in k12559 in k11436 */ -static void C_ccall f_13196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_13196,c,av);} -a=C_alloc(6); -t3=C_i_check_pair_2(t2,lf[287]); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_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_13205,a[2]=t5,a[3]=((C_word)li200),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_13205(t7,t1,t2);} - -/* loop in chicken.base#butlast in k12559 in k11436 */ -static void f_13205(C_word t0,C_word t1,C_word t2){ -C_word 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_13205,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13226,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1029: loop */ -t8=t6; -t9=t3; -t1=t8; -t2=t9; -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);}}} - -/* k13224 in loop in chicken.base#butlast in k12559 in k11436 */ -static void C_ccall f_13226(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_13226,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#flatten in k12559 in k11436 */ -static void C_ccall f_13228(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ -C_save_and_reclaim((void*)f_13228,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_13234,a[2]=t4,a[3]=((C_word)li202),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_13234(t6,t1,t2,C_SCHEME_END_OF_LIST);} - -/* loop in chicken.base#flatten in k12559 in k11436 */ -static void f_13234(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_13234,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]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_slot(t2,C_fix(1)); -if(C_truep(C_i_listp(t4))){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13260,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1039: loop */ -t8=t6; -t9=t5; -t10=t3; -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13267,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1040: loop */ -t8=t6; -t9=t5; -t10=t3; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* k13258 in loop in chicken.base#flatten in k12559 in k11436 */ -static void C_ccall f_13260(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_13260,c,av);} -/* library.scm:1039: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_13234(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k13265 in loop in chicken.base#flatten in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_13267,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#join in k12559 in k11436 */ -static void C_ccall f_13269(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_13269,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_pairp(t3); -t5=(C_truep(t4)?C_get_rest_arg(c,3,av,3,t0):C_SCHEME_END_OF_LIST); -t6=C_i_check_list_2(t5,lf[290]); -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_13281,a[2]=t5,a[3]=t8,a[4]=((C_word)li204),tmp=(C_word)a,a+=5,tmp)); -t10=((C_word*)t8)[1]; -f_13281(t10,t1,t2);} - -/* loop in chicken.base#join in k12559 in k11436 */ -static void f_13281(C_word t0,C_word t1,C_word t2){ -C_word 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_13281,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -/* library.scm:1050: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} -else{ -t4=C_slot(t2,C_fix(0)); -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_13316,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* library.scm:1056: loop */ -t8=t6; -t9=t5; -t1=t8; -t2=t9; -goto loop;}}}} - -/* k13314 in loop in chicken.base#join in k12559 in k11436 */ -static void C_ccall f_13316(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13316,c,av);} -/* library.scm:1056: ##sys#append */ -t2=*((C_word*)lf[291]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* chicken.base#compress in k12559 in k11436 */ -static void C_ccall f_13326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_13326,c,av);} -a=C_alloc(7); -t4=lf[293]; -t5=C_i_check_list_2(t3,lf[294]); -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_13335,a[2]=t4,a[3]=t7,a[4]=((C_word)li206),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_13335(t9,t1,t2,t3);} - -/* loop in chicken.base#compress in k12559 in k11436 */ -static void f_13335(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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,5)))){ -C_save_and_reclaim_args((void *)trf_13335,4,t0,t1,t2,t3);} -a=C_alloc(4); -if(C_truep(C_i_nullp(t2))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_pairp(t2); -if(C_truep(C_i_not(t4))){ -/* library.scm:1065: ##sys#signal-hook */ -t5=*((C_word*)lf[235]+1);{ -C_word av2[6]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=lf[294]; -av2[4]=((C_word*)t0)[2]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} -else{ -t5=C_i_pairp(t3); -if(C_truep(C_i_not(t5))){ -/* library.scm:1067: ##sys#signal-hook */ -t6=*((C_word*)lf[235]+1);{ -C_word av2[6]; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=lf[294]; -av2[4]=((C_word*)t0)[2]; -av2[5]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} -else{ -if(C_truep(C_slot(t2,C_fix(0)))){ -t6=C_slot(t3,C_fix(0)); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13377,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1069: loop */ -t9=t7; -t10=C_slot(t2,C_fix(1)); -t11=C_slot(t3,C_fix(1)); -t1=t9; -t2=t10; -t3=t11; -goto loop;} -else{ -/* library.scm:1070: loop */ -t9=t1; -t10=C_slot(t2,C_fix(1)); -t11=C_slot(t3,C_fix(1)); -t1=t9; -t2=t10; -t3=t11; -goto loop;}}}}} - -/* k13375 in loop in chicken.base#compress in k12559 in k11436 */ -static void C_ccall f_13377(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_13377,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#char-foldcase in k12559 in k11436 */ -static void C_ccall f_13406(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_13406,c,av);} -t3=C_i_check_char_2(t2,lf[297]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_utf_char_foldcase(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.base#string-foldcase in k12559 in k11436 */ -static void C_ccall f_13412(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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,2)))){ -C_save_and_reclaim((void *)f_13412,c,av);} -a=C_alloc(5); -t3=C_i_check_string_2(t2,lf[299]); -t4=C_slot(t2,C_fix(0)); -t5=C_block_size(t4); -t6=C_fixnum_difference(t5,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13426,a[2]=t1,a[3]=t4,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1083: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t7; -av2[2]=C_fixnum_times(t6,C_fix(2)); -tp(3,av2);}} - -/* k13424 in chicken.base#string-foldcase in k12559 in k11436 */ -static void C_ccall f_13426(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_13426,c,av);} -/* library.scm:1085: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[300]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(0); -av2[4]=C_utf_string_foldcase(((C_word*)t0)[3],t1,((C_word*)t0)[4]); -tp(5,av2);}} - -/* chicken.base#alist-update! in k12559 in k11436 */ -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=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_min_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_13432,c,av);} -a=C_alloc(10); -t5=C_rest_nullp(c,5); -t6=(C_truep(t5)?*((C_word*)lf[5]+1):C_get_rest_arg(c,5,av,5,t0)); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13439,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t8=C_eqp(*((C_word*)lf[4]+1),t6); -if(C_truep(t8)){ -t9=t7; -f_13439(t9,*((C_word*)lf[56]+1));} -else{ -t9=C_eqp(*((C_word*)lf[5]+1),t6); -if(C_truep(t9)){ -t10=t7; -f_13439(t10,*((C_word*)lf[57]+1));} -else{ -t10=C_eqp(*((C_word*)lf[6]+1),t6); -t11=t7; -f_13439(t11,(C_truep(t10)?*((C_word*)lf[58]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13471,a[2]=t6,a[3]=((C_word)li211),tmp=(C_word)a,a+=4,tmp)));}}} - -/* k13437 in chicken.base#alist-update! in k12559 in k11436 */ -static void f_13439(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_13439,2,t0,t1);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13442,a[2]=((C_word*)t0)[2],a[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:1102: aq */ -t3=t1;{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k13440 in k13437 in chicken.base#alist-update! in k12559 in k11436 */ -static void C_ccall f_13442(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_13442,c,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];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* f_13471 in chicken.base#alist-update! in k12559 in k11436 */ -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=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_13471,c,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_13477,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li210),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_13477(t7,t1,t3);} - -/* loop */ -static void f_13477(C_word t0,C_word 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(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_13477,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13493,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_pairp(t3))){ -/* library.scm:1099: cmp */ -t5=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_slot(t3,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} -else{ -/* library.scm:1101: loop */ -t6=t1; -t7=C_slot(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k13491 in loop */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_13493,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:1101: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_13477(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[5],C_fix(1)));}} - -/* chicken.base#alist-update in k12559 in k11436 */ -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=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_min_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_13518,c,av);} -a=C_alloc(9); -t5=C_rest_nullp(c,5); -t6=(C_truep(t5)?*((C_word*)lf[5]+1):C_get_rest_arg(c,5,av,5,t0)); -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_13527,a[2]=t2,a[3]=t3,a[4]=t8,a[5]=t6,a[6]=((C_word)li213),tmp=(C_word)a,a+=7,tmp)); -t10=((C_word*)t8)[1]; -f_13527(t10,t1,t4);} - -/* loop in chicken.base#alist-update in k12559 in k11436 */ -static void f_13527(C_word t0,C_word 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_13527,3,t0,t1,t2);} -a=C_alloc(8); -if(C_truep(C_i_nullp(t2))){ -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_a_i_list1(&a,1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -/* library.scm:1114: chicken.base#error */ -t4=*((C_word*)lf[234]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[304]; -av2[3]=lf[305]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_i_pairp(t4); -if(C_truep(C_i_not(t5))){ -/* library.scm:1118: chicken.base#error */ -t6=*((C_word*)lf[234]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[304]; -av2[3]=lf[306]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_13568,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); -/* library.scm:1119: cmp */ -t7=((C_word*)t0)[5];{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_slot(t4,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t7))(4,av2);}}}}} - -/* k13566 in loop in chicken.base#alist-update in k12559 in k11436 */ -static void C_ccall f_13568(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13568,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_slot(((C_word*)t0)[4],C_fix(1)); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=C_slot(((C_word*)t0)[6],C_fix(0)); -t3=C_slot(((C_word*)t0)[6],C_fix(1)); -t4=C_a_i_cons(&a,2,t2,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13590,a[2]=((C_word*)t0)[5],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1123: loop */ -t6=((C_word*)((C_word*)t0)[7])[1]; -f_13527(t6,t5,C_slot(((C_word*)t0)[4],C_fix(1)));}} - -/* k13588 in k13566 in loop in chicken.base#alist-update in k12559 in k11436 */ -static void C_ccall f_13590(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_13590,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#alist-ref in k12559 in k11436 */ -static void C_ccall f_13622(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_13622,c,av);} -a=C_alloc(10); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?*((C_word*)lf[5]+1):C_get_rest_arg(c,4,av,4,t0)); -t6=C_rest_nullp(c,4); -t7=C_rest_nullp(c,5); -t8=(C_truep(t7)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0)); -t9=C_rest_nullp(c,5); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13638,a[2]=t1,a[3]=t8,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -t11=C_eqp(*((C_word*)lf[4]+1),t5); -if(C_truep(t11)){ -t12=t10; -f_13638(t12,*((C_word*)lf[56]+1));} -else{ -t12=C_eqp(*((C_word*)lf[5]+1),t5); -if(C_truep(t12)){ -t13=t10; -f_13638(t13,*((C_word*)lf[57]+1));} -else{ -t13=C_eqp(*((C_word*)lf[6]+1),t5); -t14=t10; -f_13638(t14,(C_truep(t13)?*((C_word*)lf[58]+1):(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13663,a[2]=t5,a[3]=((C_word)li216),tmp=(C_word)a,a+=4,tmp)));}}} - -/* k13636 in chicken.base#alist-ref in k12559 in k11436 */ -static void f_13638(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_13638,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13641,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:1141: 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);}} - -/* k13639 in k13636 in chicken.base#alist-ref in k12559 in k11436 */ -static void C_ccall f_13641(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13641,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_slot(t1,C_fix(1)):((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f_13663 in chicken.base#alist-ref in k12559 in k11436 */ -static void C_ccall f_13663(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_13663,c,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_13669,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li215),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_13669(t7,t1,t3);} - -/* loop */ -static void f_13669(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,4)))){ -C_save_and_reclaim_args((void *)trf_13669,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=C_i_check_pair_2(t3,lf[308]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13694,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* library.scm:1137: cmp */ -t6=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_slot(t3,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} -else{ -/* library.scm:1140: chicken.base#error */ -t3=*((C_word*)lf[234]+1);{ -C_word av2[5]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[308]; -av2[3]=lf[309]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}}} - -/* k13692 in loop */ -static void C_ccall f_13694(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_13694,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:1139: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_13669(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[5],C_fix(1)));}} - -/* chicken.base#rassoc in k12559 in k11436 */ -static void C_ccall f_13734(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,3)))){ -C_save_and_reclaim((void*)f_13734,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; -t5=C_i_check_list_2(t3,lf[311]); -t6=C_i_pairp(t4); -t7=(C_truep(t6)?C_get_rest_arg(c,4,av,4,t0):*((C_word*)lf[5]+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|5,a[1]=(C_word)f_13746,a[2]=t9,a[3]=t7,a[4]=t2,a[5]=((C_word)li218),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_13746(t11,t1,t3);} - -/* loop in chicken.base#rassoc in k12559 in k11436 */ -static void f_13746(C_word 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_13746,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_check_pair_2(t3,lf[311]); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13765,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* library.scm:1154: tst */ -t6=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_slot(t3,C_fix(1)); -((C_proc)C_fast_retrieve_proc(t6))(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);}}} - -/* k13763 in loop in chicken.base#rassoc in k12559 in k11436 */ -static void C_ccall f_13765(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_13765,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:1156: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_13746(t2,((C_word*)t0)[2],C_slot(((C_word*)t0)[5],C_fix(1)));}} - -/* scheme#open-input-string in k12559 in k11436 */ -static void C_ccall f_13782(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13782,c,av);} -a=C_alloc(4); -t3=C_i_check_string_2(t2,lf[313]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13789,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1167: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t4; -av2[2]=C_fix(1); -av2[3]=C_fast_retrieve(lf[315]); -av2[4]=lf[316]; -av2[5]=lf[317]; -tp(6,av2);}} - -/* k13787 in scheme#open-input-string in k12559 in k11436 */ -static void C_ccall f_13789(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13789,c,av);} -a=C_alloc(6); -t2=C_slot(((C_word*)t0)[2],C_fix(0)); -t3=C_block_size(t2); -t4=C_fixnum_difference(t3,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13799,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* library.scm:1170: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k13797 in k13787 in scheme#open-input-string in k12559 in k11436 */ -static void C_ccall f_13799(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_13799,c,av);} -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_i_set_i_slot(((C_word*)t0)[4],C_fix(10),C_fix(0)); -t4=C_i_set_i_slot(((C_word*)t0)[4],C_fix(11),((C_word*)t0)[3]); -t5=C_i_setslot(((C_word*)t0)[4],C_fix(12),t1); -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* scheme#open-output-string in k12559 in k11436 */ -static void C_ccall f_13810(C_word c,C_word *av){ -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_13810,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13814,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:1179: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t2; -av2[2]=C_fix(2); -av2[3]=C_fast_retrieve(lf[315]); -av2[4]=lf[319]; -av2[5]=lf[317]; -tp(6,av2);}} - -/* k13812 in scheme#open-output-string in k12559 in k11436 */ -static void C_ccall f_13814(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_13814,c,av);} -a=C_alloc(4); -t2=C_i_set_i_slot(t1,C_fix(10),C_fix(0)); -t3=C_i_set_i_slot(t1,C_fix(11),C_fix(256)); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13827,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:1182: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=C_fix(256); -tp(3,av2);}} - -/* k13825 in k13812 in scheme#open-output-string in k12559 in k11436 */ -static void C_ccall f_13827(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13827,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],C_fix(12),t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#get-output-string in k12559 in k11436 */ -static void C_ccall f_13829(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,5)))){ -C_save_and_reclaim((void *)f_13829,c,av);} -t3=C_i_check_port_2(t2,C_fix(2),C_SCHEME_FALSE,lf[321]); -t4=C_slot(t2,C_fix(7)); -t5=C_eqp(lf[317],t4); -if(C_truep(C_i_not(t5))){ -/* library.scm:1189: ##sys#signal-hook */ -t6=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=lf[321]; -av2[4]=lf[322]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} -else{ -/* library.scm:1191: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[300]+1); -av2[1]=t1; -av2[2]=C_slot(t2,C_fix(12)); -av2[3]=C_fix(0); -av2[4]=C_slot(t2,C_fix(10)); -tp(5,av2);}}} - -/* scheme#open-input-bytevector in k12559 in k11436 */ -static void C_ccall f_13863(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_13863,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13867,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1195: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t3; -av2[2]=C_fix(1); -av2[3]=C_SCHEME_FALSE; -av2[4]=lf[326]; -av2[5]=lf[327]; -tp(6,av2);}} - -/* k13865 in scheme#open-input-bytevector in k12559 in k11436 */ -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 t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(40,c,6)))){ -C_save_and_reclaim((void *)f_13867,c,av);} -a=C_alloc(40); -t2=C_i_check_bytevector_2(((C_word*)t0)[2],lf[324]); -t3=C_i_setslot(t1,C_fix(14),lf[167]); -t4=C_fix(0); -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_block_size(((C_word*)t0)[2]); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13885,a[2]=t5,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word)li223),tmp=(C_word)a,a+=6,tmp); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13898,a[2]=t5,a[3]=t6,a[4]=((C_word*)t0)[2],a[5]=((C_word)li224),tmp=(C_word)a,a+=6,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13910,a[2]=t1,a[3]=((C_word)li225),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13916,a[2]=t5,a[3]=t6,a[4]=((C_word)li226),tmp=(C_word)a,a+=5,tmp); -t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_13926,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=t6,a[5]=((C_word)li227),tmp=(C_word)a,a+=6,tmp); -t12=C_a_i_vector(&a,10,t7,t8,C_SCHEME_FALSE,C_SCHEME_FALSE,t9,C_SCHEME_FALSE,t10,t11,C_SCHEME_FALSE,C_SCHEME_FALSE); -t13=C_i_setslot(t1,C_fix(2),t12); -t14=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} - -/* a13884 in k13865 in scheme#open-input-bytevector in k12559 in k11436 */ -static void C_ccall f_13885(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13885,c,av);} -t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); -if(C_truep(t3)){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_bytevector_ref(((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]); -t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1))); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_make_character(C_unfix(t4)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* a13897 in k13865 in scheme#open-input-bytevector in k12559 in k11436 */ -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=av[2]; -C_word t3; -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_13898,c,av);} -t3=C_eqp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]); -if(C_truep(t3)){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* library.scm:1210: g1284 */ -t4=C_i_bytevector_ref(((C_word*)t0)[4],((C_word*)((C_word*)t0)[2])[1]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}} - -/* a13909 in k13865 in scheme#open-input-bytevector in k12559 in k11436 */ -static void C_ccall f_13910(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_13910,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_TRUE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a13915 in k13865 in scheme#open-input-bytevector in k12559 in k11436 */ -static void C_ccall f_13916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13916,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_not(C_eqp(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a13925 in k13865 in scheme#open-input-bytevector in k12559 in k11436 */ -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=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_13926,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13930,a[2]=t4,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); -/* library.scm:1221: scheme#min */ -t7=*((C_word*)lf[325]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t3; -av2[3]=C_fixnum_difference(((C_word*)t0)[4],((C_word*)((C_word*)t0)[3])[1]); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} - -/* k13928 in a13925 in k13865 in scheme#open-input-bytevector in k12559 in k11436 */ -static void C_ccall f_13930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_13930,c,av);} -t2=C_copy_memory_with_offset(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1],t1); -t3=C_mutate(((C_word *)((C_word*)t0)[5])+1,C_fixnum_plus(((C_word*)((C_word*)t0)[5])[1],t1)); -t4=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13934(C_word c,C_word *av){ -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_13934,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_13938,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:1231: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t2; -av2[2]=C_fix(2); -av2[3]=C_SCHEME_FALSE; -av2[4]=lf[329]; -av2[5]=lf[327]; -tp(6,av2);}} - -/* k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13938(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_13938,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13941,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:1232: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t2; -av2[2]=C_fix(256); -tp(3,av2);}} - -/* k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13941(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word 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(42,c,6)))){ -C_save_and_reclaim((void *)f_13941,c,av);} -a=C_alloc(42); -t2=t1; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_fix(0); -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_fix(256); -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|5,a[1]=(C_word)f_13943,a[2]=t5,a[3]=t3,a[4]=t7,a[5]=((C_word)li229),tmp=(C_word)a,a+=6,tmp)); -t12=t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13955,a[2]=t3,a[3]=t5,a[4]=((C_word)li230),tmp=(C_word)a,a+=5,tmp); -t13=C_i_setslot(((C_word*)t0)[2],C_fix(9),t10); -t14=C_i_setslot(((C_word*)t0)[2],C_fix(14),lf[167]); -t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13974,a[2]=t9,a[3]=((C_word)li231),tmp=(C_word)a,a+=4,tmp); -t16=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13991,a[2]=t9,a[3]=((C_word)li232),tmp=(C_word)a,a+=4,tmp); -t17=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_13997,a[2]=((C_word*)t0)[2],a[3]=((C_word)li233),tmp=(C_word)a,a+=4,tmp); -t18=C_a_i_vector(&a,10,C_SCHEME_FALSE,C_SCHEME_FALSE,t15,t16,t17,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); -t19=C_i_setslot(((C_word*)t0)[2],C_fix(2),t18); -t20=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t20; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t20+1)))(2,av2);}} - -/* add in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void f_13943(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(16,0,2)))){ -C_save_and_reclaim_args((void *)trf_13943,5,t0,t1,t2,t3,t4);} -a=C_alloc(16); -t5=C_fixnum_difference(t4,t3); -t6=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],t5); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_13947,a[2]=((C_word*)t0)[3],a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=t5,a[7]=t6,a[8]=t1,tmp=(C_word)a,a+=9,tmp); -if(C_truep(C_fixnum_greaterp(t6,((C_word*)((C_word*)t0)[4])[1]))){ -t8=C_fixnum_times(((C_word*)((C_word*)t0)[4])[1],C_fix(2)); -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_13951,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t8,a[6]=t7,tmp=(C_word)a,a+=7,tmp); -/* library.scm:1240: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t9; -av2[2]=t8; -tp(3,av2);}} -else{ -t8=t7; -f_13947(t8,C_SCHEME_UNDEFINED);}} - -/* k13945 in add in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void f_13947(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_13947,2,t0,t1);} -t2=C_copy_memory_with_offset(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[7]); -t4=((C_word*)t0)[8];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k13949 in add in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13951(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_13951,c,av);} -t2=C_copy_memory_with_offset(t1,((C_word*)((C_word*)t0)[2])[1],C_fix(0),C_fix(0),((C_word*)((C_word*)t0)[3])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t5=((C_word*)t0)[6]; -f_13947(t5,t4);} - -/* getter in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13955(C_word c,C_word *av){ -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_13955,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_13959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1247: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -tp(3,av2);}} - -/* k13957 in getter in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_13959,c,av);} -t2=C_copy_memory_with_offset(t1,((C_word*)((C_word*)t0)[2])[1],C_fix(0),C_fix(0),((C_word*)((C_word*)t0)[3])[1]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a13973 in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13974(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_13974,c,av);} -a=C_alloc(8); -t4=C_a_i_string(&a,1,t3); -t5=C_slot(t4,C_fix(0)); -t6=C_block_size(t5); -/* library.scm:1260: add */ -t7=((C_word*)((C_word*)t0)[2])[1]; -f_13943(t7,t1,t5,C_fix(0),C_fixnum_difference(t6,C_fix(1)));} - -/* a13990 in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -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=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_13991,c,av);} -/* library.scm:1262: add */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_13943(t6,t1,t3,t4,t5);} - -/* a13996 in k13939 in k13936 in scheme#open-output-bytevector in k12559 in k11436 */ -static void C_ccall f_13997(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_13997,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(8),C_SCHEME_TRUE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#get-output-bytevector in k12559 in k11436 */ -static void C_ccall f_14003(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14003,c,av);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14006,a[2]=t2,a[3]=((C_word)li235),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_14013,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1275: ##sys#check-port */ -t5=*((C_word*)lf[333]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[331]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* fail in scheme#get-output-bytevector in k12559 in k11436 */ -static void f_14006(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_14006,2,t0,t1);} -/* library.scm:1274: chicken.base#error */ -t2=*((C_word*)lf[234]+1);{ -C_word av2[5]; -av2[0]=t2; -av2[1]=t1; -av2[2]=lf[331]; -av2[3]=lf[332]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k14011 in scheme#get-output-bytevector in k12559 in k11436 */ -static void C_ccall f_14013(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_14013,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(7)); -t3=C_eqp(t2,lf[327]); -if(C_truep(t3)){ -t4=C_slot(((C_word*)t0)[2],C_fix(9)); -if(C_truep(C_i_closurep(t4))){ -/* library.scm:1279: getter */ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -/* library.scm:1280: fail */ -t5=((C_word*)t0)[4]; -f_14006(t5,((C_word*)t0)[3]);}} -else{ -/* library.scm:1281: fail */ -t4=((C_word*)t0)[4]; -f_14006(t4,((C_word*)t0)[3]);}} - -/* chicken.fixnum#fx+ in k12559 in k11436 */ -static void C_ccall f_14050(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14050,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_plus(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx- in k12559 in k11436 */ -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=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_14053,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_difference(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx* in k12559 in k11436 */ -static void C_ccall f_14056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14056,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_times(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx= in k12559 in k11436 */ -static void C_ccall f_14059(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14059,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_eqp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx> in k12559 in k11436 */ -static void C_ccall f_14065(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14065,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_greaterp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx< in k12559 in k11436 */ -static void C_ccall f_14068(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14068,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_lessp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx>= in k12559 in k11436 */ -static void C_ccall f_14071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14071,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_greater_or_equal_p(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx<= in k12559 in k11436 */ -static void C_ccall f_14074(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14074,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_less_or_equal_p(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxmin in k12559 in k11436 */ -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=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_14077,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_fixnum_min(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxmax in k12559 in k11436 */ -static void C_ccall f_14080(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14080,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_fixnum_max(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxneg in k12559 in k11436 */ -static void C_ccall f_14083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14083,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fixnum_negate(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.fixnum#fxand in k12559 in k11436 */ -static void C_ccall f_14086(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14086,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_and(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxior in k12559 in k11436 */ -static void C_ccall f_14089(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14089,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_or(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxxor in k12559 in k11436 */ -static void C_ccall f_14092(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14092,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_xor(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxnot in k12559 in k11436 */ -static void C_ccall f_14095(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14095,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fixnum_not(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.fixnum#fxshl in k12559 in k11436 */ -static void C_ccall f_14098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14098,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_shift_left(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxshr in k12559 in k11436 */ -static void C_ccall f_14101(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14101,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_shift_right(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxodd? in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14104,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_fixnumoddp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.fixnum#fxeven? in k12559 in k11436 */ -static void C_ccall f_14107(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14107,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_fixnumevenp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.fixnum#fxlen in k12559 in k11436 */ -static void C_ccall f_14110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14110,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_fixnum_length(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.fixnum#fx/ in k12559 in k11436 */ -static void C_ccall f_14113(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14113,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_divide(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxgcd in k12559 in k11436 */ -static void C_ccall f_14116(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14116,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_fixnum_gcd(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxmod in k12559 in k11436 */ -static void C_ccall f_14119(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14119,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fixnum_modulo(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fxrem in k12559 in k11436 */ -static void C_ccall f_14122(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14122,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_fixnum_remainder_checked(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx+? in k12559 in k11436 */ -static void C_ccall f_14125(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14125,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_o_fixnum_plus(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx-? in k12559 in k11436 */ -static void C_ccall f_14128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14128,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_o_fixnum_difference(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx*? in k12559 in k11436 */ -static void C_ccall f_14131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14131,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_o_fixnum_times(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.fixnum#fx/? in k12559 in k11436 */ -static void C_ccall f_14134(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14134,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_o_fixnum_quotient(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#debug-mode? in k12559 in k11436 */ -static void C_ccall f_14137(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_14137,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_debug_modep(); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#warning in k12559 in k11436 */ -static void C_ccall f_14142(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14142,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[369]+1))){{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[372]; -av2[4]=t2; -av2[5]=t3; -C_apply(6,av2);}} -else{ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* chicken.base#notice in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -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_14151,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[370]+1))?*((C_word*)lf[369]+1):C_SCHEME_FALSE); -if(C_truep(t4)){{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[374]; -av2[4]=t2; -av2[5]=t3; -C_apply(6,av2);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* chicken.base#enable-warnings in k12559 in k11436 */ -static void C_ccall f_14163(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ -C_save_and_reclaim((void*)f_14163,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=C_mutate((C_word*)lf[369]+1 /* (set! ##sys#warnings-enabled ...) */,C_get_rest_arg(c,2,av,2,t0)); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=*((C_word*)lf[369]+1); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=*((C_word*)lf[369]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* ##sys#error/errno in k12559 in k11436 */ -static void C_ccall f_14177(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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,6)))){ -C_save_and_reclaim((void*)f_14177,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+0); -t3=C_build_rest(&a,c,3,av); -C_word t4; -if(C_truep(C_i_pairp(t3))){{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_fast_retrieve(lf[379]); -av2[3]=lf[236]; -av2[4]=t2; -av2[5]=C_SCHEME_FALSE; -av2[6]=t3; -C_apply(7,av2);}} -else{ -/* library.scm:1366: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=t1; -av2[2]=lf[236]; -av2[3]=t2; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}}} - -/* ##sys#setslot in k12559 in k11436 */ -static void C_ccall f_14193(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14193,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_setslot(t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#setislot in k12559 in k11436 */ -static void C_ccall f_14196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_14196,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_set_i_slot(t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#start-timer in k12559 in k11436 */ -static void C_ccall f_14205(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_14205,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14209,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:1381: ##sys#gc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[380]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[380]+1); -av2[1]=t2; -av2[2]=C_SCHEME_TRUE; -tp(3,av2);}} - -/* k14207 in ##sys#start-timer in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14209,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_start_timer(); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#stop-timer in k12559 in k11436 */ -static void C_ccall f_14211(C_word c,C_word *av){ -C_word tmp; -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_14211,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li280),tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_14215,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:1385: g1515 */ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k14213 in ##sys#stop-timer in k12559 in k11436 */ -static void C_ccall f_14215(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14215,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14218,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:1388: ##sys#gc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[380]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[380]+1); -av2[1]=t2; -av2[2]=C_SCHEME_TRUE; -tp(3,av2);}} - -/* k14216 in k14213 in ##sys#stop-timer in k12559 in k11436 */ -static void C_ccall f_14218(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_14218,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_stop_timer,a[2]=((C_word)li281),tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14229,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:1389: g1517 */ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k14227 in k14216 in k14213 in ##sys#stop-timer in k12559 in k11436 */ -static void C_ccall f_14229(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14229,c,av);} -t2=C_slot(t1,C_fix(6)); -t3=C_i_setslot(((C_word*)t0)[2],C_fix(6),t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#immediate? in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14231,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_not(C_blockp(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#message in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14238,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_message(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#byte in k12559 in k11436 */ -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=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_14241,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_subbyte(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#halt in k12559 in k11436 */ -static void C_ccall f_14246(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_14246,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_halt(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#block-ref in k12559 in k11436 */ -static void C_ccall f_14250(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_14250,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_block_ref(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#block-set! in k12559 in k11436 */ -static void C_ccall f_14255(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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,5)))){ -C_save_and_reclaim((void *)f_14255,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14259,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t6=C_i_not(C_blockp(t2)); -if(C_truep(t6)){ -if(C_truep(t6)){ -/* library.scm:1407: ##sys#signal-hook */ -t7=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t7; -av2[1]=t5; -av2[2]=lf[295]; -av2[3]=lf[400]; -av2[4]=lf[401]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} -else{ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_14259(2,av2);}}} -else{ -t7=(C_truep(C_specialp(t2))?C_eqp(t3,C_fix(0)):C_SCHEME_FALSE); -if(C_truep(t7)){ -if(C_truep(t7)){ -/* library.scm:1407: ##sys#signal-hook */ -t8=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t8; -av2[1]=t5; -av2[2]=lf[295]; -av2[3]=lf[400]; -av2[4]=lf[401]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} -else{ -t8=t5;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -f_14259(2,av2);}}} -else{ -if(C_truep(C_byteblockp(t2))){ -/* library.scm:1407: ##sys#signal-hook */ -t8=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t8; -av2[1]=t5; -av2[2]=lf[295]; -av2[3]=lf[400]; -av2[4]=lf[401]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} -else{ -t8=t5;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -f_14259(2,av2);}}}}} - -/* k14257 in ##sys#block-set! in k12559 in k11436 */ -static void C_ccall f_14259(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_14259,c,av);} -t2=C_block_size(((C_word*)t0)[2]); -t3=C_i_check_range_2(((C_word*)t0)[3],C_fix(0),t2,lf[400]); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.time#current-process-milliseconds in k12559 in k11436 */ -static void C_ccall f_14290(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ -C_save_and_reclaim((void *)f_14290,c,av);} -a=C_alloc(7); -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_current_process_milliseconds(&a,1,C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.time#current-seconds in k12559 in k11436 */ -static void C_ccall f_14293(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ -C_save_and_reclaim((void *)f_14293,c,av);} -a=C_alloc(7); -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_get_current_seconds(&a,1,C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.time#cpu-time in k12559 in k11436 */ -static void C_ccall f_14296(C_word c,C_word *av){ -C_word tmp; -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,3)))){ -C_save_and_reclaim((void *)f_14296,c,av);} -a=C_alloc(11); -t2=C_a_i_vector2(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); -t3=C_a_i_cpu_time(&a,1,t2); -/* library.scm:1436: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_slot(t2,C_fix(0)); -av2[3]=C_slot(t2,C_fix(1)); -C_values(4,av2);}} - -/* ##sys#check-structure in k12559 in k11436 */ -static void C_ccall f_14313(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_14313,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_i_pairp(t4); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_i_check_structure_2(t2,t3,C_get_rest_arg(c,4,av,4,t0)):C_i_check_structure(t2,t3)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* ##sys#check-blob in k12559 in k11436 */ -static void C_ccall f_14324(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14324,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_bytevector_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_bytevector(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-pair in k12559 in k11436 */ -static void C_ccall f_14335(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14335,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_pair_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_pair(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-list in k12559 in k11436 */ -static void C_ccall f_14346(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14346,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_list_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_list(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-string in k12559 in k11436 */ -static void C_ccall f_14357(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14357,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_string_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_string(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-number in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -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_14368,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_number_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_number(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-fixnum in k12559 in k11436 */ -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 *a; -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_14379,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_fixnum_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_fixnum(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-bytevector in k12559 in k11436 */ -static void C_ccall f_14390(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14390,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_bytevector_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_bytevector(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-exact in k12559 in k11436 */ -static void C_ccall f_14401(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14401,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_exact_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_exact(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-inexact in k12559 in k11436 */ -static void C_ccall f_14412(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14412,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_inexact_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_inexact(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-symbol in k12559 in k11436 */ -static void C_ccall f_14423(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14423,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_symbol_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_symbol(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-keyword in k12559 in k11436 */ -static void C_ccall f_14434(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14434,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_keyword_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_keyword(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-vector in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -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_14445,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_vector_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_vector(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-char in k12559 in k11436 */ -static void C_ccall f_14456(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14456,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_char_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_char(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-boolean in k12559 in k11436 */ -static void C_ccall f_14467(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14467,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_boolean_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_boolean(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-locative in k12559 in k11436 */ -static void C_ccall f_14478(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14478,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_locative_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_locative(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-integer in k12559 in k11436 */ -static void C_ccall f_14489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14489,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_integerp(t2))){ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(t3))){ -/* library.scm:1525: ##sys#error-bad-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[423]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[423]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_get_rest_arg(c,3,av,3,t0); -tp(4,av2);}} -else{ -/* library.scm:1525: ##sys#error-bad-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[423]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[423]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}}}} - -/* ##sys#check-exact-integer in k12559 in k11436 */ -static void C_ccall f_14506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14506,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_exact_integerp(t2))){ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(t3))){ -/* library.scm:1529: ##sys#error-bad-exact-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[425]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[425]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_get_rest_arg(c,3,av,3,t0); -tp(4,av2);}} -else{ -/* library.scm:1529: ##sys#error-bad-exact-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[425]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[425]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}}}} - -/* ##sys#check-exact-uinteger in k12559 in k11436 */ -static void C_ccall f_14523(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14523,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_i_not(C_i_exact_integerp(t2)); -t5=(C_truep(t4)?t4:C_i_integer_negativep(t2)); -if(C_truep(t5)){ -if(C_truep(C_i_pairp(t3))){ -/* library.scm:1534: ##sys#error-bad-exact-uinteger */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[427]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[427]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_get_rest_arg(c,3,av,3,t0); -tp(4,av2);}} -else{ -/* library.scm:1534: ##sys#error-bad-exact-uinteger */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[427]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[427]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}}} -else{ -t6=C_SCHEME_UNDEFINED; -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* ##sys#check-real in k12559 in k11436 */ -static void C_ccall f_14547(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14547,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_realp(t2))){ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(t3))){ -/* library.scm:1538: ##sys#error-bad-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[429]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[429]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_get_rest_arg(c,3,av,3,t0); -tp(4,av2);}} -else{ -/* library.scm:1538: ##sys#error-bad-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[429]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[429]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}}}} - -/* ##sys#check-range in k12559 in k11436 */ -static void C_ccall f_14564(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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,1)))){ -C_save_and_reclaim((void*)f_14564,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; -t6=C_i_pairp(t5); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_i_check_range_2(t2,t3,t4,C_get_rest_arg(c,5,av,5,t0)):C_i_check_range(t2,t3,t4)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* ##sys#check-range/including in k12559 in k11436 */ -static void C_ccall f_14575(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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,1)))){ -C_save_and_reclaim((void*)f_14575,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; -t6=C_i_pairp(t5); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_i_check_range_including_2(t2,t3,t4,C_get_rest_arg(c,5,av,5,t0)):C_i_check_range_including(t2,t3,t4)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* ##sys#check-special in k12559 in k11436 */ -static void C_ccall f_14586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_14586,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_blockp(t2))?C_specialp(t2):C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(t3))){ -/* library.scm:1552: ##sys#signal-hook */ -t5=*((C_word*)lf[235]+1);{ -C_word av2[6]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=C_get_rest_arg(c,3,av,3,t0); -av2[4]=lf[433]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} -else{ -/* library.scm:1552: ##sys#signal-hook */ -t5=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=C_SCHEME_FALSE; -av2[4]=lf[433]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}}}} - -/* ##sys#check-closure in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -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_14606,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_closure_2(t2,C_get_rest_arg(c,3,av,3,t0)):C_i_check_closure(t2)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#force in k12559 in k11436 */ -static void C_ccall f_14617(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14617,c,av);} -a=C_alloc(6); -if(C_truep(C_i_structurep(t2,lf[250]))){ -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_14629,a[2]=t4,a[3]=((C_word)li319),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_14629(t6,t1,t2,C_SCHEME_FALSE);} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* lp in scheme#force in k12559 in k11436 */ -static void f_14629(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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_14629,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:1565: ##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_14663,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* library.scm:1569: ##sys#call-with-values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=t6; -av2[2]=t4; -av2[3]=*((C_word*)lf[436]+1); -C_call_with_values(4,av2);}} -else{ -if(C_truep(C_i_structurep(t4,lf[250]))){ -/* library.scm:1581: 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);}}}}}} - -/* k14661 in lp in scheme#force in k12559 in k11436 */ -static void C_ccall f_14663(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_14663,c,av);} -a=C_alloc(6); -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_i_closurep(t2); -if(C_truep(C_i_not(t3))){ -/* library.scm:1571: lp */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_14629(t4,((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[5]);} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_14678,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); -t5=C_i_nullp(t1); -if(C_truep(C_i_not(t5))){ -t6=C_i_cdr(t1); -t7=C_i_nullp(t6); -t8=t4; -f_14678(t8,(C_truep(t7)?C_i_structurep(C_slot(t1,C_fix(0)),lf[250]):C_SCHEME_FALSE));} -else{ -t6=t4; -f_14678(t6,C_SCHEME_FALSE);}}} - -/* k14676 in k14661 in lp in scheme#force in k12559 in k11436 */ -static void f_14678(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_14678,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:1576: lp */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_14629(t5,((C_word*)t0)[5],((C_word*)t0)[3],t2);} -else{ -t2=C_i_setslot(((C_word*)t0)[3],C_fix(1),((C_word*)t0)[2]);{ -C_word av2[3]; -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[2]; -C_apply_values(3,av2);}}} - -/* ##sys#error-not-a-proper-list in k12559 in k11436 */ -static void C_ccall f_14745(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14745,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_NOT_A_PROPER_LIST_ERROR); -/* library.scm:1591: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_NOT_A_PROPER_LIST_ERROR); -/* library.scm:1591: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#error-bad-number in k12559 in k11436 */ -static void C_ccall f_14761(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14761,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR); -/* library.scm:1595: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR); -/* library.scm:1595: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#error-bad-integer in k12559 in k11436 */ -static void C_ccall f_14777(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14777,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); -/* library.scm:1599: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); -/* library.scm:1599: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#error-bad-exact-integer in k12559 in k11436 */ -static void C_ccall f_14793(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14793,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); -/* library.scm:1603: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR); -/* library.scm:1603: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#error-bad-exact-uinteger in k12559 in k11436 */ -static void C_ccall f_14809(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14809,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR); -/* library.scm:1607: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR); -/* library.scm:1607: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#error-bad-inexact in k12559 in k11436 */ -static void C_ccall f_14825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14825,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_CANT_REPRESENT_INEXACT_ERROR); -/* library.scm:1611: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_CANT_REPRESENT_INEXACT_ERROR); -/* library.scm:1611: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#error-bad-real in k12559 in k11436 */ -static void C_ccall f_14841(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14841,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR); -/* library.scm:1615: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR); -/* library.scm:1615: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#error-bad-base in k12559 in k11436 */ -static void C_ccall f_14857(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_14857,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=C_fix((C_word)C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR); -/* library.scm:1619: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -tp(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR); -/* library.scm:1619: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}}} - -/* scheme#append in k12559 in k11436 */ -static void C_ccall f_14873(C_word c,C_word *av){ -C_word tmp; -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_14873,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; -av2[0]=t4; -av2[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|3,a[1]=(C_word)f_14885,a[2]=t5,a[3]=((C_word)li332),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_14885(t7,t1,t2);}} - -/* loop in scheme#append in k12559 in k11436 */ -static void f_14885(C_word t0,C_word t1,C_word t2){ -C_word 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_14885,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_14904,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t7,a[5]=((C_word)li331),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_14904(t9,t1,t5);}} - -/* copy in loop in scheme#append in k12559 in k11436 */ -static void f_14904(C_word t0,C_word t1,C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_14904,3,t0,t1,t2);} -a=C_alloc(4); -t3=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t3)){ -/* library.scm:1630: loop */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_14885(t4,t1,C_slot(((C_word*)t0)[3],C_fix(1)));} -else{ -if(C_truep(C_i_pairp(t2))){ -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_14935,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1632: copy */ -t7=t5; -t8=C_slot(t2,C_fix(1)); -t1=t7; -t2=t8; -goto loop;} -else{ -/* library.scm:1634: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=C_slot(((C_word*)t0)[3],C_fix(0)); -av2[3]=lf[444]; -tp(4,av2);}}}} - -/* k14933 in copy in loop in scheme#append in k12559 in k11436 */ -static void C_ccall f_14935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_14935,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#fast-reverse in k12559 in k11436 */ -static void C_ccall f_14952(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_14952,c,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_14958,a[2]=t4,a[3]=((C_word)li334),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_14958(t6,t1,t2,C_SCHEME_END_OF_LIST);} - -/* loop in ##sys#fast-reverse in k12559 in k11436 */ -static void f_14958(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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_14958,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:1640: loop */ -t8=t1; -t9=t4; -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* ##sys#make-bytevector in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_14982,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -/* library.scm:1647: ##sys#allocate-bytevector */ -t3=*((C_word*)lf[384]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -/* library.scm:1647: ##sys#allocate-bytevector */ -t3=*((C_word*)lf[384]+1);{ -C_word av2[4]; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_get_rest_arg(c,3,av,3,t0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* ##sys#make-string in k12559 in k11436 */ -static void C_ccall f_14997(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_14997,c,av);} -a=C_alloc(5); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_make_character(32):C_get_rest_arg(c,3,av,3,t0)); -t5=C_utf_bytes(t4); -t6=C_fixnum_times(t5,t2); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15007,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1652: ##sys#allocate-bytevector */ -t8=*((C_word*)lf[384]+1);{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_fixnum_plus(t6,C_fix(1)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} - -/* k15005 in ##sys#make-string in k12559 in k11436 */ -static void C_ccall f_15007(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_15007,c,av);} -a=C_alloc(5); -t2=C_utf_fill(t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_ustring(&a,2,t1,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#buffer->string in k12559 in k11436 */ -static void C_ccall f_15019(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_15019,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15023,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:1657: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=C_fixnum_plus(t4,C_fix(1)); -tp(3,av2);}} - -/* k15021 in ##sys#buffer->string in k12559 in k11436 */ -static void C_ccall f_15023(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_15023,c,av);} -a=C_alloc(5); -t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]); -t3=C_utf_range_length(t1,C_fix(0),((C_word*)t0)[4]); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_ustring(&a,2,t1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#utf-decoder in k12559 in k11436 */ -static void C_ccall f_15030(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15030,c,av);} -/* library.scm:1663: k */ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -((C_proc)C_fast_retrieve_proc(t6))(5,av2);}} - -/* ##sys#utf-encoder in k12559 in k11436 */ -static void C_ccall f_15036(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15036,c,av);} -/* library.scm:1666: k */ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -((C_proc)C_fast_retrieve_proc(t6))(5,av2);}} - -/* ##sys#utf-scanner in k12559 in k11436 */ -static void C_ccall f_15042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_15042,c,av);} -if(C_truep(t2)){ -t4=C_fixnum_greaterp(t2,C_fix(1)); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_fixnum_difference(t2,C_fix(1)):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=C_utf_bytes_needed(t3); -t5=C_eqp(t4,C_fix(1)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_SCHEME_FALSE:C_fixnum_difference(t4,C_fix(1))); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* ##sys#latin-decoder in k12559 in k11436 */ -static void C_ccall f_15066(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6; -C_word t7; -C_word *a; -if(c!=6) C_bad_argc_2(c,6,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_15066,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15070,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* library.scm:1679: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fixnum_times(t4,C_fix(2)); -tp(3,av2);}} - -/* k15068 in ##sys#latin-decoder in k12559 in k11436 */ -static void C_ccall f_15070(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15070,c,av);} -/* library.scm:1681: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_fix(0); -av2[4]=C_latin_to_utf(((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]); -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* ##sys#latin-encoder in k12559 in k11436 */ -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=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6; -C_word t7; -C_word *a; -if(c!=6) C_bad_argc_2(c,6,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_15079,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15083,a[2]=t5,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* library.scm:1684: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fixnum_plus(t4,C_fix(1)); -tp(3,av2);}} - -/* k15081 in ##sys#latin-encoder in k12559 in k11436 */ -static void C_ccall f_15083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_15083,c,av);} -/* library.scm:1686: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_fix(0); -av2[4]=C_utf_to_latin(((C_word*)t0)[4],t1,((C_word*)t0)[5],((C_word*)t0)[6]); -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* ##sys#latin-scanner in k12559 in k11436 */ -static void C_ccall f_15092(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_15092,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#binary-decoder in k12559 in k11436 */ -static void C_ccall f_15095(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_15095,c,av);} -/* library.scm:1691: k */ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -((C_proc)C_fast_retrieve_proc(t6))(5,av2);}} - -/* ##sys#binary-encoder in k12559 in k11436 */ -static void C_ccall f_15101(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_15101,c,av);} -/* library.scm:1694: k */ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -((C_proc)C_fast_retrieve_proc(t6))(5,av2);}} - -/* ##sys#binary-scanner in k12559 in k11436 */ -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=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_15107,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#encoding-hook in k12559 in k11436 */ -static void C_ccall f_15110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_15110,c,av);} -t4=C_eqp(t2,lf[167]); -if(C_truep(t4)){ -/* library.scm:1701: k */ -t5=t3;{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=*((C_word*)lf[453]+1); -av2[3]=*((C_word*)lf[454]+1); -av2[4]=*((C_word*)lf[455]+1); -((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} -else{ -t5=C_eqp(t2,lf[457]); -if(C_truep(t5)){ -/* library.scm:1702: k */ -t6=t3;{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t1; -av2[2]=*((C_word*)lf[447]+1); -av2[3]=*((C_word*)lf[448]+1); -av2[4]=*((C_word*)lf[449]+1); -((C_proc)C_fast_retrieve_proc(t6))(5,av2);}} -else{ -t6=C_eqp(t2,lf[458]); -if(C_truep(t6)){ -/* library.scm:1703: k */ -t7=t3;{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t1; -av2[2]=*((C_word*)lf[450]+1); -av2[3]=*((C_word*)lf[451]+1); -av2[4]=*((C_word*)lf[452]+1); -((C_proc)C_fast_retrieve_proc(t7))(5,av2);}} -else{ -/* library.scm:1704: ##sys#signal-hook */ -t7=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t7; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=C_SCHEME_FALSE; -av2[4]=lf[459]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}}}}} - -/* ##sys#register-encoding in k12559 in k11436 */ -static void C_ccall f_15149(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15149,c,av);} -a=C_alloc(7); -t6=*((C_word*)lf[456]+1); -t7=C_mutate((C_word*)lf[456]+1 /* (set! ##sys#encoding-hook ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15152,a[2]=t2,a[3]=t3,a[4]=t5,a[5]=t6,a[6]=((C_word)li349),tmp=(C_word)a,a+=7,tmp)); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* ##sys#encoding-hook in ##sys#register-encoding in k12559 in k11436 */ -static void C_ccall f_15152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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,2)))){ -C_save_and_reclaim((void *)f_15152,c,av);} -a=C_alloc(8); -t4=C_eqp(t2,((C_word*)t0)[2]); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15162,a[2]=t3,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(t4)){ -t6=t5; -f_15162(t6,t4);} -else{ -t6=C_i_pairp(((C_word*)t0)[2]); -t7=t5; -f_15162(t7,(C_truep(t6)?C_i_memq(t2,((C_word*)t0)[2]):C_SCHEME_FALSE));}} - -/* k15160 in ##sys#encoding-hook in ##sys#register-encoding in k12559 in k11436 */ -static void f_15162(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_15162,2,t0,t1);} -if(C_truep(t1)){ -/* library.scm:1712: k */ -t2=((C_word*)t0)[2];{ -C_word av2[5]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} -else{ -/* library.scm:1713: old */ -t2=((C_word*)t0)[7];{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}}} - -/* ##sys#buffer->string/encoding in k12559 in k11436 */ -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=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(6,c,5)))){ -C_save_and_reclaim((void *)f_15179,c,av);} -a=C_alloc(6); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15185,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word)li351),tmp=(C_word)a,a+=6,tmp); -/* library.scm:1717: ##sys#encoding-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[456]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[456]+1); -av2[1]=t1; -av2[2]=t5; -av2[3]=t6; -tp(4,av2);}} - -/* a15184 in ##sys#buffer->string/encoding in k12559 in k11436 */ -static void C_ccall f_15185(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_15185,c,av);} -/* library.scm:1719: decoder */ -t5=t2;{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=*((C_word*)lf[300]+1); -((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} - -/* ##sys#encode-buffer in k12559 in k11436 */ -static void C_ccall f_15191(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(7,c,5)))){ -C_save_and_reclaim((void *)f_15191,c,av);} -a=C_alloc(7); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15197,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=((C_word)li353),tmp=(C_word)a,a+=7,tmp); -/* library.scm:1723: ##sys#encoding-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[456]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[456]+1); -av2[1]=t1; -av2[2]=t5; -av2[3]=t7; -tp(4,av2);}} - -/* a15196 in ##sys#encode-buffer in k12559 in k11436 */ -static void C_ccall f_15197(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_15197,c,av);} -/* library.scm:1725: encoder */ -t5=t3;{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} - -/* ##sys#decode-buffer in k12559 in k11436 */ -static void C_ccall f_15203(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(7,c,5)))){ -C_save_and_reclaim((void *)f_15203,c,av);} -a=C_alloc(7); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15209,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=((C_word)li355),tmp=(C_word)a,a+=7,tmp); -/* library.scm:1729: ##sys#encoding-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[456]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[456]+1); -av2[1]=t1; -av2[2]=t5; -av2[3]=t7; -tp(4,av2);}} - -/* a15208 in ##sys#decode-buffer in k12559 in k11436 */ -static void C_ccall f_15209(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_15209,c,av);} -/* library.scm:1731: decoder */ -t5=t2;{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} - -/* ##sys#encode-char in k12559 in k11436 */ -static void C_ccall f_15215(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,5)))){ -C_save_and_reclaim((void *)f_15215,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15221,a[2]=t2,a[3]=t3,a[4]=((C_word)li358),tmp=(C_word)a,a+=5,tmp); -/* library.scm:1735: ##sys#encoding-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[456]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[456]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -tp(4,av2);}} - -/* a15220 in ##sys#encode-char in k12559 in k11436 */ -static void C_ccall f_15221(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15221,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15225,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); -/* library.scm:1738: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=C_fix(4); -tp(3,av2);}} - -/* k15223 in a15220 in ##sys#encode-char in k12559 in k11436 */ -static void C_ccall f_15225(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_15225,c,av);} -a=C_alloc(4); -t2=C_utf_insert(t1,C_fix(0),((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15230,a[2]=((C_word*)t0)[3],a[3]=((C_word)li357),tmp=(C_word)a,a+=4,tmp); -/* library.scm:1740: encoder */ -t4=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[5]; -av2[2]=t1; -av2[3]=C_fix(0); -av2[4]=t2; -av2[5]=t3; -((C_proc)C_fast_retrieve_proc(t4))(6,av2);}} - -/* a15229 in k15223 in a15220 in ##sys#encode-char in k12559 in k11436 */ -static void C_ccall f_15230(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15230,c,av);} -t5=C_copy_memory_with_offset(((C_word*)t0)[2],t2,C_fix(0),t3,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* ##sys#decode-char in k12559 in k11436 */ -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=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(3,c,6)))){ -C_save_and_reclaim((void *)f_15233,c,av);} -a=C_alloc(3); -t5=C_block_size(t2); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_15243,a[2]=((C_word)li360),tmp=(C_word)a,a+=3,tmp); -/* library.scm:1746: ##sys#decode-buffer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[463]+1)); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[463]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -av2[4]=t5; -av2[5]=t3; -av2[6]=t6; -tp(7,av2);}} - -/* a15242 in ##sys#decode-char in k12559 in k11436 */ -static void C_ccall f_15243(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_15243,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_utf_decode(t2,t3); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#read-char/encoding in k12559 in k11436 */ -static void C_ccall f_15246(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,5)))){ -C_save_and_reclaim((void *)f_15246,c,av);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15252,a[2]=t2,a[3]=t4,a[4]=((C_word)li363),tmp=(C_word)a,a+=5,tmp); -/* library.scm:1753: ##sys#encoding-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[456]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[456]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=t5; -tp(4,av2);}} - -/* a15251 in ##sys#read-char/encoding in k12559 in k11436 */ -static void C_ccall f_15252(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_15252,c,av);} -a=C_alloc(7); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15256,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:1756: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=C_fix(4); -tp(3,av2);}} - -/* k15254 in a15251 in ##sys#read-char/encoding in k12559 in k11436 */ -static void C_ccall f_15256(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_15256,c,av);} -a=C_alloc(12); -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -t3=C_slot(t2,C_fix(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|9,a[1]=(C_word)f_15264,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[2],a[9]=((C_word)li362),tmp=(C_word)a,a+=10,tmp)); -t7=((C_word*)t5)[1]; -f_15264(t7,((C_word*)t0)[6],C_SCHEME_FALSE,C_fix(0));} - -/* loop in k15254 in a15251 in ##sys#read-char/encoding in k12559 in k11436 */ -static void f_15264(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,5)))){ -C_save_and_reclaim_args((void *)trf_15264,4,t0,t1,t2,t3);} -a=C_alloc(10); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_15268,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],a[9]=t2,tmp=(C_word)a,a+=10,tmp); -/* library.scm:1759: rbv! */ -t5=((C_word*)t0)[7];{ -C_word av2[6]; -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_fix(1); -av2[4]=((C_word*)t0)[2]; -av2[5]=t3; -((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} - -/* k15266 in loop in k15254 in a15251 in ##sys#read-char/encoding in k12559 in k11436 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ -C_save_and_reclaim((void *)f_15268,c,av);} -a=C_alloc(8); -t2=C_eqp(C_fix(0),t1); -if(C_truep(t2)){ -t3=C_eqp(((C_word*)t0)[2],C_fix(0)); -if(C_truep(t3)){ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* library.scm:1763: ##sys#signal-hook */ -t4=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[467]; -av2[3]=lf[468]; -av2[4]=lf[469]; -av2[5]=((C_word*)t0)[4]; -av2[6]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(7,av2);}}} -else{ -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15286,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],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); -/* library.scm:1764: scan */ -t4=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[9]; -av2[3]=C_subbyte(((C_word*)t0)[4],((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} - -/* k15284 in k15266 in loop in k15254 in a15251 in ##sys#read-char/encoding in k12559 in k11436 */ -static void C_ccall f_15286(C_word c,C_word *av){ -C_word tmp; -C_word 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_15286,c,av);} -if(C_truep(t1)){ -/* library.scm:1766: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_15264(t2,((C_word*)t0)[3],t1,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} -else{ -/* library.scm:1767: k */ -t2=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_fix(0); -av2[4]=C_fixnum_plus(((C_word*)t0)[4],C_fix(1)); -av2[5]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t2))(6,av2);}}} - -/* scheme#make-string in k12559 in k11436 */ -static void C_ccall f_15310(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_15310,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_fixnum_2(t2,lf[471]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15317,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:1773: ##sys#signal-hook */ -t6=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[472]; -av2[3]=lf[471]; -av2[4]=lf[473]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(6,av2);}} -else{ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_15317(2,av2);}}} - -/* k15315 in scheme#make-string in k12559 in k11436 */ -static void C_ccall f_15317(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_15317,c,av);} -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -/* library.scm:1774: ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[446]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[446]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_make_character(32); -tp(4,av2);}} -else{ -t2=C_i_car(((C_word*)t0)[2]); -t3=C_i_check_char_2(t2,lf[471]); -/* library.scm:1774: ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[446]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[446]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -tp(4,av2);}}} - -/* scheme#string->list in k12559 in k11436 */ -static void C_ccall f_15341(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ -C_save_and_reclaim((void *)f_15341,c,av);} -a=C_alloc(11); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=t4; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_rest_nullp(c,3); -t8=C_rest_nullp(c,4); -t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t10=t9; -t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); -t12=C_rest_nullp(c,4); -t13=C_i_check_string_2(t2,lf[475]); -t14=C_slot(t2,C_fix(1)); -t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15363,a[2]=t11,a[3]=t6,a[4]=t2,a[5]=t1,a[6]=t14,tmp=(C_word)a,a+=7,tmp); -if(C_truep(((C_word*)t6)[1])){ -/* library.scm:1787: ##sys#check-range/including */ -t16=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t16; -av2[1]=t15; -av2[2]=((C_word*)t6)[1]; -av2[3]=C_fix(0); -av2[4]=t14; -av2[5]=lf[475]; -((C_proc)(void*)(*((C_word*)t16+1)))(6,av2);}} -else{ -t16=C_set_block_item(t6,0,C_fix(0)); -t17=t15;{ -C_word *av2=av; -av2[0]=t17; -av2[1]=t16; -f_15363(2,av2);}}} - -/* k15361 in scheme#string->list in k12559 in k11436 */ -static void C_ccall f_15363(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,5)))){ -C_save_and_reclaim((void *)f_15363,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15366,a[2]=((C_word*)t0)[2],a[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])){ -/* library.scm:1790: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[475]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[6]); -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_15366(2,av2);}}} - -/* k15364 in k15361 in scheme#string->list in k12559 in k11436 */ -static void C_ccall f_15366(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_15366,c,av);} -a=C_alloc(8); -t2=C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],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|5,a[1]=(C_word)f_15375,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t4,a[5]=((C_word)li366),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_15375(t6,((C_word*)t0)[5],t2,C_SCHEME_END_OF_LIST);} - -/* loop in k15364 in k15361 in scheme#string->list in k12559 in k11436 */ -static void f_15375(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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_15375,4,t0,t1,t2,t3);} -a=C_alloc(3); -if(C_truep(C_fixnum_lessp(t2,((C_word*)((C_word*)t0)[2])[1]))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fixnum_difference(t2,C_fix(1)); -t5=C_i_string_ref(((C_word*)t0)[3],t2); -t6=C_a_i_cons(&a,2,t5,t3); -/* library.scm:1795: loop */ -t8=t1; -t9=t4; -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;}} - -/* scheme#list->string in k12559 in k11436 */ -static void C_ccall f_15432(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15432,c,av);} -a=C_alloc(4); -t3=C_i_listp(t2); -if(C_truep(C_i_not(t3))){ -/* library.scm:1803: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[478]; -tp(4,av2);}} -else{ -t4=C_utf_list_size(t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_15445,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:1805: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=C_fixnum_plus(C_fix(1),t4); -tp(3,av2);}}} - -/* k15443 in scheme#list->string in k12559 in k11436 */ -static void C_ccall f_15445(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15445,c,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_15450,a[2]=t1,a[3]=t3,a[4]=((C_word)li368),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_15450(t5,((C_word*)t0)[2],C_fix(0),C_fix(0),((C_word*)t0)[3]);} - -/* loop in k15443 in scheme#list->string in k12559 in k11436 */ -static void f_15450(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(5,0,4)))){ -C_save_and_reclaim_args((void *)trf_15450,5,t0,t1,t2,t3,t4);} -a=C_alloc(5); -t5=C_i_pairp(t4); -if(C_truep(C_i_not(t5))){ -t6=C_a_ustring(&a,2,((C_word*)t0)[2],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_slot(t4,C_fix(0)); -t7=C_i_check_char_2(t6,lf[478]); -t8=C_utf_insert(((C_word*)t0)[2],t3,t6); -/* library.scm:1814: loop */ -t10=t1; -t11=C_fixnum_plus(t2,C_fix(1)); -t12=C_fixnum_plus(t3,C_utf_bytes(t6)); -t13=C_slot(t4,C_fix(1)); -t1=t10; -t2=t11; -t3=t12; -t4=t13; -goto loop;}} - -/* ##sys#reverse-list->string in k12559 in k11436 */ -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=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,2)))){ -C_save_and_reclaim((void *)f_15494,c,av);} -a=C_alloc(5); -t3=C_utf_list_size(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15498,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1822: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=C_fixnum_plus(t3,C_fix(1)); -tp(3,av2);}} - -/* k15496 in ##sys#reverse-list->string in k12559 in k11436 */ -static void C_ccall f_15498(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ -C_save_and_reclaim((void *)f_15498,c,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_15503,a[2]=t1,a[3]=t3,a[4]=((C_word)li370),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_15503(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0));} - -/* loop in k15496 in ##sys#reverse-list->string in k12559 in k11436 */ -static void f_15503(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ -C_save_and_reclaim_args((void *)trf_15503,5,t0,t1,t2,t3,t4);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t3))){ -t5=C_a_ustring(&a,2,((C_word*)t0)[2],t4); -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(t3))){ -t5=C_slot(t3,C_fix(0)); -t6=C_i_check_char_2(t5,lf[481]); -t7=C_utf_bytes(t5); -t8=C_fixnum_difference(t2,t7); -t9=C_utf_insert(((C_word*)t0)[2],t8,t5); -/* library.scm:1832: loop */ -t11=t1; -t12=t8; -t13=C_slot(t3,C_fix(1)); -t14=C_fixnum_plus(t4,C_fix(1)); -t1=t11; -t2=t12; -t3=t13; -t4=t14; -goto loop;} -else{ -/* library.scm:1833: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=lf[481]; -tp(4,av2);}}}} - -/* scheme#string-fill! in k12559 in k11436 */ -static void C_ccall f_15545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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<4) C_bad_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_15545,c,av);} -a=C_alloc(11); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=t5; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_rest_nullp(c,4); -t9=C_rest_nullp(c,5); -t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0)); -t11=t10; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_rest_nullp(c,5); -t14=C_i_check_string_2(t2,lf[483]); -t15=C_i_check_char_2(t3,lf[483]); -t16=C_u_i_string_length(t2); -t17=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15568,a[2]=t2,a[3]=t12,a[4]=t7,a[5]=t3,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -if(C_truep(((C_word*)t7)[1])){ -t18=C_i_check_range_2(((C_word*)t7)[1],C_fix(0),t16,lf[483]); -if(C_truep(((C_word*)t12)[1])){ -t19=t17; -f_15568(t19,C_i_check_range_2(((C_word*)t12)[1],C_fix(0),t16,lf[483]));} -else{ -t19=C_set_block_item(t12,0,t16); -t20=t17; -f_15568(t20,t19);}} -else{ -t18=C_set_block_item(t7,0,C_fix(0)); -t19=C_set_block_item(t12,0,t16); -t20=t17; -f_15568(t20,t19);}} - -/* k15566 in scheme#string-fill! in k12559 in k11436 */ -static void f_15568(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_15568,2,t0,t1);} -a=C_alloc(6); -t2=C_slot(((C_word*)t0)[2],C_fix(0)); -t3=C_block_size(t2); -t4=C_fixnum_difference(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); -t5=C_i_fixnum_max(C_fix(0),t4); -t6=C_fix(C_character_code(((C_word*)t0)[5])); -t7=C_fixnum_difference(t3,C_fix(1)); -t8=C_slot(((C_word*)t0)[2],C_fix(1)); -t9=C_eqp(t7,t8); -t10=(C_truep(t9)?C_fixnum_lessp(t6,C_fix(128)):C_SCHEME_FALSE); -if(C_truep(t10)){ -t11=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t11; -av2[1]=C_fill_bytevector(t2,t6,((C_word*)((C_word*)t0)[4])[1],t5); -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} -else{ -t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15591,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=((C_word)li372),tmp=(C_word)a,a+=6,tmp); -t12=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t12; -av2[1]=( - f_15591(t11,((C_word*)((C_word*)t0)[4])[1]) -); -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} - -/* doloop2048 in k15566 in scheme#string-fill! in k12559 in k11436 */ -static C_word f_15591(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_fixnum_greater_or_equal_p(t1,((C_word*)((C_word*)t0)[2])[1]))){ -t2=C_SCHEME_UNDEFINED; -return(t2);} -else{ -t2=C_i_string_set(((C_word*)t0)[3],t1,((C_word*)t0)[4]); -t4=C_fixnum_plus(t1,C_fix(1)); -t1=t4; -goto loop;}} - -/* scheme#string-copy in k12559 in k11436 */ -static void C_ccall f_15664(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ -C_save_and_reclaim((void *)f_15664,c,av);} -a=C_alloc(17); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t8=t7; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_rest_nullp(c,4); -t11=C_i_check_string_2(t2,lf[485]); -t12=C_u_i_string_length(t2); -t13=C_fix(0); -t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); -t15=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_15684,a[2]=t9,a[3]=t14,a[4]=t1,a[5]=t4,a[6]=t2,a[7]=t12,tmp=(C_word)a,a+=8,tmp); -if(C_truep(t4)){ -t16=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15712,a[2]=t14,a[3]=t4,a[4]=t15,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1864: ##sys#check-range/including */ -t17=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t17; -av2[1]=t16; -av2[2]=t4; -av2[3]=C_fix(0); -av2[4]=t12; -av2[5]=lf[485]; -((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} -else{ -t16=t15; -f_15684(t16,C_SCHEME_UNDEFINED);}} - -/* k15682 in scheme#string-copy in k12559 in k11436 */ -static void f_15684(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,5)))){ -C_save_and_reclaim_args((void *)trf_15684,2,t0,t1);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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)[2])[1])){ -/* library.scm:1867: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[7]; -av2[5]=lf[485]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t3=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[7]); -t4=t2;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -f_15687(2,av2);}}} - -/* k15685 in k15682 in scheme#string-copy in k12559 in k11436 */ -static void C_ccall f_15687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15687,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15690,a[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:1870: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)((C_word*)t0)[3])[1]; -av2[4]=((C_word*)((C_word*)t0)[2])[1]; -tp(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[6],C_fix(0)); -f_15690(2,av2);}}} - -/* k15688 in k15685 in k15682 in scheme#string-copy in k12559 in k11436 */ -static void C_ccall f_15690(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15690,c,av);} -a=C_alloc(6); -t2=C_block_size(t1); -t3=C_fixnum_difference(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15699,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[4],a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* library.scm:1874: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k15697 in k15688 in k15685 in k15682 in scheme#string-copy in k12559 in k11436 */ -static void C_ccall f_15699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15699,c,av);} -a=C_alloc(5); -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_ustring(&a,2,t1,((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k15710 in scheme#string-copy in k12559 in k11436 */ -static void C_ccall f_15712(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_15712,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[3]); -t3=((C_word*)t0)[4]; -f_15684(t3,t2);} - -/* scheme#string-copy! in k12559 in k11436 */ -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=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_min_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){ -C_save_and_reclaim((void *)f_15739,c,av);} -a=C_alloc(18); -t5=C_rest_nullp(c,5); -t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,5,t0)); -t7=t6; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_rest_nullp(c,5); -t10=C_rest_nullp(c,6); -t11=(C_truep(t10)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,5,t0)); -t12=t11; -t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); -t14=C_rest_nullp(c,6); -t15=C_i_check_string_2(t2,lf[488]); -t16=C_i_check_string_2(t4,lf[488]); -t17=C_u_i_string_length(t2); -t18=C_u_i_string_length(t4); -t19=C_fixnum_difference(((C_word*)t13)[1],((C_word*)t8)[1]); -t20=C_i_check_range_2(t3,C_fix(0),t17,lf[488]); -t21=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_15769,a[2]=t2,a[3]=t4,a[4]=t8,a[5]=t3,a[6]=t19,a[7]=t13,a[8]=t1,tmp=(C_word)a,a+=9,tmp); -if(C_truep(((C_word*)t8)[1])){ -t22=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15856,a[2]=t13,a[3]=t21,a[4]=t18,tmp=(C_word)a,a+=5,tmp); -/* library.scm:1888: ##sys#check-range/including */ -t23=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t23; -av2[1]=t22; -av2[2]=((C_word*)t8)[1]; -av2[3]=C_fix(0); -av2[4]=t18; -av2[5]=lf[488]; -((C_proc)(void*)(*((C_word*)t23+1)))(6,av2);}} -else{ -t22=C_set_block_item(t8,0,C_fix(0)); -t23=t21;{ -C_word *av2=av; -av2[0]=t23; -av2[1]=t22; -f_15769(2,av2);}}} - -/* k15767 in scheme#string-copy! in k12559 in k11436 */ -static void C_ccall f_15769(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_15769,c,av);} -a=C_alloc(6); -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5]):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[6]); -t5=C_fixnum_difference(t4,C_fix(1)); -t6=C_fixnum_difference(((C_word*)((C_word*)t0)[7])[1],C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15788,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li375),tmp=(C_word)a,a+=6,tmp); -t8=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=( - f_15788(t7,t5,t6) -); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15822,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li376),tmp=(C_word)a,a+=6,tmp); -t5=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=( - f_15822(t4,((C_word*)t0)[5],((C_word*)((C_word*)t0)[4])[1]) -); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* doloop2106 in k15767 in scheme#string-copy! in k12559 in k11436 */ -static C_word f_15788(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_stack_overflow_check; -loop:{} -if(C_truep(C_fixnum_lessp(t2,((C_word*)((C_word*)t0)[2])[1]))){ -t3=C_SCHEME_UNDEFINED; -return(t3);} -else{ -t3=C_i_string_ref(((C_word*)t0)[3],t2); -t4=C_i_string_set(((C_word*)t0)[4],t1,t3); -t6=C_fixnum_difference(t1,C_fix(1)); -t7=C_fixnum_difference(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* doloop2112 in k15767 in scheme#string-copy! in k12559 in k11436 */ -static C_word f_15822(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_stack_overflow_check; -loop:{} -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]))){ -t3=C_SCHEME_UNDEFINED; -return(t3);} -else{ -t3=C_i_string_ref(((C_word*)t0)[3],t2); -t4=C_i_string_set(((C_word*)t0)[4],t1,t3); -t6=C_fixnum_plus(t1,C_fix(1)); -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* k15854 in scheme#string-copy! in k12559 in k11436 */ -static void C_ccall f_15856(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_15856,c,av);} -if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ -/* library.scm:1890: ##sys#check-range/including */ -t2=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[4]; -av2[5]=lf[488]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} -else{ -t2=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[4]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -f_15769(2,av2);}}} - -/* ##sys#substring in k12559 in k11436 */ -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=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_15890,c,av);} -a=C_alloc(6); -t5=C_utf_range(t2,t3,t4); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15894,a[2]=t4,a[3]=t3,a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:1905: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fixnum_plus(t5,C_fix(1)); -tp(3,av2);}} - -/* k15892 in ##sys#substring in k12559 in k11436 */ -static void C_ccall f_15894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_15894,c,av);} -a=C_alloc(5); -t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_a_ustring(&a,2,t1,t2); -t4=C_utf_copy(((C_word*)t0)[4],t3,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0)); -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#substring in k12559 in k11436 */ -static void C_ccall f_15904(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_15904,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; -t5=C_i_check_string_2(t2,lf[490]); -t6=C_i_check_fixnum_2(t3,lf[490]); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_15914,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_pairp(t4))){ -t8=C_get_rest_arg(c,4,av,4,t0); -t9=C_i_check_fixnum_2(t8,lf[490]); -t10=t7; -f_15914(t10,t8);} -else{ -t8=t7; -f_15914(t8,C_u_i_string_length(t2));}} - -/* k15912 in scheme#substring in k12559 in k11436 */ -static void f_15914(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_15914,2,t0,t1);} -a=C_alloc(6); -t2=C_u_i_string_length(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_15921,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); -if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[4],t1))){ -t4=C_fixnum_greater_or_equal_p(((C_word*)t0)[4],C_fix(0)); -t5=t3; -f_15921(t5,(C_truep(t4)?C_fixnum_less_or_equal_p(t1,t2):C_SCHEME_FALSE));} -else{ -t4=t3; -f_15921(t4,C_SCHEME_FALSE);}} - -/* k15919 in k15912 in scheme#substring in k12559 in k11436 */ -static void f_15921(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_15921,2,t0,t1);} -if(C_truep(t1)){ -/* library.scm:1923: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[486]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -tp(5,av2);}} -else{ -t2=C_fix((C_word)C_OUT_OF_BOUNDS_ERROR); -/* library.scm:1924: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[6]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t2; -av2[3]=lf[490]; -av2[4]=((C_word*)t0)[3]; -av2[5]=((C_word*)t0)[4]; -tp(6,av2);}}} - -/* compare in k12559 in k11436 */ -static void f_15949(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; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_15949,6,t1,t2,t3,t4,t5,t6);} -a=C_alloc(7); -t7=C_i_check_string_2(t2,t5); -t8=C_i_check_string_2(t3,t5); -t9=C_u_i_string_length(t2); -t10=C_u_i_string_length(t3); -t11=C_fixnum_lessp(t9,t10); -t12=(C_truep(t11)?t9:t10); -t13=C_utf_compare(t2,t3,C_fix(0),C_fix(0),t12); -t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15969,a[2]=t4,a[3]=t6,a[4]=t1,a[5]=t3,a[6]=t10,tmp=(C_word)a,a+=7,tmp); -t15=C_fixnum_lessp(t9,t10); -t16=(C_truep(t15)?t9:t10); -/* library.scm:1938: cmp */ -t17=t6;{ -C_word av2[5]; -av2[0]=t17; -av2[1]=t14; -av2[2]=C_utf_compare(t2,t3,C_fix(0),C_fix(0),t16); -av2[3]=t9; -av2[4]=t10; -((C_proc)C_fast_retrieve_proc(t17))(5,av2);}} - -/* k15967 in compare in k12559 in k11436 */ -static void C_ccall f_15969(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,6)))){ -C_save_and_reclaim((void *)f_15969,c,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_15971,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li380),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_15971(t5,((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[2],t1);} - -/* loop in k15967 in compare in k12559 in k11436 */ -static void f_15971(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 *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ -C_save_and_reclaim_args((void *)trf_15971,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t4))){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_slot(((C_word*)t0)[2],C_fix(0)); -t7=C_i_string_length(t6); -t8=C_fixnum_lessp(t3,t7); -t9=(C_truep(t8)?t3:t7); -t10=C_utf_compare_ci(t2,t6,C_fix(0),C_fix(0),t9); -t11=C_slot(((C_word*)t0)[2],C_fix(1)); -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_15999,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t6,a[5]=t7,a[6]=t11,tmp=(C_word)a,a+=7,tmp); -if(C_truep(t5)){ -/* library.scm:1950: cmp */ -t13=((C_word*)t0)[4];{ -C_word av2[5]; -av2[0]=t13; -av2[1]=t12; -av2[2]=t10; -av2[3]=t3; -av2[4]=t7; -((C_proc)C_fast_retrieve_proc(t13))(5,av2);}} -else{ -/* library.scm:1949: loop */ -t14=t1; -t15=t6; -t16=t7; -t17=t11; -t18=C_SCHEME_FALSE; -t1=t14; -t2=t15; -t3=t16; -t4=t17; -t5=t18; -goto loop;}}} - -/* k15997 in loop in k15967 in compare in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_15999,c,av);} -/* library.scm:1949: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_15971(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} - -/* scheme#string? in k12559 in k11436 */ -static void C_ccall f_16042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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 +3,c,6)))){ -C_save_and_reclaim((void*)f_16042,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16048,a[2]=((C_word)li384),tmp=(C_word)a,a+=3,tmp); -/* library.scm:1959: compare */ -f_15949(t1,t2,t3,t4,lf[494],t5);} - -/* a16047 in scheme#string>? in k12559 in k11436 */ -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=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_16048,c,av);} -t5=C_fixnum_greaterp(t2,C_fix(0)); -if(C_truep(t5)){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_fixnum_lessp(t4,t3); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_eqp(t2,C_fix(0)):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* scheme#string<=? in k12559 in k11436 */ -static void C_ccall f_16066(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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 +3,c,6)))){ -C_save_and_reclaim((void*)f_16066,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16072,a[2]=((C_word)li386),tmp=(C_word)a,a+=3,tmp); -/* library.scm:1966: compare */ -f_15949(t1,t2,t3,t4,lf[496],t5);} - -/* a16071 in scheme#string<=? in k12559 in k11436 */ -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=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_16072,c,av);} -t5=C_eqp(t2,C_fix(0)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_fixnum_less_or_equal_p(t3,t4):C_fixnum_lessp(t2,C_fix(0))); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* scheme#string>=? in k12559 in k11436 */ -static void C_ccall f_16087(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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 +3,c,6)))){ -C_save_and_reclaim((void*)f_16087,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16093,a[2]=((C_word)li388),tmp=(C_word)a,a+=3,tmp); -/* library.scm:1973: compare */ -f_15949(t1,t2,t3,t4,lf[498],t5);} - -/* a16092 in scheme#string>=? in k12559 in k11436 */ -static void C_ccall f_16093(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_16093,c,av);} -t5=C_eqp(t2,C_fix(0)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_fixnum_greater_or_equal_p(t3,t4):C_fixnum_greaterp(t2,C_fix(0))); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* compare in k12559 in k11436 */ -static void f_16107(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(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_16107,6,t1,t2,t3,t4,t5,t6);} -a=C_alloc(7); -t7=C_i_check_string_2(t2,t5); -t8=C_i_check_string_2(t3,t5); -t9=C_u_i_string_length(t2); -t10=C_u_i_string_length(t3); -t11=C_fixnum_lessp(t9,t10); -t12=(C_truep(t11)?t9:t10); -t13=C_utf_compare_ci(t2,t3,C_fix(0),C_fix(0),t12); -t14=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16127,a[2]=t6,a[3]=t1,a[4]=t3,a[5]=t10,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* library.scm:1990: cmp */ -t15=t6;{ -C_word av2[5]; -av2[0]=t15; -av2[1]=t14; -av2[2]=t13; -av2[3]=t9; -av2[4]=t10; -((C_proc)C_fast_retrieve_proc(t15))(5,av2);}} - -/* k16125 in compare in k12559 in k11436 */ -static void C_ccall f_16127(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_16127,c,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_16129,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li390),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_16129(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} - -/* loop in k16125 in compare in k12559 in k11436 */ -static void f_16129(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 *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ -C_save_and_reclaim_args((void *)trf_16129,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t4))){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_slot(t4,C_fix(0)); -t7=C_i_string_length(t6); -t8=C_fixnum_lessp(t3,t7); -t9=(C_truep(t8)?t3:t7); -t10=C_utf_compare_ci(t2,t6,C_fix(0),C_fix(0),t9); -t11=C_slot(t4,C_fix(1)); -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16157,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t6,a[5]=t7,a[6]=t11,tmp=(C_word)a,a+=7,tmp); -if(C_truep(t5)){ -/* library.scm:1999: cmp */ -t13=((C_word*)t0)[3];{ -C_word av2[5]; -av2[0]=t13; -av2[1]=t12; -av2[2]=t10; -av2[3]=t3; -av2[4]=t7; -((C_proc)C_fast_retrieve_proc(t13))(5,av2);}} -else{ -/* library.scm:1998: loop */ -t14=t1; -t15=t6; -t16=t7; -t17=t11; -t18=C_SCHEME_FALSE; -t1=t14; -t2=t15; -t3=t16; -t4=t17; -t5=t18; -goto loop;}}} - -/* k16155 in loop in k16125 in compare in k12559 in k11436 */ -static void C_ccall f_16157(C_word c,C_word *av){ -C_word tmp; -C_word 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_16157,c,av);} -/* library.scm:1998: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_16129(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1);} - -/* scheme#string-ci? in k12559 in k11436 */ -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=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 +3,c,6)))){ -C_save_and_reclaim((void*)f_16192,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16198,a[2]=((C_word)li394),tmp=(C_word)a,a+=3,tmp); -/* library.scm:2008: compare */ -f_16107(t1,t2,t3,t4,lf[502],t5);} - -/* a16197 in scheme#string-ci>? in k12559 in k11436 */ -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=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_16198,c,av);} -t5=C_fixnum_greaterp(t2,C_fix(0)); -if(C_truep(t5)){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_fixnum_lessp(t4,t3); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_eqp(t2,C_fix(0)):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* scheme#string-ci<=? in k12559 in k11436 */ -static void C_ccall f_16216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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 +3,c,6)))){ -C_save_and_reclaim((void*)f_16216,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16222,a[2]=((C_word)li396),tmp=(C_word)a,a+=3,tmp); -/* library.scm:2015: compare */ -f_16107(t1,t2,t3,t4,lf[504],t5);} - -/* a16221 in scheme#string-ci<=? in k12559 in k11436 */ -static void C_ccall f_16222(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_16222,c,av);} -t5=C_eqp(t2,C_fix(0)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_fixnum_less_or_equal_p(t3,t4):C_fixnum_lessp(t2,C_fix(0))); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* scheme#string-ci>=? in k12559 in k11436 */ -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=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 +3,c,6)))){ -C_save_and_reclaim((void*)f_16237,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+3); -t4=C_build_rest(&a,c,4,av); -C_word t5; -C_word t6; -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_16243,a[2]=((C_word)li398),tmp=(C_word)a,a+=3,tmp); -/* library.scm:2022: compare */ -f_16107(t1,t2,t3,t4,lf[506],t5);} - -/* a16242 in scheme#string-ci>=? in k12559 in k11436 */ -static void C_ccall f_16243(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_16243,c,av);} -t5=C_eqp(t2,C_fix(0)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_fixnum_greater_or_equal_p(t3,t4):C_fixnum_greaterp(t2,C_fix(0))); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* ##sys#string-append in k12559 in k11436 */ -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=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_16258,c,av);} -a=C_alloc(9); -t4=C_slot(t2,C_fix(0)); -t5=C_slot(t3,C_fix(0)); -t6=C_block_size(t4); -t7=C_fixnum_difference(t6,C_fix(1)); -t8=C_block_size(t5); -t9=C_fixnum_difference(t8,C_fix(1)); -t10=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_16274,a[2]=t4,a[3]=t7,a[4]=t5,a[5]=t9,a[6]=t2,a[7]=t3,a[8]=t1,tmp=(C_word)a,a+=9,tmp); -t11=C_fixnum_plus(t9,C_fix(1)); -/* library.scm:2034: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t10; -av2[2]=C_fixnum_plus(t7,t11); -av2[3]=C_fix(0); -tp(4,av2);}} - -/* k16272 in ##sys#string-append in k12559 in k11436 */ -static void C_ccall f_16274(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_16274,c,av);} -a=C_alloc(5); -t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),C_fix(0),((C_word*)t0)[3]); -t3=C_copy_memory_with_offset(t1,((C_word*)t0)[4],((C_word*)t0)[3],C_fix(0),((C_word*)t0)[5]); -t4=C_slot(((C_word*)t0)[6],C_fix(1)); -t5=C_slot(((C_word*)t0)[7],C_fix(1)); -t6=C_fixnum_plus(t4,t5); -t7=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_ustring(&a,2,t1,t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* scheme#string-append in k12559 in k11436 */ -static void C_ccall f_16304(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +17,c,5)))){ -C_save_and_reclaim((void*)f_16304,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; -t3=C_SCHEME_FALSE; -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|4,a[1]=(C_word)f_16308,a[2]=t1,a[3]=t4,a[4]=t6,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_16310,a[2]=t4,a[3]=t6,a[4]=t9,a[5]=((C_word)li401),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_16310(t11,t7,t2,C_fix(0),C_fix(0));} - -/* k16306 in scheme#string-append in k12559 in k11436 */ -static void C_ccall f_16308(C_word c,C_word *av){ -C_word tmp; -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_16308,c,av);} -a=C_alloc(5); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_ustring(&a,2,((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[4])[1]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop in scheme#string-append in k12559 in k11436 */ -static void f_16310(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; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_16310,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -t5=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16321,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:2046: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fixnum_plus(t3,C_fix(1)); -av2[3]=C_fix(0); -tp(4,av2);}} -else{ -t6=C_slot(t2,C_fix(0)); -t7=C_i_check_string_2(t6,lf[509]); -t8=C_slot(t6,C_fix(0)); -t9=C_block_size(t8); -t10=C_fixnum_difference(t9,C_fix(1)); -t11=C_slot(t6,C_fix(1)); -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16344,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t8,a[5]=t3,a[6]=t10,tmp=(C_word)a,a+=7,tmp); -/* library.scm:2054: loop */ -t14=t12; -t15=C_slot(t2,C_fix(1)); -t16=C_fixnum_plus(t3,t10); -t17=C_fixnum_plus(t4,t11); -t1=t14; -t2=t15; -t3=t16; -t4=t17; -goto loop;}} - -/* k16319 in loop in scheme#string-append in k12559 in k11436 */ -static void C_ccall f_16321(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_16321,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)t0)[4]); -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k16342 in loop in scheme#string-append in k12559 in k11436 */ -static void C_ccall f_16344(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16344,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_copy_memory_with_offset(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5],C_fix(0),((C_word*)t0)[6]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#string in k12559 in k11436 */ -static void C_ccall f_16362(C_word c,C_word *av){ -C_word tmp; -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_16362,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+0); -t2=C_build_rest(&a,c,2,av); -C_word t3; -/* ##sys#list->string */ -t3=*((C_word*)lf[479]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* ##sys#char->utf8-string in k12559 in k11436 */ -static void C_ccall f_16368(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_16368,c,av);} -a=C_alloc(8); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_string(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#chop in k12559 in k11436 */ -static void C_ccall f_16374(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_16374,c,av);} -a=C_alloc(5); -t4=C_i_check_fixnum_2(t3,lf[513]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16381,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)))){ -/* library.scm:2069: ##sys#error */ -t6=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[513]; -av2[3]=lf[514]; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_16381(2,av2);}}} - -/* k16379 in chicken.base#chop in k12559 in k11436 */ -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 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_16381,c,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_16389,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word)li406),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_16389(t6,((C_word*)t0)[4],((C_word*)t0)[2],t2);} - -/* loop in k16379 in chicken.base#chop in k12559 in k11436 */ -static void f_16389(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,5)))){ -C_save_and_reclaim_args((void *)trf_16389,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_16410,a[2]=((C_word*)t0)[3],a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word)li405),tmp=(C_word)a,a+=7,tmp)); -t7=((C_word*)t5)[1]; -f_16410(t7,t1,C_SCHEME_END_OF_LIST,t2,((C_word*)t0)[2]);}}} - -/* doloop2298 in loop in k16379 in chicken.base#chop in k12559 in k11436 */ -static void f_16410(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(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_16410,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_16424,a[2]=t1,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); -/* library.scm:2079: scheme#reverse */ -t7=*((C_word*)lf[50]+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); -t9=t1; -t10=t7; -t11=C_slot(t3,C_fix(1)); -t12=C_fixnum_difference(t4,C_fix(1)); -t1=t9; -t2=t10; -t3=t11; -t4=t12; -goto loop;}} - -/* k16422 in doloop2298 in loop in k16379 in chicken.base#chop in k12559 in k11436 */ -static void C_ccall f_16424(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_16424,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16428,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2079: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_16389(t3,t2,((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[5],((C_word*)t0)[6]));} - -/* k16426 in k16422 in doloop2298 in loop in k16379 in chicken.base#chop in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_16428,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp+ in k12559 in k11436 */ -static void C_ccall f_16469(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_16469,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16491,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_flonum(&a,C_ub_i_flonum_plus(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[527]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16489 in chicken.flonum#fp+ in k12559 in k11436 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_16491,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_ub_i_flonum_plus(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp- in k12559 in k11436 */ -static void C_ccall f_16493(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_16493,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16515,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_flonum(&a,C_ub_i_flonum_difference(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[529]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16513 in chicken.flonum#fp- in k12559 in k11436 */ -static void C_ccall f_16515(C_word c,C_word *av){ -C_word tmp; -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_16515,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_ub_i_flonum_difference(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp* in k12559 in k11436 */ -static void C_ccall f_16517(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_16517,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16539,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_flonum(&a,C_ub_i_flonum_times(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[531]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16537 in chicken.flonum#fp* in k12559 in k11436 */ -static void C_ccall f_16539(C_word c,C_word *av){ -C_word tmp; -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_16539,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_ub_i_flonum_times(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp/ in k12559 in k11436 */ -static void C_ccall f_16541(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_16541,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16563,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_flonum(&a,C_ub_i_flonum_quotient(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[533]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16561 in chicken.flonum#fp/ in k12559 in k11436 */ -static void C_ccall f_16563(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_16563,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_ub_i_flonum_quotient(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp*+ in k12559 in k11436 */ -static void C_ccall f_16565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(13,c,2)))){ -C_save_and_reclaim((void *)f_16565,c,av);} -a=C_alloc(13); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_16569,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_16572,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_flonump(t2))){ -t7=C_i_flonump(t3); -t8=t6; -f_16572(t8,(C_truep(t7)?C_i_flonump(t4):C_SCHEME_FALSE));} -else{ -t7=t6; -f_16572(t7,C_SCHEME_FALSE);}} - -/* k16567 in chicken.flonum#fp*+ in k12559 in k11436 */ -static void C_ccall f_16569(C_word c,C_word *av){ -C_word tmp; -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_16569,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_ub_i_flonum_multiply_add(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]),C_flonum_magnitude(((C_word*)t0)[5]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k16570 in chicken.flonum#fp*+ in k12559 in k11436 */ -static void f_16572(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,6)))){ -C_save_and_reclaim_args((void *)trf_16572,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_flonum(&a,C_ub_i_flonum_multiply_add(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]),C_flonum_magnitude(((C_word*)t0)[5]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2130: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[7]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=((C_word*)t0)[6]; -av2[2]=t2; -av2[3]=lf[535]; -av2[4]=((C_word*)t0)[3]; -av2[5]=((C_word*)t0)[4]; -av2[6]=((C_word*)t0)[5]; -tp(7,av2);}}} - -/* chicken.flonum#fpgcd in k12559 in k11436 */ -static void C_ccall f_16590(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_16590,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16612,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_flonum_gcd(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[537]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16610 in chicken.flonum#fpgcd in k12559 in k11436 */ -static void C_ccall f_16612(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_16612,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_flonum_gcd(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp/? in k12559 in k11436 */ -static void C_ccall f_16614(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_16614,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16636,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_flonum_quotient_checked(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[539]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16634 in chicken.flonum#fp/? in k12559 in k11436 */ -static void C_ccall f_16636(C_word c,C_word *av){ -C_word tmp; -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_16636,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_flonum_quotient_checked(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp= in k12559 in k11436 */ -static void C_ccall f_16638(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16638,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16660,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_ub_i_flonum_equalp(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[541]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16658 in chicken.flonum#fp= in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16660,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_ub_i_flonum_equalp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp> in k12559 in k11436 */ -static void C_ccall f_16662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16662,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16684,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_ub_i_flonum_greaterp(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[543]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16682 in chicken.flonum#fp> in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16684,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_ub_i_flonum_greaterp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp< in k12559 in k11436 */ -static void C_ccall f_16686(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16686,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16708,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_ub_i_flonum_lessp(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[545]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16706 in chicken.flonum#fp< in k12559 in k11436 */ -static void C_ccall f_16708(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16708,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_ub_i_flonum_lessp(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp>= in k12559 in k11436 */ -static void C_ccall f_16710(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16710,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16732,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_ub_i_flonum_greater_or_equal_p(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[547]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16730 in chicken.flonum#fp>= in k12559 in k11436 */ -static void C_ccall f_16732(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16732,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_ub_i_flonum_greater_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fp<= in k12559 in k11436 */ -static void C_ccall f_16734(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16734,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16756,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(t2),C_flonum_magnitude(t3)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[549]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16754 in chicken.flonum#fp<= in k12559 in k11436 */ -static void C_ccall f_16756(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16756,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpneg in k12559 in k11436 */ -static void C_ccall f_16758(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,4)))){ -C_save_and_reclaim((void *)f_16758,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16774,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_flonum_negate(&a,1,t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[551]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16772 in chicken.flonum#fpneg in k12559 in k11436 */ -static void C_ccall f_16774(C_word c,C_word *av){ -C_word tmp; -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_16774,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_flonum_negate(&a,1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpmax in k12559 in k11436 */ -static void C_ccall f_16776(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16776,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16798,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_i_flonum_max(t2,t3); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[553]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16796 in chicken.flonum#fpmax in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16798,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_flonum_max(((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpmin in k12559 in k11436 */ -static void C_ccall f_16800(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_16800,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_16822,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_i_flonum_min(t2,t3); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[555]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k16820 in chicken.flonum#fpmin in k12559 in k11436 */ -static void C_ccall f_16822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_16822,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_flonum_min(((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpfloor in k12559 in k11436 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_16824,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16840,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_floor(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[557]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16838 in chicken.flonum#fpfloor in k12559 in k11436 */ -static void C_ccall f_16840(C_word c,C_word *av){ -C_word tmp; -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_16840,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_floor(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fptruncate in k12559 in k11436 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_16842,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16858,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_trunc(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[559]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16856 in chicken.flonum#fptruncate in k12559 in k11436 */ -static void C_ccall f_16858(C_word c,C_word *av){ -C_word tmp; -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_16858,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_trunc(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpround in k12559 in k11436 */ -static void C_ccall f_16860(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,4)))){ -C_save_and_reclaim((void *)f_16860,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16876,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_round(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[561]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16874 in chicken.flonum#fpround in k12559 in k11436 */ -static void C_ccall f_16876(C_word c,C_word *av){ -C_word tmp; -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_16876,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_round(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpceiling in k12559 in k11436 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_16878,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16894,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_ceil(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[563]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16892 in chicken.flonum#fpceiling in k12559 in k11436 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_16894,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_ceil(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpsin in k12559 in k11436 */ -static void C_ccall f_16896(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_16896,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16912,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_sin(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[565]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16910 in chicken.flonum#fpsin in k12559 in k11436 */ -static void C_ccall f_16912(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_16912,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_sin(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpcos in k12559 in k11436 */ -static void C_ccall f_16914(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_16914,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16930,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_cos(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[567]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16928 in chicken.flonum#fpcos in k12559 in k11436 */ -static void C_ccall f_16930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_16930,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_cos(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fptan in k12559 in k11436 */ -static void C_ccall f_16932(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_16932,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16948,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_tan(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[569]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16946 in chicken.flonum#fptan in k12559 in k11436 */ -static void C_ccall f_16948(C_word c,C_word *av){ -C_word tmp; -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_16948,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_tan(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpasin in k12559 in k11436 */ -static void C_ccall f_16950(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_16950,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16966,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_asin(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[571]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16964 in chicken.flonum#fpasin in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_16966,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_asin(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpacos in k12559 in k11436 */ -static void C_ccall f_16968(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -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_16968,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_16984,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_acos(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[573]; -av2[4]=t2; -tp(5,av2);}}} - -/* k16982 in chicken.flonum#fpacos in k12559 in k11436 */ -static void C_ccall f_16984(C_word c,C_word *av){ -C_word tmp; -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_16984,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_acos(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpatan in k12559 in k11436 */ -static void C_ccall f_16986(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word *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_16986,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17002,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_atan(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[575]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17000 in chicken.flonum#fpatan in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_17002,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_atan(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpatan2 in k12559 in k11436 */ -static void C_ccall f_17004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_17004,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17026,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_flonum(&a,C_atan2(C_flonum_magnitude(t2),C_flonum_magnitude(t3))); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[577]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k17024 in chicken.flonum#fpatan2 in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_17026,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_atan2(C_flonum_magnitude(((C_word*)t0)[3]),C_flonum_magnitude(((C_word*)t0)[4]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpsinh in k12559 in k11436 */ -static void C_ccall f_17028(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,4)))){ -C_save_and_reclaim((void *)f_17028,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17044,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_sinh(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[579]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17042 in chicken.flonum#fpsinh in k12559 in k11436 */ -static void C_ccall f_17044(C_word c,C_word *av){ -C_word tmp; -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_17044,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_sinh(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpcosh in k12559 in k11436 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_17046,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17062,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_cosh(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[581]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17060 in chicken.flonum#fpcosh in k12559 in k11436 */ -static void C_ccall f_17062(C_word c,C_word *av){ -C_word tmp; -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_17062,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_cosh(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fptanh in k12559 in k11436 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_17064,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17080,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_tanh(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[583]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17078 in chicken.flonum#fptanh in k12559 in k11436 */ -static void C_ccall f_17080(C_word c,C_word *av){ -C_word tmp; -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_17080,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_tanh(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpasinh in k12559 in k11436 */ -static void C_ccall f_17082(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_17082,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17098,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_asinh(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[585]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17096 in chicken.flonum#fpasinh in k12559 in k11436 */ -static void C_ccall f_17098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_17098,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_asinh(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpacosh in k12559 in k11436 */ -static void C_ccall f_17100(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_17100,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17116,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_acosh(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[587]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17114 in chicken.flonum#fpacosh in k12559 in k11436 */ -static void C_ccall f_17116(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_17116,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_acosh(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpatanh in k12559 in k11436 */ -static void C_ccall f_17118(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_17118,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17134,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_atanh(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[589]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17132 in chicken.flonum#fpatanh in k12559 in k11436 */ -static void C_ccall f_17134(C_word c,C_word *av){ -C_word tmp; -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_17134,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_atanh(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpexp in k12559 in k11436 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_17136,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17152,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_exp(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[591]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17150 in chicken.flonum#fpexp in k12559 in k11436 */ -static void C_ccall f_17152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_17152,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_exp(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpexpt in k12559 in k11436 */ -static void C_ccall f_17154(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_17154,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17176,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=C_i_flonump(t2); -t6=(C_truep(t5)?C_i_flonump(t3):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_flonum_expt(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2110: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t7; -av2[3]=lf[593]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}}} - -/* k17174 in chicken.flonum#fpexpt in k12559 in k11436 */ -static void C_ccall f_17176(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_17176,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_flonum_expt(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fplog in k12559 in k11436 */ -static void C_ccall f_17178(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,4)))){ -C_save_and_reclaim((void *)f_17178,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17194,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_log(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[595]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17192 in chicken.flonum#fplog in k12559 in k11436 */ -static void C_ccall f_17194(C_word c,C_word *av){ -C_word tmp; -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_17194,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_log(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpsqrt in k12559 in k11436 */ -static void C_ccall f_17196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_17196,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17212,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_sqrt(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[597]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17210 in chicken.flonum#fpsqrt in k12559 in k11436 */ -static void C_ccall f_17212(C_word c,C_word *av){ -C_word tmp; -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_17212,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_sqrt(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpabs in k12559 in k11436 */ -static void C_ccall f_17214(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,4)))){ -C_save_and_reclaim((void *)f_17214,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17230,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_flonum(&a,C_fabs(C_flonum_magnitude(t2))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[599]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17228 in chicken.flonum#fpabs in k12559 in k11436 */ -static void C_ccall f_17230(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_17230,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_flonum(&a,C_fabs(C_flonum_magnitude(((C_word*)t0)[3]))); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#fpinteger? in k12559 in k11436 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_17232,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17248,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_u_i_fpintegerp(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_fix((C_word)C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR); -/* library.scm:2106: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=lf[601]; -av2[4]=t2; -tp(5,av2);}}} - -/* k17246 in chicken.flonum#fpinteger? in k12559 in k11436 */ -static void C_ccall f_17248(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_17248,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_u_i_fpintegerp(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.flonum#flonum-print-precision in k12559 in k11436 */ -static void C_ccall f_17250(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_17250,c,av);} -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0)); -t4=C_get_print_precision(); -if(C_truep(t3)){ -t5=C_i_check_fixnum_2(t3,lf[603]); -t6=C_set_print_precision(t3); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* make-complex in k12559 in k11436 */ -static void f_17268(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_17268,3,t1,t2,t3);} -a=C_alloc(5); -t4=C_eqp(t3,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17278,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -t6=t5;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t4; -f_17278(2,av2);}} -else{ -if(C_truep(C_i_flonump(t3))){ -/* library.scm:2284: chicken.flonum#fp= */ -t6=*((C_word*)lf[540]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -av2[3]=lf[605]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=t5;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_17278(2,av2);}}}} - -/* k17276 in make-complex in k12559 in k11436 */ -static void C_ccall f_17278(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_17278,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17282,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_i_inexactp(((C_word*)t0)[4]))){ -/* library.scm:2287: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -f_17282(2,av2);}}}} - -/* k17280 in k17276 in make-complex in k12559 in k11436 */ -static void C_ccall f_17282(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_17282,c,av);} -a=C_alloc(14); -if(C_truep(C_i_inexactp(((C_word*)t0)[2]))){ -t2=C_a_i_exact_to_inexact(&a,1,((C_word*)t0)[3]); -t3=C_a_i_cplxnum(&a,2,t1,t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=C_a_i_cplxnum(&a,2,t1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* scheme#make-rectangular in k12559 in k11436 */ -static void C_ccall f_17304(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_17304,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17308,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2292: ##sys#check-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[428]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[428]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[607]; -tp(4,av2);}} - -/* k17306 in scheme#make-rectangular in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_17308,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17311,a[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:2293: ##sys#check-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[428]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[428]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[607]; -tp(4,av2);}} - -/* k17309 in k17306 in scheme#make-rectangular in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17311,c,av);} -/* library.scm:2294: make-complex */ -f_17268(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* scheme#make-polar in k12559 in k11436 */ -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=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_17316,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17320,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2298: ##sys#check-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[428]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[428]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[609]; -tp(4,av2);}} - -/* k17318 in scheme#make-polar in k12559 in k11436 */ -static void C_ccall f_17320(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17320,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17323,a[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:2299: ##sys#check-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[428]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[428]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[609]; -tp(4,av2);}} - -/* k17321 in k17318 in scheme#make-polar in k12559 in k11436 */ -static void C_ccall f_17323(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17323,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2300: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k17324 in k17321 in k17318 in scheme#make-polar in k12559 in k11436 */ -static void C_ccall f_17326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(74,c,3)))){ -C_save_and_reclaim((void *)f_17326,c,av);} -a=C_alloc(74); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],C_a_i_cos(&a,1,t1)); -t3=C_s_a_i_times(&a,2,((C_word*)t0)[2],C_a_i_sin(&a,1,t1)); -/* library.scm:2301: make-complex */ -f_17268(((C_word*)t0)[3],t2,t3);} - -/* scheme#real-part in k12559 in k11436 */ -static void C_ccall f_17339(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_17339,c,av);} -if(C_truep(C_i_cplxnump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_u_i_cplxnum_real(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_numberp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:2309: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[611]; -tp(4,av2);}}}} - -/* scheme#imag-part in k12559 in k11436 */ -static void C_ccall f_17362(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_17362,c,av);} -if(C_truep(C_i_cplxnump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_u_i_cplxnum_imag(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[605]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_numberp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:2316: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[613]; -tp(4,av2);}}}}} - -/* scheme#angle in k12559 in k11436 */ -static void C_ccall f_17388(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17388,c,av);} -a=C_alloc(4); -t3=C_i_check_number_2(t2,lf[615]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17397,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2322: scheme#imag-part */ -t5=*((C_word*)lf[612]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k17395 in scheme#angle in k12559 in k11436 */ -static void C_ccall f_17397(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_17397,c,av);} -a=C_alloc(15); -t2=C_a_i_exact_to_inexact(&a,1,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17402,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2323: scheme#real-part */ -t4=*((C_word*)lf[610]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k17400 in k17395 in scheme#angle in k12559 in k11436 */ -static void C_ccall f_17402(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_17402,c,av);} -a=C_alloc(15); -t2=C_a_i_exact_to_inexact(&a,1,t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_atan2(&a,2,((C_word*)t0)[3],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#magnitude in k12559 in k11436 */ -static void C_ccall f_17404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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(95,c,3)))){ -C_save_and_reclaim((void *)f_17404,c,av);} -a=C_alloc(95); -if(C_truep(C_i_cplxnump(t2))){ -t3=C_u_i_cplxnum_real(t2); -t4=C_u_i_cplxnum_imag(t2); -t5=C_s_a_i_times(&a,2,t3,t3); -t6=C_s_a_i_times(&a,2,t4,t4); -t7=C_s_a_i_plus(&a,2,t5,t6); -/* library.scm:2330: scheme#sqrt */ -t8=*((C_word*)lf[617]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t1; -av2[2]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -if(C_truep(C_i_numberp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_abs(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:2332: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[618]; -tp(4,av2);}}}} - -/* ratnum in k12559 in k11436 */ -static C_word f_17448(C_word *a,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_stack_overflow_check;{} -switch(t2){ -case C_fix(1): -return(t1); -case C_fix(-1): -return(C_s_a_u_i_integer_negate(&a,1,t1)); -default: -if(C_truep(C_i_negativep(t2))){ -t3=C_s_a_u_i_integer_negate(&a,1,t1); -t4=C_s_a_u_i_integer_negate(&a,1,t2); -return(C_a_i_ratnum(&a,2,t3,t4));} -else{ -return(C_a_i_ratnum(&a,2,t1,t2));}}} - -/* scheme#numerator in k12559 in k11436 */ -static void C_ccall f_17494(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,5)))){ -C_save_and_reclaim((void *)f_17494,c,av);} -a=C_alloc(6); -if(C_truep(C_i_exact_integerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -if(C_truep(C_i_not(C_i_finitep(t2)))){ -/* library.scm:2352: ##sys#error-bad-inexact */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[441]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[441]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[621]; -tp(4,av2);}} -else{ -if(C_truep(C_u_i_fpintegerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17518,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17522,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2354: scheme#inexact->exact */ -t5=*((C_word*)lf[622]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}} -else{ -if(C_truep(C_i_ratnump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_u_i_ratnum_num(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:2356: ##sys#signal-hook */ -t3=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=lf[621]; -av2[4]=lf[623]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}}} - -/* k17516 in scheme#numerator in k12559 in k11436 */ -static void C_ccall f_17518(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,1)))){ -C_save_and_reclaim((void *)f_17518,c,av);} -a=C_alloc(11); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_exact_to_inexact(&a,1,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k17520 in scheme#numerator in k12559 in k11436 */ -static void C_ccall f_17522(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_17522,c,av);} -/* library.scm:2354: scheme#numerator */ -t2=*((C_word*)lf[620]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* scheme#denominator in k12559 in k11436 */ -static void C_ccall f_17540(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_17540,c,av);} -a=C_alloc(6); -if(C_truep(C_i_exact_integerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fix(1); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -if(C_truep(C_i_not(C_i_finitep(t2)))){ -/* library.scm:2364: ##sys#error-bad-inexact */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[441]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[441]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[625]; -tp(4,av2);}} -else{ -if(C_truep(C_u_i_fpintegerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[626]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17564,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17568,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2366: scheme#inexact->exact */ -t5=*((C_word*)lf[622]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}} -else{ -if(C_truep(C_i_ratnump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_u_i_ratnum_denom(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:2368: ##sys#signal-hook */ -t3=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=lf[621]; -av2[4]=lf[627]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}}}} - -/* k17562 in scheme#denominator in k12559 in k11436 */ -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(11,c,1)))){ -C_save_and_reclaim((void *)f_17564,c,av);} -a=C_alloc(11); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_exact_to_inexact(&a,1,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k17566 in scheme#denominator in k12559 in k11436 */ -static void C_ccall f_17568(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_17568,c,av);} -/* library.scm:2366: scheme#denominator */ -t2=*((C_word*)lf[624]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* ##sys#extended-signum in k12559 in k11436 */ -static void C_ccall f_17586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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(26,c,3)))){ -C_save_and_reclaim((void *)f_17586,c,av);} -a=C_alloc(26); -if(C_truep(C_i_ratnump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_u_i_integer_signum(C_u_i_ratnum_num(t2)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_cplxnump(t2))){ -t3=C_u_i_cplxnum_imag(t2); -t4=C_a_i_exact_to_inexact(&a,1,t3); -t5=C_u_i_cplxnum_real(t2); -t6=C_a_i_exact_to_inexact(&a,1,t5); -t7=C_flonum(&a,C_atan2(C_flonum_magnitude(t4),C_flonum_magnitude(t6))); -/* library.scm:2375: scheme#make-polar */ -t8=*((C_word*)lf[608]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t8; -av2[1]=t1; -av2[2]=C_fix(1); -av2[3]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} -else{ -/* library.scm:2376: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[629]; -tp(4,av2);}}}} - -/* doloop2869 in deliver in scheme#inexact->exact in k12559 in k11436 */ -static void f_17627(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_17627,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_u_i_fpintegerp(t2))){ -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_17638,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2384: chicken.flonum#fp* */ -t5=*((C_word*)lf[530]+1);{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[633]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k17636 in doloop2869 in deliver in scheme#inexact->exact in k12559 in k11436 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17638,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_17627(t2,((C_word*)t0)[3],t1,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* deliver in scheme#inexact->exact in k12559 in k11436 */ -static void f_17644(C_word t0,C_word t1,C_word t2,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_17644,4,t0,t1,t2,t3);} -a=C_alloc(15); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17648,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_17679,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_17627,a[2]=t7,a[3]=((C_word)li458),tmp=(C_word)a,a+=4,tmp)); -t9=((C_word*)t7)[1]; -f_17627(t9,t5,t2,C_fix(0));} - -/* k17646 in deliver in scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17648(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_17648,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_17675,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],tmp=(C_word)a,a+=7,tmp); -/* library.scm:2390: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k17660 in k17673 in k17646 in deliver in scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17662,c,av);} -/* library.scm:2392: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k17673 in k17646 in deliver in scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17675(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(42,c,3)))){ -C_save_and_reclaim((void *)f_17675,c,av);} -a=C_alloc(42); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -if(C_truep(C_i_finitep(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17662,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -t4=C_s_a_u_i_flo_to_int(&a,1,t2); -/* library.scm:2392: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=((C_word*)t0)[5]; -tp(4,av2);}} -else{ -/* library.scm:2393: ##sys#error-bad-inexact */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[441]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[441]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[6]; -av2[3]=lf[631]; -tp(4,av2);}}} - -/* k17677 in deliver in scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17679(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17679,c,av);} -/* library.scm:2389: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[632]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_fix(2); -av2[3]=t1; -tp(4,av2);}} - -/* k17694 in k17698 in k17704 in scheme#inexact->exact in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17696,c,av);} -/* library.scm:2397: deliver */ -t2=((C_word*)t0)[2]; -f_17644(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k17698 in k17704 in scheme#inexact->exact in k12559 in k11436 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ -C_save_and_reclaim((void *)f_17700,c,av);} -a=C_alloc(38); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17696,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2400: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t3; -av2[2]=C_fix(2); -av2[3]=*((C_word*)lf[520]+1); -tp(4,av2);}} - -/* k17704 in scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17706(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_17706,c,av);} -a=C_alloc(5); -t2=(C_truep(t1)?C_ub_i_flonum_greaterp(C_flonum_magnitude(((C_word*)t0)[2]),(double)-1.0):C_SCHEME_FALSE); -if(C_truep(t2)){ -t3=(*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); -/* library.scm:2397: scheme#expt */ -t4=*((C_word*)lf[634]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[633]; -av2[3]=*((C_word*)lf[520]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -/* library.scm:2401: deliver */ -t3=((C_word*)t0)[3]; -f_17644(t3,((C_word*)t0)[4],((C_word*)t0)[2],C_fix(1));}} - -/* scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17710(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,4)))){ -C_save_and_reclaim((void *)f_17710,c,av);} -a=C_alloc(9); -if(C_truep(C_i_exactp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -if(C_truep(C_u_i_fpintegerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_u_i_flo_to_int(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_u_i_flonum_finitep(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17644,a[2]=t2,a[3]=((C_word)li459),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17706,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2395: chicken.flonum#fp< */ -t5=*((C_word*)lf[544]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[626]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -/* library.scm:2409: ##sys#error-bad-inexact */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[441]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[441]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[631]; -tp(4,av2);}}}} -else{ -if(C_truep(C_i_cplxnump(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17750,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2411: scheme#inexact->exact */ -t4=*((C_word*)lf[622]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_u_i_cplxnum_real(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -/* library.scm:2413: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[631]; -tp(4,av2);}}}}} - -/* k17748 in scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17750(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17750,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17754,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2412: scheme#inexact->exact */ -t3=*((C_word*)lf[622]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_cplxnum_imag(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k17752 in k17748 in scheme#inexact->exact in k12559 in k11436 */ -static void C_ccall f_17754(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17754,c,av);} -/* library.scm:2411: make-complex */ -f_17268(((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* chicken.bitwise#bitwise-not in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_17774,c,av);} -a=C_alloc(5); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_bitwise_not(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.bitwise#bit->boolean in k12559 in k11436 */ -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=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_17777,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_bit_to_bool(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.bitwise#integer-length in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_17780,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_integer_length(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.bitwise#arithmetic-shift in k12559 in k11436 */ -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=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_17783,c,av);} -a=C_alloc(5); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_s_a_i_arithmetic_shift(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#/ in k12559 in k11436 */ -static void C_ccall f_17786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_17786,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_rest_nullp(c,3))){ -/* library.scm:2445: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t1; -av2[2]=C_fix(1); -av2[3]=t2; -tp(4,av2);}} -else{ -t4=C_slot(t3,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17807,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2447: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=C_slot(t3,C_fix(0)); -tp(4,av2);}}} - -/* k17805 in scheme#/ in k12559 in k11436 */ -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,4)))){ -C_save_and_reclaim((void *)f_17807,c,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_17809,a[2]=t3,a[3]=((C_word)li468),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_17809(t5,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* loop in k17805 in scheme#/ in k12559 in k11436 */ -static void f_17809(C_word 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(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_17809,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]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_slot(t2,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17827,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2451: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=t3; -av2[3]=C_slot(t2,C_fix(0)); -tp(4,av2);}}} - -/* k17825 in loop in k17805 in scheme#/ in k12559 in k11436 */ -static void C_ccall f_17827(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17827,c,av);} -/* library.scm:2450: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_17809(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17837(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ -C_save_and_reclaim((void *)f_17837,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17841,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t5=C_eqp(t3,C_fix(0)); -if(C_truep(t5)){ -t6=C_fix((C_word)C_DIVISION_BY_ZERO_ERROR); -/* library.scm:2458: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t4; -av2[2]=t6; -av2[3]=lf[645]; -av2[4]=t2; -av2[5]=t3; -tp(6,av2);}} -else{ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_17841(2,av2);}}} - -/* k17839 in ##sys#/-2 in k12559 in k11436 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word 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(117,c,4)))){ -C_save_and_reclaim((void *)f_17841,c,av);} -a=C_alloc(117); -t2=(C_truep(C_i_exact_integerp(((C_word*)t0)[2]))?C_i_exact_integerp(((C_word*)t0)[3]):C_SCHEME_FALSE); -if(C_truep(t2)){ -t3=C_s_a_u_i_integer_gcd(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t4=C_s_a_u_i_integer_quotient(&a,2,((C_word*)t0)[2],t3); -t5=C_s_a_u_i_integer_quotient(&a,2,((C_word*)t0)[3],t3); -/* library.scm:2461: ratnum */ -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=( -/* library.scm:2461: ratnum */ - f_17448(C_a_i(&a,21),t4,t5) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t3=C_i_cplxnump(((C_word*)t0)[2]); -t4=(C_truep(t3)?t3:C_i_cplxnump(((C_word*)t0)[3])); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17879,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* library.scm:2464: scheme#real-part */ -t6=*((C_word*)lf[610]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t5=C_i_flonump(((C_word*)t0)[2]); -t6=(C_truep(t5)?t5:C_i_flonump(((C_word*)t0)[3])); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17945,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2472: scheme#exact->inexact */ -t8=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -if(C_truep(C_i_ratnump(((C_word*)t0)[2]))){ -if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ -t7=C_u_i_ratnum_num(((C_word*)t0)[2]); -t8=C_u_i_ratnum_denom(((C_word*)t0)[2]); -t9=C_u_i_ratnum_num(((C_word*)t0)[3]); -t10=C_u_i_ratnum_denom(((C_word*)t0)[3]); -t11=C_s_a_u_i_integer_gcd(&a,2,t7,t9); -t12=C_s_a_u_i_integer_gcd(&a,2,t8,t10); -t13=C_s_a_i_quotient(&a,2,t7,t11); -t14=C_s_a_i_quotient(&a,2,t10,t12); -t15=C_s_a_i_times(&a,2,t13,t14); -t16=C_s_a_i_quotient(&a,2,t8,t12); -t17=C_s_a_i_quotient(&a,2,t9,t11); -t18=C_s_a_i_times(&a,2,t16,t17); -/* library.scm:2482: ratnum */ -t19=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t19; -av2[1]=( -/* library.scm:2482: ratnum */ - f_17448(C_a_i(&a,21),t15,t18) -); -((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} -else{ -t7=C_u_i_ratnum_num(((C_word*)t0)[2]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18026,a[2]=t7,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:2488: ##sys#internal-gcd */ -f_19864(t8,lf[645],t7,((C_word*)t0)[3]);}} -else{ -if(C_truep(C_i_ratnump(((C_word*)t0)[3]))){ -t7=C_u_i_ratnum_num(((C_word*)t0)[3]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18065,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t7,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* library.scm:2499: ##sys#internal-gcd */ -f_19864(t8,lf[645],((C_word*)t0)[2],t7);} -else{ -t7=C_i_numberp(((C_word*)t0)[2]); -if(C_truep(C_i_not(t7))){ -/* library.scm:2505: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[440]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[645]; -tp(4,av2);}} -else{ -/* library.scm:2506: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[440]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[645]; -tp(4,av2);}}}}}}}} - -/* k17877 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17879(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17879,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_17882,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:2464: scheme#imag-part */ -t3=*((C_word*)lf[612]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k17880 in k17877 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17882(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17882,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17885,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:2465: scheme#real-part */ -t3=*((C_word*)lf[610]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k17883 in k17880 in k17877 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17885(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17885,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_17888,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:2465: scheme#imag-part */ -t3=*((C_word*)lf[612]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k17886 in k17883 in k17880 in k17877 in k17839 in ##sys#/-2 in k12559 in k11436 */ -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(198,c,3)))){ -C_save_and_reclaim((void *)f_17888,c,av);} -a=C_alloc(198); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[2]); -t3=C_s_a_i_times(&a,2,t1,t1); -t4=C_s_a_i_plus(&a,2,t2,t3); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_17894,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]=t4,tmp=(C_word)a,a+=8,tmp); -t6=C_s_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]); -t7=C_s_a_i_times(&a,2,((C_word*)t0)[4],t1); -t8=C_s_a_i_plus(&a,2,t6,t7); -/* library.scm:2467: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=t8; -av2[3]=t4; -tp(4,av2);}} - -/* k17892 in k17886 in k17883 in k17880 in k17877 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(99,c,3)))){ -C_save_and_reclaim((void *)f_17894,c,av);} -a=C_alloc(99); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17897,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_s_a_i_times(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -t4=C_s_a_i_times(&a,2,((C_word*)t0)[5],((C_word*)t0)[6]); -t5=C_s_a_i_minus(&a,2,t3,t4); -/* library.scm:2468: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t2; -av2[2]=t5; -av2[3]=((C_word*)t0)[7]; -tp(4,av2);}} - -/* k17895 in k17892 in k17886 in k17883 in k17880 in k17877 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17897(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17897,c,av);} -/* library.scm:2469: make-complex */ -f_17268(((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* k17943 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17945(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_17945,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_17949,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2472: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k17947 in k17943 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_17949(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_17949,c,av);} -/* library.scm:2472: chicken.flonum#fp/ */ -t2=*((C_word*)lf[532]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k18024 in k17839 in ##sys#/-2 in k12559 in k11436 */ -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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(64,c,3)))){ -C_save_and_reclaim((void *)f_18026,c,av);} -a=C_alloc(64); -t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); -t3=C_u_i_ratnum_denom(((C_word*)t0)[3]); -t4=C_s_a_i_quotient(&a,2,((C_word*)t0)[4],t1); -t5=C_s_a_i_times(&a,2,t3,t4); -if(C_truep(C_i_flonump(t5))){ -/* library.scm:2492: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[5]; -av2[2]=t2; -av2[3]=t5; -tp(4,av2);}} -else{ -/* library.scm:2493: ratnum */ -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=( -/* library.scm:2493: ratnum */ - f_17448(C_a_i(&a,21),t2,t5) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k18063 in k17839 in ##sys#/-2 in k12559 in k11436 */ -static void C_ccall f_18065(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(64,c,3)))){ -C_save_and_reclaim((void *)f_18065,c,av);} -a=C_alloc(64); -t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); -t3=C_u_i_ratnum_denom(((C_word*)t0)[3]); -t4=C_s_a_i_times(&a,2,t2,t3); -t5=C_s_a_i_quotient(&a,2,((C_word*)t0)[4],t1); -if(C_truep(C_i_flonump(t5))){ -/* library.scm:2503: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[5]; -av2[2]=t4; -av2[3]=t5; -tp(4,av2);}} -else{ -/* library.scm:2504: ratnum */ -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=( -/* library.scm:2504: ratnum */ - f_17448(C_a_i(&a,21),t4,t5) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* scheme#floor in k12559 in k11436 */ -static void C_ccall f_18120(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(34,c,3)))){ -C_save_and_reclaim((void *)f_18120,c,av);} -a=C_alloc(34); -if(C_truep(C_i_exact_integerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -/* library.scm:2511: chicken.flonum#fpfloor */ -t3=*((C_word*)lf[556]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -if(C_truep(C_i_ratnump(t2))){ -t3=C_u_i_ratnum_num(t2); -t4=C_u_i_ratnum_denom(t2); -t5=C_s_a_i_quotient(&a,2,t3,t4); -t6=C_i_greater_or_equalp(t3,C_fix(0)); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(C_truep(t6)?t5:C_s_a_i_minus(&a,2,t5,C_fix(1))); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -/* library.scm:2516: ##sys#error-bad-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[429]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[429]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[647]; -tp(4,av2);}}}}} - -/* scheme#ceiling in k12559 in k11436 */ -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=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(34,c,3)))){ -C_save_and_reclaim((void *)f_18165,c,av);} -a=C_alloc(34); -if(C_truep(C_i_exact_integerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -/* library.scm:2521: chicken.flonum#fpceiling */ -t3=*((C_word*)lf[562]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -if(C_truep(C_i_ratnump(t2))){ -t3=C_u_i_ratnum_num(t2); -t4=C_u_i_ratnum_denom(t2); -t5=C_s_a_i_quotient(&a,2,t3,t4); -t6=C_i_greater_or_equalp(t3,C_fix(0)); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_s_a_i_plus(&a,2,t5,C_fix(1)):t5); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -/* library.scm:2526: ##sys#error-bad-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[429]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[429]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[649]; -tp(4,av2);}}}}} - -/* scheme#truncate in k12559 in k11436 */ -static void C_ccall f_18210(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_18210,c,av);} -a=C_alloc(5); -if(C_truep(C_i_exact_integerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -/* library.scm:2531: chicken.flonum#fptruncate */ -t3=*((C_word*)lf[558]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -if(C_truep(C_i_ratnump(t2))){ -t3=C_u_i_ratnum_num(t2); -t4=C_u_i_ratnum_denom(t2); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_s_a_i_quotient(&a,2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -/* library.scm:2535: ##sys#error-bad-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[429]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[429]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[651]; -tp(4,av2);}}}}} - -/* scheme#round in k12559 in k11436 */ -static void C_ccall f_18247(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(36,c,3)))){ -C_save_and_reclaim((void *)f_18247,c,av);} -a=C_alloc(36); -if(C_truep(C_i_exact_integerp(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_flonump(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_flonum_round_proper(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_ratnump(t2))){ -t3=C_a_i_ratnum(&a,2,C_fix(1),C_fix(2)); -t4=C_s_a_i_plus(&a,2,t2,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18267,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2544: scheme#floor */ -t6=*((C_word*)lf[646]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -/* library.scm:2546: ##sys#error-bad-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[429]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[429]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[653]; -tp(4,av2);}}}}} - -/* k18265 in scheme#round in k12559 in k11436 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ -C_save_and_reclaim((void *)f_18267,c,av);} -a=C_alloc(29); -t2=C_i_nequalp(t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?(C_truep(C_i_oddp(t1))?C_s_a_i_minus(&a,2,t1,C_fix(1)):t1):t1); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* find-ratio-between in k12559 in k11436 */ -static void f_18291(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word 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(67,0,4)))){ -C_save_and_reclaim_args((void *)trf_18291,3,t1,t2,t3);} -a=C_alloc(67); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18294,a[2]=t5,a[3]=((C_word)li475),tmp=(C_word)a,a+=4,tmp)); -if(C_truep(C_i_lessp(t3,t2))){ -/* library.scm:2559: find-ratio-between */ -t12=t1; -t13=t3; -t14=t2; -t1=t12; -t2=t13; -t3=t14; -goto loop;} -else{ -t7=C_i_lessp(t2,t3); -if(C_truep(C_i_not(t7))){ -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_a_i_list2(&a,2,t2,C_fix(1)); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -if(C_truep(C_i_positivep(t2))){ -/* library.scm:2561: sr */ -t8=((C_word*)t5)[1]; -f_18294(t8,t1,t2,t3);} -else{ -if(C_truep(C_i_negativep(t3))){ -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18405,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t9=C_s_a_i_negate(&a,1,t3); -t10=C_s_a_i_negate(&a,1,t2); -/* library.scm:2562: sr */ -t11=((C_word*)t5)[1]; -f_18294(t11,t8,t9,t10);} -else{ -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=lf[655]; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}}}} - -/* sr in find-ratio-between in k12559 in k11436 */ -static void f_18294(C_word 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_18294,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18298,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18373,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2550: scheme#floor */ -t6=*((C_word*)lf[646]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k18296 in sr in find-ratio-between in k12559 in k11436 */ -static void C_ccall f_18298(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_18298,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_18301,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_18369,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2551: scheme#floor */ -t4=*((C_word*)lf[646]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k18299 in k18296 in sr in find-ratio-between in k12559 in k11436 */ -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 t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(39,c,3)))){ -C_save_and_reclaim((void *)f_18301,c,av);} -a=C_alloc(39); -t2=C_i_lessp(((C_word*)t0)[2],((C_word*)t0)[3]); -if(C_truep(C_i_not(t2))){ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list2(&a,2,((C_word*)t0)[2],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_nequalp(((C_word*)t0)[2],t1))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18319,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_18342,a[2]=((C_word*)t0)[5],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -t5=C_s_a_i_minus(&a,2,((C_word*)t0)[6],t1); -/* library.scm:2554: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t4; -av2[2]=C_fix(1); -av2[3]=t5; -tp(4,av2);}} -else{ -t3=C_s_a_i_plus(&a,2,C_fix(1),((C_word*)t0)[2]); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_list2(&a,2,t3,C_fix(1)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} - -/* k18317 in k18299 in k18296 in sr in find-ratio-between in k12559 in k11436 */ -static void C_ccall f_18319(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(68,c,1)))){ -C_save_and_reclaim((void *)f_18319,c,av);} -a=C_alloc(68); -t2=C_i_cadr(t1); -t3=C_u_i_car(t1); -t4=C_s_a_i_times(&a,2,((C_word*)t0)[2],t3); -t5=C_s_a_i_plus(&a,2,t2,t4); -t6=C_u_i_car(t1); -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_list2(&a,2,t5,t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* k18340 in k18299 in k18296 in sr in find-ratio-between in k12559 in k11436 */ -static void C_ccall f_18342(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ -C_save_and_reclaim((void *)f_18342,c,av);} -a=C_alloc(34); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18346,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t3=C_s_a_i_minus(&a,2,((C_word*)t0)[4],((C_word*)t0)[5]); -/* library.scm:2555: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t2; -av2[2]=C_fix(1); -av2[3]=t3; -tp(4,av2);}} - -/* k18344 in k18340 in k18299 in k18296 in sr in find-ratio-between in k12559 in k11436 */ -static void C_ccall f_18346(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_18346,c,av);} -/* library.scm:2554: sr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_18294(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k18367 in k18296 in sr in find-ratio-between in k12559 in k11436 */ -static void C_ccall f_18369(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_18369,c,av);} -/* library.scm:2551: scheme#inexact->exact */ -t2=*((C_word*)lf[622]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k18371 in sr in find-ratio-between in k12559 in k11436 */ -static void C_ccall f_18373(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_18373,c,av);} -/* library.scm:2550: scheme#inexact->exact */ -t2=*((C_word*)lf[622]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k18403 in find-ratio-between in k12559 in k11436 */ -static void C_ccall f_18405(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(35,c,1)))){ -C_save_and_reclaim((void *)f_18405,c,av);} -a=C_alloc(35); -t2=C_i_car(t1); -t3=C_s_a_i_negate(&a,1,t2); -t4=C_i_cadr(t1); -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list2(&a,2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#rationalize in k12559 in k11436 */ -static void C_ccall f_18441(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(66,c,3)))){ -C_save_and_reclaim((void *)f_18441,c,av);} -a=C_alloc(66); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18445,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18464,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -t6=C_s_a_i_minus(&a,2,t2,t3); -t7=C_s_a_i_plus(&a,2,t2,t3); -/* library.scm:2566: find-ratio-between */ -f_18291(t5,t6,t7);} - -/* k18443 in scheme#rationalize in k12559 in k11436 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_18445,c,av);} -t2=C_i_inexactp(((C_word*)t0)[2]); -if(C_truep(t2)){ -if(C_truep(t2)){ -/* library.scm:2572: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} -else{ -if(C_truep(C_i_inexactp(((C_word*)t0)[4]))){ -/* library.scm:2572: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k18462 in scheme#rationalize in k12559 in k11436 */ -static void C_ccall f_18464(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_18464,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[630]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* scheme#max in k12559 in k11436 */ -static void C_ccall f_18466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_18466,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+6); -t3=C_build_rest(&a,c,3,av); -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -t4=C_i_flonump(t2); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18473,a[2]=t6,a[3]=((C_word)li478),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_18473(t8,t1,t4,t2,t3);} - -/* loop in scheme#max in k12559 in k11436 */ -static void f_18473(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ -C_save_and_reclaim_args((void *)trf_18473,5,t0,t1,t2,t3,t4);} -a=C_alloc(11); -t5=C_i_check_number_2(t3,lf[658]); -if(C_truep(C_i_nullp(t4))){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t2)?C_a_i_exact_to_inexact(&a,1,t3):t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_slot(t4,C_fix(0)); -t7=(C_truep(t2)?t2:C_i_flonump(t6)); -t8=C_i_greaterp(t6,t3); -t9=(C_truep(t8)?t6:t3); -/* library.scm:2582: loop */ -t11=t1; -t12=t7; -t13=t9; -t14=C_slot(t4,C_fix(1)); -t1=t11; -t2=t12; -t3=t13; -t4=t14; -goto loop;}} - -/* scheme#min in k12559 in k11436 */ -static void C_ccall f_18510(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_18510,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+6); -t3=C_build_rest(&a,c,3,av); -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -t4=C_i_flonump(t2); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18517,a[2]=t6,a[3]=((C_word)li480),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_18517(t8,t1,t4,t2,t3);} - -/* loop in scheme#min in k12559 in k11436 */ -static void f_18517(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(11,0,4)))){ -C_save_and_reclaim_args((void *)trf_18517,5,t0,t1,t2,t3,t4);} -a=C_alloc(11); -t5=C_i_check_number_2(t3,lf[659]); -if(C_truep(C_i_nullp(t4))){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t2)?C_a_i_exact_to_inexact(&a,1,t3):t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_slot(t4,C_fix(0)); -t7=(C_truep(t2)?t2:C_i_flonump(t6)); -t8=C_i_lessp(t6,t3); -t9=(C_truep(t8)?t6:t3); -/* library.scm:2593: loop */ -t11=t1; -t12=t7; -t13=t9; -t14=C_slot(t4,C_fix(1)); -t1=t11; -t2=t12; -t3=t13; -t4=t14; -goto loop;}} - -/* scheme#exp in k12559 in k11436 */ -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=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(15,c,2)))){ -C_save_and_reclaim((void *)f_18554,c,av);} -a=C_alloc(15); -t3=C_i_check_number_2(t2,lf[661]); -if(C_truep(C_i_cplxnump(t2))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18572,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2602: scheme#exact->inexact */ -t5=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_u_i_cplxnum_real(t2); -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t4=C_a_i_exact_to_inexact(&a,1,t2); -t5=C_flonum(&a,C_exp(C_flonum_magnitude(t4))); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k18570 in scheme#exp in k12559 in k11436 */ -static void C_ccall f_18572(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_18572,c,av);} -a=C_alloc(12); -t2=C_a_i_exp(&a,1,t1); -t3=C_u_i_cplxnum_imag(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18581,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_18586,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2605: scheme#exact->inexact */ -t6=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k18579 in k18570 in scheme#exp in k12559 in k11436 */ -static void C_ccall f_18581(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ -C_save_and_reclaim((void *)f_18581,c,av);} -a=C_alloc(33); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k18584 in k18570 in scheme#exp in k12559 in k11436 */ -static void C_ccall f_18586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_18586,c,av);} -a=C_alloc(19); -t2=C_a_i_cos(&a,1,t1); -t3=C_a_i_exact_to_inexact(&a,1,((C_word*)t0)[2]); -t4=C_a_i_sin(&a,1,t3); -/* library.scm:2604: make-complex */ -f_17268(((C_word*)t0)[3],t2,t4);} - -/* ##sys#log-1 in k12559 in k11436 */ -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=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(7,c,5)))){ -C_save_and_reclaim((void *)f_18599,c,av);} -a=C_alloc(7); -t3=C_eqp(t2,C_fix(0)); -if(C_truep(t3)){ -/* library.scm:2612: ##sys#signal-hook */ -t4=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[663]; -av2[3]=lf[664]; -av2[4]=lf[665]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} -else{ -t4=C_i_cplxnump(t2); -t5=(C_truep(t4)?t4:C_i_negativep(t2)); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18625,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18641,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2615: scheme#magnitude */ -t8=*((C_word*)lf[616]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18645,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2618: scheme#exact->inexact */ -t7=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} - -/* k18623 in ##sys#log-1 in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_18625,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18633,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:2616: make-complex */ -f_17268(t2,C_fix(0),C_fix(1));} - -/* k18631 in k18623 in ##sys#log-1 in k12559 in k11436 */ -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(5,c,2)))){ -C_save_and_reclaim((void *)f_18633,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18637,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:2616: scheme#angle */ -t3=*((C_word*)lf[614]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k18635 in k18631 in k18623 in ##sys#log-1 in k12559 in k11436 */ -static void C_ccall f_18637(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(62,c,1)))){ -C_save_and_reclaim((void *)f_18637,c,av);} -a=C_alloc(62); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_plus(&a,2,((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k18639 in ##sys#log-1 in k12559 in k11436 */ -static void C_ccall f_18641(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_18641,c,av);} -/* library.scm:2615: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[662]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k18643 in ##sys#log-1 in k12559 in k11436 */ -static void C_ccall f_18645(C_word c,C_word *av){ -C_word tmp; -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_18645,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_log(&a,1,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#log in k12559 in k11436 */ -static void C_ccall f_18648(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_18648,c,av);} -a=C_alloc(4); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18662,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2622: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[662]+1); -av2[1]=t5; -av2[2]=t2; -tp(3,av2);}} -else{ -/* library.scm:2622: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[662]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}}} - -/* k18660 in scheme#log in k12559 in k11436 */ -static void C_ccall f_18662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_18662,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18666,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2622: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[662]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k18664 in k18660 in scheme#log in k12559 in k11436 */ -static void C_ccall f_18666(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_18666,c,av);} -/* library.scm:2622: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* scheme#sin in k12559 in k11436 */ -static void C_ccall f_18677(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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(37,c,2)))){ -C_save_and_reclaim((void *)f_18677,c,av);} -a=C_alloc(37); -t3=C_i_check_number_2(t2,lf[668]); -if(C_truep(C_i_cplxnump(t2))){ -t4=C_s_a_i_times(&a,2,lf[669],t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18701,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2629: scheme#exp */ -t6=*((C_word*)lf[660]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t4=C_a_i_exact_to_inexact(&a,1,t2); -t5=C_a_i_sin(&a,1,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k18699 in scheme#sin in k12559 in k11436 */ -static void C_ccall f_18701(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_18701,c,av);} -a=C_alloc(33); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18705,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t3=C_s_a_i_negate(&a,1,((C_word*)t0)[3]); -/* library.scm:2629: scheme#exp */ -t4=*((C_word*)lf[660]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k18703 in k18699 in scheme#sin in k12559 in k11436 */ -static void C_ccall f_18705(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ -C_save_and_reclaim((void *)f_18705,c,av);} -a=C_alloc(29); -t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2629: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=lf[670]; -tp(4,av2);}} - -/* scheme#cos in k12559 in k11436 */ -static void C_ccall f_18711(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(37,c,2)))){ -C_save_and_reclaim((void *)f_18711,c,av);} -a=C_alloc(37); -t3=C_i_check_number_2(t2,lf[672]); -if(C_truep(C_i_cplxnump(t2))){ -t4=C_s_a_i_times(&a,2,lf[669],t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18735,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2637: scheme#exp */ -t6=*((C_word*)lf[660]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t4=C_a_i_exact_to_inexact(&a,1,t2); -t5=C_a_i_cos(&a,1,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k18733 in scheme#cos in k12559 in k11436 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ -C_save_and_reclaim((void *)f_18735,c,av);} -a=C_alloc(33); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18739,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t3=C_s_a_i_negate(&a,1,((C_word*)t0)[3]); -/* library.scm:2637: scheme#exp */ -t4=*((C_word*)lf[660]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k18737 in k18733 in scheme#cos in k12559 in k11436 */ -static void C_ccall f_18739(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ -C_save_and_reclaim((void *)f_18739,c,av);} -a=C_alloc(29); -t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2637: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=C_fix(2); -tp(4,av2);}} - -/* scheme#tan in k12559 in k11436 */ -static void C_ccall f_18745(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(15,c,2)))){ -C_save_and_reclaim((void *)f_18745,c,av);} -a=C_alloc(15); -t3=C_i_check_number_2(t2,lf[674]); -if(C_truep(C_i_cplxnump(t2))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18762,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2644: scheme#sin */ -t5=*((C_word*)lf[667]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} -else{ -t4=C_a_i_exact_to_inexact(&a,1,t2); -t5=C_a_i_tan(&a,1,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k18760 in scheme#tan in k12559 in k11436 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_18762,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18766,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2644: scheme#cos */ -t3=*((C_word*)lf[671]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k18764 in k18760 in scheme#tan in k12559 in k11436 */ -static void C_ccall f_18766(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_18766,c,av);} -/* library.scm:2644: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* scheme#asin in k12559 in k11436 */ -static void C_ccall f_18770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_18770,c,av);} -a=C_alloc(8); -t3=C_i_check_number_2(t2,lf[676]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18780,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_flonump(t2))){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18828,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2651: chicken.flonum#fp>= */ -t6=*((C_word*)lf[546]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=lf[679]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t5=t4; -f_18780(t5,C_SCHEME_FALSE);}} - -/* k18778 in scheme#asin in k12559 in k11436 */ -static void f_18780(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_18780,2,t0,t1);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=C_a_i_asin(&a,1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18786,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_fixnump(((C_word*)t0)[2]))){ -t3=C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(-1)); -t4=t2; -f_18786(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE));} -else{ -t3=t2; -f_18786(t3,C_SCHEME_FALSE);}}} - -/* k18784 in k18778 in scheme#asin in k12559 in k11436 */ -static void f_18786(C_word t0,C_word 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(102,0,3)))){ -C_save_and_reclaim_args((void *)trf_18786,2,t0,t1);} -a=C_alloc(102); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_a_i_asin(&a,1,C_a_i_fix_to_flo(&a,1,((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_18793,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=C_s_a_i_times(&a,2,lf[669],((C_word*)t0)[3]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18805,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t5=C_s_a_i_times(&a,2,((C_word*)t0)[3],((C_word*)t0)[3]); -t6=C_s_a_i_minus(&a,2,C_fix(1),t5); -/* library.scm:2660: ##sys#sqrt/loc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[678]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[678]+1); -av2[1]=t4; -av2[2]=lf[676]; -av2[3]=t6; -tp(4,av2);}}} - -/* k18791 in k18784 in k18778 in scheme#asin in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ -C_save_and_reclaim((void *)f_18793,c,av);} -a=C_alloc(33); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_s_a_i_times(&a,2,lf[677],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k18803 in k18784 in k18778 in scheme#asin in k12559 in k11436 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ -C_save_and_reclaim((void *)f_18805,c,av);} -a=C_alloc(29); -t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2658: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[662]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -tp(3,av2);}} - -/* k18826 in scheme#asin in k12559 in k11436 */ -static void C_ccall f_18828(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_18828,c,av);} -t2=((C_word*)t0)[2]; -f_18780(t2,(C_truep(t1)?C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),(double)1.0):C_SCHEME_FALSE));} - -/* scheme#acos in k12559 in k11436 */ -static void C_ccall f_18832(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_18832,c,av);} -a=C_alloc(9); -t3=C_i_check_number_2(t2,lf[681]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18842,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_flonump(t2))){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18870,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2668: chicken.flonum#fp>= */ -t6=*((C_word*)lf[546]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=lf[679]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t5=t4; -f_18842(t5,C_SCHEME_FALSE);}} - -/* k18840 in scheme#acos in k12559 in k11436 */ -static void f_18842(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_18842,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=C_a_i_acos(&a,1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_18848,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_fixnump(((C_word*)t0)[2]))){ -t3=C_fixnum_greater_or_equal_p(((C_word*)t0)[2],C_fix(-1)); -t4=t2; -f_18848(t4,(C_truep(t3)?C_fixnum_less_or_equal_p(((C_word*)t0)[2],C_fix(1)):C_SCHEME_FALSE));} -else{ -t3=t2; -f_18848(t3,C_SCHEME_FALSE);}}} - -/* k18846 in k18840 in scheme#acos in k12559 in k11436 */ -static void f_18848(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_18848,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_a_i_acos(&a,1,C_a_i_fix_to_flo(&a,1,((C_word*)t0)[3])); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18855,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2675: scheme#asin */ -t3=*((C_word*)lf[675]+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);}}} - -/* k18853 in k18846 in k18840 in scheme#acos in k12559 in k11436 */ -static void C_ccall f_18855(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ -C_save_and_reclaim((void *)f_18855,c,av);} -a=C_alloc(29); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_s_a_i_minus(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k18868 in scheme#acos in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_18870,c,av);} -t2=((C_word*)t0)[2]; -f_18842(t2,(C_truep(t1)?C_ub_i_flonum_less_or_equal_p(C_flonum_magnitude(((C_word*)t0)[3]),(double)1.0):C_SCHEME_FALSE));} - -/* scheme#atan in k12559 in k11436 */ -static void C_ccall f_18874(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(66,c,3)))){ -C_save_and_reclaim((void *)f_18874,c,av);} -a=C_alloc(66); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_number_2(t2,lf[683]); -if(C_truep(C_i_cplxnump(t2))){ -if(C_truep(t4)){ -/* library.scm:2682: ##sys#error-bad-real */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[429]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[429]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[683]; -tp(4,av2);}} -else{ -t6=C_s_a_i_times(&a,2,lf[669],t2); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18907,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -t8=C_s_a_i_plus(&a,2,C_fix(1),t6); -/* library.scm:2684: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[662]+1); -av2[1]=t7; -av2[2]=t8; -tp(3,av2);}}} -else{ -if(C_truep(t4)){ -t6=C_a_i_exact_to_inexact(&a,1,t2); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18928,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2688: scheme#exact->inexact */ -t8=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t6=C_a_i_exact_to_inexact(&a,1,t2); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_a_i_atan(&a,1,t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} - -/* k18905 in scheme#atan in k12559 in k11436 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ -C_save_and_reclaim((void *)f_18907,c,av);} -a=C_alloc(33); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_18911,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t3=C_s_a_i_minus(&a,2,C_fix(1),((C_word*)t0)[3]); -/* library.scm:2685: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[662]+1); -av2[1]=t2; -av2[2]=t3; -tp(3,av2);}} - -/* k18909 in k18905 in scheme#atan in k12559 in k11436 */ -static void C_ccall f_18911(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ -C_save_and_reclaim((void *)f_18911,c,av);} -a=C_alloc(29); -t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2684: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=lf[670]; -tp(4,av2);}} - -/* k18926 in scheme#atan in k12559 in k11436 */ -static void C_ccall f_18928(C_word c,C_word *av){ -C_word tmp; -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_18928,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_atan2(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#exact-integer-sqrt in k12559 in k11436 */ -static void C_ccall f_18938(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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,4)))){ -C_save_and_reclaim((void *)f_18938,c,av);} -a=C_alloc(10); -t3=C_fixnump(t2); -t4=(C_truep(t3)?C_fixnum_less_or_equal_p(t2,C_fix(4)):C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=C_eqp(t2,C_fix(0)); -t6=(C_truep(t5)?t5:C_eqp(t2,C_fix(1))); -if(C_truep(t6)){ -/* library.scm:2700: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(0); -C_values(4,av2);}} -else{ -switch(t2){ -case C_fix(2): -/* library.scm:2701: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_fix(1); -av2[3]=C_fix(1); -C_values(4,av2);} -case C_fix(3): -/* library.scm:2702: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_fix(1); -av2[3]=C_fix(2); -C_values(4,av2);} -case C_fix(4): -/* library.scm:2703: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_fix(2); -av2[3]=C_fix(0); -C_values(4,av2);} -default: -/* library.scm:2704: chicken.base#error */ -t7=*((C_word*)lf[234]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -av2[2]=lf[685]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}}} -else{ -t5=C_fixnum_plus(C_i_integer_length(t2),C_fix(1)); -t6=C_fixnum_shift_right(t5,C_fix(2)); -t7=C_fixnum_shift_left(t6,C_fix(1)); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19011,a[2]=t7,a[3]=t2,a[4]=((C_word)li491),tmp=(C_word)a,a+=5,tmp); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19025,a[2]=t6,a[3]=t2,a[4]=((C_word)li495),tmp=(C_word)a,a+=5,tmp); -/* library.scm:2705: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t8; -av2[3]=t9; -C_call_with_values(4,av2);}}} - -/* a19010 in ##sys#exact-integer-sqrt in k12559 in k11436 */ -static void C_ccall f_19011(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *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_19011,c,av);} -a=C_alloc(5); -t2=C_fixnum_negate(((C_word*)t0)[2]); -t3=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],t2); -/* library.scm:2708: ##sys#exact-integer-sqrt */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[684]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[684]+1); -av2[1]=t1; -av2[2]=t3; -tp(3,av2);}} - -/* a19024 in ##sys#exact-integer-sqrt in k12559 in k11436 */ -static void C_ccall f_19025(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(38,c,4)))){ -C_save_and_reclaim((void *)f_19025,c,av);} -a=C_alloc(38); -t4=C_s_a_i_arithmetic_shift(&a,2,C_fix(1),((C_word*)t0)[2]); -t5=C_s_a_u_i_integer_minus(&a,2,t4,C_fix(1)); -t6=C_s_a_i_bitwise_and(&a,2,((C_word*)t0)[3],t5); -t7=C_fixnum_negate(((C_word*)t0)[2]); -t8=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[3],t7); -t9=C_s_a_i_bitwise_and(&a,2,t8,t5); -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19042,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t9,a[5]=t2,a[6]=((C_word)li493),tmp=(C_word)a,a+=7,tmp); -t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19058,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t6,a[5]=((C_word)li494),tmp=(C_word)a,a+=6,tmp); -/* library.scm:2705: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t10; -av2[3]=t11; -C_call_with_values(4,av2);}} - -/* a19041 in a19024 in ##sys#exact-integer-sqrt in k12559 in k11436 */ -static void C_ccall f_19042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ -C_save_and_reclaim((void *)f_19042,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_u_integer_quotient_and_remainder,a[2]=((C_word)li492),tmp=(C_word)a,a+=3,tmp); -t3=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t4=C_s_a_u_i_integer_plus(&a,2,t3,((C_word*)t0)[4]); -t5=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[5],C_fix(1)); -/* library.scm:2705: g3240 */ -t6=t2;{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}} - -/* a19057 in a19024 in ##sys#exact-integer-sqrt in k12559 in k11436 */ -static void C_ccall f_19058(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(222,c,3)))){ -C_save_and_reclaim((void *)f_19058,c,av);} -a=C_alloc(222); -t4=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t5=C_s_a_i_plus(&a,2,t4,t2); -t6=C_s_a_i_arithmetic_shift(&a,2,t3,((C_word*)t0)[3]); -t7=C_s_a_i_times(&a,2,t2,t2); -t8=C_s_a_i_minus(&a,2,((C_word*)t0)[4],t7); -t9=C_s_a_i_plus(&a,2,t6,t8); -if(C_truep(C_i_negativep(t9))){ -t10=C_s_a_i_minus(&a,2,t5,C_fix(1)); -t11=C_s_a_i_arithmetic_shift(&a,2,t5,C_fix(1)); -t12=C_s_a_i_plus(&a,2,t9,t11); -t13=C_s_a_i_minus(&a,2,t12,C_fix(1)); -/* library.scm:2719: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t10; -av2[3]=t13; -C_values(4,av2);}} -else{ -/* library.scm:2721: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t5; -av2[3]=t9; -C_values(4,av2);}}} - -/* scheme#exact-integer-sqrt in k12559 in k11436 */ -static void C_ccall f_19129(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_19129,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19133,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2725: ##sys#check-exact-uinteger */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[426]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[426]+1); -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[687]; -tp(4,av2);}} - -/* k19131 in scheme#exact-integer-sqrt in k12559 in k11436 */ -static void C_ccall f_19133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_19133,c,av);} -/* library.scm:2726: ##sys#exact-integer-sqrt */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[684]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[684]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19138(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(32,c,4)))){ -C_save_and_reclaim((void *)f_19138,c,av);} -a=C_alloc(32); -if(C_truep(C_i_cplxnump(t3))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19148,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=C_u_i_cplxnum_imag(t3); -t6=C_a_i_exact_to_inexact(&a,1,t5); -t7=C_u_i_cplxnum_real(t3); -t8=C_a_i_exact_to_inexact(&a,1,t7); -t9=C_flonum(&a,C_atan2(C_flonum_magnitude(t6),C_flonum_magnitude(t8))); -/* library.scm:2732: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t4; -av2[2]=t9; -av2[3]=C_fix(2); -tp(4,av2);}} -else{ -if(C_truep(C_i_negativep(t3))){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19188,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=C_s_a_i_negate(&a,1,t3); -/* library.scm:2737: scheme#exact->inexact */ -t6=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -if(C_truep(C_i_exact_integerp(t3))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19199,a[2]=t3,a[3]=((C_word)li498),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19205,a[2]=t3,a[3]=((C_word)li499),tmp=(C_word)a,a+=4,tmp); -/* library.scm:2739: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} -else{ -if(C_truep(C_i_ratnump(t3))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19227,a[2]=t3,a[3]=((C_word)li500),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19239,a[2]=t3,a[3]=t2,a[4]=((C_word)li503),tmp=(C_word)a,a+=5,tmp); -/* library.scm:2744: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19291,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2752: scheme#exact->inexact */ -t5=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}}}}} - -/* k19146 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19148(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_19148,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19152,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2733: scheme#magnitude */ -t3=*((C_word*)lf[616]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k19150 in k19146 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_19152,c,av);} -a=C_alloc(9); -t2=C_a_i_sqrt(&a,1,t1); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19171,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:2734: scheme#cos */ -t4=*((C_word*)lf[671]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19165 in k19169 in k19150 in k19146 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19167(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ -C_save_and_reclaim((void *)f_19167,c,av);} -a=C_alloc(33); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2734: make-complex */ -f_17268(((C_word*)t0)[3],((C_word*)t0)[4],t2);} - -/* k19169 in k19150 in k19146 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19171(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_19171,c,av);} -a=C_alloc(38); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19167,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2734: scheme#sin */ -t4=*((C_word*)lf[667]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k19186 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19188(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_19188,c,av);} -a=C_alloc(4); -t2=C_a_i_sqrt(&a,1,t1); -/* library.scm:2736: make-complex */ -f_17268(((C_word*)t0)[2],lf[605],t2);} - -/* a19198 in ##sys#sqrt/loc in k12559 in k11436 */ -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 *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_19199,c,av);} -/* library.scm:2739: ##sys#exact-integer-sqrt */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[684]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[684]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* a19204 in ##sys#sqrt/loc in k12559 in k11436 */ -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=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_19205,c,av);} -a=C_alloc(3); -t4=C_eqp(C_fix(0),t3); -if(C_truep(t4)){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19216,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:2742: scheme#exact->inexact */ -t6=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* k19214 in a19204 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_19216,c,av);} -a=C_alloc(4); -t2=C_a_i_sqrt(&a,1,t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a19226 in ##sys#sqrt/loc in k12559 in k11436 */ -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,2)))){ -C_save_and_reclaim((void *)f_19227,c,av);} -/* library.scm:2744: ##sys#exact-integer-sqrt */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[684]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[684]+1); -av2[1]=t1; -av2[2]=C_u_i_ratnum_num(((C_word*)t0)[2]); -tp(3,av2);}} - -/* a19238 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19239(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_19239,c,av);} -a=C_alloc(10); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19251,a[2]=((C_word*)t0)[2],a[3]=((C_word)li501),tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_19263,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li502),tmp=(C_word)a,a+=6,tmp); -/* library.scm:2746: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t5; -av2[3]=t6; -C_call_with_values(4,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19287,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2751: scheme#exact->inexact */ -t6=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* a19250 in a19238 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19251(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_19251,c,av);} -/* library.scm:2747: ##sys#exact-integer-sqrt */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[684]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[684]+1); -av2[1]=t1; -av2[2]=C_u_i_ratnum_denom(((C_word*)t0)[2]); -tp(3,av2);}} - -/* a19262 in a19238 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19263(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_19263,c,av);} -a=C_alloc(4); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -/* library.scm:2749: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -tp(4,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19280,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2750: scheme#exact->inexact */ -t6=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* k19278 in a19262 in a19238 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19280(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19280,c,av);} -/* library.scm:2750: ##sys#sqrt/loc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[678]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[678]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k19285 in a19238 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19287(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19287,c,av);} -/* library.scm:2751: ##sys#sqrt/loc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[678]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[678]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k19289 in ##sys#sqrt/loc in k12559 in k11436 */ -static void C_ccall f_19291(C_word c,C_word *av){ -C_word tmp; -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_19291,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_sqrt(&a,1,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#sqrt in k12559 in k11436 */ -static void C_ccall f_19293(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_19293,c,av);} -/* library.scm:2754: ##sys#sqrt/loc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[678]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[678]+1); -av2[1]=t1; -av2[2]=lf[688]; -av2[3]=t2; -tp(4,av2);}} - -/* scheme#floor/ in k12559 in k11436 */ -static void C_ccall f_19300(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19300,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19306,a[2]=t2,a[3]=t3,a[4]=((C_word)li506),tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19312,a[2]=t3,a[3]=((C_word)li507),tmp=(C_word)a,a+=4,tmp); -/* library.scm:2762: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a19305 in scheme#floor/ in k12559 in k11436 */ -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 *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_19306,c,av);} -/* library.scm:2762: chicken.base#quotient&remainder */ -t2=*((C_word*)lf[221]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a19311 in scheme#floor/ in k12559 in k11436 */ -static void C_ccall f_19312(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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(58,c,3)))){ -C_save_and_reclaim((void *)f_19312,c,av);} -a=C_alloc(58); -if(C_truep(C_i_positivep(((C_word*)t0)[2]))){ -if(C_truep(C_i_negativep(t3))){ -t4=C_s_a_i_minus(&a,2,t2,C_fix(1)); -t5=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]); -/* library.scm:2765: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_values(4,av2);}} -else{ -/* library.scm:2766: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_values(4,av2);}}} -else{ -if(C_truep(C_i_positivep(t3))){ -t4=C_s_a_i_minus(&a,2,t2,C_fix(1)); -t5=C_s_a_i_plus(&a,2,t3,((C_word*)t0)[2]); -/* library.scm:2768: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_values(4,av2);}} -else{ -/* library.scm:2769: scheme#values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_values(4,av2);}}}} - -/* scheme#floor-remainder in k12559 in k11436 */ -static void C_ccall f_19355(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_19355,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19361,a[2]=t2,a[3]=t3,a[4]=((C_word)li509),tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19367,a[2]=((C_word)li510),tmp=(C_word)a,a+=3,tmp); -/* library.scm:2772: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a19360 in scheme#floor-remainder in k12559 in k11436 */ -static void C_ccall f_19361(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_19361,c,av);} -/* library.scm:2772: scheme#floor/ */ -t2=*((C_word*)lf[690]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a19366 in scheme#floor-remainder in k12559 in k11436 */ -static void C_ccall f_19367(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19367,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#floor-quotient in k12559 in k11436 */ -static void C_ccall f_19370(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_19370,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19376,a[2]=t2,a[3]=t3,a[4]=((C_word)li512),tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19382,a[2]=((C_word)li513),tmp=(C_word)a,a+=3,tmp); -/* library.scm:2775: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a19375 in scheme#floor-quotient in k12559 in k11436 */ -static void C_ccall f_19376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_19376,c,av);} -/* library.scm:2775: scheme#floor/ */ -t2=*((C_word*)lf[690]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a19381 in scheme#floor-quotient in k12559 in k11436 */ -static void C_ccall f_19382(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19382,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#square in k12559 in k11436 */ -static void C_ccall f_19385(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ -C_save_and_reclaim((void *)f_19385,c,av);} -a=C_alloc(33); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_times(&a,2,t2,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#exact-integer-nth-root in k12559 in k11436 */ -static void C_ccall f_19391(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19391,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19395,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2781: ##sys#check-exact-uinteger */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[426]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[426]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[696]; -tp(4,av2);}} - -/* k19393 in chicken.base#exact-integer-nth-root in k12559 in k11436 */ -static void C_ccall f_19395(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_19395,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19398,a[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:2782: ##sys#check-exact-uinteger */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[426]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[426]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[696]; -tp(4,av2);}} - -/* k19396 in k19393 in chicken.base#exact-integer-nth-root in k12559 in k11436 */ -static void C_ccall f_19398(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_19398,c,av);} -/* library.scm:2783: ##sys#exact-integer-nth-root/loc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[695]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[695]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[696]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void C_ccall f_19403(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(c!=5) C_bad_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_19403,c,av);} -a=C_alloc(5); -t5=C_eqp(C_fix(0),t3); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19413,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t5)){ -t7=t6; -f_19413(t7,t5);} -else{ -t7=C_eqp(C_fix(1),t3); -t8=t6; -f_19413(t8,(C_truep(t7)?t7:C_eqp(C_fix(1),t4)));}} - -/* k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void f_19413(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,0,3)))){ -C_save_and_reclaim_args((void *)trf_19413,2,t0,t1);} -a=C_alloc(29); -if(C_truep(t1)){ -/* library.scm:2789: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(0); -C_values(4,av2);}} -else{ -t2=C_i_integer_length(((C_word*)t0)[3]); -if(C_truep(C_i_lessp(t2,((C_word*)t0)[4]))){ -t3=C_s_a_i_minus(&a,2,((C_word*)t0)[3],C_fix(1)); -/* library.scm:2792: scheme#values */{ -C_word av2[4]; -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_fix(1); -av2[3]=t3; -C_values(4,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19433,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19509,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19513,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=C_fixnum_plus(t2,C_fix(1)); -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}}}} - -/* k19431 in k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(75,c,3)))){ -C_save_and_reclaim((void *)f_19433,c,av);} -a=C_alloc(75); -t2=C_s_a_i_arithmetic_shift(&a,2,C_fix(1),t1); -t3=C_s_a_i_minus(&a,2,((C_word*)t0)[2],C_fix(1)); -t4=C_s_a_i_times(&a,2,t3,t2); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19505,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=t2,tmp=(C_word)a,a+=8,tmp); -/* library.scm:2800: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=t3; -tp(4,av2);}} - -/* lp in k19503 in k19431 in k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void f_19448(C_word 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(41,0,3)))){ -C_save_and_reclaim_args((void *)trf_19448,4,t0,t1,t2,t3);} -a=C_alloc(41); -if(C_truep(C_i_lessp(t3,t2))){ -t4=C_s_a_i_times(&a,2,((C_word*)t0)[2],t3); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_19478,a[2]=((C_word*)t0)[3],a[3]=t4,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp); -/* library.scm:2805: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t5; -av2[2]=t3; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19489,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2807: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}}} - -/* k19476 in lp in k19503 in k19431 in k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void C_ccall f_19478(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_19478,c,av);} -a=C_alloc(39); -t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); -t3=C_s_a_i_plus(&a,2,((C_word*)t0)[3],t2); -t4=C_s_a_i_quotient(&a,2,t3,((C_word*)t0)[4]); -/* library.scm:2803: lp */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_19448(t5,((C_word*)t0)[6],((C_word*)t0)[7],t4);} - -/* k19487 in lp in k19503 in k19431 in k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void C_ccall f_19489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,3)))){ -C_save_and_reclaim((void *)f_19489,c,av);} -a=C_alloc(29); -t2=C_s_a_i_minus(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2807: scheme#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -C_values(4,av2);}} - -/* k19503 in k19431 in k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void C_ccall f_19505(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(48,c,4)))){ -C_save_and_reclaim((void *)f_19505,c,av);} -a=C_alloc(48); -t2=C_s_a_i_quotient(&a,2,((C_word*)t0)[2],t1); -t3=C_s_a_i_plus(&a,2,((C_word*)t0)[3],t2); -t4=C_s_a_i_quotient(&a,2,t3,((C_word*)t0)[4]); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19448,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t6,a[6]=((C_word)li517),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_19448(t8,((C_word*)t0)[6],((C_word*)t0)[7],t4);} - -/* k19507 in k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void C_ccall f_19509(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_19509,c,av);} -/* library.scm:2794: scheme#inexact->exact */ -t2=*((C_word*)lf[622]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k19511 in k19411 in ##sys#exact-integer-nth-root/loc in k12559 in k11436 */ -static void C_ccall f_19513(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_19513,c,av);} -/* library.scm:2794: scheme#ceiling */ -t2=*((C_word*)lf[648]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* ##sys#integer-power in k12559 in k11436 */ -static void C_ccall f_19529(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_19529,c,av);} -a=C_alloc(8); -if(C_truep(C_i_negativep(t3))){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19547,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=C_s_a_u_i_integer_negate(&a,1,t3); -/* library.scm:2812: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=t5; -tp(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_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19558,a[2]=t5,a[3]=t2,a[4]=((C_word)li519),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_19558(t7,t1,C_fix(1),t3);}} - -/* k19545 in ##sys#integer-power in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19547,c,av);} -/* library.scm:2812: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_fix(1); -av2[3]=t1; -tp(4,av2);}} - -/* lp in ##sys#integer-power in k12559 in k11436 */ -static void f_19558(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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(62,0,3)))){ -C_save_and_reclaim_args((void *)trf_19558,4,t0,t1,t2,t3);} -a=C_alloc(62); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_evenp(t3))){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19580,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t6=C_s_a_i_arithmetic_shift(&a,2,t3,C_fix(-1)); -/* library.scm:2817: lp */ -t8=t5; -t9=C_fix(1); -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -t5=C_s_a_i_times(&a,2,t2,((C_word*)t0)[3]); -t6=C_s_a_i_minus(&a,2,t3,C_fix(1)); -/* library.scm:2819: lp */ -t8=t1; -t9=t5; -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* k19578 in lp in ##sys#integer-power in k12559 in k11436 */ -static void C_ccall f_19580(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(66,c,1)))){ -C_save_and_reclaim((void *)f_19580,c,av);} -a=C_alloc(66); -t2=C_s_a_i_times(&a,2,t1,t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#expt in k12559 in k11436 */ -static void C_ccall f_19597(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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); -if(C_unlikely(!C_demand(C_calculate_demand(21,c,4)))){ -C_save_and_reclaim((void *)f_19597,c,av);} -a=C_alloc(21); -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_19600,a[2]=((C_word)li521),tmp=(C_word)a,a+=3,tmp)); -t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19614,a[2]=((C_word)li522),tmp=(C_word)a,a+=3,tmp)); -t10=C_i_numberp(t2); -if(C_truep(C_i_not(t10))){ -/* library.scm:2831: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[697]; -tp(4,av2);}} -else{ -t11=C_i_numberp(t3); -if(C_truep(C_i_not(t11))){ -/* library.scm:2832: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=lf[697]; -tp(4,av2);}} -else{ -t12=C_i_ratnump(t2); -t13=(C_truep(t12)?C_i_not(C_i_inexactp(t3)):C_SCHEME_FALSE); -if(C_truep(t13)){ -t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19666,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2836: scheme#expt */ -t15=*((C_word*)lf[634]+1);{ -C_word *av2=av; -av2[0]=t15; -av2[1]=t14; -av2[2]=C_u_i_ratnum_num(t2); -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t15+1)))(4,av2);}} -else{ -if(C_truep(C_i_ratnump(t3))){ -if(C_truep(C_i_exact_integerp(t2))){ -if(C_truep(C_i_negativep(t2))){ -t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19705,a[2]=t3,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2843: scheme#exact->inexact */ -t15=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t15; -av2[1]=t14; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t15+1)))(3,av2);}} -else{ -t14=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19712,a[2]=t2,a[3]=t3,a[4]=((C_word)li523),tmp=(C_word)a,a+=5,tmp); -t15=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19724,a[2]=t3,a[3]=t2,a[4]=((C_word)li524),tmp=(C_word)a,a+=5,tmp); -/* library.scm:2844: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t14; -av2[3]=t15; -C_call_with_values(4,av2);}}} -else{ -if(C_truep(C_i_flonump(t2))){ -t14=C_a_i_exact_to_inexact(&a,1,t3); -/* library.scm:2853: log-expt */ -f_19600(t1,t2,t14);} -else{ -/* library.scm:2854: slow-expt */ -f_19614(t1,t2,t3);}}} -else{ -t14=C_i_cplxnump(t3); -t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_19768,a[2]=t7,a[3]=t1,a[4]=t2,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -if(C_truep(t14)){ -t16=t15; -f_19768(t16,t14);} -else{ -t16=C_i_cplxnump(t2); -t17=t15; -f_19768(t17,(C_truep(t16)?C_i_not(C_i_integerp(t3)):C_SCHEME_FALSE));}}}}}} - -/* log-expt in scheme#expt in k12559 in k11436 */ -static void f_19600(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_19600,3,t1,t2,t3);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19612,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2824: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[662]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k19610 in log-expt in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19612(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ -C_save_and_reclaim((void *)f_19612,c,av);} -a=C_alloc(33); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2824: scheme#exp */ -t3=*((C_word*)lf[660]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* slow-expt in scheme#expt in k12559 in k11436 */ -static void f_19614(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,0,6)))){ -C_save_and_reclaim_args((void *)trf_19614,3,t1,t2,t3);} -a=C_alloc(4); -t4=C_eqp(C_fix(0),t2); -if(C_truep(t4)){ -/* library.scm:2827: ##sys#signal-hook */ -t5=*((C_word*)lf[235]+1);{ -C_word av2[7]; -av2[0]=t5; -av2[1]=t1; -av2[2]=lf[663]; -av2[3]=lf[697]; -av2[4]=lf[698]; -av2[5]=t2; -av2[6]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(7,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19635,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2830: ##sys#log-1 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[662]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[662]+1); -av2[1]=t5; -av2[2]=t2; -tp(3,av2);}}} - -/* k19633 in slow-expt in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19635(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,2)))){ -C_save_and_reclaim((void *)f_19635,c,av);} -a=C_alloc(33); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2830: scheme#exp */ -t3=*((C_word*)lf[660]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k19664 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19666(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,3)))){ -C_save_and_reclaim((void *)f_19666,c,av);} -a=C_alloc(33); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19670,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_u_i_ratnum_denom(((C_word*)t0)[3]); -t4=C_s_a_i_negate(&a,1,((C_word*)t0)[4]); -/* library.scm:2837: scheme#expt */ -t5=*((C_word*)lf[634]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=t3; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k19668 in k19664 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19670(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ -C_save_and_reclaim((void *)f_19670,c,av);} -a=C_alloc(33); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k19703 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19705(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_19705,c,av);} -a=C_alloc(11); -t2=C_a_i_exact_to_inexact(&a,1,((C_word*)t0)[2]); -/* library.scm:2843: log-expt */ -f_19600(((C_word*)t0)[4],t1,t2);} - -/* a19711 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19712(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_19712,c,av);} -/* library.scm:2845: ##sys#exact-integer-nth-root/loc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[695]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[695]+1); -av2[1]=t1; -av2[2]=lf[697]; -av2[3]=((C_word*)t0)[2]; -av2[4]=C_u_i_ratnum_denom(((C_word*)t0)[3]); -tp(5,av2);}} - -/* a19723 in scheme#expt in k12559 in k11436 */ -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; -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_19724,c,av);} -a=C_alloc(4); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -/* library.scm:2848: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_u_i_ratnum_num(((C_word*)t0)[2]); -tp(4,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19744,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2850: scheme#exact->inexact */ -t6=*((C_word*)lf[86]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* k19742 in a19723 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19744(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_19744,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19748,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2851: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k19746 in k19742 in a19723 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19748(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_19748,c,av);} -a=C_alloc(4); -t2=C_a_i_flonum_expt(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k19766 in scheme#expt in k12559 in k11436 */ -static void f_19768(C_word t0,C_word 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_19768,2,t0,t1);} -a=C_alloc(7); -if(C_truep(t1)){ -/* library.scm:2856: slow-expt */ -f_19614(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} -else{ -t2=(C_truep(C_i_flonump(((C_word*)t0)[5]))?C_i_not(C_u_i_fpintegerp(((C_word*)t0)[5])):C_SCHEME_FALSE); -if(C_truep(t2)){ -if(C_truep(C_i_negativep(((C_word*)t0)[4]))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19788,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); -/* library.scm:2860: scheme#exact->inexact */ -t4=*((C_word*)lf[86]+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{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19796,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2862: scheme#exact->inexact */ -t4=*((C_word*)lf[86]+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{ -if(C_truep(C_i_flonump(((C_word*)t0)[4]))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19803,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2864: scheme#exact->inexact */ -t4=*((C_word*)lf[86]+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{ -t3=C_i_inexactp(((C_word*)t0)[4]); -t4=(C_truep(t3)?t3:C_i_inexactp(((C_word*)t0)[5])); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_19819,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19823,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2868: scheme#inexact->exact */ -t7=*((C_word*)lf[622]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -/* library.scm:2869: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -tp(4,av2);}}}}}} - -/* k19786 in k19766 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19788(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_19788,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19792,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2860: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k19790 in k19786 in k19766 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19792(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19792,c,av);} -/* library.scm:2860: log-expt */ -f_19600(((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k19794 in k19766 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_19796,c,av);} -a=C_alloc(4); -t2=C_a_i_flonum_expt(&a,2,t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k19801 in k19766 in scheme#expt in k12559 in k11436 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,1)))){ -C_save_and_reclaim((void *)f_19803,c,av);} -a=C_alloc(4); -t2=C_a_i_flonum_expt(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k19817 in k19766 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19819(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_19819,c,av);} -/* library.scm:2868: scheme#exact->inexact */ -t2=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k19821 in k19766 in scheme#expt in k12559 in k11436 */ -static void C_ccall f_19823(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19823,c,av);} -/* library.scm:2868: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[632]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* ##sys#internal-gcd in k12559 in k11436 */ -static void f_19864(C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_19864,4,t1,t2,t3,t4);} -a=C_alloc(5); -if(C_truep(C_i_exact_integerp(t3))){ -if(C_truep(C_i_exact_integerp(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_s_a_u_i_integer_gcd(&a,2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=(C_truep(C_i_flonump(t4))?C_u_i_fpintegerp(t4):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19897,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2877: scheme#inexact->exact */ -t7=*((C_word*)lf[622]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -/* library.scm:2878: ##sys#error-bad-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[423]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[423]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t2; -tp(4,av2);}}}} -else{ -t5=(C_truep(C_i_flonump(t3))?C_u_i_fpintegerp(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -if(C_truep(C_i_flonump(t4))){ -t6=C_a_i_flonum_gcd(&a,2,t3,t4); -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_i_exact_integerp(t4))){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19926,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2884: scheme#inexact->exact */ -t7=*((C_word*)lf[622]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -/* library.scm:2885: ##sys#error-bad-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[423]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[423]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=t2; -tp(4,av2);}}}} -else{ -/* library.scm:2886: ##sys#error-bad-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[423]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[423]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=t2; -tp(4,av2);}}}} - -/* k19895 in ##sys#internal-gcd in k12559 in k11436 */ -static void C_ccall f_19897(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_19897,c,av);} -a=C_alloc(5); -t2=C_s_a_u_i_integer_gcd(&a,2,((C_word*)t0)[2],t1); -/* library.scm:2877: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k19924 in ##sys#internal-gcd in k12559 in k11436 */ -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,2)))){ -C_save_and_reclaim((void *)f_19926,c,av);} -a=C_alloc(5); -t2=C_s_a_u_i_integer_gcd(&a,2,t1,((C_word*)t0)[2]); -/* library.scm:2884: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* ##sys#gcd in k12559 in k11436 */ -static void C_ccall f_19934(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_19934,c,av);} -/* library.scm:2888: ##sys#internal-gcd */ -f_19864(t1,lf[700],t2,t3);} - -/* scheme#gcd in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ -C_save_and_reclaim((void*)f_19940,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+6); -t2=C_build_rest(&a,c,2,av); -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -t3=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t3)){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_slot(t2,C_fix(0)); -t5=C_slot(t2,C_fix(1)); -t6=C_SCHEME_UNDEFINED; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_19960,a[2]=t7,a[3]=((C_word)li528),tmp=(C_word)a,a+=4,tmp)); -t9=((C_word*)t7)[1]; -f_19960(t9,t1,t4,t5);}} - -/* loop in scheme#gcd in k12559 in k11436 */ -static void f_19960(C_word 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_19960,4,t0,t1,t2,t3);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t3))){ -if(C_truep(C_i_integerp(t2))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_s_a_i_abs(&a,1,t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* library.scm:2897: ##sys#error-bad-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[423]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[423]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[700]; -tp(4,av2);}}} -else{ -t4=C_slot(t3,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19985,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2899: ##sys#internal-gcd */ -f_19864(t5,lf[700],t2,t4);}} - -/* k19983 in loop in scheme#gcd in k12559 in k11436 */ -static void C_ccall f_19985(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_19985,c,av);} -/* library.scm:2899: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_19960(t2,((C_word*)t0)[3],t1,C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* ##sys#lcm in k12559 in k11436 */ -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=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_19991,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_19995,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:2903: ##sys#internal-gcd */ -f_19864(t4,lf[703],t2,t3);} - -/* k19993 in ##sys#lcm in k12559 in k11436 */ -static void C_ccall f_19995(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(45,c,1)))){ -C_save_and_reclaim((void *)f_19995,c,av);} -a=C_alloc(45); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_s_a_i_quotient(&a,2,t2,t1); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_s_a_i_abs(&a,1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#lcm in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +6,c,4)))){ -C_save_and_reclaim((void*)f_20005,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_rest_nullp(c,2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_fix(1); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_slot(t2,C_fix(0)); -t4=C_slot(t2,C_fix(1)); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20025,a[2]=t6,a[3]=((C_word)li531),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_20025(t8,t1,t3,t4);}} - -/* loop in scheme#lcm in k12559 in k11436 */ -static void f_20025(C_word 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_20025,4,t0,t1,t2,t3);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t3))){ -if(C_truep(C_i_integerp(t2))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_s_a_i_abs(&a,1,t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* library.scm:2913: ##sys#error-bad-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[423]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[423]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[703]; -tp(4,av2);}}} -else{ -t4=C_slot(t3,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20046,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); -/* library.scm:2915: ##sys#internal-gcd */ -f_19864(t5,lf[703],t2,t4);}} - -/* k20044 in loop in scheme#lcm in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(38,c,3)))){ -C_save_and_reclaim((void *)f_20046,c,av);} -a=C_alloc(38); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_s_a_i_quotient(&a,2,t2,t1); -/* library.scm:2916: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_20025(t4,((C_word*)t0)[5],t3,C_slot(((C_word*)t0)[6],C_fix(1)));} - -/* ##sys#integer->string/recursive in k12559 in k11436 */ -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=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,3)))){ -C_save_and_reclaim((void *)f_20063,c,av);} -a=C_alloc(6); -t5=C_fixnum_plus(t4,C_fix(1)); -t6=C_fixnum_shift_right(t5,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20070,a[2]=t2,a[3]=t6,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:2923: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t7; -av2[2]=t3; -av2[3]=t6; -tp(4,av2);}} - -/* k20068 in ##sys#integer->string/recursive in k12559 in k11436 */ -static void C_ccall f_20070(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_20070,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20075,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li534),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20081,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word)li535),tmp=(C_word)a,a+=5,tmp); -/* library.scm:2922: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a20074 in k20068 in ##sys#integer->string/recursive in k12559 in k11436 */ -static void C_ccall f_20075(C_word c,C_word *av){ -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_20075,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_u_integer_quotient_and_remainder,a[2]=((C_word)li533),tmp=(C_word)a,a+=3,tmp); -/* library.scm:2922: g3443 */ -t3=t2;{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* a20080 in k20068 in ##sys#integer->string/recursive in k12559 in k11436 */ -static void C_ccall f_20081(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_20081,c,av);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20085,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k20083 in a20080 in k20068 in ##sys#integer->string/recursive in k12559 in k11436 */ -static void C_ccall f_20085(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_20085,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20088,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=C_s_a_i_abs(&a,1,((C_word*)t0)[4]); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=t3; -av2[3]=((C_word*)t0)[5]; -tp(4,av2);}} - -/* k20086 in k20083 in a20080 in k20068 in ##sys#integer->string/recursive in k12559 in k11436 */ -static void C_ccall f_20088(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_20088,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20095,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[446]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[446]+1); -av2[1]=t2; -av2[2]=C_fixnum_difference(((C_word*)t0)[4],C_u_i_string_length(t1)); -av2[3]=C_make_character(48); -tp(4,av2);}} - -/* k20093 in k20086 in k20083 in a20080 in k20068 in ##sys#integer->string/recursive in k12559 in k11436 */ -static void C_ccall f_20095(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_20095,c,av);} -/* library.scm:2928: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* ##sys#extended-number->string in k12559 in k11436 */ -static void C_ccall f_20113(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_20113,c,av);} -a=C_alloc(5); -if(C_truep(C_i_ratnump(t2))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20127,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=C_u_i_ratnum_num(t2); -av2[3]=t3; -tp(4,av2);}} -else{ -if(C_truep(C_i_cplxnump(t2))){ -t4=C_u_i_cplxnum_real(t2); -t5=C_u_i_cplxnum_imag(t2); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20168,a[2]=t5,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t6; -av2[2]=t4; -av2[3]=t3; -tp(4,av2);}} -else{ -/* library.scm:2950: ##sys#error-bad-number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[440]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[440]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[712]; -tp(4,av2);}}}} - -/* k20125 in ##sys#extended-number->string in k12559 in k11436 */ -static void C_ccall f_20127(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_20127,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20131,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=C_u_i_ratnum_denom(((C_word*)t0)[3]); -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}} - -/* k20129 in k20125 in ##sys#extended-number->string in k12559 in k11436 */ -static void C_ccall f_20131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_20131,c,av);} -/* library.scm:2938: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[708]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k20166 in ##sys#extended-number->string in k12559 in k11436 */ -static void C_ccall f_20168(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_20168,c,av);} -a=C_alloc(5); -t2=(C_truep(C_i_finitep(((C_word*)t0)[2]))?(C_truep(C_i_positivep(((C_word*)t0)[2]))?lf[709]:lf[710]):lf[710]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20176,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}} - -/* k20174 in k20166 in ##sys#extended-number->string in k12559 in k11436 */ -static void C_ccall f_20176(C_word c,C_word *av){ -C_word tmp; -C_word 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_20176,c,av);} -/* library.scm:2945: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -av2[5]=lf[711]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k20203 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20205(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(44,c,1)))){ -C_save_and_reclaim((void *)f_20205,c,av);} -a=C_alloc(44); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_exact_to_inexact(&a,1,t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k20206 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20208(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ -C_save_and_reclaim((void *)f_20208,c,av);} -a=C_alloc(13); -t2=C_fixnum_difference(C_i_integer_length(((C_word*)t0)[2]),C_i_integer_length(t1)); -t3=C_fixnum_difference(t2,*((C_word*)lf[520]+1)); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -if(C_truep(C_fixnum_lessp(((C_word*)t5)[1],C_fix(0)))){ -t6=C_fixnum_negate(((C_word*)t5)[1]); -t7=C_s_a_i_arithmetic_shift(&a,2,((C_word*)t0)[2],t6); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20223,a[2]=t5,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -/* library.scm:2969: round-quotient */ -f_20287(t8,t7,t1);} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20262,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2976: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t6; -av2[2]=C_fix(10); -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}}} - -/* k20221 in k20206 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20223(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(44,c,3)))){ -C_save_and_reclaim((void *)f_20223,c,av);} -a=C_alloc(44); -t2=t1; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20226,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t5=((C_word*)t3)[1]; -t6=C_i_integer_length(t5); -t7=*((C_word*)lf[520]+1); -if(C_truep(C_fixnum_greaterp(t6,*((C_word*)lf[520]+1)))){ -t8=C_fixnum_plus(C_fix(1),((C_word*)((C_word*)t0)[2])[1]); -t9=C_set_block_item(((C_word*)t0)[2],0,t8); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20244,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t11=C_s_a_i_times(&a,2,((C_word*)t0)[4],C_fix(2)); -/* library.scm:2973: round-quotient */ -f_20287(t10,((C_word*)t0)[5],t11);} -else{ -t8=t4; -f_20226(t8,C_SCHEME_UNDEFINED);}} - -/* k20224 in k20221 in k20206 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void f_20226(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_20226,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20233,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:2974: scheme#exact->inexact */ -t3=*((C_word*)lf[86]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k20231 in k20224 in k20221 in k20206 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -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(6,c,1)))){ -C_save_and_reclaim((void *)f_20233,c,av);} -a=C_alloc(6); -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=C_a_i_bytevector(&a,1,C_fix(4)); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=stub3497(t3,C_i_foreign_flonum_argumentp(t1),C_i_foreign_fixnum_argumentp(t2)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k20242 in k20221 in k20206 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_20244,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3]; -f_20226(t3,t2);} - -/* k20260 in k20206 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ -C_save_and_reclaim((void *)f_20262,c,av);} -a=C_alloc(33); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* round-quotient in k12559 in k11436 */ -static void f_20287(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(63,0,3)))){ -C_save_and_reclaim_args((void *)trf_20287,3,t1,t2,t3);} -a=C_alloc(63); -t4=C_s_a_u_i_integer_quotient(&a,2,t2,t3); -t5=(C_truep(C_i_evenp(t4))?*((C_word*)lf[97]+1):*((C_word*)lf[99]+1)); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20302,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t7=C_s_a_i_remainder(&a,2,t2,t3); -t8=C_s_a_i_abs(&a,1,t7); -t9=C_s_a_i_times(&a,2,t8,C_fix(2)); -t10=C_s_a_i_abs(&a,1,t3); -/* library.scm:2983: g3510 */ -t11=t5;{ -C_word av2[4]; -av2[0]=t11; -av2[1]=t6; -av2[2]=t9; -av2[3]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} - -/* k20300 in round-quotient in k12559 in k11436 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ -C_save_and_reclaim((void *)f_20302,c,av);} -a=C_alloc(29); -if(C_truep(t1)){ -t2=C_eqp(C_i_negativep(((C_word*)t0)[2]),C_i_negativep(((C_word*)t0)[3])); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_s_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(1)):C_s_a_i_plus(&a,2,((C_word*)t0)[5],C_fix(-1))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* ##sys#string->compnum in k12559 in k11436 */ -static void f_20330(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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(87,0,5)))){ -C_save_and_reclaim_args((void *)trf_20330,5,t1,t2,t3,t4,t5);} -a=C_alloc(87); -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,C_SCHEME_FALSE); -t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20334,a[2]=t6,a[3]=t8,a[4]=((C_word)li539),tmp=(C_word)a,a+=5,tmp)); -t15=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20348,a[2]=t6,a[3]=((C_word)li540),tmp=(C_word)a,a+=4,tmp)); -t16=C_i_string_length(t3); -t17=C_fixnum_difference(t2,C_fix(1)); -t18=C_fixnum_plus(C_fix(48),t17); -t19=C_make_character(C_unfix(t18)); -t20=C_fixnum_difference(t2,C_fix(11)); -t21=C_fixnum_plus(C_fix(97),t20); -t22=C_make_character(C_unfix(t21)); -t23=C_fixnum_difference(t2,C_fix(11)); -t24=C_fixnum_plus(C_fix(65),t23); -t25=C_make_character(C_unfix(t24)); -t26=C_SCHEME_FALSE; -t27=(*a=C_VECTOR_TYPE|1,a[1]=t26,tmp=(C_word)a,a+=2,tmp); -t28=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20428,a[2]=t16,a[3]=t3,a[4]=t2,a[5]=t19,a[6]=t22,a[7]=t25,a[8]=((C_word)li542),tmp=(C_word)a,a+=9,tmp); -t29=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20532,a[2]=t16,a[3]=t3,a[4]=((C_word)li544),tmp=(C_word)a,a+=5,tmp); -t30=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20580,a[2]=t3,a[3]=t2,a[4]=t27,a[5]=t10,a[6]=t29,a[7]=t28,a[8]=((C_word)li545),tmp=(C_word)a,a+=9,tmp); -t31=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20636,a[2]=t16,a[3]=t3,a[4]=t2,a[5]=t28,a[6]=((C_word)li546),tmp=(C_word)a,a+=7,tmp); -t32=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20689,a[2]=t16,a[3]=t3,a[4]=t12,a[5]=t31,a[6]=t30,a[7]=((C_word)li547),tmp=(C_word)a,a+=8,tmp); -t33=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_20901,a[2]=t10,a[3]=t32,a[4]=t3,a[5]=t2,a[6]=t16,a[7]=t12,a[8]=t31,a[9]=t27,a[10]=t6,a[11]=t30,a[12]=((C_word)li548),tmp=(C_word)a,a+=13,tmp); -t34=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_21243,a[2]=t16,a[3]=t3,a[4]=t33,a[5]=t10,a[6]=((C_word)li549),tmp=(C_word)a,a+=7,tmp); -t35=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_21474,a[2]=t6,a[3]=t8,a[4]=t1,a[5]=t3,a[6]=t16,a[7]=t4,a[8]=t27,a[9]=t34,tmp=(C_word)a,a+=10,tmp); -/* library.scm:3167: scan-real */ -t36=t34; -f_21243(t36,t35,t4);} - -/* go-inexact! in ##sys#string->compnum in k12559 in k11436 */ -static C_word f_20334(C_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_eqp(((C_word*)((C_word*)t0)[2])[1],lf[715]); -if(C_truep(t2)){ -t3=C_SCHEME_UNDEFINED; -return(t3);} -else{ -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[716]); -t4=((C_word*)((C_word*)t0)[3])[1]; -if(C_truep(t4)){ -t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -return(t5);} -else{ -t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t1); -return(t5);}}} - -/* safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void f_20348(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_20348,4,t0,t1,t2,t3);} -a=C_alloc(12); -if(C_truep(t3)){ -if(C_truep(C_i_not(t2))){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_greaterp(t3,C_fix(10000)))){ -t4=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[716]); -if(C_truep(t4)){ -if(C_truep(C_i_zerop(t2))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=lf[605]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_i_greaterp(t2,lf[605]); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t5)?lf[717]:lf[718]); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t4=C_fixnum_negate(C_fix(10000)); -if(C_truep(C_i_lessp(t3,t4))){ -t5=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[716]); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t5)?lf[605]:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t5=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[716]); -if(C_truep(t5)){ -if(C_truep(C_i_not(C_i_negativep(t3)))){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20205,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:2962: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t6; -av2[2]=C_fix(10); -av2[3]=t3; -tp(4,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20208,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t7=C_s_a_i_abs(&a,1,t3); -/* library.scm:2963: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t6; -av2[2]=C_fix(10); -av2[3]=t7; -tp(4,av2);}}} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_20408,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3006: ##sys#integer-power */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[632]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[632]+1); -av2[1]=t6; -av2[2]=C_fix(10); -av2[3]=t3; -tp(4,av2);}}}}}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k20406 in safe-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20408(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(33,c,1)))){ -C_save_and_reclaim((void *)f_20408,c,av);} -a=C_alloc(33); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_s_a_i_times(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scan-digits in ##sys#string->compnum in k12559 in k11436 */ -static void f_20428(C_word 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_20428,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_20434,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t4,a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word)li541),tmp=(C_word)a,a+=11,tmp)); -t6=((C_word*)t4)[1]; -f_20434(t6,t1,t2);} - -/* lp in scan-digits in ##sys#string->compnum in k12559 in k11436 */ -static void f_20434(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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_20434,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -t4=C_fixnum_greaterp(t2,((C_word*)t0)[3]); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_a_i_cons(&a,2,t2,C_SCHEME_FALSE):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[4],t2); -if(C_truep(C_fixnum_less_or_equal_p(((C_word*)t0)[5],C_fix(10)))){ -t5=(C_truep(C_u_i_char_greater_or_equal_p(t4,C_make_character(48)))?C_u_i_char_less_or_equal_p(t4,((C_word*)t0)[6]):C_SCHEME_FALSE); -if(C_truep(t5)){ -/* library.scm:3030: lp */ -t9=t1; -t10=C_fixnum_plus(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t6=C_fixnum_greaterp(t2,((C_word*)t0)[3]); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_a_i_cons(&a,2,t2,t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} -else{ -t5=(C_truep(C_u_i_char_greater_or_equal_p(t4,C_make_character(48)))?C_u_i_char_less_or_equal_p(t4,C_make_character(57)):C_SCHEME_FALSE); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_20494,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -if(C_truep(t5)){ -t7=t6; -f_20494(t7,t5);} -else{ -t7=(C_truep(C_u_i_char_greater_or_equal_p(t4,C_make_character(97)))?C_u_i_char_less_or_equal_p(t4,((C_word*)t0)[8]):C_SCHEME_FALSE); -t8=t6; -f_20494(t8,(C_truep(t7)?t7:(C_truep(C_u_i_char_greater_or_equal_p(t4,C_make_character(65)))?C_u_i_char_less_or_equal_p(t4,((C_word*)t0)[9]):C_SCHEME_FALSE)));}}}} - -/* k20492 in lp in scan-digits in ##sys#string->compnum in k12559 in k11436 */ -static void f_20494(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_20494,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -/* library.scm:3035: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_20434(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=C_fixnum_greaterp(((C_word*)t0)[4],((C_word*)t0)[5]); -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_a_i_cons(&a,2,((C_word*)t0)[4],((C_word*)t0)[4]):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* scan-hashes in ##sys#string->compnum in k12559 in k11436 */ -static void f_20532(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ -C_save_and_reclaim_args((void *)trf_20532,3,t0,t1,t2);} -a=C_alloc(9); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20538,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t4,a[6]=((C_word)li543),tmp=(C_word)a,a+=7,tmp)); -t6=((C_word*)t4)[1]; -f_20538(t6,t1,t2);} - -/* lp in scan-hashes in ##sys#string->compnum in k12559 in k11436 */ -static void f_20538(C_word t0,C_word t1,C_word t2){ -C_word 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(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_20538,3,t0,t1,t2);} -a=C_alloc(3); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -t4=C_fixnum_greaterp(t2,((C_word*)t0)[3]); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_a_i_cons(&a,2,t2,C_SCHEME_FALSE):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=C_i_string_ref(((C_word*)t0)[4],t2); -t5=C_eqp(t4,C_make_character(35)); -if(C_truep(t5)){ -/* library.scm:3044: lp */ -t8=t1; -t9=C_fixnum_plus(t2,C_fix(1)); -t1=t8; -t2=t9; -goto loop;} -else{ -t6=C_fixnum_greaterp(t2,((C_word*)t0)[3]); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_a_i_cons(&a,2,t2,t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} - -/* scan-digits+hashes in ##sys#string->compnum in k12559 in k11436 */ -static void f_20580(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,2)))){ -C_save_and_reclaim_args((void *)trf_20580,5,t0,t1,t2,t3,t4);} -a=C_alloc(11); -t5=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20584,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],a[8]=t1,a[9]=((C_word*)t0)[6],a[10]=t4,tmp=(C_word)a,a+=11,tmp); -if(C_truep(C_i_not(((C_word*)((C_word*)t0)[4])[1]))){ -/* library.scm:3048: scan-digits */ -t6=((C_word*)t0)[7]; -f_20428(t6,t5,t2);} -else{ -t6=t5;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_20584(2,av2);}}} - -/* k20582 in scan-digits+hashes in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20584(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_20584,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20587,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],tmp=(C_word)a,a+=10,tmp); -if(C_truep(t1)){ -if(C_truep(C_i_cdr(t1))){ -/* library.scm:3050: scan-hashes */ -t3=((C_word*)t0)[9]; -f_20532(t3,t2,C_u_i_cdr(t1));} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_20587(2,av2);}}} -else{ -if(C_truep(((C_word*)t0)[10])){ -/* library.scm:3051: scan-hashes */ -t3=((C_word*)t0)[9]; -f_20532(t3,t2,((C_word*)t0)[3]);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_20587(2,av2);}}}} - -/* k20585 in k20582 in scan-digits+hashes in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20587(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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,1)))){ -C_save_and_reclaim((void *)f_20587,c,av);} -a=C_alloc(9); -t2=(C_truep(t1)?t1:((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=C_i_car(t2); -t4=C_s_a_i_digits_to_integer(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],t3,((C_word*)t0)[5],((C_word*)t0)[6]); -if(C_truep(t4)){ -if(C_truep(t1)){ -t5=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE); -t6=( -/* library.scm:3059: go-inexact! */ - f_20334(((C_word*)((C_word*)t0)[8])[1],((C_word*)t0)[6]) -); -t7=C_u_i_cdr(t2); -t8=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_cons(&a,2,t4,t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t5=C_u_i_cdr(t2); -t6=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_cons(&a,2,t4,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t5=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* scan-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void f_20636(C_word t0,C_word 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_20636,3,t0,t1,t2);} -a=C_alloc(7); -if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ -t3=C_i_string_ref(((C_word*)t0)[3],t2); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20649,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t5=C_eqp(t3,C_make_character(43)); -if(C_truep(t5)){ -t6=t4; -f_20649(t6,lf[720]);} -else{ -t6=C_eqp(t3,C_make_character(45)); -t7=t4; -f_20649(t7,(C_truep(t6)?lf[719]:C_SCHEME_FALSE));}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k20647 in scan-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void f_20649(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_20649,2,t0,t1);} -a=C_alloc(7); -t2=(C_truep(t1)?C_fixnum_plus(((C_word*)t0)[2],C_fix(1)):((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20655,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* library.scm:3067: scan-digits */ -t4=((C_word*)t0)[6]; -f_20428(t4,t3,t2);} - -/* k20653 in k20647 in scan-exponent in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20655(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_20655,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=C_i_car(t1); -t3=C_eqp(((C_word*)t0)[2],lf[719]); -t4=C_s_a_i_digits_to_integer(&a,5,((C_word*)t0)[3],((C_word*)t0)[4],t2,((C_word*)t0)[5],t3); -t5=C_u_i_cdr(t1); -t6=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_cons(&a,2,t4,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void f_20689(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ -C_save_and_reclaim_args((void *)trf_20689,5,t0,t1,t2,t3,t4);} -a=C_alloc(9); -if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_20699,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[4],a[7]=t4,a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); -/* library.scm:3075: scan-digits+hashes */ -t6=((C_word*)t0)[6]; -f_20580(t6,t5,t2,t3,t4);} -else{ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_20699,c,av);} -a=C_alloc(11); -t2=(C_truep(t1)?C_i_cdr(t1):((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_20708,a[2]=t2,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)[2],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],tmp=(C_word)a,a+=11,tmp); -if(C_truep(((C_word*)t0)[7])){ -t4=t3; -f_20708(t4,((C_word*)t0)[7]);} -else{ -t4=C_i_not(t2); -t5=t3; -f_20708(t5,(C_truep(t4)?t4:C_fixnum_greaterp(t2,((C_word*)t0)[2])));}} - -/* k20706 in k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void f_20708(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,2)))){ -C_save_and_reclaim_args((void *)trf_20708,2,t0,t1);} -a=C_alloc(10); -if(C_truep(t1)){ -t2=(C_truep(((C_word*)t0)[2])?C_i_string_ref(((C_word*)t0)[3],((C_word*)t0)[2]):C_SCHEME_FALSE); -t3=C_eqp(t2,C_make_character(101)); -t4=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_20720,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],tmp=(C_word)a,a+=10,tmp); -if(C_truep(t3)){ -t5=t4; -f_20720(t5,t3);} -else{ -t5=C_eqp(t2,C_make_character(115)); -if(C_truep(t5)){ -t6=t4; -f_20720(t6,t5);} -else{ -t6=C_eqp(t2,C_make_character(102)); -if(C_truep(t6)){ -t7=t4; -f_20720(t7,t6);} -else{ -t7=C_eqp(t2,C_make_character(100)); -if(C_truep(t7)){ -t8=t4; -f_20720(t8,t7);} -else{ -t8=C_eqp(t2,C_make_character(108)); -if(C_truep(t8)){ -t9=t4; -f_20720(t9,t8);} -else{ -t9=C_eqp(t2,C_make_character(69)); -if(C_truep(t9)){ -t10=t4; -f_20720(t10,t9);} -else{ -t10=C_eqp(t2,C_make_character(83)); -if(C_truep(t10)){ -t11=t4; -f_20720(t11,t10);} -else{ -t11=C_eqp(t2,C_make_character(70)); -if(C_truep(t11)){ -t12=t4; -f_20720(t12,t11);} -else{ -t12=C_eqp(t2,C_make_character(68)); -t13=t4; -f_20720(t13,(C_truep(t12)?t12:C_eqp(t2,C_make_character(76))));}}}}}}}}} -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);}}} - -/* k20718 in k20706 in k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void f_20720(C_word 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_20720,2,t0,t1);} -a=C_alloc(7); -if(C_truep(t1)){ -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[2],((C_word*)t0)[3]))){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20729,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); -/* library.scm:3083: scan-exponent */ -t3=((C_word*)t0)[9]; -f_20636(t3,t2,C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} -else{ -t2=((C_word*)t0)[5];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} -else{ -t2=(C_truep(((C_word*)t0)[3])?((C_word*)t0)[3]:((C_word*)t0)[2]); -t3=(C_truep(((C_word*)t0)[4])?C_fixnum_difference(((C_word*)t0)[7],t2):C_SCHEME_FALSE); -t4=(C_truep(((C_word*)t0)[4])?C_i_car(((C_word*)t0)[4]):C_SCHEME_FALSE); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20795,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:3093: safe-exponent */ -t6=((C_word*)((C_word*)t0)[6])[1]; -f_20348(t6,t5,t4,t3);}} - -/* k20727 in k20718 in k20706 in k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20729(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_20729,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=C_i_car(t1); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_20741,a[2]=((C_word*)t0)[2],a[3]=t1,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); -/* library.scm:3085: safe-exponent */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_20348(t4,t3,((C_word*)t0)[6],t2);} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k20739 in k20727 in k20718 in k20706 in k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20741(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_20741,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_20747,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)[2])){ -t3=C_i_cdr(((C_word*)t0)[2]); -t4=t2; -f_20747(t4,C_fixnum_difference(((C_word*)t0)[6],C_fixnum_difference(t3,((C_word*)t0)[7])));} -else{ -t3=t2; -f_20747(t3,C_SCHEME_FALSE);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k20745 in k20739 in k20727 in k20718 in k20706 in k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void f_20747(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_20747,2,t0,t1);} -a=C_alloc(5); -t2=(C_truep(((C_word*)t0)[2])?C_i_car(((C_word*)t0)[2]):C_SCHEME_FALSE); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20753,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:3088: safe-exponent */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_20348(t4,t3,t2,t1);} - -/* k20751 in k20745 in k20739 in k20727 in k20718 in k20706 in k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20753(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ -C_save_and_reclaim((void *)f_20753,c,av);} -a=C_alloc(32); -if(C_truep(t1)){ -t2=C_s_a_i_plus(&a,2,((C_word*)t0)[2],t1); -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=C_u_i_cdr(((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k20793 in k20718 in k20706 in k20697 in scan-decimal-tail in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(32,c,1)))){ -C_save_and_reclaim((void *)f_20795,c,av);} -a=C_alloc(32); -t2=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:C_fix(0)); -if(C_truep(t1)){ -t3=C_s_a_i_plus(&a,2,t2,t1); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t3,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void f_20901(C_word t0,C_word 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_20901,4,t0,t1,t2,t3);} -a=C_alloc(15); -t4=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_20908,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],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],a[14]=((C_word*)t0)[11],tmp=(C_word)a,a+=15,tmp); -t5=C_fixnum_plus(t2,C_fix(1)); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[6],t5))){ -t6=C_eqp(((C_word*)t0)[5],C_fix(10)); -t7=t4; -f_20908(t7,(C_truep(t6)?C_eqp(C_i_string_ref(((C_word*)t0)[4],t2),C_make_character(46)):C_SCHEME_FALSE));} -else{ -t6=t4; -f_20908(t6,C_SCHEME_FALSE);}} - -/* k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void f_20908(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,4)))){ -C_save_and_reclaim_args((void *)trf_20908,2,t0,t1);} -a=C_alloc(14); -if(C_truep(t1)){ -t2=( -/* library.scm:3101: go-inexact! */ - f_20334(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]) -); -/* library.scm:3102: scan-decimal-tail */ -t3=((C_word*)t0)[4]; -f_20689(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[6],C_fix(1)),((C_word*)t0)[3],C_SCHEME_FALSE);} -else{ -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20921,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]=((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],a[11]=((C_word*)t0)[12],a[12]=((C_word*)t0)[13],a[13]=((C_word*)t0)[14],tmp=(C_word)a,a+=14,tmp); -/* library.scm:3103: scan-digits+hashes */ -t3=((C_word*)t0)[14]; -f_20580(t3,t2,((C_word*)t0)[6],((C_word*)t0)[3],C_SCHEME_FALSE);}} - -/* k20919 in k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20921(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_20921,c,av);} -a=C_alloc(14); -if(C_truep(t1)){ -t2=C_i_cdr(t1); -t3=(C_truep(t2)?C_i_string_ref(((C_word*)t0)[2],C_u_i_cdr(t1)):C_SCHEME_FALSE); -t4=C_eqp(t3,C_make_character(46)); -if(C_truep(t4)){ -t5=( -/* library.scm:3106: go-inexact! */ - f_20334(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4]) -); -t6=C_eqp(((C_word*)t0)[5],C_fix(10)); -if(C_truep(t6)){ -t7=C_fixnum_plus(C_u_i_cdr(t1),C_fix(1)); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[6],t7))){ -/* library.scm:3109: scan-decimal-tail */ -t8=((C_word*)t0)[7]; -f_20689(t8,((C_word*)t0)[8],C_fixnum_plus(C_u_i_cdr(t1),C_fix(1)),((C_word*)t0)[4],C_u_i_car(t1));} -else{ -t8=C_u_i_car(t1); -t9=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_a_i_cons(&a,2,t8,C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} -else{ -t7=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} -else{ -t5=C_eqp(t3,C_make_character(101)); -t6=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_20979,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[9],a[9]=((C_word*)t0)[10],a[10]=t3,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(t5)){ -t7=t6; -f_20979(t7,t5);} -else{ -t7=C_eqp(t3,C_make_character(115)); -if(C_truep(t7)){ -t8=t6; -f_20979(t8,t7);} -else{ -t8=C_eqp(t3,C_make_character(102)); -if(C_truep(t8)){ -t9=t6; -f_20979(t9,t8);} -else{ -t9=C_eqp(t3,C_make_character(100)); -if(C_truep(t9)){ -t10=t6; -f_20979(t10,t9);} -else{ -t10=C_eqp(t3,C_make_character(108)); -if(C_truep(t10)){ -t11=t6; -f_20979(t11,t10);} -else{ -t11=C_eqp(t3,C_make_character(69)); -if(C_truep(t11)){ -t12=t6; -f_20979(t12,t11);} -else{ -t12=C_eqp(t3,C_make_character(83)); -if(C_truep(t12)){ -t13=t6; -f_20979(t13,t12);} -else{ -t13=C_eqp(t3,C_make_character(70)); -if(C_truep(t13)){ -t14=t6; -f_20979(t14,t13);} -else{ -t14=C_eqp(t3,C_make_character(68)); -t15=t6; -f_20979(t15,(C_truep(t14)?t14:C_eqp(t3,C_make_character(76))));}}}}}}}}}} -else{ -t2=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k20977 in k20919 in k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void f_20979(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_20979,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=( -/* library.scm:3113: go-inexact! */ - f_20334(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]) -); -t3=C_eqp(((C_word*)t0)[4],C_fix(10)); -if(C_truep(t3)){ -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[6])))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_20997,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],tmp=(C_word)a,a+=5,tmp); -/* library.scm:3116: scan-exponent */ -t5=((C_word*)t0)[9]; -f_20636(t5,t4,C_fixnum_plus(C_u_i_cdr(((C_word*)t0)[6]),C_fix(1)));} -else{ -t4=((C_word*)t0)[7];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t4=((C_word*)t0)[7];{ -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)[10],C_make_character(47)); -if(C_truep(t2)){ -t3=C_set_block_item(((C_word*)t0)[11],0,C_SCHEME_FALSE); -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[5],C_u_i_cdr(((C_word*)t0)[6])))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21043,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[12],tmp=(C_word)a,a+=5,tmp); -/* library.scm:3123: scan-digits+hashes */ -t5=((C_word*)t0)[13]; -f_20580(t5,t4,C_fixnum_plus(C_u_i_cdr(((C_word*)t0)[6]),C_fix(1)),C_SCHEME_FALSE,C_SCHEME_FALSE);} -else{ -t4=((C_word*)t0)[7];{ -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)[7];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k20995 in k20977 in k20919 in k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_20997(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_20997,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=C_u_i_car(((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21007,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:3118: safe-exponent */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_20348(t4,t3,t2,C_i_car(t1));} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21005 in k20995 in k20977 in k20919 in k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21007(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_21007,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21041 in k20977 in k20919 in k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21043(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_21043,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=C_u_i_car(((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=C_i_car(t1); -if(C_truep(t3)){ -t4=C_eqp(t3,C_fix(0)); -if(C_truep(C_i_not(t4))){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21069,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:3127: ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=t3; -tp(4,av2);}} -else{ -t5=C_eqp(((C_word*)((C_word*)t0)[4])[1],lf[715]); -if(C_truep(C_i_not(t5))){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21080,a[2]=t1,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:3131: chicken.base#signum */ -t7=*((C_word*)lf[226]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} -else{ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21067 in k21041 in k20977 in k20919 in k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_21069,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k21078 in k21041 in k20977 in k20919 in k20906 in scan-ureal in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21080(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,1)))){ -C_save_and_reclaim((void *)f_21080,c,av);} -a=C_alloc(7); -switch(t1){ -case C_fix(-1): -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[718],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_fix(0): -t2=C_flonum(&a,C_ub_i_flonum_quotient((double)0.0,(double)0.0)); -t3=C_u_i_cdr(((C_word*)t0)[2]); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_cons(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -case C_fix(1): -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,lf[717],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -default: -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* scan-real in ##sys#string->compnum in k12559 in k11436 */ -static void f_21243(C_word t0,C_word 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_21243,3,t0,t1,t2);} -a=C_alloc(8); -if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ -t3=C_i_string_ref(((C_word*)t0)[3],t2); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21256,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); -t5=C_eqp(t3,C_make_character(43)); -if(C_truep(t5)){ -t6=t4; -f_21256(t6,lf[720]);} -else{ -t6=C_eqp(t3,C_make_character(45)); -t7=t4; -f_21256(t7,(C_truep(t6)?lf[719]:C_SCHEME_FALSE));}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k21254 in scan-real in ##sys#string->compnum in k12559 in k11436 */ -static void f_21256(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_21256,2,t0,t1);} -a=C_alloc(11); -t2=(C_truep(t1)?C_fixnum_plus(((C_word*)t0)[2],C_fix(1)):((C_word*)t0)[2]); -if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[3]))){ -t3=C_i_string_ref(((C_word*)t0)[4],t2); -t4=C_eqp(t3,C_make_character(105)); -t5=(C_truep(t4)?t4:C_eqp(t3,C_make_character(73))); -if(C_truep(t5)){ -if(C_truep(t1)){ -t6=C_fixnum_plus(t2,C_fix(1)); -t7=C_eqp(t6,((C_word*)t0)[3]); -if(C_truep(t7)){ -t8=C_eqp(t1,lf[719]); -t9=(C_truep(t8)?C_a_i_cons(&a,2,C_fix(-1),t2):C_a_i_cons(&a,2,C_fix(1),t2)); -if(C_truep(t9)){ -t10=((C_word*)t0)[5];{ -C_word av2[2]; -av2[0]=t10; -av2[1]=t9; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -/* library.scm:3156: scan-ureal */ -t10=((C_word*)t0)[6]; -f_20901(t10,((C_word*)t0)[5],t2,C_eqp(t1,lf[719]));}} -else{ -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21311,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=t2,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); -t9=C_fixnum_plus(t2,C_fix(5)); -if(C_truep(C_fixnum_less_or_equal_p(t9,((C_word*)t0)[3]))){ -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_21349,a[2]=t8,tmp=(C_word)a,a+=3,tmp); -/* library.scm:3150: scheme#substring */ -t11=*((C_word*)lf[489]+1);{ -C_word av2[5]; -av2[0]=t11; -av2[1]=t10; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -av2[4]=C_fixnum_plus(t2,C_fix(5)); -((C_proc)(void*)(*((C_word*)t11+1)))(5,av2);}} -else{ -t10=t8; -f_21311(t10,C_SCHEME_FALSE);}}} -else{ -/* library.scm:3156: scan-ureal */ -t6=((C_word*)t0)[6]; -f_20901(t6,((C_word*)t0)[5],t2,C_eqp(t1,lf[719]));}} -else{ -t6=C_eqp(t3,C_make_character(110)); -t7=(C_truep(t6)?t6:C_eqp(t3,C_make_character(78))); -if(C_truep(t7)){ -if(C_truep(t1)){ -t8=C_fixnum_plus(t2,C_fix(5)); -if(C_truep(C_fixnum_less_or_equal_p(t8,((C_word*)t0)[3]))){ -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_21397,a[2]=((C_word*)t0)[7],a[3]=t1,a[4]=t2,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); -/* library.scm:3160: scheme#substring */ -t10=*((C_word*)lf[489]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t9; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -av2[4]=C_fixnum_plus(t2,C_fix(5)); -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} -else{ -/* library.scm:3165: scan-ureal */ -t9=((C_word*)t0)[6]; -f_20901(t9,((C_word*)t0)[5],t2,C_eqp(t1,lf[719]));}} -else{ -/* library.scm:3165: scan-ureal */ -t8=((C_word*)t0)[6]; -f_20901(t8,((C_word*)t0)[5],t2,C_eqp(t1,lf[719]));}} -else{ -/* library.scm:3166: scan-ureal */ -t8=((C_word*)t0)[6]; -f_20901(t8,((C_word*)t0)[5],t2,C_eqp(t1,lf[719]));}}} -else{ -t3=((C_word*)t0)[5];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k21309 in k21254 in scan-real in ##sys#string->compnum in k12559 in k11436 */ -static void f_21311(C_word t0,C_word t1){ -C_word 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_21311,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=( -/* library.scm:3151: go-inexact! */ - f_20334(((C_word*)((C_word*)t0)[2])[1],C_eqp(((C_word*)t0)[3],lf[719])) -); -t3=C_eqp(((C_word*)t0)[3],lf[719]); -t4=(C_truep(t3)?lf[718]:lf[717]); -t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(5)); -if(C_truep(C_fixnum_lessp(t5,((C_word*)t0)[5]))){ -t6=C_fixnum_plus(((C_word*)t0)[4],C_fix(5)); -t7=C_a_i_cons(&a,2,t4,t6); -if(C_truep(t7)){ -t8=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t8; -av2[1]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -/* library.scm:3156: scan-ureal */ -t8=((C_word*)t0)[7]; -f_20901(t8,((C_word*)t0)[6],((C_word*)t0)[4],C_eqp(((C_word*)t0)[3],lf[719]));}} -else{ -t6=C_a_i_cons(&a,2,t4,C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -/* library.scm:3156: scan-ureal */ -t7=((C_word*)t0)[7]; -f_20901(t7,((C_word*)t0)[6],((C_word*)t0)[4],C_eqp(((C_word*)t0)[3],lf[719]));}}} -else{ -/* library.scm:3156: scan-ureal */ -t2=((C_word*)t0)[7]; -f_20901(t2,((C_word*)t0)[6],((C_word*)t0)[4],C_eqp(((C_word*)t0)[3],lf[719]));}} - -/* k21347 in k21254 in scan-real in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21349(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_21349,c,av);} -t2=((C_word*)t0)[2]; -f_21311(t2,C_i_string_ci_equal_p(t1,lf[721]));} - -/* k21395 in k21254 in scan-real in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21397(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_21397,c,av);} -a=C_alloc(7); -if(C_truep(C_i_string_ci_equal_p(t1,lf[722]))){ -t2=( -/* library.scm:3161: go-inexact! */ - f_20334(((C_word*)((C_word*)t0)[2])[1],C_eqp(((C_word*)t0)[3],lf[719])) -); -t3=C_flonum(&a,C_ub_i_flonum_quotient((double)0.0,(double)0.0)); -t4=C_fixnum_plus(((C_word*)t0)[4],C_fix(5)); -if(C_truep(C_fixnum_lessp(t4,((C_word*)t0)[5]))){ -t5=C_fixnum_plus(((C_word*)t0)[4],C_fix(5)); -t6=C_a_i_cons(&a,2,t3,t5); -if(C_truep(t6)){ -t7=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -/* library.scm:3165: scan-ureal */ -t7=((C_word*)t0)[7]; -f_20901(t7,((C_word*)t0)[6],((C_word*)t0)[4],C_eqp(((C_word*)t0)[3],lf[719]));}} -else{ -t5=C_a_i_cons(&a,2,t3,C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -/* library.scm:3165: scan-ureal */ -t6=((C_word*)t0)[7]; -f_20901(t6,((C_word*)t0)[6],((C_word*)t0)[4],C_eqp(((C_word*)t0)[3],lf[719]));}}} -else{ -/* library.scm:3165: scan-ureal */ -t2=((C_word*)t0)[7]; -f_20901(t2,((C_word*)t0)[6],((C_word*)t0)[4],C_eqp(((C_word*)t0)[3],lf[719]));}} - -/* k21472 in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21474(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_21474,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21477,a[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_cdr(t1); -t4=(C_truep(t3)?C_i_string_ref(((C_word*)t0)[5],C_u_i_cdr(t1)):C_SCHEME_FALSE); -t5=C_eqp(t4,C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=t2;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_u_i_car(t1); -f_21477(2,av2);}} -else{ -t6=C_eqp(t4,C_make_character(105)); -t7=(C_truep(t6)?t6:C_eqp(t4,C_make_character(73))); -if(C_truep(t7)){ -t8=C_fixnum_plus(C_u_i_cdr(t1),C_fix(1)); -t9=C_eqp(((C_word*)t0)[6],t8); -if(C_truep(t9)){ -t10=C_i_string_ref(((C_word*)t0)[5],((C_word*)t0)[7]); -t11=C_eqp(t10,C_make_character(43)); -if(C_truep(t11)){ -if(C_truep(t11)){ -/* library.scm:3173: scheme#make-rectangular */ -t12=*((C_word*)lf[606]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t12; -av2[1]=t2; -av2[2]=C_fix(0); -av2[3]=C_u_i_car(t1); -((C_proc)(void*)(*((C_word*)t12+1)))(4,av2);}} -else{ -t12=t2;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} -else{ -t12=C_eqp(C_i_string_ref(((C_word*)t0)[5],((C_word*)t0)[7]),C_make_character(45)); -if(C_truep(t12)){ -/* library.scm:3173: scheme#make-rectangular */ -t13=*((C_word*)lf[606]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t13; -av2[1]=t2; -av2[2]=C_fix(0); -av2[3]=C_u_i_car(t1); -((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} -else{ -t13=t2;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}}} -else{ -t10=t2;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} -else{ -t8=C_eqp(t4,C_make_character(43)); -t9=(C_truep(t8)?t8:C_eqp(t4,C_make_character(45))); -if(C_truep(t9)){ -t10=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_FALSE); -t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_21571,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:3176: scan-real */ -t12=((C_word*)t0)[9]; -f_21243(t12,t11,C_u_i_cdr(t1));} -else{ -t10=C_eqp(t4,C_make_character(64)); -if(C_truep(t10)){ -t11=C_set_block_item(((C_word*)t0)[8],0,C_SCHEME_FALSE); -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21635,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3184: scan-real */ -t13=((C_word*)t0)[9]; -f_21243(t13,t12,C_fixnum_plus(C_u_i_cdr(t1),C_fix(1)));} -else{ -t11=t2;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}}}}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} - -/* k21475 in k21472 in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_21477,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[716]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_21489,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:3189: scheme#exact->inexact */ -t4=*((C_word*)lf[86]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(C_i_finitep(t1))?t1:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21487 in k21475 in k21472 in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_21489,c,av);} -if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ -if(C_truep(C_u_i_zerop2(t1))){ -/* library.scm:3192: chicken.flonum#fpneg */ -t2=*((C_word*)lf[550]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k21569 in k21472 in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_21571,c,av);} -if(C_truep(t1)){ -if(C_truep(C_i_cdr(t1))){ -t2=C_fixnum_plus(C_u_i_cdr(t1),C_fix(1)); -t3=C_eqp(((C_word*)t0)[2],t2); -if(C_truep(t3)){ -t4=C_i_string_ref(((C_word*)t0)[3],C_u_i_cdr(t1)); -t5=C_eqp(t4,C_make_character(105)); -if(C_truep(t5)){ -if(C_truep(t5)){ -/* library.scm:3181: scheme#make-rectangular */ -t6=*((C_word*)lf[606]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[4]; -av2[2]=C_u_i_car(((C_word*)t0)[5]); -av2[3]=C_u_i_car(t1); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} -else{ -t6=C_i_string_ref(((C_word*)t0)[3],C_u_i_cdr(t1)); -t7=C_eqp(t6,C_make_character(73)); -if(C_truep(t7)){ -/* library.scm:3181: scheme#make-rectangular */ -t8=*((C_word*)lf[606]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t8; -av2[1]=((C_word*)t0)[4]; -av2[2]=C_u_i_car(((C_word*)t0)[5]); -av2[3]=C_u_i_car(t1); -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} -else{ -t8=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}}} -else{ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} - -/* k21633 in k21472 in ##sys#string->compnum in k12559 in k11436 */ -static void C_ccall f_21635(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_21635,c,av);} -if(C_truep(t1)){ -t2=C_i_cdr(t1); -if(C_truep(C_i_not(t2))){ -/* library.scm:3186: scheme#make-polar */ -t3=*((C_word*)lf[608]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_u_i_car(((C_word*)t0)[3]); -av2[3]=C_u_i_car(t1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_21477(2,av2);}}} - -/* scheme#string->number in k12559 in k11436 */ -static void C_ccall f_21713(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_21713,c,av);} -a=C_alloc(5); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_fix(10):C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_string_2(t2,lf[724]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_21723,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_fixnump(t4))){ -if(C_truep(C_fixnum_lessp(C_fix(1),t4))){ -if(C_truep(C_fixnum_lessp(t4,C_fix(37)))){ -t7=t6;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_21723(2,av2);}} -else{ -/* library.scm:3201: ##sys#error-bad-base */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[442]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[442]+1); -av2[1]=t6; -av2[2]=t4; -av2[3]=lf[724]; -tp(4,av2);}}} -else{ -/* library.scm:3201: ##sys#error-bad-base */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[442]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[442]+1); -av2[1]=t6; -av2[2]=t4; -av2[3]=lf[724]; -tp(4,av2);}}} -else{ -/* library.scm:3201: ##sys#error-bad-base */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[442]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[442]+1); -av2[1]=t6; -av2[2]=t4; -av2[3]=lf[724]; -tp(4,av2);}}} - -/* k21721 in scheme#string->number in k12559 in k11436 */ -static void C_ccall f_21723(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,6)))){ -C_save_and_reclaim((void *)f_21723,c,av);} -a=C_alloc(8); -t2=C_u_i_string_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|5,a[1]=(C_word)f_21730,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li551),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_21730(t6,((C_word*)t0)[4],C_fix(0),C_SCHEME_FALSE,C_SCHEME_FALSE,t2);} - -/* scan-prefix in k21721 in scheme#string->number in k12559 in k11436 */ -static void f_21730(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 *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(0,0,5)))){ -C_save_and_reclaim_args((void *)trf_21730,6,t0,t1,t2,t3,t4,t5);} -t6=C_fixnum_plus(t2,C_fix(2)); -t7=C_fixnum_lessp(t6,t5); -t8=(C_truep(t7)?C_eqp(C_i_string_ref(((C_word*)t0)[2],t2),C_make_character(35)):C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=C_fixnum_plus(t2,C_fix(1)); -t10=C_i_string_ref(((C_word*)t0)[2],t9); -t11=C_eqp(t10,C_make_character(105)); -t12=(C_truep(t11)?t11:C_eqp(t10,C_make_character(73))); -if(C_truep(t12)){ -if(C_truep(C_i_not(t3))){ -/* library.scm:3208: scan-prefix */ -t24=t1; -t25=C_fixnum_plus(t2,C_fix(2)); -t26=lf[716]; -t27=t4; -t28=t5; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -t5=t28; -goto loop;} -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_eqp(t10,C_make_character(101)); -t14=(C_truep(t13)?t13:C_eqp(t10,C_make_character(69))); -if(C_truep(t14)){ -if(C_truep(C_i_not(t3))){ -/* library.scm:3209: scan-prefix */ -t24=t1; -t25=C_fixnum_plus(t2,C_fix(2)); -t26=lf[715]; -t27=t4; -t28=t5; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -t5=t28; -goto loop;} -else{ -t15=t1;{ -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(t10,C_make_character(98)); -t16=(C_truep(t15)?t15:C_eqp(t10,C_make_character(66))); -if(C_truep(t16)){ -if(C_truep(C_i_not(t4))){ -/* library.scm:3210: scan-prefix */ -t24=t1; -t25=C_fixnum_plus(t2,C_fix(2)); -t26=t3; -t27=C_fix(2); -t28=t5; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -t5=t28; -goto loop;} -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{ -t17=C_eqp(t10,C_make_character(111)); -t18=(C_truep(t17)?t17:C_eqp(t10,C_make_character(79))); -if(C_truep(t18)){ -if(C_truep(C_i_not(t4))){ -/* library.scm:3211: scan-prefix */ -t24=t1; -t25=C_fixnum_plus(t2,C_fix(2)); -t26=t3; -t27=C_fix(8); -t28=t5; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -t5=t28; -goto loop;} -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{ -t19=C_eqp(t10,C_make_character(100)); -t20=(C_truep(t19)?t19:C_eqp(t10,C_make_character(68))); -if(C_truep(t20)){ -if(C_truep(C_i_not(t4))){ -/* library.scm:3212: scan-prefix */ -t24=t1; -t25=C_fixnum_plus(t2,C_fix(2)); -t26=t3; -t27=C_fix(10); -t28=t5; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -t5=t28; -goto loop;} -else{ -t21=t1;{ -C_word av2[2]; -av2[0]=t21; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}}} -else{ -t21=C_eqp(t10,C_make_character(120)); -t22=(C_truep(t21)?t21:C_eqp(t10,C_make_character(88))); -if(C_truep(t22)){ -if(C_truep(C_i_not(t4))){ -/* library.scm:3213: scan-prefix */ -t24=t1; -t25=C_fixnum_plus(t2,C_fix(2)); -t26=t3; -t27=C_fix(16); -t28=t5; -t1=t24; -t2=t25; -t3=t26; -t4=t27; -t5=t28; -goto loop;} -else{ -t23=t1;{ -C_word av2[2]; -av2[0]=t23; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}} -else{ -t23=t1;{ -C_word av2[2]; -av2[0]=t23; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}}}}}}}} -else{ -if(C_truep(t4)){ -/* library.scm:3215: ##sys#string->compnum */ -f_20330(t1,t4,((C_word*)t0)[2],t2,t3);} -else{ -/* library.scm:3215: ##sys#string->compnum */ -f_20330(t1,((C_word*)t0)[4],((C_word*)t0)[2],t2,t3);}}} - -/* ##sys#string->number in k12559 in k11436 */ -static void C_ccall f_21962(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_21962,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_fix(10):C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -if(C_truep(C_rest_nullp(c,4))){ -/* library.scm:3218: ##sys#string->compnum */ -f_20330(t1,t4,t2,C_fix(0),t7);} -else{ -/* library.scm:3218: ##sys#string->compnum */ -f_20330(t1,t4,t2,C_fix(0),t7);}} - -/* chicken.base#equal=? in k12559 in k11436 */ -static void C_ccall f_22008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(13,c,5)))){ -C_save_and_reclaim((void *)f_22008,c,av);} -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_22011,a[2]=t7,a[3]=((C_word)li558),tmp=(C_word)a,a+=4,tmp)); -t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22079,a[2]=t5,a[3]=t7,a[4]=((C_word)li559),tmp=(C_word)a,a+=5,tmp)); -/* library.scm:3263: walk */ -t10=((C_word*)t7)[1]; -f_22079(t10,t1,t2,t3);} - -/* compare-slots in chicken.base#equal=? in k12559 in k11436 */ -static void f_22011(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ -C_save_and_reclaim_args((void *)trf_22011,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=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_22038,a[2]=t9,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=t11,a[7]=((C_word)li557),tmp=(C_word)a,a+=8,tmp)); -t13=((C_word*)t11)[1]; -f_22038(t13,t1,t4);}} -else{ -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} - -/* loop in compare-slots in chicken.base#equal=? in k12559 in k11436 */ -static void f_22038(C_word t0,C_word t1,C_word 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_22038,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -/* library.scm:3235: walk */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_22079(t4,t1,C_slot(((C_word*)t0)[4],t2),C_slot(((C_word*)t0)[5],t2));} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22062,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3236: walk */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_22079(t5,t4,C_slot(((C_word*)t0)[4],t2),C_slot(((C_word*)t0)[5],t2));}} - -/* k22060 in loop in compare-slots in chicken.base#equal=? in k12559 in k11436 */ -static void C_ccall f_22062(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_22062,c,av);} -if(C_truep(t1)){ -/* library.scm:3237: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_22038(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* walk in chicken.base#equal=? in k12559 in k11436 */ -static void f_22079(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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,4)))){ -C_save_and_reclaim_args((void *)trf_22079,4,t0,t1,t2,t3);} -t4=C_eqp(t2,t3); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_numberp(t2))){ -t5=C_i_numberp(t3); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_i_nequalp(t2,t3):C_eqp(t2,t3)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -if(C_truep(C_i_not(C_blockp(t2)))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_not(C_blockp(t3)))){ -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_i_not(C_sametypep(t2,t3)))){ -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_specialp(t2))){ -if(C_truep(C_specialp(t3))){ -if(C_truep(C_closurep(t2))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=shallow_equal(t2,t3); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -/* library.scm:3251: compare-slots */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_22011(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_stringp(t2))){ -/* library.scm:3253: walk */ -t9=t1; -t10=C_slot(t2,C_fix(0)); -t11=C_slot(t3,C_fix(0)); -t1=t9; -t2=t10; -t3=t11; -goto loop;} -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_bv_compare(t2,t3,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:3262: compare-slots */ -t8=((C_word*)((C_word*)t0)[2])[1]; -f_22011(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);}}}}}}}}}}} - -/* ##sys#interned-symbol? in k12559 in k11436 */ -static void C_ccall f_22195(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22195,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_lookup_symbol(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#string->symbol-name in k12559 in k11436 */ -static void C_ccall f_22198(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22198,c,av);} -a=C_alloc(5); -t3=C_slot(t2,C_fix(0)); -t4=C_block_size(t3); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22208,a[2]=t1,a[3]=t3,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3277: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k22206 in ##sys#string->symbol-name in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22208,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_copy_bytevector(((C_word*)t0)[3],t1,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#symbol->string/shared in k12559 in k11436 */ -static void C_ccall f_22210(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,1)))){ -C_save_and_reclaim((void *)f_22210,c,av);} -a=C_alloc(5); -t3=C_slot(t2,C_fix(1)); -t4=C_utf_length(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_ustring(&a,2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#symbol->string in k12559 in k11436 */ -static void C_ccall f_22216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22216,c,av);} -a=C_alloc(5); -t3=C_slot(t2,C_fix(1)); -t4=C_block_size(t3); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22226,a[2]=t3,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3290: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k22224 in ##sys#symbol->string in k12559 in k11436 */ -static void C_ccall f_22226(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_22226,c,av);} -a=C_alloc(5); -t2=C_utf_length(((C_word*)t0)[2]); -t3=C_copy_bytevector(((C_word*)t0)[2],t1,((C_word*)t0)[3]); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_ustring(&a,2,t3,t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#string->symbol in k12559 in k11436 */ -static void C_ccall f_22229(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_22229,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22237,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:3297: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k22235 in ##sys#string->symbol in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_22237,c,av);} -/* library.scm:3297: ##sys#intern-symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[732]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[732]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* scheme#symbol->string in k12559 in k11436 */ -static void C_ccall f_22239(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_22239,c,av);} -t3=C_i_check_symbol_2(t2,lf[741]); -/* library.scm:3302: ##sys#symbol->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[738]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[738]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} - -/* scheme#string->symbol in k12559 in k11436 */ -static void C_ccall f_22248(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_22248,c,av);} -t3=C_i_check_string_2(t2,lf[743]); -/* library.scm:3307: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[739]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} - -/* chicken.base#string->uninterned-symbol in k12559 in k11436 */ -static void C_ccall f_22257(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22257,c,av);} -a=C_alloc(3); -t3=C_i_check_string_2(t2,lf[745]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22268,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:3313: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k22266 in chicken.base#string->uninterned-symbol in k12559 in k11436 */ -static void C_ccall f_22268(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_22268,c,av);} -/* library.scm:3313: ##sys#make-symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[734]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[734]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* chicken.base#gensym in k12559 in k11436 */ -static void C_ccall f_22270(C_word c,C_word *av){ -C_word tmp; -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 +16,c,5)))){ -C_save_and_reclaim((void*)f_22270,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+16); -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_22287,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22291,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22295,a[2]=t6,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t8=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45311,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* library.scm:3331: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t9; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -tp(3,av2);}} -else{ -t9=C_get_rest_arg(c,2,av,2,t0); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22308,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=t9,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_blockp(t9))){ -if(C_truep(C_stringp(t9))){ -t11=t10;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t9; -f_22308(2,av2);}} -else{ -if(C_truep(C_symbolp(t9))){ -/* library.scm:3328: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t10; -av2[2]=t9; -tp(3,av2);}} -else{ -/* library.scm:3318: ##sys#signal-hook */ -t11=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t11; -av2[1]=t10; -av2[2]=lf[295]; -av2[3]=lf[748]; -av2[4]=lf[749]; -av2[5]=t9; -((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}}}} -else{ -t11=t10;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_SCHEME_FALSE; -f_22308(2,av2);}}}} - -/* k22285 in chicken.base#gensym in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_22287,c,av);} -/* library.scm:3320: ##sys#make-symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[734]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[734]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k22289 in chicken.base#gensym in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_22291,c,av);} -/* library.scm:3321: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[736]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k22293 in chicken.base#gensym in k12559 in k11436 */ -static void C_ccall f_22295(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_22295,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22299,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3331: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -tp(3,av2);}} - -/* k22297 in k22293 in chicken.base#gensym in k12559 in k11436 */ -static void C_ccall f_22299(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_22299,c,av);} -/* library.scm:3322: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k22306 in chicken.base#gensym in k12559 in k11436 */ -static void C_ccall f_22308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22308,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f45315,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3331: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -tp(3,av2);}} -else{ -/* library.scm:3318: ##sys#signal-hook */ -t2=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[295]; -av2[3]=lf[748]; -av2[4]=lf[749]; -av2[5]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* chicken.base#symbol-append in k12559 in k11436 */ -static void C_ccall f_22328(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +20,c,3)))){ -C_save_and_reclaim((void*)f_22328,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_22336,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_22351,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_22353,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li573),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_22353(t12,t8,t2);} - -/* k22334 in chicken.base#symbol-append in k12559 in k11436 */ -static void C_ccall f_22336(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_22336,c,av);} -/* library.scm:3336: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[739]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k22349 in chicken.base#symbol-append in k12559 in k11436 */ -static void C_ccall f_22351(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_22351,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop3999 in chicken.base#symbol-append in k12559 in k11436 */ -static void f_22353(C_word 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_22353,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22378,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_slot(t2,C_fix(0)); -t5=C_i_check_symbol_2(t4,lf[751]); -/* library.scm:3341: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t3; -av2[2]=t4; -tp(3,av2);}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k22376 in map-loop3999 in chicken.base#symbol-append in k12559 in k11436 */ -static void C_ccall f_22378(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_22378,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_22353(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* chicken.keyword#keyword? in k12559 in k11436 */ -static void C_ccall f_22387(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22387,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_keywordp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.keyword#string->keyword in k12559 in k11436 */ -static void C_ccall f_22390(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22390,c,av);} -a=C_alloc(3); -t3=C_i_check_string_2(t2,lf[755]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_22401,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:3358: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k22399 in chicken.keyword#string->keyword in k12559 in k11436 */ -static void C_ccall f_22401(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_22401,c,av);} -/* library.scm:3358: ##sys#intern-keyword */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[733]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[733]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* chicken.keyword#keyword->string in k12559 in k11436 */ -static void C_ccall f_22403(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_22403,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22410,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3363: keyword? */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k22408 in chicken.keyword#keyword->string in k12559 in k11436 */ -static void C_ccall f_22410(C_word c,C_word *av){ -C_word tmp; -C_word 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_22410,c,av);} -if(C_truep(t1)){ -/* library.scm:3364: ##sys#symbol->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[738]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[738]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -/* library.scm:3365: ##sys#signal-hook */ -t2=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[295]; -av2[3]=lf[757]; -av2[4]=lf[758]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* chicken.keyword#get-keyword in k12559 in k11436 */ -static void C_ccall f_22421(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_22421,c,av);} -a=C_alloc(7); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22428,a[2]=t3,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:3370: ##sys#check-keyword */ -t7=*((C_word*)lf[417]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=lf[761]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} - -/* k22426 in chicken.keyword#get-keyword in k12559 in k11436 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22428,c,av);} -t2=C_i_check_list_2(((C_word*)t0)[2],lf[761]); -t3=C_i_get_keyword(((C_word*)t0)[3],((C_word*)t0)[2],((C_word*)t0)[4]); -t4=C_eqp(t3,((C_word*)t0)[4]); -if(C_truep(t4)){ -if(C_truep(((C_word*)t0)[5])){ -/* library.scm:3374: thunk */ -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} -else{ -t5=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t5=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* ##sys#bytevector->list in k12559 in k11436 */ -static void C_ccall f_22452(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(7,c,4)))){ -C_save_and_reclaim((void *)f_22452,c,av);} -a=C_alloc(7); -t3=C_block_size(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_22465,a[2]=t2,a[3]=t6,a[4]=((C_word)li579),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_22465(t8,t1,t4,C_SCHEME_END_OF_LIST);} - -/* loop in ##sys#bytevector->list in k12559 in k11436 */ -static void f_22465(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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_22465,4,t0,t1,t2,t3);} -a=C_alloc(3); -if(C_truep(C_fixnum_lessp(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=C_fixnum_difference(t2,C_fix(1)); -t5=C_subbyte(((C_word*)t0)[2],t2); -t6=C_a_i_cons(&a,2,t5,t3); -/* library.scm:3389: loop */ -t8=t1; -t9=t4; -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;}} - -/* ##sys#list->bytevector in k12559 in k11436 */ -static void C_ccall f_22486(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22486,c,av);} -a=C_alloc(4); -t3=C_i_length(t2); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22493,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3394: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=t3; -tp(3,av2);}} - -/* k22491 in ##sys#list->bytevector in k12559 in k11436 */ -static void C_ccall f_22493(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ -C_save_and_reclaim((void *)f_22493,c,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_22498,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=((C_word)li581),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_22498(t5,((C_word*)t0)[3],((C_word*)t0)[2],C_fix(0));} - -/* loop in k22491 in ##sys#list->bytevector in k12559 in k11436 */ -static void f_22498(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_22498,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_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22511,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_fixnump(t4))){ -t6=C_setsubbyte(((C_word*)t0)[2],t3,t4); -/* library.scm:3402: loop */ -t8=t1; -t9=C_u_i_cdr(t2); -t10=C_fixnum_plus(t3,C_fix(1)); -t1=t8; -t2=t9; -t3=t10; -goto loop;} -else{ -/* library.scm:3401: ##sys#signal-hook */ -t6=*((C_word*)lf[235]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[295]; -av2[3]=lf[765]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}} - -/* k22509 in loop in k22491 in ##sys#list->bytevector in k12559 in k11436 */ -static void C_ccall f_22511(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_22511,c,av);} -/* library.scm:3402: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_22498(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));} - -/* chicken.bytevector#make-bytevector in k12559 in k11436 */ -static void C_ccall f_22525(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_22525,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_fixnum_2(t2,lf[768]); -if(C_truep(t4)){ -t6=C_i_check_fixnum_2(t4,lf[768]); -/* library.scm:3416: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -tp(4,av2);}} -else{ -/* library.scm:3416: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -tp(4,av2);}}} - -/* chicken.bytevector#bytevector? in k12559 in k11436 */ -static void C_ccall f_22549(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22549,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(C_blockp(t2))?C_bytevectorp(t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.bytevector#bytevector-length in k12559 in k11436 */ -static void C_ccall f_22555(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_22555,c,av);} -t3=C_i_check_bytevector_2(t2,lf[771]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_block_size(t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.bytevector#bytevector-u8-ref in k12559 in k11436 */ -static void C_ccall f_22564(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_22564,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_bytevector_ref(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.bytevector#bytevector-u8-set! in k12559 in k11436 */ -static void C_ccall f_22567(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_22567,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_bytevector_set(t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.bytevector#string->utf8 in k12559 in k11436 */ -static void C_ccall f_22570(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,2)))){ -C_save_and_reclaim((void *)f_22570,c,av);} -a=C_alloc(5); -t3=C_i_check_string_2(t2,lf[775]); -t4=C_slot(t2,C_fix(0)); -t5=C_block_size(t4); -t6=C_fixnum_difference(t5,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22584,a[2]=t4,a[3]=t6,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3436: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t7; -av2[2]=t6; -tp(3,av2);}} - -/* k22582 in chicken.bytevector#string->utf8 in k12559 in k11436 */ -static void C_ccall f_22584(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22584,c,av);} -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.bytevector#utf8->string in k12559 in k11436 */ -static void C_ccall f_22586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_22586,c,av);} -a=C_alloc(4); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_TRUE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_bytevector_2(t2,lf[777]); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22596,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t4)){ -t7=C_block_size(t2); -if(C_truep(C_i_not(C_utf_validate(t2,t7)))){ -t8=C_fix((C_word)C_DECODING_ERROR); -/* library.scm:3443: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t6; -av2[2]=t8; -av2[3]=lf[777]; -av2[4]=t2; -tp(5,av2);}} -else{ -/* library.scm:3445: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[300]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(0); -av2[4]=C_block_size(t2); -tp(5,av2);}}} -else{ -/* library.scm:3445: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[300]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(0); -av2[4]=C_block_size(t2); -tp(5,av2);}}} - -/* k22594 in chicken.bytevector#utf8->string in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_22596,c,av);} -/* library.scm:3445: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[300]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(0); -av2[4]=C_block_size(((C_word*)t0)[3]); -tp(5,av2);}} - -/* chicken.bytevector#string->latin1 in k12559 in k11436 */ -static void C_ccall f_22626(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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,2)))){ -C_save_and_reclaim((void *)f_22626,c,av);} -a=C_alloc(5); -t3=C_i_check_string_2(t2,lf[779]); -t4=C_slot(t2,C_fix(0)); -t5=C_slot(t2,C_fix(1)); -t6=C_block_size(t4); -t7=C_fixnum_difference(t6,C_fix(1)); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22643,a[2]=t4,a[3]=t7,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3452: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t8; -av2[2]=t5; -tp(3,av2);}} - -/* k22641 in chicken.bytevector#string->latin1 in k12559 in k11436 */ -static void C_ccall f_22643(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22643,c,av);} -t2=C_utf_to_latin(((C_word*)t0)[2],t1,C_fix(0),((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.bytevector#latin1->string in k12559 in k11436 */ -static void C_ccall f_22645(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_22645,c,av);} -a=C_alloc(5); -t3=C_i_check_bytevector_2(t2,lf[781]); -t4=C_block_size(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22655,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3459: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=C_fixnum_times(t4,C_fix(2)); -tp(3,av2);}} - -/* k22653 in chicken.bytevector#latin1->string in k12559 in k11436 */ -static void C_ccall f_22655(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_22655,c,av);} -/* library.scm:3461: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[300]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(0); -av2[4]=C_latin_to_utf(((C_word*)t0)[3],t1,C_fix(0),((C_word*)t0)[4]); -tp(5,av2);}} - -/* chicken.bytevector#bytevector=? in k12559 in k11436 */ -static void C_ccall f_22661(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(0,c,1)))){ -C_save_and_reclaim((void *)f_22661,c,av);} -t4=C_i_check_bytevector_2(t2,lf[783]); -t5=C_i_check_bytevector_2(t3,lf[783]); -t6=C_block_size(t2); -t7=C_block_size(t3); -t8=C_eqp(t7,t6); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=(C_truep(t8)?C_bv_compare(t2,t3,t6):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* chicken.bytevector#bytevector in k12559 in k11436 */ -static void C_ccall f_22683(C_word c,C_word *av){ -C_word tmp; -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_22683,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=C_u_i_length(t2); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22688,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3472: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=t3; -tp(3,av2);}} - -/* k22686 in chicken.bytevector#bytevector in k12559 in k11436 */ -static void C_ccall f_22688(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22688,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22693,a[2]=t1,a[3]=((C_word)li593),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_22693(t2,((C_word*)t0)[3],C_fix(0)) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* loop in k22686 in chicken.bytevector#bytevector in k12559 in k11436 */ -static C_word f_22693(C_word t0,C_word t1,C_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_word*)t0)[2]);} -else{ -t3=C_i_car(t1); -t4=C_i_check_fixnum_2(t3,lf[785]); -t5=C_setsubbyte(((C_word*)t0)[2],t2,t3); -t7=C_u_i_cdr(t1); -t8=C_fixnum_plus(t2,C_fix(1)); -t1=t7; -t2=t8; -goto loop;}} - -/* chicken.bytevector#bytevector-copy in k12559 in k11436 */ -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=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ -C_save_and_reclaim((void *)f_22714,c,av);} -a=C_alloc(7); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_fix(0):C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t8=C_rest_nullp(c,4); -t9=C_i_check_bytevector_2(t2,lf[787]); -t10=C_block_size(t2); -t11=(C_truep(t7)?t7:t10); -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22739,a[2]=t1,a[3]=t11,a[4]=t4,a[5]=t2,a[6]=t10,tmp=(C_word)a,a+=7,tmp); -if(C_truep(t7)){ -/* library.scm:3486: ##sys#check-range/including */ -t13=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t13; -av2[1]=t12; -av2[2]=t7; -av2[3]=C_fix(0); -av2[4]=t10; -av2[5]=lf[788]; -((C_proc)(void*)(*((C_word*)t13+1)))(6,av2);}} -else{ -t13=t12;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=C_SCHEME_UNDEFINED; -f_22739(2,av2);}}} - -/* k22737 in chicken.bytevector#bytevector-copy in k12559 in k11436 */ -static void C_ccall f_22739(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_22739,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_22745,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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(0)); -if(C_truep(t3)){ -t4=C_eqp(((C_word*)t0)[4],C_fix(0)); -t5=t2; -f_22745(t5,(C_truep(t4)?C_eqp(C_fix(0),((C_word*)t0)[3]):C_SCHEME_FALSE));} -else{ -t4=t2; -f_22745(t4,C_SCHEME_FALSE);}} - -/* k22743 in k22737 in chicken.bytevector#bytevector-copy in k12559 in k11436 */ -static void f_22745(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,5)))){ -C_save_and_reclaim_args((void *)trf_22745,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -/* library.scm:3488: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_fix(0); -tp(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22751,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); -/* library.scm:3490: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[788]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} - -/* k22749 in k22743 in k22737 in chicken.bytevector#bytevector-copy in k12559 in k11436 */ -static void C_ccall f_22751(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_22751,c,av);} -a=C_alloc(6); -t2=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_22754,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* library.scm:3492: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k22752 in k22749 in k22743 in k22737 in chicken.bytevector#bytevector-copy in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_22754,c,av);} -t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]); -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.bytevector#bytevector-copy! in k12559 in k11436 */ -static void C_ccall f_22795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_min_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_22795,c,av);} -a=C_alloc(10); -t5=C_rest_nullp(c,5); -t6=(C_truep(t5)?C_fix(0):C_get_rest_arg(c,5,av,5,t0)); -t7=C_rest_nullp(c,5); -t8=C_rest_nullp(c,6); -t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,5,t0)); -t10=C_rest_nullp(c,6); -t11=C_i_check_bytevector_2(t2,lf[790]); -t12=C_i_check_bytevector_2(t4,lf[790]); -t13=C_block_size(t2); -t14=C_block_size(t4); -t15=(C_truep(t9)?t9:t14); -t16=C_fixnum_difference(t15,t6); -t17=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_22829,a[2]=t1,a[3]=t2,a[4]=t4,a[5]=t3,a[6]=t6,a[7]=t16,a[8]=t13,a[9]=t14,tmp=(C_word)a,a+=10,tmp); -t18=C_eqp(t14,C_fix(0)); -if(C_truep(t18)){ -t19=C_eqp(t16,C_fix(0)); -t20=t17; -f_22829(t20,(C_truep(t19)?C_eqp(t6,C_fix(0)):C_SCHEME_FALSE));} -else{ -t19=t17; -f_22829(t19,C_SCHEME_FALSE);}} - -/* k22827 in chicken.bytevector#bytevector-copy! in k12559 in k11436 */ -static void f_22829(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,5)))){ -C_save_and_reclaim_args((void *)trf_22829,2,t0,t1);} -a=C_alloc(9); -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|8,a[1]=(C_word)f_22832,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:3505: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[9]; -av2[5]=lf[791]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} - -/* k22830 in k22827 in chicken.bytevector#bytevector-copy! in k12559 in k11436 */ -static void C_ccall f_22832(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ -C_save_and_reclaim((void *)f_22832,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_22835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:3506: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[8]; -av2[5]=lf[791]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k22833 in k22830 in k22827 in chicken.bytevector#bytevector-copy! in k12559 in k11436 */ -static void C_ccall f_22835(C_word c,C_word *av){ -C_word tmp; -C_word t0=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,5)))){ -C_save_and_reclaim((void *)f_22835,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_22838,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:3507: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[7]); -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[8]; -av2[5]=lf[791]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k22836 in k22833 in k22830 in k22827 in chicken.bytevector#bytevector-copy! in k12559 in k11436 */ -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,1)))){ -C_save_and_reclaim((void *)f_22838,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_copy_memory_with_offset(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.bytevector#bytevector-append in k12559 in k11436 */ -static void C_ccall f_22877(C_word c,C_word *av){ -C_word tmp; -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,4)))){ -C_save_and_reclaim((void*)f_22877,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_22883,a[2]=t2,a[3]=t4,a[4]=((C_word)li598),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_22883(t6,t1,t2,C_fix(0));} - -/* loop in chicken.bytevector#bytevector-append in k12559 in k11436 */ -static void f_22883(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -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_22883,4,t0,t1,t2,t3);} -a=C_alloc(4); -if(C_truep(C_i_nullp(t2))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22893,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:3514: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=t3; -tp(3,av2);}} -else{ -t4=C_i_car(t2); -t5=C_i_check_bytevector_2(t4,lf[793]); -t6=C_u_i_cdr(t2); -t7=C_block_size(t4); -/* library.scm:3524: loop */ -t9=t1; -t10=t6; -t11=C_fixnum_plus(t3,t7); -t1=t9; -t2=t10; -t3=t11; -goto loop;}} - -/* k22891 in loop in chicken.bytevector#bytevector-append in k12559 in k11436 */ -static void C_ccall f_22893(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_22893,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22898,a[2]=t1,a[3]=((C_word)li597),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_22898(t2,((C_word*)t0)[3],C_fix(0)) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* loop in k22891 in loop in chicken.bytevector#bytevector-append in k12559 in k11436 */ -static C_word f_22898(C_word t0,C_word t1,C_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_word*)t0)[2]);} -else{ -t3=C_i_car(t1); -t4=C_block_size(t3); -t5=C_copy_memory_with_offset(((C_word*)t0)[2],t3,t2,C_fix(0),t4); -t7=C_u_i_cdr(t1); -t8=C_fixnum_plus(t2,t4); -t1=t7; -t2=t8; -goto loop;}} - -/* scheme#make-vector in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -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_22935,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_fixnum_2(t2,lf[794]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_22942,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:3533: ##sys#error */ -t6=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[794]; -av2[3]=lf[795]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_22942(2,av2);}}} - -/* k22940 in scheme#make-vector in k12559 in k11436 */ -static void C_ccall f_22942(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22942,c,av);} -if(C_truep(C_i_nullp(((C_word*)t0)[2]))){ -t2=C_SCHEME_UNDEFINED; -/* library.scm:3534: ##sys#allocate-vector */ -t3=*((C_word*)lf[383]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -/* library.scm:3534: ##sys#allocate-vector */ -t2=*((C_word*)lf[383]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_i_car(((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* scheme#list->vector in k12559 in k11436 */ -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=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_22964,c,av);} -a=C_alloc(4); -t3=C_i_listp(t2); -if(C_truep(C_i_not(t3))){ -/* library.scm:3545: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[797]; -tp(4,av2);}} -else{ -t4=C_i_length(t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22980,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3547: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}}} - -/* k22978 in scheme#list->vector in k12559 in k11436 */ -static void C_ccall f_22980(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_22980,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_22985,a[2]=t1,a[3]=((C_word)li601),tmp=(C_word)a,a+=4,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_22985(t2,((C_word*)t0)[3],C_fix(0)) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* loop in k22978 in scheme#list->vector in k12559 in k11436 */ -static C_word f_22985(C_word t0,C_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))){ -return(((C_word*)t0)[2]);} -else{ -t3=C_slot(t1,C_fix(0)); -t4=C_i_setslot(((C_word*)t0)[2],t2,t3); -t6=C_slot(t1,C_fix(1)); -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* scheme#vector->list in k12559 in k11436 */ -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=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<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,5)))){ -C_save_and_reclaim((void *)f_23016,c,av);} -a=C_alloc(11); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=t4; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_rest_nullp(c,3); -t8=C_rest_nullp(c,4); -t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t10=t9; -t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); -t12=C_rest_nullp(c,4); -t13=C_i_check_vector_2(t2,lf[798]); -t14=C_block_size(t2); -t15=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23038,a[2]=t11,a[3]=t2,a[4]=t1,a[5]=t6,a[6]=t14,tmp=(C_word)a,a+=7,tmp); -if(C_truep(((C_word*)t6)[1])){ -/* library.scm:3561: ##sys#check-range/including */ -t16=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t16; -av2[1]=t15; -av2[2]=((C_word*)t6)[1]; -av2[3]=C_fix(0); -av2[4]=t14; -av2[5]=lf[798]; -((C_proc)(void*)(*((C_word*)t16+1)))(6,av2);}} -else{ -t16=C_set_block_item(t6,0,C_fix(0)); -t17=t15;{ -C_word *av2=av; -av2[0]=t17; -av2[1]=t16; -f_23038(2,av2);}}} - -/* k23036 in scheme#vector->list in k12559 in k11436 */ -static void C_ccall f_23038(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_23038,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23041,a[2]=((C_word*)t0)[2],a[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])){ -/* library.scm:3564: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[798]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t3=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[6]); -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_23041(2,av2);}}} - -/* k23039 in k23036 in scheme#vector->list in k12559 in k11436 */ -static void C_ccall f_23041(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23041,c,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_23046,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li603),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_23046(t5,((C_word*)t0)[4],((C_word*)((C_word*)t0)[5])[1]);} - -/* loop in k23039 in k23036 in scheme#vector->list in k12559 in k11436 */ -static void f_23046(C_word t0,C_word 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_23046,3,t0,t1,t2);} -a=C_alloc(4); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)((C_word*)t0)[2])[1]))){ -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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23064,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3570: loop */ -t6=t4; -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* k23062 in loop in k23039 in k23036 in scheme#vector->list in k12559 in k11436 */ -static void C_ccall f_23064(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_23064,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#vector in k12559 in k11436 */ -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; -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_23102,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+0); -t2=C_build_rest(&a,c,2,av); -C_word t3; -/* library.scm:3572: scheme#list->vector */ -t3=*((C_word*)lf[118]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* scheme#vector-fill! in k12559 in k11436 */ -static void C_ccall f_23108(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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<4) C_bad_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ -C_save_and_reclaim((void *)f_23108,c,av);} -a=C_alloc(12); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=t5; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_rest_nullp(c,4); -t9=C_rest_nullp(c,5); -t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,4,t0)); -t11=t10; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_rest_nullp(c,5); -t14=C_i_check_vector_2(t2,lf[799]); -t15=C_block_size(t2); -t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23130,a[2]=t12,a[3]=t2,a[4]=t3,a[5]=t1,a[6]=t7,a[7]=t15,tmp=(C_word)a,a+=8,tmp); -if(C_truep(((C_word*)t7)[1])){ -/* library.scm:3579: ##sys#check-range/including */ -t17=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t17; -av2[1]=t16; -av2[2]=((C_word*)t7)[1]; -av2[3]=C_fix(0); -av2[4]=t15; -av2[5]=lf[799]; -((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} -else{ -t17=C_set_block_item(t7,0,C_fix(0)); -t18=t16;{ -C_word *av2=av; -av2[0]=t18; -av2[1]=t17; -f_23130(2,av2);}}} - -/* k23128 in scheme#vector-fill! in k12559 in k11436 */ -static void C_ccall f_23130(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_23130,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23133,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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)[2])[1])){ -/* library.scm:3582: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[7]; -av2[5]=lf[799]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t3=C_set_block_item(((C_word*)t0)[2],0,((C_word*)t0)[7]); -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_23133(2,av2);}}} - -/* k23131 in k23128 in scheme#vector-fill! in k12559 in k11436 */ -static void C_ccall f_23133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23133,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23138,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=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_23138(t2,((C_word*)((C_word*)t0)[6])[1]) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* doloop4337 in k23131 in k23128 in scheme#vector-fill! in k12559 in k11436 */ -static C_word f_23138(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_fixnum_greater_or_equal_p(t1,((C_word*)((C_word*)t0)[2])[1]))){ -t2=C_SCHEME_UNDEFINED; -return(t2);} -else{ -t2=C_i_setslot(((C_word*)t0)[3],t1,((C_word*)t0)[4]); -t4=C_fixnum_plus(t1,C_fix(1)); -t1=t4; -goto loop;}} - -/* scheme#vector-copy in k12559 in k11436 */ -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=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_23189,c,av);} -a=C_alloc(3); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t8=C_rest_nullp(c,4); -t9=C_i_check_vector_2(t2,lf[801]); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23206,a[2]=((C_word)li609),tmp=(C_word)a,a+=3,tmp); -if(C_truep(t7)){ -/* library.scm:3600: copy */ -f_23206(t1,t2,t4,t7);} -else{ -t11=(C_truep(t4)?t4:C_fix(0)); -/* library.scm:3601: copy */ -f_23206(t1,t2,t11,C_block_size(t2));}} - -/* copy in scheme#vector-copy in k12559 in k11436 */ -static void f_23206(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_23206,4,t1,t2,t3,t4);} -a=C_alloc(7); -t5=C_block_size(t2); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23213,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -/* library.scm:3592: ##sys#check-range/including */ -t7=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t3; -av2[3]=C_fix(0); -av2[4]=t4; -av2[5]=lf[801]; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} - -/* k23211 in copy in scheme#vector-copy in k12559 in k11436 */ -static void C_ccall f_23213(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23213,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); -/* library.scm:3593: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[801]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k23214 in k23211 in copy in scheme#vector-copy in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_23216,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23219,a[2]=((C_word*)t0)[2],a[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:3594: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t2; -av2[2]=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[5]); -tp(3,av2);}} - -/* k23217 in k23214 in k23211 in copy in scheme#vector-copy in k12559 in k11436 */ -static void C_ccall f_23219(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23219,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23224,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word)li608),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_23224(t2,C_fix(0),((C_word*)t0)[5]) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* doloop4368 in k23217 in k23214 in k23211 in copy in scheme#vector-copy in k12559 in k11436 */ -static C_word f_23224(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_stack_overflow_check; -loop:{} -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ -return(((C_word*)t0)[3]);} -else{ -t3=C_slot(((C_word*)t0)[4],t2); -t4=C_i_setslot(((C_word*)t0)[3],t1,t3); -t6=C_fixnum_plus(t1,C_fix(1)); -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* scheme#vector-copy! in k12559 in k11436 */ -static void C_ccall f_23296(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_min_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,7)))){ -C_save_and_reclaim((void *)f_23296,c,av);} -a=C_alloc(3); -t5=C_rest_nullp(c,5); -t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,5,t0)); -t7=C_rest_nullp(c,5); -t8=C_rest_nullp(c,6); -t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,5,t0)); -t10=C_rest_nullp(c,6); -t11=C_i_check_vector_2(t2,lf[803]); -t12=C_i_check_vector_2(t4,lf[803]); -t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23316,a[2]=((C_word)li613),tmp=(C_word)a,a+=3,tmp); -if(C_truep(t9)){ -/* library.scm:3624: copy! */ -f_23316(t1,t2,t3,t4,t6,t9);} -else{ -t14=(C_truep(t6)?t6:C_fix(0)); -/* library.scm:3625: copy! */ -f_23316(t1,t2,t3,t4,t14,C_block_size(t4));}} - -/* copy! in scheme#vector-copy! in k12559 in k11436 */ -static void f_23316(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; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ -C_save_and_reclaim_args((void *)trf_23316,6,t1,t2,t3,t4,t5,t6);} -a=C_alloc(11); -t7=C_block_size(t2); -t8=C_block_size(t4); -t9=C_fixnum_difference(t6,t5); -t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23329,a[2]=t2,a[3]=t4,a[4]=t5,a[5]=t3,a[6]=t6,a[7]=t9,a[8]=t1,a[9]=t7,a[10]=t8,tmp=(C_word)a,a+=11,tmp); -/* library.scm:3610: ##sys#check-range/including */ -t11=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t11; -av2[1]=t10; -av2[2]=t3; -av2[3]=C_fix(0); -av2[4]=t7; -av2[5]=lf[803]; -((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} - -/* k23327 in copy! in scheme#vector-copy! in k12559 in k11436 */ -static void C_ccall f_23329(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_23329,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_23332,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],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:3611: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[803]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k23330 in k23327 in copy! in scheme#vector-copy! in k12559 in k11436 */ -static void C_ccall f_23332(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_23332,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_23335,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:3612: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[10]; -av2[5]=lf[803]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k23333 in k23330 in k23327 in copy! in scheme#vector-copy! in k12559 in k11436 */ -static void C_ccall f_23335(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_23335,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_23338,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:3613: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_fix(0); -av2[4]=C_fixnum_difference(((C_word*)t0)[9],((C_word*)t0)[5]); -av2[5]=lf[803]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k23336 in k23333 in k23330 in k23327 in copy! in scheme#vector-copy! in k12559 in k11436 */ -static void C_ccall f_23338(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_23338,c,av);} -a=C_alloc(6); -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(C_truep(t2)?C_fixnum_lessp(((C_word*)t0)[4],((C_word*)t0)[5]):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=C_fixnum_difference(((C_word*)t0)[6],C_fix(1)); -t5=C_fixnum_plus(((C_word*)t0)[5],((C_word*)t0)[7]); -t6=C_fixnum_difference(t5,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23357,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li611),tmp=(C_word)a,a+=6,tmp); -t8=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=( - f_23357(t7,t4,t6) -); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23391,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word)li612),tmp=(C_word)a,a+=6,tmp); -t5=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=( - f_23391(t4,((C_word*)t0)[4],((C_word*)t0)[5]) -); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* doloop4409 in k23336 in k23333 in k23330 in k23327 in copy! in scheme#vector-copy! in k12559 in k11436 */ -static C_word f_23357(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_stack_overflow_check; -loop:{} -if(C_truep(C_fixnum_lessp(t1,((C_word*)t0)[2]))){ -t3=C_SCHEME_UNDEFINED; -return(t3);} -else{ -t3=C_slot(((C_word*)t0)[3],t1); -t4=C_i_setslot(((C_word*)t0)[4],t2,t3); -t6=C_fixnum_difference(t1,C_fix(1)); -t7=C_fixnum_difference(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* doloop4415 in k23336 in k23333 in k23330 in k23327 in copy! in scheme#vector-copy! in k12559 in k11436 */ -static C_word f_23391(C_word t0,C_word t1,C_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(t1,((C_word*)t0)[2]); -if(C_truep(t3)){ -t4=C_SCHEME_UNDEFINED; -return(t4);} -else{ -t4=C_slot(((C_word*)t0)[3],t1); -t5=C_i_setslot(((C_word*)t0)[4],t2,t4); -t7=C_fixnum_plus(t1,C_fix(1)); -t8=C_fixnum_plus(t2,C_fix(1)); -t1=t7; -t2=t8; -goto loop;}} - -/* scheme#vector-append in k12559 in k11436 */ -static void C_ccall f_23469(C_word c,C_word *av){ -C_word tmp; -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_23469,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; -C_word t13; -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23590,a[2]=((C_word)li615),tmp=(C_word)a,a+=3,tmp); -t4=( - f_23590(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_23484,a[2]=t1,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_23556,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li618),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_23556(t13,t9,t2);} - -/* k23482 in scheme#vector-append in k12559 in k11436 */ -static void C_ccall f_23484(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_23484,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23487,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_check_list_2(t1,lf[254]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_23532,a[2]=((C_word)li617),tmp=(C_word)a,a+=3,tmp); -t5=( - f_23532(t1,C_fix(0)) -); -/* library.scm:3630: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t2; -av2[2]=t5; -tp(3,av2);}} - -/* k23485 in k23482 in scheme#vector-append in k12559 in k11436 */ -static void C_ccall f_23487(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_23487,c,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_23492,a[2]=t1,a[3]=t3,a[4]=((C_word)li616),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_23492(t5,((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],C_fix(0));} - -/* doloop4501 in k23485 in k23482 in scheme#vector-append in k12559 in k11436 */ -static void f_23492(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,6)))){ -C_save_and_reclaim_args((void *)trf_23492,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t2))){ -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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23502,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:3635: scheme#vector-copy! */ -t6=*((C_word*)lf[802]+1);{ -C_word av2[7]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -av2[3]=t4; -av2[4]=C_i_car(t2); -av2[5]=C_fix(0); -av2[6]=C_i_car(t3); -((C_proc)(void*)(*((C_word*)t6+1)))(7,av2);}}} - -/* k23500 in doloop4501 in k23485 in k23482 in scheme#vector-append in k12559 in k11436 */ -static void C_ccall f_23502(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_23502,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_23492(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),C_u_i_cdr(((C_word*)t0)[5]),C_fixnum_plus(((C_word*)t0)[6],C_u_i_car(((C_word*)t0)[5])));} - -/* foldl4491 in k23482 in scheme#vector-append in k12559 in k11436 */ -static C_word f_23532(C_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_pairp(t1))){ -t3=C_slot(t1,C_fix(1)); -t4=C_slot(t1,C_fix(0)); -t6=t3; -t7=C_fixnum_plus(t2,t4); -t1=t6; -t2=t7; -goto loop;} -else{ -return(t2);}} - -/* map-loop4460 in scheme#vector-append in k12559 in k11436 */ -static void f_23556(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_23556,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_block_size(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop4434 in scheme#vector-append in k12559 in k11436 */ -static C_word f_23590(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_vector_2(t2,lf[805]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* chicken.base#subvector in k12559 in k11436 */ -static void C_ccall f_23613(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ -C_save_and_reclaim((void *)f_23613,c,av);} -a=C_alloc(8); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=C_i_check_vector_2(t2,lf[806]); -t7=C_block_size(t2); -t8=(C_truep(t5)?t5:t7); -t9=C_fixnum_difference(t8,t3); -t10=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_23632,a[2]=t9,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=t8,a[7]=t7,tmp=(C_word)a,a+=8,tmp); -/* library.scm:3643: ##sys#check-range/including */ -t11=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t11; -av2[1]=t10; -av2[2]=t3; -av2[3]=C_fix(0); -av2[4]=t7; -av2[5]=lf[806]; -((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} - -/* k23630 in chicken.base#subvector in k12559 in k11436 */ -static void C_ccall f_23632(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23632,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23635,a[2]=((C_word*)t0)[2],a[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:3644: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[7]; -av2[5]=lf[806]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k23633 in k23630 in chicken.base#subvector in k12559 in k11436 */ -static void C_ccall f_23635(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23635,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23638,a[2]=((C_word*)t0)[2],a[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:3645: scheme#make-vector */ -t3=*((C_word*)lf[117]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k23636 in k23633 in k23630 in chicken.base#subvector in k12559 in k11436 */ -static void C_ccall f_23638(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_23638,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23643,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)li620),tmp=(C_word)a,a+=7,tmp); -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_23643(t2,C_fix(0)) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* doloop4528 in k23636 in k23633 in k23630 in chicken.base#subvector in k12559 in k11436 */ -static C_word f_23643(C_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_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); -t6=C_fixnum_plus(t1,C_fix(1)); -t1=t6; -goto loop;}} - -/* chicken.base#vector-resize in k12559 in k11436 */ -static void C_ccall f_23676(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_23676,c,av);} -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=C_i_check_vector_2(t2,lf[807]); -t7=C_i_check_fixnum_2(t3,lf[807]); -/* library.scm:3654: ##sys#vector-resize */ -f_23697(t1,t2,t3,t5);} - -/* ##sys#vector-resize in k12559 in k11436 */ -static void f_23697(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_23697,4,t1,t2,t3,t4);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23701,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3657: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t5; -av2[2]=t3; -av2[3]=t4; -tp(4,av2);}} - -/* k23699 in ##sys#vector-resize in k12559 in k11436 */ -static void C_ccall f_23701(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23701,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_23704,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:3658: scheme#min */ -t3=*((C_word*)lf[325]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_block_size(((C_word*)t0)[2]); -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k23702 in k23699 in ##sys#vector-resize in k12559 in k11436 */ -static void C_ccall f_23704(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23704,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_23709,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li623),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_23709(t2,C_fix(0)) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* doloop4556 in k23702 in k23699 in ##sys#vector-resize in k12559 in k11436 */ -static C_word f_23709(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_slot(((C_word*)t0)[4],t1); -t3=C_i_setslot(((C_word*)t0)[3],t1,t2); -t5=C_fixnum_plus(t1,C_fix(1)); -t1=t5; -goto loop;}} - -/* scheme#char-ci=? in k12559 in k11436 */ -static void C_ccall f_23736(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_23736,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; -C_word t12; -t5=C_i_check_char_2(t2,lf[809]); -t6=C_i_check_char_2(t3,lf[809]); -t7=C_utf_char_foldcase(t3); -t8=C_eqp(C_utf_char_foldcase(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|3,a[1]=(C_word)f_23752,a[2]=t10,a[3]=((C_word)li625),tmp=(C_word)a,a+=4,tmp)); -t12=((C_word*)t10)[1]; -f_23752(t12,t1,t7,t4,t8);} - -/* loop in scheme#char-ci=? in k12559 in k11436 */ -static void f_23752(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_23752,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t3))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_slot(t3,C_fix(0)); -t6=C_i_check_char_2(t5,lf[809]); -t7=C_utf_char_foldcase(t5); -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23768,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* library.scm:3676: g4571 */ -t9=t7;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=t8; -((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}} - -/* k23766 in loop in scheme#char-ci=? in k12559 in k11436 */ -static void C_ccall f_23768(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23768,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -if(C_truep(((C_word*)t0)[3])){ -/* library.scm:3677: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23752(t3,((C_word*)t0)[5],t1,t2,C_eqp(((C_word*)t0)[6],t1));} -else{ -/* library.scm:3677: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23752(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}} - -/* scheme#char-ci>? in k12559 in k11436 */ -static void C_ccall f_23785(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_23785,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; -C_word t12; -C_word t13; -t5=C_i_check_char_2(t2,lf[810]); -t6=C_i_check_char_2(t3,lf[810]); -t7=C_utf_char_foldcase(t3); -t8=C_utf_char_foldcase(t2); -t9=C_u_i_char_greaterp(t8,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|3,a[1]=(C_word)f_23799,a[2]=t11,a[3]=((C_word)li627),tmp=(C_word)a,a+=4,tmp)); -t13=((C_word*)t11)[1]; -f_23799(t13,t1,t7,t4,t9);} - -/* loop in scheme#char-ci>? in k12559 in k11436 */ -static void f_23799(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_23799,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t3))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_slot(t3,C_fix(0)); -t6=C_i_check_char_2(t5,lf[810]); -t7=C_utf_char_foldcase(t5); -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23815,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* library.scm:3693: g4588 */ -t9=t7;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=t8; -((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}} - -/* k23813 in loop in scheme#char-ci>? in k12559 in k11436 */ -static void C_ccall f_23815(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23815,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -if(C_truep(((C_word*)t0)[3])){ -/* library.scm:3694: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23799(t3,((C_word*)t0)[5],t1,t2,C_u_i_char_greaterp(((C_word*)t0)[6],t1));} -else{ -/* library.scm:3694: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23799(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}} - -/* scheme#char-ci=? in k12559 in k11436 */ -static void C_ccall f_23871(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_23871,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; -C_word t12; -C_word t13; -t5=C_i_check_char_2(t2,lf[812]); -t6=C_i_check_char_2(t3,lf[812]); -t7=C_utf_char_foldcase(t3); -t8=C_utf_char_foldcase(t2); -t9=C_u_i_char_greater_or_equal_p(t8,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|3,a[1]=(C_word)f_23885,a[2]=t11,a[3]=((C_word)li631),tmp=(C_word)a,a+=4,tmp)); -t13=((C_word*)t11)[1]; -f_23885(t13,t1,t7,t4,t9);} - -/* loop in scheme#char-ci>=? in k12559 in k11436 */ -static void f_23885(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_23885,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t3))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_slot(t3,C_fix(0)); -t6=C_i_check_char_2(t5,lf[812]); -t7=C_utf_char_foldcase(t5); -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23901,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* library.scm:3727: g4622 */ -t9=t7;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=t8; -((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}} - -/* k23899 in loop in scheme#char-ci>=? in k12559 in k11436 */ -static void C_ccall f_23901(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_23901,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -if(C_truep(((C_word*)t0)[3])){ -/* library.scm:3728: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23885(t3,((C_word*)t0)[5],t1,t2,C_u_i_char_greater_or_equal_p(((C_word*)t0)[6],t1));} -else{ -/* library.scm:3728: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23885(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}} - -/* scheme#char-ci<=? in k12559 in k11436 */ -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=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_23914,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; -C_word t12; -C_word t13; -t5=C_i_check_char_2(t2,lf[813]); -t6=C_i_check_char_2(t3,lf[813]); -t7=C_utf_char_foldcase(t3); -t8=C_utf_char_foldcase(t2); -t9=C_u_i_char_less_or_equal_p(t8,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|3,a[1]=(C_word)f_23928,a[2]=t11,a[3]=((C_word)li633),tmp=(C_word)a,a+=4,tmp)); -t13=((C_word*)t11)[1]; -f_23928(t13,t1,t7,t4,t9);} - -/* loop in scheme#char-ci<=? in k12559 in k11436 */ -static void f_23928(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_23928,5,t0,t1,t2,t3,t4);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t3))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_slot(t3,C_fix(0)); -t6=C_i_check_char_2(t5,lf[813]); -t7=C_utf_char_foldcase(t5); -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_23944,a[2]=t3,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* library.scm:3744: g4639 */ -t9=t7;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=t8; -((C_proc)C_fast_retrieve_proc(t9))(2,av2);}}} - -/* k23942 in loop in scheme#char-ci<=? in k12559 in k11436 */ -static void C_ccall f_23944(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_23944,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -if(C_truep(((C_word*)t0)[3])){ -/* library.scm:3745: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23928(t3,((C_word*)t0)[5],t1,t2,C_u_i_char_less_or_equal_p(((C_word*)t0)[6],t1));} -else{ -/* library.scm:3745: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_23928(t3,((C_word*)t0)[5],t1,t2,C_SCHEME_FALSE);}} - -/* k23957 in k12559 in k11436 */ -static void C_ccall f_23959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_23959,c,av);} -a=C_alloc(15); -t2=C_SCHEME_END_OF_LIST; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_23961,a[2]=t1,a[3]=((C_word)li636),tmp=(C_word)a,a+=4,tmp); -t5=C_mutate((C_word*)lf[239]+1 /* (set! chicken.base#char-name ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24002,a[2]=t4,a[3]=t3,a[4]=t1,a[5]=((C_word)li637),tmp=(C_word)a,a+=6,tmp)); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24119,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3789: chicken.base#char-name */ -t7=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[1630]; -av2[3]=C_make_character(32); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} - -/* lookup-char in k23957 in k12559 in k11436 */ -static void f_23961(C_word t0,C_word 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_23961,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_23974,a[2]=t2,a[3]=((C_word)li635),tmp=(C_word)a,a+=4,tmp); -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=( - f_23974(t6,t5) -); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* loop in lookup-char in k23957 in k12559 in k11436 */ -static C_word f_23974(C_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=C_slot(t2,C_fix(0)); -t4=C_eqp(t3,((C_word*)t0)[2]); -if(C_truep(t4)){ -return(t2);} -else{ -t6=C_slot(t1,C_fix(1)); -t1=t6; -goto loop;}} -else{ -return(C_SCHEME_FALSE);}} - -/* chicken.base#char-name in k23957 in k12559 in k11436 */ -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=av[2]; -C_word t3; -C_word *a; -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_24002,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_pairp(t3); -t5=(C_truep(t4)?C_get_rest_arg(c,3,av,3,t0):C_SCHEME_FALSE); -if(C_truep(C_charp(t2))){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24015,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:3763: lookup-char */ -t7=((C_word*)t0)[2]; -f_23961(t7,t6,t2);} -else{ -if(C_truep(t5)){ -t6=C_i_check_symbol_2(t2,lf[814]); -t7=C_i_check_char_2(t5,lf[814]); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24033,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t5,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[2],tmp=(C_word)a,a+=8,tmp); -t9=C_slot(t2,C_fix(1)); -t10=C_block_size(t9); -if(C_truep(C_fixnum_lessp(t10,C_fix(2)))){ -/* library.scm:3769: ##sys#signal-hook */ -t11=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t11; -av2[1]=t8; -av2[2]=lf[295]; -av2[3]=lf[814]; -av2[4]=lf[815]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t11+1)))(6,av2);}} -else{ -t11=t8;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=C_SCHEME_UNDEFINED; -f_24033(2,av2);}}} -else{ -t6=C_i_check_symbol_2(t2,lf[814]); -t7=C_i_assq(t2,((C_word*)((C_word*)t0)[3])[1]); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=(C_truep(t7)?C_slot(t7,C_fix(1)):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} - -/* k24013 in chicken.base#char-name in k23957 in k12559 in k11436 */ -static void C_ccall f_24015(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24015,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_slot(t1,C_fix(1)):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k24031 in chicken.base#char-name in k23957 in k12559 in k11436 */ -static void C_ccall f_24033(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_24033,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24036,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:3770: lookup-char */ -t3=((C_word*)t0)[7]; -f_23961(t3,t2,((C_word*)t0)[5]);} - -/* k24034 in k24031 in chicken.base#char-name in k23957 in k12559 in k11436 */ -static void C_ccall f_24036(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_24036,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); -t3=C_i_setslot(t1,C_fix(1),((C_word*)t0)[2]); -if(C_truep(t2)){ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_i_slot(t2,C_fix(1),((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]); -t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} -else{ -t2=C_fix(C_character_code(((C_word*)t0)[5])); -t3=C_fixnum_modulo(t2,C_fix(37)); -t4=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[5]); -t5=C_a_i_cons(&a,2,t4,((C_word*)((C_word*)t0)[3])[1]); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t5); -t7=C_a_i_cons(&a,2,((C_word*)t0)[5],((C_word*)t0)[2]); -t8=C_slot(((C_word*)t0)[6],t3); -t9=C_a_i_cons(&a,2,t7,t8); -t10=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_i_setslot(((C_word*)t0)[6],t3,t9); -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} - -/* k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24119(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24119,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24122,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3790: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1629]; -av2[3]=C_make_character(9); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24122(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24122,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24125,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3791: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1628]; -av2[3]=C_make_character(10); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24125(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_24125,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24128,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3792: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1627]; -av2[3]=C_make_character(10); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24128,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24131,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3793: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1626]; -av2[3]=C_make_character(11); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24131,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24134,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3794: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1625]; -av2[3]=C_make_character(127); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24134(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24134,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24137,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3795: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1624]; -av2[3]=C_make_character(27); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_24137,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24140,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3796: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1623]; -av2[3]=C_make_character(27); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24140(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_24140,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24143,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3797: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1622]; -av2[3]=C_make_character(7); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_24143,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24146,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3798: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1621]; -av2[3]=C_make_character(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24146(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24146,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24149,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3799: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1620]; -av2[3]=C_make_character(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24149(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24149,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24152,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3800: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1619]; -av2[3]=C_make_character(13); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24152,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24155,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3801: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1618]; -av2[3]=C_make_character(12); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24155(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24155,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24158,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:3802: chicken.base#char-name */ -t3=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1617]; -av2[3]=C_make_character(8); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24158(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(84,c,6)))){ -C_save_and_reclaim((void *)f_24158,c,av);} -a=C_alloc(84); -t2=C_mutate((C_word*)lf[816]+1 /* (set! ##sys#call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_cc,a[2]=((C_word)li638),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[817]+1 /* (set! ##sys#call-with-cthulhu ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_call_with_cthulhu,a[2]=((C_word)li639),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[818]+1 /* (set! ##sys#call-with-values ...) */,*((C_word*)lf[161]+1)); -t5=C_mutate((C_word*)lf[819]+1 /* (set! ##sys#for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24163,a[2]=((C_word)li641),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[821]+1 /* (set! ##sys#map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24201,a[2]=((C_word)li643),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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24243,a[2]=((C_word)li646),tmp=(C_word)a,a+=3,tmp); -t10=C_set_block_item(t8,0,t9); -t11=C_mutate((C_word*)lf[210]+1 /* (set! scheme#for-each ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24301,a[2]=t8,a[3]=((C_word)li651),tmp=(C_word)a,a+=4,tmp)); -t12=C_mutate((C_word*)lf[211]+1 /* (set! scheme#map ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24383,a[2]=t8,a[3]=((C_word)li656),tmp=(C_word)a,a+=4,tmp)); -t13=C_set_block_item(lf[823] /* ##sys#dynamic-winds */,0,C_SCHEME_END_OF_LIST); -t14=C_mutate((C_word*)lf[212]+1 /* (set! scheme#dynamic-wind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24485,a[2]=((C_word)li658),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[824]+1 /* (set! ##sys#dynamic-wind ...) */,*((C_word*)lf[212]+1)); -t16=C_mutate((C_word*)lf[162]+1 /* (set! scheme#call-with-current-continuation ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24516,a[2]=((C_word)li661),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[163]+1 /* (set! scheme#call/cc ...) */,*((C_word*)lf[162]+1)); -t18=C_mutate(&lf[825] /* (set! ##sys#dynamic-unwind ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24556,a[2]=((C_word)li662),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[247]+1 /* (set! chicken.base#port-closed? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24614,a[2]=((C_word)li663),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[314]+1 /* (set! ##sys#make-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24627,a[2]=((C_word)li664),tmp=(C_word)a,a+=3,tmp)); -t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41630,a[2]=((C_word)li668),tmp=(C_word)a,a+=3,tmp); -t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41711,a[2]=((C_word)li671),tmp=(C_word)a,a+=3,tmp); -t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41744,a[2]=((C_word)li672),tmp=(C_word)a,a+=3,tmp); -t24=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41772,a[2]=((C_word)li674),tmp=(C_word)a,a+=3,tmp); -t25=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41789,a[2]=((C_word)li675),tmp=(C_word)a,a+=3,tmp); -t26=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41795,a[2]=((C_word)li676),tmp=(C_word)a,a+=3,tmp); -t27=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41798,a[2]=((C_word)li677),tmp=(C_word)a,a+=3,tmp); -t28=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41801,a[2]=((C_word)li680),tmp=(C_word)a,a+=3,tmp); -t29=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41908,a[2]=((C_word)li683),tmp=(C_word)a,a+=3,tmp); -t30=C_a_i_vector(&a,10,t21,t22,t23,t24,t25,t26,t27,t28,t29,C_SCHEME_FALSE); -t31=C_mutate((C_word*)lf[836]+1 /* (set! ##sys#stream-port-class ...) */,t30); -t32=C_mutate((C_word*)lf[837]+1 /* (set! ##sys#open-file-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_open_file_port,a[2]=((C_word)li684),tmp=(C_word)a,a+=3,tmp)); -t33=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24673,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4111: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t33; -av2[2]=C_fix(1); -av2[3]=C_fast_retrieve(lf[836]); -av2[4]=lf[1616]; -av2[5]=lf[856]; -tp(6,av2);}} - -/* ##sys#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24163(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -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_24163,c,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_24169,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li640),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_24169(t7,t1,t3);} - -/* loop in ##sys#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24169(C_word t0,C_word t1,C_word 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_24169,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_24185,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3815: p */ -t5=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} -else{ -/* library.scm:3817: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[820]; -tp(4,av2);}}}} - -/* k24183 in loop in ##sys#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24185(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_24185,c,av);} -/* library.scm:3816: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_24169(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* ##sys#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24201(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_24201,c,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_24207,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=((C_word)li642),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_24207(t7,t1,t3);} - -/* loop in ##sys#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24207(C_word t0,C_word t1,C_word 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_24207,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t3)){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_i_pairp(t2))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24227,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3823: p */ -t5=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} -else{ -/* library.scm:3824: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[822]; -tp(4,av2);}}}} - -/* k24225 in loop in ##sys#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24227(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24227,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24231,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3823: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_24207(t3,t2,C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k24229 in k24225 in loop in ##sys#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24231(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_24231,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* mapsafe4702 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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; -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,3)))){ -C_save_and_reclaim((void *)f_24243,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24249,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=((C_word)li645),tmp=(C_word)a,a+=6,tmp); -/* library.scm:3828: scheme#call-with-current-continuation */ -t6=*((C_word*)lf[162]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* a24248 in mapsafe4702 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24249(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24249,c,av);} -a=C_alloc(9); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_set_block_item(t4,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24255,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li644),tmp=(C_word)a,a+=7,tmp)); -t6=((C_word*)t4)[1]; -f_24255(t6,t1,((C_word*)t0)[4]);} - -/* lp in a24248 in mapsafe4702 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24255(C_word t0,C_word 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_24255,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(t3)){ -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=C_eqp(t4,C_SCHEME_END_OF_LIST); -if(C_truep(t5)){ -/* library.scm:3834: empty */ -t6=((C_word*)t0)[2];{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t1; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} -else{ -if(C_truep(C_i_pairp(t4))){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24287,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3836: p */ -t7=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t4; -((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} -else{ -/* library.scm:3837: ##sys#error-not-a-proper-list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[51]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[51]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=((C_word*)t0)[5]; -tp(4,av2);}}}}} - -/* k24285 in lp in a24248 in mapsafe4702 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24287(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24287,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24291,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3836: lp */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_24255(t3,t2,C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k24289 in k24285 in lp in a24248 in mapsafe4702 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_24291(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_24291,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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=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_24301,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; -if(C_truep(C_rest_nullp(c,4))){ -t5=C_i_check_list_2(t3,lf[820]); -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_24316,a[2]=t7,a[3]=t2,a[4]=((C_word)li647),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_24316(t9,t1,t3);} -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|5,a[1]=(C_word)f_24346,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li650),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_24346(t9,t1,t5);}} - -/* for-each-loop4722 in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24316(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_24316,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24326,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3842: g4723 */ -t4=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t4))(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);}}} - -/* k24324 in for-each-loop4722 in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_24326,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_24316(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* loop in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24346(C_word t0,C_word t1,C_word 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_24346,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24353,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); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24377,a[2]=((C_word)li649),tmp=(C_word)a,a+=3,tmp); -/* library.scm:3845: mapsafe */ -t5=((C_word*)((C_word*)t0)[3])[1];{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -av2[3]=t2; -av2[4]=lf[820]; -((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} - -/* k24351 in loop in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24353(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24353,c,av);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t1))){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24362,a[2]=((C_word*)t0)[2],a[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_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=t1; -C_apply(4,av2);}} -else{ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k24360 in k24351 in loop in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24362(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24362,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24369,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_24371,a[2]=((C_word)li648),tmp=(C_word)a,a+=3,tmp); -/* library.scm:3848: mapsafe */ -t4=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t3; -av2[3]=((C_word*)t0)[5]; -av2[4]=lf[820]; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k24367 in k24360 in k24351 in loop in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_24369(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_24369,c,av);} -/* library.scm:3848: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_24346(t2,((C_word*)t0)[3],t1);} - -/* a24370 in k24360 in k24351 in loop in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_24371(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24371,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a24376 in loop in scheme#for-each in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24377(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24377,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24383,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; -if(C_truep(C_rest_nullp(c,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_i_check_list_2(t3,lf[822]); -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_24401,a[2]=t7,a[3]=t11,a[4]=t2,a[5]=t8,a[6]=((C_word)li652),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_24401(t13,t1,t3);} -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|5,a[1]=(C_word)f_24442,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word)li655),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_24442(t9,t1,t5);}} - -/* map-loop4750 in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24401(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_24401,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24426,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); -/* library.scm:3853: g4756 */ -t4=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t4))(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);}}} - -/* k24424 in map-loop4750 in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24426(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24426,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_24401(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* loop in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24442(C_word t0,C_word t1,C_word 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_24442,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24449,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24478,a[2]=((C_word)li654),tmp=(C_word)a,a+=3,tmp); -/* library.scm:3856: mapsafe */ -t5=((C_word*)((C_word*)t0)[3])[1];{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -av2[3]=t2; -av2[4]=lf[822]; -((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} - -/* k24447 in loop in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24449(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24449,c,av);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t1))){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24462,a[2]=((C_word*)t0)[2],a[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_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=t1; -C_apply(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k24460 in k24447 in loop in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ -C_save_and_reclaim((void *)f_24462,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24466,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_24470,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_24472,a[2]=((C_word)li653),tmp=(C_word)a,a+=3,tmp); -/* library.scm:3859: mapsafe */ -t5=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -av2[3]=((C_word*)t0)[5]; -av2[4]=lf[822]; -((C_proc)C_fast_retrieve_proc(t5))(5,av2);}} - -/* k24464 in k24460 in k24447 in loop in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_24466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_24466,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k24468 in k24460 in k24447 in loop in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_24470(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_24470,c,av);} -/* library.scm:3859: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_24442(t2,((C_word*)t0)[3],t1);} - -/* a24471 in k24460 in k24447 in loop in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_24472(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24472,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a24477 in loop in scheme#map in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24478(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24478,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_car(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#dynamic-wind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24485(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24485,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24489,a[2]=t2,a[3]=t4,a[4]=t1,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* library.scm:3879: before */ -t6=t2;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} - -/* k24487 in scheme#dynamic-wind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_24489,c,av);} -a=C_alloc(10); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_a_i_cons(&a,2,t2,C_fast_retrieve(lf[823])); -t4=C_mutate((C_word*)lf[823]+1 /* (set! ##sys#dynamic-winds ...) */,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24498,a[2]=((C_word*)t0)[3],a[3]=((C_word)li657),tmp=(C_word)a,a+=4,tmp); -/* library.scm:3881: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a24497 in k24487 in scheme#dynamic-wind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_24498,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+4); -t2=C_build_rest(&a,c,2,av); -C_word t3; -C_word t4; -C_word t5; -C_word t6; -t3=C_slot(C_fast_retrieve(lf[823]),C_fix(1)); -t4=C_mutate((C_word*)lf[823]+1 /* (set! ##sys#dynamic-winds ...) */,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24506,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3885: after */ -t6=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} - -/* k24504 in a24497 in k24487 in scheme#dynamic-wind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_24506,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -C_apply_values(3,av2);}} - -/* scheme#call-with-current-continuation in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24516(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24516,c,av);} -a=C_alloc(5); -t3=C_fast_retrieve(lf[823]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24522,a[2]=t3,a[3]=t2,a[4]=((C_word)li660),tmp=(C_word)a,a+=5,tmp); -/* library.scm:3893: ##sys#call-with-current-continuation */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -C_call_cc(3,av2);}} - -/* a24521 in scheme#call-with-current-continuation in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24522(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_24522,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24525,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li659),tmp=(C_word)a,a+=5,tmp); -/* library.scm:3899: proc */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* continuation in a24521 in scheme#call-with-current-continuation in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24525(C_word c,C_word *av){ -C_word tmp; -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_24525,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24529,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_eqp(C_fast_retrieve(lf[823]),((C_word*)t0)[3]); -if(C_truep(t4)){{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -C_apply(4,av2);}} -else{ -t5=C_i_length(C_fast_retrieve(lf[823])); -t6=C_i_length(((C_word*)t0)[3]); -/* library.scm:3897: ##sys#dynamic-unwind */ -f_24556(t3,((C_word*)t0)[3],C_fixnum_difference(t5,t6));}} - -/* k24527 in continuation in a24521 in scheme#call-with-current-continuation in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_24529,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -C_apply(4,av2);}} - -/* ##sys#dynamic-unwind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_24556(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -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_24556,3,t1,t2,t3);} -a=C_alloc(5); -t4=C_eqp(C_fast_retrieve(lf[823]),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_24572,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3906: ##sys#dynamic-unwind */ -t11=t5; -t12=C_slot(t2,C_fix(1)); -t13=C_fixnum_plus(t3,C_fix(1)); -t1=t11; -t2=t12; -t3=t13; -goto loop;} -else{ -t5=C_slot(C_fast_retrieve(lf[823]),C_fix(0)); -t6=C_slot(t5,C_fix(1)); -t7=C_slot(C_fast_retrieve(lf[823]),C_fix(1)); -t8=C_mutate((C_word*)lf[823]+1 /* (set! ##sys#dynamic-winds ...) */,t7); -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24601,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:3912: after */ -t10=t6;{ -C_word av2[2]; -av2[0]=t10; -av2[1]=t9; -((C_proc)C_fast_retrieve_proc(t10))(2,av2);}}}} - -/* k24570 in ##sys#dynamic-unwind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24572(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_24572,c,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_24578,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:3904: g4810 */ -t5=t3;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} - -/* k24576 in k24570 in ##sys#dynamic-unwind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24578,c,av);} -t2=C_mutate((C_word*)lf[823]+1 /* (set! ##sys#dynamic-winds ...) */,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k24599 in ##sys#dynamic-unwind in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24601(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_24601,c,av);} -/* library.scm:3913: ##sys#dynamic-unwind */ -f_24556(((C_word*)t0)[2],((C_word*)t0)[3],C_fixnum_difference(((C_word*)t0)[4],C_fix(1)));} - -/* chicken.base#port-closed? in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24614(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_24614,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24618,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:3920: ##sys#check-port */ -t4=*((C_word*)lf[333]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[826]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k24616 in chicken.base#port-closed? in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24618,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_eqp(C_slot(((C_word*)t0)[3],C_fix(8)),C_fix(0)); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#make-port in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24627(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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!=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_24627,c,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_set_i_slot(t6,C_fix(6),C_SCHEME_FALSE); -t13=C_i_setslot(t6,C_fix(7),t5); -t14=C_i_setslot(t6,C_fix(8),t2); -t15=C_i_set_i_slot(t6,C_fix(10),C_SCHEME_FALSE); -t16=C_i_set_i_slot(t6,C_fix(13),C_SCHEME_TRUE); -t17=C_i_set_i_slot(t6,C_fix(14),lf[170]); -t18=C_i_setslot(t6,C_fix(15),lf[457]); -t19=t1;{ -C_word *av2=av; -av2[0]=t19; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} - -/* k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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; -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_24673,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#standard-input ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24677,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4112: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t3; -av2[2]=C_fix(2); -av2[3]=C_fast_retrieve(lf[836]); -av2[4]=lf[1615]; -av2[5]=lf[856]; -tp(6,av2);}} - -/* k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24677(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_24677,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[839]+1 /* (set! ##sys#standard-output ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24681,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4113: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t3; -av2[2]=C_fix(2); -av2[3]=C_fast_retrieve(lf[836]); -av2[4]=lf[1614]; -av2[5]=lf[856]; -tp(6,av2);}} - -/* k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_24681(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_24681,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[840]+1 /* (set! ##sys#standard-error ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24684,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4115: ##sys#open-file-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[837]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[837]+1); -av2[1]=t3; -av2[2]=*((C_word*)lf[838]+1); -av2[3]=C_fix(0); -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_24684,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24687,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4116: ##sys#open-file-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[837]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[837]+1); -av2[1]=t2; -av2[2]=*((C_word*)lf[839]+1); -av2[3]=C_fix(1); -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_24687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_24687,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24690,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4117: ##sys#open-file-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[837]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[837]+1); -av2[1]=t2; -av2[2]=*((C_word*)lf[840]+1); -av2[3]=C_fix(2); -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in ... */ -static void C_ccall f_24690(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(119,c,6)))){ -C_save_and_reclaim((void *)f_24690,c,av);} -a=C_alloc(119); -t2=C_mutate((C_word*)lf[841]+1 /* (set! ##sys#check-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24692,a[2]=((C_word)li685),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[842]+1 /* (set! ##sys#check-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24703,a[2]=((C_word)li686),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[333]+1 /* (set! ##sys#check-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24714,a[2]=((C_word)li687),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[843]+1 /* (set! ##sys#check-open-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24725,a[2]=((C_word)li688),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[175]+1 /* (set! scheme#current-input-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24736,a[2]=((C_word)li690),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[176]+1 /* (set! scheme#current-output-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24797,a[2]=((C_word)li692),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[233]+1 /* (set! chicken.base#current-error-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24858,a[2]=((C_word)li694),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[847]+1 /* (set! ##sys#tty-port? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24919,a[2]=((C_word)li695),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[849]+1 /* (set! ##sys#port-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24933,a[2]=((C_word)li696),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[850]+1 /* (set! ##sys#set-port-data! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24939,a[2]=((C_word)li697),tmp=(C_word)a,a+=3,tmp)); -t12=C_set_block_item(lf[851] /* ##sys#default-file-encoding */,0,C_SCHEME_UNDEFINED); -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(t14,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24946,a[2]=((C_word)li699),tmp=(C_word)a,a+=3,tmp)); -t18=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25176,a[2]=((C_word)li700),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[177]+1 /* (set! scheme#open-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25213,a[2]=t14,a[3]=((C_word)li701),tmp=(C_word)a,a+=4,tmp)); -t20=C_mutate((C_word*)lf[178]+1 /* (set! scheme#open-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25219,a[2]=t14,a[3]=((C_word)li702),tmp=(C_word)a,a+=4,tmp)); -t21=C_mutate((C_word*)lf[179]+1 /* (set! scheme#close-input-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25225,a[2]=t16,a[3]=((C_word)li703),tmp=(C_word)a,a+=4,tmp)); -t22=C_mutate((C_word*)lf[180]+1 /* (set! scheme#close-output-port ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25231,a[2]=t16,a[3]=((C_word)li704),tmp=(C_word)a,a+=4,tmp)); -t23=*((C_word*)lf[177]+1); -t24=C_mutate((C_word*)lf[181]+1 /* (set! scheme#call-with-input-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25237,a[2]=t23,a[3]=((C_word)li707),tmp=(C_word)a,a+=4,tmp)); -t25=*((C_word*)lf[178]+1); -t26=C_mutate((C_word*)lf[182]+1 /* (set! scheme#call-with-output-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25261,a[2]=t25,a[3]=((C_word)li710),tmp=(C_word)a,a+=4,tmp)); -t27=*((C_word*)lf[177]+1); -t28=C_mutate((C_word*)lf[183]+1 /* (set! scheme#with-input-from-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25285,a[2]=t27,a[3]=((C_word)li715),tmp=(C_word)a,a+=4,tmp)); -t29=*((C_word*)lf[178]+1); -t30=C_mutate((C_word*)lf[184]+1 /* (set! scheme#with-output-to-file ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25319,a[2]=t29,a[3]=((C_word)li720),tmp=(C_word)a,a+=4,tmp)); -t31=C_mutate((C_word*)lf[882]+1 /* (set! ##sys#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25353,a[2]=((C_word)li721),tmp=(C_word)a,a+=3,tmp)); -t32=C_mutate((C_word*)lf[885]+1 /* (set! ##sys#flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25379,a[2]=((C_word)li722),tmp=(C_word)a,a+=3,tmp)); -t33=C_mutate((C_word*)lf[248]+1 /* (set! chicken.base#flush-output ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25392,a[2]=((C_word)li723),tmp=(C_word)a,a+=3,tmp)); -t34=C_mutate((C_word*)lf[887]+1 /* (set! ##sys#port-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25410,a[2]=((C_word)li724),tmp=(C_word)a,a+=3,tmp)); -t35=C_mutate((C_word*)lf[888]+1 /* (set! ##sys#decorate-lambda ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25419,a[2]=((C_word)li727),tmp=(C_word)a,a+=3,tmp)); -t36=C_mutate((C_word*)lf[889]+1 /* (set! ##sys#lambda-decoration ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25494,a[2]=((C_word)li729),tmp=(C_word)a,a+=3,tmp)); -t37=C_mutate((C_word*)lf[890]+1 /* (set! ##sys#make-lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25533,a[2]=((C_word)li730),tmp=(C_word)a,a+=3,tmp)); -t38=C_mutate((C_word*)lf[891]+1 /* (set! ##sys#lambda-info? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25549,a[2]=((C_word)li731),tmp=(C_word)a,a+=3,tmp)); -t39=C_mutate((C_word*)lf[892]+1 /* (set! ##sys#lambda-info ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25562,a[2]=((C_word)li732),tmp=(C_word)a,a+=3,tmp)); -t40=C_mutate((C_word*)lf[893]+1 /* (set! ##sys#lambda-info->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25568,a[2]=((C_word)li733),tmp=(C_word)a,a+=3,tmp)); -t41=C_mutate((C_word*)lf[241]+1 /* (set! chicken.base#procedure-information ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25582,a[2]=((C_word)li734),tmp=(C_word)a,a+=3,tmp)); -t42=C_a_i_vector1(&a,1,lf[896]); -t43=C_mutate(&lf[897] /* (set! setter-tag ...) */,t42); -t44=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25611,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t45=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41506,a[2]=((C_word)li1250),tmp=(C_word)a,a+=3,tmp); -t46=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41546,a[2]=((C_word)li1251),tmp=(C_word)a,a+=3,tmp); -t47=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41562,a[2]=((C_word)li1255),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4363: ##sys#decorate-lambda */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[888]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[888]+1); -av2[1]=t44; -av2[2]=t45; -av2[3]=t46; -av2[4]=t47; -tp(5,av2);}} - -/* ##sys#check-input-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 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=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_24692,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_i_pairp(t4); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_i_check_port_2(t2,C_fix(1),t3,C_get_rest_arg(c,4,av,4,t0)):C_i_check_port(t2,C_fix(1),t3)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* ##sys#check-output-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24703(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_24703,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_i_pairp(t4); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_i_check_port_2(t2,C_fix(2),t3,C_get_rest_arg(c,4,av,4,t0)):C_i_check_port(t2,C_fix(2),t3)); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* ##sys#check-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24714(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_24714,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_port_2(t2,C_fix(0),C_SCHEME_FALSE,C_get_rest_arg(c,3,av,3,t0)):C_i_check_port(t2,C_fix(0),C_SCHEME_FALSE)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#check-open-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24725(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_24725,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_pairp(t3); -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_i_check_port_2(t2,C_fix(0),C_SCHEME_TRUE,C_get_rest_arg(c,3,av,3,t0)):C_i_check_port(t2,C_fix(0),C_SCHEME_TRUE)); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* scheme#current-input-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24736(C_word c,C_word *av){ -C_word tmp; -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_24736,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; -if(C_truep(C_i_nullp(t2))){ -t3=*((C_word*)lf[838]+1); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=*((C_word*)lf[838]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24749,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4144: ##sys#check-port */ -t5=*((C_word*)lf[333]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -av2[3]=lf[844]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k24747 in scheme#current-input-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,c,2)))){ -C_save_and_reclaim((void *)f_24749,c,av);} -a=C_alloc(10); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24751,a[2]=((C_word*)t0)[3],a[3]=((C_word)li689),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24757,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24762,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_nullp(t2))){ -t6=( -/* library.scm:4145: def-convert?4966 */ - f_24762(t5) -); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t6=C_i_car(t2); -t7=C_u_i_cdr(t2); -if(C_truep(C_i_nullp(t7))){ -t8=( -/* library.scm:4145: def-set?4967 */ - f_24757(t4) -); -t9=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t8=C_i_car(t7); -t9=C_u_i_cdr(t7); -t10=( -/* library.scm:4145: body4964 */ - f_24751(t3,t8) -); -t11=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}} - -/* body4964 in k24747 in scheme#current-input-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24751(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -if(C_truep(t1)){ -t2=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#standard-input ...) */,((C_word*)t0)[2]); -return(t2);} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* def-set?4967 in k24747 in scheme#current-input-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24757(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:4145: body4964 */ - f_24751(((C_word*)t0)[2],C_SCHEME_TRUE) -));} - -/* def-convert?4966 in k24747 in scheme#current-input-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24762(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:4145: def-set?4967 */ - f_24757(((C_word*)t0)[2]) -));} - -/* scheme#current-output-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24797(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +5,c,3)))){ -C_save_and_reclaim((void*)f_24797,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; -if(C_truep(C_i_nullp(t2))){ -t3=*((C_word*)lf[839]+1); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=*((C_word*)lf[839]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24810,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4154: ##sys#check-port */ -t5=*((C_word*)lf[333]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -av2[3]=lf[845]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k24808 in scheme#current-output-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_24810(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,c,2)))){ -C_save_and_reclaim((void *)f_24810,c,av);} -a=C_alloc(10); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24812,a[2]=((C_word*)t0)[3],a[3]=((C_word)li691),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24818,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24823,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_nullp(t2))){ -t6=( -/* library.scm:4155: def-convert?4991 */ - f_24823(t5) -); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t6=C_i_car(t2); -t7=C_u_i_cdr(t2); -if(C_truep(C_i_nullp(t7))){ -t8=( -/* library.scm:4155: def-set?4992 */ - f_24818(t4) -); -t9=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t8=C_i_car(t7); -t9=C_u_i_cdr(t7); -t10=( -/* library.scm:4155: body4989 */ - f_24812(t3,t8) -); -t11=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}} - -/* body4989 in k24808 in scheme#current-output-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24812(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -if(C_truep(t1)){ -t2=C_mutate((C_word*)lf[839]+1 /* (set! ##sys#standard-output ...) */,((C_word*)t0)[2]); -return(t2);} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* def-set?4992 in k24808 in scheme#current-output-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24818(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:4155: body4989 */ - f_24812(((C_word*)t0)[2],C_SCHEME_TRUE) -));} - -/* def-convert?4991 in k24808 in scheme#current-output-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24823(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:4155: def-set?4992 */ - f_24818(((C_word*)t0)[2]) -));} - -/* chicken.base#current-error-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24858(C_word c,C_word *av){ -C_word tmp; -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_24858,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; -if(C_truep(C_i_nullp(t2))){ -t3=*((C_word*)lf[840]+1); -t4=t1;{ -C_word *av2=av; -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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24871,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4164: ##sys#check-port */ -t5=*((C_word*)lf[333]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -av2[3]=lf[846]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k24869 in chicken.base#current-error-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_24871(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,c,2)))){ -C_save_and_reclaim((void *)f_24871,c,av);} -a=C_alloc(10); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24873,a[2]=((C_word*)t0)[3],a[3]=((C_word)li693),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24879,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24884,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_nullp(t2))){ -t6=( -/* library.scm:4165: def-convert?5016 */ - f_24884(t5) -); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t6=C_i_car(t2); -t7=C_u_i_cdr(t2); -if(C_truep(C_i_nullp(t7))){ -t8=( -/* library.scm:4165: def-set?5017 */ - f_24879(t4) -); -t9=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t8=C_i_car(t7); -t9=C_u_i_cdr(t7); -t10=( -/* library.scm:4165: body5014 */ - f_24873(t3,t8) -); -t11=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}} - -/* body5014 in k24869 in chicken.base#current-error-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24873(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -if(C_truep(t1)){ -t2=C_mutate((C_word*)lf[840]+1 /* (set! ##sys#standard-error ...) */,((C_word*)t0)[2]); -return(t2);} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* def-set?5017 in k24869 in chicken.base#current-error-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24879(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:4165: body5014 */ - f_24873(((C_word*)t0)[2],C_SCHEME_TRUE) -));} - -/* def-convert?5016 in k24869 in chicken.base#current-error-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static C_word f_24884(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:4165: def-set?5017 */ - f_24879(((C_word*)t0)[2]) -));} - -/* ##sys#tty-port? in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24919(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_24919,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24931,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4170: ##sys#peek-unsigned-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[848]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[848]+1); -av2[1]=t3; -av2[2]=t2; -av2[3]=C_fix(0); -tp(4,av2);}} - -/* k24929 in ##sys#tty-port? in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_24931(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24931,c,av);} -t2=C_i_not(C_i_zerop(t1)); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_tty_portp(((C_word*)t0)[3]):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#port-data in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24933(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24933,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_slot(t2,C_fix(9)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#set-port-data! in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_24939(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_24939,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_setslot(t2,C_fix(9),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void f_24946(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(13,0,2)))){ -C_save_and_reclaim_args((void *)trf_24946,5,t1,t2,t3,t4,t5);} -a=C_alloc(13); -t6=C_i_check_string_2(t2,t5); -t7=(C_truep(t3)?lf[852]:lf[853]); -t8=t7; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=lf[854]; -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_24956,a[2]=t1,a[3]=t5,a[4]=t2,a[5]=t9,a[6]=t11,a[7]=t3,a[8]=t4,tmp=(C_word)a,a+=9,tmp); -/* library.scm:4183: ##sys#default-file-encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[851]); -C_word av2[2]; -av2[0]=*((C_word*)lf[851]+1); -av2[1]=t12; -tp(2,av2);}} - -/* k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_24956(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_24956,c,av);} -a=C_alloc(22); -t2=t1; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_24959,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); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_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_24996,a[2]=t6,a[3]=((C_word*)t0)[6],a[4]=t3,a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[5],a[8]=((C_word)li698),tmp=(C_word)a,a+=9,tmp)); -t8=((C_word*)t6)[1]; -f_24996(t8,t4,((C_word*)t0)[8]);} - -/* k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ -C_save_and_reclaim((void *)f_24959,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_24962,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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])){ -/* library.scm:4205: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t2; -av2[2]=C_fix(1); -av2[3]=C_fast_retrieve(lf[836]); -av2[4]=((C_word*)t0)[5]; -av2[5]=lf[856]; -tp(6,av2);}} -else{ -/* library.scm:4205: ##sys#make-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[314]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[314]+1); -av2[1]=t2; -av2[2]=C_fix(2); -av2[3]=C_fast_retrieve(lf[836]); -av2[4]=((C_word*)t0)[5]; -av2[5]=lf[856]; -tp(6,av2);}}} - -/* k24960 in k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_24962(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_24962,c,av);} -a=C_alloc(16); -t2=C_i_setslot(t1,C_fix(15),((C_word*)((C_word*)t0)[2])[1]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_24968,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_24971,a[2]=((C_word*)t0)[3],a[3]=t1,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|4,a[1]=(C_word)f_24990,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); -/* library.scm:4207: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=t5; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=((C_word*)((C_word*)t0)[7])[1]; -tp(4,av2);}} - -/* k24966 in k24960 in k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_24968(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_24968,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k24969 in k24960 in k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_24971(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_24971,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_24978,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:4208: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[830]); -C_word *av2=av; -av2[0]=*((C_word*)lf[830]+1); -av2[1]=t2; -tp(2,av2);}}} - -/* k24976 in k24969 in k24960 in k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in ... */ -static void C_ccall f_24978(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_24978,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_24982,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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_24986,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t4=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k24980 in k24976 in k24969 in k24960 in k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in ... */ -static void C_ccall f_24982(C_word c,C_word *av){ -C_word tmp; -C_word 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_24982,c,av);} -/* library.scm:4208: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[467]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=t1; -av2[6]=((C_word*)t0)[5]; -tp(7,av2);}} - -/* k24984 in k24976 in k24969 in k24960 in k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in ... */ -static void C_ccall f_24986(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_24986,c,av);} -/* library.scm:4209: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[855]; -av2[3]=t1; -tp(4,av2);}} - -/* k24988 in k24960 in k24957 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_24990(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_24990,c,av);} -/* library.scm:4207: ##sys#open-file-port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[837]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[837]+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);}} - -/* doloop5053 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void f_24996(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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(17,0,2)))){ -C_save_and_reclaim_args((void *)trf_24996,3,t0,t1,t2);} -a=C_alloc(17); -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_25009,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t5=C_eqp(t3,lf[857]); -t6=(C_truep(t5)?t5:C_eqp(t3,lf[167])); -if(C_truep(t6)){ -t7=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[858]); -t8=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[167]); -t16=t1; -t17=C_slot(t2,C_fix(1)); -t1=t16; -t2=t17; -goto loop;} -else{ -t7=C_eqp(t3,lf[859]); -t8=(C_truep(t7)?t7:C_eqp(t3,lf[860])); -if(C_truep(t8)){ -t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[861]); -t16=t1; -t17=C_slot(t2,C_fix(1)); -t1=t16; -t2=t17; -goto loop;} -else{ -t9=C_eqp(t3,lf[862]); -t10=(C_truep(t9)?t9:C_eqp(t3,lf[457])); -if(C_truep(t10)){ -t11=C_mutate(((C_word *)((C_word*)t0)[4])+1,lf[457]); -t16=t1; -t17=C_slot(t2,C_fix(1)); -t1=t16; -t2=t17; -goto loop;} -else{ -t11=C_eqp(t3,lf[863]); -t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_25053,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],a[9]=t4,a[10]=((C_word*)t0)[6],a[11]=((C_word*)t0)[7],tmp=(C_word)a,a+=12,tmp); -if(C_truep(t11)){ -t13=t12; -f_25053(t13,t11);} -else{ -t13=C_eqp(t3,lf[458]); -if(C_truep(t13)){ -t14=t12; -f_25053(t14,t13);} -else{ -t14=C_eqp(t3,lf[876]); -t15=t12; -f_25053(t15,(C_truep(t14)?t14:C_eqp(t3,lf[877])));}}}}}}} - -/* k25007 in doloop5053 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25009(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25009,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_24996(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k25051 in doloop5053 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void f_25053(C_word 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_25053,2,t0,t1);} -a=C_alloc(11); -if(C_truep(t1)){ -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[458]); -t3=((C_word*)((C_word*)t0)[3])[1]; -f_24996(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[864]); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_25063,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[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)[9],a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],tmp=(C_word)a,a+=11,tmp); -if(C_truep(t2)){ -t4=t3; -f_25063(t4,t2);} -else{ -t4=C_eqp(((C_word*)t0)[6],lf[873]); -if(C_truep(t4)){ -t5=t3; -f_25063(t5,t4);} -else{ -t5=C_eqp(((C_word*)t0)[6],lf[874]); -t6=t3; -f_25063(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[6],lf[875])));}}}} - -/* k25061 in k25051 in doloop5053 in k24954 in open in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void f_25063(C_word t0,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_25063,2,t0,t1);} -if(C_truep(t1)){ -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[865]); -t3=((C_word*)((C_word*)t0)[3])[1]; -f_24996(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} -else{ -t2=C_eqp(((C_word*)t0)[6],lf[866]); -t3=(C_truep(t2)?t2:C_eqp(((C_word*)t0)[6],lf[867])); -if(C_truep(t3)){ -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[868]); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_24996(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} -else{ -t4=C_eqp(((C_word*)t0)[6],lf[869]); -t5=(C_truep(t4)?t4:C_eqp(((C_word*)t0)[6],lf[444])); -if(C_truep(t5)){ -if(C_truep(((C_word*)t0)[7])){ -/* library.scm:4202: ##sys#error */ -t6=*((C_word*)lf[195]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=((C_word*)t0)[8]; -av2[2]=((C_word*)t0)[9]; -av2[3]=lf[870]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t6=C_mutate(((C_word *)((C_word*)t0)[10])+1,lf[871]); -t7=((C_word*)((C_word*)t0)[3])[1]; -f_24996(t7,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));}} -else{ -/* library.scm:4204: ##sys#error */ -t6=*((C_word*)lf[195]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=((C_word*)t0)[8]; -av2[2]=((C_word*)t0)[9]; -av2[3]=lf[872]; -av2[4]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}}}} - -/* close in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void f_25176(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_25176,4,t1,t2,t3,t4);} -a=C_alloc(5); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25180,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4214: ##sys#check-port */ -t6=*((C_word*)lf[333]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k25178 in close in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 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; -C_word t3; -C_word 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_25180,c,av);} -t2=(C_truep(((C_word*)t0)[2])?C_fix(1):C_fix(2)); -if(C_truep(C_port_openp(((C_word*)t0)[3],t2))){ -t3=C_slot(((C_word*)t0)[3],C_fix(8)); -t4=C_fixnum_not(t2); -t5=C_fixnum_and(t3,t4); -t6=C_i_set_i_slot(((C_word*)t0)[3],C_fix(8),t5); -t7=C_slot(((C_word*)t0)[3],C_fix(2)); -/* library.scm:4217: g5108 */ -t8=C_slot(t7,C_fix(4));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t8; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} -else{ -t3=C_SCHEME_UNDEFINED; -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* scheme#open-input-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25213(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_25213,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+0); -t3=C_build_rest(&a,c,3,av); -C_word t4; -/* library.scm:4221: open */ -f_24946(t1,t2,C_SCHEME_TRUE,t3,lf[878]);} - -/* scheme#open-output-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 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 *a; -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_25219,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+0); -t3=C_build_rest(&a,c,3,av); -C_word t4; -/* library.scm:4222: open */ -f_24946(t1,t2,C_SCHEME_FALSE,t3,lf[879]);} - -/* scheme#close-input-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25225(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_25225,c,av);} -/* library.scm:4223: close */ -f_25176(t1,t2,C_SCHEME_TRUE,lf[880]);} - -/* scheme#close-output-port in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25231(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_25231,c,av);} -/* library.scm:4224: close */ -f_25176(t1,t2,C_SCHEME_FALSE,lf[881]);} - -/* scheme#call-with-input-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25237(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_25237,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_25241,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t4; -C_apply(5,av2);}} - -/* k25239 in scheme#call-with-input-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25241(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_25241,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25246,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li705),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25252,a[2]=t1,a[3]=((C_word)li706),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4231: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a25245 in k25239 in scheme#call-with-input-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25246(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_25246,c,av);} -/* library.scm:4232: p */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a25251 in k25239 in scheme#call-with-input-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -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; -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_25252,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_25256,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4234: close-input-port */ -t4=*((C_word*)lf[179]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25254 in a25251 in k25239 in scheme#call-with-input-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25256(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25256,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -C_apply_values(3,av2);}} - -/* scheme#call-with-output-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25261(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_25261,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_25265,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t4; -C_apply(5,av2);}} - -/* k25263 in scheme#call-with-output-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25265(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_25265,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25270,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li708),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25276,a[2]=t1,a[3]=((C_word)li709),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4242: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a25269 in k25263 in scheme#call-with-output-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25270(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_25270,c,av);} -/* library.scm:4243: p */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a25275 in k25263 in scheme#call-with-output-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25276(C_word c,C_word *av){ -C_word tmp; -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_25276,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_25280,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4245: close-output-port */ -t4=*((C_word*)lf[180]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25278 in a25275 in k25263 in scheme#call-with-output-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25280(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25280,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -C_apply_values(3,av2);}} - -/* scheme#with-input-from-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25285(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_25285,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_25289,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t4; -C_apply(5,av2);}} - -/* k25287 in scheme#with-input-from-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25289(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_25289,c,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_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_25294,a[2]=t5,a[3]=t3,a[4]=((C_word)li711),tmp=(C_word)a,a+=5,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25299,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li713),tmp=(C_word)a,a+=5,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25314,a[2]=t3,a[3]=t5,a[4]=((C_word)li714),tmp=(C_word)a,a+=5,tmp); -/* library.scm:4253: ##sys#dynamic-wind */ -t9=*((C_word*)lf[824]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=((C_word*)t0)[3]; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a25293 in k25287 in scheme#with-input-from-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25294(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -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_25294,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[838]+1)); -t3=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a25298 in k25287 in scheme#with-input-from-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25299(C_word c,C_word *av){ -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_25299,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25305,a[2]=((C_word*)t0)[2],a[3]=((C_word)li712),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4254: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -C_call_with_values(4,av2);}} - -/* a25304 in a25298 in k25287 in scheme#with-input-from-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25305(C_word c,C_word *av){ -C_word tmp; -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_25305,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_25309,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4256: close-input-port */ -t4=*((C_word*)lf[179]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25307 in a25304 in a25298 in k25287 in scheme#with-input-from-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_25309(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25309,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -C_apply_values(3,av2);}} - -/* a25313 in k25287 in scheme#with-input-from-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -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; -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_25314,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[838]+1)); -t3=C_mutate((C_word*)lf[838]+1 /* (set! ##sys#standard-input ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* scheme#with-output-to-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25319(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_25319,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_25323,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=t4; -C_apply(5,av2);}} - -/* k25321 in scheme#with-output-to-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25323(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_25323,c,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_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_25328,a[2]=t5,a[3]=t3,a[4]=((C_word)li716),tmp=(C_word)a,a+=5,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25333,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li718),tmp=(C_word)a,a+=5,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25348,a[2]=t3,a[3]=t5,a[4]=((C_word)li719),tmp=(C_word)a,a+=5,tmp); -/* library.scm:4264: ##sys#dynamic-wind */ -t9=*((C_word*)lf[824]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=((C_word*)t0)[3]; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a25327 in k25321 in scheme#with-output-to-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25328(C_word c,C_word *av){ -C_word tmp; -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_25328,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[839]+1)); -t3=C_mutate((C_word*)lf[839]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a25332 in k25321 in scheme#with-output-to-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25333(C_word c,C_word *av){ -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_25333,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25339,a[2]=((C_word*)t0)[2],a[3]=((C_word)li717),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4265: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -C_call_with_values(4,av2);}} - -/* a25338 in a25332 in k25321 in scheme#with-output-to-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25339(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_25339,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_25343,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4267: close-output-port */ -t4=*((C_word*)lf[180]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k25341 in a25338 in a25332 in k25321 in scheme#with-output-to-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_25343(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25343,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -C_apply_values(3,av2);}} - -/* a25347 in k25321 in scheme#with-output-to-file in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25348(C_word c,C_word *av){ -C_word tmp; -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_25348,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[839]+1)); -t3=C_mutate((C_word*)lf[839]+1 /* (set! ##sys#standard-output ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#file-exists? in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -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=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_25353,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25358,a[2]=t3,a[3]=t4,a[4]=t1,a[5]=t5,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* library.scm:4271: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[884]); -C_word *av2=av; -av2[0]=*((C_word*)lf[884]+1); -av2[1]=t6; -av2[2]=t2; -av2[3]=t5; -tp(4,av2);}} - -/* k25356 in ##sys#file-exists? in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25358(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_25358,c,av);} -t2=C_i_file_exists_p(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -switch(t2){ -case C_SCHEME_FALSE: -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -case C_SCHEME_TRUE: -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);} -default: -/* library.scm:4275: ##sys#signal-hook */ -t3=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[467]; -av2[3]=((C_word*)t0)[5]; -av2[4]=lf[883]; -av2[5]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} - -/* ##sys#flush-output in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25379(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_25379,c,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_25386,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:4279: g5188 */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* k25384 in ##sys#flush-output in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25386(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25386,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#flush-output in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25392(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25392,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -t2=*((C_word*)lf[839]+1); -t3=C_i_check_port_2(*((C_word*)lf[839]+1),C_fix(2),C_SCHEME_TRUE,lf[886]); -/* library.scm:4286: ##sys#flush-output */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[885]); -C_word av2[3]; -av2[0]=*((C_word*)lf[885]+1); -av2[1]=t1; -av2[2]=*((C_word*)lf[839]+1); -tp(3,av2);}} -else{ -t2=C_get_rest_arg(c,2,av,2,t0); -t3=C_i_check_port_2(t2,C_fix(2),C_SCHEME_TRUE,lf[886]); -/* library.scm:4286: ##sys#flush-output */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[885]); -C_word av2[3]; -av2[0]=*((C_word*)lf[885]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}}} - -/* ##sys#port-line in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25410,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(C_input_portp(t2))?C_slot(t2,C_fix(4)):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#decorate-lambda in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25419(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(10,c,3)))){ -C_save_and_reclaim((void *)f_25419,c,av);} -a=C_alloc(10); -t5=C_block_size(t2); -t6=C_fixnum_difference(t5,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_25432,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=t8,a[6]=t3,a[7]=((C_word)li726),tmp=(C_word)a,a+=8,tmp)); -t10=((C_word*)t8)[1]; -f_25432(t10,t1,t6);} - -/* loop in ##sys#decorate-lambda in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void f_25432(C_word t0,C_word t1,C_word 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_25432,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_25440,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); -/* library.scm:4300: scheme#make-vector */ -t4=*((C_word*)lf[117]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=C_slot(((C_word*)t0)[3],t2); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_25482,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:4309: 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);}}} - -/* k25438 in loop in ##sys#decorate-lambda in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25440(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_25440,c,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_25445,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word)li725),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_25445(t5,((C_word*)t0)[5],C_fix(1));} - -/* doloop5217 in k25438 in loop in ##sys#decorate-lambda in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void f_25445(C_word t0,C_word 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(0,0,3)))){ -C_save_and_reclaim_args((void *)trf_25445,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:4305: 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); -t6=t1; -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* k25480 in loop in ##sys#decorate-lambda in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_25482,c,av);} -if(C_truep(t1)){ -/* library.scm:4310: decorator */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} -else{ -/* library.scm:4311: loop */ -t2=((C_word*)((C_word*)t0)[6])[1]; -f_25432(t2,((C_word*)t0)[3],C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}} - -/* ##sys#lambda-decoration in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25494(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_25494,c,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_25504,a[2]=t2,a[3]=t7,a[4]=t3,a[5]=((C_word)li728),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_25504(t9,t1,t5);} - -/* loop in ##sys#lambda-decoration in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void f_25504(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_25504,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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25520,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* library.scm:4317: pred */ -t5=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t5))(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);}}} - -/* k25518 in loop in ##sys#lambda-decoration in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25520(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25520,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:4319: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_25504(t2,((C_word*)t0)[2],C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}} - -/* ##sys#make-lambda-info in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25533(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_25533,c,av);} -a=C_alloc(5); -t3=C_slot(t2,C_fix(0)); -t4=C_block_size(t3); -t5=C_fixnum_difference(t4,C_fix(1)); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25543,a[2]=t3,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4327: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=t5; -tp(3,av2);}} - -/* k25541 in ##sys#make-lambda-info in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25543,c,av);} -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_bytevector_to_lambdainfo(t1); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#lambda-info? in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -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; -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_25549,c,av);} -t3=C_immp(t2); -t4=C_i_not(t3); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=(C_truep(t4)?C_lambdainfop(t2):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#lambda-info in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25562(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_25562,c,av);} -/* library.scm:4339: ##sys#lambda-decoration */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[889]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[889]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fast_retrieve(lf[891]); -tp(4,av2);}} - -/* ##sys#lambda-info->string in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25568(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,2)))){ -C_save_and_reclaim((void *)f_25568,c,av);} -a=C_alloc(5); -t3=C_block_size(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25575,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4343: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=C_fixnum_plus(t3,C_fix(1)); -tp(3,av2);}} - -/* k25573 in ##sys#lambda-info->string in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25575(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25575,c,av);} -a=C_alloc(5); -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=C_utf_length(t1); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_ustring(&a,2,t1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.base#procedure-information in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25582(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_25582,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25586,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4350: ##sys#check-closure */ -t4=*((C_word*)lf[434]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[895]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k25584 in chicken.base#procedure-information in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_25586,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25589,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4351: ##sys#lambda-info */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[892]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[892]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k25587 in k25584 in chicken.base#procedure-information in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25589(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25589,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25599,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25603,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:4352: ##sys#lambda-info->string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[893]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[893]+1); -av2[1]=t3; -av2[2]=t1; -tp(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k25597 in k25587 in k25584 in chicken.base#procedure-information in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25599(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_25599,c,av);} -/* library.scm:4352: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[894]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[894]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}} - -/* k25601 in k25587 in k25584 in chicken.base#procedure-information in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_25603,c,av);} -/* library.scm:4352: scheme#open-input-string */ -t2=*((C_word*)lf[312]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_25611(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_25611,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[242]+1 /* (set! chicken.base#setter ...) */,t1); -t3=C_mutate((C_word*)lf[898]+1 /* (set! ##sys#setter ...) */,*((C_word*)lf[242]+1)); -t4=C_mutate((C_word*)lf[240]+1 /* (set! chicken.base#getter-with-setter ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25614,a[2]=((C_word)li738),tmp=(C_word)a,a+=3,tmp)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25691,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4412: chicken.base#getter-with-setter */ -t6=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=*((C_word*)lf[13]+1); -av2[3]=*((C_word*)lf[15]+1); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25614(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_25614,c,av);} -a=C_alloc(6); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25621,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* library.scm:4391: ##sys#check-closure */ -t7=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=lf[899]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} - -/* k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25621(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_25621,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25624,a[2]=((C_word*)t0)[2],a[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:4392: ##sys#check-closure */ -t3=*((C_word*)lf[434]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[899]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k25622 in k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25624(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25624,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25627,a[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[899]); -/* library.scm:4395: ##sys#make-lambda-info */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[890]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[890]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -/* library.scm:4396: ##sys#lambda-info */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[892]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[892]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}}} - -/* k25625 in k25622 in k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_25627(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_25627,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25630,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25646,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4398: ##sys#copy-closure */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[399]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[399]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k25628 in k25625 in k25622 in k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in ... */ -static void C_ccall f_25630(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_25630,c,av);} -a=C_alloc(4); -if(C_truep(((C_word*)t0)[2])){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25638,a[2]=((C_word*)t0)[2],a[3]=((C_word)li735),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4404: ##sys#decorate-lambda */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[888]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[888]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_fast_retrieve(lf[891]); -av2[4]=t2; -tp(5,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* a25637 in k25628 in k25625 in k25622 in k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in ... */ -static void C_ccall f_25638(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_25638,c,av);} -t4=C_i_setslot(t2,t3,((C_word*)t0)[2]); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k25644 in k25625 in k25622 in k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in ... */ -static void C_ccall f_25646(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_25646,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25648,a[2]=((C_word)li736),tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25664,a[2]=((C_word*)t0)[2],a[3]=((C_word)li737),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4397: ##sys#decorate-lambda */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[888]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[888]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=t2; -av2[4]=t3; -tp(5,av2);}} - -/* a25647 in k25644 in k25625 in k25622 in k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in ... */ -static void C_ccall f_25648(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_25648,c,av);} -t3=C_i_pairp(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[897],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a25663 in k25644 in k25625 in k25622 in k25619 in chicken.base#getter-with-setter in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in ... */ -static void C_ccall f_25664(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_25664,c,av);} -a=C_alloc(3); -t4=C_a_i_cons(&a,2,C_retrieve2(lf[897],C_text("setter-tag")),((C_word*)t0)[2]); -t5=C_i_setslot(t2,t3,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_25691(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25691,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[13]+1 /* (set! scheme#car ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25695,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4413: chicken.base#getter-with-setter */ -t4=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=*((C_word*)lf[14]+1); -av2[3]=*((C_word*)lf[16]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_25695(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25695,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[14]+1 /* (set! scheme#cdr ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25699,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41496,a[2]=((C_word)li1248),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4414: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[21]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_25699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25699,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[21]+1 /* (set! scheme#caar ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25703,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41486,a[2]=((C_word)li1247),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4415: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[17]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_25703(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25703,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[17]+1 /* (set! scheme#cadr ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25707,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41476,a[2]=((C_word)li1246),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4416: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[22]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in ... */ -static void C_ccall f_25707(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25707,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[22]+1 /* (set! scheme#cdar ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25711,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41466,a[2]=((C_word)li1245),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4417: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[23]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in ... */ -static void C_ccall f_25711(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25711,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[23]+1 /* (set! scheme#cddr ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25715,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41456,a[2]=((C_word)li1244),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4418: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[24]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in ... */ -static void C_ccall f_25715(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25715,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[24]+1 /* (set! scheme#caaar ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25719,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41446,a[2]=((C_word)li1243),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4419: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[25]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in ... */ -static void C_ccall f_25719(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25719,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[25]+1 /* (set! scheme#caadr ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25723,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41436,a[2]=((C_word)li1242),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4420: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[26]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in ... */ -static void C_ccall f_25723(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25723,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[26]+1 /* (set! scheme#cadar ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25727,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41426,a[2]=((C_word)li1241),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4421: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[18]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in ... */ -static void C_ccall f_25727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25727,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[18]+1 /* (set! scheme#caddr ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25731,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41416,a[2]=((C_word)li1240),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4422: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[27]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in ... */ -static void C_ccall f_25731(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25731,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[27]+1 /* (set! scheme#cdaar ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25735,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41406,a[2]=((C_word)li1239),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4423: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[28]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in ... */ -static void C_ccall f_25735(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25735,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[28]+1 /* (set! scheme#cdadr ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25739,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41396,a[2]=((C_word)li1238),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4424: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[29]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in ... */ -static void C_ccall f_25739(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25739,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[29]+1 /* (set! scheme#cddar ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25743,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41386,a[2]=((C_word)li1237),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4425: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[30]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in ... */ -static void C_ccall f_25743(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_25743,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[30]+1 /* (set! scheme#cdddr ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25747,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4426: chicken.base#getter-with-setter */ -t4=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=*((C_word*)lf[62]+1); -av2[3]=*((C_word*)lf[63]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in ... */ -static void C_ccall f_25747(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25747,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[62]+1 /* (set! scheme#string-ref ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25751,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4427: chicken.base#getter-with-setter */ -t4=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=*((C_word*)lf[115]+1); -av2[3]=*((C_word*)lf[116]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in ... */ -static void C_ccall f_25751(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_25751,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[115]+1 /* (set! scheme#vector-ref ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41376,a[2]=((C_word)li1236),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4430: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=*((C_word*)lf[49]+1); -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in ... */ -static void C_ccall f_25755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25755,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[49]+1 /* (set! scheme#list-ref ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25759,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4435: chicken.base#getter-with-setter */ -t4=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_fast_retrieve(lf[772]); -av2[3]=C_fast_retrieve(lf[773]); -av2[4]=lf[1611]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in ... */ -static void C_ccall f_25759(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word 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(53,c,3)))){ -C_save_and_reclaim((void *)f_25759,c,av);} -a=C_alloc(53); -t2=C_mutate((C_word*)lf[772]+1 /* (set! chicken.bytevector#bytevector-u8-ref ...) */,t1); -t3=C_SCHEME_UNDEFINED; -t4=C_a_i_vector(&a,16,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3,t3); -t5=C_mutate(&lf[900] /* (set! ##sys#default-parameter-vector ...) */,t4); -t6=C_mutate((C_word*)lf[901]+1 /* (set! ##sys#current-parameter-vector ...) */,lf[902]); -t7=C_fix(0); -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_mutate((C_word*)lf[85]+1 /* (set! scheme#make-parameter ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25766,a[2]=t8,a[3]=((C_word)li746),tmp=(C_word)a,a+=4,tmp)); -t10=C_mutate((C_word*)lf[186]+1 /* (set! scheme#char-ready? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25930,a[2]=((C_word)li747),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[187]+1 /* (set! scheme#read-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25955,a[2]=((C_word)li748),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[904]+1 /* (set! ##sys#read-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25973,a[2]=((C_word)li749),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[905]+1 /* (set! ##sys#read-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26033,a[2]=((C_word)li750),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[906]+1 /* (set! ##sys#peek-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26042,a[2]=((C_word)li751),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[188]+1 /* (set! scheme#peek-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26067,a[2]=((C_word)li752),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[189]+1 /* (set! scheme#read ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26085,a[2]=((C_word)li753),tmp=(C_word)a,a+=3,tmp)); -t17=C_set_block_item(lf[909] /* ##sys#default-read-info-hook */,0,C_SCHEME_FALSE); -t18=C_set_block_item(lf[910] /* ##sys#read-error-with-line-number */,0,C_SCHEME_FALSE); -t19=C_mutate((C_word*)lf[911]+1 /* (set! ##sys#read-prompt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26105,a[2]=((C_word)li754),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[912]+1 /* (set! ##sys#infix-list-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26108,a[2]=((C_word)li755),tmp=(C_word)a,a+=3,tmp)); -t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26113,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4541: scheme#make-parameter */ -t22=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t22; -av2[1]=t21; -av2[2]=lf[457]; -((C_proc)(void*)(*((C_word*)t22+1)))(3,av2);}} - -/* scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_25766(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_25766,c,av);} -a=C_alloc(8); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25924,a[2]=((C_word)li739),tmp=(C_word)a,a+=3,tmp):C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25773,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4448: guard */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in ... */ -static void C_ccall f_25773(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_25773,c,av);} -a=C_alloc(14); -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25774,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word)li740),tmp=(C_word)a,a+=5,tmp); -t4=C_fixnum_plus(((C_word*)((C_word*)t0)[2])[1],C_fix(1)); -t5=C_set_block_item(((C_word*)t0)[2],0,t4); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25808,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -t7=C_block_size(C_retrieve2(lf[900],C_text("##sys#default-parameter-vector"))); -if(C_truep(C_fixnum_greater_or_equal_p(t2,t7))){ -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_25912,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* library.scm:4465: ##sys#vector-resize */ -f_23697(t8,C_retrieve2(lf[900],C_text("##sys#default-parameter-vector")),C_fixnum_plus(t2,C_fix(1)),C_SCHEME_UNDEFINED);} -else{ -t8=t6; -f_25808(t8,C_SCHEME_UNDEFINED);}} - -/* assign in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in ... */ -static void f_25774(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,4)))){ -C_save_and_reclaim_args((void *)trf_25774,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(11); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_25778,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_25797,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* library.scm:4453: ##sys#vector-resize */ -f_23697(t7,C_fast_retrieve(lf[901]),C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),*((C_word*)lf[730]+1));} -else{ -t7=t6; -f_25778(t7,C_SCHEME_UNDEFINED);}} - -/* k25776 in assign in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in ... */ -static void f_25778(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_25778,2,t0,t1);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25781,a[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:4457: 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_25781(2,av2);}}} - -/* k25779 in k25776 in assign in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in ... */ -static void C_ccall f_25781(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25781,c,av);} -if(C_truep(((C_word*)t0)[2])){ -t2=C_i_setslot(C_fast_retrieve(lf[901]),((C_word*)t0)[3],t1); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k25795 in assign in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in ... */ -static void C_ccall f_25797(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25797,c,av);} -t2=C_mutate((C_word*)lf[901]+1 /* (set! ##sys#current-parameter-vector ...) */,t1); -t3=((C_word*)t0)[2]; -f_25778(t3,t2);} - -/* k25806 in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in ... */ -static void f_25808(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_25808,2,t0,t1);} -a=C_alloc(9); -t2=C_i_setslot(C_retrieve2(lf[900],C_text("##sys#default-parameter-vector")),((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_25816,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word)li744),tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25898,a[2]=((C_word*)t0)[4],a[3]=((C_word)li745),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4470: chicken.base#getter-with-setter */ -t5=*((C_word*)lf[240]+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);}} - -/* a25815 in k25806 in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in ... */ -static void C_ccall f_25816(C_word c,C_word *av){ -C_word tmp; -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_25816,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; -t3=C_block_size(C_fast_retrieve(lf[901])); -if(C_truep(C_i_pairp(t2))){ -t4=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_25828,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t3,a[5]=((C_word)li741),tmp=(C_word)a,a+=6,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25837,a[2]=t5,a[3]=((C_word)li742),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25842,a[2]=t6,a[3]=((C_word)li743),tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_nullp(t4))){ -/* library.scm:4474: def-convert?5371 */ -t8=t7; -f_25842(t8,t1);} -else{ -t8=C_i_car(t4); -t9=C_u_i_cdr(t4); -if(C_truep(C_i_nullp(t9))){ -/* library.scm:4474: def-set?5372 */ -t10=t6; -f_25837(t10,t1,t8);} -else{ -t10=C_i_car(t9); -t11=C_u_i_cdr(t9); -/* library.scm:4474: body5369 */ -t12=t5; -f_25828(t12,t1,t8,t10);}}} -else{ -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[3],t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(C_retrieve2(lf[900],C_text("##sys#default-parameter-vector")),((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_slot(C_fast_retrieve(lf[901]),((C_word*)t0)[3]); -t5=C_eqp(t4,*((C_word*)lf[730]+1)); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=(C_truep(t5)?C_slot(C_retrieve2(lf[900],C_text("##sys#default-parameter-vector")),((C_word*)t0)[3]):t4); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} - -/* body5369 in a25815 in k25806 in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in ... */ -static void f_25828(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_25828,4,t0,t1,t2,t3);} -/* library.scm:4476: assign */ -t4=((C_word*)t0)[2]; -f_25774(t4,t1,C_i_car(((C_word*)t0)[3]),((C_word*)t0)[4],t2,t3);} - -/* def-set?5372 in a25815 in k25806 in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in ... */ -static void f_25837(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_25837,3,t0,t1,t2);} -/* library.scm:4474: body5369 */ -t3=((C_word*)t0)[2]; -f_25828(t3,t1,t2,C_SCHEME_TRUE);} - -/* def-convert?5371 in a25815 in k25806 in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in ... */ -static void f_25842(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_25842,2,t0,t1);} -/* library.scm:4474: def-set?5372 */ -t2=((C_word*)t0)[2]; -f_25837(t2,t1,C_SCHEME_TRUE);} - -/* a25897 in k25806 in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in ... */ -static void C_ccall f_25898(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_25898,c,av);} -/* library.scm:4486: assign */ -t3=((C_word*)t0)[2]; -f_25774(t3,t1,t2,C_block_size(C_fast_retrieve(lf[901])),C_SCHEME_FALSE,C_SCHEME_TRUE);} - -/* k25910 in k25771 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in ... */ -static void C_ccall f_25912(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25912,c,av);} -t2=C_mutate(&lf[900] /* (set! ##sys#default-parameter-vector ...) */,t1); -t3=((C_word*)t0)[2]; -f_25808(t3,t2);} - -/* f_25924 in scheme#make-parameter in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in ... */ -static void C_ccall f_25924(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_25924,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#char-ready? in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_25930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_25930,c,av);} -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?*((C_word*)lf[838]+1):C_get_rest_arg(c,2,av,2,t0)); -t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[903]); -t5=C_slot(t3,C_fix(2)); -/* library.scm:4492: g5404 */ -t6=C_slot(t5,C_fix(6));{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} - -/* scheme#read-char in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_25955(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_25955,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -t2=*((C_word*)lf[838]+1); -t3=C_i_check_port_2(*((C_word*)lf[838]+1),C_fix(1),C_SCHEME_TRUE,lf[468]); -/* library.scm:4499: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t1; -av2[2]=*((C_word*)lf[838]+1); -tp(3,av2);}} -else{ -t2=C_get_rest_arg(c,2,av,2,t0); -t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[468]); -/* library.scm:4499: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}}} - -/* ##sys#read-char-0 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_25973(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_25973,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_25977,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_slot(t2,C_fix(6)))){ -t4=C_i_set_i_slot(t2,C_fix(6),C_SCHEME_FALSE); -t5=t3;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_END_OF_FILE; -f_25977(2,av2);}} -else{ -t4=C_slot(t2,C_fix(2)); -/* library.scm:4502: g5422 */ -t5=C_slot(t4,C_fix(0));{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} - -/* k25975 in ##sys#read-char-0 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in ... */ -static void C_ccall f_25977(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_25977,c,av);} -t2=C_eqp(t1,C_make_character(10)); -if(C_truep(t2)){ -t3=C_slot(((C_word*)t0)[2],C_fix(4)); -t4=C_fixnum_plus(t3,C_fix(1)); -t5=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t4); -t6=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0)); -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -if(C_truep(C_i_not(C_eofp(t1)))){ -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; -av2[0]=t6; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* ##sys#read-char/port in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_26033(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_26033,c,av);} -t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[468]); -/* library.scm:4516: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2=av; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} - -/* ##sys#peek-char-0 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_26042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26042,c,av);} -a=C_alloc(4); -if(C_truep(C_slot(t2,C_fix(6)))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_slot(t2,C_fix(2)); -t4=C_slot(t3,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26055,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4521: g5436 */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}}} - -/* k26053 in ##sys#peek-char-0 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in ... */ -static void C_ccall f_26055(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_26055,c,av);} -if(C_truep(C_eofp(t1))){ -t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(6),C_SCHEME_TRUE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* scheme#peek-char in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26067,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -t2=*((C_word*)lf[838]+1); -t3=C_i_check_port_2(*((C_word*)lf[838]+1),C_fix(1),C_SCHEME_TRUE,lf[907]); -/* library.scm:4529: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t1; -av2[2]=*((C_word*)lf[838]+1); -tp(3,av2);}} -else{ -t2=C_get_rest_arg(c,2,av,2,t0); -t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[907]); -/* library.scm:4529: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}}} - -/* scheme#read in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_26085(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26085,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -t2=*((C_word*)lf[838]+1); -t3=C_i_check_port_2(*((C_word*)lf[838]+1),C_fix(1),C_SCHEME_TRUE,lf[908]); -/* library.scm:4534: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[894]); -C_word av2[4]; -av2[0]=*((C_word*)lf[894]+1); -av2[1]=t1; -av2[2]=*((C_word*)lf[838]+1); -av2[3]=C_fast_retrieve(lf[909]); -tp(4,av2);}} -else{ -t2=C_get_rest_arg(c,2,av,2,t0); -t3=C_i_check_port_2(t2,C_fix(1),C_SCHEME_TRUE,lf[908]); -/* library.scm:4534: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[894]); -C_word av2[4]; -av2[0]=*((C_word*)lf[894]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fast_retrieve(lf[909]); -tp(4,av2);}}} - -/* ##sys#read-prompt-hook in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_26105(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_26105,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#infix-list-hook in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_26108(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_26108,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in ... */ -static void C_ccall f_26113(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26113,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[851]+1 /* (set! ##sys#default-file-encoding ...) */,t1); -t3=C_mutate((C_word*)lf[913]+1 /* (set! ##sys#sharp-number-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26115,a[2]=((C_word)li756),tmp=(C_word)a,a+=3,tmp)); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26123,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4546: scheme#make-parameter */ -t5=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* ##sys#sharp-number-hook in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in ... */ -static void C_ccall f_26115(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_26115,c,av);} -/* library.scm:4544: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=lf[915]; -av2[4]=t3; -tp(5,av2);}} - -/* k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in ... */ -static void C_ccall f_26123(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26123,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[264]+1 /* (set! chicken.base#case-sensitive ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26127,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4547: scheme#make-parameter */ -t4=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in ... */ -static void C_ccall f_26127(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26127,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[266]+1 /* (set! chicken.base#parentheses-synonyms ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26131,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4548: scheme#make-parameter */ -t4=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in ... */ -static void C_ccall f_26131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26131,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[267]+1 /* (set! chicken.base#symbol-escape ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26135,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41367,a[2]=((C_word)li1235),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4551: scheme#make-parameter */ -t5=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[948]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in ... */ -static void C_ccall f_26135(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26135,c,av);} -a=C_alloc(8); -t2=C_mutate((C_word*)lf[265]+1 /* (set! chicken.base#keyword-style ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26139,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=C_a_i_record4(&a,4,lf[1609],C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_FALSE); -/* library.scm:4553: scheme#make-parameter */ -t5=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in ... */ -static void C_ccall f_26139(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(50,c,4)))){ -C_save_and_reclaim((void *)f_26139,c,av);} -a=C_alloc(50); -t2=C_mutate((C_word*)lf[916]+1 /* (set! ##sys#current-read-table ...) */,t1); -t3=C_mutate((C_word*)lf[917]+1 /* (set! ##sys#read-warning ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26141,a[2]=((C_word)li757),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[914]+1 /* (set! ##sys#read-error ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26164,a[2]=((C_word)li758),tmp=(C_word)a,a+=3,tmp)); -t5=*((C_word*)lf[265]+1); -t6=*((C_word*)lf[266]+1); -t7=*((C_word*)lf[264]+1); -t8=*((C_word*)lf[267]+1); -t9=C_fast_retrieve(lf[916]); -t10=C_mutate((C_word*)lf[894]+1 /* (set! ##sys#read ...) */,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_26187,a[2]=t9,a[3]=t8,a[4]=t6,a[5]=t5,a[6]=t7,a[7]=((C_word)li821),tmp=(C_word)a,a+=8,tmp)); -t11=C_mutate((C_word*)lf[994]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29308,a[2]=((C_word)li823),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[1005]+1 /* (set! ##sys#read-numvector-data ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29429,a[2]=((C_word)li824),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[1004]+1 /* (set! ##sys#canonicalize-number-list! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29460,a[2]=((C_word)li828),tmp=(C_word)a,a+=3,tmp)); -t14=C_set_block_item(lf[992] /* ##sys#read-marks */,0,C_SCHEME_END_OF_LIST); -t15=C_mutate((C_word*)lf[1007]+1 /* (set! ##sys#write-char-0 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29588,a[2]=((C_word)li829),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[1008]+1 /* (set! ##sys#write-char/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29604,a[2]=((C_word)li830),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[190]+1 /* (set! scheme#write-char ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29616,a[2]=((C_word)li831),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate((C_word*)lf[191]+1 /* (set! scheme#newline ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29637,a[2]=((C_word)li832),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[192]+1 /* (set! scheme#write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29652,a[2]=((C_word)li833),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[193]+1 /* (set! scheme#display ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29670,a[2]=((C_word)li834),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[229]+1 /* (set! chicken.base#print ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29688,a[2]=((C_word)li836),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate((C_word*)lf[230]+1 /* (set! chicken.base#print* ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29739,a[2]=((C_word)li838),tmp=(C_word)a,a+=3,tmp)); -t23=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29792,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5342: scheme#make-parameter */ -t24=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t24; -av2[1]=t23; -av2[2]=C_fix(0); -((C_proc)(void*)(*((C_word*)t24+1)))(3,av2);}} - -/* ##sys#read-warning in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_26141(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_26141,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_26149,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4560: ##sys#port-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[887]); -C_word *av2=av; -av2[0]=*((C_word*)lf[887]+1); -av2[1]=t5; -av2[2]=t2; -tp(3,av2);}} - -/* k26147 in ##sys#read-warning in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_26149(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26149,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26152,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(C_truep(C_fast_retrieve(lf[910]))?t1:C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26162,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4562: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=t1; -tp(3,av2);}} -else{{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[376]+1); -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[3]; -C_apply(5,av2);}}} - -/* k26150 in k26147 in ##sys#read-warning in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_26152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26152,c,av);}{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[376]+1); -av2[3]=t1; -av2[4]=((C_word*)t0)[3]; -C_apply(5,av2);}} - -/* k26160 in k26147 in ##sys#read-warning in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_26162(C_word c,C_word *av){ -C_word tmp; -C_word 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_26162,c,av);} -/* library.scm:4562: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[918]; -av2[3]=t1; -av2[4]=lf[919]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* ##sys#read-error in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_26164(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_26164,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_26172,a[2]=t1,a[3]=t4,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4572: ##sys#port-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[887]); -C_word *av2=av; -av2[0]=*((C_word*)lf[887]+1); -av2[1]=t5; -av2[2]=t2; -tp(3,av2);}} - -/* k26170 in ##sys#read-error in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_26172(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26172,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26175,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=(C_truep(C_fast_retrieve(lf[910]))?t1:C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26185,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4574: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=t1; -tp(3,av2);}} -else{{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[920]; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[3]; -C_apply(6,av2);}}} - -/* k26173 in k26170 in ##sys#read-error in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_26175(C_word c,C_word *av){ -C_word tmp; -C_word 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_26175,c,av);}{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[920]; -av2[4]=t1; -av2[5]=((C_word*)t0)[3]; -C_apply(6,av2);}} - -/* k26183 in k26170 in ##sys#read-error in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_26185(C_word c,C_word *av){ -C_word tmp; -C_word 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_26185,c,av);} -/* library.scm:4574: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[921]; -av2[3]=t1; -av2[4]=lf[922]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_26187(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_26187,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_29303,a[2]=t2,a[3]=t3,a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); -/* library.scm:4586: case-sensitive */ -t5=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_26194(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26194,c,av);} -a=C_alloc(11); -t2=t1; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26197,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* library.scm:4588: parentheses-synonyms */ -t5=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_26197(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_26197,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26200,a[2]=((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],tmp=(C_word)a,a+=9,tmp); -/* library.scm:4589: symbol-escape */ -t3=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_26200(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_26200,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26203,a[2]=((C_word*)t0)[2],a[3]=((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); -/* library.scm:4590: current-read-table */ -t3=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_26203(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(84,c,5)))){ -C_save_and_reclaim((void *)f_26203,c,av);} -a=C_alloc(84); -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=lf[923]; -t7=C_SCHEME_FALSE; -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_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26205,a[2]=((C_word*)t0)[2],a[3]=((C_word)li759),tmp=(C_word)a,a+=4,tmp)); -t28=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26211,a[2]=((C_word*)t0)[3],a[3]=((C_word)li760),tmp=(C_word)a,a+=4,tmp)); -t29=C_set_block_item(t14,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26220,a[2]=((C_word*)t0)[2],a[3]=((C_word)li762),tmp=(C_word)a,a+=4,tmp)); -t30=C_set_block_item(t16,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26257,a[2]=((C_word*)t0)[2],a[3]=((C_word)li763),tmp=(C_word)a,a+=4,tmp)); -t31=C_set_block_item(t18,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26266,a[2]=t8,a[3]=t16,a[4]=((C_word)li764),tmp=(C_word)a,a+=5,tmp)); -t32=C_set_block_item(t20,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26281,a[2]=t5,a[3]=((C_word)li765),tmp=(C_word)a,a+=4,tmp)); -t33=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26292,a[2]=t22,a[3]=((C_word)li766),tmp=(C_word)a,a+=4,tmp)); -t34=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26320,a[2]=t22,a[3]=((C_word)li769),tmp=(C_word)a,a+=4,tmp)); -t35=C_set_block_item(t26,0,(*a=C_CLOSURE_TYPE|19,a[1]=(C_word)f_26440,a[2]=((C_word*)t0)[2],a[3]=t14,a[4]=t3,a[5]=t10,a[6]=t12,a[7]=t26,a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=t18,a[11]=t6,a[12]=t8,a[13]=t16,a[14]=t1,a[15]=t20,a[16]=t5,a[17]=((C_word*)t0)[6],a[18]=((C_word*)t0)[7],a[19]=((C_word)li819),tmp=(C_word)a,a+=20,tmp)); -t36=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29279,a[2]=((C_word*)t0)[8],a[3]=t5,a[4]=t24,a[5]=t3,a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -/* library.scm:5216: readrec */ -t37=((C_word*)t26)[1]; -f_26440(t37,t36);} - -/* f_26205 in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_26205(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_26205,c,av);} -/* library.scm:4598: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[924]; -av2[4]=t2; -tp(5,av2);}} - -/* info in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_26211(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(0,0,4)))){ -C_save_and_reclaim_args((void *)trf_26211,5,t0,t1,t2,t3,t4);} -if(C_truep(((C_word*)t0)[2])){ -/* library.scm:4602: 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=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* skip-to-eol in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_26220(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_26220,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26228,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4606: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k26226 in skip-to-eol in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_26228(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_26228,c,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_26230,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li761),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_26230(t5,((C_word*)t0)[3],t1);} - -/* skip in k26226 in skip-to-eol in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_26230(C_word 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,2)))){ -C_save_and_reclaim_args((void *)trf_26230,3,t0,t1,t2);} -a=C_alloc(4); -t3=C_i_not(C_eofp(t2)); -t4=(C_truep(t3)?C_i_not(C_eqp(C_make_character(10),t2)):C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26244,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4608: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k26242 in skip in k26226 in skip-to-eol in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26244,c,av);} -/* library.scm:4608: skip */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26230(t2,((C_word*)t0)[3],t1);} - -/* reserved-character in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_26257(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_26257,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26261,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4611: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k26259 in reserved-character in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_26261(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_26261,c,av);} -/* library.scm:4612: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[925]; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* read-unreserved-char-0 in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_26266(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_26266,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26270,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4615: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k26268 in read-unreserved-char-0 in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_26270(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26270,c,av);} -if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t0)[2])[1]))){ -/* library.scm:4617: reserved-character */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_26257(t2,((C_word*)t0)[4],t1);} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* register-shared! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static C_word f_26281(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_stack_overflow_check;{} -t3=C_a_i_cons(&a,2,t1,t2); -t4=C_a_i_cons(&a,2,t3,((C_word*)((C_word*)t0)[2])[1]); -t5=C_mutate(((C_word *)((C_word*)t0)[2])+1,t4); -return(t5);} - -/* unthunk in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_26292(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_26292,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26296,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* library.scm:4624: o */ -t5=t2;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)C_fast_retrieve_proc(t5))(2,av2);}} - -/* k26294 in unthunk in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_26296(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26296,c,av);} -t2=C_i_closurep(t1); -if(C_truep(C_i_not(t2))){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_eqp(t1,((C_word*)t0)[3]); -if(C_truep(t3)){ -/* library.scm:4627: fail */ -t4=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[926]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} -else{ -/* library.scm:4629: unthunk */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_26292(t4,((C_word*)t0)[2],t1,((C_word*)t0)[4]);}}} - -/* unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_26320(C_word t0,C_word 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_26320,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_26326,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li768),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_26326(t7,t1,t2);} - -/* loop! in unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_26326(C_word t0,C_word t1,C_word t2){ -C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_26326,3,t0,t1,t2);} -a=C_alloc(11); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26336,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); -t4=C_i_closurep(C_u_i_car(t2)); -if(C_truep(C_i_not(t4))){ -/* library.scm:4636: loop! */ -t8=t3; -t9=C_u_i_car(t2); -t1=t8; -t2=t9; -goto loop;} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26379,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4637: unthunk */ -t6=((C_word*)((C_word*)t0)[3])[1]; -f_26292(t6,t5,C_u_i_car(t2),((C_word*)t0)[4]);}} -else{ -if(C_truep(C_i_vectorp(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|8,a[1]=(C_word)f_26401,a[2]=t3,a[3]=t2,a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word)li767),tmp=(C_word)a,a+=9,tmp)); -t7=((C_word*)t5)[1]; -f_26401(t7,t1,C_fix(0));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k26334 in loop! in unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_26336(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26336,c,av);} -a=C_alloc(4); -t2=C_i_closurep(C_u_i_cdr(((C_word*)t0)[2])); -if(C_truep(C_i_not(t2))){ -/* library.scm:4639: loop! */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26326(t3,((C_word*)t0)[4],C_u_i_cdr(((C_word*)t0)[2]));} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26355,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4640: unthunk */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_26292(t4,t3,C_u_i_cdr(((C_word*)t0)[2]),((C_word*)t0)[6]);}} - -/* k26353 in k26334 in loop! in unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_26355(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_26355,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(1),t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k26377 in loop! in unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_26379(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_26379,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_setslot(((C_word*)t0)[3],C_fix(0),t1); -f_26336(2,av2);}} - -/* doloop5545 in loop! in unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_26401(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_26401,3,t0,t1,t2);} -a=C_alloc(11); -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=C_slot(((C_word*)t0)[3],t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26414,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t6=C_i_closurep(t4); -if(C_truep(C_i_not(t6))){ -/* library.scm:4647: loop! */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_26326(t7,t5,t4);} -else{ -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26434,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); -/* library.scm:4648: unthunk */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_26292(t8,t7,t4,((C_word*)t0)[7]);}}} - -/* k26412 in doloop5545 in loop! in unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_26414(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26414,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26401(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k26432 in doloop5545 in loop! in unthunkify! in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_26434(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26434,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26401(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} - -/* readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_26440(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word t36; -C_word t37; -C_word t38; -C_word t39; -C_word t40; -C_word t41; -C_word t42; -C_word t43; -C_word t44; -C_word t45; -C_word t46; -C_word t47; -C_word t48; -C_word t49; -C_word t50; -C_word t51; -C_word t52; -C_word t53; -C_word t54; -C_word t55; -C_word t56; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(162,0,5)))){ -C_save_and_reclaim_args((void *)trf_26440,2,t0,t1);} -a=C_alloc(162); -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_26443,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li771),tmp=(C_word)a,a+=5,tmp)); -t37=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26491,a[2]=((C_word*)t0)[2],a[3]=((C_word)li773),tmp=(C_word)a,a+=4,tmp)); -t38=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26551,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word)li777),tmp=(C_word)a,a+=5,tmp)); -t39=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26691,a[2]=((C_word*)t0)[2],a[3]=t7,a[4]=t5,a[5]=((C_word)li780),tmp=(C_word)a,a+=6,tmp)); -t40=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27190,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t3,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=t27,a[9]=((C_word)li786),tmp=(C_word)a,a+=10,tmp)); -t41=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27451,a[2]=((C_word*)t0)[2],a[3]=t11,a[4]=((C_word)li787),tmp=(C_word)a,a+=5,tmp)); -t42=C_set_block_item(t15,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27469,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=t27,a[5]=((C_word)li789),tmp=(C_word)a,a+=6,tmp)); -t43=C_set_block_item(t17,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27538,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li790),tmp=(C_word)a,a+=5,tmp)); -t44=C_set_block_item(t19,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27589,a[2]=((C_word*)t0)[2],a[3]=t15,a[4]=((C_word)li791),tmp=(C_word)a,a+=5,tmp)); -t45=C_set_block_item(t21,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[11],a[6]=((C_word)li793),tmp=(C_word)a,a+=7,tmp)); -t46=C_set_block_item(t23,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27718,a[2]=((C_word*)t0)[2],a[3]=((C_word)li795),tmp=(C_word)a,a+=4,tmp)); -t47=C_set_block_item(t25,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27764,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[2],a[4]=t27,a[5]=((C_word)li797),tmp=(C_word)a,a+=6,tmp)); -t48=C_set_block_item(t27,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_27789,a[2]=((C_word*)t0)[8],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)li799),tmp=(C_word)a,a+=10,tmp)); -t49=C_set_block_item(t29,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28040,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[11],a[4]=t21,a[5]=((C_word)li800),tmp=(C_word)a,a+=6,tmp)); -t50=C_set_block_item(t31,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28257,a[2]=((C_word*)t0)[2],a[3]=((C_word)li802),tmp=(C_word)a,a+=4,tmp)); -t51=C_set_block_item(t33,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28344,a[2]=t21,a[3]=((C_word)li803),tmp=(C_word)a,a+=4,tmp)); -t52=C_set_block_item(t35,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28357,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[2],a[5]=((C_word)li804),tmp=(C_word)a,a+=6,tmp)); -t53=(*a=C_CLOSURE_TYPE|29,a[1]=(C_word)f_28392,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[14],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[7],a[6]=t1,a[7]=t35,a[8]=((C_word*)t0)[15],a[9]=((C_word*)t0)[16],a[10]=t23,a[11]=t17,a[12]=t19,a[13]=t13,a[14]=t29,a[15]=t31,a[16]=t33,a[17]=((C_word*)t0)[8],a[18]=t27,a[19]=((C_word*)t0)[6],a[20]=((C_word*)t0)[3],a[21]=((C_word*)t0)[9],a[22]=t21,a[23]=t11,a[24]=((C_word*)t0)[5],a[25]=t9,a[26]=t15,a[27]=((C_word*)t0)[13],a[28]=t25,a[29]=t3,tmp=(C_word)a,a+=30,tmp); -t54=C_i_not(((C_word*)t0)[17]); -t55=(C_truep(t54)?lf[995]:C_SCHEME_END_OF_LIST); -if(C_truep(C_i_not(((C_word*)t0)[18]))){ -/* library.scm:5049: scheme#append */ -t56=*((C_word*)lf[443]+1);{ -C_word av2[4]; -av2[0]=t56; -av2[1]=t53; -av2[2]=t55; -av2[3]=lf[996]; -((C_proc)(void*)(*((C_word*)t56+1)))(4,av2);}} -else{ -/* library.scm:5049: scheme#append */ -t56=*((C_word*)lf[443]+1);{ -C_word av2[4]; -av2[0]=t56; -av2[1]=t53; -av2[2]=t55; -av2[3]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t56+1)))(4,av2);}}} - -/* r-spaces in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_26443(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_26443,2,t0,t1);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26451,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4653: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k26449 in r-spaces in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_26451(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26451,c,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_26453,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li770),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_26453(t5,((C_word*)t0)[4],t1);} - -/* loop in k26449 in r-spaces in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_26453(C_word 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_26453,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_26466,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:4656: skip-to-eol */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_26220(t6,t5);} -else{ -if(C_truep(C_u_i_char_whitespacep(t2))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26482,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:4659: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} - -/* k26464 in loop in k26449 in r-spaces in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_26466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26466,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4657: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k26471 in k26464 in loop in k26449 in r-spaces in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26473(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26473,c,av);} -/* library.scm:4657: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26453(t2,((C_word*)t0)[3],t1);} - -/* k26480 in loop in k26449 in r-spaces in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_26482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26482,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4660: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k26487 in k26480 in loop in k26449 in r-spaces in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26489,c,av);} -/* library.scm:4660: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26453(t2,((C_word*)t0)[3],t1);} - -/* r-usequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_26491(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_26491,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_26497,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=t6,a[6]=((C_word)li772),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_26497(t8,t1,C_SCHEME_END_OF_LIST,t3);} - -/* loop in r-usequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_26497(C_word 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_26497,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_26507,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:4665: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t5; -av2[2]=t2; -tp(3,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26523,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=t3,tmp=(C_word)a,a+=7,tmp); -/* library.scm:4672: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}}} - -/* k26505 in loop in r-usequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_26507(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26507,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26510,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); -/* library.scm:4666: scheme#string->number */ -t3=*((C_word*)lf[723]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k26508 in k26505 in loop in r-usequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_26510(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,5)))){ -C_save_and_reclaim((void *)f_26510,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26520,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4670: string-append */ -t3=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[927]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=lf[928]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} - -/* k26518 in k26508 in k26505 in loop in r-usequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26520(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_26520,c,av);} -/* library.scm:4668: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k26521 in loop in r-usequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_26523(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26523,c,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:4674: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[929]; -tp(4,av2);}} -else{ -t4=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); -/* library.scm:4675: loop */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_26497(t5,((C_word*)t0)[2],t4,C_fixnum_difference(((C_word*)t0)[6],C_fix(1)));}} - -/* r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_26551(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(28,0,3)))){ -C_save_and_reclaim_args((void *)trf_26551,3,t0,t1,t2);} -a=C_alloc(28); -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|3,a[1]=(C_word)f_26554,a[2]=((C_word*)t0)[2],a[3]=((C_word)li774),tmp=(C_word)a,a+=4,tmp)); -t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_26573,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp)); -t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26577,a[2]=((C_word*)t0)[2],a[3]=((C_word)li775),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|8,a[1]=(C_word)f_26586,a[2]=t8,a[3]=t2,a[4]=t6,a[5]=t4,a[6]=((C_word*)t0)[2],a[7]=t13,a[8]=((C_word)li776),tmp=(C_word)a,a+=9,tmp)); -t15=((C_word*)t13)[1]; -f_26586(t15,t1,C_SCHEME_END_OF_LIST);} - -/* parse in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_26554(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_26554,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26558,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4679: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k26556 in parse in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_26558(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26558,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4680: scheme#string->number */ -t3=*((C_word*)lf[723]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=C_fix(16); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k26559 in k26556 in parse in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_26561(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26561,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_26571,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4683: string-append */ -t3=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[930]; -av2[3]=((C_word*)t0)[4]; -av2[4]=lf[931]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k26569 in k26559 in k26556 in parse in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_26571,c,av);} -/* library.scm:4682: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* complain in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static C_word f_26573(C_word t0){ -C_word tmp; -C_word t1; -C_word t2; -C_stack_overflow_check;{} -t1=C_mutate(((C_word *)((C_word*)t0)[2])+1,lf[932]); -return(t1);} - -/* abort in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_26577(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_26577,2,t0,t1);} -/* library.scm:4688: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word av2[4]; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[933]; -tp(4,av2);}} - -/* loop in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_26586(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_26586,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_26590,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],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); -/* library.scm:4690: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} - -/* k26588 in loop in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_26590(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_26590,c,av);} -a=C_alloc(9); -if(C_truep(C_eofp(t1))){ -/* library.scm:4691: abort */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26577(t2,((C_word*)t0)[3]);} -else{ -t2=C_eqp(((C_word*)t0)[4],t1); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26608,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); -/* library.scm:4693: parse */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_26554(t4,t3,((C_word*)t0)[7]);} -else{ -t3=C_eqp(C_make_character(59),t1); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26629,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); -/* library.scm:4698: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[8]; -tp(3,av2);}} -else{ -t4=C_i_char_greater_or_equal_p(t1,C_make_character(48)); -t5=(C_truep(t4)?C_u_i_char_less_or_equal_p(t1,C_make_character(57)):C_SCHEME_FALSE); -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26641,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t5)){ -t7=t6; -f_26641(t7,t5);} -else{ -t7=(C_truep(C_u_i_char_greater_or_equal_p(t1,C_make_character(97)))?C_u_i_char_less_or_equal_p(t1,C_make_character(102)):C_SCHEME_FALSE); -t8=t6; -f_26641(t8,(C_truep(t7)?t7:(C_truep(C_u_i_char_greater_or_equal_p(t1,C_make_character(65)))?C_u_i_char_less_or_equal_p(t1,C_make_character(70)):C_SCHEME_FALSE)));}}}}} - -/* k26606 in k26588 in loop in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_26608(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_26608,c,av);} -if(C_truep(C_fixnum_greaterp(t1,C_fix(131071)))){ -/* library.scm:4695: abort */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26577(t2,((C_word*)t0)[3]);} -else{ -t2=( -/* library.scm:4696: complain */ - f_26573(((C_word*)((C_word*)t0)[4])[1]) -); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k26627 in k26588 in loop in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_26629(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_26629,c,av);} -/* library.scm:4699: parse */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26554(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k26639 in k26588 in loop in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_26641(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_26641,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26652,a[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:4703: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26655,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); -/* library.scm:4705: parse */ -t3=((C_word*)((C_word*)t0)[8])[1]; -f_26554(t3,t2,((C_word*)t0)[2]);}} - -/* k26650 in k26639 in k26588 in loop in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_26652,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* library.scm:4703: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26586(t3,((C_word*)t0)[4],t2);} - -/* k26653 in k26639 in k26588 in loop in r-xsequence in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26655(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_26655,c,av);} -if(C_truep(C_fixnum_greaterp(t1,C_fix(131071)))){ -/* library.scm:4707: abort */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26577(t2,((C_word*)t0)[3]);} -else{ -t2=( -/* library.scm:4708: complain */ - f_26573(((C_word*)((C_word*)t0)[4])[1]) -); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_26691(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_26691,3,t0,t1,t2);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_26699,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:4711: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_26699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_26699,c,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_26701,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)li779),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_26701(t5,((C_word*)t0)[6],t1,C_SCHEME_END_OF_LIST);} - -/* loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_26701(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,3)))){ -C_save_and_reclaim_args((void *)trf_26701,4,t0,t1,t2,t3);} -a=C_alloc(12); -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:4713: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word av2[4]; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[934]; -tp(4,av2);}} -else{ -t5=C_eqp(C_make_character(92),((C_word*)t4)[1]); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_26718,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],a[9]=((C_word*)t0)[6],tmp=(C_word)a,a+=10,tmp); -/* library.scm:4715: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} -else{ -t6=C_eqp(((C_word*)t0)[5],((C_word*)t4)[1]); -if(C_truep(t6)){ -/* library.scm:4776: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t1; -av2[2]=t3; -tp(3,av2);}} -else{ -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27184,a[2]=t4,a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:4777: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}}}}} - -/* k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_26718(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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_26718,c,av);} -a=C_alloc(9); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)((C_word*)t0)[2])[1]; -switch(t3){ -case C_make_character(116): -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26731,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:4717: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(114): -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26748,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:4718: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(98): -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26765,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:4719: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(110): -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26782,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:4720: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(97): -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26799,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:4721: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(118): -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26816,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:4722: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(102): -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26833,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:4723: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(120): -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26861,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:4725: r-xsequence */ -t5=((C_word*)((C_word*)t0)[7])[1]; -f_26551(t5,t4,((C_word*)t0)[8]); -case C_make_character(117): -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26870,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:4728: r-usequence */ -t5=((C_word*)((C_word*)t0)[9])[1]; -f_26491(t5,t4,lf[935],C_fix(4),C_fix(16)); -case C_make_character(85): -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26894,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:4732: r-usequence */ -t5=((C_word*)((C_word*)t0)[9])[1]; -f_26491(t5,t4,lf[936],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_26918,a[2]=((C_word*)t0)[2],a[3]=((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)[9],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t4)){ -t6=t5; -f_26918(t6,t4);} -else{ -t6=C_eqp(t3,C_make_character(39)); -if(C_truep(t6)){ -t7=t5; -f_26918(t7,t6);} -else{ -t7=C_eqp(t3,C_make_character(34)); -t8=t5; -f_26918(t8,(C_truep(t7)?t7:C_eqp(t3,C_make_character(124))));}}}} - -/* k26729 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26731(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26731,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(9),((C_word*)t0)[2]); -/* library.scm:4717: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26701(t3,((C_word*)t0)[4],t1,t2);} - -/* k26746 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26748(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26748,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(13),((C_word*)t0)[2]); -/* library.scm:4718: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26701(t3,((C_word*)t0)[4],t1,t2);} - -/* k26763 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26765(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26765,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(8),((C_word*)t0)[2]); -/* library.scm:4719: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26701(t3,((C_word*)t0)[4],t1,t2);} - -/* k26780 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_26782,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]); -/* library.scm:4720: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26701(t3,((C_word*)t0)[4],t1,t2);} - -/* k26797 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26799(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26799,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(7),((C_word*)t0)[2]); -/* library.scm:4721: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26701(t3,((C_word*)t0)[4],t1,t2);} - -/* k26814 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26816(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26816,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(11),((C_word*)t0)[2]); -/* library.scm:4722: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26701(t3,((C_word*)t0)[4],t1,t2);} - -/* k26831 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26833(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26833,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(12),((C_word*)t0)[2]); -/* library.scm:4723: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26701(t3,((C_word*)t0)[4],t1,t2);} - -/* k26851 in k26859 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_26853(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26853,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -/* library.scm:4726: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t3,((C_word*)t0)[5],t1,t2);} - -/* k26859 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_26861,c,av);} -a=C_alloc(6); -t2=C_make_character(C_unfix(t1)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26853,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:4726: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k26868 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26870(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26870,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26877,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:4729: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k26875 in k26868 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_26877(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26877,c,av);} -a=C_alloc(3); -t2=C_make_character(C_unfix(((C_word*)t0)[2])); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -/* library.scm:4729: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t4,((C_word*)t0)[5],t1,t3);} - -/* k26892 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_26894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_26894,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26901,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:4733: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k26899 in k26892 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_26901(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26901,c,av);} -a=C_alloc(3); -t2=C_make_character(C_unfix(((C_word*)t0)[2])); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[3]); -/* library.scm:4733: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t4,((C_word*)t0)[5],t1,t3);} - -/* k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_26918(C_word 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_26918,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_26925,a[2]=((C_word*)t0)[2],a[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:4736: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} -else{ -t2=C_eqp(((C_word*)t0)[7],C_make_character(10)); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_26938,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_26938(t4,t2);} -else{ -t4=C_eqp(((C_word*)t0)[7],C_make_character(13)); -if(C_truep(t4)){ -t5=t3; -f_26938(t5,t4);} -else{ -t5=C_eqp(((C_word*)t0)[7],C_make_character(32)); -t6=t3; -f_26938(t6,(C_truep(t5)?t5:C_eqp(((C_word*)t0)[7],C_make_character(9))));}}}} - -/* k26923 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_26925,c,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:4736: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t3,((C_word*)t0)[5],t1,t2);} - -/* k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_26938(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,4)))){ -C_save_and_reclaim_args((void *)trf_26938,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_26943,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)li778),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_26943(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:4762: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word av2[4]; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[938]; -tp(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27042,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); -if(C_truep(C_u_i_char_numericp(((C_word*)((C_word*)t0)[6])[1]))){ -t3=C_i_char_greater_or_equal_p(((C_word*)((C_word*)t0)[6])[1],C_make_character(48)); -t4=t2; -f_27042(t4,(C_truep(t3)?C_i_char_less_or_equal_p(((C_word*)((C_word*)t0)[6])[1],C_make_character(55)):C_SCHEME_FALSE));} -else{ -t3=t2; -f_27042(t3,C_SCHEME_FALSE);}}}} - -/* eat-ws in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void f_26943(C_word t0,C_word t1,C_word t2,C_word 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_26943,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=C_eqp(t2,C_make_character(32)); -t5=(C_truep(t4)?t4:C_eqp(t2,C_make_character(9))); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26960,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4742: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -switch(t2){ -case C_make_character(13): -if(C_truep(t3)){ -/* library.scm:4745: loop */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t6,t1,t2,((C_word*)t0)[5]);} -else{ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_26975,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:4746: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -case C_make_character(10): -if(C_truep(t3)){ -/* library.scm:4752: loop */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t6,t1,t2,((C_word*)t0)[5]);} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27010,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4753: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -default: -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27013,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:4759: loop */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t7,t1,t2,((C_word*)t0)[5]);} -else{ -/* library.scm:4756: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word av2[4]; -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[937]; -tp(4,av2);}}}}} - -/* k26958 in eat-ws in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_26960(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_26960,c,av);} -/* library.scm:4742: eat-ws */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26943(t2,((C_word*)t0)[3],t1,((C_word*)t0)[4]);} - -/* k26973 in eat-ws in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_26975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_26975,c,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_26988,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4748: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} -else{ -/* library.scm:4749: eat-ws */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_26943(t3,((C_word*)t0)[3],t1,C_SCHEME_TRUE);}} - -/* k26986 in k26973 in eat-ws in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_26988(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_26988,c,av);} -/* library.scm:4748: eat-ws */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26943(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);} - -/* k27008 in eat-ws in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27010(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27010,c,av);} -/* library.scm:4753: eat-ws */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26943(t2,((C_word*)t0)[3],t1,C_SCHEME_TRUE);} - -/* k27011 in eat-ws in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27013(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27013,c,av);} -/* library.scm:4759: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26701(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k27040 in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void f_27042(C_word 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_27042,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=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27068,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); -/* library.scm:4768: r-usequence */ -t6=((C_word*)((C_word*)t0)[7])[1]; -f_26491(t6,t5,lf[939],C_fix(2),C_fix(8));} -else{ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:4771: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word av2[5]; -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=lf[940]; -av2[4]=((C_word*)((C_word*)t0)[2])[1]; -tp(5,av2);}}} - -/* k27050 in k27066 in k27040 in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_27052,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -/* library.scm:4769: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t3,((C_word*)t0)[5],t1,t2);} - -/* k27066 in k27040 in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27068(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27068,c,av);} -a=C_alloc(6); -t2=C_fixnum_plus(((C_word*)t0)[2],t1); -t3=C_make_character(C_unfix(t2)); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27052,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); -/* library.scm:4769: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} - -/* k27077 in k27040 in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27079(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27079,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27086,a[2]=((C_word*)t0)[2],a[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:4775: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} - -/* k27084 in k27077 in k27040 in k26936 in k26916 in k26716 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_27086(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27086,c,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:4775: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t3,((C_word*)t0)[5],t1,t2);} - -/* k27182 in loop in k26697 in r-string in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27184(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27184,c,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:4777: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26701(t3,((C_word*)t0)[5],t1,t2);} - -/* r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27190(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_27190,4,t0,t1,t2,t3);} -a=C_alloc(12); -t4=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_27449,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t3,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],tmp=(C_word)a,a+=12,tmp); -/* library.scm:4780: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* starting-line in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_27199(C_word t0,C_word t1,C_word 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_27199,3,t0,t1,t2);} -a=C_alloc(4); -t3=(C_truep(((C_word*)((C_word*)t0)[2])[1])?C_fast_retrieve(lf[910]):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27213,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4788: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -tp(3,av2);}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k27211 in starting-line in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27213(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27213,c,av);} -/* library.scm:4786: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[941]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k27214 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_27216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_27216,c,av);} -a=C_alloc(5); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -if(C_truep(((C_word*)((C_word*)t0)[4])[1])){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27227,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:4855: ##sys#infix-list-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[912]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[912]+1); -av2[1]=t3; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -tp(3,av2);}} -else{ -t3=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k27225 in k27214 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27227(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27227,c,av);} -/* library.scm:4855: info */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26211(t2,((C_word*)t0)[3],lf[942],t1,((C_word*)((C_word*)t0)[4])[1]);} - -/* a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -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=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ -C_save_and_reclaim((void *)f_27229,c,av);} -a=C_alloc(22); -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27232,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)li782),tmp=(C_word)a,a+=7,tmp)); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27254,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)li784),tmp=(C_word)a,a+=13,tmp)); -t7=((C_word*)t5)[1]; -f_27254(t7,t1,C_SCHEME_END_OF_LIST);} - -/* f_27232 in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27232(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27232,c,av);} -a=C_alloc(6); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -/* library.scm:4795: return */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27249,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:4798: starting-line */ -t5=((C_word*)t0)[5]; -f_27199(t5,t4,lf[943]);}} - -/* k27247 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_27249,c,av);} -/* library.scm:4796: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[5]; -tp(6,av2);}} - -/* loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_27254(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ -C_save_and_reclaim_args((void *)trf_27254,3,t0,t1,t2);} -a=C_alloc(14); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_27258,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t2,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[7],a[10]=((C_word*)t0)[8],a[11]=((C_word*)t0)[9],a[12]=((C_word*)t0)[10],a[13]=((C_word*)t0)[11],tmp=(C_word)a,a+=14,tmp); -/* library.scm:4801: r-spaces */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_26443(t4,t3);} - -/* k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_27258(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_27258,c,av);} -a=C_alloc(17); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27261,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); -if(C_truep(((C_word*)((C_word*)t0)[9])[1])){ -t3=t2; -f_27261(t3,C_SCHEME_UNDEFINED);} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27442,a[2]=((C_word*)t0)[13],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4802: ##sys#port-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[887]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[887]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}}} - -/* k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_27261(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,0,2)))){ -C_save_and_reclaim_args((void *)trf_27261,2,t0,t1);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27264,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); -/* library.scm:4803: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_27264(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27264,c,av);} -a=C_alloc(13); -if(C_truep(C_eofp(t1))){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27274,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4807: starting-line */ -t3=((C_word*)t0)[4]; -f_27199(t3,t2,lf[944]);} -else{ -t2=C_eqp(t1,((C_word*)t0)[5]); -if(C_truep(t2)){ -/* library.scm:4809: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t3=C_eqp(t1,C_make_character(46)); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27292,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); -/* library.scm:4811: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27438,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:4848: readrec */ -t5=((C_word*)((C_word*)t0)[8])[1]; -f_26440(t5,t4);}}}} - -/* k27272 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27274(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27274,c,av);} -/* library.scm:4805: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27292(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_27292,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27295,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],tmp=(C_word)a,a+=13,tmp); -/* library.scm:4812: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_27295(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_27295,c,av);} -a=C_alloc(14); -t2=C_u_i_char_whitespacep(t1); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_27304,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); -if(C_truep(t2)){ -t4=t3; -f_27304(t4,t2);} -else{ -t4=C_eqp(t1,C_make_character(40)); -if(C_truep(t4)){ -t5=t3; -f_27304(t5,t4);} -else{ -t5=C_eqp(t1,C_make_character(41)); -if(C_truep(t5)){ -t6=t3; -f_27304(t6,t5);} -else{ -t6=C_eqp(t1,C_make_character(34)); -t7=t3; -f_27304(t7,(C_truep(t6)?t6:C_eqp(t1,C_make_character(59))));}}}} - -/* k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void f_27304(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_27304,2,t0,t1);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27307,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_27307(2,av2);}} -else{ -/* library.scm:4819: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word av2[4]; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[946]; -tp(4,av2);}}} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27348,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)li783),tmp=(C_word)a,a+=8,tmp); -/* library.scm:4829: r-xtoken */ -t3=((C_word*)((C_word*)t0)[13])[1]; -f_27789(t3,((C_word*)t0)[4],t2);}} - -/* k27305 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_27307(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_27307,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27310,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:4820: r-spaces */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_26443(t3,t2);} - -/* k27308 in k27305 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_27310(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_27310,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27337,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:4821: readrec */ -t3=((C_word*)((C_word*)t0)[8])[1]; -f_26440(t3,t2);} - -/* k27314 in k27335 in k27308 in k27305 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in ... */ -static void C_ccall f_27316(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27316,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27333,a[2]=((C_word*)t0)[2],a[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:4823: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k27327 in k27331 in k27314 in k27335 in k27308 in k27305 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ... */ -static void C_ccall f_27329(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27329,c,av);} -/* library.scm:4824: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+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);}} - -/* k27331 in k27314 in k27335 in k27308 in k27305 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in ... */ -static void C_ccall f_27333(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_27333,c,av);} -a=C_alloc(5); -t2=C_eqp(t1,((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=C_SCHEME_UNDEFINED; -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27329,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:4826: starting-line */ -t4=((C_word*)t0)[5]; -f_27199(t4,t3,lf[945]);}} - -/* k27335 in k27308 in k27305 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in ... */ -static void C_ccall f_27337(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_27337,c,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_27316,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:4822: r-spaces */ -t4=((C_word*)((C_word*)t0)[7])[1]; -f_26443(t4,t3);} - -/* a27347 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_27348(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_27348,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27352,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[5],a[7]=t3,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); -/* library.scm:4831: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[507]+1); -av2[1]=t4; -av2[2]=lf[950]; -av2[3]=t2; -tp(4,av2);}} - -/* k27350 in a27347 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_27352(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27352,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27355,a[2]=((C_word*)t0)[2],a[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_i_string_equal_p(t1,lf[947]))?C_eqp(((C_word*)((C_word*)t0)[6])[1],lf[948]):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45445,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5045: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t4; -av2[2]=lf[949]; -tp(3,av2);}} -else{ -if(C_truep(((C_word*)t0)[7])){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45450,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5045: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t4; -av2[2]=t1; -tp(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27383,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_u_i_char_numericp(((C_word*)t0)[8]))){ -/* library.scm:4840: ##sys#string->number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[725]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[725]+1); -av2[1]=t4; -av2[2]=t1; -tp(3,av2);}} -else{ -/* library.scm:5042: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[739]+1); -av2[1]=t2; -av2[2]=t1; -tp(3,av2);}}}}} - -/* k27353 in k27350 in a27347 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in ... */ -static void C_ccall f_27355(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_27355,c,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:4846: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_27254(t4,((C_word*)t0)[5],t2);} -else{ -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -/* library.scm:4846: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_27254(t4,((C_word*)t0)[5],t2);}} - -/* k27381 in k27350 in a27347 in k27302 in k27293 in k27290 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in ... */ -static void C_ccall f_27383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27383,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -f_27355(2,av2);}} -else{ -/* library.scm:5042: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[739]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}}} - -/* k27436 in k27262 in k27259 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27438(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_27438,c,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:4852: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_27254(t4,((C_word*)t0)[5],t2);} -else{ -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -/* library.scm:4852: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_27254(t4,((C_word*)t0)[5],t2);}} - -/* k27440 in k27256 in loop in a27228 in k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_27442(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_27442,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3]; -f_27261(t3,t2);} - -/* k27447 in r-list in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27449(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_27449,c,av);} -a=C_alloc(29); -t2=C_eqp(t1,((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=C_SCHEME_FALSE; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_SCHEME_FALSE; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=((C_word*)((C_word*)t0)[3])[1]; -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27199,a[2]=t6,a[3]=((C_word)li781),tmp=(C_word)a,a+=4,tmp); -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27216,a[2]=((C_word*)t0)[3],a[3]=t7,a[4]=t4,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=t6,tmp=(C_word)a,a+=8,tmp); -t10=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_27229,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[7],a[5]=t8,a[6]=((C_word*)t0)[8],a[7]=((C_word*)t0)[9],a[8]=t4,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=t6,a[12]=((C_word)li785),tmp=(C_word)a,a+=13,tmp); -/* library.scm:4790: ##sys#call-with-current-continuation */{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=t9; -av2[2]=t10; -C_call_cc(3,av2);}} -else{ -/* library.scm:4857: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[7]; -av2[3]=lf[951]; -av2[4]=((C_word*)t0)[2]; -tp(5,av2);}}} - -/* r-vector in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27451(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_27451,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27455,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4860: r-list */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_27190(t3,t2,C_make_character(40),C_make_character(41));} - -/* k27453 in r-vector in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27455(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27455,c,av);} -if(C_truep(C_i_listp(t1))){ -/* library.scm:4862: ##sys#list->vector */ -t2=*((C_word*)lf[952]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -/* library.scm:4863: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[953]; -av2[4]=t1; -tp(5,av2);}}} - -/* r-number in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27469(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_27469,4,t0,t1,t2,t3);} -a=C_alloc(7); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27475,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=((C_word)li788),tmp=(C_word)a,a+=7,tmp); -/* library.scm:4866: r-xtoken */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_27789(t5,t1,t4);} - -/* a27474 in r-number in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27475(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_27475,c,av);} -a=C_alloc(8); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27482,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45457,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5045: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t5; -av2[2]=t2; -tp(3,av2);}} -else{ -if(C_truep(C_i_string_equal_p(t2,lf[955]))){ -/* library.scm:4872: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2=av; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[956]; -tp(4,av2);}} -else{ -t4=C_i_string_length(t2); -t5=C_fixnum_greaterp(t4,C_fix(0)); -t6=(C_truep(t5)?C_u_i_char_equalp(C_i_string_ref(t2,C_fix(0)),C_make_character(35)):C_SCHEME_FALSE); -if(C_truep(t6)){ -/* library.scm:4874: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[957]; -av2[4]=t2; -tp(5,av2);}} -else{ -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27509,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -if(C_truep(((C_word*)t0)[4])){ -/* library.scm:4875: ##sys#string->number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[725]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[725]+1); -av2[1]=t7; -av2[2]=t2; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -tp(5,av2);}} -else{ -/* library.scm:4875: ##sys#string->number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[725]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[725]+1); -av2[1]=t7; -av2[2]=t2; -av2[3]=C_fix(10); -av2[4]=((C_word*)t0)[5]; -tp(5,av2);}}}}}} - -/* k27480 in a27474 in r-number in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_27482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27482,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27489,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4870: ##sys#port-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[887]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[887]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k27487 in k27480 in a27474 in r-number in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27489,c,av);} -/* library.scm:4870: info */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26211(t2,((C_word*)t0)[3],lf[954],((C_word*)t0)[4],t1);} - -/* k27507 in a27474 in r-number in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_27509(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27509,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[3])){ -/* library.scm:4876: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[958]; -av2[4]=((C_word*)t0)[5]; -tp(5,av2);}} -else{ -/* library.scm:5042: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[739]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}}}} - -/* r-number-with-exactness in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27538(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_27538,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27587,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:4880: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k27546 in k27585 in r-number-with-exactness in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_27548(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27548,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27551,a[2]=((C_word*)t0)[2],a[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:4882: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k27549 in k27546 in k27585 in r-number-with-exactness in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27551,c,av);} -if(C_truep(C_eofp(t1))){ -/* library.scm:4884: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[959]; -tp(4,av2);}} -else{ -if(C_truep(C_i_char_equalp(t1,C_make_character(105)))){ -/* library.scm:4885: r-number */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_27469(t2,((C_word*)t0)[2],((C_word*)t0)[5],lf[716]);} -else{ -if(C_truep(C_u_i_char_equalp(t1,C_make_character(101)))){ -/* library.scm:4886: r-number */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_27469(t2,((C_word*)t0)[2],((C_word*)t0)[5],lf[715]);} -else{ -/* library.scm:4888: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[960]; -av2[4]=t1; -tp(5,av2);}}}}} - -/* k27585 in r-number-with-exactness in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27587(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_27587,c,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_27548,a[2]=((C_word*)t0)[2],a[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:4881: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -/* library.scm:4891: r-number */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_27469(t3,((C_word*)t0)[2],((C_word*)t0)[5],C_SCHEME_FALSE);}} - -/* r-number-with-radix in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27589(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_27589,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27654,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:4894: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k27597 in k27652 in r-number-with-radix in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_27599(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27599,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27602,a[2]=((C_word*)t0)[2],a[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:4896: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k27600 in k27597 in k27652 in r-number-with-radix in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27602(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27602,c,av);} -if(C_truep(C_eofp(t1))){ -/* library.scm:4897: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[961]; -tp(4,av2);}} -else{ -if(C_truep(C_i_char_equalp(t1,C_make_character(120)))){ -/* library.scm:4898: r-number */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_27469(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:4899: r-number */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_27469(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:4900: r-number */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_27469(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:4901: r-number */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_27469(t2,((C_word*)t0)[2],C_fix(2),((C_word*)t0)[5]);} -else{ -/* library.scm:4902: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[962]; -av2[4]=t1; -tp(5,av2);}}}}}}} - -/* k27652 in r-number-with-radix in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27654(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_27654,c,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_27599,a[2]=((C_word*)t0)[2],a[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:4895: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -/* library.scm:4903: r-number */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_27469(t3,((C_word*)t0)[2],C_fix(10),((C_word*)t0)[5]);}} - -/* r-token in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27656(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_27656,2,t0,t1);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27664,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:4906: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k27662 in r-token in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27664(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27664,c,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_27666,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)li792),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_27666(t5,((C_word*)t0)[6],t1,C_SCHEME_END_OF_LIST);} - -/* loop in k27662 in r-token in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_27666(C_word t0,C_word 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_27666,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=C_eofp(t2); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27676,a[2]=t1,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],tmp=(C_word)a,a+=9,tmp); -if(C_truep(t4)){ -t6=t5; -f_27676(t6,t4);} -else{ -t6=C_u_i_char_whitespacep(t2); -t7=t5; -f_27676(t7,(C_truep(t6)?t6:C_i_memq(t2,((C_word*)t0)[6])));}} - -/* k27674 in loop in k27662 in r-token in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_27676(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_27676,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -/* library.scm:4910: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -if(C_truep(C_i_char_equalp(((C_word*)t0)[4],C_make_character(0)))){ -/* library.scm:4912: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word av2[4]; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[963]; -tp(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_27691,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -/* library.scm:4914: read-unreserved-char-0 */ -t3=((C_word*)((C_word*)t0)[8])[1]; -f_26266(t3,t2,((C_word*)t0)[5]);}}} - -/* k27689 in k27674 in loop in k27662 in r-token in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_27691(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_27691,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27698,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:4915: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -tp(3,av2);}} - -/* k27696 in k27689 in k27674 in loop in k27662 in r-token in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_27698(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_27698,c,av);} -a=C_alloc(3); -if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ -t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)t0)[4]); -/* library.scm:4915: loop */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_27666(t3,((C_word*)t0)[6],t1,t2);} -else{ -t2=C_utf_char_foldcase(((C_word*)t0)[3]); -t3=C_a_i_cons(&a,2,t2,((C_word*)t0)[4]); -/* library.scm:4915: loop */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_27666(t4,((C_word*)t0)[6],t1,t3);}} - -/* r-digits in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27718(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_27718,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27726,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4919: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k27724 in r-digits in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27726(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27726,c,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_27728,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li794),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_27728(t5,((C_word*)t0)[3],t1,C_SCHEME_END_OF_LIST);} - -/* loop in k27724 in r-digits in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_27728(C_word t0,C_word 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_27728,4,t0,t1,t2,t3);} -a=C_alloc(7); -t4=C_eofp(t2); -t5=(C_truep(t4)?t4:C_i_not(C_u_i_char_numericp(t2))); -if(C_truep(t5)){ -/* library.scm:4921: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t1; -av2[2]=t3; -tp(3,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27744,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); -/* library.scm:4923: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}}} - -/* k27742 in loop in k27724 in r-digits in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27744(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27744,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27751,a[2]=((C_word*)t0)[2],a[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:4924: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} - -/* k27749 in k27742 in loop in k27724 in r-digits in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_27751(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27751,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -/* library.scm:4924: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_27728(t3,((C_word*)t0)[5],t1,t2);} - -/* r-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27764(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_27764,2,t0,t1);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27770,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li796),tmp=(C_word)a,a+=5,tmp); -/* library.scm:4927: r-xtoken */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_27789(t3,t1,t2);} - -/* a27769 in r-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_27770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,2)))){ -C_save_and_reclaim((void *)f_27770,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27774,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -if(C_truep(t3)){ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45466,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5045: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t5; -av2[2]=t2; -tp(3,av2);}} -else{ -/* library.scm:5042: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[739]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}}} - -/* k27772 in a27769 in r-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_27774(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27774,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27781,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4930: ##sys#port-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[887]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[887]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k27779 in k27772 in a27769 in r-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27781(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27781,c,av);} -/* library.scm:4930: info */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26211(t2,((C_word*)t0)[3],lf[954],((C_word*)t0)[4],t1);} - -/* r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_27789(C_word t0,C_word t1,C_word 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,2)))){ -C_save_and_reclaim_args((void *)trf_27789,3,t0,t1,t2);} -a=C_alloc(18); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_27794,a[2]=t4,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],a[11]=t1,tmp=(C_word)a,a+=12,tmp); -t6=C_eqp(((C_word*)((C_word*)t0)[2])[1],lf[967]); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28038,a[2]=t5,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4935: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} -else{ -t7=t5; -f_27794(t7,C_SCHEME_FALSE);}} - -/* k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_27794(C_word 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_27794,2,t0,t1);} -a=C_alloc(15); -t2=C_set_block_item(((C_word*)t0)[2],0,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|12,a[1]=(C_word)f_27799,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t4,a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],a[11]=((C_word*)t0)[10],a[12]=((C_word)li798),tmp=(C_word)a,a+=13,tmp)); -t6=((C_word*)t4)[1]; -f_27799(t6,((C_word*)t0)[11],C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE);} - -/* loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_27799(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(16,0,2)))){ -C_save_and_reclaim_args((void *)trf_27799,5,t0,t1,t2,t3,t4);} -a=C_alloc(16); -t5=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_27803,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[3],a[6]=t4,a[7]=t3,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],a[15]=((C_word*)t0)[11],tmp=(C_word)a,a+=16,tmp); -/* library.scm:4938: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[9]; -tp(3,av2);}} - -/* k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_27803(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27803,c,av);} -a=C_alloc(16); -t2=C_eofp(t1); -t3=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_27812,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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=t3; -f_27812(t4,t2);} -else{ -t4=C_u_i_char_whitespacep(t1); -t5=t3; -f_27812(t5,(C_truep(t4)?t4:C_i_memq(t1,((C_word*)t0)[15])));}} - -/* k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_27812(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_27812,2,t0,t1);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27818,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -if(C_truep(((C_word*)t0)[7])){ -t3=C_eqp(((C_word*)((C_word*)t0)[8])[1],lf[948]); -if(C_truep(t3)){ -if(C_truep(((C_word*)t0)[6])){ -t4=t2; -f_27818(t4,((C_word*)t0)[6]);} -else{ -t4=C_i_cdr(((C_word*)t0)[4]); -t5=t2; -f_27818(t5,C_i_not(C_i_nullp(t4)));}} -else{ -t4=t2; -f_27818(t4,C_SCHEME_FALSE);}} -else{ -t3=t2; -f_27818(t3,C_SCHEME_FALSE);}} -else{ -if(C_truep(C_i_memq(((C_word*)t0)[9],((C_word*)((C_word*)t0)[10])[1]))){ -/* library.scm:4955: reserved-character */ -t2=((C_word*)((C_word*)t0)[11])[1]; -f_26257(t2,((C_word*)t0)[3],((C_word*)t0)[9]);} -else{ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_27909,a[2]=((C_word*)t0)[12],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[13],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[14],a[8]=((C_word*)t0)[15],tmp=(C_word)a,a+=9,tmp); -/* library.scm:4957: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[14]; -tp(3,av2);}}}} - -/* k27816 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_27818(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_27818,2,t0,t1);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27825,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4947: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t2; -av2[2]=C_i_cdr(((C_word*)t0)[4]); -tp(3,av2);}} -else{ -t2=(C_truep(((C_word*)((C_word*)t0)[5])[1])?(C_truep(((C_word*)t0)[6])?((C_word*)t0)[6]:C_i_not(C_i_nullp(((C_word*)t0)[4]))):C_SCHEME_FALSE); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4949: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27848,a[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])){ -t4=C_i_not(((C_word*)t0)[6]); -t5=t3; -f_27848(t5,(C_truep(t4)?C_i_nullp(((C_word*)t0)[4]):C_SCHEME_FALSE));} -else{ -t4=t3; -f_27848(t4,C_SCHEME_FALSE);}}}} - -/* k27823 in k27816 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_27825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27825,c,av);} -/* library.scm:4947: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* k27840 in k27816 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_27842(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27842,c,av);} -/* library.scm:4949: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* k27846 in k27816 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void f_27848(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_27848,2,t0,t1);} -a=C_alloc(4); -if(C_truep(t1)){ -/* library.scm:4951: k */ -t2=((C_word*)t0)[2];{ -C_word av2[4]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[964]; -av2[3]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27858,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4953: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}}} - -/* k27856 in k27846 in k27816 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27858(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27858,c,av);} -/* library.scm:4953: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_27909(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_27909,c,av);} -a=C_alloc(10); -switch(t1){ -case C_make_character(124): -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_27918,a[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:4960: r-string */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_26691(t3,t2,C_make_character(124)); -case C_make_character(10): -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_27942,a[2]=((C_word*)t0)[4],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); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27953,a[2]=t2,a[3]=((C_word*)t0)[7],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4966: ##sys#reverse-list->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[480]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[480]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);} -case C_make_character(58): -t2=C_a_i_cons(&a,2,C_make_character(58),((C_word*)t0)[4]); -/* library.scm:4969: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_27799(t3,((C_word*)t0)[3],t2,C_SCHEME_TRUE,((C_word*)t0)[6]); -case C_make_character(92): -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_27975,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[7],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); -/* library.scm:4971: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -tp(3,av2);} -default: -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28002,a[2]=((C_word*)t0)[4],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_word*)((C_word*)t0)[8])[1])){ -t3=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); -/* library.scm:4978: loop */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_27799(t4,((C_word*)t0)[3],t3,C_SCHEME_FALSE,((C_word*)t0)[6]);} -else{ -/* library.scm:4979: chicken.base#char-foldcase */ -t3=*((C_word*)lf[296]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} - -/* k27916 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_27918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_27918,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_27925,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_27929,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_27933,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:4961: ##sys#string->list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[476]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[476]+1); -av2[1]=t4; -av2[2]=t1; -tp(3,av2);}} - -/* k27923 in k27916 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27925(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27925,c,av);} -/* library.scm:4961: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27799(t2,((C_word*)t0)[3],t1,C_SCHEME_FALSE,C_SCHEME_TRUE);} - -/* k27927 in k27916 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27929(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_27929,c,av);} -/* library.scm:4961: scheme#append */ -t2=*((C_word*)lf[443]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k27931 in k27916 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_27933(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_27933,c,av);} -/* library.scm:4961: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[445]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[445]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k27940 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_27942(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27942,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_make_character(10),((C_word*)t0)[2]); -/* library.scm:4967: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_27799(t3,((C_word*)t0)[4],t2,C_SCHEME_FALSE,((C_word*)t0)[5]);} - -/* k27951 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_27953,c,av);} -/* library.scm:4964: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[965]; -av2[4]=t1; -tp(5,av2);}} - -/* k27973 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_27975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_27975,c,av);} -a=C_alloc(3); -if(C_truep(C_eofp(t1))){ -/* library.scm:4973: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[966]; -tp(4,av2);}} -else{ -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[4]); -/* library.scm:4976: loop */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_27799(t3,((C_word*)t0)[2],t2,C_SCHEME_FALSE,((C_word*)t0)[6]);}} - -/* k28000 in k27907 in k27810 in k27801 in loop in k27792 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_28002(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28002,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* library.scm:4978: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_27799(t3,((C_word*)t0)[4],t2,C_SCHEME_FALSE,((C_word*)t0)[5]);} - -/* k28032 in k28036 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_28034(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28034,c,av);} -t2=((C_word*)t0)[2]; -f_27794(t2,C_SCHEME_TRUE);} - -/* k28036 in r-xtoken in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_28038(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_28038,c,av);} -a=C_alloc(3); -t2=C_eqp(C_make_character(58),t1); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28034,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4936: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t3=((C_word*)t0)[2]; -f_27794(t3,C_SCHEME_FALSE);}} - -/* r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_28040(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_28040,2,t0,t1);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28044,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:4984: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_28044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28044,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28047,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); -/* library.scm:4985: r-token */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_27656(t3,t2);} - -/* k28045 in k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_28047(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_28047,c,av);} -a=C_alloc(11); -t2=C_i_string_length(t1); -if(C_truep(C_fixnum_greaterp(t2,C_fix(1)))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28059,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=C_i_char_equalp(C_make_character(120),((C_word*)t0)[4]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28232,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -t6=t5; -f_28232(t6,t4);} -else{ -t6=C_u_i_char_equalp(C_make_character(117),((C_word*)t0)[4]); -t7=t5; -f_28232(t7,(C_truep(t6)?t6:C_u_i_char_equalp(C_make_character(85),((C_word*)t0)[4])));}} -else{ -if(C_truep(C_i_memq(((C_word*)t0)[4],((C_word*)t0)[5]))){ -/* library.scm:5015: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k28057 in k28045 in k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28059(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word t36; -C_word t37; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_28059,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_make_character(C_unfix(t1)); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_i_string_ref(((C_word*)t0)[3],C_fix(0)); -t3=C_fix(C_character_code(t2)); -t4=C_fixnum_less_or_equal_p(C_fix(192),t3); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28079,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -if(C_truep(t4)){ -if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(247)))){ -t6=C_fixnum_shift_right(t3,C_fix(4)); -t7=C_fixnum_and(t6,C_fix(3)); -t8=C_fixnum_shift_right(t7,C_fix(1)); -t9=C_fixnum_or(t7,t8); -t10=C_fixnum_difference(t7,C_fix(1)); -t11=C_fixnum_and(t9,t10); -t12=C_fixnum_plus(C_fix(2),t11); -t13=C_eqp(((C_word*)t0)[5],t12); -if(C_truep(t13)){ -t14=C_fixnum_difference(C_fix(8),t12); -t15=C_fixnum_shift_left(C_fix(1),t14); -t16=C_fixnum_difference(t15,C_fix(1)); -t17=C_fixnum_and(t3,t16); -t18=C_fixnum_shift_left(t17,C_fix(6)); -t19=C_i_string_ref(((C_word*)t0)[3],C_fix(1)); -t20=C_fix(C_character_code(t19)); -t21=C_fixnum_and(t20,C_fix(63)); -t22=C_fixnum_plus(t18,t21); -t23=t22; -if(C_truep(t23)){ -if(C_truep(C_fixnum_greater_or_equal_p(t12,C_fix(3)))){ -t24=C_fixnum_shift_left(t23,C_fix(6)); -t25=C_i_string_ref(((C_word*)t0)[3],C_fix(2)); -t26=C_fix(C_character_code(t25)); -t27=C_fixnum_and(t26,C_fix(63)); -t28=C_fixnum_plus(t24,t27); -t29=t23=t28; -t30=C_eqp(t12,C_fix(4)); -if(C_truep(t30)){ -t31=C_fixnum_shift_left(t23,C_fix(6)); -t32=C_i_string_ref(((C_word*)t0)[3],C_fix(3)); -t33=C_fix(C_character_code(t32)); -t34=C_fixnum_and(t33,C_fix(63)); -t35=C_fixnum_plus(t31,t34); -t36=t23=t35; -t37=t5; -f_28079(t37,C_make_character(C_unfix(t23)));} -else{ -t31=t5; -f_28079(t31,C_make_character(C_unfix(t23)));}} -else{ -t24=t5; -f_28079(t24,C_make_character(C_unfix(t23)));}} -else{ -t24=t5; -f_28079(t24,C_SCHEME_FALSE);}} -else{ -t14=t5; -f_28079(t14,C_SCHEME_FALSE);}} -else{ -t6=t5; -f_28079(t6,C_SCHEME_FALSE);}} -else{ -t6=t5; -f_28079(t6,C_SCHEME_FALSE);}}} - -/* k28077 in k28057 in k28045 in k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_28079(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_28079,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]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28085,a[2]=((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_28095,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5013: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[739]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}}} - -/* k28083 in k28077 in k28057 in k28045 in k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28085(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_28085,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:5014: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[968]; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}}} - -/* k28093 in k28077 in k28057 in k28045 in k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28095(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28095,c,av);} -/* library.scm:5013: chicken.base#char-name */ -t2=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k28230 in k28045 in k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_28232(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_28232,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28239,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:4989: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[486]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(1); -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -f_28059(2,av2);}}} - -/* k28237 in k28230 in k28045 in k28042 in r-char in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_28239(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_28239,c,av);} -/* library.scm:4989: ##sys#string->number */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[725]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[725]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* r-comment in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_28257(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_28257,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_28263,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li801),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_28263(t5,t1,C_fix(0));} - -/* loop in r-comment in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_28263(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_28263,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28267,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* library.scm:5020: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k28265 in loop in r-comment in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_28267(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_28267,c,av);} -a=C_alloc(5); -switch(t1){ -case C_make_character(124): -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28303,a[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:5022: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);} -case C_make_character(35): -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28326,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:5026: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);} -default: -if(C_truep(C_eofp(t1))){ -/* library.scm:5030: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[969]; -tp(4,av2);}} -else{ -/* library.scm:5031: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_28263(t2,((C_word*)t0)[4],((C_word*)t0)[2]);}}} - -/* k28301 in k28265 in loop in r-comment in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28303(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_28303,c,av);} -t2=C_eqp(C_make_character(35),t1); -if(C_truep(t2)){ -t3=C_eqp(((C_word*)t0)[2],C_fix(0)); -if(C_truep(C_i_not(t3))){ -/* library.scm:5024: loop */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_28263(t4,((C_word*)t0)[4],C_fixnum_difference(((C_word*)t0)[2],C_fix(1)));} -else{ -t4=C_SCHEME_UNDEFINED; -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -/* library.scm:5025: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_28263(t3,((C_word*)t0)[4],((C_word*)t0)[2]);}} - -/* k28324 in k28265 in loop in r-comment in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28326,c,av);} -t2=C_eqp(C_make_character(124),t1); -if(C_truep(t2)){ -/* library.scm:5026: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_28263(t3,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} -else{ -/* library.scm:5026: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_28263(t3,((C_word*)t0)[3],((C_word*)t0)[4]);}} - -/* r-ext-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_28344(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_28344,2,t0,t1);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28348,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5034: r-token */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_27656(t3,t2);} - -/* k28346 in r-ext-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_28348(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28348,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28355,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5035: string-append */ -t3=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[970]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k28353 in k28346 in r-ext-symbol in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_28355(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28355,c,av);} -/* library.scm:5042: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[739]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* r-quote in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_28357(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_28357,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28361,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* library.scm:5038: ##sys#port-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[887]); -C_word av2[3]; -av2[0]=*((C_word*)lf[887]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k28359 in r-quote in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_28361(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_28361,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28372,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); -/* library.scm:5039: readrec */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_26440(t3,t2);} - -/* k28370 in k28359 in r-quote in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_28372,c,av);} -a=C_alloc(6); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); -/* library.scm:5039: info */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_26211(t3,((C_word*)t0)[4],lf[942],t2,((C_word*)t0)[5]);} - -/* k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_28392(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_28392,c,av);} -a=C_alloc(29); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_28395,a[2]=((C_word*)t0)[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],tmp=(C_word)a,a+=29,tmp); -/* library.scm:5051: r-spaces */ -t4=((C_word*)((C_word*)t0)[29])[1]; -f_26443(t4,t3);} - -/* k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_28395(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,2)))){ -C_save_and_reclaim((void *)f_28395,c,av);} -a=C_alloc(29); -t2=(*a=C_CLOSURE_TYPE|28,a[1]=(C_word)f_28398,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],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],tmp=(C_word)a,a+=29,tmp); -/* library.scm:5052: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_28398(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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_28398,c,av);} -a=C_alloc(23); -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_eofp(t1); -t4=C_i_not(t3); -t5=(C_truep(t4)?(C_truep(t2)?C_slot(t2,C_fix(C_character_code(t1))):C_SCHEME_FALSE):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28412,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word)li805),tmp=(C_word)a,a+=6,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28418,a[2]=((C_word*)t0)[4],a[3]=((C_word)li806),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5058: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=t6; -av2[3]=t7; -C_call_with_values(4,av2);}} -else{ -switch(t1){ -case C_make_character(39): -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28440,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5064: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(96): -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28452,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5067: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(44): -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28464,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5070: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(35): -t6=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_28492,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],a[16]=((C_word*)t0)[6],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); -/* library.scm:5076: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(40): -/* library.scm:5199: r-list */ -t6=((C_word*)((C_word*)t0)[22])[1]; -f_27190(t6,((C_word*)t0)[5],C_make_character(40),C_make_character(41)); -case C_make_character(41): -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29115,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5200: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(34): -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29127,a[2]=((C_word*)t0)[24],a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5201: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(46): -/* library.scm:5202: r-number */ -t6=((C_word*)((C_word*)t0)[25])[1]; -f_27469(t6,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE); -default: -t6=C_eqp(t1,C_make_character(45)); -t7=(C_truep(t6)?t6:C_eqp(t1,C_make_character(43))); -if(C_truep(t7)){ -/* library.scm:5203: r-number */ -t8=((C_word*)((C_word*)t0)[25])[1]; -f_27469(t8,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);} -else{ -if(C_truep(C_eofp(t1))){ -t8=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -if(C_truep(C_u_i_char_numericp(t1))){ -/* library.scm:5206: r-number */ -t8=((C_word*)((C_word*)t0)[25])[1]; -f_27469(t8,((C_word*)t0)[5],C_SCHEME_FALSE,C_SCHEME_FALSE);} -else{ -if(C_truep(C_i_memq(t1,((C_word*)((C_word*)t0)[26])[1]))){ -/* library.scm:5208: reserved-character */ -t8=((C_word*)((C_word*)t0)[27])[1]; -f_26257(t8,((C_word*)t0)[5],t1);} -else{ -switch(t1){ -case C_make_character(91): -/* library.scm:5211: r-list */ -t8=((C_word*)((C_word*)t0)[22])[1]; -f_27190(t8,((C_word*)t0)[5],C_make_character(91),C_make_character(93)); -case C_make_character(123): -/* library.scm:5212: r-list */ -t8=((C_word*)((C_word*)t0)[22])[1]; -f_27190(t8,((C_word*)t0)[5],C_make_character(123),C_make_character(125)); -default: -t8=C_eqp(t1,C_make_character(93)); -t9=(C_truep(t8)?t8:C_eqp(t1,C_make_character(125))); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29205,a[2]=((C_word*)t0)[23],a[3]=((C_word*)t0)[5],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5213: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t10; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -/* library.scm:5214: r-symbol */ -t10=((C_word*)((C_word*)t0)[28])[1]; -f_27764(t10,((C_word*)t0)[5]);}}}}}}}}} - -/* a28411 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28412(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_28412,c,av);} -/* library.scm:5059: h */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* a28417 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28418(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28418,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -/* library.scm:5060: readrec */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t2,t1);} -else{ -t2=t1;{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_get_rest_arg(c,2,av,2,t0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k28438 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28440(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28440,c,av);} -/* library.scm:5065: r-quote */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28357(t2,((C_word*)t0)[3],lf[971]);} - -/* k28450 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28452(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28452,c,av);} -/* library.scm:5068: r-quote */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28357(t2,((C_word*)t0)[3],lf[972]);} - -/* k28462 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28464(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_28464,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28483,a[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:5071: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k28471 in k28481 in k28462 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28473(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28473,c,av);} -/* library.scm:5073: r-quote */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28357(t2,((C_word*)t0)[3],lf[973]);} - -/* k28481 in k28462 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_28483(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_28483,c,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_28473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5072: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} -else{ -/* library.scm:5074: r-quote */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_28357(t3,((C_word*)t0)[3],lf[974]);}} - -/* k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_28492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(23,c,2)))){ -C_save_and_reclaim((void *)f_28492,c,av);} -a=C_alloc(23); -t2=(*a=C_CLOSURE_TYPE|22,a[1]=(C_word)f_28495,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=((C_word*)t0)[12],a[13]=((C_word*)t0)[13],a[14]=((C_word*)t0)[14],a[15]=((C_word*)t0)[15],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); -/* library.scm:5077: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_28495(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word 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(12,c,3)))){ -C_save_and_reclaim((void *)f_28495,c,av);} -a=C_alloc(12); -if(C_truep(C_eofp(t1))){ -/* library.scm:5080: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[975]; -tp(4,av2);}} -else{ -if(C_truep(C_u_i_char_numericp(t1))){ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_28513,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],tmp=(C_word)a,a+=9,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_28645,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5083: r-digits */ -t4=((C_word*)((C_word*)t0)[9])[1]; -f_27718(t4,t3);} -else{ -t2=C_slot(((C_word*)t0)[4],C_fix(2)); -t3=(C_truep(t2)?C_slot(t2,C_fix(C_character_code(t1))):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28659,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word)li811),tmp=(C_word)a,a+=6,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28665,a[2]=((C_word*)t0)[7],a[3]=((C_word)li812),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5122: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} -else{ -t4=C_u_i_char_downcase(t1); -switch(t4){ -case C_make_character(120): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28690,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5127: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(100): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28702,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5128: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(111): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28714,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5129: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(98): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28726,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5130: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(105): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28738,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5131: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(101): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28750,a[2]=((C_word*)t0)[11],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5132: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(40): -/* library.scm:5133: r-vector */ -t5=((C_word*)((C_word*)t0)[12])[1]; -f_27451(t5,((C_word*)t0)[2]); -case C_make_character(92): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28771,a[2]=((C_word*)t0)[13],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5134: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(124): -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28783,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[14],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5136: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(35): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28798,a[2]=((C_word*)t0)[15],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5139: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(59): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28810,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5142: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(96): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28825,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5145: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(36): -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28837,a[2]=((C_word*)t0)[16],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5148: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(58): -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28849,a[2]=((C_word*)t0)[17],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[18],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* library.scm:5152: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(43): -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28909,a[2]=((C_word*)t0)[19],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[7],a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* library.scm:5162: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -case C_make_character(33): -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28939,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[20],a[5]=((C_word*)t0)[21],a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[22],tmp=(C_word)a,a+=8,tmp); -/* library.scm:5169: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);} -default: -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29039,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word)li817),tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29045,a[2]=((C_word*)t0)[7],a[3]=((C_word)li818),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5197: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t5; -av2[3]=t6; -C_call_with_values(4,av2);}}}}}} - -/* k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28513(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_28513,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_28516,a[2]=((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); -/* library.scm:5084: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -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 t4; -C_word t5; -C_word 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,5)))){ -C_save_and_reclaim((void *)f_28516,c,av);} -a=C_alloc(7); -t2=C_slot(((C_word*)t0)[2],C_fix(3)); -if(C_truep(C_eofp(t1))){ -/* library.scm:5087: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[976]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -tp(6,av2);}} -else{ -t3=C_eqp(C_make_character(61),t1); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28537,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],tmp=(C_word)a,a+=6,tmp); -/* library.scm:5092: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} -else{ -t4=C_eqp(C_make_character(35),t1); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28556,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[9],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* library.scm:5099: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} -else{ -t5=C_charp(t1); -t6=(C_truep(t5)?(C_truep(t2)?C_slot(t2,C_fix(C_character_code(t1))):C_SCHEME_FALSE):C_SCHEME_FALSE); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28575,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[8],a[6]=((C_word)li810),tmp=(C_word)a,a+=7,tmp); -/* library.scm:5086: g5986 */ -t8=t7; -f_28575(t8,((C_word*)t0)[3],t6);} -else{ -t7=C_eqp(t1,C_make_character(41)); -t8=(C_truep(t7)?t7:C_u_i_char_whitespacep(t1)); -if(C_truep(t8)){ -/* library.scm:5112: ##sys#sharp-number-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[913]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[913]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[6]; -tp(4,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28622,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:5113: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t9; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}}}}}}} - -/* k28535 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_28537(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_28537,c,av);} -a=C_alloc(16); -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_28546,a[2]=t3,a[3]=((C_word)li807),tmp=(C_word)a,a+=4,tmp); -t5=( -/* library.scm:5094: register-shared! */ - f_26281(C_a_i(&a,6),((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],t4) -); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28543,a[2]=t3,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5095: readrec */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_26440(t7,t6);} - -/* k28541 in k28535 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28543(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28543,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)((C_word*)t0)[2])[1]; -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a28545 in k28535 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28546(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_28546,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k28554 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_28556(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28556,c,av);} -t2=C_i_assq(((C_word*)t0)[2],((C_word*)((C_word*)t0)[3])[1]); -if(C_truep(t2)){ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_cdr(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:5101: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=lf[977]; -av2[4]=((C_word*)t0)[2]; -tp(5,av2);}}} - -/* g5986 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void f_28575(C_word 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(15,0,3)))){ -C_save_and_reclaim_args((void *)trf_28575,3,t0,t1,t2);} -a=C_alloc(15); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28583,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_28585,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)li808),tmp=(C_word)a,a+=7,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28591,a[2]=((C_word*)t0)[5],a[3]=((C_word)li809),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5107: ##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);}} - -/* k28581 in g5986 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28583(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28583,c,av);} -/* library.scm:5107: h */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a28584 in g5986 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28585(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_28585,c,av);} -/* library.scm:5108: h */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t2))(5,av2);}} - -/* a28590 in g5986 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28591(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28591,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -/* library.scm:5109: readrec */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t2,t1);} -else{ -t2=t1;{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_get_rest_arg(c,2,av,2,t0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k28620 in k28514 in k28511 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_28622(C_word c,C_word *av){ -C_word tmp; -C_word 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_28622,c,av);} -/* library.scm:5114: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[978]; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[5]; -av2[6]=((C_word*)t0)[6]; -tp(7,av2);}} - -/* k28643 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28645(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28645,c,av);} -/* library.scm:5083: scheme#string->number */ -t2=*((C_word*)lf[723]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a28658 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28659(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_28659,c,av);} -/* library.scm:5123: h */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(4,av2);}} - -/* a28664 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28665(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28665,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -/* library.scm:5124: readrec */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t2,t1);} -else{ -t2=t1;{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_get_rest_arg(c,2,av,2,t0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k28688 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28690(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28690,c,av);} -/* library.scm:5127: r-number-with-exactness */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27538(t2,((C_word*)t0)[3],C_fix(16));} - -/* k28700 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28702(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28702,c,av);} -/* library.scm:5128: r-number-with-exactness */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27538(t2,((C_word*)t0)[3],C_fix(10));} - -/* k28712 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28714(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28714,c,av);} -/* library.scm:5129: r-number-with-exactness */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27538(t2,((C_word*)t0)[3],C_fix(8));} - -/* k28724 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28726(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28726,c,av);} -/* library.scm:5130: r-number-with-exactness */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27538(t2,((C_word*)t0)[3],C_fix(2));} - -/* k28736 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28738(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28738,c,av);} -/* library.scm:5131: r-number-with-radix */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27589(t2,((C_word*)t0)[3],lf[716]);} - -/* k28748 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28750(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28750,c,av);} -/* library.scm:5132: r-number-with-radix */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_27589(t2,((C_word*)t0)[3],lf[715]);} - -/* k28769 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28771(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28771,c,av);} -/* library.scm:5134: r-char */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28040(t2,((C_word*)t0)[3]);} - -/* k28781 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28783(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28783,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28786,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5137: r-comment */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_28257(t3,t2);} - -/* k28784 in k28781 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_28786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28786,c,av);} -/* library.scm:5137: readrec */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t2,((C_word*)t0)[3]);} - -/* k28796 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28798(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28798,c,av);} -/* library.scm:5140: r-ext-symbol */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28344(t2,((C_word*)t0)[3]);} - -/* k28808 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28810(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_28810,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28813,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5143: readrec */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t3,t2);} - -/* k28811 in k28808 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_28813(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28813,c,av);} -/* library.scm:5143: readrec */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t2,((C_word*)t0)[3]);} - -/* k28823 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28825,c,av);} -/* library.scm:5146: r-quote */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28357(t2,((C_word*)t0)[3],lf[979]);} - -/* k28835 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28837(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_28837,c,av);} -/* library.scm:5150: r-quote */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_28357(t2,((C_word*)t0)[3],lf[980]);} - -/* k28847 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28849(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28849,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28852,a[2]=((C_word*)t0)[2],a[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:5153: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k28850 in k28847 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_28852(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_28852,c,av);} -a=C_alloc(22); -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|5,a[1]=(C_word)f_28857,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=((C_word)li813),tmp=(C_word)a,a+=6,tmp); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28862,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li815),tmp=(C_word)a,a+=6,tmp); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28897,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t5,a[5]=((C_word)li816),tmp=(C_word)a,a+=6,tmp); -/* library.scm:5154: ##sys#dynamic-wind */ -t9=*((C_word*)lf[824]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=((C_word*)t0)[5]; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a28856 in k28850 in k28847 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_28857(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_28857,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a28861 in k28850 in k28847 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_28862(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_28862,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28868,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li814),tmp=(C_word)a,a+=5,tmp); -/* library.scm:5155: r-xtoken */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_27789(t3,t1,t2);} - -/* a28867 in a28861 in k28850 in k28847 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28868(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_28868,c,av);} -a=C_alloc(3); -t4=C_i_string_length(t2); -t5=C_eqp(C_fix(0),t4); -t6=(C_truep(t5)?C_i_not(C_i_char_equalp(((C_word*)t0)[2],C_make_character(124))):C_SCHEME_FALSE); -if(C_truep(t6)){ -/* library.scm:5159: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2=av; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[981]; -tp(4,av2);}} -else{ -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f45475,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5045: ##sys#string->symbol-name */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[736]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[736]+1); -av2[1]=t7; -av2[2]=t2; -tp(3,av2);}}} - -/* a28896 in k28850 in k28847 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_28897(C_word c,C_word *av){ -C_word tmp; -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_28897,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)((C_word*)t0)[3])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)((C_word*)t0)[4])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k28907 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_28909,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_28912,a[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:5163: ##sys#port-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[887]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[887]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k28910 in k28907 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_28912(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28912,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28915,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); -/* library.scm:5164: readrec */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26440(t3,t2);} - -/* k28913 in k28910 in k28907 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_28915(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_28915,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28930,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:5166: readrec */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_26440(t3,t2);} - -/* k28928 in k28913 in k28910 in k28907 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_28930,c,av);} -a=C_alloc(15); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],t1); -t3=C_a_i_list3(&a,3,lf[982],t2,lf[983]); -/* library.scm:5165: info */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_26211(t4,((C_word*)t0)[4],lf[942],t3,((C_word*)t0)[5]);} - -/* k28937 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_28939(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_28939,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28942,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],tmp=(C_word)a,a+=8,tmp); -/* library.scm:5170: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} - -/* k28940 in k28937 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_28942(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_28942,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_28948,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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(t1))){ -t3=C_u_i_char_whitespacep(t1); -t4=t2; -f_28948(t4,(C_truep(t3)?t3:C_u_i_char_equalp(C_make_character(47),t1)));} -else{ -t3=t2; -f_28948(t3,C_SCHEME_FALSE);}} - -/* k28946 in k28940 in k28937 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void f_28948(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_28948,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_28951,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5173: skip-to-eol */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_26220(t3,t2);} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_28957,a[2]=((C_word*)t0)[3],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:5176: r-token */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_27656(t3,t2);}} - -/* k28949 in k28946 in k28940 in k28937 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28951(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_28951,c,av);} -/* library.scm:5174: readrec */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t2,((C_word*)t0)[3]);} - -/* k28955 in k28946 in k28940 in k28937 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_28957(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_28957,c,av);} -a=C_alloc(5); -if(C_truep(C_i_string_equal_p(lf[984],t1))){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_string_equal_p(lf[985],t1))){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_BROKEN_WEAK_PTR; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_string_equal_p(lf[986],t1))){ -t2=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_FALSE); -t3=C_i_set_i_slot(((C_word*)t0)[4],C_fix(13),((C_word*)((C_word*)t0)[3])[1]); -/* library.scm:5182: readrec */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_26440(t4,((C_word*)t0)[2]);} -else{ -if(C_truep(C_i_string_equal_p(lf[987],t1))){ -t2=C_set_block_item(((C_word*)t0)[3],0,C_SCHEME_TRUE); -t3=C_i_set_i_slot(((C_word*)t0)[4],C_fix(13),((C_word*)((C_word*)t0)[3])[1]); -/* library.scm:5186: readrec */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_26440(t4,((C_word*)t0)[2]);} -else{ -if(C_truep((C_truep(C_i_equalp(t1,lf[988]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t1,lf[989]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t1,lf[990]))?C_SCHEME_TRUE:C_SCHEME_FALSE))))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29004,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5188: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=t2; -av2[2]=lf[991]; -av2[3]=t1; -tp(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29023,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5190: scheme#string->symbol */ -t3=*((C_word*)lf[742]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}}} - -/* k29002 in k28955 in k28946 in k28940 in k28937 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_29004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29004,c,av);} -/* library.scm:5042: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[739]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k29021 in k28955 in k28946 in k28940 in k28937 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_29023(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_29023,c,av);} -t2=C_i_assq(t1,C_fast_retrieve(lf[992])); -if(C_truep(t2)){ -/* library.scm:5191: g6056 */ -t3=C_slot(t2,C_fix(1));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} -else{ -/* library.scm:5193: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[993]; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}}} - -/* a29038 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_29039(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_29039,c,av);} -/* library.scm:5197: ##sys#user-read-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[994]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[994]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* a29044 in k28493 in k28490 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_29045(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_29045,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -/* library.scm:5198: readrec */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26440(t2,t1);} -else{ -t2=t1;{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_get_rest_arg(c,2,av,2,t0); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k29113 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_29115(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29115,c,av);} -/* library.scm:5200: container */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k29125 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29127,c,av);} -/* library.scm:5201: r-string */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_26691(t2,((C_word*)t0)[3],C_make_character(34));} - -/* k29203 in k28396 in k28393 in k28390 in readrec in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_29205(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29205,c,av);} -/* library.scm:5213: container */ -t2=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k29277 in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_29279(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_29279,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29282,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_word*)((C_word*)t0)[5])[1])){ -/* library.scm:5217: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)((C_word*)t0)[5])[1]; -tp(4,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_29282(2,av2);}}} - -/* k29280 in k29277 in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_29282(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_29282,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_pairp(((C_word*)((C_word*)t0)[4])[1]))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29293,a[2]=((C_word)li820),tmp=(C_word)a,a+=3,tmp); -/* library.scm:5219: unthunkify! */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_26320(t4,t2,((C_word*)t0)[3],t3);} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k29283 in k29280 in k29277 in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_29285(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_29285,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a29292 in k29280 in k29277 in k26201 in k26198 in k26195 in k26192 in k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_29293(C_word c,C_word *av){ -C_word tmp; -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_29293,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+0); -t2=C_build_rest(&a,c,2,av); -C_word t3;{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_fast_retrieve(lf[914]); -av2[3]=C_fast_retrieve(lf[997]); -av2[4]=t2; -C_apply(5,av2);}} - -/* k29301 in ##sys#read in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_29303(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_29303,c,av);} -a=C_alloc(11); -t2=(C_truep(t1)?C_slot(((C_word*)t0)[2],C_fix(13)):C_SCHEME_FALSE); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_26194,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*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* library.scm:4587: keyword-style */ -t6=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* ##sys#user-read-hook in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29308(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_29308,c,av);} -a=C_alloc(10); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29311,a[2]=t3,a[3]=((C_word)li822),tmp=(C_word)a,a+=4,tmp); -t5=C_eqp(t2,C_make_character(102)); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29324,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t5)){ -t7=t6; -f_29324(t7,t5);} -else{ -t7=C_eqp(t2,C_make_character(116)); -t8=t6; -f_29324(t8,(C_truep(t7)?t7:C_eqp(t2,C_make_character(117))));}} - -/* fail in ##sys#user-read-hook in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void f_29311(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_29311,3,t0,t1,t2);} -/* library.scm:5229: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word av2[5]; -av2[0]=*((C_word*)lf[914]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[998]; -av2[4]=t2; -tp(5,av2);}} - -/* k29322 in ##sys#user-read-hook in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void f_29324(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_29324,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29327,a[2]=((C_word*)t0)[2],a[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:5232: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[894]); -C_word av2[4]; -av2[0]=*((C_word*)lf[894]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fast_retrieve(lf[909]); -tp(4,av2);}} -else{ -/* library.scm:5247: fail */ -t2=((C_word*)t0)[2]; -f_29311(t2,((C_word*)t0)[3],((C_word*)t0)[4]);}} - -/* k29325 in k29322 in ##sys#user-read-hook in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_29327(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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,2)))){ -C_save_and_reclaim((void *)f_29327,c,av);} -a=C_alloc(3); -t2=C_i_symbolp(t1); -if(C_truep(C_i_not(t2))){ -/* library.scm:5234: fail */ -t3=((C_word*)t0)[2]; -f_29311(t3,((C_word*)t0)[3],((C_word*)t0)[4]);} -else{ -t3=C_eqp(t1,lf[999]); -t4=(C_truep(t3)?t3:C_eqp(t1,lf[1000])); -if(C_truep(t4)){ -t5=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_eqp(t1,lf[1001]); -t6=(C_truep(t5)?t5:C_eqp(t1,lf[1002])); -if(C_truep(t6)){ -t7=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_eqp(t1,lf[1003]); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29363,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5241: ##sys#read-numvector-data */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1005]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1005]+1); -av2[1]=t8; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -/* library.scm:5246: fail */ -t8=((C_word*)t0)[2]; -f_29311(t8,((C_word*)t0)[3],t1);}}}}} - -/* k29361 in k29325 in k29322 in ##sys#user-read-hook in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_29363(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_29363,c,av);} -a=C_alloc(3); -t2=C_i_nullp(t1); -t3=(C_truep(t2)?t2:C_i_pairp(t1)); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29379,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5243: ##sys#canonicalize-number-list! */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1004]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1004]+1); -av2[1]=t4; -av2[2]=t1; -tp(3,av2);}} -else{ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_chop_bv(C_slot(t1,C_fix(0))); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k29377 in k29361 in k29325 in k29322 in ##sys#user-read-hook in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_29379(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29379,c,av);} -/* library.scm:5243: ##sys#list->bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[764]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[764]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* ##sys#read-numvector-data in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29429(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_29429,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29433,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5250: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2=av; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k29431 in ##sys#read-numvector-data in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_29433(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_29433,c,av);} -switch(t1){ -case C_make_character(40): -/* library.scm:5252: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[894]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[894]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fast_retrieve(lf[909]); -tp(4,av2);} -case C_make_character(34): -/* library.scm:5253: ##sys#read */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[894]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[894]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fast_retrieve(lf[909]); -tp(4,av2);} -default: -/* library.scm:5254: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1006]; -av2[4]=t1; -tp(5,av2);}}} - -/* ##sys#canonicalize-number-list! in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29460(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_29460,c,av);} -a=C_alloc(9); -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29466,a[2]=t5,a[3]=t3,a[4]=((C_word)li827),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_29466(t7,t1,((C_word*)t3)[1],C_SCHEME_FALSE);} - -/* loop in ##sys#canonicalize-number-list! in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void f_29466(C_word t0,C_word t1,C_word t2,C_word 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_29466,4,t0,t1,t2,t3);} -a=C_alloc(10); -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_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_29482,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[3],a[7]=((C_word)li826),tmp=(C_word)a,a+=8,tmp)); -t9=((C_word*)t7)[1]; -f_29482(t9,t1,t5);} -else{ -if(C_truep(t3)){ -t5=C_i_set_i_slot(t3,C_fix(1),C_SCHEME_END_OF_LIST); -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=((C_word*)((C_word*)t0)[3])[1]; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -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);}}}} - -/* retry in loop in ##sys#canonicalize-number-list! in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void f_29482(C_word t0,C_word 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(8,0,3)))){ -C_save_and_reclaim_args((void *)trf_29482,3,t0,t1,t2);} -a=C_alloc(8); -if(C_truep(C_charp(t2))){ -t3=C_a_i_string(&a,1,t2); -/* library.scm:5266: retry */ -t6=t1; -t7=t3; -t1=t6; -t2=t7; -goto loop;} -else{ -if(C_truep(C_i_stringp(t2))){ -t3=C_eqp(C_u_i_string_length(t2),C_fix(0)); -if(C_truep(t3)){ -/* library.scm:5269: loop */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_29466(t4,t1,C_slot(((C_word*)t0)[4],C_fix(1)),((C_word*)t0)[5]);} -else{ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29522,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* ##sys#string->list */ -t5=*((C_word*)lf[476]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} -else{ -/* library.scm:5280: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_29466(t3,t1,C_slot(((C_word*)t0)[4],C_fix(1)),((C_word*)t0)[4]);}}} - -/* k29520 in retry in loop in ##sys#canonicalize-number-list! in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_29522(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_29522,c,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_29524,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)li825),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_29524(t5,((C_word*)t0)[5],t1,((C_word*)t0)[6]);} - -/* loop2 in k29520 in retry in loop in ##sys#canonicalize-number-list! in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void f_29524(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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,2)))){ -C_save_and_reclaim_args((void *)trf_29524,4,t0,t1,t2,t3);} -a=C_alloc(11); -t4=C_slot(t2,C_fix(0)); -t5=C_fix(C_character_code(t4)); -t6=C_slot(((C_word*)t0)[2],C_fix(1)); -t7=C_a_i_cons(&a,2,t5,t6); -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29531,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[2],a[6]=t7,a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); -if(C_truep(t3)){ -t9=t8; -f_29531(t9,C_i_setslot(t3,C_fix(1),t7));} -else{ -t9=C_mutate(((C_word *)((C_word*)t0)[5])+1,t7); -t10=t8; -f_29531(t10,t9);}} - -/* k29529 in loop2 in k29520 in retry in loop in ##sys#canonicalize-number-list! in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void f_29531(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_29531,2,t0,t1);} -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -if(C_truep(C_i_nullp(t2))){ -/* library.scm:5278: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_29466(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)),((C_word*)t0)[6]);} -else{ -/* library.scm:5279: loop2 */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_29524(t3,((C_word*)t0)[4],C_slot(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[6]);}} - -/* ##sys#write-char-0 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29588(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_29588,c,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_29595,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5296: g6187 */ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t3; -av2[3]=t2; -((C_proc)C_fast_retrieve_proc(t7))(4,av2);}} - -/* k29593 in ##sys#write-char-0 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_29595(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_29595,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=*((C_word*)lf[278]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#write-char/port in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29604(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_29604,c,av);} -t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1009]); -t5=C_i_check_char_2(t2,lf[1009]); -/* library.scm:5303: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -tp(4,av2);}} - -/* scheme#write-char in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29616(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29616,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?*((C_word*)lf[839]+1):C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_char_2(t2,lf[1009]); -t6=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1009]); -/* library.scm:5309: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -tp(4,av2);}} - -/* scheme#newline in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29637(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_29637,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -t2=*((C_word*)lf[839]+1); -t3=*((C_word*)lf[839]+1); -/* library.scm:5313: ##sys#write-char/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1008]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1008]+1); -av2[1]=t1; -av2[2]=C_make_character(10); -av2[3]=*((C_word*)lf[839]+1); -tp(4,av2);}} -else{ -/* library.scm:5313: ##sys#write-char/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1008]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1008]+1); -av2[1]=t1; -av2[2]=C_make_character(10); -av2[3]=C_get_rest_arg(c,2,av,2,t0); -tp(4,av2);}}} - -/* scheme#write in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_29652,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=*((C_word*)lf[839]+1); -t4=C_i_check_port_2(*((C_word*)lf[839]+1),C_fix(2),C_SCHEME_TRUE,lf[1010]); -/* library.scm:5318: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_TRUE; -av2[4]=*((C_word*)lf[839]+1); -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1010]); -/* library.scm:5318: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_TRUE; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* scheme#display in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29670(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_29670,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=*((C_word*)lf[839]+1); -t4=C_i_check_port_2(*((C_word*)lf[839]+1),C_fix(2),C_SCHEME_TRUE,lf[1012]); -/* library.scm:5323: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[839]+1); -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t3=C_get_rest_arg(c,3,av,3,t0); -t4=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1012]); -/* library.scm:5323: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* chicken.base#print in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +9,c,3)))){ -C_save_and_reclaim((void*)f_29688,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[839]+1); -t4=C_i_check_port_2(*((C_word*)lf[839]+1),C_fix(2),C_SCHEME_TRUE,lf[1013]); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29731,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=C_i_check_list_2(t2,lf[820]); -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_29707,a[2]=t8,a[3]=((C_word)li835),tmp=(C_word)a,a+=4,tmp)); -t10=((C_word*)t8)[1]; -f_29707(t10,t5,t2);} - -/* for-each-loop6248 in chicken.base#print in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void f_29707(C_word 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_29707,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29717,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=*((C_word*)lf[1011]+1); -/* library.scm:5326: g6264 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1011]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[1011]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[839]+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);}}} - -/* k29715 in for-each-loop6248 in chicken.base#print in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_29717(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29717,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29707(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29729 in chicken.base#print in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_29731(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_29731,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29734,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5332: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t2; -av2[2]=C_make_character(10); -av2[3]=*((C_word*)lf[839]+1); -tp(4,av2);}} - -/* k29732 in k29729 in chicken.base#print in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_29734(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_29734,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=*((C_word*)lf[278]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.base#print* in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29739(C_word c,C_word *av){ -C_word tmp; -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_29739,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[839]+1); -t4=C_i_check_port_2(*((C_word*)lf[839]+1),C_fix(2),C_SCHEME_TRUE,lf[1013]); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29782,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t6=C_i_check_list_2(t2,lf[820]); -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_29758,a[2]=t8,a[3]=((C_word)li837),tmp=(C_word)a,a+=4,tmp)); -t10=((C_word*)t8)[1]; -f_29758(t10,t5,t2);} - -/* for-each-loop6280 in chicken.base#print* in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void f_29758(C_word 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_29758,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29768,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=*((C_word*)lf[1011]+1); -/* library.scm:5326: g6296 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[1011]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[1011]+1); -av2[1]=t3; -av2[2]=t4; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[839]+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);}}} - -/* k29766 in for-each-loop6280 in chicken.base#print* in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_29768(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29768,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29758(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k29780 in chicken.base#print* in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_29782(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_29782,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29785,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5339: ##sys#flush-output */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[885]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[885]+1); -av2[1]=t2; -av2[2]=*((C_word*)lf[839]+1); -tp(3,av2);}} - -/* k29783 in k29780 in chicken.base#print* in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -static void C_ccall f_29785(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_29785,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=*((C_word*)lf[278]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in ... */ -static void C_ccall f_29792(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_29792,c,av);} -a=C_alloc(3); -t2=C_mutate(&lf[1014] /* (set! current-print-length ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29796,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5343: scheme#make-parameter */ -t4=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in ... */ -static void C_ccall f_29796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_29796,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[1015]+1 /* (set! ##sys#print-length-limit ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29800,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5344: scheme#make-parameter */ -t4=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in ... */ -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 t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,5)))){ -C_save_and_reclaim((void *)f_29800,c,av);} -a=C_alloc(18); -t2=C_mutate(&lf[1016] /* (set! ##sys#print-exit ...) */,t1); -t3=*((C_word*)lf[264]+1); -t4=*((C_word*)lf[267]+1); -t5=*((C_word*)lf[265]+1); -t6=C_mutate((C_word*)lf[1011]+1 /* (set! ##sys#print ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_29802,a[2]=t4,a[3]=t5,a[4]=t3,a[5]=((C_word)li852),tmp=(C_word)a,a+=6,tmp)); -t7=C_mutate((C_word*)lf[1039]+1 /* (set! ##sys#procedure->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30941,a[2]=((C_word)li853),tmp=(C_word)a,a+=3,tmp)); -t8=C_set_block_item(lf[1052] /* ##sys#record-printers */,0,C_SCHEME_END_OF_LIST); -t9=C_mutate((C_word*)lf[243]+1 /* (set! chicken.base#record-printer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30958,a[2]=((C_word)li854),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[244]+1 /* (set! chicken.base#set-record-printer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30970,a[2]=((C_word)li855),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[1054]+1 /* (set! ##sys#register-record-printer ...) */,*((C_word*)lf[244]+1)); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30996,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5592: chicken.base#getter-with-setter */ -t13=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t13; -av2[1]=t12; -av2[2]=*((C_word*)lf[243]+1); -av2[3]=*((C_word*)lf[244]+1); -((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} - -/* ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_29802(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(8,c,2)))){ -C_save_and_reclaim((void *)f_29802,c,av);} -a=C_alloc(8); -t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,C_SCHEME_FALSE); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29809,a[2]=t3,a[3]=t1,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); -/* library.scm:5352: case-sensitive */ -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_29809(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_29809,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29812,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); -/* library.scm:5353: keyword-style */ -t3=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_29812(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_29812,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29815,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -/* library.scm:5354: symbol-escape */ -t3=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_29815(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_29815,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_29818,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],tmp=(C_word)a,a+=9,tmp); -/* library.scm:5355: ##sys#print-length-limit */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1015]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1015]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_29818(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(57,c,4)))){ -C_save_and_reclaim((void *)f_29818,c,av);} -a=C_alloc(57); -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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29820,a[2]=t1,a[3]=t5,a[4]=((C_word)li839),tmp=(C_word)a,a+=5,tmp)); -t15=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29879,a[2]=((C_word)li840),tmp=(C_word)a,a+=3,tmp)); -t16=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29903,a[2]=t1,a[3]=t5,a[4]=((C_word)li841),tmp=(C_word)a,a+=5,tmp)); -t17=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29963,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t11,a[5]=((C_word*)t0)[3],a[6]=t13,a[7]=((C_word)li842),tmp=(C_word)a,a+=8,tmp)); -t18=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29993,a[2]=t7,a[3]=t3,a[4]=((C_word)li844),tmp=(C_word)a,a+=5,tmp)); -t19=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30078,a[2]=((C_word*)t0)[4],a[3]=((C_word)li846),tmp=(C_word)a,a+=4,tmp)); -t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30304,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); -t21=C_SCHEME_UNDEFINED; -t22=(*a=C_VECTOR_TYPE|1,a[1]=t21,tmp=(C_word)a,a+=2,tmp); -t23=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_30309,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],a[5]=t7,a[6]=((C_word*)t0)[7],a[7]=t9,a[8]=t22,a[9]=((C_word)li851),tmp=(C_word)a,a+=10,tmp)); -t24=((C_word*)t22)[1]; -f_30309(t24,t20,((C_word*)t0)[8]);} - -/* outstr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_29820(C_word 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_29820,4,t0,t1,t2,t3);} -a=C_alloc(8); -if(C_truep(((C_word*)t0)[2])){ -t4=C_i_string_length(t3); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_29830,a[2]=t4,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); -/* library.scm:5361: current-print-length */ -t6=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -/* library.scm:5370: outstr0 */ -f_29879(t1,t2,t3);}} - -/* k29828 in outstr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_29830(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_29830,c,av);} -a=C_alloc(14); -t2=C_fixnum_plus(t1,((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_29836,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_fixnum_greaterp(t2,((C_word*)t0)[4]))){ -t4=C_fixnum_difference(((C_word*)t0)[4],t1); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29848,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29871,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5365: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_fix(0); -av2[4]=t4; -tp(5,av2);}} -else{ -t6=t5;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_29848(2,av2);}}} -else{ -/* library.scm:5368: outstr0 */ -f_29879(t3,((C_word*)t0)[6],((C_word*)t0)[7]);}} - -/* k29834 in k29828 in outstr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_29836(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29836,c,av);} -/* library.scm:5369: current-print-length */ -t2=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k29846 in k29828 in outstr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_29848(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_29848,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29851,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5366: outstr0 */ -f_29879(t2,((C_word*)t0)[4],lf[1017]);} - -/* k29849 in k29846 in k29828 in outstr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_29851(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_29851,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29854,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5367: ##sys#print-exit */ -t3=C_retrieve2(lf[1016],C_text("##sys#print-exit"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k29852 in k29849 in k29846 in k29828 in outstr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_29854(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29854,c,av);} -t2=*((C_word*)lf[278]+1); -/* library.scm:5364: g6334 */ -t3=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[278]+1); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k29869 in k29828 in outstr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_29871(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29871,c,av);} -/* library.scm:5365: outstr0 */ -f_29879(((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* outstr0 in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_29879(C_word t1,C_word 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(0,0,5)))){ -C_save_and_reclaim_args((void *)trf_29879,3,t1,t2,t3);} -t4=C_slot(t3,C_fix(0)); -t5=C_slot(t2,C_fix(2)); -t6=C_slot(t5,C_fix(3)); -t7=C_block_size(t4); -/* library.scm:5373: g6342 */ -t8=t6;{ -C_word av2[6]; -av2[0]=t8; -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -av2[4]=C_fix(0); -av2[5]=C_fixnum_difference(t7,C_fix(1)); -((C_proc)C_fast_retrieve_proc(t8))(6,av2);}} - -/* outchr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_29903(C_word 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(13,0,3)))){ -C_save_and_reclaim_args((void *)trf_29903,4,t0,t1,t2,t3);} -a=C_alloc(13); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_29907,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|7,a[1]=(C_word)f_29920,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t1,a[7]=t3,tmp=(C_word)a,a+=8,tmp); -/* library.scm:5378: current-print-length */ -t6=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t5=C_slot(t2,C_fix(2)); -/* g63516352 */ -t6=C_slot(t5,C_fix(2));{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} - -/* k29905 in outchr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_29907(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_29907,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -/* g63516352 */ -t3=C_slot(t2,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[4]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* k29918 in outchr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_29920(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_29920,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_29923,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],tmp=(C_word)a,a+=9,tmp); -/* library.scm:5379: current-print-length */ -t3=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_fixnum_plus(t1,C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k29921 in k29918 in outchr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_29923(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_29923,c,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_29932,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5381: outstr0 */ -f_29879(t2,((C_word*)t0)[6],lf[1018]);} -else{ -t2=C_slot(((C_word*)t0)[6],C_fix(2)); -/* g63516352 */ -t3=C_slot(t2,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[7]; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k29930 in k29921 in k29918 in outchr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_29932,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_29935,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5382: ##sys#print-exit */ -t3=C_retrieve2(lf[1016],C_text("##sys#print-exit"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k29933 in k29930 in k29921 in k29918 in outchr in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_29935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_29935,c,av);} -t2=*((C_word*)lf[278]+1); -/* library.scm:5380: g6347 */ -t3=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[278]+1); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* outsym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_29963(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(9,0,2)))){ -C_save_and_reclaim_args((void *)trf_29963,4,t0,t1,t2,t3);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_29967,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],tmp=(C_word)a,a+=9,tmp); -/* library.scm:5391: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t4; -av2[2]=t3; -tp(3,av2);}} - -/* k29965 in outsym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_29967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_29967,c,av);} -a=C_alloc(7); -t2=C_i_not(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_29976,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -if(C_truep(t2)){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -f_29976(2,av2);}} -else{ -t4=C_i_not(((C_word*)t0)[7]); -if(C_truep(t4)){ -t5=t3;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -f_29976(2,av2);}} -else{ -/* library.scm:5392: sym-is-readable? */ -t5=((C_word*)((C_word*)t0)[8])[1]; -f_30078(t5,t3,t1);}}} - -/* k29974 in k29965 in outsym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_29976(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_29976,c,av);} -if(C_truep(t1)){ -/* library.scm:5393: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} -else{ -/* library.scm:5394: outreadablesym */ -t2=((C_word*)((C_word*)t0)[6])[1]; -f_29993(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);}} - -/* outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_29993(C_word 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_29993,4,t0,t1,t2,t3);} -a=C_alloc(8); -t4=C_i_string_length(t3); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30000,a[2]=t4,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:5398: outchr */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t6,t5,t2,C_make_character(124));} - -/* k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30000(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_30000,c,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_30005,a[2]=((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)li843),tmp=(C_word)a,a+=9,tmp)); -t5=((C_word*)t3)[1]; -f_30005(t5,((C_word*)t0)[7],C_fix(0));} - -/* loop in k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_30005(C_word t0,C_word t1,C_word t2){ -C_word 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_30005,3,t0,t1,t2);} -a=C_alloc(9); -if(C_truep(C_fixnum_greater_or_equal_p(t2,((C_word*)t0)[2]))){ -/* library.scm:5401: outchr */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t3,t1,((C_word*)t0)[4],C_make_character(124));} -else{ -t3=C_i_string_ref(((C_word*)t0)[5],t2); -t4=C_u_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_30029,a[2]=t3,a[3]=((C_word*)t0)[6],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* library.scm:5404: outstr */ -t7=((C_word*)((C_word*)t0)[7])[1]; -f_29820(t7,t6,((C_word*)t0)[4],lf[1019]);} -else{ -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30052,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t2,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:5410: outchr */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_29903(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_30052(2,av2);}}} -else{ -t8=C_eqp(t3,C_make_character(92)); -if(C_truep(t8)){ -/* library.scm:5410: outchr */ -t9=((C_word*)((C_word*)t0)[3])[1]; -f_29903(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_30052(2,av2);}}}}}} - -/* k30027 in loop in k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_30029(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_30029,c,av);} -a=C_alloc(12); -t2=C_fix(C_character_code(((C_word*)t0)[2])); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30035,a[2]=((C_word*)t0)[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|4,a[1]=(C_word)f_30049,a[2]=((C_word*)t0)[8],a[3]=t3,a[4]=((C_word*)t0)[7],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5406: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* k30033 in k30027 in loop in k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30035(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_30035,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30038,a[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:5407: outchr */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_29903(t3,t2,((C_word*)t0)[6],C_make_character(59));} - -/* k30036 in k30033 in k30027 in loop in k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_30038(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_30038,c,av);} -/* library.scm:5408: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_30005(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k30047 in k30027 in loop in k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30049(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30049,c,av);} -/* library.scm:5406: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30050 in loop in k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_30052(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_30052,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30055,a[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:5411: outchr */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_29903(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7]);} - -/* k30053 in k30050 in loop in k29998 in outreadablesym in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30055(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_30055,c,av);} -/* library.scm:5412: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_30005(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* sym-is-readable? in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_30078(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_30078,3,t0,t1,t2);} -a=C_alloc(9); -t3=C_i_string_length(t2); -switch(t3){ -case C_fix(0): -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);} -case C_fix(1): -t4=C_i_string_ref(t2,C_fix(0)); -t5=C_eqp(C_make_character(35),t4); -t6=(C_truep(t5)?t5:C_eqp(C_make_character(46),t4)); -if(C_truep(t6)){ -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_fix(C_character_code(t4)); -t8=C_fixnum_less_or_equal_p(t7,C_fix(32)); -t9=(C_truep(t8)?t8:C_i_memq(t4,lf[1020])); -if(C_truep(t9)){ -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=C_u_i_char_numericp(t4); -t11=t1;{ -C_word av2[2]; -av2[0]=t11; -av2[1]=(C_truep(t10)?C_SCHEME_FALSE:C_SCHEME_TRUE); -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}} -default: -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_30129,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[2],a[5]=t6,a[6]=((C_word)li845),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_30129(t8,t1,t4);}} - -/* loop in sym-is-readable? in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_30129(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_30129,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_eqp(t2,C_fix(0)); -if(C_truep(t3)){ -t4=C_i_string_ref(((C_word*)t0)[2],C_fix(0)); -if(C_truep(C_u_i_char_numericp(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_eqp(t4,C_make_character(43)); -t6=(C_truep(t5)?t5:C_eqp(t4,C_make_character(45))); -if(C_truep(t6)){ -t7=C_eqp(((C_word*)t0)[3],C_fix(1)); -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=(C_truep(t7)?t7:C_i_not(C_u_i_char_numericp(C_i_string_ref(((C_word*)t0)[2],C_fix(1))))); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -switch(t4){ -case C_make_character(46): -t7=C_fixnum_greaterp(((C_word*)t0)[3],C_fix(1)); -t8=t1;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=(C_truep(t7)?C_i_not(C_u_i_char_numericp(C_i_string_ref(((C_word*)t0)[2],C_fix(1)))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);} -case C_make_character(58): -t7=t1;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);} -default: -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30204,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t8=C_eqp(t4,C_make_character(35)); -if(C_truep(t8)){ -if(C_truep(C_fixnum_greaterp(((C_word*)t0)[3],C_fix(2)))){ -t9=C_eqp(C_i_string_ref(((C_word*)t0)[2],C_fix(1)),C_make_character(35)); -if(C_truep(t9)){ -t10=C_eqp(C_i_string_ref(((C_word*)t0)[2],C_fix(2)),C_make_character(35)); -t11=t7; -f_30204(t11,C_i_not(C_i_not(t10)));} -else{ -t10=t7; -f_30204(t10,C_SCHEME_TRUE);}} -else{ -t9=t7; -f_30204(t9,C_SCHEME_TRUE);}} -else{ -t9=t7; -f_30204(t9,C_SCHEME_FALSE);}}}}} -else{ -t4=C_i_string_ref(((C_word*)t0)[2],t2); -t5=(C_truep(((C_word*)t0)[4])?((C_word*)t0)[4]:C_i_not(C_u_i_char_upper_casep(t4))); -if(C_truep(t5)){ -t6=C_fix(C_character_code(t4)); -t7=C_fixnum_less_or_equal_p(t6,C_fix(32)); -t8=(C_truep(t7)?t7:C_i_memq(t4,lf[1020])); -if(C_truep(C_i_not(t8))){ -t9=C_eqp(t4,C_make_character(58)); -t10=C_i_not(t9); -t11=(C_truep(t10)?t10:C_fixnum_lessp(t2,C_fixnum_difference(((C_word*)t0)[3],C_fix(1)))); -if(C_truep(t11)){ -/* library.scm:5449: loop */ -t13=t1; -t14=C_fixnum_difference(t2,C_fix(1)); -t1=t13; -t2=t14; -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{ -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t9+1)))(2,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);}}}} - -/* k30202 in loop in sym-is-readable? in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_30204(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_30204,2,t0,t1);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_i_member(((C_word*)t0)[3],lf[1021]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=C_fix(C_character_code(((C_word*)t0)[4])); -t3=C_fixnum_less_or_equal_p(t2,C_fix(32)); -t4=(C_truep(t3)?t3:C_i_memq(((C_word*)t0)[4],lf[1020])); -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);}}} - -/* k30302 in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_30304(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_30304,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=*((C_word*)lf[278]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_30309(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,0,4)))){ -C_save_and_reclaim_args((void *)trf_30309,3,t0,t1,t2);} -a=C_alloc(8); -switch(t2){ -case C_SCHEME_END_OF_LIST: -/* library.scm:5452: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1022]); -case C_SCHEME_TRUE: -/* library.scm:5453: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1023]); -case C_SCHEME_FALSE: -/* library.scm:5454: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1024]); -default: -if(C_truep(C_eofp(t2))){ -/* library.scm:5455: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1025]);} -else{ -if(C_truep(C_undefinedp(t2))){ -/* library.scm:5456: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1026]);} -else{ -if(C_truep(C_bwpp(t2))){ -/* library.scm:5457: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1027]);} -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_30364,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:5460: outstr */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t4,t3,((C_word*)t0)[3],lf[1028]);} -else{ -/* library.scm:5469: outchr */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_29903(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_30423,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5470: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} -else{ -if(C_truep(C_unboundvaluep(t2))){ -/* library.scm:5471: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1029]);} -else{ -if(C_truep(C_i_not(C_blockp(t2)))){ -/* library.scm:5472: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1030]);} -else{ -if(C_truep(C_forwardedp(t2))){ -/* library.scm:5473: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1031]);} -else{ -if(C_truep(C_i_keywordp(t2))){ -t3=C_i_not(((C_word*)t0)[4]); -t4=(C_truep(t3)?((C_word*)t0)[6]:C_SCHEME_FALSE); -t5=C_eqp(t4,lf[967]); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30459,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:5478: outchr */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_29903(t7,t6,((C_word*)t0)[3],C_make_character(58));} -else{ -t6=C_eqp(t4,lf[948]); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30471,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5481: outsym */ -t8=((C_word*)((C_word*)t0)[7])[1]; -f_29963(t8,t7,((C_word*)t0)[3],t2);} -else{ -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30477,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:5484: outstr */ -t8=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t8,t7,((C_word*)t0)[3],lf[1032]);}}} -else{ -if(C_truep(C_i_symbolp(t2))){ -/* library.scm:5486: outsym */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_29963(t3,t1,((C_word*)t0)[3],t2);} -else{ -if(C_truep(C_i_numberp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30506,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5487: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} -else{ -if(C_truep(C_anypointerp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30516,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5488: ##sys#pointer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1033]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1033]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} -else{ -if(C_truep(C_stringp(t2))){ -if(C_truep(((C_word*)t0)[4])){ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30525,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:5491: outchr */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_29903(t4,t3,((C_word*)t0)[3],C_make_character(34));} -else{ -/* library.scm:5518: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],t2);}} -else{ -if(C_truep(C_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30711,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=((C_word*)t0)[2],a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* library.scm:5520: outchr */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_29903(t4,t3,((C_word*)t0)[3],C_make_character(40));} -else{ -if(C_truep(C_bytevectorp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30784,a[2]=((C_word*)t0)[8],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5532: outstr */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t4,t3,((C_word*)t0)[3],lf[1037]);} -else{ -if(C_truep(C_structurep(t2))){ -/* library.scm:5534: ##sys#user-print-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1038]); -C_word av2[5]; -av2[0]=*((C_word*)lf[1038]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[3]; -tp(5,av2);}} -else{ -if(C_truep(C_closurep(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30807,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5535: ##sys#procedure->string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1039]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1039]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} -else{ -if(C_truep(C_locativep(t2))){ -/* library.scm:5536: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t1,((C_word*)t0)[3],lf[1040]);} -else{ -if(C_truep(C_lambdainfop(t2))){ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30819,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* library.scm:5538: outstr */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t4,t3,((C_word*)t0)[3],lf[1041]);} -else{ -if(C_truep(C_portp(t2))){ -t3=C_slot(t2,C_fix(1)); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30838,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); -switch(t3){ -case C_fix(1): -/* library.scm:5543: outstr */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t5,t4,((C_word*)t0)[3],lf[1043]); -case C_fix(2): -/* library.scm:5544: outstr */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t5,t4,((C_word*)t0)[3],lf[1044]); -default: -/* library.scm:5545: outstr */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t5,t4,((C_word*)t0)[3],lf[1045]);}} -else{ -if(C_truep(C_vectorp(t2))){ -t3=C_block_size(t2); -t4=C_eqp(C_fix(0),t3); -if(C_truep(t4)){ -/* library.scm:5551: outstr */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t5,t1,((C_word*)t0)[3],lf[1046]);} -else{ -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30888,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[8],a[6]=t2,a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* library.scm:5553: outstr */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t6,t5,((C_word*)t0)[3],lf[1047]);}} -else{ -/* library.scm:5561: ##sys#error */ -t3=*((C_word*)lf[195]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[1048]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}}}}}}}}}}}}}}}}}}}}}} - -/* k30362 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30364(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_30364,c,av);} -a=C_alloc(8); -t2=C_fix(C_character_code(((C_word*)t0)[2])); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30370,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)[2],tmp=(C_word)a,a+=8,tmp); -/* library.scm:5462: chicken.base#char-name */ -t4=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k30368 in k30362 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_30370(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_30370,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30374,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li847),tmp=(C_word)a,a+=5,tmp); -/* library.scm:5462: g6450 */ -t3=t2; -f_30374(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(131071))); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30397,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:5466: outchr */ -t5=((C_word*)((C_word*)t0)[6])[1]; -f_29903(t5,t4,((C_word*)t0)[3],C_make_character(120));} -else{ -/* library.scm:5468: outchr */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_29903(t4,((C_word*)t0)[4],((C_word*)t0)[3],((C_word*)t0)[7]);}}} - -/* g6450 in k30368 in k30362 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_30374(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_30374,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30382,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5464: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k30380 in g6450 in k30368 in k30362 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30382(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30382,c,av);} -/* library.scm:5464: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30395 in k30368 in k30362 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_30397(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_30397,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30404,a[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:5467: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* k30402 in k30395 in k30368 in k30362 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30404,c,av);} -/* library.scm:5467: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30421 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30423(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30423,c,av);} -/* library.scm:5470: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30457 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30459(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30459,c,av);} -/* library.scm:5479: outsym */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29963(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k30469 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30471(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30471,c,av);} -/* library.scm:5482: outchr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(58));} - -/* k30475 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30477,c,av);} -/* library.scm:5485: outsym */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29963(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k30504 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30506,c,av);} -/* library.scm:5487: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30514 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30516(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30516,c,av);} -/* library.scm:5488: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30525(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_30525,c,av);} -a=C_alloc(10); -t2=C_i_string_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|7,a[1]=(C_word)f_30534,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)li848),tmp=(C_word)a,a+=8,tmp)); -t6=((C_word*)t4)[1]; -f_30534(t6,((C_word*)t0)[6],C_fix(0),t2);} - -/* doloop6471 in k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_30534(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word 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_30534,4,t0,t1,t2,t3);} -a=C_alloc(13); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -/* library.scm:5495: outchr */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t5,t1,((C_word*)t0)[3],C_make_character(34));} -else{ -t5=C_i_string_ref(((C_word*)t0)[4],t2); -t6=C_fix(C_character_code(t5)); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30550,a[2]=((C_word*)t0)[5],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -switch(t6){ -case C_fix(34): -/* library.scm:5498: outstr */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_29820(t8,t7,((C_word*)t0)[3],lf[1034]); -case C_fix(92): -/* library.scm:5499: outstr */ -t8=((C_word*)((C_word*)t0)[6])[1]; -f_29820(t8,t7,((C_word*)t0)[3],lf[1035]); -default: -t8=C_fixnum_lessp(t6,C_fix(32)); -t9=(C_truep(t8)?t8:C_eqp(t6,C_fix(131071))); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30588,a[2]=t6,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -/* library.scm:5503: outchr */ -t11=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t11,t10,((C_word*)t0)[3],C_make_character(92));} -else{ -/* library.scm:5517: outchr */ -t10=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t10,t7,((C_word*)t0)[3],C_fix_to_char(t6));}}}} - -/* k30548 in doloop6471 in k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_30550(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30550,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_30534(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));} - -/* k30586 in doloop6471 in k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_30588(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_30588,c,av);} -a=C_alloc(7); -switch(((C_word*)t0)[2]){ -case C_fix(7): -/* library.scm:5505: outchr */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(97)); -case C_fix(8): -/* library.scm:5506: outchr */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(98)); -case C_fix(9): -/* library.scm:5507: outchr */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(116)); -case C_fix(10): -/* library.scm:5508: outchr */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(110)); -case C_fix(11): -/* library.scm:5509: outchr */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(118)); -case C_fix(12): -/* library.scm:5510: outchr */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t2,((C_word*)t0)[4],((C_word*)t0)[5],C_make_character(102)); -case C_fix(13): -/* library.scm:5511: outchr */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_29903(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_30654,a[2]=((C_word*)t0)[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:5513: outchr */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_29903(t3,t2,((C_word*)t0)[5],C_make_character(120));}} - -/* k30652 in k30586 in doloop6471 in k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30654(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_30654,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_30657,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_fixnum_lessp(((C_word*)t0)[6],C_fix(16)))){ -/* library.scm:5514: outchr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t3,t2,((C_word*)t0)[4],C_make_character(48));} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_30657(2,av2);}}} - -/* k30655 in k30652 in k30586 in doloop6471 in k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_30657(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_30657,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30660,a[2]=((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_30667,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5515: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* k30658 in k30655 in k30652 in k30586 in doloop6471 in k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_30660(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30660,c,av);} -/* library.scm:5516: outchr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(59));} - -/* k30665 in k30655 in k30652 in k30586 in doloop6471 in k30523 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_30667(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30667,c,av);} -/* library.scm:5515: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30709 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30711(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_30711,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:5521: out */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_30309(t3,t2,C_slot(((C_word*)t0)[2],C_fix(0)));} - -/* k30712 in k30709 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_30714(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_30714,c,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_30723,a[2]=((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)li849),tmp=(C_word)a,a+=8,tmp)); -t6=((C_word*)t4)[1]; -f_30723(t6,((C_word*)t0)[7],t2);} - -/* doloop6502 in k30712 in k30709 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_30723(C_word t0,C_word t1,C_word 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_30723,3,t0,t1,t2);} -a=C_alloc(10); -t3=C_i_not(C_blockp(t2)); -t4=(C_truep(t3)?t3:C_i_not(C_pairp(t2))); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30736,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t6=C_eqp(t2,C_SCHEME_END_OF_LIST); -if(C_truep(C_i_not(t6))){ -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30745,a[2]=((C_word*)t0)[4],a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5526: outstr */ -t8=((C_word*)((C_word*)t0)[5])[1]; -f_29820(t8,t7,((C_word*)t0)[3],lf[1036]);} -else{ -/* library.scm:5528: outchr */ -t7=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t7,t1,((C_word*)t0)[3],C_make_character(41));}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30755,a[2]=((C_word*)t0)[6],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* library.scm:5529: outchr */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t6,t5,((C_word*)t0)[3],C_make_character(32));}} - -/* k30734 in doloop6502 in k30712 in k30709 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30736(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30736,c,av);} -/* library.scm:5528: outchr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(41));} - -/* k30743 in doloop6502 in k30712 in k30709 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30745(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_30745,c,av);} -/* library.scm:5527: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_30309(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k30753 in doloop6502 in k30712 in k30709 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_30755,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30758,a[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:5530: out */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_30309(t3,t2,C_slot(((C_word*)t0)[4],C_fix(0)));} - -/* k30756 in k30753 in doloop6502 in k30712 in k30709 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_30758(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_30758,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_30723(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k30782 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30784(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_30784,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_30791,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5533: ##sys#bytevector->list */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[763]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[763]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k30789 in k30782 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_30791(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_30791,c,av);} -/* library.scm:5533: out */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_30309(t2,((C_word*)t0)[3],t1);} - -/* k30805 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30807(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30807,c,av);} -/* library.scm:5535: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30817 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30819(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_30819,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30822,a[2]=((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_30829,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5539: ##sys#lambda-info->string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[893]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[893]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);}} - -/* k30820 in k30817 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_30822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30822,c,av);} -/* library.scm:5540: outchr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t2,((C_word*)t0)[3],((C_word*)t0)[4],C_make_character(62));} - -/* k30827 in k30817 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_30829(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30829,c,av);} -/* library.scm:5539: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k30836 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30838(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_30838,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30841,a[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:5546: outstr */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t3,t2,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(3)));} - -/* k30839 in k30836 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_30841(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30841,c,av);} -/* library.scm:5547: outstr */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_29820(t2,((C_word*)t0)[3],((C_word*)t0)[4],lf[1042]);} - -/* k30886 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_30888(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_30888,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30891,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:5554: out */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_30309(t3,t2,C_slot(((C_word*)t0)[6],C_fix(0)));} - -/* k30889 in k30886 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_30891(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_30891,c,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_30900,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)li850),tmp=(C_word)a,a+=8,tmp)); -t6=((C_word*)t4)[1]; -f_30900(t6,((C_word*)t0)[7],C_fix(1),t2);} - -/* doloop6531 in k30889 in k30886 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_30900(C_word 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_30900,4,t0,t1,t2,t3);} -a=C_alloc(8); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -/* library.scm:5558: outchr */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t5,t1,((C_word*)t0)[3],C_make_character(41));} -else{ -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_30913,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],tmp=(C_word)a,a+=8,tmp); -/* library.scm:5559: outchr */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_29903(t6,t5,((C_word*)t0)[3],C_make_character(32));}} - -/* k30911 in doloop6531 in k30889 in k30886 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_30913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_30913,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_30916,a[2]=((C_word*)t0)[2],a[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:5560: out */ -t3=((C_word*)((C_word*)t0)[6])[1]; -f_30309(t3,t2,C_slot(((C_word*)t0)[7],((C_word*)t0)[4]));} - -/* k30914 in k30911 in doloop6531 in k30889 in k30886 in out in k29816 in k29813 in k29810 in k29807 in ##sys#print in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_30916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_30916,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_30900(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));} - -/* ##sys#procedure->string in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_30941(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_30941,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30945,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5567: ##sys#lambda-info */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[892]); -C_word *av2=av; -av2[0]=*((C_word*)lf[892]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k30943 in ##sys#procedure->string in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_30945(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_30945,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30955,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5569: ##sys#lambda-info->string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[893]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[893]+1); -av2[1]=t2; -av2[2]=t1; -tp(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[1051]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k30953 in k30943 in ##sys#procedure->string in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_30955(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_30955,c,av);} -/* library.scm:5569: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1049]; -av2[3]=t1; -av2[4]=lf[1050]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* chicken.base#record-printer in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_30958(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_30958,c,av);} -t3=C_i_assq(t2,C_fast_retrieve(lf[1052])); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_i_cdr(t3):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.base#set-record-printer! in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_30970(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_30970,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_30974,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5581: ##sys#check-closure */ -t5=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -av2[3]=lf[1053]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k30972 in chicken.base#set-record-printer! in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_30974(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_30974,c,av);} -a=C_alloc(6); -t2=C_i_assq(((C_word*)t0)[2],C_fast_retrieve(lf[1052])); -if(C_truep(t2)){ -t3=C_i_setslot(t2,C_fix(1),((C_word*)t0)[3]); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t4=C_a_i_cons(&a,2,t3,C_fast_retrieve(lf[1052])); -t5=C_mutate((C_word*)lf[1052]+1 /* (set! ##sys#record-printers ...) */,t4); -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in ... */ -static void C_ccall f_30996(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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(84,c,6)))){ -C_save_and_reclaim((void *)f_30996,c,av);} -a=C_alloc(84); -t2=C_mutate((C_word*)lf[243]+1 /* (set! chicken.base#record-printer ...) */,t1); -t3=C_mutate((C_word*)lf[1038]+1 /* (set! ##sys#user-print-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_30998,a[2]=((C_word)li863),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[1065]+1 /* (set! ##sys#with-print-length-limit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31150,a[2]=((C_word)li868),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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31235,a[2]=t6,a[3]=((C_word)li869),tmp=(C_word)a,a+=4,tmp); -t8=C_set_block_item(t6,0,t7); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41132,a[2]=((C_word)li870),tmp=(C_word)a,a+=3,tmp); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41154,a[2]=((C_word)li871),tmp=(C_word)a,a+=3,tmp); -t11=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41172,a[2]=t6,a[3]=((C_word)li872),tmp=(C_word)a,a+=4,tmp); -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41188,a[2]=t6,a[3]=((C_word)li873),tmp=(C_word)a,a+=4,tmp); -t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41210,a[2]=((C_word)li874),tmp=(C_word)a,a+=3,tmp); -t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41213,a[2]=((C_word)li875),tmp=(C_word)a,a+=3,tmp); -t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41216,a[2]=((C_word)li876),tmp=(C_word)a,a+=3,tmp); -t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41252,a[2]=((C_word)li880),tmp=(C_word)a,a+=3,tmp); -t17=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41336,a[2]=((C_word)li881),tmp=(C_word)a,a+=3,tmp); -t18=C_a_i_vector(&a,10,t9,t10,t11,t12,*((C_word*)lf[237]+1),t13,t14,t15,t16,t17); -t19=C_mutate((C_word*)lf[315]+1 /* (set! ##sys#string-port-class ...) */,t18); -t20=C_mutate((C_word*)lf[1067]+1 /* (set! ##sys#scan-buffer-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31288,a[2]=((C_word)li891),tmp=(C_word)a,a+=3,tmp)); -t21=*((C_word*)lf[320]+1); -t22=*((C_word*)lf[318]+1); -t23=C_mutate((C_word*)lf[1070]+1 /* (set! ##sys#print-to-string ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31565,a[2]=t21,a[3]=t22,a[4]=((C_word)li894),tmp=(C_word)a,a+=5,tmp)); -t24=C_mutate((C_word*)lf[1033]+1 /* (set! ##sys#pointer->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31608,a[2]=((C_word)li895),tmp=(C_word)a,a+=3,tmp)); -t25=C_mutate((C_word*)lf[227]+1 /* (set! chicken.base#get-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31661,a[2]=((C_word)li897),tmp=(C_word)a,a+=3,tmp)); -t26=C_mutate((C_word*)lf[1079]+1 /* (set! ##sys#really-print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31815,a[2]=((C_word)li901),tmp=(C_word)a,a+=3,tmp)); -t27=C_mutate((C_word*)lf[228]+1 /* (set! chicken.base#print-call-chain ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31920,a[2]=((C_word)li902),tmp=(C_word)a,a+=3,tmp)); -t28=C_mutate((C_word*)lf[1087]+1 /* (set! ##sys#user-interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32011,a[2]=((C_word)li904),tmp=(C_word)a,a+=3,tmp)); -t29=lf[1090] /* exit-in-progress */ =C_SCHEME_FALSE;; -t30=C_mutate(&lf[1091] /* (set! cleanup-before-exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32033,a[2]=((C_word)li907),tmp=(C_word)a,a+=3,tmp)); -t31=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32136,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t32=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41108,a[2]=((C_word)li1234),tmp=(C_word)a,a+=3,tmp); -/* library.scm:5927: scheme#make-parameter */ -t33=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t33; -av2[1]=t31; -av2[2]=t32; -((C_proc)(void*)(*((C_word*)t33+1)))(3,av2);}} - -/* ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_30998(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_30998,c,av);} -a=C_alloc(10); -t5=C_slot(t2,C_fix(0)); -t6=C_i_assq(t5,C_fast_retrieve(lf[1052])); -t7=C_i_vectorp(t5); -t8=(C_truep(t7)?C_slot(t5,C_fix(0)):t5); -if(C_truep(t6)){ -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31014,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31019,a[2]=t4,a[3]=t8,a[4]=t6,a[5]=t2,a[6]=((C_word)li862),tmp=(C_word)a,a+=7,tmp); -/* library.scm:5598: scheme#call-with-current-continuation */ -t11=*((C_word*)lf[162]+1);{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t9; -av2[2]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31100,a[2]=t1,a[3]=t4,a[4]=t5,a[5]=t2,a[6]=t8,tmp=(C_word)a,a+=7,tmp); -/* library.scm:5610: ##sys#print */ -t10=*((C_word*)lf[1011]+1);{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -av2[2]=lf[1064]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}}} - -/* k31012 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31014(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_31014,c,av);} -/* library.scm:5598: g6576 */ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31019(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31019,c,av);} -a=C_alloc(13); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31025,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=((C_word)li857),tmp=(C_word)a,a+=6,tmp); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31072,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)li861),tmp=(C_word)a,a+=7,tmp); -/* library.scm:5598: chicken.condition#with-exception-handler */ -t5=C_fast_retrieve(lf[1060]);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* a31024 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31025(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_31025,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31031,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li856),tmp=(C_word)a,a+=6,tmp); -/* library.scm:5598: k6573 */ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a31030 in a31024 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31031(C_word c,C_word *av){ -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_31031,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31035,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:5600: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1059]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31033 in a31030 in a31024 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31035(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31035,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31038,a[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:5601: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31036 in k31033 in a31030 in a31024 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31038(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31038,c,av);} -a=C_alloc(5); -if(C_truep(C_i_structurep(((C_word*)t0)[2],lf[1055]))){ -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -t3=C_i_member(lf[1056],t2); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31053,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5604: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[1057]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -/* library.scm:5607: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[1058]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} - -/* k31051 in k31036 in k31033 in a31030 in a31024 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_31053(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31053,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31056,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5605: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_cadr(((C_word*)t0)[4]); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31054 in k31051 in k31036 in k31033 in a31030 in a31024 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_31056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_31056,c,av);} -/* library.scm:5606: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(62); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* a31071 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31072(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(c!=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_31072,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31078,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li858),tmp=(C_word)a,a+=6,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31087,a[2]=((C_word*)t0)[5],a[3]=((C_word)li860),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5598: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a31077 in a31071 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31078(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_31078,c,av);} -/* library.scm:5598: g6586 */ -t2=C_slot(((C_word*)t0)[2],C_fix(1));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=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);}} - -/* a31086 in a31071 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31087(C_word c,C_word *av){ -C_word tmp; -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_31087,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_31093,a[2]=t2,a[3]=((C_word)li859),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5598: k6573 */ -t4=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a31092 in a31086 in a31071 in a31018 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31093(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_31093,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -C_apply_values(3,av2);}} - -/* k31098 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31100(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31100,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31103,a[2]=((C_word*)t0)[2],a[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:5611: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31101 in k31098 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31103(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_31103,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31106,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[1055]); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31115,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5614: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[1061]; -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[1062]); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31131,a[2]=t2,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5617: ##sys#print */ -t6=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[1063]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -/* library.scm:5619: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(62); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}}}} - -/* k31104 in k31101 in k31098 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31106(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_31106,c,av);} -/* library.scm:5619: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(62); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k31113 in k31101 in k31098 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31115(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31115,c,av);} -/* library.scm:5615: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_slot(((C_word*)t0)[3],C_fix(1)); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k31129 in k31101 in k31098 in ##sys#user-print-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31131,c,av);} -/* library.scm:5618: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_slot(((C_word*)t0)[3],C_fix(6)); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31150(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_31150,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31156,a[2]=t2,a[3]=t3,a[4]=((C_word)li867),tmp=(C_word)a,a+=5,tmp); -/* library.scm:5624: call-with-current-continuation */ -t5=*((C_word*)lf[162]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31156(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(27,c,4)))){ -C_save_and_reclaim((void *)f_31156,c,av);} -a=C_alloc(27); -t3=C_fast_retrieve(lf[1015]); -t4=C_retrieve2(lf[1016],C_text("##sys#print-exit")); -t5=C_retrieve2(lf[1014],C_text("current-print-length")); -t6=((C_word*)t0)[2]; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=t2; -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_TRUE; -t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); -t14=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31162,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t13,a[6]=t3,a[7]=((C_word)li864),tmp=(C_word)a,a+=8,tmp); -t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31205,a[2]=((C_word*)t0)[3],a[3]=((C_word)li865),tmp=(C_word)a,a+=4,tmp); -t16=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31211,a[2]=t7,a[3]=t9,a[4]=t11,a[5]=t3,a[6]=((C_word)li866),tmp=(C_word)a,a+=7,tmp); -/* library.scm:5626: ##sys#dynamic-wind */ -t17=*((C_word*)lf[824]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t17; -av2[1]=t1; -av2[2]=t14; -av2[3]=t15; -av2[4]=t16; -((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} - -/* a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31162(C_word c,C_word *av){ -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,4)))){ -C_save_and_reclaim((void *)f_31162,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31166,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* library.scm:5626: ##sys#print-length-limit6606 */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_31166(2,av2);}}} - -/* k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31166(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31166,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31169,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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); -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* library.scm:5626: ##sys#print-exit6607 */ -t3=C_retrieve2(lf[1016],C_text("##sys#print-exit"));{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[3])[1]; -f_31169(2,av2);}}} - -/* k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31169(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31169,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_31172,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=10,tmp); -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* library.scm:5626: current-print-length66086609 */ -t3=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[4])[1]; -f_31172(2,av2);}}} - -/* k31170 in k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31172(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31172,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_31176,a[2]=((C_word*)t0)[2],a[3]=((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],tmp=(C_word)a,a+=11,tmp); -/* library.scm:5626: ##sys#print-length-limit6606 */ -t3=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k31174 in k31170 in k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_31176(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_31176,c,av);} -a=C_alloc(10); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_31180,a[2]=((C_word*)t0)[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); -/* library.scm:5626: ##sys#print-exit6607 */ -t4=C_retrieve2(lf[1016],C_text("##sys#print-exit"));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k31178 in k31174 in k31170 in k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_31180(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_31180,c,av);} -a=C_alloc(9); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31184,a[2]=((C_word*)t0)[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); -/* library.scm:5626: current-print-length66086609 */ -t4=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k31182 in k31178 in k31174 in k31170 in k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_31184(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_31184,c,av);} -a=C_alloc(6); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31187,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:5626: ##sys#print-length-limit6606 */ -t4=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k31185 in k31182 in k31178 in k31174 in k31170 in k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_31187(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31187,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31190,a[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:5626: ##sys#print-exit6607 */ -t3=C_retrieve2(lf[1016],C_text("##sys#print-exit"));{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31188 in k31185 in k31182 in k31178 in k31174 in k31170 in k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_31190(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31190,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31193,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5626: current-print-length66086609 */ -t3=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31191 in k31188 in k31185 in k31182 in k31178 in k31174 in k31170 in k31167 in k31164 in a31161 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_31193(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_31193,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a31204 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31205(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_31205,c,av);} -/* library.scm:5629: thunk */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* a31210 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31211(C_word c,C_word *av){ -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,2)))){ -C_save_and_reclaim((void *)f_31211,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31215,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],tmp=(C_word)a,a+=7,tmp); -/* library.scm:5626: ##sys#print-length-limit6606 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k31213 in a31210 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31215(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31215,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31218,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); -/* library.scm:5626: ##sys#print-exit6607 */ -t3=C_retrieve2(lf[1016],C_text("##sys#print-exit"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k31216 in k31213 in a31210 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31218(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31218,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31221,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:5626: current-print-length66086609 */ -t3=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k31219 in k31216 in k31213 in a31210 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31221(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31221,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31224,a[2]=((C_word*)t0)[2],a[3]=((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); -/* library.scm:5626: ##sys#print-length-limit6606 */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k31222 in k31219 in k31216 in k31213 in a31210 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_31224(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31224,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31227,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:5626: ##sys#print-exit6607 */ -t3=C_retrieve2(lf[1016],C_text("##sys#print-exit"));{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31225 in k31222 in k31219 in k31216 in k31213 in a31210 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_31227(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31227,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31230,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:5626: current-print-length66086609 */ -t3=C_retrieve2(lf[1014],C_text("current-print-length"));{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31228 in k31225 in k31222 in k31219 in k31216 in k31213 in a31210 in a31155 in ##sys#with-print-length-limit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_31230(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31230,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); -t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); -t5=((C_word*)t0)[8];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* check6650 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31235(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(9,c,3)))){ -C_save_and_reclaim((void *)f_31235,c,av);} -a=C_alloc(9); -t4=C_slot(t2,C_fix(10)); -t5=C_slot(t2,C_fix(11)); -t6=C_slot(t2,C_fix(12)); -t7=C_fixnum_plus(t4,t3); -if(C_truep(C_fixnum_greater_or_equal_p(t7,t5))){ -t8=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31257,a[2]=t5,a[3]=t6,a[4]=t4,a[5]=t2,a[6]=((C_word*)t0)[2],a[7]=t1,a[8]=t3,tmp=(C_word)a,a+=9,tmp); -if(C_truep(C_fixnum_greater_or_equal_p(t7,lf[334]))){ -/* library.scm:5657: ##sys#error */ -t9=*((C_word*)lf[195]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[1066]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(4,av2);}} -else{ -t9=t8;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_SCHEME_UNDEFINED; -f_31257(2,av2);}}} -else{ -t8=C_SCHEME_UNDEFINED; -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} - -/* k31255 in check6650 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31257(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31257,c,av);} -a=C_alloc(9); -t2=C_fixnum_plus(((C_word*)t0)[2],((C_word*)t0)[2]); -t3=C_i_fixnum_min(lf[334],t2); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_31263,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],tmp=(C_word)a,a+=9,tmp); -/* library.scm:5659: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=t3; -tp(3,av2);}} - -/* k31261 in k31255 in check6650 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31263(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31263,c,av);} -t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),C_fix(0),((C_word*)t0)[3]); -t3=C_i_setslot(((C_word*)t0)[4],C_fix(12),t1); -t4=C_i_set_i_slot(((C_word*)t0)[4],C_fix(11),((C_word*)t0)[5]); -/* library.scm:5663: check */ -t5=((C_word*)((C_word*)t0)[6])[1];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[7]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[8]; -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} - -/* ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31288(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_min_argc_2(c,6,t0); -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_31288,c,av);} -a=C_alloc(14); -t6=C_rest_nullp(c,6); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,6,av,6,t0)); -t8=C_fix(1024); -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|9,a[1]=(C_word)f_31295,a[2]=t9,a[3]=t11,a[4]=t7,a[5]=t5,a[6]=t1,a[7]=t2,a[8]=t4,a[9]=t3,tmp=(C_word)a,a+=10,tmp); -/* library.scm:5742: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t12; -av2[2]=((C_word*)t9)[1]; -tp(3,av2);}} - -/* k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31295(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(46,c,6)))){ -C_save_and_reclaim((void *)f_31295,c,av);} -a=C_alloc(46); -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_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_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31297,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li882),tmp=(C_word)a,a+=6,tmp)); -t13=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31308,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word)li883),tmp=(C_word)a,a+=7,tmp)); -t14=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31331,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=((C_word)li884),tmp=(C_word)a,a+=7,tmp)); -t15=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31351,a[2]=((C_word*)t0)[4],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li885),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|7,a[1]=(C_word)f_31366,a[2]=((C_word*)t0)[5],a[3]=t17,a[4]=t11,a[5]=t7,a[6]=t9,a[7]=((C_word)li890),tmp=(C_word)a,a+=8,tmp)); -t19=((C_word*)t17)[1]; -f_31366(t19,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[8],((C_word*)t0)[8],((C_word*)t0)[9]);} - -/* grow in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31297(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_31297,2,t0,t1);} -a=C_alloc(7); -t2=C_fixnum_times(((C_word*)((C_word*)t0)[2])[1],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31304,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:5745: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k31302 in grow in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31304(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31304,c,av);} -t2=C_copy_memory(t1,((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t4=C_set_block_item(((C_word*)t0)[4],0,((C_word*)t0)[5]); -t5=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* conc in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31308(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(8,0,2)))){ -C_save_and_reclaim_args((void *)trf_31308,5,t0,t1,t2,t3,t4);} -a=C_alloc(8); -t5=C_fixnum_difference(t4,t3); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31315,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=t5,a[7]=t1,tmp=(C_word)a,a+=8,tmp); -t7=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],t5); -if(C_truep(C_fixnum_greater_or_equal_p(t7,((C_word*)((C_word*)t0)[4])[1]))){ -/* library.scm:5751: grow */ -t8=((C_word*)((C_word*)t0)[5])[1]; -f_31297(t8,t6);} -else{ -t8=t6;{ -C_word av2[2]; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -f_31315(2,av2);}}} - -/* k31313 in conc in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31315(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31315,c,av);} -t2=C_copy_memory_with_offset(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]); -t3=C_fixnum_plus(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[6]); -t4=C_set_block_item(((C_word*)t0)[4],0,t3); -t5=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* conc1 in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31331(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_31331,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31335,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); -t4=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],C_fix(1)); -if(C_truep(C_fixnum_greater_or_equal_p(t4,((C_word*)((C_word*)t0)[4])[1]))){ -/* library.scm:5755: grow */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_31297(t5,t3);} -else{ -t5=t3;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_UNDEFINED; -f_31335(2,av2);}}} - -/* k31333 in conc1 in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31335(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31335,c,av);} -t2=C_setsubbyte(((C_word*)((C_word*)t0)[2])[1],((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4]); -t3=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],C_fix(1)); -t4=C_set_block_item(((C_word*)t0)[3],0,t3); -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* getline in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31351(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_31351,2,t0,t1);} -if(C_truep(((C_word*)t0)[2])){ -/* library.scm:5760: ##sys#buffer->string/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[461]+1)); -C_word av2[6]; -av2[0]=*((C_word*)lf[461]+1); -av2[1]=t1; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=C_fix(0); -av2[4]=((C_word*)((C_word*)t0)[4])[1]; -av2[5]=((C_word*)t0)[2]; -tp(6,av2);}} -else{ -/* library.scm:5761: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[300]+1); -av2[1]=t1; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=C_fix(0); -av2[4]=((C_word*)((C_word*)t0)[4])[1]; -tp(5,av2);}}} - -/* loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31366(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(13,0,4)))){ -C_save_and_reclaim_args((void *)trf_31366,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(13); -t6=C_eqp(t4,t5); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31376,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:5767: conc */ -t8=((C_word*)((C_word*)t0)[5])[1]; -f_31308(t8,t7,t2,t3,t4);} -else{ -t7=C_subbyte(t2,t4); -t8=C_eqp(t7,C_fix(10)); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31410,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5775: conc */ -t10=((C_word*)((C_word*)t0)[5])[1]; -f_31308(t10,t9,t2,t3,t4);} -else{ -t9=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_31427,a[2]=t4,a[3]=t1,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t2,a[7]=t3,a[8]=t7,a[9]=t5,a[10]=((C_word*)t0)[2],a[11]=((C_word*)t0)[3],a[12]=((C_word*)t0)[6],tmp=(C_word)a,a+=13,tmp); -t10=C_eqp(t7,C_fix(13)); -if(C_truep(t10)){ -t11=C_fixnum_plus(t4,C_fix(1)); -if(C_truep(C_fixnum_greaterp(t5,t11))){ -t12=C_fixnum_plus(t4,C_fix(1)); -t13=t9; -f_31427(t13,C_eqp(C_subbyte(t2,t12),C_fix(10)));} -else{ -t12=t9; -f_31427(t12,C_SCHEME_FALSE);}} -else{ -t11=t9; -f_31427(t11,C_SCHEME_FALSE);}}}} - -/* k31374 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_31376,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li886),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31387,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li887),tmp=(C_word)a,a+=5,tmp); -/* library.scm:5768: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[6]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a31380 in k31374 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31381(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_31381,c,av);} -/* library.scm:5768: eos-handler */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a31386 in k31374 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31387(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,5)))){ -C_save_and_reclaim((void *)f_31387,c,av);} -a=C_alloc(4); -if(C_truep(t2)){ -/* library.scm:5770: loop */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_31366(t5,t1,t2,t3,t3,t4);} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31401,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5771: getline */ -t6=((C_word*)((C_word*)t0)[3])[1]; -f_31351(t6,t5);}} - -/* k31399 in a31386 in k31374 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31401(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31401,c,av);} -/* library.scm:5771: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_FALSE; -C_values(5,av2);}} - -/* k31408 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_31410,c,av);} -a=C_alloc(4); -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31421,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5776: getline */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_31351(t4,t3);} - -/* k31419 in k31408 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31421(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31421,c,av);} -/* library.scm:5776: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_TRUE; -C_values(5,av2);}} - -/* k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_31427(C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_31427,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31430,a[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:5780: conc */ -t3=((C_word*)((C_word*)t0)[5])[1]; -f_31308(t3,t2,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[2]);} -else{ -t2=C_eqp(((C_word*)t0)[8],C_fix(13)); -t3=(C_truep(t2)?C_eqp(((C_word*)t0)[9],C_fixnum_plus(((C_word*)t0)[2],C_fix(1))):C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31450,a[2]=((C_word*)t0)[10],a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[11],a[6]=((C_word*)t0)[12],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); -/* library.scm:5784: conc */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_31308(t5,t4,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[2]);} -else{ -t4=C_eqp(((C_word*)t0)[8],C_fix(13)); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31508,a[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:5798: conc */ -t6=((C_word*)((C_word*)t0)[5])[1]; -f_31308(t6,t5,((C_word*)t0)[6],((C_word*)t0)[7],((C_word*)t0)[2]);} -else{ -/* library.scm:5800: loop */ -t5=((C_word*)((C_word*)t0)[11])[1]; -f_31366(t5,((C_word*)t0)[3],((C_word*)t0)[6],((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)t0)[9]);}}}} - -/* k31428 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31430(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_31430,c,av);} -a=C_alloc(4); -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31441,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5781: getline */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_31351(t4,t3);} - -/* k31439 in k31428 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31441(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31441,c,av);} -/* library.scm:5781: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_TRUE; -C_values(5,av2);}} - -/* k31448 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31450(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_31450,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31455,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li888),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31461,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word)li889),tmp=(C_word)a,a+=6,tmp); -/* library.scm:5785: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[7]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a31454 in k31448 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31455(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_31455,c,av);} -/* library.scm:5785: eos-handler */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a31460 in k31448 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31461(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_31461,c,av);} -a=C_alloc(7); -if(C_truep(t2)){ -t5=C_eqp(C_subbyte(t2,t3),C_fix(10)); -if(C_truep(t5)){ -t6=C_fixnum_plus(t3,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31482,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5788: getline */ -t8=((C_word*)((C_word*)t0)[2])[1]; -f_31351(t8,t7);} -else{ -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31485,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:5791: conc1 */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_31331(t7,t6,C_fix(13));}} -else{ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31492,a[2]=t1,a[3]=t3,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* library.scm:5795: conc1 */ -t6=((C_word*)((C_word*)t0)[4])[1]; -f_31331(t6,t5,C_fix(13));}} - -/* k31480 in a31460 in k31448 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_31482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31482,c,av);} -/* library.scm:5788: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_TRUE; -C_values(5,av2);}} - -/* k31483 in a31460 in k31448 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_31485(C_word c,C_word *av){ -C_word tmp; -C_word 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_31485,c,av);} -/* library.scm:5792: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_31366(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* k31490 in a31460 in k31448 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_31492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31492,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31499,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5796: getline */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_31351(t3,t2);} - -/* k31497 in k31490 in a31460 in k31448 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_31499(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31499,c,av);} -/* library.scm:5796: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_TRUE; -C_values(5,av2);}} - -/* k31506 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31508(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_31508,c,av);} -a=C_alloc(4); -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31519,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5799: getline */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_31351(t4,t3);} - -/* k31517 in k31506 in k31425 in loop in k31293 in ##sys#scan-buffer-line in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31519,c,av);} -/* library.scm:5799: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_TRUE; -C_values(5,av2);}} - -/* ##sys#print-to-string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_31565,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31569,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5806: open-output-string */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k31567 in ##sys#print-to-string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31569(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_31569,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31570,a[2]=t1,a[3]=((C_word)li892),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[2],lf[820]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31580,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t1,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_31585,a[2]=t6,a[3]=t2,a[4]=((C_word)li893),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_31585(t8,t4,((C_word*)t0)[2]);} - -/* g6803 in k31567 in ##sys#print-to-string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31570(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_31570,3,t0,t1,t2);} -/* library.scm:5807: ##sys#print */ -t3=*((C_word*)lf[1011]+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);}} - -/* k31578 in k31567 in ##sys#print-to-string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31580(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_31580,c,av);} -/* library.scm:5808: get-output-string */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* for-each-loop6802 in k31567 in ##sys#print-to-string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31585(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_31585,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31595,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5807: g6803 */ -t4=((C_word*)t0)[3]; -f_31570(t4,t3,C_slot(t2,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);}}} - -/* k31593 in for-each-loop6802 in k31567 in ##sys#print-to-string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31595(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_31595,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_31585(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* ##sys#pointer->string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31608(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_31608,c,av);} -a=C_alloc(7); -if(C_truep(C_taggedpointerp(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31619,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:5816: ##sys#print-to-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1070]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1070]+1); -av2[1]=t3; -av2[2]=t6; -tp(3,av2);}} -else{ -t5=C_a_i_list1(&a,1,t4); -/* library.scm:5816: ##sys#print-to-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1070]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1070]+1); -av2[1]=t3; -av2[2]=t5; -tp(3,av2);}}} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31649,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_31653,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5822: ##sys#pointer->address */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1074]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1074]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}}} - -/* k31617 in ##sys#pointer->string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31619(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_31619,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31623,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_31627,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5820: ##sys#pointer->address */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1074]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1074]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k31621 in k31617 in ##sys#pointer->string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31623(C_word c,C_word *av){ -C_word tmp; -C_word 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_31623,c,av);} -/* library.scm:5814: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1071]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1072]; -av2[5]=t1; -av2[6]=lf[1073]; -((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} - -/* k31625 in k31617 in ##sys#pointer->string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31627(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_31627,c,av);} -/* library.scm:5820: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* k31647 in ##sys#pointer->string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31649(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31649,c,av);} -/* library.scm:5822: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1075]; -av2[3]=t1; -av2[4]=lf[1076]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k31651 in ##sys#pointer->string in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31653(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_31653,c,av);} -/* library.scm:5822: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_fix(16); -tp(4,av2);}} - -/* chicken.base#get-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31661(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_31661,c,av);} -a=C_alloc(6); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_fix(0):C_get_rest_arg(c,2,av,2,t0)); -t4=C_rest_nullp(c,2); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?C_fast_retrieve(lf[1077]):C_get_rest_arg(c,3,av,2,t0)); -t7=C_rest_nullp(c,3); -t8=C_fix((C_word)C_trace_buffer_size); -t9=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31677,a[2]=t3,a[3]=t8,a[4]=t6,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:5836: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t9; -av2[2]=C_fixnum_times(C_fix(5),t8); -av2[3]=C_SCHEME_FALSE; -tp(4,av2);}} - -/* k31675 in chicken.base#get-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31677(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_31677,c,av);} -a=C_alloc(10); -t2=C_fetch_trace(((C_word*)t0)[2],t1); -t3=C_fixnump(t2); -t4=(C_truep(t3)?t2:C_fixnum_times(C_fix(5),((C_word*)t0)[3])); -t5=(C_truep(((C_word*)t0)[4])?C_slot(((C_word*)t0)[4],C_fix(14)):C_SCHEME_FALSE); -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_31688,a[2]=t4,a[3]=t1,a[4]=t7,a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word)li896),tmp=(C_word)a,a+=8,tmp)); -t9=((C_word*)t7)[1]; -f_31688(t9,((C_word*)t0)[5],C_fix(0));} - -/* loop in k31675 in chicken.base#get-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31688(C_word t0,C_word t1,C_word 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_31688,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(4)); -t4=C_slot(((C_word*)t0)[3],t3); -t5=C_i_not(t4); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31707,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_31707(t7,t5);} -else{ -t7=C_i_not(((C_word*)t0)[5]); -t8=t6; -f_31707(t8,(C_truep(t7)?t7:C_eqp(((C_word*)t0)[6],t4)));}}} - -/* k31705 in loop in k31675 in chicken.base#get-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_31707(C_word t0,C_word 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_31707,2,t0,t1);} -a=C_alloc(11); -if(C_truep(t1)){ -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t3=C_slot(((C_word*)t0)[3],t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31729,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -if(C_truep(t3)){ -t5=t4;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -f_31729(2,av2);}} -else{ -t5=C_slot(((C_word*)t0)[3],((C_word*)t0)[2]); -t6=C_a_i_bytevector(&a,1,C_fix(3)); -/* library.scm:5831: ##sys#peek-nonnull-c-string */ -t7=*((C_word*)lf[1078]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t4; -av2[2]=stub6825(t6,t5); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} -else{ -/* library.scm:5851: loop */ -t2=((C_word*)((C_word*)t0)[5])[1]; -f_31688(t2,((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[2],C_fix(5)));}} - -/* k31716 in k31727 in k31705 in loop in k31675 in chicken.base#get-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31718(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_31718,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k31727 in k31705 in loop in k31675 in chicken.base#get-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31729(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_31729,c,av);} -a=C_alloc(8); -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(2)); -t3=C_slot(((C_word*)t0)[3],t2); -t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(3)); -t5=C_slot(((C_word*)t0)[3],t4); -t6=C_a_i_vector3(&a,3,t1,t3,t5); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31718,a[2]=((C_word*)t0)[4],a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5850: loop */ -t8=((C_word*)((C_word*)t0)[5])[1]; -f_31688(t8,t7,C_fixnum_plus(((C_word*)t0)[2],C_fix(5)));} - -/* ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31815(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=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_31815,c,av);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t3))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31825,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5855: ##sys#print */ -t6=*((C_word*)lf[1011]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t4; -av2[3]=C_SCHEME_FALSE; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_31825,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31826,a[2]=((C_word*)t0)[2],a[3]=((C_word)li899),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31892,a[2]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_31897,a[2]=t5,a[3]=t2,a[4]=((C_word)li900),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_31897(t7,t3,((C_word*)t0)[4]);} - -/* g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31826(C_word t0,C_word 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_31826,3,t0,t1,t2);} -a=C_alloc(8); -t3=C_slot(t2,C_fix(1)); -t4=C_slot(t2,C_fix(2)); -t5=C_i_structurep(t4,lf[1080]); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_31839,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t5,a[6]=t4,a[7]=t2,tmp=(C_word)a,a+=8,tmp); -/* library.scm:5861: ##sys#print */ -t7=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[1083]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} - -/* k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31839(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31839,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31842,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:5862: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_slot(((C_word*)t0)[7],C_fix(0)); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31840 in k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_31842(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_31842,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_31845,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:5863: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1082]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k31843 in k31840 in k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_31845(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_31845,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31848,a[2]=((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_31863,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_31863(t4,C_slot(((C_word*)t0)[6],C_fix(1)));} -else{ -t4=C_SCHEME_UNDEFINED; -t5=t3; -f_31863(t5,t4);}} -else{ -t4=t3; -f_31863(t4,C_SCHEME_FALSE);}} - -/* k31846 in k31843 in k31840 in k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_31848(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31848,c,av);} -a=C_alloc(5); -if(C_truep(((C_word*)t0)[2])){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31856,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li898),tmp=(C_word)a,a+=5,tmp); -/* library.scm:5873: ##sys#with-print-length-limit */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1065]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1065]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=C_fix(100); -av2[3]=t2; -tp(4,av2);}} -else{ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* a31855 in k31846 in k31843 in k31840 in k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_31856(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_31856,c,av);} -/* library.scm:5876: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_SCHEME_TRUE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k31861 in k31843 in k31840 in k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_31863(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_31863,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_31866,a[2]=((C_word*)t0)[2],a[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:5865: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t2; -av2[2]=C_make_character(91); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_31848(2,av2);}}} - -/* k31864 in k31861 in k31843 in k31840 in k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_31866(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_31866,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_31869,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])){ -/* library.scm:5866: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_slot(((C_word*)t0)[5],C_fix(1)); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -/* library.scm:5866: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k31867 in k31864 in k31861 in k31843 in k31840 in k31837 in g6872 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_31869(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31869,c,av);} -/* library.scm:5871: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1081]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k31890 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_31892(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31892,c,av);} -/* library.scm:5878: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1084]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* for-each-loop6871 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_31897(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_31897,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31907,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5856: g6872 */ -t4=((C_word*)t0)[3]; -f_31826(t4,t3,C_slot(t2,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);}}} - -/* k31905 in for-each-loop6871 in k31823 in ##sys#really-print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_31907(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_31907,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_31897(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* chicken.base#print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_31920(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word 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(5,c,3)))){ -C_save_and_reclaim((void *)f_31920,c,av);} -a=C_alloc(5); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?*((C_word*)lf[839]+1):C_get_rest_arg(c,2,av,2,t0)); -t4=C_rest_nullp(c,2); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?C_fix(0):C_get_rest_arg(c,3,av,2,t0)); -t7=C_rest_nullp(c,3); -t8=C_rest_nullp(c,4); -t9=(C_truep(t8)?C_fast_retrieve(lf[1077]):C_get_rest_arg(c,4,av,2,t0)); -t10=C_rest_nullp(c,4); -t11=C_rest_nullp(c,5); -t12=(C_truep(t11)?lf[1085]:C_get_rest_arg(c,5,av,2,t0)); -t13=C_rest_nullp(c,5); -t14=C_i_check_port_2(t3,C_fix(2),C_SCHEME_TRUE,lf[1086]); -t15=C_i_check_fixnum_2(t6,lf[1086]); -t16=C_i_check_string_2(t12,lf[1086]); -t17=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_31961,a[2]=t1,a[3]=t3,a[4]=t12,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5887: chicken.base#get-call-chain */ -t18=*((C_word*)lf[227]+1);{ -C_word av2[4]; -av2[0]=t18; -av2[1]=t17; -av2[2]=t6; -av2[3]=t9; -((C_proc)(void*)(*((C_word*)t18+1)))(4,av2);}} - -/* k31959 in chicken.base#print-call-chain in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_31961(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_31961,c,av);} -/* library.scm:5887: ##sys#really-print-call-chain */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1079]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[1079]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* ##sys#user-interrupt-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_32011(C_word c,C_word *av){ -C_word tmp; -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,3)))){ -C_save_and_reclaim((void *)f_32011,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32014,a[2]=((C_word)li903),tmp=(C_word)a,a+=3,tmp); -t3=C_eqp(C_fast_retrieve(lf[1077]),C_fast_retrieve(lf[1089])); -if(C_truep(t3)){ -/* library.scm:5893: ##sys#signal-hook */ -t4=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[1088]; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_setslot(C_fast_retrieve(lf[1089]),C_fix(1),t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* break in ##sys#user-interrupt-hook in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_32014(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_32014,c,av);} -/* library.scm:5893: ##sys#signal-hook */ -t2=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=lf[1088]; -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void f_32033(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_32033,1,t1);} -a=C_alloc(6); -t2=lf[1090] /* exit-in-progress */ =C_SCHEME_TRUE;; -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32038,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_dump_heap_on_exitp())){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32129,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5908: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[1098]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t4=t3;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_32038(2,av2);}}} - -/* k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_32038(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_32038,c,av);} -a=C_alloc(9); -t2=(C_truep(C_i_profilingp())?C_i_dump_statistical_profile():C_SCHEME_UNDEFINED); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32044,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_32081,a[2]=t5,a[3]=((C_word)li906),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_32081(t7,t3);} - -/* k32042 in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_32044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_32044,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32047,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=C_slot(C_fast_retrieve(lf[1095]),C_fix(0)); -if(C_truep(C_fixnum_greaterp(t3,C_fix(0)))){ -/* library.scm:5919: ##sys#run-pending-finalizers */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1096]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1096]+1); -av2[1]=t2; -av2[2]=C_SCHEME_FALSE; -tp(3,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_32047(2,av2);}}} - -/* k32045 in k32042 in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32047(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_32047,c,av);} -a=C_alloc(3); -if(C_truep(C_fixnum_greaterp(C_i_live_finalizer_count(),C_fix(0)))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32056,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_debug_modep())){ -/* library.scm:5922: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1094]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_32056(2,av2);}}} -else{ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k32054 in k32045 in k32042 in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_32056,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32062,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:5923: chicken.gc#force-finalizers */ -t3=C_fast_retrieve(lf[1093]);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k32060 in k32054 in k32045 in k32042 in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32062(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32062,c,av);} -if(C_truep(t1)){ -/* library.scm:5924: ##sys#force-finalizers */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1092]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1092]+1); -av2[1]=((C_word*)t0)[2]; -tp(2,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* loop in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void f_32081(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word 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_32081,2,t0,t1);} -a=C_alloc(10); -t2=*((C_word*)lf[259]+1); -t3=C_set_block_item(lf[259] /* chicken.base#cleanup-tasks */,0,C_SCHEME_END_OF_LIST); -if(C_truep(C_i_nullp(t2))){ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t4=C_i_check_list_2(t2,lf[820]); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32100,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_32105,a[2]=t7,a[3]=((C_word)li905),tmp=(C_word)a,a+=4,tmp)); -t9=((C_word*)t7)[1]; -f_32105(t9,t5,t2);}} - -/* k32098 in loop in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32100(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32100,c,av);} -/* library.scm:5917: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_32081(t2,((C_word*)t0)[3]);} - -/* for-each-loop6931 in loop in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void f_32105(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_32105,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32115,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5916: t */ -t4=C_slot(t2,C_fix(0));{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(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);}}} - -/* k32113 in for-each-loop6931 in loop in k32036 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32115(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_32115,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_32105(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k32127 in cleanup-before-exit in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_32129(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32129,c,av);} -/* library.scm:5909: ##sys#dump-heap-state */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1097]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1097]+1); -av2[1]=((C_word*)t0)[2]; -tp(2,av2);}} - -/* k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_32136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_32136,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[258]+1 /* (set! chicken.base#exit-handler ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32140,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41102,a[2]=((C_word)li1233),tmp=(C_word)a,a+=3,tmp); -/* library.scm:5937: scheme#make-parameter */ -t5=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_32140(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_32140,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[257]+1 /* (set! chicken.base#implicit-exit-handler ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32144,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41093,a[2]=((C_word)li1232),tmp=(C_word)a,a+=3,tmp); -/* library.scm:5942: scheme#make-parameter */ -t5=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_32144(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,5)))){ -C_save_and_reclaim((void *)f_32144,c,av);} -a=C_alloc(29); -t2=C_mutate((C_word*)lf[1099]+1 /* (set! ##sys#reset-handler ...) */,t1); -t3=C_mutate((C_word*)lf[1100]+1 /* (set! ##sys#dbg-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32146,a[2]=((C_word)li908),tmp=(C_word)a,a+=3,tmp)); -t4=C_a_i_provide(&a,1,lf[1101]); -t5=C_mutate((C_word*)lf[379]+1 /* (set! ##sys#signal-hook/errno ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32149,a[2]=((C_word)li911),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[235]+1 /* (set! ##sys#signal-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32443,a[2]=((C_word)li912),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[1103]+1 /* (set! chicken.condition#abort ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32458,a[2]=((C_word)li913),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[1142]+1 /* (set! chicken.condition#signal ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32475,a[2]=((C_word)li914),tmp=(C_word)a,a+=3,tmp)); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32483,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40951,a[2]=((C_word)li1231),tmp=(C_word)a,a+=3,tmp); -/* library.scm:6051: scheme#make-parameter */ -t11=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t11; -av2[1]=t9; -av2[2]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} - -/* ##sys#dbg-hook in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32146(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32146,c,av);} -t2=C_dbg_hook(C_SCHEME_FALSE); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32149(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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 +13,c,4)))){ -C_save_and_reclaim((void*)f_32149,c,av);} -a=C_alloc((c-5)*C_SIZEOF_PAIR+13); -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; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t7=C_dbg_hook(C_SCHEME_FALSE); -t8=signal_debug_event(t2,((C_word*)t6)[1],t5); -t9=C_eqp(t2,lf[1088]); -if(C_truep(t9)){ -t10=C_a_i_record3(&a,3,lf[1055],lf[1102],C_SCHEME_END_OF_LIST); -/* library.scm:5975: abort */ -t11=C_fast_retrieve(lf[1103]);{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t1; -av2[2]=t10; -((C_proc)(void*)(*((C_word*)t11+1)))(3,av2);}} -else{ -t10=C_eqp(t2,lf[372]); -t11=(C_truep(t10)?t10:C_eqp(t2,lf[374])); -if(C_truep(t11)){ -t12=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32175,a[2]=t1,a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -t13=C_eqp(t2,lf[372]); -if(C_truep(t13)){ -/* library.scm:5981: ##sys#print */ -t14=*((C_word*)lf[1011]+1);{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t12; -av2[2]=lf[1105]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}} -else{ -/* library.scm:5981: ##sys#print */ -t14=*((C_word*)lf[1011]+1);{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t12; -av2[2]=lf[1106]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t14+1)))(5,av2);}}} -else{ -t12=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32251,a[2]=t6,a[3]=t5,a[4]=t3,a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -t13=C_i_symbolp(((C_word*)t6)[1]); -t14=(C_truep(t13)?C_i_nullp(t5):C_SCHEME_FALSE); -if(C_truep(t14)){ -t15=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32426,a[2]=t6,a[3]=t12,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5999: scheme#symbol->string */ -t16=*((C_word*)lf[740]+1);{ -C_word *av2=av; -av2[0]=t16; -av2[1]=t15; -av2[2]=((C_word*)t6)[1]; -((C_proc)(void*)(*((C_word*)t16+1)))(3,av2);}} -else{ -t15=t12; -f_32251(t15,C_SCHEME_UNDEFINED);}}}} - -/* k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32175(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_32175,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32178,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:5984: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k32176 in k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32178(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_32178,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32181,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)[3]); -t4=(C_truep(t3)?t3:C_fixnum_greaterp(C_u_i_length(((C_word*)t0)[3]),C_fix(1))); -if(C_truep(t4)){ -/* library.scm:5986: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t2; -av2[2]=C_make_character(10); -av2[3]=*((C_word*)lf[840]+1); -tp(4,av2);}} -else{ -/* library.scm:5987: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=lf[1104]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}}} - -/* k32179 in k32176 in k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32181(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_32181,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32198,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_32203,a[2]=t4,a[3]=((C_word)li910),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_32203(t6,t2,((C_word*)t0)[3]);} - -/* a32187 in for-each-loop7010 in k32179 in k32176 in k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_32188(C_word c,C_word *av){ -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_32188,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32192,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5993: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_SCHEME_TRUE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k32190 in a32187 in for-each-loop7010 in k32179 in k32176 in k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_32192(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_32192,c,av);} -/* library.scm:5994: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(10); -av2[3]=*((C_word*)lf[840]+1); -tp(4,av2);}} - -/* k32196 in k32179 in k32176 in k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_32198(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_32198,c,av);} -/* library.scm:5996: ##sys#flush-output */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[885]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[885]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[840]+1); -tp(3,av2);}} - -/* for-each-loop7010 in k32179 in k32176 in k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_32203(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,0,3)))){ -C_save_and_reclaim_args((void *)trf_32203,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_32213,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32188,a[2]=t4,a[3]=((C_word)li909),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5990: ##sys#with-print-length-limit */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1065]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1065]+1); -av2[1]=t3; -av2[2]=C_fix(400); -av2[3]=t5; -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);}}} - -/* k32211 in for-each-loop7010 in k32179 in k32176 in k32173 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_32213(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_32213,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_32203(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k32249 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_32251(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_32251,2,t0,t1);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32254,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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*)((C_word*)t0)[2])[1]); -if(C_truep(t3)){ -t4=t2; -f_32254(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_32254(t5,(C_truep(t4)?C_i_pairp(((C_word*)t0)[3]):C_SCHEME_FALSE));}} - -/* k32252 in k32249 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_32254(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_32254,2,t0,t1);} -a=C_alloc(7); -t2=(C_truep(t1)?((C_word*)((C_word*)t0)[2])[1]:C_SCHEME_FALSE); -t3=(C_truep(t1)?C_slot(((C_word*)t0)[3],C_fix(0)):((C_word*)((C_word*)t0)[2])[1]); -t4=(C_truep(t1)?C_slot(((C_word*)t0)[3],C_fix(1)):((C_word*)t0)[3]); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_32274,a[2]=t3,a[3]=t4,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -t6=C_eqp(((C_word*)t0)[6],lf[295]); -if(C_truep(t6)){ -t7=t5; -f_32274(t7,lf[1112]);} -else{ -t7=C_eqp(((C_word*)t0)[6],lf[920]); -if(C_truep(t7)){ -t8=t5; -f_32274(t8,lf[1113]);} -else{ -t8=C_eqp(((C_word*)t0)[6],lf[472]); -if(C_truep(t8)){ -t9=t5; -f_32274(t9,lf[1114]);} -else{ -t9=C_eqp(((C_word*)t0)[6],lf[663]); -if(C_truep(t9)){ -t10=t5; -f_32274(t10,lf[1115]);} -else{ -t10=C_eqp(((C_word*)t0)[6],lf[467]); -if(C_truep(t10)){ -t11=t5; -f_32274(t11,lf[1116]);} -else{ -t11=C_eqp(((C_word*)t0)[6],lf[1117]); -if(C_truep(t11)){ -t12=t5; -f_32274(t12,lf[1118]);} -else{ -t12=C_eqp(((C_word*)t0)[6],lf[1119]); -if(C_truep(t12)){ -t13=t5; -f_32274(t13,lf[1120]);} -else{ -t13=C_eqp(((C_word*)t0)[6],lf[1121]); -if(C_truep(t13)){ -t14=t5; -f_32274(t14,lf[1122]);} -else{ -t14=C_eqp(((C_word*)t0)[6],lf[1123]); -if(C_truep(t14)){ -t15=t5; -f_32274(t15,lf[1124]);} -else{ -t15=C_eqp(((C_word*)t0)[6],lf[1125]); -if(C_truep(t15)){ -t16=t5; -f_32274(t16,lf[1126]);} -else{ -t16=C_eqp(((C_word*)t0)[6],lf[1127]); -if(C_truep(t16)){ -t17=t5; -f_32274(t17,lf[1128]);} -else{ -t17=C_eqp(((C_word*)t0)[6],lf[1129]); -if(C_truep(t17)){ -t18=t5; -f_32274(t18,lf[1130]);} -else{ -t18=C_eqp(((C_word*)t0)[6],lf[1131]); -if(C_truep(t18)){ -t19=t5; -f_32274(t19,lf[1132]);} -else{ -t19=C_eqp(((C_word*)t0)[6],lf[1133]); -t20=t5; -f_32274(t20,(C_truep(t19)?lf[1134]:lf[1135]));}}}}}}}}}}}}}} - -/* k32272 in k32252 in k32249 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_32274(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_32274,2,t0,t1);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_32292,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -/* library.scm:6026: chicken.base#get-call-chain */ -t3=*((C_word*)lf[227]+1);{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k32290 in k32272 in k32252 in k32249 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_32292(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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,c,2)))){ -C_save_and_reclaim((void *)f_32292,c,av);} -a=C_alloc(34); -t2=C_a_i_list8(&a,8,lf[1107],((C_word*)t0)[2],lf[1108],((C_word*)t0)[3],lf[1109],t1,lf[1110],((C_word*)t0)[4]); -if(C_truep(((C_word*)t0)[5])){ -t3=C_a_i_cons(&a,2,((C_word*)t0)[5],t2); -t4=C_a_i_cons(&a,2,lf[1111],t3); -t5=C_a_i_record3(&a,3,lf[1055],((C_word*)t0)[6],t4); -/* library.scm:6004: abort */ -t6=C_fast_retrieve(lf[1103]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[7]; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -t3=C_a_i_record3(&a,3,lf[1055],((C_word*)t0)[6],t2); -/* library.scm:6004: abort */ -t4=C_fast_retrieve(lf[1103]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[7]; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k32424 in ##sys#signal-hook/errno in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32426(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32426,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3]; -f_32251(t3,t2);} - -/* ##sys#signal-hook in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32443(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_32443,c,av);} -a=C_alloc((c-4)*C_SIZEOF_PAIR+0); -t4=C_build_rest(&a,c,4,av); -C_word t5; -if(C_truep(C_i_pairp(t4))){{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_fast_retrieve(lf[379]); -av2[3]=t2; -av2[4]=C_SCHEME_FALSE; -av2[5]=t3; -av2[6]=t4; -C_apply(7,av2);}} -else{ -/* library.scm:6035: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -av2[4]=t3; -tp(5,av2);}}} - -/* chicken.condition#abort in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32458(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_32458,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32462,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6038: ##sys#current-exception-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1141]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1141]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k32460 in chicken.condition#abort in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32462(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_32462,c,av);} -a=C_alloc(22); -t2=C_a_i_list6(&a,6,lf[1136],lf[1137],lf[1138],C_SCHEME_END_OF_LIST,lf[1139],C_SCHEME_FALSE); -t3=C_a_i_record3(&a,3,lf[1055],lf[1140],t2); -/* library.scm:6039: abort */ -t4=C_fast_retrieve(lf[1103]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* chicken.condition#signal in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32475(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_32475,c,av);} -/* library.scm:6048: ##sys#current-exception-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1141]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1141]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} - -/* k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_32483(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(39,c,5)))){ -C_save_and_reclaim((void *)f_32483,c,av);} -a=C_alloc(39); -t2=C_mutate((C_word*)lf[1143]+1 /* (set! ##sys#error-handler ...) */,t1); -t3=C_set_block_item(lf[1144] /* ##sys#last-exception */,0,C_SCHEME_FALSE); -t4=C_mutate((C_word*)lf[1141]+1 /* (set! ##sys#current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32486,a[2]=((C_word)li915),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1060]+1 /* (set! chicken.condition#with-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32646,a[2]=((C_word)li918),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1160]+1 /* (set! chicken.condition#current-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32660,a[2]=((C_word)li920),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate(&lf[1162] /* (set! chicken.condition#prop-list->kind-prefixed-prop-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32721,a[2]=((C_word)li922),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[1164]+1 /* (set! chicken.condition#make-property-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32789,a[2]=((C_word)li923),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[1166]+1 /* (set! chicken.condition#make-composite-condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32803,a[2]=((C_word)li927),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[1168]+1 /* (set! chicken.condition#condition ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32943,a[2]=((C_word)li930),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[1169]+1 /* (set! chicken.condition#condition? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33048,a[2]=((C_word)li931),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[1170]+1 /* (set! chicken.condition#condition->list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33054,a[2]=((C_word)li935),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[1173]+1 /* (set! chicken.condition#condition-predicate ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33172,a[2]=((C_word)li937),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[1174]+1 /* (set! chicken.condition#condition-property-accessor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33193,a[2]=((C_word)li939),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[1177]+1 /* (set! chicken.condition#get-condition-property ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33239,a[2]=((C_word)li940),tmp=(C_word)a,a+=3,tmp)); -t16=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33250,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6229: chicken.condition#condition-property-accessor */ -t17=C_fast_retrieve(lf[1174]);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t17; -av2[1]=t16; -av2[2]=lf[1147]; -av2[3]=lf[1259]; -av2[4]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t17+1)))(5,av2);}} - -/* ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32486(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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(14,c,4)))){ -C_save_and_reclaim((void *)f_32486,c,av);} -a=C_alloc(14); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32490,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_structurep(t2,lf[1055]))){ -t4=C_mutate((C_word*)lf[1144]+1 /* (set! ##sys#last-exception ...) */,t2); -t5=C_slot(t2,C_fix(1)); -if(C_truep(C_i_memq(lf[1147],t5))){ -t6=C_slot(t2,C_fix(2)); -t7=C_i_member(lf[1148],t6); -t8=C_i_member(lf[1149],t6); -t9=C_i_member(lf[1150],t6); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32529,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t11=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_32539,a[2]=t8,a[3]=t10,a[4]=t7,a[5]=t9,tmp=(C_word)a,a+=6,tmp); -/* library.scm:6098: ##sys#error-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1143]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1143]+1); -av2[1]=t11; -tp(2,av2);}} -else{ -t6=C_slot(t5,C_fix(0)); -t7=C_eqp(lf[1155],t6); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32600,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6116: ##sys#print */ -t9=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=lf[1156]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} -else{ -t8=C_slot(t5,C_fix(0)); -t9=C_eqp(lf[1157],t8); -if(C_truep(t9)){ -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32615,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6119: ##sys#error-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1143]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1143]+1); -av2[1]=t10; -tp(2,av2);}} -else{ -t10=C_a_i_list2(&a,2,lf[1145],t2); -t11=C_a_i_record3(&a,3,lf[1055],lf[1146],t10); -/* library.scm:6123: abort */ -t12=C_fast_retrieve(lf[1103]);{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t1; -av2[2]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}}}}} -else{ -t4=C_a_i_list2(&a,2,lf[1145],t2); -t5=C_a_i_record3(&a,3,lf[1055],lf[1146],t4); -/* library.scm:6123: abort */ -t6=C_fast_retrieve(lf[1103]);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* k32488 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32490(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_32490,c,av);} -a=C_alloc(10); -t2=C_a_i_list2(&a,2,lf[1145],((C_word*)t0)[2]); -t3=C_a_i_record3(&a,3,lf[1055],lf[1146],t2); -/* library.scm:6123: abort */ -t4=C_fast_retrieve(lf[1103]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k32527 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32529(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_32529,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32532,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6114: ##sys#reset-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1099]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1099]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k32530 in k32527 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32532(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32532,c,av);} -/* library.scm:6093: g7145 */ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* k32537 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32539(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_32539,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32543,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(((C_word*)t0)[4])){ -t3=C_i_cadr(((C_word*)t0)[4]); -t4=(C_truep(((C_word*)t0)[5])?C_i_cadr(((C_word*)t0)[5]):C_SCHEME_FALSE); -t5=(C_truep(t4)?C_i_symbolp(t4):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32569,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6104: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t6; -av2[2]=t4; -tp(3,av2);}} -else{ -t6=t2;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t3; -f_32543(2,av2);}}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[1154]; -f_32543(2,av2);}}} - -/* k32541 in k32537 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32543(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_32543,c,av);} -if(C_truep(((C_word*)t0)[2])){{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -av2[4]=C_i_cadr(((C_word*)t0)[2]); -C_apply(5,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}}} - -/* k32567 in k32537 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32569(C_word c,C_word *av){ -C_word tmp; -C_word 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_32569,c,av);} -if(C_truep(C_i_symbolp(((C_word*)t0)[2]))){ -/* library.scm:6103: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[1151]; -av2[3]=t1; -av2[4]=lf[1152]; -av2[5]=C_slot(((C_word*)t0)[2],C_fix(1)); -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} -else{ -if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ -/* library.scm:6103: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[1151]; -av2[3]=t1; -av2[4]=lf[1152]; -av2[5]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} -else{ -/* library.scm:6103: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[1151]; -av2[3]=t1; -av2[4]=lf[1152]; -av2[5]=lf[1153]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}}} - -/* k32598 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32600(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_32600,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32603,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6117: ##sys#reset-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1099]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1099]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k32601 in k32598 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32603,c,av);} -/* library.scm:6092: g7148 */ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* k32613 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32615(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_32615,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32618,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[1158],t3); -/* library.scm:6092: g7151 */ -t5=t1;{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t2; -av2[2]=lf[1159]; -av2[3]=C_i_cadr(t4); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} - -/* k32616 in k32613 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_32618,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32621,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6122: ##sys#reset-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1099]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1099]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k32619 in k32616 in k32613 in ##sys#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_32621(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_32621,c,av);} -/* library.scm:6092: g7153 */ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* chicken.condition#with-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32646(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_32646,c,av);} -a=C_alloc(8); -t4=C_fast_retrieve(lf[1141]); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32652,a[2]=t2,a[3]=((C_word)li916),tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32656,a[2]=t4,a[3]=((C_word)li917),tmp=(C_word)a,a+=4,tmp); -/* library.scm:6131: ##sys#dynamic-wind */ -t7=*((C_word*)lf[824]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t1; -av2[2]=t5; -av2[3]=t3; -av2[4]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} - -/* a32651 in chicken.condition#with-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32652(C_word c,C_word *av){ -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_32652,c,av);} -t2=C_mutate((C_word*)lf[1141]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a32655 in chicken.condition#with-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32656(C_word c,C_word *av){ -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_32656,c,av);} -t2=C_mutate((C_word*)lf[1141]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.condition#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32660(C_word c,C_word *av){ -C_word tmp; -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_32660,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; -if(C_truep(C_i_nullp(t2))){ -t3=C_fast_retrieve(lf[1141]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fast_retrieve(lf[1141]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32673,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6141: ##sys#check-closure */ -t5=*((C_word*)lf[434]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -av2[3]=lf[1161]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}} - -/* k32671 in chicken.condition#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32673(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,c,2)))){ -C_save_and_reclaim((void *)f_32673,c,av);} -a=C_alloc(10); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32675,a[2]=((C_word*)t0)[3],a[3]=((C_word)li919),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32681,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32686,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_nullp(t2))){ -t6=( -/* library.scm:6142: def-convert?7169 */ - f_32686(t5) -); -t7=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t6=C_i_car(t2); -t7=C_u_i_cdr(t2); -if(C_truep(C_i_nullp(t7))){ -t8=( -/* library.scm:6142: def-set?7170 */ - f_32681(t4) -); -t9=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t8=C_i_car(t7); -t9=C_u_i_cdr(t7); -t10=( -/* library.scm:6142: body7167 */ - f_32675(t3,t8) -); -t11=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t11; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}}}} - -/* body7167 in k32671 in chicken.condition#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static C_word f_32675(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -if(C_truep(t1)){ -t2=C_mutate((C_word*)lf[1141]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); -return(t2);} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* def-set?7170 in k32671 in chicken.condition#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static C_word f_32681(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:6142: body7167 */ - f_32675(((C_word*)t0)[2],C_SCHEME_TRUE) -));} - -/* def-convert?7169 in k32671 in chicken.condition#current-exception-handler in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static C_word f_32686(C_word t0){ -C_word tmp; -C_word t1; -C_stack_overflow_check;{} -return(( -/* library.scm:6142: def-set?7170 */ - f_32681(((C_word*)t0)[2]) -));} - -/* chicken.condition#prop-list->kind-prefixed-prop-list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void f_32721(C_word 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_32721,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_32727,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t6,a[6]=((C_word)li921),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_32727(t8,t1,t4);} - -/* loop in chicken.condition#prop-list->kind-prefixed-prop-list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_32727(C_word t0,C_word 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_32727,3,t0,t1,t2);} -a=C_alloc(8); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_pairp(t2); -t4=C_i_not(t3); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_32743,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=((C_word*)t0)[4],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -if(C_truep(t4)){ -t6=t5; -f_32743(t6,t4);} -else{ -t6=C_i_cdr(t2); -t7=t5; -f_32743(t7,C_i_not(C_i_pairp(t6)));}}} - -/* k32741 in loop in chicken.condition#prop-list->kind-prefixed-prop-list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_32743(C_word t0,C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_32743,2,t0,t1);} -a=C_alloc(8); -if(C_truep(t1)){ -/* library.scm:6152: ##sys#signal-hook */ -t2=*((C_word*)lf[235]+1);{ -C_word av2[6]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[295]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1163]; -av2[5]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} -else{ -t2=C_i_car(((C_word*)t0)[5]); -t3=C_a_i_cons(&a,2,((C_word*)t0)[6],t2); -t4=C_i_cadr(((C_word*)t0)[5]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_32765,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t6=C_u_i_cdr(((C_word*)t0)[5]); -/* library.scm:6156: loop */ -t7=((C_word*)((C_word*)t0)[7])[1]; -f_32727(t7,t5,C_u_i_cdr(t6));}} - -/* k32763 in k32741 in loop in chicken.condition#prop-list->kind-prefixed-prop-list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_32765(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_32765,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.condition#make-property-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32789(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_32789,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=C_a_i_list1(&a,1,t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32801,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6161: prop-list->kind-prefixed-prop-list */ -f_32721(t5,lf[1165],t2,t3);} - -/* k32799 in chicken.condition#make-property-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32801(C_word c,C_word *av){ -C_word tmp; -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_32801,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_record3(&a,3,lf[1055],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32803(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_32803,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; -t4=C_a_i_cons(&a,2,t2,t3); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32920,a[2]=((C_word)li924),tmp=(C_word)a,a+=3,tmp); -t6=( - f_32920(t4) -); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32822,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,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_32884,a[2]=t7,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|5,a[1]=(C_word)f_32886,a[2]=t10,a[3]=t14,a[4]=t11,a[5]=((C_word)li926),tmp=(C_word)a,a+=6,tmp)); -t16=((C_word*)t14)[1]; -f_32886(t16,t12,t4);} - -/* k32820 in chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(20,c,3)))){ -C_save_and_reclaim((void *)f_32822,c,av);} -a=C_alloc(20); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32826,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_32838,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|5,a[1]=(C_word)f_32840,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li925),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_32840(t11,t7,((C_word*)t0)[3]);} - -/* k32824 in k32820 in chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32826(C_word c,C_word *av){ -C_word tmp; -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_32826,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_record3(&a,3,lf[1055],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k32836 in k32820 in chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32838(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_32838,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[291]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop7256 in k32820 in chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_32840(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_32840,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_slot(t3,C_fix(2)); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k32882 in chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32884(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_32884,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[291]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop7229 in chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_32886(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_32886,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_slot(t3,C_fix(1)); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop7211 in chicken.condition#make-composite-condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static C_word f_32920(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_structure_2(t2,lf[1055],lf[1167]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* chicken.condition#condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_32943(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand((c-3)*C_SIZEOF_PAIR +23,c,3)))){ -C_save_and_reclaim((void*)f_32943,c,av);} -a=C_alloc((c-3)*C_SIZEOF_PAIR+23); -t3=C_build_rest(&a,c,3,av); -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -t4=C_a_i_cons(&a,2,t2,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_32950,a[2]=t1,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33012,a[2]=t5,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_33014,a[2]=t8,a[3]=t12,a[4]=t9,a[5]=((C_word)li929),tmp=(C_word)a,a+=6,tmp)); -t14=((C_word*)t12)[1]; -f_33014(t14,t10,t4);} - -/* k32948 in chicken.condition#condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_32950(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_32950,c,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_32960,a[2]=((C_word*)t0)[2],a[3]=t1,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_32962,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li928),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_32962(t10,t6,((C_word*)t0)[3]);} - -/* k32958 in k32948 in chicken.condition#condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_32960(C_word c,C_word *av){ -C_word tmp; -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_32960,c,av);} -a=C_alloc(4); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_record3(&a,3,lf[1055],t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop7316 in k32948 in chicken.condition#condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_32962(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_32962,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k33010 in chicken.condition#condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_33012(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_33012,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[291]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop7289 in chicken.condition#condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void f_33014(C_word t0,C_word t1,C_word t2){ -C_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_33014,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33039,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_slot(t2,C_fix(0)); -/* library.scm:6176: prop-list->kind-prefixed-prop-list */ -f_32721(t3,lf[1055],C_i_car(t4),C_u_i_cdr(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);}}} - -/* k33037 in map-loop7289 in chicken.condition#condition in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_33039(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_33039,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_33014(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* chicken.condition#condition? in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_33048(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_33048,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_structurep(t2,lf[1055]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_33054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33054,c,av);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33058,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33167,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6184: condition? */ -t5=C_fast_retrieve(lf[1169]);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* k33056 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_33058(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_33058,c,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_33062,a[2]=((C_word*)t0)[2],a[3]=((C_word)li933),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[822]); -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_33132,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li934),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_33132(t12,((C_word*)t0)[3],t7);} - -/* g7352 in k33056 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_33062(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_33062,3,t0,t1,t2);} -a=C_alloc(11); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33070,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_33076,a[2]=t2,a[3]=t6,a[4]=((C_word)li932),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_33076(t8,t3,t4);} - -/* k33068 in g7352 in k33056 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_33070(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_33070,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop in g7352 in k33056 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_33076(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -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,2)))){ -C_save_and_reclaim_args((void *)trf_33076,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_caar(t2); -t4=C_eqp(t3,((C_word*)t0)[2]); -if(C_truep(t4)){ -t5=C_u_i_car(t2); -t6=C_u_i_cdr(t5); -t7=C_i_cadr(t2); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33107,a[2]=t7,a[3]=t1,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -t9=C_u_i_cdr(t2); -/* library.scm:6194: loop */ -t11=t8; -t12=C_u_i_cdr(t9); -t1=t11; -t2=t12; -goto loop;} -else{ -/* library.scm:6196: loop */ -t11=t1; -t12=C_i_cddr(t2); -t1=t11; -t2=t12; -goto loop;}}} - -/* k33105 in loop in g7352 in k33056 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_33107(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33107,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[4],t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* map-loop7346 in k33056 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void f_33132(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_33132,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33157,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); -/* library.scm:6188: g7352 */ -t4=((C_word*)t0)[4]; -f_33062(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k33155 in map-loop7346 in k33056 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_33157(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_33157,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_33132(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k33165 in chicken.condition#condition->list in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_33167(C_word c,C_word *av){ -C_word tmp; -C_word 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_33167,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -f_33058(2,av2);}} -else{ -/* library.scm:6185: ##sys#signal-hook */ -t2=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[295]; -av2[3]=lf[1171]; -av2[4]=lf[1172]; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* chicken.condition#condition-predicate in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_33172(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -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_33172,c,av);} -a=C_alloc(4); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33174,a[2]=t2,a[3]=((C_word)li936),tmp=(C_word)a,a+=4,tmp); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* f_33174 in chicken.condition#condition-predicate in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_33174(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_33174,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33181,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6201: condition? */ -t4=C_fast_retrieve(lf[1169]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k33179 */ -static void C_ccall f_33181(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_33181,c,av);} -if(C_truep(t1)){ -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=C_i_memv(((C_word*)t0)[3],t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_SCHEME_TRUE:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.condition#condition-property-accessor in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_33193(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_33193,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; -t5=C_i_nullp(t4); -t6=C_a_i_cons(&a,2,t2,t3); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33201,a[2]=t2,a[3]=t6,a[4]=t5,a[5]=t3,a[6]=t4,a[7]=((C_word)li938),tmp=(C_word)a,a+=8,tmp); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* f_33201 in chicken.condition#condition-property-accessor in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_33201(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_33201,c,av);} -t3=C_i_check_structure(t2,lf[1055]); -t4=C_slot(t2,C_fix(1)); -if(C_truep(C_i_memv(((C_word*)t0)[2],t4))){ -t5=C_slot(t2,C_fix(2)); -t6=C_i_member(((C_word*)t0)[3],t5); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_i_cadr(t6); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[4])){ -/* library.scm:6212: ##sys#signal-hook */ -t7=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t7; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=lf[1175]; -av2[4]=lf[1176]; -av2[5]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t7+1)))(6,av2);}} -else{ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_i_car(((C_word*)t0)[6]); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}}} -else{ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* chicken.condition#get-condition-property in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_33239(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_33239,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_33243,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=t6; -av2[2]=C_fast_retrieve(lf[1174]); -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -C_apply(6,av2);}} - -/* k33241 in chicken.condition#get-condition-property in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_33243(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_33243,c,av);} -/* library.scm:6218: g7401 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_33250(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33250,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33253,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6230: chicken.condition#condition-property-accessor */ -t3=C_fast_retrieve(lf[1174]);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1147]; -av2[3]=lf[980]; -av2[4]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_33253(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33253,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33256,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6231: chicken.condition#condition-property-accessor */ -t3=C_fast_retrieve(lf[1174]);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1147]; -av2[3]=lf[1261]; -av2[4]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_33256(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_33256,c,av);} -a=C_alloc(26); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33257,a[2]=((C_word)li944),tmp=(C_word)a,a+=3,tmp); -t3=C_mutate((C_word*)lf[1178]+1 /* (set! chicken.condition#print-error-message ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_33302,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li949),tmp=(C_word)a,a+=7,tmp)); -t4=C_fast_retrieve(lf[1178]); -t5=*((C_word*)lf[228]+1); -t6=*((C_word*)lf[318]+1); -t7=*((C_word*)lf[320]+1); -t8=C_mutate((C_word*)lf[1190]+1 /* (set! ##sys#show-exception-warning ...) */,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_33493,a[2]=t5,a[3]=t4,a[4]=t7,a[5]=t6,a[6]=((C_word)li950),tmp=(C_word)a,a+=7,tmp)); -t9=C_mutate((C_word*)lf[439]+1 /* (set! ##sys#error-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_33542,a[2]=((C_word)li951),tmp=(C_word)a,a+=3,tmp)); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34272,a[2]=((C_word*)t0)[4],tmp=(C_word)a,a+=3,tmp); -t11=C_a_i_list1(&a,1,C_fast_retrieve(lf[1141])); -t12=C_i_setslot(t11,C_fix(1),t11); -/* library.scm:6399: scheme#make-parameter */ -t13=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t13; -av2[1]=t10; -av2[2]=t11; -((C_proc)(void*)(*((C_word*)t13+1)))(3,av2);}} - -/* writeargs in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void f_33257(C_word t1,C_word t2,C_word 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_33257,3,t1,t2,t3);} -a=C_alloc(11); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33259,a[2]=t3,a[3]=((C_word)li942),tmp=(C_word)a,a+=4,tmp); -t5=C_i_check_list_2(t2,lf[820]); -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_33280,a[2]=t7,a[3]=t4,a[4]=((C_word)li943),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_33280(t9,t1,t2);} - -/* g7417 in writeargs in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_33259(C_word t0,C_word t1,C_word 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_33259,3,t0,t1,t2);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33263,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_33268,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word)li941),tmp=(C_word)a,a+=5,tmp); -/* library.scm:6236: ##sys#with-print-length-limit */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1065]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1065]+1); -av2[1]=t3; -av2[2]=C_fix(80); -av2[3]=t4; -tp(4,av2);}} - -/* k33261 in g7417 in writeargs in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_33263(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_33263,c,av);} -/* library.scm:6237: newline */ -t2=*((C_word*)lf[191]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a33267 in g7417 in writeargs in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_33268(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_33268,c,av);} -/* library.scm:6236: write */ -t2=*((C_word*)lf[192]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* for-each-loop7416 in writeargs in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_33280(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_33280,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33290,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6234: g7417 */ -t4=((C_word*)t0)[3]; -f_33259(t4,t3,C_slot(t2,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);}}} - -/* k33288 in for-each-loop7416 in writeargs in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_33290(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_33290,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_33280(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_33302(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(16,c,4)))){ -C_save_and_reclaim((void *)f_33302,c,av);} -a=C_alloc(16); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33304,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)li946),tmp=(C_word)a,a+=8,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33453,a[2]=t3,a[3]=((C_word)li947),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33458,a[2]=t4,a[3]=((C_word)li948),tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_rest_nullp(c,3))){ -/* library.scm:6240: def-port7439 */ -t6=t5; -f_33458(t6,t1);} -else{ -t6=C_get_rest_arg(c,3,av,3,t0); -if(C_truep(C_rest_nullp(c,4))){ -/* library.scm:6240: def-header7440 */ -t7=t4; -f_33453(t7,t1,t6);} -else{ -t7=C_get_rest_arg(c,4,av,3,t0); -/* library.scm:6240: body7437 */ -t8=t3; -f_33304(t8,t1,t6,t7);}}} - -/* body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_33304(C_word 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,2)))){ -C_save_and_reclaim_args((void *)trf_33304,4,t0,t1,t2,t3);} -a=C_alloc(10); -t4=C_i_check_port_2(t2,C_fix(2),C_SCHEME_TRUE,lf[1179]); -t5=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_33311,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],a[9]=t3,tmp=(C_word)a,a+=10,tmp); -/* library.scm:6243: newline */ -t6=*((C_word*)lf[191]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_33311(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_33311,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_33314,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:6244: display */ -t3=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[9]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_33314(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_33314,c,av);} -a=C_alloc(8); -t2=C_immp(((C_word*)t0)[2]); -t3=C_i_not(t2); -t4=(C_truep(t3)?C_eqp(lf[1055],C_slot(((C_word*)t0)[2],C_fix(0))):C_SCHEME_FALSE); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_33323,a[2]=((C_word*)t0)[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); -/* library.scm:6246: errmsg */ -t6=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} -else{ -if(C_truep(C_i_stringp(((C_word*)t0)[2]))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33422,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); -/* library.scm:6270: display */ -t6=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[1187]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33431,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:6274: display */ -t6=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[1188]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}}} - -/* k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_33323(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_33323,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_33326,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_33358,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[6],a[5]=((C_word)li945),tmp=(C_word)a,a+=6,tmp); -/* library.scm:6246: g7460 */ -t4=t3; -f_33358(t4,t2,t1);} -else{ -t3=C_slot(((C_word*)t0)[6],C_fix(1)); -if(C_truep(C_i_equalp(lf[1184],t3))){ -/* library.scm:6256: display */ -t4=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[1185]; -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_33406,a[2]=t2,a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6258: display */ -t5=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[1186]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} - -/* k33324 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_33326(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33326,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33329,a[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:6260: errargs */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k33327 in k33324 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_33329(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_33329,c,av);} -a=C_alloc(6); -t2=C_i_not(t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_length(t1); -t4=C_eqp(C_fix(1),t3); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_33344,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* library.scm:6264: display */ -t6=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[1180]; -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_33350,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* library.scm:6267: newline */ -t6=*((C_word*)lf[191]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}}} - -/* k33342 in k33327 in k33324 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_33344(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_33344,c,av);} -/* library.scm:6265: writeargs */ -f_33257(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k33348 in k33327 in k33324 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_33350(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_33350,c,av);} -/* library.scm:6268: writeargs */ -f_33257(((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* g7460 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void f_33358(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_33358,3,t0,t1,t2);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_33362,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:6248: display */ -t4=*((C_word*)lf[193]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1183]; -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k33360 in g7460 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_33362(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33362,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33365,a[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:6249: errloc */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k33363 in k33360 in g7460 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_33365(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_33365,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33368,a[2]=((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_33381,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_33385,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6251: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t5; -av2[2]=t1; -tp(3,av2);}} -else{ -/* library.scm:6252: display */ -t4=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k33366 in k33363 in k33360 in g7460 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_33368(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_33368,c,av);} -/* library.scm:6252: display */ -t2=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k33379 in k33363 in k33360 in g7460 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_33381(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_33381,c,av);} -/* library.scm:6251: display */ -t2=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k33383 in k33363 in k33360 in g7460 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_33385(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_33385,c,av);} -/* library.scm:6251: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1181]; -av2[3]=t1; -av2[4]=lf[1182]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k33404 in k33321 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_33406(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_33406,c,av);} -/* library.scm:6259: display */ -t2=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_slot(((C_word*)t0)[3],C_fix(1)); -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k33420 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_33422(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33422,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33425,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6271: display */ -t3=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k33423 in k33420 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_33425(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_33425,c,av);} -/* library.scm:6272: newline */ -t2=*((C_word*)lf[191]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k33429 in k33312 in k33309 in body7437 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_33431(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33431,c,av);} -a=C_alloc(3); -t2=C_a_i_list1(&a,1,((C_word*)t0)[2]); -/* library.scm:6275: writeargs */ -f_33257(((C_word*)t0)[4],t2,((C_word*)t0)[5]);} - -/* def-header7440 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_33453(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_33453,3,t0,t1,t2);} -/* library.scm:6240: body7437 */ -t3=((C_word*)t0)[2]; -f_33304(t3,t1,t2,lf[1189]);} - -/* def-port7439 in chicken.condition#print-error-message in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_33458(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_33458,2,t0,t1);} -/* library.scm:6240: def-header7440 */ -t2=((C_word*)t0)[2]; -f_33453(t2,t1,*((C_word*)lf[839]+1));} - -/* ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_33493(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_33493,c,av);} -a=C_alloc(9); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_fast_retrieve(lf[1077]):C_get_rest_arg(c,4,av,4,t0)); -if(C_truep(*((C_word*)lf[369]+1))){ -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_33503,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t5,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:6290: open-output-string */ -t7=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t6=C_SCHEME_UNDEFINED; -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_33503(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_33503,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_33506,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* library.scm:6291: display */ -t3=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1193]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_33506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_33506,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_33509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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_33528,a[2]=t2,a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6293: display */ -t4=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1192]; -av2[3]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_33509(2,av2);}}} - -/* k33507 in k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_33509(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_33509,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_33512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],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:6296: display */ -t3=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1191]; -av2[3]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k33510 in k33507 in k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_33512(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_33512,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_33515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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:6297: display */ -t3=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[9]; -av2[3]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k33513 in k33510 in k33507 in k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_33515(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_33515,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33518,a[2]=((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_33525,a[2]=((C_word*)t0)[5],a[3]=t2,a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6298: get-output-string */ -t4=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k33516 in k33513 in k33510 in k33507 in k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_33518(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_33518,c,av);} -/* library.scm:6299: print-call-chain */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=*((C_word*)lf[840]+1); -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k33523 in k33513 in k33510 in k33507 in k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_33525(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_33525,c,av);} -/* library.scm:6298: print-error-message */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=*((C_word*)lf[840]+1); -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k33526 in k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_33528(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33528,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33531,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6294: display */ -t3=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k33529 in k33526 in k33504 in k33501 in ##sys#show-exception-warning in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_33531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_33531,c,av);} -/* ##sys#write-char/port */ -t2=C_fast_retrieve(lf[1008]);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(41); -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_33542(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_33542,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; -C_word t20; -switch(t2){ -case C_fix(1): -t5=C_get_rest_arg(c,4,av,4,t0); -t6=C_i_cadr(t4); -t7=C_i_caddr(t4); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33565,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33576,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6314: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t9; -av2[2]=t6; -tp(3,av2);} -case C_fix(2): -t5=C_get_rest_arg(c,4,av,4,t0); -t6=C_i_cadr(t4); -t7=C_i_caddr(t4); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_33602,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33613,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6323: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t9; -av2[2]=t6; -tp(3,av2);} -case C_fix(3):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1198]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(4):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1117]; -av2[4]=t3; -av2[5]=lf[1199]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(5):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1200]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(6):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1125]; -av2[4]=t3; -av2[5]=lf[1201]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(7):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[663]; -av2[4]=t3; -av2[5]=lf[1202]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(8):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[472]; -av2[4]=t3; -av2[5]=lf[1203]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(9):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1204]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(10):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1127]; -av2[4]=t3; -av2[5]=lf[1205]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(11):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1206]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(12):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1125]; -av2[4]=t3; -av2[5]=lf[1207]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(13):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1208]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(14):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1209]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(15):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1210]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(16):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1211]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(17):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1212]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(18):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1213]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(19):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1214]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(20):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1215]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(21):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1216]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(22):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1217]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(23):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1125]; -av2[4]=t3; -av2[5]=lf[1218]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(24):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1219]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(25):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1220]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(26):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1221]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(27):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1222]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(28):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1223]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(29):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1224]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(30):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1225]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(31):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1226]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(32):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1227]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(33):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1228]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(34):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1229]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(35):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1230]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(36):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1125]; -av2[4]=t3; -av2[5]=lf[1231]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(37):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1232]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(38):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1233]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(39):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1234]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(40):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1235]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(41):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1236]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(42):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1237]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(43):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[467]; -av2[4]=t3; -av2[5]=lf[1238]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(44):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1239]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(45):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1133]; -av2[4]=t3; -av2[5]=lf[1240]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(46):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[663]; -av2[4]=t3; -av2[5]=lf[1241]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(47):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1117]; -av2[4]=t3; -av2[5]=lf[1242]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(48):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1133]; -av2[4]=t3; -av2[5]=lf[1243]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(49):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1244]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(50):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1245]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(51):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1246]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(52):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1247]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(53):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1248]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(54):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1249]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(55):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1250]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(56): -t5=C_get_rest_arg(c,4,av,4,t0); -t6=C_i_cadr(t4); -t7=C_i_caddr(t4); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34116,a[2]=t7,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34127,a[2]=t8,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6385: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t9; -av2[2]=t6; -tp(3,av2);} -case C_fix(57):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1253]; -av2[6]=t4; -C_apply(7,av2);} -case C_fix(58):{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=t3; -av2[5]=lf[1254]; -av2[6]=t4; -C_apply(7,av2);} -default:{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1117]; -av2[4]=t3; -av2[5]=lf[1255]; -av2[6]=t4; -C_apply(7,av2);}}} - -/* k33563 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_33565(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_33565,c,av);} -a=C_alloc(3); -if(C_truep(((C_word*)t0)[2])){ -t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1127]; -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[235]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[235]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[1127]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -tp(5,av2);}}} - -/* k33574 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_33576(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33576,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33580,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6315: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k33578 in k33574 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_33580(C_word c,C_word *av){ -C_word tmp; -C_word 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_33580,c,av);} -/* library.scm:6314: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1194]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1195]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k33600 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_33602(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_33602,c,av);} -a=C_alloc(3); -if(C_truep(((C_word*)t0)[2])){ -t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[1127]; -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[235]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[235]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[1127]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -tp(5,av2);}}} - -/* k33611 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_33613(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_33613,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_33617,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6324: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k33615 in k33611 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_33617(C_word c,C_word *av){ -C_word tmp; -C_word 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_33617,c,av);} -/* library.scm:6323: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1196]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1197]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k34114 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_34116(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,6)))){ -C_save_and_reclaim((void *)f_34116,c,av);} -a=C_alloc(3); -if(C_truep(((C_word*)t0)[2])){ -t2=C_a_i_list1(&a,1,((C_word*)t0)[2]);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[472]; -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[235]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[235]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[472]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -tp(5,av2);}}} - -/* k34125 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_34127(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34127,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34131,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6386: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k34129 in k34125 in ##sys#error-hook in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_34131(C_word c,C_word *av){ -C_word tmp; -C_word 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_34131,c,av);} -/* library.scm:6385: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1251]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1252]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_34272(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_34272,c,av);} -a=C_alloc(12); -t2=C_mutate(&lf[1256] /* (set! ##sys#r7rs-exn-handlers ...) */,t1); -t3=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers")); -t4=C_mutate((C_word*)lf[1257]+1 /* (set! scheme#with-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34274,a[2]=((C_word)li954),tmp=(C_word)a,a+=3,tmp)); -t5=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers")); -t6=C_mutate((C_word*)lf[1258]+1 /* (set! scheme#raise ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34342,a[2]=((C_word)li956),tmp=(C_word)a,a+=3,tmp)); -t7=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers")); -t8=C_mutate((C_word*)lf[1262]+1 /* (set! scheme#raise-continuable ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34383,a[2]=((C_word)li958),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[1263]+1 /* (set! scheme#error-object? ...) */,C_fast_retrieve(lf[1169])); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34413,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6443: chicken.condition#condition-property-accessor */ -t11=C_fast_retrieve(lf[1174]);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t11; -av2[1]=t10; -av2[2]=lf[1147]; -av2[3]=lf[1259]; -((C_proc)(void*)(*((C_word*)t11+1)))(4,av2);}} - -/* scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_34274(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_34274,c,av);} -a=C_alloc(7); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34280,a[2]=t2,a[3]=((C_word)li952),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34320,a[2]=((C_word)li953),tmp=(C_word)a,a+=3,tmp); -/* library.scm:6407: scheme#dynamic-wind */ -t6=*((C_word*)lf[212]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t1; -av2[2]=t4; -av2[3]=t3; -av2[4]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} - -/* a34279 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_34280(C_word c,C_word *av){ -C_word tmp; -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,2)))){ -C_save_and_reclaim((void *)f_34280,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34284,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_34318,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6411: eh */ -t4=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k34282 in a34279 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_34284(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_34284,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34287,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_34296,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6413: eh */ -t4=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k34285 in k34282 in a34279 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_34287(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34287,c,av);} -t2=C_mutate((C_word*)lf[1141]+1 /* (set! ##sys#current-exception-handler ...) */,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k34294 in k34282 in a34279 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_34296(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_34296,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* library.scm:6413: eh */ -t3=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k34308 in k34316 in a34279 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_34310(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_34310,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,C_fast_retrieve(lf[1141]),t1); -/* library.scm:6412: eh */ -t3=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k34316 in a34279 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_34318(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_34318,c,av);} -a=C_alloc(3); -t2=C_i_car(t1); -t3=C_eqp(t2,C_fast_retrieve(lf[1141])); -if(C_truep(t3)){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_34284(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34310,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6412: eh */ -t5=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* a34319 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_34320(C_word c,C_word *av){ -C_word tmp; -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_34320,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34324,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34340,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6417: eh */ -t4=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k34322 in a34319 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_34324(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_34324,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34332,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6418: eh */ -t3=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k34330 in k34322 in a34319 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_34332(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34332,c,av);} -t2=C_i_car(t1); -t3=C_mutate((C_word*)lf[1141]+1 /* (set! ##sys#current-exception-handler ...) */,t2); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k34338 in a34319 in scheme#with-exception-handler in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_34340(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_34340,c,av);} -/* library.scm:6417: eh */ -t2=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cdr(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* scheme#raise in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_34342(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_34342,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34381,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6424: eh */ -t4=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a34351 in k34379 in scheme#raise in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_34352(C_word c,C_word *av){ -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_34352,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34377,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6426: eh */ -t3=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k34357 in k34375 in a34351 in k34379 in scheme#raise in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_34359(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_34359,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34373,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6427: eh */ -t3=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k34367 in k34371 in k34357 in k34375 in a34351 in k34379 in scheme#raise in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34369(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_34369,c,av);} -/* library.scm:6425: g7582 */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k34371 in k34357 in k34375 in a34351 in k34379 in scheme#raise in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_34373(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34373,c,av);} -a=C_alloc(4); -t2=C_i_car(t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34369,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6428: chicken.condition#make-property-condition */ -t4=C_fast_retrieve(lf[1164]);{ -C_word *av2; -if(c >= 9) { - av2=av; -} else { - av2=C_alloc(9); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1147]; -av2[3]=lf[1259]; -av2[4]=lf[1260]; -av2[5]=lf[1261]; -av2[6]=C_SCHEME_END_OF_LIST; -av2[7]=lf[980]; -av2[8]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(9,av2);}} - -/* k34375 in a34351 in k34379 in scheme#raise in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_34377(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34377,c,av);} -a=C_alloc(3); -t2=C_i_cadr(t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34359,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6425: g7580 */ -t4=t2;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* k34379 in scheme#raise in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_34381(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34381,c,av);} -a=C_alloc(4); -t2=C_i_cadr(t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34352,a[2]=((C_word*)t0)[2],a[3]=((C_word)li955),tmp=(C_word)a,a+=4,tmp); -/* library.scm:6423: scheme#with-exception-handler */ -t4=C_fast_retrieve(lf[1257]);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* scheme#raise-continuable in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_34383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_34383,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34408,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6438: eh */ -t4=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a34392 in k34406 in scheme#raise-continuable in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_34393(C_word c,C_word *av){ -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_34393,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34404,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6440: eh */ -t3=C_retrieve2(lf[1256],C_text("##sys#r7rs-exn-handlers"));{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k34402 in a34392 in k34406 in scheme#raise-continuable in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_34404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_34404,c,av);} -/* library.scm:6439: g7588 */ -t2=C_i_cadr(t1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k34406 in scheme#raise-continuable in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_34408(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34408,c,av);} -a=C_alloc(4); -t2=C_i_cadr(t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34393,a[2]=((C_word*)t0)[2],a[3]=((C_word)li957),tmp=(C_word)a,a+=4,tmp); -/* library.scm:6437: scheme#with-exception-handler */ -t4=C_fast_retrieve(lf[1257]);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_34413(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34413,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[1264]+1 /* (set! scheme#error-object-message ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34417,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6444: chicken.condition#condition-property-accessor */ -t4=C_fast_retrieve(lf[1174]);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1147]; -av2[3]=lf[1261]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_34417(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_34417,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[1265]+1 /* (set! scheme#error-object-irritants ...) */,t1); -t3=C_set_block_item(lf[1266] /* scheme#read-error? */,0,C_SCHEME_UNDEFINED); -t4=C_set_block_item(lf[1267] /* scheme#file-error? */,0,C_SCHEME_UNDEFINED); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34422,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6449: chicken.condition#condition-predicate */ -t6=C_fast_retrieve(lf[1173]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[1147]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in ... */ -static void C_ccall f_34422(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34422,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34425,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6450: chicken.condition#condition-predicate */ -t3=C_fast_retrieve(lf[1173]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1603]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in ... */ -static void C_ccall f_34425(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34425,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34428,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6451: chicken.condition#condition-predicate */ -t3=C_fast_retrieve(lf[1173]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1602]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in ... */ -static void C_ccall f_34428(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34428,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_34431,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); -/* library.scm:6452: chicken.condition#condition-predicate */ -t3=C_fast_retrieve(lf[1173]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1601]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in ... */ -static void C_ccall f_34431(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word t36; -C_word t37; -C_word t38; -C_word t39; -C_word t40; -C_word t41; -C_word t42; -C_word t43; -C_word t44; -C_word t45; -C_word t46; -C_word t47; -C_word t48; -C_word t49; -C_word t50; -C_word t51; -C_word t52; -C_word t53; -C_word t54; -C_word t55; -C_word t56; -C_word t57; -C_word t58; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(170,c,6)))){ -C_save_and_reclaim((void *)f_34431,c,av);} -a=C_alloc(170); -t2=C_mutate((C_word*)lf[1266]+1 /* (set! scheme#read-error? ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_34433,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li959),tmp=(C_word)a,a+=6,tmp)); -t3=C_mutate((C_word*)lf[1267]+1 /* (set! scheme#file-error? ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34451,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word)li960),tmp=(C_word)a,a+=5,tmp)); -t4=C_mutate((C_word*)lf[1268]+1 /* (set! ##sys#structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34463,a[2]=((C_word)li961),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1269]+1 /* (set! ##sys#generic-structure? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34466,a[2]=((C_word)li962),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1270]+1 /* (set! ##sys#slot ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34469,a[2]=((C_word)li963),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[1271]+1 /* (set! ##sys#size ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34472,a[2]=((C_word)li964),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[1272]+1 /* (set! ##sys#make-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_pointer,a[2]=((C_word)li965),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[1273]+1 /* (set! ##sys#make-tagged-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_make_tagged_pointer,a[2]=((C_word)li966),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[1274]+1 /* (set! ##sys#pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34477,a[2]=((C_word)li967),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[1275]+1 /* (set! ##sys#set-pointer-address! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34480,a[2]=((C_word)li968),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[1276]+1 /* (set! ##sys#bytevector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34483,a[2]=((C_word)li969),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[1277]+1 /* (set! ##sys#string->pbytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34486,a[2]=((C_word)li970),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[1278]+1 /* (set! ##sys#permanent? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34489,a[2]=((C_word)li971),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[1279]+1 /* (set! ##sys#block-address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34492,a[2]=((C_word)li972),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[1280]+1 /* (set! ##sys#locative? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34495,a[2]=((C_word)li973),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[1281]+1 /* (set! ##sys#srfi-4-vector? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34498,a[2]=((C_word)li974),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate((C_word*)lf[1284]+1 /* (set! ##sys#null-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34522,a[2]=((C_word)li975),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[1285]+1 /* (set! ##sys#null-pointer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34528,a[2]=((C_word)li976),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[1286]+1 /* (set! ##sys#address->pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34538,a[2]=((C_word)li977),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[1074]+1 /* (set! ##sys#pointer->address ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34544,a[2]=((C_word)li978),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate((C_word*)lf[884]+1 /* (set! ##sys#make-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34551,a[2]=((C_word)li979),tmp=(C_word)a,a+=3,tmp)); -t23=C_mutate((C_word*)lf[1287]+1 /* (set! ##sys#peek-signed-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_signed_integer,a[2]=((C_word)li980),tmp=(C_word)a,a+=3,tmp)); -t24=C_mutate((C_word*)lf[848]+1 /* (set! ##sys#peek-unsigned-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_peek_unsigned_integer,a[2]=((C_word)li981),tmp=(C_word)a,a+=3,tmp)); -t25=C_mutate((C_word*)lf[1288]+1 /* (set! ##sys#peek-fixnum ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34587,a[2]=((C_word)li982),tmp=(C_word)a,a+=3,tmp)); -t26=C_mutate((C_word*)lf[1289]+1 /* (set! ##sys#peek-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34590,a[2]=((C_word)li983),tmp=(C_word)a,a+=3,tmp)); -t27=C_mutate((C_word*)lf[1290]+1 /* (set! ##sys#vector->structure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34593,a[2]=((C_word)li984),tmp=(C_word)a,a+=3,tmp)); -t28=C_mutate((C_word*)lf[1291]+1 /* (set! ##sys#peek-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34596,a[2]=((C_word)li985),tmp=(C_word)a,a+=3,tmp)); -t29=C_mutate((C_word*)lf[829]+1 /* (set! ##sys#peek-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34599,a[2]=((C_word)li986),tmp=(C_word)a,a+=3,tmp)); -t30=C_mutate((C_word*)lf[1078]+1 /* (set! ##sys#peek-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34615,a[2]=((C_word)li987),tmp=(C_word)a,a+=3,tmp)); -t31=C_mutate((C_word*)lf[1292]+1 /* (set! ##sys#peek-and-free-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34628,a[2]=((C_word)li988),tmp=(C_word)a,a+=3,tmp)); -t32=C_mutate((C_word*)lf[1293]+1 /* (set! ##sys#peek-and-free-nonnull-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34634,a[2]=((C_word)li989),tmp=(C_word)a,a+=3,tmp)); -t33=C_mutate((C_word*)lf[1294]+1 /* (set! ##sys#poke-c-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34640,a[2]=((C_word)li990),tmp=(C_word)a,a+=3,tmp)); -t34=C_mutate((C_word*)lf[1295]+1 /* (set! ##sys#poke-integer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34647,a[2]=((C_word)li991),tmp=(C_word)a,a+=3,tmp)); -t35=C_mutate((C_word*)lf[1296]+1 /* (set! ##sys#poke-double ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34650,a[2]=((C_word)li992),tmp=(C_word)a,a+=3,tmp)); -t36=C_mutate((C_word*)lf[1297]+1 /* (set! ##sys#peek-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34670,a[2]=((C_word)li994),tmp=(C_word)a,a+=3,tmp)); -t37=C_mutate((C_word*)lf[1298]+1 /* (set! ##sys#peek-and-free-c-string-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34731,a[2]=((C_word)li996),tmp=(C_word)a,a+=3,tmp)); -t38=C_mutate((C_word*)lf[1299]+1 /* (set! ##sys#vector->closure! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34769,a[2]=((C_word)li997),tmp=(C_word)a,a+=3,tmp)); -t39=C_mutate((C_word*)lf[1300]+1 /* (set! ##sys#symbol-has-toplevel-binding? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34772,a[2]=((C_word)li998),tmp=(C_word)a,a+=3,tmp)); -t40=C_mutate((C_word*)lf[1301]+1 /* (set! ##sys#block-pointer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34775,a[2]=((C_word)li999),tmp=(C_word)a,a+=3,tmp)); -t41=C_mutate((C_word*)lf[1302]+1 /* (set! ##sys#foreign-char-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34781,a[2]=((C_word)li1000),tmp=(C_word)a,a+=3,tmp)); -t42=C_mutate((C_word*)lf[1303]+1 /* (set! ##sys#foreign-fixnum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34784,a[2]=((C_word)li1001),tmp=(C_word)a,a+=3,tmp)); -t43=C_mutate((C_word*)lf[1304]+1 /* (set! ##sys#foreign-flonum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34787,a[2]=((C_word)li1002),tmp=(C_word)a,a+=3,tmp)); -t44=C_mutate((C_word*)lf[1305]+1 /* (set! ##sys#foreign-block-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34790,a[2]=((C_word)li1003),tmp=(C_word)a,a+=3,tmp)); -t45=C_mutate((C_word*)lf[1306]+1 /* (set! ##sys#foreign-cplxnum-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34793,a[2]=((C_word)li1004),tmp=(C_word)a,a+=3,tmp)); -t46=C_mutate((C_word*)lf[1308]+1 /* (set! ##sys#foreign-struct-wrapper-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34802,a[2]=((C_word)li1005),tmp=(C_word)a,a+=3,tmp)); -t47=C_mutate((C_word*)lf[1309]+1 /* (set! ##sys#foreign-string-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34805,a[2]=((C_word)li1006),tmp=(C_word)a,a+=3,tmp)); -t48=C_mutate((C_word*)lf[1310]+1 /* (set! ##sys#foreign-symbol-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34808,a[2]=((C_word)li1007),tmp=(C_word)a,a+=3,tmp)); -t49=C_mutate((C_word*)lf[1311]+1 /* (set! ##sys#foreign-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34811,a[2]=((C_word)li1008),tmp=(C_word)a,a+=3,tmp)); -t50=C_mutate((C_word*)lf[1312]+1 /* (set! ##sys#foreign-tagged-pointer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34814,a[2]=((C_word)li1009),tmp=(C_word)a,a+=3,tmp)); -t51=C_mutate((C_word*)lf[1313]+1 /* (set! ##sys#foreign-ranged-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34817,a[2]=((C_word)li1010),tmp=(C_word)a,a+=3,tmp)); -t52=C_mutate((C_word*)lf[1314]+1 /* (set! ##sys#foreign-unsigned-ranged-integer-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34820,a[2]=((C_word)li1011),tmp=(C_word)a,a+=3,tmp)); -t53=C_mutate((C_word*)lf[1315]+1 /* (set! ##sys#wrap-struct ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34823,a[2]=((C_word)li1012),tmp=(C_word)a,a+=3,tmp)); -t54=C_set_block_item(lf[1316] /* ##sys#default-thread-quantum */,0,C_fix(10000)); -t55=C_mutate((C_word*)lf[1317]+1 /* (set! ##sys#default-exception-handler ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34830,a[2]=((C_word)li1013),tmp=(C_word)a,a+=3,tmp)); -t56=C_mutate((C_word*)lf[1319]+1 /* (set! ##sys#make-thread ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34833,a[2]=((C_word)li1014),tmp=(C_word)a,a+=3,tmp)); -t57=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34857,a[2]=((C_word*)t0)[5],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6650: ##sys#make-thread */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1319]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[1319]+1); -av2[1]=t57; -av2[2]=C_SCHEME_FALSE; -av2[3]=lf[1599]; -av2[4]=lf[1600]; -av2[5]=C_fast_retrieve(lf[1316]); -tp(6,av2);}} - -/* scheme#read-error? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34433(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_34433,c,av);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_34440,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); -/* library.scm:6455: exn? */ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k34438 in scheme#read-error? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34440(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34440,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34443,a[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:6456: i/o? */ -t3=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k34441 in k34438 in scheme#read-error? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_34443(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_34443,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:6457: syntax? */ -t2=((C_word*)t0)[3];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* scheme#file-error? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34451(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_34451,c,av);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34458,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6460: exn? */ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k34456 in scheme#file-error? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34458(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_34458,c,av);} -if(C_truep(t1)){ -/* library.scm:6461: file? */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* ##sys#structure? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34463(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34463,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_structurep(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#generic-structure? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34466,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_structurep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#slot in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34469(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34469,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#size in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34472(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34472,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_block_size(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#pointer? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34477,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_anypointerp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#set-pointer-address! in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34480(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34480,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_update_pointer(t3,t2); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#bytevector? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34483(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34483,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_bytevectorp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#string->pbytevector in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34486(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34486,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_string_to_pbytevector(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#permanent? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34489(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34489,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_permanentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#block-address in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -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_34492,c,av);} -a=C_alloc(6); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_block_address(&a,1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#locative? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34495(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34495,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_locativep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#srfi-4-vector? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34498(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34498,c,av);} -t3=C_i_srfi_4_vectorp(t2); -if(C_truep(t3)){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -if(C_truep(C_blockp(t2))){ -if(C_truep(C_structurep(t2))){ -t4=C_slot(t2,C_fix(0)); -t5=C_eqp(t4,lf[1282]); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=(C_truep(t5)?t5:C_eqp(t4,lf[1283])); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} - -/* ##sys#null-pointer in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34522(C_word c,C_word *av){ -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_34522,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34526,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6488: ##sys#make-pointer */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1272]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1272]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k34524 in ##sys#null-pointer in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34526(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34526,c,av);} -t2=C_update_pointer(C_fix(0),t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#null-pointer? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34528(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_34528,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34536,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6493: ##sys#pointer->address */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1074]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1074]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k34534 in ##sys#null-pointer? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34536(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34536,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_eqp(C_fix(0),t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#address->pointer in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34538(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_34538,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34542,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6496: ##sys#make-pointer */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1272]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1272]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k34540 in ##sys#address->pointer in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34542(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34542,c,av);} -t2=C_update_pointer(((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#pointer->address in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34544(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_34544,c,av);} -a=C_alloc(6); -t3=C_slot(t2,C_fix(0)); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_unsigned_int_to_num(&a,1,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#make-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_34551,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_slot(t2,C_fix(0)); -t6=C_asciiz_strlen(t5); -t7=C_block_size(t5); -t8=C_fixnum_difference(t7,C_fix(1)); -t9=C_eqp(t6,t8); -if(C_truep(t9)){ -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -t10=C_fix((C_word)C_ASCIIZ_REPRESENTATION_ERROR); -/* library.scm:6508: ##sys#error-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[439]); -C_word av2[5]; -av2[0]=*((C_word*)lf[439]+1); -av2[1]=t1; -av2[2]=t10; -av2[3]=t4; -av2[4]=t2; -tp(5,av2);}}} - -/* ##sys#peek-fixnum in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34587(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34587,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_peek_fixnum(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#peek-byte in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34590(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34590,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_peek_byte(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#vector->structure! in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34593(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34593,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_vector_to_structure(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#peek-double in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34596(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34596,c,av);} -a=C_alloc(4); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_f64peek(&a,2,t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#peek-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34599(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_34599,c,av);} -t4=C_null_pointerp(t2); -if(C_truep(C_i_not(t4))){ -/* library.scm:6523: ##sys#peek-nonnull-c-string */ -t5=*((C_word*)lf[1078]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} -else{ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* ##sys#peek-nonnull-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34615(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34615,c,av);} -a=C_alloc(6); -t4=C_fetch_c_strlen(t2,t3); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_34619,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:6527: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=C_fixnum_plus(t4,C_fix(1)); -av2[3]=C_fix(0); -tp(4,av2);}} - -/* k34617 in ##sys#peek-nonnull-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34619(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34619,c,av);} -t2=C_peek_c_string(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4]); -/* library.scm:6529: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[300]+1); -av2[1]=((C_word*)t0)[5]; -av2[2]=t1; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} - -/* ##sys#peek-and-free-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34628(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34628,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34632,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6532: ##sys#peek-c-string */ -t5=*((C_word*)lf[829]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k34630 in ##sys#peek-and-free-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34632(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34632,c,av);} -t2=C_free_mptr(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#peek-and-free-nonnull-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34634(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34634,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_34638,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6537: ##sys#peek-nonnull-c-string */ -t5=*((C_word*)lf[1078]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k34636 in ##sys#peek-and-free-nonnull-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34638(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34638,c,av);} -t2=C_free_mptr(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#poke-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34640(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_34640,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_34645,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* library.scm:6542: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[884]); -C_word *av2=av; -av2[0]=*((C_word*)lf[884]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k34643 in ##sys#poke-c-string in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34645(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34645,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_poke_c_string(((C_word*)t0)[3],((C_word*)t0)[4],t1,((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#poke-integer in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34647(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_34647,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_poke_integer(t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#poke-double in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34650(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_34650,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_poke_double(t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#peek-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34670(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_34670,c,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_34676,a[2]=t3,a[3]=t5,a[4]=t2,a[5]=((C_word)li993),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_34676(t7,t1,C_fix(0));} - -/* loop in ##sys#peek-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void f_34676(C_word t0,C_word t1,C_word 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_34676,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_34686,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t5=C_a_i_bytevector(&a,1,C_fix(3)); -t6=(C_truep(((C_word*)t0)[4])?C_i_foreign_pointer_argumentp(((C_word*)t0)[4]):C_SCHEME_FALSE); -t7=C_i_foreign_fixnum_argumentp(t2); -/* library.scm:6548: ##sys#peek-c-string */ -t8=*((C_word*)lf[829]+1);{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t4; -av2[2]=stub7719(t5,t6,t7); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} - -/* k34684 in loop in ##sys#peek-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_34686(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34686,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34696,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6555: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_34676(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k34694 in k34684 in loop in ##sys#peek-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_34696(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_34696,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#peek-and-free-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34731(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_34731,c,av);} -a=C_alloc(12); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34735,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_34740,a[2]=t3,a[3]=t2,a[4]=t6,a[5]=((C_word)li995),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_34740(t8,t4,C_fix(0));} - -/* k34733 in ##sys#peek-and-free-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34735(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34735,c,av);} -if(C_truep(((C_word*)t0)[2])){ -t2=C_i_foreign_pointer_argumentp(((C_word*)t0)[2]); -t3=stub7746(C_SCHEME_UNDEFINED,t2); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=stub7746(C_SCHEME_UNDEFINED,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* loop in ##sys#peek-and-free-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void f_34740(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_34740,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_34750,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_a_i_bytevector(&a,1,C_fix(3)); -t6=(C_truep(((C_word*)t0)[3])?C_i_foreign_pointer_argumentp(((C_word*)t0)[3]):C_SCHEME_FALSE); -t7=C_i_foreign_fixnum_argumentp(t2); -/* library.scm:6559: ##sys#peek-c-string */ -t8=*((C_word*)lf[829]+1);{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t4; -av2[2]=stub7738(t5,t6,t7); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}}} - -/* k34748 in loop in ##sys#peek-and-free-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_34750(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_34750,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=C_free_sptr(((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34760,a[2]=((C_word*)t0)[4],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6568: loop */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_34740(t4,t3,C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k34758 in k34748 in loop in ##sys#peek-and-free-c-string-list in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_34760(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_34760,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#vector->closure! in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34769(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34769,c,av);} -t4=C_vector_to_closure(t2); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_update_pointer(t3,t2); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#symbol-has-toplevel-binding? in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34772(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34772,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_boundp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#block-pointer in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34775(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_34775,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34779,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6581: ##sys#make-pointer */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1272]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1272]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k34777 in ##sys#block-pointer in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34779(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34779,c,av);} -t2=C_pointer_to_block(t1,((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-char-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34781(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34781,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_foreign_char_argumentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-fixnum-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34784(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34784,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_foreign_fixnum_argumentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-flonum-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34787(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34787,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_foreign_flonum_argumentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-block-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34790(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34790,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_foreign_block_argumentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-cplxnum-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34793(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(12,c,5)))){ -C_save_and_reclaim((void *)f_34793,c,av);} -a=C_alloc(12); -if(C_truep(C_i_numberp(t2))){ -t3=C_a_i_exact_to_inexact(&a,1,t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* library.scm:6596: ##sys#signal-hook */ -t3=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=C_SCHEME_FALSE; -av2[4]=lf[1307]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}}} - -/* ##sys#foreign-struct-wrapper-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34802(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34802,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_foreign_struct_wrapper_argumentp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#foreign-string-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34805(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34805,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_foreign_string_argumentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-symbol-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34808(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34808,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_foreign_symbol_argumentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-pointer-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34811(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34811,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_foreign_pointer_argumentp(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#foreign-tagged-pointer-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34814(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34814,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_foreign_tagged_pointer_argumentp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#foreign-ranged-integer-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34817(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34817,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_foreign_ranged_integer_argumentp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#foreign-unsigned-ranged-integer-argument in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34820(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34820,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_foreign_unsigned_ranged_integer_argumentp(t2,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#wrap-struct in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34823(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34823,c,av);} -t4=C_i_setslot(t3,C_fix(0),t2); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#default-exception-handler in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34830(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34830,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_halt(lf[1318]); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#make-thread in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34833(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_34833,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_34849,a[2]=t1,a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t5,tmp=(C_word)a,a+=7,tmp); -/* library.scm:6637: ##sys#vector-resize */ -f_23697(t6,C_fast_retrieve(lf[901]),C_block_size(C_fast_retrieve(lf[901])),C_SCHEME_FALSE);} - -/* k34847 in ##sys#make-thread in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34849(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(26,c,1)))){ -C_save_and_reclaim((void *)f_34849,c,av);} -a=C_alloc(26); -t2=C_a_i_vector6(&a,6,C_fast_retrieve(lf[823]),*((C_word*)lf[838]+1),*((C_word*)lf[839]+1),*((C_word*)lf[840]+1),C_fast_retrieve(lf[1317]),t1); -t3=C_a_i_cons(&a,2,C_SCHEME_FALSE,C_SCHEME_FALSE); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_record(&a,15,lf[1062],((C_word*)t0)[3],C_SCHEME_FALSE,((C_word*)t0)[4],C_SCHEME_FALSE,t2,((C_word*)t0)[5],C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST,((C_word*)t0)[6],C_SCHEME_UNDEFINED,C_SCHEME_FALSE,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in ... */ -static void C_ccall f_34857(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word 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(45,c,4)))){ -C_save_and_reclaim((void *)f_34857,c,av);} -a=C_alloc(45); -t2=C_mutate((C_word*)lf[1089]+1 /* (set! ##sys#primordial-thread ...) */,t1); -t3=C_mutate((C_word*)lf[1077]+1 /* (set! ##sys#current-thread ...) */,C_fast_retrieve(lf[1089])); -t4=C_mutate((C_word*)lf[1320]+1 /* (set! ##sys#make-mutex ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34860,a[2]=((C_word)li1015),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1322]+1 /* (set! ##sys#schedule ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34866,a[2]=((C_word)li1016),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1323]+1 /* (set! ##sys#thread-yield! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34875,a[2]=((C_word)li1019),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[1324]+1 /* (set! ##sys#kill-other-threads ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34896,a[2]=((C_word)li1020),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[1325]+1 /* (set! ##sys#resume-thread-on-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34902,a[2]=((C_word)li1021),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[1326]+1 /* (set! ##sys#suspend-thread-on-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34905,a[2]=((C_word)li1022),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[1327]+1 /* (set! ##sys#sleep-until-interrupt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34911,a[2]=((C_word)li1024),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[1328]+1 /* (set! ##sys#make-event-queue ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34920,a[2]=((C_word)li1025),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[1330]+1 /* (set! ##sys#add-event-to-queue! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34926,a[2]=((C_word)li1026),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[1331]+1 /* (set! ##sys#get-next-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34965,a[2]=((C_word)li1027),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[1332]+1 /* (set! ##sys#wait-for-next-event ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35008,a[2]=((C_word)li1029),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[1334]+1 /* (set! chicken.base#sleep-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35062,a[2]=((C_word)li1030),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[238]+1 /* (set! chicken.base#sleep ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35065,a[2]=((C_word)li1031),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[1336]+1 /* (set! ##sys#context-switch ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_context_switch,a[2]=((C_word)li1032),tmp=(C_word)a,a+=3,tmp)); -t18=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35077,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6755: scheme#make-vector */ -t19=*((C_word*)lf[117]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t19; -av2[1]=t18; -av2[2]=C_fix(256); -av2[3]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t19+1)))(4,av2);}} - -/* ##sys#make-mutex in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34860(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_34860,c,av);} -a=C_alloc(8); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_a_i_record7(&a,7,lf[1321],t2,t3,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE,C_SCHEME_FALSE,C_SCHEME_UNDEFINED); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#schedule in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34866(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_34866,c,av);} -/* library.scm:6664: g7820 */ -t2=C_slot(C_fast_retrieve(lf[1077]),C_fix(1));{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* ##sys#thread-yield! in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34875(C_word c,C_word *av){ -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_34875,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34881,a[2]=((C_word)li1018),tmp=(C_word)a,a+=3,tmp); -/* library.scm:6667: ##sys#call-with-current-continuation */{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -C_call_cc(3,av2);}} - -/* a34880 in ##sys#thread-yield! in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_34881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_34881,c,av);} -a=C_alloc(4); -t3=C_fast_retrieve(lf[1077]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_34890,a[2]=t2,a[3]=((C_word)li1017),tmp=(C_word)a,a+=4,tmp); -t5=C_i_setslot(C_fast_retrieve(lf[1077]),C_fix(1),t4); -/* library.scm:6671: ##sys#schedule */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1322]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1322]+1); -av2[1]=t1; -tp(2,av2);}} - -/* a34889 in a34880 in ##sys#thread-yield! in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_34890(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_34890,c,av);} -/* library.scm:6670: return */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=C_SCHEME_UNDEFINED; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* ##sys#kill-other-threads in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34896(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34896,c,av);} -/* library.scm:6674: thunk */ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* ##sys#resume-thread-on-event in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34902(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34902,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#suspend-thread-on-event in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34905(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34905,c,av);} -/* library.scm:6682: ##sys#sleep-until-interrupt */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1327]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1327]+1); -av2[1]=t1; -tp(2,av2);}} - -/* ##sys#sleep-until-interrupt in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34911(C_word c,C_word *av){ -C_word tmp; -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,2)))){ -C_save_and_reclaim((void *)f_34911,c,av);} -a=C_alloc(3); -t2=C_i_sleep_until_interrupt(C_fix(100)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_34917,a[2]=((C_word)li1023),tmp=(C_word)a,a+=3,tmp); -/* library.scm:6686: ##sys#dispatch-interrupt */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[827]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[827]+1); -av2[1]=t1; -av2[2]=t3; -tp(3,av2);}} - -/* a34916 in ##sys#sleep-until-interrupt in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_34917(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_34917,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#make-event-queue in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34920(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,1)))){ -C_save_and_reclaim((void *)f_34920,c,av);} -a=C_alloc(5); -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_record4(&a,4,lf[1329],C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#add-event-to-queue! in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34926(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(3,c,2)))){ -C_save_and_reclaim((void *)f_34926,c,av);} -a=C_alloc(3); -t4=C_slot(t2,C_fix(1)); -t5=C_slot(t2,C_fix(2)); -t6=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t7=C_i_nullp(t4); -t8=(C_truep(t7)?C_i_setslot(t2,C_fix(1),t6):C_i_setslot(t5,C_fix(1),t6)); -t9=C_i_setslot(t2,C_fix(2),t6); -t10=C_slot(t2,C_fix(3)); -if(C_truep(t10)){ -t11=C_i_set_i_slot(t2,C_fix(3),C_SCHEME_FALSE); -/* library.scm:6708: ##sys#resume-thread-on-event */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1325]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1325]+1); -av2[1]=t1; -av2[2]=t10; -tp(3,av2);}} -else{ -t11=C_SCHEME_UNDEFINED; -t12=t1;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}}} - -/* ##sys#get-next-event in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_34965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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,1)))){ -C_save_and_reclaim((void *)f_34965,c,av);} -t3=C_slot(t2,C_fix(3)); -if(C_truep(C_i_not(t3))){ -t4=C_slot(t2,C_fix(1)); -t5=C_i_nullp(t4); -if(C_truep(C_i_not(t5))){ -t6=C_slot(t4,C_fix(0)); -t7=C_slot(t4,C_fix(1)); -t8=C_i_setslot(t2,C_fix(1),t7); -if(C_truep(C_i_nullp(t7))){ -t9=C_i_set_i_slot(t2,C_fix(2),C_SCHEME_END_OF_LIST); -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* ##sys#wait-for-next-event in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_35008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35008,c,av);} -a=C_alloc(4); -t3=C_slot(t2,C_fix(3)); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35015,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t3)){ -/* library.scm:6724: ##sys#signal-hook */ -t5=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[1117]; -av2[3]=C_SCHEME_FALSE; -av2[4]=lf[1333]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(6,av2);}} -else{ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_UNDEFINED; -f_35015(2,av2);}}} - -/* k35013 in ##sys#wait-for-next-event in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35015(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35015,c,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_35020,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li1028),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_35020(t5,((C_word*)t0)[3]);} - -/* again in k35013 in ##sys#wait-for-next-event in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void f_35020(C_word t0,C_word 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_35020,2,t0,t1);} -a=C_alloc(4); -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -if(C_truep(C_i_nullp(t2))){ -t3=C_i_setslot(((C_word*)t0)[2],C_fix(3),C_fast_retrieve(lf[1077])); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35036,a[2]=((C_word*)t0)[3],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6729: ##sys#suspend-thread-on-event */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1326]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1326]+1); -av2[1]=t4; -av2[2]=C_fast_retrieve(lf[1077]); -tp(3,av2);}} -else{ -t3=C_slot(t2,C_fix(0)); -t4=C_slot(t2,C_fix(1)); -t5=C_i_setslot(((C_word*)t0)[2],C_fix(1),t4); -if(C_truep(C_i_nullp(t4))){ -t6=C_i_set_i_slot(((C_word*)t0)[2],C_fix(2),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{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}} - -/* k35034 in again in k35013 in ##sys#wait-for-next-event in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35036(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35036,c,av);} -/* library.scm:6730: again */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_35020(t2,((C_word*)t0)[3]);} - -/* chicken.base#sleep-hook in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_35062(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35062,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_process_sleep(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.base#sleep in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_35065(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35065,c,av);} -a=C_alloc(3); -t3=C_i_check_fixnum_2(t2,lf[1335]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35072,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6747: chicken.base#sleep-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1334]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1334]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k35070 in chicken.base#sleep in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35072(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35072,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in ... */ -static void C_ccall f_35077(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(55,c,4)))){ -C_save_and_reclaim((void *)f_35077,c,av);} -a=C_alloc(55); -t2=C_mutate((C_word*)lf[1337]+1 /* (set! ##sys#signal-vector ...) */,t1); -t3=C_mutate((C_word*)lf[1338]+1 /* (set! ##sys#interrupt-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35079,a[2]=((C_word)li1034),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[827]+1 /* (set! ##sys#dispatch-interrupt ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35129,a[2]=((C_word)li1035),tmp=(C_word)a,a+=3,tmp)); -t5=C_fix(0); -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_mutate((C_word*)lf[830]+1 /* (set! ##sys#update-errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35136,a[2]=t6,a[3]=((C_word)li1036),tmp=(C_word)a,a+=4,tmp)); -t8=C_mutate((C_word*)lf[1339]+1 /* (set! ##sys#errno ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35140,a[2]=t6,a[3]=((C_word)li1037),tmp=(C_word)a,a+=4,tmp)); -t9=C_fast_retrieve(lf[994]); -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_35154,a[2]=((C_word)li1039),tmp=(C_word)a,a+=3,tmp)); -t15=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35201,a[2]=((C_word)li1041),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[994]+1 /* (set! ##sys#user-read-hook ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35246,a[2]=t9,a[3]=t11,a[4]=t13,a[5]=((C_word)li1046),tmp=(C_word)a,a+=6,tmp)); -t17=C_a_i_provide(&a,1,lf[1350]); -t18=C_mutate((C_word*)lf[1351]+1 /* (set! chicken.process-context#change-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35674,a[2]=((C_word)li1047),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[1354]+1 /* (set! ##sys#change-directory-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35705,a[2]=((C_word)li1048),tmp=(C_word)a,a+=3,tmp)); -t20=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35713,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t21=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40911,a[2]=((C_word)li1224),tmp=(C_word)a,a+=3,tmp); -t22=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40936,a[2]=((C_word)li1225),tmp=(C_word)a,a+=3,tmp); -/* library.scm:6938: chicken.base#getter-with-setter */ -t23=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t23; -av2[1]=t20; -av2[2]=t21; -av2[3]=t22; -av2[4]=lf[1598]; -((C_proc)(void*)(*((C_word*)t23+1)))(5,av2);}} - -/* ##sys#interrupt-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35079(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_35079,c,av);} -a=C_alloc(10); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35083,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_35110,a[2]=t6,a[3]=((C_word)li1033),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_35110(t8,t4,t2);} - -/* k35081 in ##sys#interrupt-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_35083,c,av);} -t2=C_slot(C_fast_retrieve(lf[1095]),C_fix(0)); -if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ -/* library.scm:6765: ##sys#run-pending-finalizers */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1096]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1096]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -if(C_truep(C_i_closurep(((C_word*)t0)[3]))){ -/* library.scm:6766: state */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:6767: ##sys#context-switch */{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -C_context_switch(3,av2);}}}} - -/* loop in ##sys#interrupt-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void f_35110(C_word t0,C_word 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_35110,3,t0,t1,t2);} -a=C_alloc(4); -if(C_truep(t2)){ -t3=C_slot(C_fast_retrieve(lf[1337]),t2); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35120,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t3)){ -/* library.scm:6762: 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{ -/* library.scm:6763: loop */ -t6=t1; -t7=C_i_pending_interrupt(C_SCHEME_FALSE); -t1=t6; -t2=t7; -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);}}} - -/* k35118 in loop in ##sys#interrupt-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35120(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_35120,c,av);} -/* library.scm:6763: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_35110(t2,((C_word*)t0)[3],C_i_pending_interrupt(C_SCHEME_FALSE));} - -/* ##sys#dispatch-interrupt in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35129(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_35129,c,av);} -/* library.scm:6770: ##sys#interrupt-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1338]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1338]+1); -av2[1]=t1; -av2[2]=C_i_pending_interrupt(C_SCHEME_FALSE); -av2[3]=t2; -tp(4,av2);}} - -/* ##sys#update-errno in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35136(C_word c,C_word *av){ -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_35136,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_fix((C_word)errno)); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#errno in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35140(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_35140,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* readln in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void f_35154(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_35154,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35158,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6799: scheme#open-output-string */ -t4=*((C_word*)lf[318]+1);{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k35156 in readln in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35158(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35158,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35165,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6800: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k35163 in k35156 in readln in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35165(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35165,c,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_35167,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word)li1038),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_35167(t5,((C_word*)t0)[4],t1);} - -/* doloop7912 in k35163 in k35156 in readln in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void f_35167(C_word 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_35167,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:6802: scheme#get-output-string */ -t5=*((C_word*)lf[320]+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_35189,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6803: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}}} - -/* k35187 in doloop7912 in k35163 in k35156 in readln in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_35189(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35189,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6800: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k35194 in k35187 in doloop7912 in k35163 in k35156 in readln in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_35196,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_35167(t2,((C_word*)t0)[3],t1);} - -/* read-escaped-sexp in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void f_35201(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_35201,3,t1,t2,t3);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35205,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t3)){ -/* library.scm:6805: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} -else{ -t5=t4;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_UNDEFINED; -f_35205(2,av2);}}} - -/* k35203 in read-escaped-sexp in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35205(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35205,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35208,a[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:6806: read */ -t3=*((C_word*)lf[189]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k35206 in k35203 in read-escaped-sexp in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35208(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_35208,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35211,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(((C_word*)t0)[3])){ -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_35216,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word)li1040),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_35216(t6,t2);} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k35209 in k35206 in k35203 in read-escaped-sexp in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35211(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35211,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop in k35206 in k35203 in read-escaped-sexp in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void f_35216(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_35216,2,t0,t1);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35220,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:6810: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k35218 in loop in k35206 in k35203 in read-escaped-sexp in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_35220(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35220,c,av);} -if(C_truep(C_eofp(t1))){ -/* library.scm:6812: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1340]; -tp(4,av2);}} -else{ -t2=C_i_char_equalp(C_make_character(125),t1); -if(C_truep(C_i_not(t2))){ -/* library.scm:6813: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_35216(t3,((C_word*)t0)[2]);} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35246(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_35246,c,av);} -a=C_alloc(6); -t4=C_i_char_equalp(C_make_character(60),t2); -if(C_truep(C_i_not(t4))){ -/* library.scm:6816: old */ -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35259,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* ##sys#read-char/port */ -t6=C_fast_retrieve(lf[905]);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}}} - -/* k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35259(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35259,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35262,a[2]=((C_word*)t0)[2],a[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:6819: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} - -/* k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35262(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_35262,c,av);} -a=C_alloc(6); -switch(t1){ -case C_make_character(60): -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35271,a[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:6821: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);} -case C_make_character(35): -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35383,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:6846: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);} -default: -/* library.scm:6900: ##sys#read-error */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[914]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[914]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[1349]; -tp(4,av2);}}} - -/* k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35271(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35271,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35274,a[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:6822: scheme#open-output-string */ -t3=*((C_word*)lf[318]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_35274(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35274,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35277,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:6823: readln */ -f_35154(t2,((C_word*)t0)[2]);} - -/* k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35277(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_35277,c,av);} -a=C_alloc(10); -t2=C_SCHEME_FALSE; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_eofp(t1); -t5=(C_truep(t4)?C_fix(0):C_i_string_length(t1)); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_35283,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t3,a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -t7=C_eqp(t5,C_fix(0)); -if(C_truep(t7)){ -/* library.scm:6828: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1343]; -tp(4,av2);}} -else{ -t8=C_fixnum_difference(t5,C_fix(1)); -t9=C_i_string_ref(t1,t8); -t10=C_u_i_char_equalp(t9,C_make_character(32)); -if(C_truep(t10)){ -if(C_truep(t10)){ -/* library.scm:6832: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1344]; -tp(4,av2);}} -else{ -t11=C_SCHEME_UNDEFINED; -t12=t6;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -f_35283(2,av2);}}} -else{ -t11=C_fixnum_difference(t5,C_fix(1)); -t12=C_i_string_ref(t1,t11); -if(C_truep(C_u_i_char_equalp(t12,C_make_character(9)))){ -/* library.scm:6832: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1344]; -tp(4,av2);}} -else{ -t13=C_SCHEME_UNDEFINED; -t14=t6;{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t13; -f_35283(2,av2);}}}}} - -/* k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_35283(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_35283,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_35290,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:6835: readln */ -f_35154(t2,((C_word*)t0)[4]);} - -/* k35288 in k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_35290(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35290,c,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_35292,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)li1042),tmp=(C_word)a,a+=9,tmp)); -t5=((C_word*)t3)[1]; -f_35292(t5,((C_word*)t0)[7],t1);} - -/* doloop7947 in k35288 in k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void f_35292(C_word t0,C_word t1,C_word 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_35292,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_35305,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_35318,a[2]=t5,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -t7=C_a_i_list(&a,3,lf[1341],((C_word*)t0)[2],lf[1342]); -/* library.scm:6790: ##sys#print-to-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1070]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1070]+1); -av2[1]=t6; -av2[2]=t7; -tp(3,av2);}} -else{ -/* library.scm:6840: scheme#get-output-string */ -t6=*((C_word*)lf[320]+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_35321,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:6842: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t5; -av2[2]=C_make_character(10); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} -else{ -t6=C_set_block_item(((C_word*)t0)[7],0,C_SCHEME_TRUE); -t7=t5;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=t6; -f_35321(2,av2);}}}} - -/* k35303 in doloop7947 in k35288 in k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_35305(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_35305,c,av);} -/* library.scm:6840: scheme#get-output-string */ -t2=*((C_word*)lf[320]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k35316 in doloop7947 in k35288 in k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_35318(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_35318,c,av);} -/* library.scm:6838: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k35319 in doloop7947 in k35288 in k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_35321(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35321,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35324,a[2]=((C_word*)t0)[2],a[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:6844: display */ -t3=*((C_word*)lf[193]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k35322 in k35319 in doloop7947 in k35288 in k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_35324(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35324,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35331,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6835: readln */ -f_35154(t2,((C_word*)t0)[5]);} - -/* k35329 in k35322 in k35319 in doloop7947 in k35288 in k35281 in k35275 in k35272 in k35269 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_35331(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_35331,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_35292(t2,((C_word*)t0)[3],t1);} - -/* k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35383,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35386,a[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:6847: readln */ -f_35154(t2,((C_word*)t0)[2]);} - -/* k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_35386(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35386,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35389,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:6848: scheme#open-output-string */ -t3=*((C_word*)lf[318]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35389(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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_35389,c,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_35391,a[2]=t3,a[3]=((C_word)li1043),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_35405,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:6857: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1347]; -tp(4,av2);}} -else{ -t9=C_fixnum_difference(t6,C_fix(1)); -t10=C_i_string_ref(((C_word*)t0)[2],t9); -t11=C_u_i_char_equalp(t10,C_make_character(32)); -if(C_truep(t11)){ -if(C_truep(t11)){ -/* library.scm:6861: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1348]; -tp(4,av2);}} -else{ -t12=C_SCHEME_UNDEFINED; -t13=t7;{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t12; -f_35405(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:6861: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1348]; -tp(4,av2);}} -else{ -t14=C_SCHEME_UNDEFINED; -t15=t7;{ -C_word *av2=av; -av2[0]=t15; -av2[1]=t14; -f_35405(2,av2);}}}}} - -/* get/clear-str in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void f_35391(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_35391,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35395,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6850: scheme#get-output-string */ -t3=*((C_word*)lf[320]+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);}} - -/* k35393 in get/clear-str in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_35395(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35395,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35399,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6851: scheme#open-output-string */ -t3=*((C_word*)lf[318]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k35397 in k35393 in get/clear-str in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_35399(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35399,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_35405(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35405,c,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_35410,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)li1045),tmp=(C_word)a,a+=9,tmp)); -t5=((C_word*)t3)[1]; -f_35410(t5,((C_word*)t0)[7],C_SCHEME_END_OF_LIST);} - -/* loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void f_35410(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_35410,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_35414,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:6866: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_35414(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_35414,c,av);} -a=C_alloc(9); -t2=C_eqp(t1,C_make_character(10)); -t3=(C_truep(t2)?t2:C_eqp(t1,C_SCHEME_END_OF_FILE)); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_35426,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); -/* library.scm:6869: get/clear-str */ -t5=((C_word*)t0)[7]; -f_35391(t5,t4);} -else{ -t4=C_eqp(t1,C_make_character(35)); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_35545,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:6888: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35612,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:6898: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t5; -av2[2]=t1; -av2[3]=((C_word*)((C_word*)t0)[8])[1]; -tp(4,av2);}}}} - -/* k35424 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_35426(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_35426,c,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_35438,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_35523,a[2]=t4,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -t6=C_a_i_list(&a,3,lf[1341],((C_word*)t0)[3],lf[1342]); -/* library.scm:6790: ##sys#print-to-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1070]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1070]+1); -av2[1]=t5; -av2[2]=t6; -tp(3,av2);}} -else{ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_UNDEFINED; -f_35438(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:6886: loop */ -t6=((C_word*)((C_word*)t0)[7])[1]; -f_35410(t6,((C_word*)t0)[4],t5);}} - -/* k35436 in k35424 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_35438(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_35438,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35445,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_35451,a[2]=t5,a[3]=((C_word)li1044),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_35451(t7,t2,t3,C_SCHEME_END_OF_LIST,lf[1346]);} - -/* k35443 in k35436 in k35424 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_35445(C_word c,C_word *av){ -C_word tmp; -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_35445,c,av);} -a=C_alloc(6); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,2,lf[1070],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop2 in k35436 in k35424 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void f_35451(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(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_35451,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_35465,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6878: ##sys#print-to-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1070]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1070]+1); -av2[1]=t5; -av2[2]=t3; -tp(3,av2);}} -else{ -t5=C_i_car(t2); -t6=C_i_stringp(t5); -t7=(C_truep(t6)?t6:C_charp(C_u_i_car(t2))); -if(C_truep(t7)){ -t8=C_u_i_cdr(t2); -t9=C_u_i_car(t2); -t10=C_a_i_cons(&a,2,t9,t3); -/* library.scm:6880: loop2 */ -t12=t1; -t13=t8; -t14=t10; -t15=t4; -t1=t12; -t2=t13; -t3=t14; -t4=t15; -goto loop;} -else{ -t8=C_u_i_cdr(t2); -t9=C_u_i_car(t2); -t10=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_35504,a[2]=t4,a[3]=t9,a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=t8,tmp=(C_word)a,a+=7,tmp); -/* library.scm:6885: ##sys#print-to-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1070]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1070]+1); -av2[1]=t10; -av2[2]=t3; -tp(3,av2);}}}} - -/* k35463 in loop2 in k35436 in k35424 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void C_ccall f_35465(C_word c,C_word *av){ -C_word tmp; -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_35465,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[1345],t1,((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k35502 in loop2 in k35436 in k35424 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void C_ccall f_35504(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_35504,c,av);} -a=C_alloc(18); -t2=C_a_i_list(&a,3,lf[1345],t1,((C_word*)t0)[2]); -t3=C_a_i_list(&a,3,lf[1345],((C_word*)t0)[3],t2); -/* library.scm:6882: loop2 */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_35451(t4,((C_word*)t0)[5],((C_word*)t0)[6],C_SCHEME_END_OF_LIST,t3);} - -/* k35521 in k35424 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_35523(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_35523,c,av);} -/* library.scm:6872: ##sys#read-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[917]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[917]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k35543 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_35545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_35545,c,av);} -a=C_alloc(9); -switch(t1){ -case C_make_character(35): -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35554,a[2]=((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_35561,a[2]=t2,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6891: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -tp(3,av2);} -case C_make_character(123): -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35578,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:6893: read-escaped-sexp */ -f_35201(t2,((C_word*)t0)[6],C_SCHEME_TRUE); -default: -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35597,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:6895: read-escaped-sexp */ -f_35201(t2,((C_word*)t0)[6],C_SCHEME_FALSE);}} - -/* k35552 in k35543 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_35554(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_35554,c,av);} -/* library.scm:6892: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_35410(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k35559 in k35543 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_35561(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_35561,c,av);} -/* library.scm:6891: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)((C_word*)t0)[3])[1]; -tp(4,av2);}} - -/* k35576 in k35543 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_35578(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35578,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35586,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:6894: get/clear-str */ -t3=((C_word*)t0)[5]; -f_35391(t3,t2);} - -/* k35584 in k35576 in k35543 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_35586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_35586,c,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:6893: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_35410(t4,((C_word*)t0)[5],t3);} - -/* k35595 in k35543 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_35597(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35597,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35605,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:6896: get/clear-str */ -t3=((C_word*)t0)[5]; -f_35391(t3,t2);} - -/* k35603 in k35595 in k35543 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_35605(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_35605,c,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:6895: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_35410(t4,((C_word*)t0)[5],t3);} - -/* k35610 in k35412 in loop in k35403 in k35387 in k35384 in k35381 in k35260 in k35257 in ##sys#user-read-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_35612(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_35612,c,av);} -/* library.scm:6899: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_35410(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* chicken.process-context#change-directory in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35674(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35674,c,av);} -a=C_alloc(4); -t3=C_i_check_string_2(t2,lf[1352]); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35681,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6928: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[884]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[884]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[1352]; -tp(4,av2);}} - -/* k35679 in chicken.process-context#change-directory in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35681(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35681,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35684,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=C_eqp(C_chdir(t1),C_fix(0)); -if(C_truep(t3)){ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35694,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6930: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[830]); -C_word *av2=av; -av2[0]=*((C_word*)lf[830]+1); -av2[1]=t4; -tp(2,av2);}}} - -/* k35682 in k35679 in chicken.process-context#change-directory in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35684(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35684,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k35692 in k35679 in chicken.process-context#change-directory in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35694(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_35694,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35698,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35702,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t4=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k35696 in k35692 in k35679 in chicken.process-context#change-directory in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35698(C_word c,C_word *av){ -C_word tmp; -C_word 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_35698,c,av);} -/* library.scm:6930: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[467]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1352]; -av2[5]=t1; -av2[6]=((C_word*)t0)[4]; -tp(7,av2);}} - -/* k35700 in k35692 in k35679 in chicken.process-context#change-directory in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35702(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_35702,c,av);} -/* library.scm:6931: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1353]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* ##sys#change-directory-hook in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35705(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_35705,c,av);} -/* library.scm:6935: change-directory */ -t3=C_fast_retrieve(lf[1351]);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_35713(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(30,c,4)))){ -C_save_and_reclaim((void *)f_35713,c,av);} -a=C_alloc(30); -t2=C_mutate((C_word*)lf[1355]+1 /* (set! chicken.process-context#current-directory ...) */,t1); -t3=C_mutate((C_word*)lf[1356]+1 /* (set! chicken.process-context#get-environment-variable ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35722,a[2]=((C_word)li1049),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[1358]+1 /* (set! chicken.process-context#set-environment-variable! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35743,a[2]=((C_word)li1050),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1360]+1 /* (set! chicken.process-context#unset-environment-variable! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35763,a[2]=((C_word)li1051),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1362]+1 /* (set! chicken.process-context#get-environment-variables ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35773,a[2]=((C_word)li1054),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[1363]+1 /* (set! chicken.process-context#executable-pathname ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35838,a[2]=((C_word)li1055),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[1364]+1 /* (set! chicken.process-context#argc+argv ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35845,a[2]=((C_word)li1056),tmp=(C_word)a,a+=3,tmp)); -t9=C_SCHEME_FALSE; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=C_mutate((C_word*)lf[1365]+1 /* (set! chicken.process-context#argv ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35857,a[2]=t10,a[3]=((C_word)li1058),tmp=(C_word)a,a+=4,tmp)); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35897,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40909,a[2]=t12,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7022: argv */ -t14=C_fast_retrieve(lf[1365]);{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t13; -((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} - -/* chicken.process-context#get-environment-variable in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35722(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_35722,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35730,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6962: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[884]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[884]+1); -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[1357]; -tp(4,av2);}} - -/* k35728 in chicken.process-context#get-environment-variable in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35730(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35730,c,av);} -a=C_alloc(5); -t2=C_a_i_bytevector(&a,1,C_fix(3)); -/* library.scm:6959: ##sys#peek-c-string */ -t3=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=stub8071(t2,t1); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* chicken.process-context#set-environment-variable! in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35743(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_35743,c,av);} -a=C_alloc(4); -t4=C_i_check_string_2(t2,lf[1359]); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35751,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6970: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[884]); -C_word *av2=av; -av2[0]=*((C_word*)lf[884]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=lf[1359]; -tp(4,av2);}} - -/* k35749 in chicken.process-context#set-environment-variable! in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35751(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_35751,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35755,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -if(C_truep(((C_word*)t0)[3])){ -t3=C_i_check_string_2(((C_word*)t0)[3],lf[1359]); -/* library.scm:6974: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[884]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[884]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[1359]; -tp(4,av2);}} -else{ -t3=C_i_setenv(t1,C_SCHEME_FALSE); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k35753 in k35749 in chicken.process-context#set-environment-variable! in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35755,c,av);} -t2=C_i_setenv(((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.process-context#unset-environment-variable! in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35763(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35763,c,av);} -a=C_alloc(3); -t3=C_i_check_string_2(t2,lf[1361]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35771,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:6980: ##sys#make-c-string */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[884]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[884]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=lf[1361]; -tp(4,av2);}} - -/* k35769 in chicken.process-context#unset-environment-variable! in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35771(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35771,c,av);} -t2=C_i_setenv(t1,C_SCHEME_FALSE); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.process-context#get-environment-variables in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35773(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_35773,c,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_35779,a[2]=t3,a[3]=((C_word)li1053),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_35779(t5,t1,C_fix(0));} - -/* loop in chicken.process-context#get-environment-variables in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void f_35779(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ -C_save_and_reclaim_args((void *)trf_35779,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35783,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t4=C_a_i_bytevector(&a,1,C_fix(3)); -t5=C_i_foreign_fixnum_argumentp(t2); -/* library.scm:6965: ##sys#peek-and-free-c-string */ -t6=*((C_word*)lf[1292]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t3; -av2[2]=stub8079(t4,t5); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k35781 in loop in chicken.process-context#get-environment-variables in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35783(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35783,c,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_35791,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li1052),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_35791(t5,((C_word*)t0)[4],C_fix(0));} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* scan in k35781 in loop in chicken.process-context#get-environment-variables in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void f_35791(C_word t0,C_word 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_35791,3,t0,t1,t2);} -a=C_alloc(7); -t3=C_i_string_ref(((C_word*)t0)[2],t2); -if(C_truep(C_u_i_char_equalp(C_make_character(61),t3))){ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_35819,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[2],a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* library.scm:6991: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[486]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_fix(0); -av2[4]=t2; -tp(5,av2);}} -else{ -/* library.scm:6994: scan */ -t6=t1; -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* k35809 in k35821 in k35817 in scan in k35781 in loop in chicken.process-context#get-environment-variables in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_35811(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_35811,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k35817 in scan in k35781 in loop in chicken.process-context#get-environment-variables in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35819(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35819,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35823,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:6992: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fixnum_plus(((C_word*)t0)[6],C_fix(1)); -av2[4]=C_u_i_string_length(((C_word*)t0)[5]); -tp(5,av2);}} - -/* k35821 in k35817 in scan in k35781 in loop in chicken.process-context#get-environment-variables in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_35823(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_35823,c,av);} -a=C_alloc(7); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35811,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6993: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_35779(t4,t3,C_fixnum_plus(((C_word*)t0)[5],C_fix(1)));} - -/* chicken.process-context#executable-pathname in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35838(C_word c,C_word *av){ -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,3)))){ -C_save_and_reclaim((void *)f_35838,c,av);} -a=C_alloc(5); -t2=C_a_i_bytevector(&a,1,C_fix(3)); -/* library.scm:7004: ##sys#peek-and-free-c-string */ -t3=*((C_word*)lf[1292]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=stub8103(t2); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* chicken.process-context#argc+argv in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35845(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_35845,c,av);} -a=C_alloc(3); -/* library.scm:7007: ##sys#values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_fix((C_word)C_main_argc); -av2[3]=C_mpointer_or_false(&a,(void*)C_main_argv); -C_values(4,av2);}} - -/* chicken.process-context#argv in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35857(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35857,c,av);} -a=C_alloc(10); -if(C_truep(((C_word*)((C_word*)t0)[2])[1])){ -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35865,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_35871,a[2]=t5,a[3]=((C_word)li1057),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_35871(t7,t2,t3,C_SCHEME_END_OF_LIST);}} - -/* k35863 in chicken.process-context#argv in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35865(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35865,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* doloop8115 in chicken.process-context#argv in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void f_35871(C_word t0,C_word 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(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_35871,4,t0,t1,t2,t3);} -a=C_alloc(11); -if(C_truep(C_fixnum_lessp(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=C_fixnum_difference(t2,C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35893,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=t1,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t6=C_a_i_bytevector(&a,1,C_fix(3)); -/* library.scm:7011: ##sys#peek-c-string */ -t7=*((C_word*)lf[829]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t5; -av2[2]=stub8111(t6,t2); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k35891 in doloop8115 in chicken.process-context#argv in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35893(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35893,c,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_35871(t3,((C_word*)t0)[4],((C_word*)t0)[5],t2);} - -/* k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_35897(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35897,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[1366]+1 /* (set! chicken.process-context#program-name ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35901,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40825,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7031: argv */ -t5=C_fast_retrieve(lf[1365]);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_35901(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_35901,c,av);} -a=C_alloc(20); -t2=C_mutate((C_word*)lf[1367]+1 /* (set! chicken.process-context#command-line-arguments ...) */,t1); -t3=C_a_i_provide(&a,1,lf[1368]); -t4=C_mutate((C_word*)lf[1369]+1 /* (set! chicken.gc#current-gc-milliseconds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35903,a[2]=((C_word)li1059),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1370]+1 /* (set! chicken.gc#set-gc-report! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35906,a[2]=((C_word)li1060),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1371]+1 /* (set! chicken.gc#memory-statistics ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35909,a[2]=((C_word)li1061),tmp=(C_word)a,a+=3,tmp)); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35938,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t8=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers)); -/* library.scm:7087: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t7; -av2[2]=C_fixnum_plus(t8,C_fix(1)); -av2[3]=C_SCHEME_UNDEFINED; -tp(4,av2);}} - -/* chicken.gc#current-gc-milliseconds in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35903(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_35903,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_accumulated_gc_time(); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.gc#set-gc-report! in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35906,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_set_gc_report(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.gc#memory-statistics in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35909(C_word c,C_word *av){ -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_35909,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35913,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7077: ##sys#gc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[380]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[380]+1); -av2[1]=t2; -av2[2]=C_SCHEME_TRUE; -tp(3,av2);}} - -/* k35911 in chicken.gc#memory-statistics in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_35913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35913,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35916,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:7078: ##sys#memory-info */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[388]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[388]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k35914 in k35911 in chicken.gc#memory-statistics in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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,1)))){ -C_save_and_reclaim((void *)f_35916,c,av);} -a=C_alloc(4); -t2=C_slot(t1,C_fix(0)); -t3=C_fixnum_divide(t2,C_fix(2)); -t4=C_fixnum_difference(t3,((C_word*)t0)[2]); -t5=C_slot(t1,C_fix(1)); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_vector3(&a,3,t3,t4,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_35938(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_35938,c,av);} -a=C_alloc(26); -t2=C_mutate((C_word*)lf[1095]+1 /* (set! ##sys#pending-finalizers ...) */,t1); -t3=C_i_set_i_slot(C_fast_retrieve(lf[1095]),C_fix(0),C_fix(0)); -t4=C_mutate((C_word*)lf[1372]+1 /* (set! ##sys#set-finalizer! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_register_finalizer,a[2]=((C_word)li1062),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1373]+1 /* (set! ##sys#init-finalizer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35944,a[2]=((C_word)li1063),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1379]+1 /* (set! chicken.gc#set-finalizer! ...) */,C_fast_retrieve(lf[1373])); -t7=C_a_i_vector1(&a,1,lf[1380]); -t8=C_mutate(&lf[1381] /* (set! chicken.gc#finalizer-tag ...) */,t7); -t9=C_mutate(&lf[1382] /* (set! chicken.gc#finalizer? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36014,a[2]=((C_word)li1064),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[1383]+1 /* (set! chicken.gc#make-finalizer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36030,a[2]=((C_word)li1070),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[1384]+1 /* (set! chicken.gc#add-to-finalizer ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36108,a[2]=((C_word)li1072),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_mutate((C_word*)lf[1096]+1 /* (set! ##sys#run-pending-finalizers ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36155,a[2]=t13,a[3]=((C_word)li1081),tmp=(C_word)a,a+=4,tmp)); -t15=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36322,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7195: scheme#make-parameter */ -t16=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} 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);}} - -/* ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_35944(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(11,c,4)))){ -C_save_and_reclaim((void *)f_35944,c,av);} -a=C_alloc(11); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_35948,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_fixnum_greater_or_equal_p(C_i_live_finalizer_count(),C_fix((C_word)C_max_pending_finalizers)))){ -t5=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers)); -if(C_truep(C_resize_pending_finalizers(t5))){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_35965,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -t7=C_fixnum_times(C_fix(2),C_fix((C_word)C_max_pending_finalizers)); -/* library.scm:7099: ##sys#vector-resize */ -f_23697(t6,C_fast_retrieve(lf[1095]),C_fixnum_plus(t7,C_fix(1)),C_SCHEME_UNDEFINED);} -else{ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35995,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_debug_modep())){ -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36005,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7115: string-append */ -t8=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[1377]; -av2[3]=C_i_live_finalizer_count(); -av2[4]=lf[1378]; -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} -else{ -/* library.scm:7120: ##sys#force-finalizers */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1092]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1092]+1); -av2[1]=t4; -tp(2,av2);}}}} -else{ -/* library.scm:7121: ##sys#set-finalizer! */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1372]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1372]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -tp(4,av2);}}} - -/* k35946 in ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35948(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_35948,c,av);} -/* library.scm:7121: ##sys#set-finalizer! */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1372]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1372]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}} - -/* k35963 in ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_35965,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[1095]+1 /* (set! ##sys#pending-finalizers ...) */,t1); -if(C_truep(C_i_debug_modep())){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35975,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_35979,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7106: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=C_i_live_finalizer_count(); -tp(3,av2);}} -else{ -/* library.scm:7121: ##sys#set-finalizer! */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1372]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1372]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -tp(4,av2);}}} - -/* k35973 in k35963 in ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_35975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_35975,c,av);} -/* library.scm:7103: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k35977 in k35963 in ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_35979(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_35979,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_35983,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7109: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=C_fix((C_word)C_max_pending_finalizers); -tp(3,av2);}} - -/* k35981 in k35977 in k35963 in ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_35983(C_word c,C_word *av){ -C_word tmp; -C_word 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_35983,c,av);} -/* library.scm:7104: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1374]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1375]; -av2[5]=t1; -av2[6]=lf[1376]; -((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} - -/* k35993 in ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_35995(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_35995,c,av);} -/* library.scm:7120: ##sys#force-finalizers */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1092]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1092]+1); -av2[1]=((C_word*)t0)[2]; -tp(2,av2);}} - -/* k36003 in ##sys#init-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36005(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_36005,c,av);} -/* library.scm:7114: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* chicken.gc#finalizer? in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_36014(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_36014,c,av);} -t3=C_i_pairp(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[1381],C_text("chicken.gc#finalizer-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_36030(C_word c,C_word *av){ -C_word tmp; -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_36030,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_36034,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7131: ##sys#make-event-queue */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1328]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1328]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36034(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_36034,c,av);} -a=C_alloc(24); -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|3,a[1]=(C_word)f_36036,a[2]=t1,a[3]=((C_word)li1065),tmp=(C_word)a,a+=4,tmp)); -t7=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36042,a[2]=t3,a[3]=((C_word)li1066),tmp=(C_word)a,a+=4,tmp)); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36049,a[2]=t1,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t9=C_SCHEME_UNDEFINED; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36085,a[2]=t10,a[3]=t5,a[4]=((C_word)li1069),tmp=(C_word)a,a+=5,tmp)); -t12=((C_word*)t10)[1]; -f_36085(t12,t8,((C_word*)t0)[3]);} - -/* handler in k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36036(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_36036,c,av);} -/* library.scm:7132: ##sys#add-event-to-queue! */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1330]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1330]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -tp(4,av2);}} - -/* handle in k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36042(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_36042,c,av);} -/* library.scm:7133: ##sys#init-finalizer */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1373]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1373]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=((C_word*)((C_word*)t0)[2])[1]; -tp(4,av2);}} - -/* k36047 in k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36049(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_36049,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36054,a[2]=((C_word*)t0)[2],a[3]=((C_word)li1067),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36075,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1068),tmp=(C_word)a,a+=4,tmp); -/* library.scm:7135: ##sys#decorate-lambda */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[888]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[888]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=t2; -av2[3]=C_retrieve2(lf[1382],C_text("chicken.gc#finalizer?")); -av2[4]=t3; -tp(5,av2);}} - -/* a36053 in k36047 in k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36054,c,av);} -if(C_truep(C_rest_nullp(c,2))){ -/* library.scm:7139: ##sys#get-next-event */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1331]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1331]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} -else{ -if(C_truep(C_get_rest_arg(c,2,av,2,t0))){ -/* library.scm:7138: ##sys#wait-for-next-event */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1332]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1332]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}} -else{ -/* library.scm:7139: ##sys#get-next-event */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1331]); -C_word av2[3]; -av2[0]=*((C_word*)lf[1331]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -tp(3,av2);}}}} - -/* a36074 in k36047 in k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36075(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_36075,c,av);} -a=C_alloc(3); -t4=C_a_i_cons(&a,2,C_retrieve2(lf[1381],C_text("chicken.gc#finalizer-tag")),((C_word*)((C_word*)t0)[2])[1]); -t5=C_i_setslot(t2,t3,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* for-each-loop8202 in k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void f_36085(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_36085,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36095,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7134: g8203 */ -t4=((C_word*)((C_word*)t0)[3])[1];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -f_36042(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);}}} - -/* k36093 in for-each-loop8202 in k36032 in chicken.gc#make-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36095(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36095,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_36085(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* chicken.gc#add-to-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_36108(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_36108,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_36112,a[2]=t1,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_closurep(t2))){ -/* library.scm:7147: ##sys#lambda-decoration */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[889]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[889]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=C_retrieve2(lf[1382],C_text("chicken.gc#finalizer?")); -tp(4,av2);}} -else{ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -f_36112(2,av2);}}} - -/* k36110 in chicken.gc#add-to-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36112(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36112,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36115,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(t1)){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_36115(2,av2);}} -else{ -/* library.scm:7149: chicken.base#error */ -t3=*((C_word*)lf[234]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1385]; -av2[3]=lf[1386]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k36113 in k36110 in chicken.gc#add-to-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36115(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_36115,c,av);} -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_36123,a[2]=t4,a[3]=t2,a[4]=((C_word)li1071),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_36123(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* for-each-loop8244 in k36113 in k36110 in chicken.gc#add-to-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void f_36123(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_36123,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36133,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7151: g8245 */ -t4=((C_word*)t0)[3];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -((C_proc)C_fast_retrieve_proc(t4))(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);}}} - -/* k36131 in for-each-loop8244 in k36113 in k36110 in chicken.gc#add-to-finalizer in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_36133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36133,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_36123(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_36155(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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(15,c,4)))){ -C_save_and_reclaim((void *)f_36155,c,av);} -a=C_alloc(15); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36159,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_i_not(((C_word*)((C_word*)t0)[2])[1]))){ -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,C_fast_retrieve(lf[1077])); -t5=C_slot(C_fast_retrieve(lf[1095]),C_fix(0)); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36190,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=t5,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_i_debug_modep())){ -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36289,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36293,a[2]=t7,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7164: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t8; -av2[2]=t5; -tp(3,av2);}} -else{ -t7=t6;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_36190(2,av2);}}} -else{ -if(C_truep(t2)){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -f_36159(2,av2);}} -else{ -t4=C_eqp(((C_word*)((C_word*)t0)[2])[1],C_fast_retrieve(lf[1077])); -if(C_truep(t4)){ -/* library.scm:7185: ##sys#signal-hook */ -t5=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=lf[236]; -av2[3]=lf[1096]; -av2[4]=lf[1392]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -/* library.scm:7190: ##sys#thread-yield! */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1323]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1323]+1); -av2[1]=t3; -tp(2,av2);}}}}} - -/* k36157 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36159(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_36159,c,av);} -t2=C_i_not(((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(C_i_closurep(((C_word*)t0)[2]))){ -/* library.scm:7192: state */ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[2])){ -/* library.scm:7193: ##sys#context-switch */{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(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=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}}} - -/* k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36190(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_36190,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36193,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_36202,a[2]=((C_word*)t0)[4],a[3]=t4,a[4]=((C_word)li1080),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_36202(t6,t2,C_fix(0));} - -/* k36191 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36193(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36193,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36196,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:7180: vector-fill! */ -t3=*((C_word*)lf[121]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_fast_retrieve(lf[1095]); -av2[3]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k36194 in k36191 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36196(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_36196,c,av);} -t2=C_i_set_i_slot(C_fast_retrieve(lf[1095]),C_fix(0),C_fix(0)); -t3=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_36159(2,av2);}} - -/* doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void f_36202(C_word t0,C_word 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_36202,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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36215,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36227,a[2]=t4,a[3]=((C_word)li1079),tmp=(C_word)a,a+=4,tmp); -/* library.scm:7176: scheme#call-with-current-continuation */ -t7=*((C_word*)lf[162]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} - -/* k36213 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36215(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36215,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36218,a[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:7175: g8283 */ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k36216 in k36213 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_36218(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36218,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_36202(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* a36226 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36227(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36227,c,av);} -a=C_alloc(9); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36233,a[2]=t2,a[3]=((C_word)li1074),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36245,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li1078),tmp=(C_word)a,a+=5,tmp); -/* library.scm:7176: chicken.condition#with-exception-handler */ -t5=C_fast_retrieve(lf[1060]);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* a36232 in a36226 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_36233(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_36233,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36239,a[2]=t2,a[3]=((C_word)li1073),tmp=(C_word)a,a+=4,tmp); -/* library.scm:7176: k8280 */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a36238 in a36232 in a36226 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36239(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_36239,c,av);} -/* library.scm:7177: ##sys#show-exception-warning */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1190]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[1190]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[1387]; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* a36244 in a36226 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_36245(C_word c,C_word *av){ -C_word tmp; -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_36245,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36251,a[2]=((C_word*)t0)[2],a[3]=((C_word)li1075),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36268,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1077),tmp=(C_word)a,a+=4,tmp); -/* library.scm:7176: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a36250 in a36244 in a36226 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36251(C_word c,C_word *av){ -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_36251,c,av);} -t2=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -/* library.scm:7176: g8287 */ -t3=C_slot(C_fast_retrieve(lf[1095]),t2);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=C_slot(C_fast_retrieve(lf[1095]),((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* a36267 in a36244 in a36226 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36268(C_word c,C_word *av){ -C_word tmp; -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_36268,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_36274,a[2]=t2,a[3]=((C_word)li1076),tmp=(C_word)a,a+=4,tmp); -/* library.scm:7176: k8280 */ -t4=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} - -/* a36273 in a36267 in a36244 in a36226 in doloop8276 in k36188 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_36274(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_36274,c,av);}{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=0; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -C_apply_values(3,av2);}} - -/* k36287 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36289(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_36289,c,av);} -/* library.scm:7163: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k36291 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36293(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36293,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36297,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7166: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=C_i_live_finalizer_count(); -tp(3,av2);}} - -/* k36295 in k36291 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36297(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36297,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36301,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7169: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=C_i_allocated_finalizer_count(); -tp(3,av2);}} - -/* k36299 in k36295 in k36291 in ##sys#run-pending-finalizers in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36301(C_word c,C_word *av){ -C_word tmp; -C_word 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_36301,c,av);} -/* library.scm:7164: string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 9) { - av2=av; -} else { - av2=C_alloc(9); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1388]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1389]; -av2[5]=((C_word*)t0)[4]; -av2[6]=lf[1390]; -av2[7]=t1; -av2[8]=lf[1391]; -((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} - -/* k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_36322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word t36; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(26,c,6)))){ -C_save_and_reclaim((void *)f_36322,c,av);} -a=C_alloc(26); -t2=C_mutate((C_word*)lf[1093]+1 /* (set! chicken.gc#force-finalizers ...) */,t1); -t3=C_mutate((C_word*)lf[1092]+1 /* (set! ##sys#force-finalizers ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36324,a[2]=((C_word)li1083),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[1393]+1 /* (set! chicken.gc#gc ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36352,a[2]=((C_word)li1084),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[952]+1 /* (set! ##sys#list->vector ...) */,*((C_word*)lf[118]+1)); -t6=C_mutate((C_word*)lf[436]+1 /* (set! ##sys#list ...) */,*((C_word*)lf[46]+1)); -t7=C_mutate((C_word*)lf[1394]+1 /* (set! ##sys#length ...) */,*((C_word*)lf[47]+1)); -t8=C_mutate((C_word*)lf[1395]+1 /* (set! ##sys#cons ...) */,*((C_word*)lf[12]+1)); -t9=C_mutate((C_word*)lf[291]+1 /* (set! ##sys#append ...) */,*((C_word*)lf[443]+1)); -t10=C_mutate((C_word*)lf[1396]+1 /* (set! ##sys#vector ...) */,*((C_word*)lf[120]+1)); -t11=C_mutate((C_word*)lf[1397]+1 /* (set! ##sys#apply ...) */,*((C_word*)lf[159]+1)); -t12=C_mutate((C_word*)lf[1398]+1 /* (set! ##sys#values ...) */,*((C_word*)lf[160]+1)); -t13=C_mutate((C_word*)lf[1399]+1 /* (set! ##sys#equal? ...) */,*((C_word*)lf[6]+1)); -t14=C_mutate((C_word*)lf[1400]+1 /* (set! ##sys#car ...) */,*((C_word*)lf[13]+1)); -t15=C_mutate((C_word*)lf[1401]+1 /* (set! ##sys#cdr ...) */,*((C_word*)lf[14]+1)); -t16=C_mutate((C_word*)lf[1402]+1 /* (set! ##sys#pair? ...) */,*((C_word*)lf[11]+1)); -t17=C_mutate((C_word*)lf[1403]+1 /* (set! ##sys#vector? ...) */,*((C_word*)lf[113]+1)); -t18=C_mutate((C_word*)lf[1404]+1 /* (set! ##sys#vector->list ...) */,*((C_word*)lf[119]+1)); -t19=C_mutate((C_word*)lf[1405]+1 /* (set! ##sys#vector-length ...) */,*((C_word*)lf[114]+1)); -t20=C_mutate((C_word*)lf[1406]+1 /* (set! ##sys#vector-ref ...) */,*((C_word*)lf[115]+1)); -t21=C_mutate((C_word*)lf[1407]+1 /* (set! ##sys#>= ...) */,*((C_word*)lf[99]+1)); -t22=C_mutate((C_word*)lf[1408]+1 /* (set! ##sys#= ...) */,*((C_word*)lf[96]+1)); -t23=C_mutate((C_word*)lf[1409]+1 /* (set! ##sys#+ ...) */,*((C_word*)lf[88]+1)); -t24=C_mutate((C_word*)lf[1410]+1 /* (set! ##sys#eq? ...) */,*((C_word*)lf[4]+1)); -t25=C_mutate((C_word*)lf[1411]+1 /* (set! ##sys#eqv? ...) */,*((C_word*)lf[5]+1)); -t26=C_mutate((C_word*)lf[1412]+1 /* (set! ##sys#list? ...) */,*((C_word*)lf[59]+1)); -t27=C_mutate((C_word*)lf[1413]+1 /* (set! ##sys#null? ...) */,*((C_word*)lf[45]+1)); -t28=C_mutate((C_word*)lf[1414]+1 /* (set! ##sys#map-n ...) */,*((C_word*)lf[211]+1)); -t29=C_mutate((C_word*)lf[1415]+1 /* (set! ##sys#make-locative ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36395,a[2]=((C_word)li1085),tmp=(C_word)a,a+=3,tmp)); -t30=C_a_i_provide(&a,1,lf[1428]); -t31=C_mutate((C_word*)lf[1429]+1 /* (set! chicken.plist#put! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36662,a[2]=((C_word)li1086),tmp=(C_word)a,a+=3,tmp)); -t32=C_mutate((C_word*)lf[1431]+1 /* (set! chicken.plist#get ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36668,a[2]=((C_word)li1087),tmp=(C_word)a,a+=3,tmp)); -t33=C_mutate((C_word*)lf[1433]+1 /* (set! ##sys#put! ...) */,C_fast_retrieve(lf[1429])); -t34=C_mutate((C_word*)lf[1434]+1 /* (set! ##sys#get ...) */,C_fast_retrieve(lf[1431])); -t35=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36687,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7328: chicken.base#getter-with-setter */ -t36=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t36; -av2[1]=t35; -av2[2]=C_fast_retrieve(lf[1431]); -av2[3]=C_fast_retrieve(lf[1429]); -((C_proc)(void*)(*((C_word*)t36+1)))(4,av2);}} - -/* ##sys#force-finalizers in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36324(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_36324,c,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_36330,a[2]=t3,a[3]=((C_word)li1082),tmp=(C_word)a,a+=4,tmp)); -t5=((C_word*)t3)[1]; -f_36330(t5,t1);} - -/* loop in ##sys#force-finalizers in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void f_36330(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_36330,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36334,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7199: ##sys#gc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[380]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[380]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k36332 in loop in ##sys#force-finalizers in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36334(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_36334,c,av);} -a=C_alloc(4); -t2=C_slot(C_fast_retrieve(lf[1095]),C_fix(0)); -if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36343,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* library.scm:7201: ##sys#run-pending-finalizers */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1096]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1096]+1); -av2[1]=t3; -av2[2]=C_SCHEME_FALSE; -tp(3,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k36341 in k36332 in loop in ##sys#force-finalizers in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_36343(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_36343,c,av);} -/* library.scm:7202: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_36330(t2,((C_word*)t0)[3]);} - -/* chicken.gc#gc in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36352(C_word c,C_word *av){ -C_word tmp; -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_36352,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=C_get_rest_arg(c,2,av,2,t0); -if(C_truep(t3)){ -/* library.scm:7208: ##sys#force-finalizers */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1092]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1092]+1); -av2[1]=t1; -tp(2,av2);}} -else{ -/* library.scm:7209: ##sys#gc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[380]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[380]+1); -av2[1]=t1; -av2[2]=t3; -tp(3,av2);}}} -else{ -/* library.scm:7209: ##sys#gc */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[380]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[380]+1); -av2[1]=t1; -av2[2]=C_SCHEME_FALSE; -tp(3,av2);}}} - -/* ##sys#make-locative in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36395(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word *a; -if(c!=6) C_bad_argc_2(c,6,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,5)))){ -C_save_and_reclaim((void *)f_36395,c,av);} -a=C_alloc(5); -if(C_truep(C_immp(t2))){ -/* library.scm:7242: ##sys#signal-hook */ -t6=*((C_word*)lf[235]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=t5; -av2[4]=lf[1416]; -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=C_block_size(t2); -t9=C_i_check_range_2(t3,C_fix(0),t8,t5); -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_a_i_make_locative(&a,4,C_fix(0),t2,t3,t4); -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -t8=(C_truep(C_blockp(t2))?C_bytevectorp(t2):C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=C_block_size(t2); -t10=C_i_check_range_2(t3,C_fix(0),t9,t5); -t11=C_a_i_make_locative(&a,4,C_fix(2),t2,t3,t4); -t12=t1;{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} -else{ -if(C_truep(C_structurep(t2))){ -t9=C_slot(t2,C_fix(0)); -t10=C_eqp(t9,lf[1417]); -if(C_truep(t10)){ -t11=C_slot(t2,C_fix(1)); -t12=C_block_size(t11); -t13=C_i_check_range_2(t3,C_fix(0),t12,t5); -t14=C_a_i_make_locative(&a,4,C_fix(2),t11,t3,t4); -t15=t1;{ -C_word *av2=av; -av2[0]=t15; -av2[1]=t14; -((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} -else{ -t11=C_eqp(t9,lf[1418]); -if(C_truep(t11)){ -t12=C_slot(t2,C_fix(1)); -t13=C_block_size(t12); -t14=C_i_check_range_2(t3,C_fix(0),t13,t5); -t15=t1;{ -C_word *av2=av; -av2[0]=t15; -av2[1]=C_a_i_make_locative(&a,4,C_fix(3),t12,t3,t4); -((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} -else{ -t12=C_eqp(t9,lf[1419]); -if(C_truep(t12)){ -t13=C_slot(t2,C_fix(1)); -t14=C_block_size(t13); -t15=C_i_check_range_2(t3,C_fix(0),t14,t5); -t16=C_a_i_make_locative(&a,4,C_fix(4),t13,t3,t4); -t17=t1;{ -C_word *av2=av; -av2[0]=t17; -av2[1]=t16; -((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} -else{ -t13=C_eqp(t9,lf[1420]); -if(C_truep(t13)){ -t14=C_slot(t2,C_fix(1)); -t15=C_block_size(t14); -t16=C_i_check_range_2(t3,C_fix(0),t15,t5); -t17=t1;{ -C_word *av2=av; -av2[0]=t17; -av2[1]=C_a_i_make_locative(&a,4,C_fix(5),t14,t3,t4); -((C_proc)(void*)(*((C_word*)t17+1)))(2,av2);}} -else{ -t14=C_eqp(t9,lf[1421]); -if(C_truep(t14)){ -t15=C_slot(t2,C_fix(1)); -t16=C_block_size(t15); -t17=C_i_check_range_2(t3,C_fix(0),t16,t5); -t18=C_a_i_make_locative(&a,4,C_fix(6),t15,t3,t4); -t19=t1;{ -C_word *av2=av; -av2[0]=t19; -av2[1]=t18; -((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} -else{ -t15=C_eqp(t9,lf[1422]); -if(C_truep(t15)){ -t16=C_slot(t2,C_fix(1)); -t17=C_block_size(t16); -t18=C_i_check_range_2(t3,C_fix(0),t17,t5); -t19=t1;{ -C_word *av2=av; -av2[0]=t19; -av2[1]=C_a_i_make_locative(&a,4,C_fix(7),t16,t3,t4); -((C_proc)(void*)(*((C_word*)t19+1)))(2,av2);}} -else{ -t16=C_eqp(t9,lf[1423]); -if(C_truep(t16)){ -t17=C_slot(t2,C_fix(1)); -t18=C_block_size(t17); -t19=C_i_check_range_2(t3,C_fix(0),t18,t5); -t20=C_a_i_make_locative(&a,4,C_fix(8),t17,t3,t4); -t21=t1;{ -C_word *av2=av; -av2[0]=t21; -av2[1]=t20; -((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} -else{ -t17=C_eqp(t9,lf[1424]); -if(C_truep(t17)){ -t18=C_slot(t2,C_fix(1)); -t19=C_block_size(t18); -t20=C_i_check_range_2(t3,C_fix(0),t19,t5); -t21=t1;{ -C_word *av2=av; -av2[0]=t21; -av2[1]=C_a_i_make_locative(&a,4,C_fix(9),t18,t3,t4); -((C_proc)(void*)(*((C_word*)t21+1)))(2,av2);}} -else{ -t18=C_eqp(t9,lf[1425]); -if(C_truep(t18)){ -t19=C_slot(t2,C_fix(1)); -t20=C_block_size(t19); -t21=C_i_check_range_2(t3,C_fix(0),t20,t5); -t22=C_a_i_make_locative(&a,4,C_fix(10),t19,t3,t4); -t23=t1;{ -C_word *av2=av; -av2[0]=t23; -av2[1]=t22; -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} -else{ -t19=C_eqp(t9,lf[1426]); -if(C_truep(t19)){ -t20=C_slot(t2,C_fix(1)); -t21=C_block_size(t20); -t22=C_i_check_range_2(t3,C_fix(0),t21,t5); -t23=t1;{ -C_word *av2=av; -av2[0]=t23; -av2[1]=C_a_i_make_locative(&a,4,C_fix(11),t20,t3,t4); -((C_proc)(void*)(*((C_word*)t23+1)))(2,av2);}} -else{ -t20=C_block_size(t2); -t21=C_fixnum_difference(t20,C_fix(1)); -t22=C_i_check_range_2(t3,C_fix(0),t21,t5); -t23=C_fixnum_plus(t3,C_fix(1)); -t24=t1;{ -C_word *av2=av; -av2[0]=t24; -av2[1]=C_a_i_make_locative(&a,4,C_fix(0),t2,t23,t4); -((C_proc)(void*)(*((C_word*)t24+1)))(2,av2);}}}}}}}}}}}} -else{ -if(C_truep(C_i_stringp(t2))){ -t9=C_slot(t2,C_fix(0)); -t10=C_utf_position(t2,t3); -t11=C_slot(t2,C_fix(1)); -t12=C_i_check_range_2(t3,C_fix(0),t11,t5); -t13=C_a_i_make_locative(&a,4,C_fix(1),t9,t10,t4); -t14=t1;{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t13; -((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} -else{ -/* library.scm:7302: ##sys#signal-hook */ -t9=*((C_word*)lf[235]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t1; -av2[2]=lf[295]; -av2[3]=t5; -av2[4]=lf[1427]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t9+1)))(6,av2);}}}}}}} - -/* chicken.plist#put! in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_36662,c,av);} -a=C_alloc(8); -t5=C_i_check_symbol_2(t2,lf[1430]); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_putprop(&a,3,t2,t3,t4); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* chicken.plist#get in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36668(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_36668,c,av);} -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=C_i_check_symbol_2(t2,lf[1432]); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_i_getprop(t2,t3,t5); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in ... */ -static void C_ccall f_36687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_36687,c,av);} -a=C_alloc(12); -t2=C_mutate((C_word*)lf[1431]+1 /* (set! chicken.plist#get ...) */,t1); -t3=C_mutate((C_word*)lf[1435]+1 /* (set! chicken.plist#remprop! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36689,a[2]=((C_word)li1089),tmp=(C_word)a,a+=3,tmp)); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36758,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40781,a[2]=((C_word)li1217),tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40790,a[2]=((C_word)li1218),tmp=(C_word)a,a+=3,tmp); -/* library.scm:7348: chicken.base#getter-with-setter */ -t7=*((C_word*)lf[240]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t7; -av2[1]=t4; -av2[2]=t5; -av2[3]=t6; -av2[4]=lf[1590]; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} - -/* chicken.plist#remprop! in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36689(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_36689,c,av);} -a=C_alloc(5); -t4=C_i_check_symbol_2(t2,lf[1436]); -t5=C_slot(t2,C_fix(2)); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36712,a[2]=t3,a[3]=t2,a[4]=((C_word)li1088),tmp=(C_word)a,a+=5,tmp); -t7=( - f_36712(t6,t5,C_SCHEME_FALSE) -); -t8=C_slot(t2,C_fix(2)); -if(C_truep(C_i_nullp(t8))){ -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_i_unpersist_symbol(t2); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -t9=C_SCHEME_UNDEFINED; -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t9; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}} - -/* loop in chicken.plist#remprop! in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static C_word f_36712(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_stack_overflow_check; -loop:{} -t3=C_i_nullp(t1); -if(C_truep(C_i_not(t3))){ -t4=C_slot(t1,C_fix(1)); -t5=C_slot(t4,C_fix(1)); -t6=C_slot(t1,C_fix(0)); -t7=C_eqp(t6,((C_word*)t0)[2]); -if(C_truep(t7)){ -t8=(C_truep(t2)?C_i_setslot(t2,C_fix(1),t5):C_i_setslot(((C_word*)t0)[3],C_fix(2),t5)); -return(C_SCHEME_TRUE);} -else{ -t10=t5; -t11=t4; -t1=t10; -t2=t11; -goto loop;}} -else{ -return(C_SCHEME_FALSE);}} - -/* k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_36758(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_36758,c,av);} -a=C_alloc(29); -t2=C_mutate((C_word*)lf[1437]+1 /* (set! chicken.plist#symbol-plist ...) */,t1); -t3=C_mutate((C_word*)lf[1438]+1 /* (set! chicken.plist#get-properties ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36760,a[2]=((C_word)li1091),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[1440]+1 /* (set! ##sys#display-times ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36823,a[2]=((C_word)li1095),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1097]+1 /* (set! ##sys#dump-heap-state ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_dump_heap_state,a[2]=((C_word)li1096),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1456]+1 /* (set! ##sys#filter-heap-objects ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_filter_heap_objects,a[2]=((C_word)li1097),tmp=(C_word)a,a+=3,tmp)); -t7=C_a_i_provide(&a,1,lf[1457]); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37059,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_software_type,a[2]=((C_word)li1216),tmp=(C_word)a,a+=3,tmp); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40779,a[2]=t8,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7454: g8559 */ -t11=t9;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t10; -((C_proc)C_fast_retrieve_proc(t11))(2,av2);}} - -/* chicken.plist#get-properties in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36760(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_36760,c,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[1439]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36767,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_36767(t9,t8);} -else{ -t7=t6; -f_36767(t7,C_SCHEME_UNDEFINED);}} - -/* k36765 in chicken.plist#get-properties in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void f_36767(C_word t0,C_word 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_36767,2,t0,t1);} -a=C_alloc(7); -t2=C_i_check_list_2(((C_word*)((C_word*)t0)[2])[1],lf[1439]); -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_36779,a[2]=((C_word*)t0)[2],a[3]=t5,a[4]=((C_word)li1090),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_36779(t7,((C_word*)t0)[4],t3);} - -/* loop in k36765 in chicken.plist#get-properties in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void f_36779(C_word t0,C_word t1,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_36779,3,t0,t1,t2);} -if(C_truep(C_i_nullp(t2))){ -/* library.scm:7372: scheme#values */{ -C_word av2[5]; -av2[0]=0; -av2[1]=t1; -av2[2]=C_SCHEME_FALSE; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_FALSE; -C_values(5,av2);}} -else{ -t3=C_slot(t2,C_fix(0)); -t4=C_slot(t2,C_fix(1)); -t5=C_slot(t4,C_fix(1)); -if(C_truep(C_i_memq(t3,((C_word*)((C_word*)t0)[2])[1]))){ -/* library.scm:7377: scheme#values */{ -C_word av2[5]; -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=C_slot(t4,C_fix(0)); -av2[4]=t5; -C_values(5,av2);}} -else{ -/* library.scm:7378: loop */ -t7=t1; -t8=t5; -t1=t7; -t2=t8; -goto loop;}}} - -/* ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_36823(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_36823,c,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_36838,a[2]=((C_word)li1092),tmp=(C_word)a,a+=3,tmp)); -t10=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36852,a[2]=((C_word)li1093),tmp=(C_word)a,a+=3,tmp)); -t11=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36874,a[2]=t4,a[3]=t6,a[4]=((C_word)li1094),tmp=(C_word)a,a+=5,tmp)); -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36950,a[2]=t2,a[3]=t1,a[4]=t8,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7400: ##sys#flush-output */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[885]); -C_word *av2=av; -av2[0]=*((C_word*)lf[885]+1); -av2[1]=t12; -av2[2]=*((C_word*)lf[839]+1); -tp(3,av2);}} - -/* pnum in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void f_36838(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_36838,2,t1,t2);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36846,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_zerop(t2))){ -/* library.scm:7389: ##sys#print */ -t4=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[1441]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -/* library.scm:7389: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}}} - -/* k36844 in pnum in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36846(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_36846,c,av);} -/* library.scm:7389: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* round-to in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void f_36852(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_36852,3,t1,t2,t3);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36860,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36872,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7391: scheme#expt */ -t6=*((C_word*)lf[634]+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);}} - -/* k36858 in round-to in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36860(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36860,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36864,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7391: scheme#expt */ -t3=*((C_word*)lf[634]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1442]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k36862 in k36858 in round-to in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_36864(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_36864,c,av);} -/* ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[630]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k36870 in round-to in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36872(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_36872,c,av);} -a=C_alloc(33); -t2=C_s_a_i_times(&a,2,((C_word*)t0)[2],t1); -/* library.scm:7391: scheme#round */ -t3=*((C_word*)lf[652]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void f_36874(C_word 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_36874,3,t0,t1,t2);} -a=C_alloc(11); -if(C_truep(C_i_greaterp(t2,lf[1443]))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36884,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36891,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_36895,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=lf[1443]; -tp(4,av2);}} -else{ -if(C_truep(C_i_greaterp(t2,C_fix(1048576)))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36906,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36913,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_36917,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=C_fix(1048576); -tp(4,av2);}} -else{ -if(C_truep(C_i_greaterp(t2,C_fix(1024)))){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36928,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_36935,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_36939,a[2]=((C_word*)t0)[3],a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* ##sys#/-2 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[630]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[630]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=C_fix(1024); -tp(4,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36944,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7399: pnum */ -f_36838(t3,t2);}}}} - -/* k36882 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36884(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_36884,c,av);} -/* library.scm:7386: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1444]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k36889 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36891(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36891,c,av);} -/* library.scm:7394: pnum */ -f_36838(((C_word*)t0)[3],t1);} - -/* k36893 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36895(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_36895,c,av);} -/* library.scm:7394: round-to */ -f_36852(((C_word*)t0)[3],t1,C_fix(2));} - -/* k36904 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_36906,c,av);} -/* library.scm:7386: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1445]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k36911 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36913,c,av);} -/* library.scm:7396: pnum */ -f_36838(((C_word*)t0)[3],t1);} - -/* k36915 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36917(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_36917,c,av);} -/* library.scm:7396: round-to */ -f_36852(((C_word*)t0)[3],t1,C_fix(2));} - -/* k36926 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36928(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_36928,c,av);} -/* library.scm:7386: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1446]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k36933 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36935,c,av);} -/* library.scm:7398: pnum */ -f_36838(((C_word*)t0)[3],t1);} - -/* k36937 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36939(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_36939,c,av);} -/* library.scm:7398: round-to */ -f_36852(((C_word*)t0)[3],t1,C_fix(2));} - -/* k36942 in pmem in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36944(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_36944,c,av);} -/* library.scm:7386: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1447]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_36950(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36950,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36953,a[2]=((C_word*)t0)[2],a[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:7401: pnum */ -f_36838(t2,C_slot(((C_word*)t0)[2],C_fix(0)));} - -/* k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_36953(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36953,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36956,a[2]=((C_word*)t0)[2],a[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:7386: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1455]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_36956(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_36956,c,av);} -a=C_alloc(11); -t2=C_slot(((C_word*)t0)[2],C_fix(1)); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36962,a[2]=((C_word*)t0)[2],a[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(t2,C_fix(0)))){ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37043,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7386: ##sys#print */ -t5=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[1454]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_36962(2,av2);}}} - -/* k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_36962(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_36962,c,av);} -a=C_alloc(12); -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -t3=C_slot(((C_word*)t0)[2],C_fix(3)); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_36971,a[2]=((C_word*)t0)[2],a[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(t2,C_fix(0)))){ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37025,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7386: ##sys#print */ -t6=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[1452]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t5=t4;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_UNDEFINED; -f_36971(2,av2);}}} - -/* k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void C_ccall f_36971(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_36971,c,av);} -a=C_alloc(11); -t2=C_slot(((C_word*)t0)[2],C_fix(4)); -t3=C_slot(((C_word*)t0)[2],C_fix(5)); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36980,a[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_fixnum_greaterp(t2,C_fix(0)); -t6=(C_truep(t5)?t5:C_fixnum_greaterp(t3,C_fix(0))); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37004,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7386: ##sys#print */ -t8=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t8; -av2[1]=t7; -av2[2]=lf[1450]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t8+1)))(5,av2);}} -else{ -t7=t4;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_UNDEFINED; -f_36980(2,av2);}}} - -/* k36978 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_36980(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_36980,c,av);} -a=C_alloc(5); -t2=C_slot(((C_word*)t0)[2],C_fix(6)); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_36986,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7386: ##sys#print */ -t4=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1448]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k36984 in k36978 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_36986(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_36986,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36989,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7426: pmem */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_36874(t3,t2,((C_word*)t0)[4]);} - -/* k36987 in k36984 in k36978 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_36989(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_36989,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_36992,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7427: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t2; -av2[2]=C_make_character(10); -av2[3]=*((C_word*)lf[840]+1); -tp(4,av2);}} - -/* k36990 in k36987 in k36984 in k36978 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_36992(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_36992,c,av);} -/* library.scm:7428: ##sys#flush-output */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[885]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[885]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[840]+1); -tp(3,av2);}} - -/* k37002 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_37004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37004,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37007,a[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:7420: pnum */ -f_36838(t2,((C_word*)t0)[5]);} - -/* k37005 in k37002 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_37007(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37007,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37010,a[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:7387: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t2; -av2[2]=C_make_character(47); -av2[3]=*((C_word*)lf[840]+1); -tp(4,av2);}} - -/* k37008 in k37005 in k37002 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37010(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_37010,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37013,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7422: pnum */ -f_36838(t2,((C_word*)t0)[4]);} - -/* k37011 in k37008 in k37005 in k37002 in k36969 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_37013(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_37013,c,av);} -/* library.scm:7386: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1449]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k37023 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void C_ccall f_37025(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37025,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37028,a[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:7412: pnum */ -f_36838(t2,((C_word*)t0)[5]);} - -/* k37026 in k37023 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_37028(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37028,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37031,a[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:7387: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=t2; -av2[2]=C_make_character(47); -av2[3]=*((C_word*)lf[840]+1); -tp(4,av2);}} - -/* k37029 in k37026 in k37023 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_37031(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_37031,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37034,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7414: pnum */ -f_36838(t2,((C_word*)t0)[4]);} - -/* k37032 in k37029 in k37026 in k37023 in k36960 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37034(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_37034,c,av);} -/* library.scm:7386: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1451]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k37041 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_37043(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_37043,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37046,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7406: pnum */ -f_36838(t2,((C_word*)t0)[4]);} - -/* k37044 in k37041 in k36954 in k36951 in k36948 in ##sys#display-times in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void C_ccall f_37046(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_37046,c,av);} -/* library.scm:7386: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1453]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_37059(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37059,c,av);} -a=C_alloc(13); -t2=C_mutate((C_word*)lf[1458]+1 /* (set! chicken.platform#software-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37060,a[2]=t1,a[3]=((C_word)li1098),tmp=(C_word)a,a+=4,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37065,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_machine_type,a[2]=((C_word)li1215),tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40775,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7458: g8563 */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} - -/* chicken.platform#software-type in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_37060(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37060,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_37065(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37065,c,av);} -a=C_alloc(13); -t2=C_mutate((C_word*)lf[1459]+1 /* (set! chicken.platform#machine-type ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37066,a[2]=t1,a[3]=((C_word)li1099),tmp=(C_word)a,a+=4,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37071,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_machine_byte_order,a[2]=((C_word)li1214),tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40771,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7462: g8567 */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} - -/* chicken.platform#machine-type in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_37066(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37066,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_37071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37071,c,av);} -a=C_alloc(13); -t2=C_mutate((C_word*)lf[1460]+1 /* (set! chicken.platform#machine-byte-order ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37072,a[2]=t1,a[3]=((C_word)li1100),tmp=(C_word)a,a+=4,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37077,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_software_version,a[2]=((C_word)li1213),tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40767,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7466: g8571 */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} - -/* chicken.platform#machine-byte-order in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_37072(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37072,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_37077(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37077,c,av);} -a=C_alloc(13); -t2=C_mutate((C_word*)lf[1461]+1 /* (set! chicken.platform#software-version ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37078,a[2]=t1,a[3]=((C_word)li1101),tmp=(C_word)a,a+=4,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37083,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_build_platform,a[2]=((C_word)li1212),tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40763,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7470: g8575 */ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)C_fast_retrieve_proc(t6))(2,av2);}} - -/* chicken.platform#software-version in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_37078(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37078,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_37083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37083,c,av);} -a=C_alloc(10); -t2=C_mutate((C_word*)lf[1462]+1 /* (set! chicken.platform#build-platform ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37084,a[2]=t1,a[3]=((C_word)li1102),tmp=(C_word)a,a+=4,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37089,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40759,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7474: software-type */ -t5=C_fast_retrieve(lf[1458]);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.platform#build-platform in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void C_ccall f_37084(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37084,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void f_37089(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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,0,3)))){ -C_save_and_reclaim_args((void *)trf_37089,2,t0,t1);} -a=C_alloc(24); -t2=C_set_block_item(lf[1463] /* ##sys#windows-platform */,0,t1); -t3=C_mutate((C_word*)lf[1464]+1 /* (set! chicken.platform#chicken-version ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37091,a[2]=((C_word)li1104),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[1497]+1 /* (set! chicken.platform#chicken-home ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37226,a[2]=((C_word)li1105),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1498]+1 /* (set! chicken.platform#include-path ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37232,a[2]=((C_word)li1106),tmp=(C_word)a,a+=3,tmp)); -t6=(C_truep(C_fast_retrieve(lf[1463]))?C_make_character(59):C_make_character(58)); -t7=lf[1502] /* chicken.platform#path-list-separator */ =t6;; -t8=lf[1503]; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_mutate((C_word*)lf[1504]+1 /* (set! ##sys#split-path ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37255,a[2]=t9,a[3]=((C_word)li1108),tmp=(C_word)a,a+=4,tmp)); -t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37345,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40677,a[2]=t11,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t13=*((C_word*)lf[829]+1);{ -C_word av2[4]; -av2[0]=t13; -av2[1]=t12; -av2[2]=C_mpointer(&a,(void*)C_private_repository_path()); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t13+1)))(4,av2);}} - -/* chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_37091(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_37091,c,av);} -a=C_alloc(6); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0)); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37152,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37189,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -t6=C_fix((C_word)C_WORD_SIZE); -/* ##sys#fixnum->string */ -t7=*((C_word*)lf[726]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t5; -av2[2]=t6; -av2[3]=C_fix(10); -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -t4=C_fast_retrieve(lf[1466]); -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_fast_retrieve(lf[1466]); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void C_ccall f_37101(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37101,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37104,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7481: software-type */ -t3=C_fast_retrieve(lf[1458]);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_37104(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37104,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37107,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7482: software-version */ -t3=C_fast_retrieve(lf[1461]);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in ... */ -static void C_ccall f_37107(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37107,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37110,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); -/* library.scm:7483: machine-type */ -t3=C_fast_retrieve(lf[1459]);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k37108 in k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in ... */ -static void C_ccall f_37110(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37110,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37112,a[2]=((C_word)li1103),tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_37134,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); -/* library.scm:7488: str */ -f_37112(t3,((C_word*)t0)[5]);} - -/* str in k37108 in k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in ... */ -static void f_37112(C_word t1,C_word 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_37112,2,t1,t2);} -a=C_alloc(3); -t3=C_eqp(lf[1471],t2); -if(C_truep(t3)){ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=lf[1472]; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37126,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7487: scheme#symbol->string */ -t5=*((C_word*)lf[740]+1);{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}}} - -/* k37124 in str in k37108 in k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in ... */ -static void C_ccall f_37126(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_37126,c,av);} -/* ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[1473]; -tp(4,av2);}} - -/* k37132 in k37108 in k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in ... */ -static void C_ccall f_37134(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_37134,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_37138,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); -/* library.scm:7488: str */ -f_37112(t2,((C_word*)t0)[6]);} - -/* k37136 in k37132 in k37108 in k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in ... */ -static void C_ccall f_37138(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37138,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37142,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); -/* library.scm:7488: str */ -f_37112(t2,((C_word*)t0)[6]);} - -/* k37140 in k37136 in k37132 in k37108 in k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in ... */ -static void C_ccall f_37142(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37142,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37146,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); -/* library.scm:7488: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} - -/* k37144 in k37140 in k37136 in k37132 in k37108 in k37105 in k37102 in k37099 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in ... */ -static void C_ccall f_37146(C_word c,C_word *av){ -C_word tmp; -C_word 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_37146,c,av);} -/* library.scm:7488: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_37152(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37152,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37159,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_fast_retrieve(lf[1478]))){ -/* library.scm:7498: scheme#string-append */ -t3=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1479]; -av2[3]=C_fast_retrieve(lf[1478]); -av2[4]=lf[1480]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[1481]; -f_37159(2,av2);}}} - -/* k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37159(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37159,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37163,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_fast_retrieve(lf[1474]))){ -/* library.scm:7499: scheme#string-append */ -t3=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1475]; -av2[3]=C_fast_retrieve(lf[1474]); -av2[4]=lf[1476]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=lf[1477]; -f_37163(2,av2);}}} - -/* k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_37163(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37163,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37167,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); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37101,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7480: build-platform */ -t4=C_fast_retrieve(lf[1462]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k37165 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void C_ccall f_37167(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_37167,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37171,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); -t3=C_eqp(C_u_i_string_length(((C_word*)t0)[5]),C_fix(0)); -if(C_truep(t3)){ -/* library.scm:7496: scheme#string-append */ -t4=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 9) { - av2=av; -} else { - av2=C_alloc(9); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1465]; -av2[3]=C_fast_retrieve(lf[1466]); -av2[4]=((C_word*)t0)[3]; -av2[5]=((C_word*)t0)[4]; -av2[6]=lf[1467]; -av2[7]=t1; -av2[8]=lf[1468]; -((C_proc)(void*)(*((C_word*)t4+1)))(9,av2);}} -else{ -/* library.scm:7504: scheme#string-append */ -t4=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=lf[1469]; -av2[3]=((C_word*)t0)[5]; -av2[4]=lf[1470]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} - -/* k37169 in k37165 in k37161 in k37157 in k37150 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_37171(C_word c,C_word *av){ -C_word tmp; -C_word 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_37171,c,av);} -/* library.scm:7496: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 9) { - av2=av; -} else { - av2=C_alloc(9); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1465]; -av2[3]=C_fast_retrieve(lf[1466]); -av2[4]=((C_word*)t0)[3]; -av2[5]=((C_word*)t0)[4]; -av2[6]=lf[1467]; -av2[7]=((C_word*)t0)[5]; -av2[8]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} - -/* k37187 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_37189(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37189,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37217,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7492: feature? */ -t3=C_fast_retrieve(lf[1492]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1496]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k37206 in k37209 in k37212 in k37215 in k37187 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_37208(C_word c,C_word *av){ -C_word tmp; -C_word 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_37208,c,av);} -if(C_truep(t1)){ -/* library.scm:7490: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 9) { - av2=av; -} else { - av2=C_alloc(9); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1488]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1489]; -av2[5]=((C_word*)t0)[4]; -av2[6]=((C_word*)t0)[5]; -av2[7]=((C_word*)t0)[6]; -av2[8]=lf[1490]; -((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}} -else{ -/* library.scm:7490: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 9) { - av2=av; -} else { - av2=C_alloc(9); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1488]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1489]; -av2[5]=((C_word*)t0)[4]; -av2[6]=((C_word*)t0)[5]; -av2[7]=((C_word*)t0)[6]; -av2[8]=lf[1491]; -((C_proc)(void*)(*((C_word*)t2+1)))(9,av2);}}} - -/* k37209 in k37212 in k37215 in k37187 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void C_ccall f_37211(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37211,c,av);} -a=C_alloc(7); -t2=(C_truep(t1)?lf[1486]:lf[1487]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_37208,a[2]=((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:7495: feature? */ -t4=C_fast_retrieve(lf[1492]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1493]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k37212 in k37215 in k37187 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_37214(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_37214,c,av);} -a=C_alloc(6); -t2=(C_truep(t1)?lf[1484]:lf[1485]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37211,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:7494: feature? */ -t4=C_fast_retrieve(lf[1492]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1494]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k37215 in k37187 in chicken.platform#chicken-version in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37217(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_37217,c,av);} -a=C_alloc(5); -t2=(C_truep(t1)?lf[1482]:lf[1483]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37214,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7493: feature? */ -t4=C_fast_retrieve(lf[1492]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1495]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* chicken.platform#chicken-home in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_37226(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_37226,c,av);} -a=C_alloc(3); -/* ##sys#peek-c-string */ -t2=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* chicken.platform#include-path in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_37232(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37232,c,av);} -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0)); -if(C_truep(t3)){ -t4=C_i_check_list_2(t3,lf[1499]); -t5=C_mutate((C_word*)lf[1500]+1 /* (set! ##sys#include-pathnames ...) */,t3); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_fast_retrieve(lf[1501]); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_fast_retrieve(lf[1501]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* ##sys#split-path in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_37255(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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(13,c,4)))){ -C_save_and_reclaim((void *)f_37255,c,av);} -a=C_alloc(13); -if(C_truep(C_i_not(t2))){ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_car(((C_word*)((C_word*)t0)[2])[1]); -if(C_truep(C_i_equalp(t2,t3))){ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_cdr(((C_word*)((C_word*)t0)[2])[1]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_i_string_length(t2); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37277,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=t1,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|5,a[1]=(C_word)f_37283,a[2]=t4,a[3]=t2,a[4]=t7,a[5]=((C_word)li1107),tmp=(C_word)a,a+=6,tmp)); -t9=((C_word*)t7)[1]; -f_37283(t9,t5,C_fix(0),C_fix(0));}}} - -/* k37275 in ##sys#split-path in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_37277(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_37277,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* loop in ##sys#split-path in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void f_37283(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ -C_save_and_reclaim_args((void *)trf_37283,4,t0,t1,t2,t3);} -a=C_alloc(5); -if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){ -t4=C_eqp(t3,t2); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37303,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7537: scheme#substring */ -t6=*((C_word*)lf[489]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} -else{ -t4=C_i_string_ref(((C_word*)t0)[3],t3); -t5=C_retrieve2(lf[1502],C_text("chicken.platform#path-list-separator")); -if(C_truep(C_u_i_char_equalp(t4,C_retrieve2(lf[1502],C_text("chicken.platform#path-list-separator"))))){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37318,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7540: scheme#substring */ -t7=*((C_word*)lf[489]+1);{ -C_word av2[5]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=t2; -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(5,av2);}} -else{ -/* library.scm:7544: loop */ -t8=t1; -t9=t2; -t10=C_fixnum_plus(t3,C_fix(1)); -t1=t8; -t2=t9; -t3=t10; -goto loop;}}} - -/* k37301 in loop in ##sys#split-path in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37303(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_37303,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list1(&a,1,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k37316 in loop in ##sys#split-path in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37318(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37318,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37322,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7541: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_37283(t3,t2,C_fixnum_plus(((C_word*)t0)[4],C_fix(1)),C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k37320 in k37316 in loop in ##sys#split-path in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_37322(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_37322,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_37345(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37345,c,av);} -a=C_alloc(9); -t2=C_mutate((C_word*)lf[1505]+1 /* (set! chicken.platform#repository-path ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37349,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40661,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t5=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_mpointer(&a,(void*)C_private_repository_path()); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_37349(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37349,c,av);} -a=C_alloc(6); -t2=C_mutate((C_word*)lf[1506]+1 /* (set! chicken.platform#installation-repository ...) */,t1); -t3=C_mutate(&lf[1507] /* (set! chicken.platform#chop-separator ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37351,a[2]=((C_word)li1109),tmp=(C_word)a,a+=3,tmp)); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37381,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7578: chicken.process-context#get-environment-variable */ -t5=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[1581]; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* chicken.platform#chop-separator in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37351(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37351,c,av);} -t3=C_i_string_length(t2); -t4=C_fixnum_difference(t3,C_fix(1)); -if(C_truep(C_fixnum_greaterp(t4,C_fix(0)))){ -t5=C_i_string_ref(t2,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)))){ -/* library.scm:7574: scheme#substring */ -t6=*((C_word*)lf[489]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(0); -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_37381(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_37381,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37384,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(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[1507],C_text("chicken.platform#chop-separator")); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40607,a[2]=t5,a[3]=t6,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7580: ##sys#split-path */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1504]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1504]+1); -av2[1]=t8; -av2[2]=t1; -tp(3,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40657,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t4=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_mpointer(&a,(void*)C_INSTALL_SHARE_HOME); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_37384(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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(29,c,3)))){ -C_save_and_reclaim((void *)f_37384,c,av);} -a=C_alloc(29); -t2=C_mutate((C_word*)lf[1500]+1 /* (set! ##sys#include-pathnames ...) */,t1); -t3=C_mutate((C_word*)lf[1498]+1 /* (set! chicken.platform#include-path ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37386,a[2]=((C_word)li1110),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate(&lf[1508] /* (set! chicken.platform#->feature-id ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37404,a[2]=((C_word)li1111),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,lf[1511]); -t6=C_a_i_cons(&a,2,lf[1512],C_fast_retrieve(lf[1510])); -t7=C_a_i_cons(&a,2,lf[1513],t6); -t8=C_a_i_cons(&a,2,lf[1514],t7); -t9=C_a_i_cons(&a,2,lf[1515],t8); -t10=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t9); -t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37442,a[2]=((C_word)li1112),tmp=(C_word)a,a+=3,tmp); -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37460,a[2]=((C_word*)t0)[2],a[3]=t11,tmp=(C_word)a,a+=4,tmp); -t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40587,a[2]=t11,a[3]=t12,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7613: software-type */ -t14=C_fast_retrieve(lf[1458]);{ -C_word *av2=av; -av2[0]=t14; -av2[1]=t13; -((C_proc)(void*)(*((C_word*)t14+1)))(2,av2);}} - -/* chicken.platform#include-path in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void C_ccall f_37386(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37386,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_fast_retrieve(lf[1500]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* chicken.platform#->feature-id in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void C_ccall f_37404(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_37404,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37411,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7595: chicken.keyword#keyword? */ -t4=*((C_word*)lf[753]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k37409 in chicken.platform#->feature-id in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_37411(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37411,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_i_stringp(((C_word*)t0)[3]))){ -/* library.scm:7596: chicken.keyword#string->keyword */ -t2=*((C_word*)lf[754]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -if(C_truep(C_i_symbolp(((C_word*)t0)[3]))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37433,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7597: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[737]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[737]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t2=C_a_i_list(&a,1,((C_word*)t0)[3]);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[235]+1); -av2[3]=lf[295]; -av2[4]=lf[1509]; -av2[5]=t2; -C_apply(6,av2);}}}}} - -/* k37431 in k37409 in chicken.platform#->feature-id in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in ... */ -static void C_ccall f_37433(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_37433,c,av);} -/* library.scm:7597: chicken.keyword#string->keyword */ -t2=*((C_word*)lf[754]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* check in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void f_37442(C_word t1,C_word 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_37442,2,t1,t2);} -a=C_alloc(3); -t3=C_eqp(lf[1471],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_37457,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7612: ->feature-id */ -t5=C_retrieve2(lf[1508],C_text("chicken.platform#->feature-id"));{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -f_37404(3,av2);}}} - -/* k37455 in check in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_37457(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_37457,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1510])); -t3=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t2); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void C_ccall f_37460(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37460,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37463,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_40583,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7614: software-version */ -t4=C_fast_retrieve(lf[1461]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_37463(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37463,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37466,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_40579,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7615: build-platform */ -t4=C_fast_retrieve(lf[1462]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in ... */ -static void C_ccall f_37466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37466,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37469,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_40575,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7616: machine-type */ -t4=C_fast_retrieve(lf[1459]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in ... */ -static void C_ccall f_37469(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37469,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37472,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40571,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7617: machine-byte-order */ -t4=C_fast_retrieve(lf[1460]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in ... */ -static void C_ccall f_37472(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37472,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37475,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_mk_bool(HAVE_DLOAD))){ -t3=C_a_i_cons(&a,2,lf[1496],C_fast_retrieve(lf[1510])); -t4=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t3); -t5=t2; -f_37475(t5,t4);} -else{ -t3=t2; -f_37475(t3,C_SCHEME_UNDEFINED);}} - -/* k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in ... */ -static void f_37475(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_37475,2,t0,t1);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37478,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_mk_bool(HAVE_PTABLES))){ -t3=C_a_i_cons(&a,2,lf[1495],C_fast_retrieve(lf[1510])); -t4=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t3); -t5=t2; -f_37478(t5,t4);} -else{ -t3=t2; -f_37478(t3,C_SCHEME_UNDEFINED);}} - -/* k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in ... */ -static void f_37478(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_37478,2,t0,t1);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37481,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_mk_bool(HAVE_GCHOOKS))){ -t3=C_a_i_cons(&a,2,lf[1494],C_fast_retrieve(lf[1510])); -t4=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t3); -t5=t2; -f_37481(t5,t4);} -else{ -t3=t2; -f_37481(t3,C_SCHEME_UNDEFINED);}} - -/* k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in ... */ -static void f_37481(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_37481,2,t0,t1);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37484,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_mk_bool(IS_CROSS_CHICKEN))){ -t3=C_a_i_cons(&a,2,lf[1493],C_fast_retrieve(lf[1510])); -t4=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t3); -t5=t2; -f_37484(t5,t4);} -else{ -t3=t2; -f_37484(t3,C_SCHEME_UNDEFINED);}} - -/* k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in ... */ -static void f_37484(C_word 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_37484,2,t0,t1);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40541,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40545,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40549,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=C_fix((C_word)C_WORD_SIZE); -/* ##sys#fixnum->string */ -t6=*((C_word*)lf[726]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t4; -av2[2]=t5; -av2[3]=C_fix(10); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} - -/* k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in ... */ -static void C_ccall f_37492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_37492,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37495,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=C_fix((C_word)C_MINOR_VERSION); -/* library.scm:7638: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t2; -av2[2]=t3; -tp(3,av2);}} - -/* k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in ... */ -static void C_ccall f_37495(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_37495,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40519,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_40535,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7639: scheme#string-append */ -t4=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1579]; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* chicken.platform#register-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37500(C_word c,C_word *av){ -C_word tmp; -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_37500,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_37519,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_37521,a[2]=t5,a[3]=((C_word)li1113),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_37521(t7,t3,t2);} - -/* k37504 in for-each-loop8750 in chicken.platform#register-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_37506,c,av);} -a=C_alloc(3); -if(C_truep(C_i_memq(t1,C_fast_retrieve(lf[1510])))){ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_37521(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1510])); -t3=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t2); -t4=((C_word*)((C_word*)t0)[2])[1]; -f_37521(t4,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));}} - -/* k37517 in chicken.platform#register-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_37519(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_37519,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* for-each-loop8750 in chicken.platform#register-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_37521(C_word t0,C_word t1,C_word 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_37521,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_37506,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7646: ->feature-id */ -t5=C_retrieve2(lf[1508],C_text("chicken.platform#->feature-id"));{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t3; -f_37404(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);}}} - -/* chicken.platform#unregister-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37544(C_word c,C_word *av){ -C_word tmp; -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 +16,c,3)))){ -C_save_and_reclaim((void*)f_37544,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+16); -t2=C_build_rest(&a,c,2,av); -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -t3=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t4=t3; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t5)[1]; -t7=C_retrieve2(lf[1508],C_text("chicken.platform#->feature-id")); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37551,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|5,a[1]=(C_word)f_37588,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li1116),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_37588(t12,t8,t2);} - -/* k37549 in chicken.platform#unregister-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_37551(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_37551,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37555,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_37557,a[2]=t1,a[3]=t4,a[4]=((C_word)li1115),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_37557(t6,t2,C_fast_retrieve(lf[1510]));} - -/* k37553 in k37549 in chicken.platform#unregister-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37555(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_37555,c,av);} -t2=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* loop in k37549 in chicken.platform#unregister-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_37557(C_word t0,C_word t1,C_word 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_37557,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=C_slot(t2,C_fix(1)); -if(C_truep(C_i_memq(t3,((C_word*)t0)[2]))){ -/* library.scm:7660: loop */ -t7=t1; -t8=t4; -t1=t7; -t2=t8; -goto loop;} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37586,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7661: loop */ -t7=t5; -t8=t4; -t1=t7; -t2=t8; -goto loop;}}} - -/* k37584 in loop in k37549 in chicken.platform#unregister-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_37586(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_37586,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* map-loop8773 in chicken.platform#unregister-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_37588(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_37588,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37613,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); -/* library.scm:7652: g8779 */ -t4=C_retrieve2(lf[1508],C_text("chicken.platform#->feature-id"));{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -f_37404(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);}}} - -/* k37611 in map-loop8773 in chicken.platform#unregister-feature! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37613(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37613,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_37588(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* chicken.platform#feature? in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37622(C_word c,C_word *av){ -C_word tmp; -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_37622,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_37628,a[2]=t4,a[3]=((C_word)li1118),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_37628(t6,t1,t2);} - -/* loop in chicken.platform#feature? in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_37628(C_word t0,C_word t1,C_word 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_37628,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_37652,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7667: ->feature-id */ -t5=C_retrieve2(lf[1508],C_text("chicken.platform#->feature-id"));{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_slot(t2,C_fix(0)); -f_37404(3,av2);}}} - -/* k37650 in loop in chicken.platform#feature? in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37652(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_37652,c,av);} -if(C_truep(C_i_memq(t1,C_fast_retrieve(lf[1510])))){ -/* library.scm:7668: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_37628(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.platform#system-config-directory in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37659(C_word c,C_word *av){ -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_37659,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37663,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7674: chicken.process-context#get-environment-variable */ -t3=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1523]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k37661 in chicken.platform#system-config-directory in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_37663(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_37663,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_fast_retrieve(lf[1463]))){ -/* library.scm:7676: chicken.process-context#get-environment-variable */ -t2=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1520]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37675,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7677: chicken.process-context#get-environment-variable */ -t3=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1522]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} - -/* k37673 in k37661 in chicken.platform#system-config-directory in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37675(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_37675,c,av);} -if(C_truep(t1)){ -/* library.scm:7678: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[1521]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* chicken.platform#system-cache-directory in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37683(C_word c,C_word *av){ -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_37683,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37687,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7681: chicken.process-context#get-environment-variable */ -t3=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1529]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k37685 in chicken.platform#system-cache-directory in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_37687(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_37687,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(C_fast_retrieve(lf[1463]))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37696,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7683: chicken.process-context#get-environment-variable */ -t3=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1526]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37705,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7685: chicken.process-context#get-environment-variable */ -t3=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1528]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} - -/* k37694 in k37685 in chicken.platform#system-cache-directory in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37696(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_37696,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* library.scm:7684: chicken.process-context#get-environment-variable */ -t2=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1525]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* k37703 in k37685 in chicken.platform#system-cache-directory in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37705(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_37705,c,av);} -if(C_truep(t1)){ -/* library.scm:7686: scheme#string-append */ -t2=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[1527]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* scheme#features in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37713(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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(13,c,3)))){ -C_save_and_reclaim((void *)f_37713,c,av);} -a=C_alloc(13); -t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=((C_word*)t4)[1]; -t6=C_fast_retrieve(lf[1510]); -t7=C_i_check_list_2(t6,lf[822]); -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_37734,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li1123),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_37734(t11,t1,t6);} - -/* k37724 in map-loop8865 in scheme#features in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37726(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_37726,c,av);} -/* library.scm:7693: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[739]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[739]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* map-loop8865 in scheme#features in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_37734(C_word 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_37734,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_37759,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_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37726,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7693: ##sys#symbol->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[738]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[738]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k37757 in map-loop8865 in scheme#features in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37759(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37759,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_37734(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* scheme#make-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37768(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_37768,c,av);} -a=C_alloc(5); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37775,a[2]=t4,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7698: ##sys#check-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[422]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[422]+1); -av2[1]=t5; -av2[2]=t2; -av2[3]=lf[1530]; -tp(4,av2);}} - -/* k37773 in scheme#make-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_37775(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37775,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_37778,a[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_greater_or_equal_p(((C_word*)t0)[4],C_fix(0)))){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_37778(2,av2);}} -else{ -/* library.scm:7700: chicken.base#error */ -t3=*((C_word*)lf[234]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1530]; -av2[3]=lf[1531]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k37776 in k37773 in scheme#make-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37778(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37778,c,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_37783,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li1125),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_37783(t5,((C_word*)t0)[3],((C_word*)t0)[4],C_SCHEME_END_OF_LIST);} - -/* doloop8901 in k37776 in k37773 in scheme#make-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void f_37783(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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_37783,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]=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,((C_word*)t0)[2],t3); -t8=t1; -t9=t5; -t10=t6; -t1=t8; -t2=t9; -t3=t10; -goto loop;}} - -/* scheme#list-set! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37815(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,3)))){ -C_save_and_reclaim((void *)f_37815,c,av);} -a=C_alloc(6); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37819,a[2]=t4,a[3]=t1,a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7707: ##sys#check-integer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[422]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[422]+1); -av2[1]=t5; -av2[2]=t3; -av2[3]=lf[1532]; -tp(4,av2);}} - -/* k37817 in scheme#list-set! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_37819(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37819,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37822,a[2]=((C_word*)t0)[2],a[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)[4],C_fix(0)))){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_37822(2,av2);}} -else{ -/* library.scm:7709: chicken.base#error */ -t3=*((C_word*)lf[234]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[1532]; -av2[3]=lf[1534]; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k37820 in k37817 in scheme#list-set! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37822(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_37822,c,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_37827,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li1127),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_37827(t5,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* doloop8911 in k37820 in k37817 in scheme#list-set! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void f_37827(C_word t0,C_word t1,C_word t2,C_word 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(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_37827,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=C_eqp(t2,C_fix(0)); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_i_set_car(t3,((C_word*)t0)[2]); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37840,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -if(C_truep(C_i_nullp(t3))){ -/* library.scm:7714: chicken.base#error */ -t6=*((C_word*)lf[234]+1);{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[1532]; -av2[3]=lf[1533]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t7=t1; -t8=C_fixnum_difference(t2,C_fix(1)); -t9=C_i_cdr(t3); -t1=t7; -t2=t8; -t3=t9; -goto loop;}}} - -/* k37838 in doloop8911 in k37820 in k37817 in scheme#list-set! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_37840(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_37840,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_37827(t2,((C_word*)t0)[3],C_fixnum_difference(((C_word*)t0)[4],C_fix(1)),C_i_cdr(((C_word*)t0)[5]));} - -/* scheme#list-copy in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37865(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37865,c,av);} -a=C_alloc(6); -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|3,a[1]=(C_word)f_37877,a[2]=t4,a[3]=((C_word)li1129),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_37877(t6,t1,C_SCHEME_END_OF_LIST,t2);} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* lp in scheme#list-copy in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_37877(C_word t0,C_word t1,C_word t2,C_word 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_37877,4,t0,t1,t2,t3);} -a=C_alloc(4); -if(C_truep(C_i_pairp(t3))){ -t4=C_u_i_car(t3); -t5=C_a_i_cons(&a,2,t4,t2); -/* library.scm:7724: lp */ -t7=t1; -t8=t5; -t9=C_u_i_cdr(t3); -t1=t7; -t2=t8; -t3=t9; -goto loop;} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_37902,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7725: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[445]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[445]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}}} - -/* k37900 in lp in scheme#list-copy in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37902(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_37902,c,av);} -/* library.scm:7725: scheme#append */ -t2=*((C_word*)lf[443]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* scheme#string->vector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_37904(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_37904,c,av);} -a=C_alloc(3); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t8=C_rest_nullp(c,4); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37918,a[2]=((C_word)li1132),tmp=(C_word)a,a+=3,tmp); -if(C_truep(t7)){ -/* library.scm:7741: s->v */ -f_37918(t1,t2,t4,t7);} -else{ -t10=(C_truep(t4)?t4:C_fix(0)); -/* library.scm:7742: s->v */ -f_37918(t1,t2,t10,C_i_string_length(t2));}} - -/* s->v in scheme#string->vector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_37918(C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ -C_save_and_reclaim_args((void *)trf_37918,4,t1,t2,t3,t4);} -a=C_alloc(7); -t5=C_i_check_string_2(t2,lf[1535]); -t6=C_slot(t2,C_fix(1)); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_37928,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,a[6]=t6,tmp=(C_word)a,a+=7,tmp); -/* library.scm:7733: ##sys#check-range/including */ -t8=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t8; -av2[1]=t7; -av2[2]=t3; -av2[3]=C_fix(0); -av2[4]=t4; -av2[5]=lf[1535]; -((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} - -/* k37926 in s->v in scheme#string->vector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_37928(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37928,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37931,a[2]=((C_word*)t0)[2],a[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:7734: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[1535]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k37929 in k37926 in s->v in scheme#string->vector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_37931(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37931,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37934,a[2]=((C_word*)t0)[2],a[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:7735: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t2; -av2[2]=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[5]); -tp(3,av2);}} - -/* k37932 in k37929 in k37926 in s->v in scheme#string->vector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_37934(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_37934,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_37939,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word)li1131),tmp=(C_word)a,a+=6,tmp); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_37939(t2,C_fix(0),((C_word*)t0)[5]) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* doloop8950 in k37932 in k37929 in k37926 in s->v in scheme#string->vector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static C_word f_37939(C_word t0,C_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:{} -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -return(((C_word*)t0)[3]);} -else{ -t4=C_i_setslot(((C_word*)t0)[3],t1,C_utf_subchar(((C_word*)t0)[4],t2)); -t6=C_fixnum_plus(t1,C_fix(1)); -t7=C_fixnum_plus(t2,C_fix(1)); -t1=t6; -t2=t7; -goto loop;}} - -/* scheme#vector->string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_38008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_38008,c,av);} -a=C_alloc(3); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t8=C_rest_nullp(c,4); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38022,a[2]=((C_word)li1135),tmp=(C_word)a,a+=3,tmp); -if(C_truep(t7)){ -/* library.scm:7761: v->s */ -f_38022(t1,t2,t4,t7);} -else{ -t10=(C_truep(t4)?t4:C_fix(0)); -/* library.scm:7762: v->s */ -f_38022(t1,t2,t10,C_block_size(t2));}} - -/* v->s in scheme#vector->string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_38022(C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ -C_save_and_reclaim_args((void *)trf_38022,4,t1,t2,t3,t4);} -a=C_alloc(7); -t5=C_i_check_vector_2(t2,lf[1536]); -t6=C_block_size(t2); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38032,a[2]=t4,a[3]=t2,a[4]=t1,a[5]=t3,a[6]=t6,tmp=(C_word)a,a+=7,tmp); -/* library.scm:7749: ##sys#check-range/including */ -t8=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t8; -av2[1]=t7; -av2[2]=t3; -av2[3]=C_fix(0); -av2[4]=t4; -av2[5]=lf[1536]; -((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}} - -/* k38030 in v->s in scheme#vector->string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_38032(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_38032,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38035,a[2]=((C_word*)t0)[2],a[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:7750: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[5]; -av2[4]=((C_word*)t0)[6]; -av2[5]=lf[1536]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k38033 in k38030 in v->s in scheme#vector->string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_38035(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_38035,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38038,a[2]=((C_word*)t0)[2],a[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_difference(((C_word*)t0)[2],((C_word*)t0)[5]); -/* library.scm:7751: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t2; -av2[2]=C_fixnum_times(C_fix(4),t3); -tp(3,av2);}} - -/* k38036 in k38033 in k38030 in v->s in scheme#vector->string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_38038(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38038,c,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_38043,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t3,a[6]=((C_word)li1134),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_38043(t5,((C_word*)t0)[4],C_fix(0),((C_word*)t0)[5]);} - -/* loop in k38036 in k38033 in k38030 in v->s in scheme#vector->string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void f_38043(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_38043,4,t0,t1,t2,t3);} -t4=C_eqp(t3,((C_word*)t0)[2]); -if(C_truep(t4)){ -/* library.scm:7755: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[300]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(0); -av2[4]=t2; -tp(5,av2);}} -else{ -t5=C_slot(((C_word*)t0)[4],t3); -t6=C_i_check_char_2(t5,lf[1536]); -/* library.scm:7758: loop */ -t8=t1; -t9=C_fixnum_plus(t2,C_utf_insert(((C_word*)t0)[3],t2,t5)); -t10=C_fixnum_plus(t3,C_fix(1)); -t1=t8; -t2=t9; -t3=t10; -goto loop;}} - -/* scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_38122(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,3)))){ -C_save_and_reclaim((void*)f_38122,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_rest_nullp(c,4))){ -t5=C_i_string_length(t3); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38132,a[2]=t5,a[3]=t2,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7768: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fixnum_times(C_fix(4),t5); -tp(3,av2);}} -else{ -t5=C_a_i_cons(&a,2,t3,t4); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38184,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7780: ##sys#check-closure */ -t7=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=lf[1537]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k38130 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_38132(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38132,c,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_38137,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1137),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_38137(t5,((C_word*)t0)[5],C_fix(0),C_fix(0));} - -/* loop in k38130 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_38137(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_38137,4,t0,t1,t2,t3);} -a=C_alloc(7); -if(C_truep(C_fixnum_greater_or_equal_p(t3,((C_word*)t0)[2]))){ -/* library.scm:7772: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[300]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(0); -av2[4]=t2; -tp(5,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38150,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); -/* library.scm:7773: proc */ -t5=((C_word*)t0)[5];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_i_string_ref(((C_word*)t0)[6],t3); -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} - -/* k38148 in loop in k38130 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_38150(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_38150,c,av);} -t2=C_i_check_char_2(t1,lf[1537]); -/* library.scm:7775: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_38137(t3,((C_word*)t0)[3],C_utf_insert(((C_word*)t0)[4],((C_word*)t0)[5],t1),C_fixnum_plus(((C_word*)t0)[6],C_fix(1)));} - -/* k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_38184(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_38184,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38339,a[2]=((C_word)li1138),tmp=(C_word)a,a+=3,tmp); -t3=( - f_38339(((C_word*)t0)[2]) -); -t4=*((C_word*)lf[336]+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|5,a[1]=(C_word)f_38198,a[2]=t4,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); -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_38305,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1143),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_38305(t13,t9,((C_word*)t0)[2]);} - -/* k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_38198(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_38198,c,av);} -a=C_alloc(9); -t2=C_i_check_list_2(t1,lf[254]); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38281,a[2]=((C_word)li1139),tmp=(C_word)a,a+=3,tmp); -t4=( - f_38281(t1,((C_word*)t0)[2]) -); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38207,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:7783: ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[446]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[446]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k38205 in k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_38207(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38207,c,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_38212,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1142),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_38212(t5,((C_word*)t0)[5],C_fix(0));} - -/* doloop9080 in k38205 in k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void f_38212(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){ -C_save_and_reclaim_args((void *)trf_38212,3,t0,t1,t2);} -a=C_alloc(28); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38233,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); -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_38238,a[2]=t2,a[3]=((C_word)li1140),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38245,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -t11=C_SCHEME_UNDEFINED; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38247,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1141),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_38247(t14,t10,((C_word*)t0)[6]);}} - -/* k38231 in doloop9080 in k38205 in k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38233(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_38233,c,av);} -t2=C_i_string_set(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)((C_word*)t0)[4])[1]; -f_38212(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} - -/* g9091 in doloop9080 in k38205 in k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static C_word f_38238(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_string_ref(t1,((C_word*)t0)[2]));} - -/* k38243 in doloop9080 in k38205 in k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38245(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_38245,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop9085 in doloop9080 in k38205 in k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void f_38247(C_word t0,C_word t1,C_word t2){ -C_word 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(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_38247,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* library.scm:7786: g9091 */ - f_38238(((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* foldl9043 in k38196 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static C_word f_38281(C_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_pairp(t1))){ -t3=C_slot(t1,C_fix(1)); -t4=C_slot(t1,C_fix(0)); -t6=t3; -t7=C_i_fixnum_min(t2,t4); -t1=t6; -t2=t7; -goto loop;} -else{ -return(t2);}} - -/* map-loop9050 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_38305(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_38305,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_string_length(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop9013 in k38182 in scheme#string-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static C_word f_38339(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_string_2(t2,lf[1537]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_38362(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -C_word *a; -if(c<4) C_bad_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand((c-4)*C_SIZEOF_PAIR +9,c,3)))){ -C_save_and_reclaim((void*)f_38362,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; -if(C_truep(C_rest_nullp(c,4))){ -t5=C_i_string_length(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|6,a[1]=(C_word)f_38374,a[2]=t5,a[3]=t7,a[4]=t2,a[5]=t3,a[6]=((C_word)li1145),tmp=(C_word)a,a+=7,tmp)); -t9=((C_word*)t7)[1]; -f_38374(t9,t1,C_fix(0));} -else{ -t5=C_a_i_cons(&a,2,t3,t4); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38410,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7799: ##sys#check-closure */ -t7=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=lf[1538]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* lp in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_38374(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_38374,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_fixnum_lessp(t2,((C_word*)t0)[2]))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38384,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7794: proc */ -t4=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_i_string_ref(((C_word*)t0)[5],t2); -((C_proc)C_fast_retrieve_proc(t4))(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);}}} - -/* k38382 in lp in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_38384(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_38384,c,av);} -/* library.scm:7795: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_38374(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_38410(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_38410,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38561,a[2]=((C_word)li1146),tmp=(C_word)a,a+=3,tmp); -t3=( - f_38561(((C_word*)t0)[2]) -); -t4=*((C_word*)lf[336]+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|5,a[1]=(C_word)f_38424,a[2]=t4,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); -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_38527,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1151),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_38527(t13,t9,((C_word*)t0)[2]);} - -/* k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_38424(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_38424,c,av);} -a=C_alloc(9); -t2=C_i_check_list_2(t1,lf[254]); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38503,a[2]=((C_word)li1147),tmp=(C_word)a,a+=3,tmp); -t4=( - f_38503(t1,((C_word*)t0)[2]) -); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38433,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:7802: ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[446]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[446]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k38431 in k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_38433(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38433,c,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_38438,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)li1150),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_38438(t5,((C_word*)t0)[5],C_fix(0));} - -/* doloop9203 in k38431 in k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void f_38438(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,0,3)))){ -C_save_and_reclaim_args((void *)trf_38438,3,t0,t1,t2);} -a=C_alloc(27); -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_38448,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,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|3,a[1]=(C_word)f_38460,a[2]=t2,a[3]=((C_word)li1148),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38467,a[2]=t4,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_38469,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1149),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_38469(t14,t10,((C_word*)t0)[5]);}} - -/* k38446 in doloop9203 in k38431 in k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38448(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_38448,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_38438(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* g9214 in doloop9203 in k38431 in k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static C_word f_38460(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_string_ref(t1,((C_word*)t0)[2]));} - -/* k38465 in doloop9203 in k38431 in k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38467(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_38467,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop9208 in doloop9203 in k38431 in k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void f_38469(C_word t0,C_word t1,C_word t2){ -C_word 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(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_38469,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* library.scm:7805: g9214 */ - f_38460(((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* foldl9166 in k38422 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static C_word f_38503(C_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_pairp(t1))){ -t3=C_slot(t1,C_fix(1)); -t4=C_slot(t1,C_fix(0)); -t6=t3; -t7=C_i_fixnum_min(t2,t4); -t1=t6; -t2=t7; -goto loop;} -else{ -return(t2);}} - -/* map-loop9173 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_38527(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_38527,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_string_length(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop9136 in k38408 in scheme#string-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static C_word f_38561(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_string_2(t2,lf[1538]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_38584(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,3)))){ -C_save_and_reclaim((void*)f_38584,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_rest_nullp(c,4))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38594,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7810: ##sys#check-closure */ -t6=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=lf[1539]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t5=C_a_i_cons(&a,2,t3,t4); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38639,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7819: ##sys#check-closure */ -t7=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=lf[1539]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k38592 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_38594(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38594,c,av);} -a=C_alloc(6); -t2=C_i_check_vector_2(((C_word*)t0)[2],lf[1539]); -t3=C_block_size(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38603,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* library.scm:7813: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t4; -av2[2]=t3; -tp(3,av2);}} - -/* k38601 in k38592 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_38603(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38603,c,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_38608,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1153),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_38608(t5,((C_word*)t0)[5],C_fix(0));} - -/* doloop9254 in k38601 in k38592 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void f_38608(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_38608,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38629,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); -/* library.scm:7816: proc */ -t5=((C_word*)t0)[5];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_slot(((C_word*)t0)[6],t2); -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} - -/* k38627 in doloop9254 in k38601 in k38592 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_38629(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_38629,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)((C_word*)t0)[4])[1]; -f_38608(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} - -/* k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_38639(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_38639,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38794,a[2]=((C_word)li1154),tmp=(C_word)a,a+=3,tmp); -t3=( - f_38794(((C_word*)t0)[2]) -); -t4=*((C_word*)lf[336]+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|5,a[1]=(C_word)f_38653,a[2]=t4,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); -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_38760,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1159),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_38760(t13,t9,((C_word*)t0)[2]);} - -/* k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_38653(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_38653,c,av);} -a=C_alloc(9); -t2=C_i_check_list_2(t1,lf[254]); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38736,a[2]=((C_word)li1155),tmp=(C_word)a,a+=3,tmp); -t4=( - f_38736(t1,((C_word*)t0)[2]) -); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38662,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:7822: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k38660 in k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_38662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38662,c,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_38667,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1158),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_38667(t5,((C_word*)t0)[5],C_fix(0));} - -/* doloop9331 in k38660 in k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void f_38667(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(28,0,3)))){ -C_save_and_reclaim_args((void *)trf_38667,3,t0,t1,t2);} -a=C_alloc(28); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38688,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); -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_38693,a[2]=t2,a[3]=((C_word)li1156),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38700,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -t11=C_SCHEME_UNDEFINED; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38702,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1157),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_38702(t14,t10,((C_word*)t0)[6]);}} - -/* k38686 in doloop9331 in k38660 in k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38688(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_38688,c,av);} -t2=C_i_setslot(((C_word*)t0)[2],((C_word*)t0)[3],t1); -t3=((C_word*)((C_word*)t0)[4])[1]; -f_38667(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[3],C_fix(1)));} - -/* g9342 in doloop9331 in k38660 in k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static C_word f_38693(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_vector_ref(t1,((C_word*)t0)[2]));} - -/* k38698 in doloop9331 in k38660 in k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38700(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_38700,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop9336 in doloop9331 in k38660 in k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void f_38702(C_word t0,C_word t1,C_word t2){ -C_word 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(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_38702,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* library.scm:7825: g9342 */ - f_38693(((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* foldl9294 in k38651 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static C_word f_38736(C_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_pairp(t1))){ -t3=C_slot(t1,C_fix(1)); -t4=C_slot(t1,C_fix(0)); -t6=t3; -t7=C_i_fixnum_min(t2,t4); -t1=t6; -t2=t7; -goto loop;} -else{ -return(t2);}} - -/* map-loop9301 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_38760(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_38760,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_block_size(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop9264 in k38637 in scheme#vector-map in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static C_word f_38794(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_vector_2(t2,lf[1539]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_38817(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,3)))){ -C_save_and_reclaim((void*)f_38817,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_rest_nullp(c,4))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38827,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7830: ##sys#check-closure */ -t6=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -av2[3]=lf[1540]; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t5=C_a_i_cons(&a,2,t3,t4); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38865,a[2]=t5,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7838: ##sys#check-closure */ -t7=*((C_word*)lf[434]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t2; -av2[3]=lf[1540]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k38825 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_38827(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_38827,c,av);} -a=C_alloc(9); -t2=C_i_check_vector_2(((C_word*)t0)[2],lf[1540]); -t3=C_block_size(((C_word*)t0)[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|6,a[1]=(C_word)f_38838,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],a[6]=((C_word)li1161),tmp=(C_word)a,a+=7,tmp)); -t7=((C_word*)t5)[1]; -f_38838(t7,((C_word*)t0)[4],C_fix(0));} - -/* doloop9380 in k38825 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_38838(C_word t0,C_word t1,C_word 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_38838,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_38848,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:7835: proc */ -t5=((C_word*)t0)[4];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=C_slot(((C_word*)t0)[5],t2); -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}}} - -/* k38846 in doloop9380 in k38825 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_38848(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_38848,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_38838(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_38865(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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_38865,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39016,a[2]=((C_word)li1162),tmp=(C_word)a,a+=3,tmp); -t3=( - f_39016(((C_word*)t0)[2]) -); -t4=*((C_word*)lf[336]+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|5,a[1]=(C_word)f_38879,a[2]=t4,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); -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_38982,a[2]=t7,a[3]=t11,a[4]=t8,a[5]=((C_word)li1167),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_38982(t13,t9,((C_word*)t0)[2]);} - -/* k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_38879(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_38879,c,av);} -a=C_alloc(9); -t2=C_i_check_list_2(t1,lf[254]); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38958,a[2]=((C_word)li1163),tmp=(C_word)a,a+=3,tmp); -t4=( - f_38958(t1,((C_word*)t0)[2]) -); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_38888,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:7841: ##sys#make-vector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[796]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[796]+1); -av2[1]=t5; -av2[2]=t4; -tp(3,av2);}} - -/* k38886 in k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_38888(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_38888,c,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_38893,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[4],a[7]=((C_word)li1166),tmp=(C_word)a,a+=8,tmp)); -t5=((C_word*)t3)[1]; -f_38893(t5,((C_word*)t0)[5],C_fix(0));} - -/* doloop9457 in k38886 in k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void f_38893(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,0,3)))){ -C_save_and_reclaim_args((void *)trf_38893,3,t0,t1,t2);} -a=C_alloc(27); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -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=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_38903,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,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|3,a[1]=(C_word)f_38915,a[2]=t2,a[3]=((C_word)li1164),tmp=(C_word)a,a+=4,tmp); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_38922,a[2]=t4,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -t11=C_SCHEME_UNDEFINED; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_38924,a[2]=t9,a[3]=t7,a[4]=t12,a[5]=t8,a[6]=((C_word)li1165),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_38924(t14,t10,((C_word*)t0)[6]);}} - -/* k38901 in doloop9457 in k38886 in k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38903(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_38903,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_38893(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* g9468 in doloop9457 in k38886 in k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static C_word f_38915(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_vector_ref(t1,((C_word*)t0)[2]));} - -/* k38920 in doloop9457 in k38886 in k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_38922(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_38922,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop9462 in doloop9457 in k38886 in k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void f_38924(C_word t0,C_word t1,C_word t2){ -C_word 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(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_38924,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* library.scm:7844: g9468 */ - f_38915(((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* foldl9420 in k38877 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static C_word f_38958(C_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_pairp(t1))){ -t3=C_slot(t1,C_fix(1)); -t4=C_slot(t1,C_fix(0)); -t6=t3; -t7=C_i_fixnum_min(t2,t4); -t1=t6; -t2=t7; -goto loop;} -else{ -return(t2);}} - -/* map-loop9427 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_38982(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_38982,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_block_size(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop9390 in k38863 in scheme#vector-for-each in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static C_word f_39016(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_vector_2(t2,lf[1540]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* scheme#close-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39039(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_39039,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39043,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7848: ##sys#check-port */ -t4=*((C_word*)lf[333]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[1541]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k39041 in scheme#close-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39043(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_39043,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39046,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_port_openp(((C_word*)t0)[3],C_fix(1)))){ -t3=C_slot(((C_word*)t0)[3],C_fix(2)); -/* library.scm:7849: g9499 */ -t4=C_slot(t3,C_fix(4));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(1); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_39046(2,av2);}}} - -/* k39044 in k39041 in scheme#close-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_39046(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_39046,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39049,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_port_openp(((C_word*)t0)[3],C_fix(2)))){ -t3=C_slot(((C_word*)t0)[3],C_fix(2)); -/* library.scm:7851: g9501 */ -t4=C_slot(t3,C_fix(4));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(2); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} -else{ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(8),C_fix(0)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k39047 in k39044 in k39041 in scheme#close-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_39049(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_39049,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_set_i_slot(((C_word*)t0)[3],C_fix(8),C_fix(0)); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#call-with-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39074(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_39074,c,av);} -a=C_alloc(9); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39080,a[2]=t3,a[3]=t2,a[4]=((C_word)li1170),tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39086,a[2]=t2,a[3]=((C_word)li1171),tmp=(C_word)a,a+=4,tmp); -/* library.scm:7857: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a39079 in scheme#call-with-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39080(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_39080,c,av);} -/* library.scm:7858: proc */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* a39085 in scheme#call-with-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39086(C_word c,C_word *av){ -C_word tmp; -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_39086,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_39090,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7859: scheme#close-port */ -t4=*((C_word*)lf[70]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k39088 in a39085 in scheme#call-with-port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_39090(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_39090,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[160]+1); -av2[3]=((C_word*)t0)[3]; -C_apply(4,av2);}} - -/* scheme#eof-object in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39095(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_39095,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme#peek-u8 in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_39098,c,av);} -a=C_alloc(3); -t2=C_fix(c - 2); -switch(t2){ -case C_fix(0): -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39109,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7867: scheme#peek-char */ -t4=*((C_word*)lf[188]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=*((C_word*)lf[838]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);} -case C_fix(1): -t3=C_get_rest_arg(c,2,av,2,t0); -t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1542]); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39134,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7872: scheme#peek-char */ -t6=*((C_word*)lf[188]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);} -default: -/* library.scm:7865: ##sys#error */ -t3=*((C_word*)lf[195]+1);{ -C_word av2[3]; -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[1543]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k39107 in scheme#peek-u8 in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39109(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_39109,c,av);} -t2=C_eofp(t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?t1:C_fix(C_character_code(t1))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k39132 in scheme#peek-u8 in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39134(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_39134,c,av);} -t2=C_eofp(t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?t1:C_fix(C_character_code(t1))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme#write-string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39148(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_39148,c,av);} -a=C_alloc(11); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?*((C_word*)lf[839]+1):C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t8=t7; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_rest_nullp(c,4); -t11=C_rest_nullp(c,5); -t12=(C_truep(t11)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,3,t0)); -t13=t12; -t14=(*a=C_VECTOR_TYPE|1,a[1]=t13,tmp=(C_word)a,a+=2,tmp); -t15=C_rest_nullp(c,5); -t16=C_i_check_string_2(t2,lf[1544]); -t17=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1544]); -t18=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39176,a[2]=t4,a[3]=t1,a[4]=t9,a[5]=t2,a[6]=t14,tmp=(C_word)a,a+=7,tmp); -if(C_truep(((C_word*)t9)[1])){ -t19=t18; -f_39176(t19,C_i_check_fixnum_2(((C_word*)t9)[1],lf[1544]));} -else{ -t19=C_set_block_item(t9,0,C_fix(0)); -t20=t18; -f_39176(t20,t19);}} - -/* k39174 in scheme#write-string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_39176(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_39176,2,t0,t1);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39179,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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)[6])[1])){ -t3=t2; -f_39179(t3,C_i_check_fixnum_2(((C_word*)((C_word*)t0)[6])[1],lf[1544]));} -else{ -t3=C_set_block_item(((C_word*)t0)[6],0,C_u_i_string_length(((C_word*)t0)[5])); -t4=t2; -f_39179(t4,t3);}} - -/* k39177 in k39174 in scheme#write-string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_39179(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_39179,2,t0,t1);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39182,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])){ -/* library.scm:7886: scheme#substring */ -t3=*((C_word*)lf[489]+1);{ -C_word av2[5]; -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)((C_word*)t0)[4])[1]; -av2[4]=((C_word*)((C_word*)t0)[6])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -f_39182(2,av2);}}} - -/* k39180 in k39177 in k39174 in scheme#write-string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_39182(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_39182,c,av);} -t2=C_slot(t1,C_fix(0)); -t3=C_block_size(t2); -t4=C_fixnum_difference(t3,C_fix(1)); -t5=C_slot(((C_word*)t0)[2],C_fix(2)); -/* library.scm:7886: g9548 */ -t6=C_slot(t5,C_fix(3));{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -av2[4]=C_fix(0); -av2[5]=t4; -((C_proc)C_fast_retrieve_proc(t6))(6,av2);}} - -/* chicken.io#read-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39252(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_39252,c,av);} -a=C_alloc(6); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?*((C_word*)lf[838]+1):C_get_rest_arg(c,2,av,2,t0)); -t4=C_rest_nullp(c,2); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?((C_word*)t0)[2]:C_get_rest_arg(c,3,av,2,t0)); -t7=C_rest_nullp(c,3); -t8=C_rest_nullp(c,4); -t9=(C_truep(t8)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,2,t0)); -t10=C_rest_nullp(c,4); -t11=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1547]); -t12=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39281,a[2]=t9,a[3]=t6,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7912: reader */ -t13=t6;{ -C_word av2[3]; -av2[0]=t13; -av2[1]=t12; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t13))(3,av2);}} - -/* k39279 in chicken.io#read-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39281(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_39281,c,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_39283,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)li1176),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_39283(t5,((C_word*)t0)[5],t1,C_fix(0),C_SCHEME_END_OF_LIST);} - -/* doloop9586 in k39279 in chicken.io#read-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_39283(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(7,0,2)))){ -C_save_and_reclaim_args((void *)trf_39283,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)){ -/* library.scm:7916: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[445]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[445]+1); -av2[1]=t1; -av2[2]=t4; -tp(3,av2);}} -else{ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39303,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); -/* library.scm:7912: 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);}}} - -/* k39301 in doloop9586 in k39279 in chicken.io#read-list in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_39303(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_39303,c,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_39283(t4,((C_word*)t0)[6],t1,t2,t3);} - -/* chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39355(C_word c,C_word *av){ -C_word tmp; -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_39355,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_pairp(t2); -t4=(C_truep(t3)?C_get_rest_arg(c,2,av,2,t0):*((C_word*)lf[838]+1)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39365,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t3)){ -t6=C_i_cdr(t2); -t7=C_i_pairp(t6); -t8=t5; -f_39365(t8,(C_truep(t7)?C_i_cadr(t2):C_SCHEME_FALSE));} -else{ -t6=t5; -f_39365(t6,C_SCHEME_FALSE);}} - -/* k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_39365(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word 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_39365,2,t0,t1);} -a=C_alloc(8); -t2=C_i_check_port_2(((C_word*)t0)[2],C_fix(1),C_SCHEME_TRUE,lf[833]); -t3=C_slot(((C_word*)t0)[2],C_fix(2)); -t4=C_slot(t3,C_fix(8)); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39375,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li1178),tmp=(C_word)a,a+=5,tmp); -/* library.scm:7928: g9610 */ -t6=t5; -f_39375(t6,((C_word*)t0)[3],t4);} -else{ -t5=(C_truep(t1)?t1:C_fix(256)); -t6=t5; -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_39388,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t7,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* library.scm:7931: ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[446]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[446]+1); -av2[1]=t8; -av2[2]=((C_word*)t7)[1]; -tp(3,av2);}}} - -/* g9610 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_39375(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_39375,3,t0,t1,t2);} -/* library.scm:7928: 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);}} - -/* k39386 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_39388(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_39388,c,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_39393,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[4],a[6]=t5,a[7]=((C_word)li1179),tmp=(C_word)a,a+=8,tmp)); -t7=((C_word*)t5)[1]; -f_39393(t7,((C_word*)t0)[5],C_fix(0));} - -/* loop in k39386 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void f_39393(C_word t0,C_word t1,C_word 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_39393,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)){ -/* library.scm:7934: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[486]+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_39406,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); -/* library.scm:7935: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word av2[3]; -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}}} - -/* k39404 in loop in k39386 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_39406(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_39406,c,av);} -a=C_alloc(12); -if(C_truep(C_eofp(t1))){ -t2=C_eqp(((C_word*)t0)[2],C_fix(0)); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:7939: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+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(t1){ -case C_make_character(10): -/* library.scm:7941: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+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): -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39439,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); -/* library.scm:7943: scheme#peek-char */ -t3=*((C_word*)lf[188]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);} -default: -if(C_truep(C_fixnum_greater_or_equal_p(((C_word*)t0)[2],((C_word*)((C_word*)t0)[6])[1]))){ -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_39474,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[2],a[5]=t1,a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39482,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:7951: scheme#make-string */ -t4=*((C_word*)lf[470]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=C_i_string_set(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[2],t1); -/* library.scm:7954: loop */ -t3=((C_word*)((C_word*)t0)[7])[1]; -f_39393(t3,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[2],C_fix(1)));}}}} - -/* k39437 in k39404 in loop in k39386 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_39439(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_39439,c,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_39448,a[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:7945: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -/* library.scm:7947: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+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);}}} - -/* k39446 in k39437 in k39404 in loop in k39386 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in ... */ -static void C_ccall f_39448(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_39448,c,av);} -/* library.scm:7946: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+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);}} - -/* k39472 in k39404 in loop in k39386 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_39474(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_39474,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_fixnum_plus(((C_word*)((C_word*)t0)[3])[1],((C_word*)((C_word*)t0)[3])[1]); -t4=C_set_block_item(((C_word*)t0)[3],0,t3); -t5=C_i_string_set(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[4],((C_word*)t0)[5]); -/* library.scm:7954: loop */ -t6=((C_word*)((C_word*)t0)[6])[1]; -f_39393(t6,((C_word*)t0)[7],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* k39480 in k39404 in loop in k39386 in k39363 in chicken.io#read-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_39482(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_39482,c,av);} -/* library.scm:7951: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=t1; -tp(4,av2);}} - -/* chicken.io#read-lines in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39511(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_39511,c,av);} -a=C_alloc(7); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?*((C_word*)lf[838]+1):C_get_rest_arg(c,2,av,2,t0)); -t4=C_rest_nullp(c,2); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?C_SCHEME_FALSE:C_get_rest_arg(c,3,av,2,t0)); -t7=C_rest_nullp(c,3); -t8=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1550]); -t9=(C_truep(t6)?C_i_check_fixnum_2(t6,lf[1550]):C_SCHEME_UNDEFINED); -t10=(C_truep(t6)?t6:*((C_word*)lf[336]+1)); -t11=C_SCHEME_UNDEFINED; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39539,a[2]=t12,a[3]=t3,a[4]=((C_word)li1181),tmp=(C_word)a,a+=5,tmp)); -t14=((C_word*)t12)[1]; -f_39539(t14,t1,C_SCHEME_END_OF_LIST,t10);} - -/* loop in chicken.io#read-lines in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_39539(C_word 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_39539,4,t0,t1,t2,t3);} -a=C_alloc(6); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -/* library.scm:7963: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[445]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[445]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39552,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7964: read-line */ -t6=C_fast_retrieve(lf[1548]);{ -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);}}} - -/* k39550 in loop in chicken.io#read-lines in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_39552(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_39552,c,av);} -a=C_alloc(3); -if(C_truep(C_eofp(t1))){ -/* library.scm:7966: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[445]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[445]+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]); -/* library.scm:7967: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_39539(t3,((C_word*)t0)[2],t2,C_fixnum_difference(((C_word*)t0)[5],C_fix(1)));}} - -/* chicken.io#write-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39601(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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,5)))){ -C_save_and_reclaim((void*)f_39601,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; -t4=(C_truep(C_eqp(t3,C_SCHEME_END_OF_LIST))?*((C_word*)lf[839]+1):C_slot(t3,C_fix(0))); -t5=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1552]); -t6=C_i_check_string_2(t2,lf[1552]); -t7=C_slot(t2,C_fix(0)); -t8=C_slot(t4,C_fix(2)); -t9=C_slot(t8,C_fix(3)); -t10=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39620,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t11=C_block_size(t7); -/* library.scm:7976: g9663 */ -t12=t9;{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t12; -av2[1]=t10; -av2[2]=t4; -av2[3]=t7; -av2[4]=C_fix(0); -av2[5]=C_fixnum_difference(t11,C_fix(1)); -((C_proc)C_fast_retrieve_proc(t12))(6,av2);}} - -/* k39618 in chicken.io#write-line in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39620(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_39620,c,av);} -/* library.scm:7982: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(10); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* chicken.io#read-bytevector!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39640(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(9,c,5)))){ -C_save_and_reclaim((void *)f_39640,c,av);} -a=C_alloc(9); -t6=C_eqp(t2,C_fix(0)); -if(C_truep(t6)){ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_fix(0); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} -else{ -t7=C_slot(t4,C_fix(2)); -t8=C_slot(t7,C_fix(7)); -t9=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_39655,a[2]=t4,a[3]=t10,a[4]=t8,a[5]=t3,a[6]=((C_word)li1184),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_39655(t12,t1,t5,t2,C_fix(0));}} - -/* loop in chicken.io#read-bytevector!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void f_39655(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_39655,5,t0,t1,t2,t3,t4);} -a=C_alloc(8); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_39659,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=((C_word*)t0)[3],tmp=(C_word)a,a+=8,tmp); -/* library.scm:7992: rdbvec */ -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);}} - -/* k39657 in loop in chicken.io#read-bytevector!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_39659(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,4)))){ -C_save_and_reclaim((void *)f_39659,c,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];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t6+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); -/* library.scm:7997: loop */ -t10=((C_word*)((C_word*)t0)[7])[1]; -f_39655(t10,((C_word*)t0)[3],t8,t9,C_fixnum_plus(((C_word*)t0)[4],t1));} -else{ -t8=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_fixnum_plus(t1,((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}}} - -/* chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39715(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6; -C_word t7; -C_word *a; -if(c!=6) C_bad_argc_2(c,6,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_39715,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39719,a[2]=t4,a[3]=t3,a[4]=t5,a[5]=t2,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:8001: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fixnum_times(t2,C_fix(4)); -tp(3,av2);}} - -/* k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_39719(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_39719,c,av);} -a=C_alloc(9); -t2=C_slot(((C_word*)t0)[2],C_fix(15)); -t3=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_39727,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[5],a[8]=((C_word)li1191),tmp=(C_word)a,a+=9,tmp); -/* library.scm:8003: ##sys#encoding-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[456]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[456]+1); -av2[1]=((C_word*)t0)[6]; -av2[2]=t2; -av2[3]=t3; -tp(4,av2);}} - -/* a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_39727(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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(26,c,6)))){ -C_save_and_reclaim((void *)f_39727,c,av);} -a=C_alloc(26); -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|4,a[1]=(C_word)f_39730,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word)li1187),tmp=(C_word)a,a+=5,tmp)); -t10=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_39748,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li1188),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|8,a[1]=(C_word)f_39754,a[2]=t8,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[5],a[5]=t6,a[6]=((C_word*)t0)[6],a[7]=t12,a[8]=((C_word)li1190),tmp=(C_word)a,a+=9,tmp)); -t14=((C_word*)t12)[1]; -f_39754(t14,t1,C_fix(0),((C_word*)t0)[7],C_fix(0),C_fix(0));} - -/* readb in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void f_39730(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ -C_word tmp; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,5)))){ -C_save_and_reclaim_args((void *)trf_39730,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_39734,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -/* library.scm:8007: read-bytevector!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1553]); -C_word av2[6]; -av2[0]=*((C_word*)lf[1553]+1); -av2[1]=t6; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t5; -tp(6,av2);}} - -/* k39732 in readb in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_39734(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_39734,c,av);} -a=C_alloc(5); -t2=C_eqp(((C_word*)t0)[2],lf[457]); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_39745,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word)li1186),tmp=(C_word)a,a+=5,tmp); -/* library.scm:8010: decoder */ -t4=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t1; -av2[5]=t3; -((C_proc)C_fast_retrieve_proc(t4))(6,av2);}}} - -/* a39744 in k39732 in readb in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_39745(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_39745,c,av);} -t5=C_copy_memory_with_offset(((C_word*)t0)[2],t2,((C_word*)t0)[3],t3,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* finish in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static C_word f_39748(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_stack_overflow_check;{} -t3=C_utf_overwrite(((C_word*)t0)[2],((C_word*)t0)[3],t1,((C_word*)t0)[4],t2); -return(t1);} - -/* loop in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void f_39754(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(13,0,5)))){ -C_save_and_reclaim_args((void *)trf_39754,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(13); -t6=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_39758,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t4,a[5]=t5,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=t2,a[9]=t3,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); -/* library.scm:8018: readb */ -t7=((C_word*)((C_word*)t0)[5])[1]; -f_39730(t7,t6,t3,((C_word*)t0)[4],((C_word*)t0)[6],t2);} - -/* k39756 in loop in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_39758(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_39758,c,av);} -a=C_alloc(15); -t2=C_eqp(t1,C_fix(0)); -if(C_truep(t2)){ -/* library.scm:8019: finish */ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( -/* library.scm:8019: finish */ - f_39748(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5]) -); -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} -else{ -t3=C_eqp(((C_word*)t0)[6],lf[457]); -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|12,a[1]=(C_word)f_39778,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)[9],a[7]=((C_word*)t0)[3],a[8]=t5,a[9]=((C_word*)t0)[10],a[10]=((C_word*)t0)[11],a[11]=((C_word*)t0)[12],a[12]=((C_word)li1189),tmp=(C_word)a,a+=13,tmp)); -t7=((C_word*)t5)[1]; -f_39778(t7,((C_word*)t0)[2],t1);} -else{ -if(C_truep(C_fixnum_greaterp(t1,((C_word*)t0)[9]))){ -/* library.scm:8039: loop */ -t4=((C_word*)((C_word*)t0)[12])[1]; -f_39754(t4,((C_word*)t0)[2],C_fixnum_plus(((C_word*)t0)[8],t1),C_fixnum_difference(((C_word*)t0)[9],t1),C_fixnum_plus(((C_word*)t0)[4],t1),C_fixnum_plus(((C_word*)t0)[5],t1));} -else{ -/* library.scm:8041: finish */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=( -/* library.scm:8041: finish */ - f_39748(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4],((C_word*)t0)[5]) -); -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}}}}} - -/* recount in k39756 in loop in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void f_39778(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_39778,3,t0,t1,t2);} -a=C_alloc(9); -t3=C_utf_fragment_counts(((C_word*)t0)[2],((C_word*)t0)[3],t2); -t4=C_fixnum_shift_right(t3,C_fix(4)); -t5=C_fixnum_and(t3,C_fix(15)); -t6=C_fixnum_plus(((C_word*)t0)[4],t4); -t7=C_fixnum_plus(((C_word*)t0)[5],t2); -t8=C_fixnum_difference(((C_word*)t0)[6],t4); -if(C_truep(C_fixnum_greaterp(t5,C_fix(0)))){ -t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_39803,a[2]=t5,a[3]=t1,a[4]=((C_word*)t0)[7],a[5]=t6,a[6]=t7,a[7]=((C_word*)t0)[8],a[8]=t2,tmp=(C_word)a,a+=9,tmp); -/* library.scm:8031: readb */ -t10=((C_word*)((C_word*)t0)[9])[1]; -f_39730(t10,t9,t5,((C_word*)t0)[2],((C_word*)t0)[10],C_fixnum_plus(((C_word*)t0)[3],t2));} -else{ -t9=C_eqp(t8,C_fix(0)); -if(C_truep(t9)){ -/* library.scm:8035: finish */ -t10=t1;{ -C_word av2[2]; -av2[0]=t10; -av2[1]=( -/* library.scm:8035: finish */ - f_39748(((C_word*)((C_word*)t0)[7])[1],t6,t7) -); -((C_proc)C_fast_retrieve_proc(t10))(2,av2);}} -else{ -/* library.scm:8036: loop */ -t10=((C_word*)((C_word*)t0)[11])[1]; -f_39754(t10,t1,C_fixnum_plus(((C_word*)t0)[3],t2),t8,t6,t7);}}} - -/* k39801 in recount in k39756 in loop in a39726 in k39717 in chicken.io#read-string!/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in ... */ -static void C_ccall f_39803(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_39803,c,av);} -if(C_truep(C_fixnum_lessp(t1,((C_word*)t0)[2]))){ -/* library.scm:8033: finish */ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=( -/* library.scm:8033: finish */ - f_39748(((C_word*)((C_word*)t0)[4])[1],((C_word*)t0)[5],((C_word*)t0)[6]) -); -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} -else{ -/* library.scm:8034: recount */ -t2=((C_word*)((C_word*)t0)[7])[1]; -f_39778(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[8],t1));}} - -/* chicken.io#read-string! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39873(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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<4) C_bad_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_39873,c,av);} -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?*((C_word*)lf[838]+1):C_get_rest_arg(c,4,av,4,t0)); -t6=C_rest_nullp(c,4); -t7=C_rest_nullp(c,5); -t8=(C_truep(t7)?C_fix(0):C_get_rest_arg(c,5,av,4,t0)); -t9=C_rest_nullp(c,5); -t10=C_i_check_port_2(t5,C_fix(1),C_SCHEME_TRUE,lf[1556]); -t11=C_i_check_string_2(t3,lf[1556]); -t12=(C_truep(t2)?C_i_check_fixnum_2(t2,lf[1556]):C_SCHEME_UNDEFINED); -t13=C_u_i_string_length(t3); -t14=(C_truep(t2)?C_fixnum_less_or_equal_p(C_fixnum_plus(t8,t2),t13):C_SCHEME_FALSE); -if(C_truep(t14)){ -t15=C_i_check_fixnum_2(t8,lf[1556]); -/* library.scm:8051: read-string!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1554]); -C_word av2[6]; -av2[0]=*((C_word*)lf[1554]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t5; -av2[5]=t8; -tp(6,av2);}} -else{ -t15=C_fixnum_difference(t13,t8); -t16=t2=t15; -t17=C_i_check_fixnum_2(t8,lf[1556]); -/* library.scm:8051: read-string!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1554]); -C_word av2[6]; -av2[0]=*((C_word*)lf[1554]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t5; -av2[5]=t8; -tp(6,av2);}}} - -/* chicken.io#read-bytevector! in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_39948(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_39948,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?*((C_word*)lf[838]+1):C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_fix(0):C_get_rest_arg(c,4,av,3,t0)); -t8=C_rest_nullp(c,4); -t9=C_rest_nullp(c,5); -t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,3,t0)); -t11=C_rest_nullp(c,5); -t12=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[831]); -t13=C_i_check_bytevector_2(t2,lf[831]); -t14=C_i_check_fixnum_2(t7,lf[831]); -t15=(C_truep(t10)?C_i_check_fixnum_2(t10,lf[831]):C_SCHEME_UNDEFINED); -t16=C_block_size(t2); -t17=(C_truep(t10)?C_fixnum_difference(t10,t7):C_fixnum_difference(t16,t7)); -/* library.scm:8060: read-bytevector!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1553]); -C_word av2[6]; -av2[0]=*((C_word*)lf[1553]+1); -av2[1]=t1; -av2[2]=t17; -av2[3]=t2; -av2[4]=t4; -av2[5]=t7; -tp(6,av2);}} - -/* chicken.io#read-string/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40033(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_40033,c,av);} -a=C_alloc(5); -t4=C_eqp(t2,C_fix(0)); -if(C_truep(t4)){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=lf[1559]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40081,a[2]=t1,a[3]=t2,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:8065: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word *av2=av; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t5; -av2[2]=t3; -tp(3,av2);}}} - -/* k40050 in k40079 in chicken.io#read-string/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_40052(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40052,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40055,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:8067: read-string!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1554]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[1554]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -av2[5]=C_fix(0); -tp(6,av2);}} - -/* k40053 in k40050 in k40079 in chicken.io#read-string/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_40055(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40055,c,av);} -t2=C_eqp(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:8070: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[486]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(0); -av2[4]=t1; -tp(5,av2);}}} - -/* a40068 in k40079 in chicken.io#read-string/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_40069(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_40069,c,av);} -/* library.scm:8075: ##sys#buffer->string/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[461]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[461]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(0); -av2[4]=t3; -av2[5]=C_slot(((C_word*)t0)[2],C_fix(15)); -tp(6,av2);}} - -/* k40079 in chicken.io#read-string/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40081(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40081,c,av);} -a=C_alloc(5); -if(C_truep(C_eofp(t1))){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[3])){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40052,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:8066: ##sys#make-string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[446]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[446]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40069,a[2]=((C_word*)t0)[4],a[3]=((C_word)li1195),tmp=(C_word)a,a+=4,tmp); -/* library.scm:8072: ##sys#read-remaining */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1560]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1560]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -tp(4,av2);}}}} - -/* ##sys#read-remaining in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40083(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_40083,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40091,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:8080: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=C_fix(1024); -tp(3,av2);}} - -/* k40089 in ##sys#read-remaining in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40091(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_40091,c,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_40093,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li1197),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_40093(t5,((C_word*)t0)[4],t1,C_fix(1024),C_fix(0));} - -/* loop in k40089 in ##sys#read-remaining in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_40093(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,5)))){ -C_save_and_reclaim_args((void *)trf_40093,5,t0,t1,t2,t3,t4);} -a=C_alloc(9); -t5=C_block_size(t2); -t6=C_fixnum_difference(t5,t4); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_40100,a[2]=t6,a[3]=t3,a[4]=t2,a[5]=((C_word*)t0)[2],a[6]=t1,a[7]=t4,a[8]=((C_word*)t0)[3],tmp=(C_word)a,a+=9,tmp); -/* library.scm:8084: read-bytevector!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1553]); -C_word av2[6]; -av2[0]=*((C_word*)lf[1553]+1); -av2[1]=t7; -av2[2]=t6; -av2[3]=t2; -av2[4]=((C_word*)t0)[4]; -av2[5]=t4; -tp(6,av2);}} - -/* k40098 in loop in k40089 in ##sys#read-remaining in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_40100(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_40100,c,av);} -a=C_alloc(9); -t2=C_eqp(t1,((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=C_fixnum_times(((C_word*)t0)[3],C_fix(2)); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_40112,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]=t3,a[7]=((C_word*)t0)[7],a[8]=t1,tmp=(C_word)a,a+=9,tmp); -/* library.scm:8087: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=t3; -tp(3,av2);}} -else{ -/* library.scm:8090: k */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[6]; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fixnum_plus(t1,((C_word*)t0)[7]); -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k40110 in k40098 in loop in k40089 in ##sys#read-remaining in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_40112(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40112,c,av);} -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -/* library.scm:8089: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_40093(t3,((C_word*)t0)[5],t1,((C_word*)t0)[6],C_fixnum_plus(((C_word*)t0)[7],((C_word*)t0)[8]));} - -/* chicken.io#read-bytevector/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40132(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_40132,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40136,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:8094: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k40134 in chicken.io#read-bytevector/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40136(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40136,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40139,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:8095: read-bytevector!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1553]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[1553]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -av2[5]=C_fix(0); -tp(6,av2);}} - -/* k40137 in k40134 in chicken.io#read-bytevector/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_40139(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40139,c,av);} -a=C_alloc(5); -t2=C_eqp(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40148,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* library.scm:8098: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t3; -av2[2]=t1; -tp(3,av2);}}} - -/* k40146 in k40137 in k40134 in chicken.io#read-bytevector/port in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_40148(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_40148,c,av);} -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.io#read-string in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40150(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_40150,c,av);} -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0)); -t4=C_rest_nullp(c,2); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?*((C_word*)lf[838]+1):C_get_rest_arg(c,3,av,2,t0)); -t7=C_rest_nullp(c,3); -t8=C_i_check_port_2(t6,C_fix(1),C_SCHEME_TRUE,lf[1563]); -if(C_truep(t3)){ -t9=C_i_check_fixnum_2(t3,lf[1563]); -/* library.scm:8105: read-string/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1558]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1558]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=t6; -tp(4,av2);}} -else{ -/* library.scm:8105: read-string/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1558]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1558]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=t6; -tp(4,av2);}}} - -/* chicken.io#read-bytevector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40201(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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,c,4)))){ -C_save_and_reclaim((void *)f_40201,c,av);} -a=C_alloc(3); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_SCHEME_FALSE:C_get_rest_arg(c,2,av,2,t0)); -t4=C_rest_nullp(c,2); -t5=C_rest_nullp(c,3); -t6=(C_truep(t5)?*((C_word*)lf[838]+1):C_get_rest_arg(c,3,av,2,t0)); -t7=C_rest_nullp(c,3); -t8=C_i_check_port_2(t6,C_fix(1),C_SCHEME_TRUE,lf[1565]); -if(C_truep(t3)){ -t9=C_i_check_fixnum_2(t3,lf[1565]); -t10=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40226,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:8110: read-bytevector/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1561]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1561]+1); -av2[1]=t10; -av2[2]=t3; -av2[3]=t6; -tp(4,av2);}} -else{ -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40241,a[2]=((C_word)li1201),tmp=(C_word)a,a+=3,tmp); -/* library.scm:8115: ##sys#read-remaining */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1560]); -C_word av2[4]; -av2[0]=*((C_word*)lf[1560]+1); -av2[1]=t1; -av2[2]=t6; -av2[3]=t9; -tp(4,av2);}}} - -/* k40224 in chicken.io#read-bytevector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40226(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40226,c,av);} -t2=C_block_size(t1); -t3=C_eqp(t2,C_fix(0)); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_SCHEME_END_OF_FILE:t1); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a40240 in chicken.io#read-bytevector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40241(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_40241,c,av);} -a=C_alloc(5); -t4=C_eqp(t3,C_fix(0)); -if(C_truep(t4)){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40251,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:8120: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=t3; -tp(3,av2);}}} - -/* k40249 in a40240 in chicken.io#read-bytevector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_40251(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_40251,c,av);} -t2=C_copy_memory(t1,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.io#read-buffered in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40281(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_40281,c,av);} -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?*((C_word*)lf[838]+1):C_get_rest_arg(c,2,av,2,t0)); -t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1567]); -t5=C_slot(t3,C_fix(2)); -t6=C_slot(t5,C_fix(9)); -if(C_truep(t6)){ -/* library.scm:8136: rb */ -t7=t6;{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t1; -av2[2]=t3; -((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} -else{ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=lf[1568]; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} - -/* chicken.io#read-token in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40309(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_40309,c,av);} -a=C_alloc(5); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?*((C_word*)lf[838]+1):C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_port_2(t4,C_fix(1),C_SCHEME_TRUE,lf[1570]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40319,a[2]=t4,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:8146: scheme#open-output-string */ -t7=*((C_word*)lf[318]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* k40317 in chicken.io#read-token in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40319(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_40319,c,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_40324,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word*)t0)[3],a[6]=((C_word)li1204),tmp=(C_word)a,a+=7,tmp)); -t5=((C_word*)t3)[1]; -f_40324(t5,((C_word*)t0)[4]);} - -/* loop in k40317 in chicken.io#read-token in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void f_40324(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_40324,2,t0,t1);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_40328,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); -/* library.scm:8148: ##sys#peek-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[906]); -C_word av2[3]; -av2[0]=*((C_word*)lf[906]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k40326 in loop in k40317 in chicken.io#read-token in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in ... */ -static void C_ccall f_40328(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40328,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40334,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -t3=C_eofp(t1); -if(C_truep(C_i_not(t3))){ -/* library.scm:8149: pred */ -t4=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t4))(3,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_40334(2,av2);}}} - -/* k40332 in k40326 in loop in k40317 in chicken.io#read-token in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in ... */ -static void C_ccall f_40334(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_40334,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40337,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_40344,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:8151: ##sys#read-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[904]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[904]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -tp(3,av2);}} -else{ -/* library.scm:8153: scheme#get-output-string */ -t2=*((C_word*)lf[320]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* k40335 in k40332 in k40326 in loop in k40317 in chicken.io#read-token in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_40337(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_40337,c,av);} -/* library.scm:8152: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_40324(t2,((C_word*)t0)[3]);} - -/* k40342 in k40332 in k40326 in loop in k40317 in chicken.io#read-token in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in ... */ -static void C_ccall f_40344(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_40344,c,av);} -/* library.scm:8151: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1007]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1007]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* chicken.io#read-byte in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40365(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_40365,c,av);} -a=C_alloc(4); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?*((C_word*)lf[838]+1):C_get_rest_arg(c,2,av,2,t0)); -t4=C_i_check_port_2(t3,C_fix(1),C_SCHEME_TRUE,lf[1572]); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40375,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* library.scm:8160: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t5; -av2[2]=C_fix(1); -tp(3,av2);}} - -/* k40373 in chicken.io#read-byte in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40375(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40375,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40378,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:8161: read-bytevector!/port */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1553]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[1553]+1); -av2[1]=t2; -av2[2]=C_fix(1); -av2[3]=t1; -av2[4]=((C_word*)t0)[3]; -av2[5]=C_fix(0); -tp(6,av2);}} - -/* k40376 in k40373 in chicken.io#read-byte in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_40378(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_40378,c,av);} -t2=C_fixnum_lessp(t1,C_fix(1)); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_SCHEME_END_OF_FILE:C_subbyte(((C_word*)t0)[3],C_fix(0))); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.io#write-byte in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40392(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_40392,c,av);} -a=C_alloc(4); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?*((C_word*)lf[839]+1):C_get_rest_arg(c,3,av,3,t0)); -t5=C_i_check_fixnum_2(t2,lf[1574]); -t6=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1574]); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40405,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:8169: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t7; -av2[2]=C_fix(1); -av2[3]=t2; -tp(4,av2);}} - -/* k40403 in chicken.io#write-byte in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40405(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40405,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -/* library.scm:8169: g9932 */ -t3=C_slot(t2,C_fix(3));{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=t1; -av2[4]=C_fix(0); -av2[5]=C_fix(1); -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} - -/* chicken.io#write-bytevector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in ... */ -static void C_ccall f_40423(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,5)))){ -C_save_and_reclaim((void *)f_40423,c,av);} -a=C_alloc(8); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?*((C_word*)lf[839]+1):C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_fix(0):C_get_rest_arg(c,4,av,3,t0)); -t8=C_rest_nullp(c,4); -t9=C_rest_nullp(c,5); -t10=(C_truep(t9)?C_SCHEME_FALSE:C_get_rest_arg(c,5,av,3,t0)); -t11=C_rest_nullp(c,5); -t12=C_i_check_bytevector_2(t2,lf[1576]); -t13=C_i_check_port_2(t4,C_fix(2),C_SCHEME_TRUE,lf[1576]); -t14=C_i_check_fixnum_2(t7,lf[1576]); -t15=C_block_size(t2); -t16=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_40457,a[2]=t10,a[3]=t15,a[4]=t4,a[5]=t1,a[6]=t2,a[7]=t7,tmp=(C_word)a,a+=8,tmp); -/* library.scm:8179: ##sys#check-range/including */ -t17=*((C_word*)lf[431]+1);{ -C_word av2[6]; -av2[0]=t17; -av2[1]=t16; -av2[2]=t7; -av2[3]=C_fix(0); -av2[4]=t15; -av2[5]=lf[1576]; -((C_proc)(void*)(*((C_word*)t17+1)))(6,av2);}} - -/* k40455 in chicken.io#write-bytevector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in ... */ -static void C_ccall f_40457(C_word c,C_word *av){ -C_word tmp; -C_word t0=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,5)))){ -C_save_and_reclaim((void *)f_40457,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_40460,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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)[2])){ -/* library.scm:8180: ##sys#check-range/including */ -t3=*((C_word*)lf[431]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[3]; -av2[5]=lf[1576]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_40460(2,av2);}}} - -/* k40458 in k40455 in chicken.io#write-bytevector in k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in ... */ -static void C_ccall f_40460(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40460,c,av);} -t2=(C_truep(((C_word*)t0)[2])?C_i_fixnum_min(((C_word*)t0)[2],((C_word*)t0)[3]):((C_word*)t0)[3]); -t3=C_slot(((C_word*)t0)[4],C_fix(2)); -/* library.scm:8181: g9957 */ -t4=C_slot(t3,C_fix(3));{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[6]; -av2[4]=((C_word*)t0)[7]; -av2[5]=t2; -((C_proc)C_fast_retrieve_proc(t4))(6,av2);}} - -/* k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in ... */ -static void C_ccall f_40519(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_40519,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40527,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_40531,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7640: scheme#string-append */ -t4=*((C_word*)lf[508]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1577]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[1578]; -av2[5]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} - -/* k40525 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in ... */ -static void C_ccall f_40527(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word t20; -C_word t21; -C_word t22; -C_word t23; -C_word t24; -C_word t25; -C_word t26; -C_word t27; -C_word t28; -C_word t29; -C_word t30; -C_word t31; -C_word t32; -C_word t33; -C_word t34; -C_word t35; -C_word t36; -C_word t37; -C_word t38; -C_word t39; -C_word t40; -C_word t41; -C_word t42; -C_word t43; -C_word t44; -C_word t45; -C_word t46; -C_word t47; -C_word t48; -C_word t49; -C_word t50; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(132,c,6)))){ -C_save_and_reclaim((void *)f_40527,c,av);} -a=C_alloc(132); -t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1510])); -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -t4=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t3); -t5=C_mutate((C_word*)lf[1516]+1 /* (set! chicken.platform#register-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37500,a[2]=((C_word)li1114),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[1517]+1 /* (set! chicken.platform#unregister-feature! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37544,a[2]=((C_word)li1117),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[1492]+1 /* (set! chicken.platform#feature? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37622,a[2]=((C_word)li1119),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[1518]+1 /* (set! chicken.platform#return-to-host ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)C_return_to_host,a[2]=((C_word)li1120),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[1519]+1 /* (set! chicken.platform#system-config-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37659,a[2]=((C_word)li1121),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[1524]+1 /* (set! chicken.platform#system-cache-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37683,a[2]=((C_word)li1122),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[68]+1 /* (set! scheme#features ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37713,a[2]=((C_word)li1124),tmp=(C_word)a,a+=3,tmp)); -t12=C_mutate((C_word*)lf[76]+1 /* (set! scheme#make-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37768,a[2]=((C_word)li1126),tmp=(C_word)a,a+=3,tmp)); -t13=C_mutate((C_word*)lf[77]+1 /* (set! scheme#list-set! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37815,a[2]=((C_word)li1128),tmp=(C_word)a,a+=3,tmp)); -t14=C_mutate((C_word*)lf[80]+1 /* (set! scheme#list-copy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37865,a[2]=((C_word)li1130),tmp=(C_word)a,a+=3,tmp)); -t15=C_mutate((C_word*)lf[81]+1 /* (set! scheme#string->vector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37904,a[2]=((C_word)li1133),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[82]+1 /* (set! scheme#vector->string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38008,a[2]=((C_word)li1136),tmp=(C_word)a,a+=3,tmp)); -t17=C_mutate((C_word*)lf[72]+1 /* (set! scheme#string-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38122,a[2]=((C_word)li1144),tmp=(C_word)a,a+=3,tmp)); -t18=C_mutate((C_word*)lf[74]+1 /* (set! scheme#string-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38362,a[2]=((C_word)li1152),tmp=(C_word)a,a+=3,tmp)); -t19=C_mutate((C_word*)lf[73]+1 /* (set! scheme#vector-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38584,a[2]=((C_word)li1160),tmp=(C_word)a,a+=3,tmp)); -t20=C_mutate((C_word*)lf[75]+1 /* (set! scheme#vector-for-each ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_38817,a[2]=((C_word)li1168),tmp=(C_word)a,a+=3,tmp)); -t21=C_mutate((C_word*)lf[70]+1 /* (set! scheme#close-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39039,a[2]=((C_word)li1169),tmp=(C_word)a,a+=3,tmp)); -t22=C_mutate((C_word*)lf[69]+1 /* (set! scheme#call-with-port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39074,a[2]=((C_word)li1172),tmp=(C_word)a,a+=3,tmp)); -t23=C_mutate((C_word*)lf[79]+1 /* (set! scheme#eof-object ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39095,a[2]=((C_word)li1173),tmp=(C_word)a,a+=3,tmp)); -t24=C_mutate((C_word*)lf[71]+1 /* (set! scheme#peek-u8 ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39098,a[2]=((C_word)li1174),tmp=(C_word)a,a+=3,tmp)); -t25=C_mutate((C_word*)lf[78]+1 /* (set! scheme#write-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39148,a[2]=((C_word)li1175),tmp=(C_word)a,a+=3,tmp)); -t26=C_a_i_provide(&a,1,lf[1545]); -t27=*((C_word*)lf[189]+1); -t28=C_mutate((C_word*)lf[1546]+1 /* (set! chicken.io#read-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_39252,a[2]=t27,a[3]=((C_word)li1177),tmp=(C_word)a,a+=4,tmp)); -t29=C_mutate((C_word*)lf[1548]+1 /* (set! chicken.io#read-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39355,a[2]=((C_word)li1180),tmp=(C_word)a,a+=3,tmp)); -t30=C_mutate((C_word*)lf[1549]+1 /* (set! chicken.io#read-lines ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39511,a[2]=((C_word)li1182),tmp=(C_word)a,a+=3,tmp)); -t31=C_mutate((C_word*)lf[1551]+1 /* (set! chicken.io#write-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39601,a[2]=((C_word)li1183),tmp=(C_word)a,a+=3,tmp)); -t32=C_mutate((C_word*)lf[1553]+1 /* (set! chicken.io#read-bytevector!/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39640,a[2]=((C_word)li1185),tmp=(C_word)a,a+=3,tmp)); -t33=C_mutate((C_word*)lf[1554]+1 /* (set! chicken.io#read-string!/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39715,a[2]=((C_word)li1192),tmp=(C_word)a,a+=3,tmp)); -t34=C_mutate((C_word*)lf[1555]+1 /* (set! chicken.io#read-string! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39873,a[2]=((C_word)li1193),tmp=(C_word)a,a+=3,tmp)); -t35=C_mutate((C_word*)lf[1557]+1 /* (set! chicken.io#read-bytevector! ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_39948,a[2]=((C_word)li1194),tmp=(C_word)a,a+=3,tmp)); -t36=C_mutate((C_word*)lf[1558]+1 /* (set! chicken.io#read-string/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40033,a[2]=((C_word)li1196),tmp=(C_word)a,a+=3,tmp)); -t37=C_mutate((C_word*)lf[1560]+1 /* (set! ##sys#read-remaining ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40083,a[2]=((C_word)li1198),tmp=(C_word)a,a+=3,tmp)); -t38=C_mutate((C_word*)lf[1561]+1 /* (set! chicken.io#read-bytevector/port ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40132,a[2]=((C_word)li1199),tmp=(C_word)a,a+=3,tmp)); -t39=C_mutate((C_word*)lf[1562]+1 /* (set! chicken.io#read-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40150,a[2]=((C_word)li1200),tmp=(C_word)a,a+=3,tmp)); -t40=C_mutate((C_word*)lf[1564]+1 /* (set! chicken.io#read-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40201,a[2]=((C_word)li1202),tmp=(C_word)a,a+=3,tmp)); -t41=C_mutate((C_word*)lf[1558]+1 /* (set! chicken.io#read-string/port ...) */,C_fast_retrieve(lf[1558])); -t42=C_mutate((C_word*)lf[1554]+1 /* (set! chicken.io#read-string!/port ...) */,C_fast_retrieve(lf[1554])); -t43=C_mutate((C_word*)lf[1561]+1 /* (set! chicken.io#read-bytevector/port ...) */,C_fast_retrieve(lf[1561])); -t44=C_mutate((C_word*)lf[1553]+1 /* (set! chicken.io#read-bytevector!/port ...) */,C_fast_retrieve(lf[1553])); -t45=C_mutate((C_word*)lf[1566]+1 /* (set! chicken.io#read-buffered ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40281,a[2]=((C_word)li1203),tmp=(C_word)a,a+=3,tmp)); -t46=C_mutate((C_word*)lf[1569]+1 /* (set! chicken.io#read-token ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40309,a[2]=((C_word)li1205),tmp=(C_word)a,a+=3,tmp)); -t47=C_mutate((C_word*)lf[1571]+1 /* (set! chicken.io#read-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40365,a[2]=((C_word)li1206),tmp=(C_word)a,a+=3,tmp)); -t48=C_mutate((C_word*)lf[1573]+1 /* (set! chicken.io#write-byte ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40392,a[2]=((C_word)li1207),tmp=(C_word)a,a+=3,tmp)); -t49=C_mutate((C_word*)lf[1575]+1 /* (set! chicken.io#write-bytevector ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40423,a[2]=((C_word)li1208),tmp=(C_word)a,a+=3,tmp)); -t50=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t50; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t50+1)))(2,av2);}} - -/* k40529 in k40517 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in ... */ -static void C_ccall f_40531(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40531,c,av);} -/* library.scm:7640: ->feature-id */ -t2=C_retrieve2(lf[1508],C_text("chicken.platform#->feature-id"));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -f_37404(3,av2);}} - -/* k40533 in k37493 in k37490 in k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in ... */ -static void C_ccall f_40535(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40535,c,av);} -/* library.scm:7639: ->feature-id */ -t2=C_retrieve2(lf[1508],C_text("chicken.platform#->feature-id"));{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -f_37404(3,av2);}} - -/* k40539 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in ... */ -static void C_ccall f_40541(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_40541,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,t1,C_fast_retrieve(lf[1510])); -t3=C_mutate((C_word*)lf[1510]+1 /* (set! ##sys#features ...) */,t2); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_37492,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t5=C_fix((C_word)C_MAJOR_VERSION); -/* library.scm:7637: ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[706]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[706]+1); -av2[1]=t4; -av2[2]=t5; -tp(3,av2);}} - -/* k40543 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in ... */ -static void C_ccall f_40545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40545,c,av);} -/* library.scm:7630: chicken.keyword#string->keyword */ -t2=*((C_word*)lf[754]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k40547 in k37482 in k37479 in k37476 in k37473 in k37470 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in ... */ -static void C_ccall f_40549(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_40549,c,av);} -/* ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[1580]; -tp(4,av2);}} - -/* k40569 in k37467 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in ... */ -static void C_ccall f_40571(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40571,c,av);} -/* library.scm:7617: check */ -f_37442(((C_word*)t0)[3],t1);} - -/* k40573 in k37464 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in ... */ -static void C_ccall f_40575(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40575,c,av);} -/* library.scm:7616: check */ -f_37442(((C_word*)t0)[3],t1);} - -/* k40577 in k37461 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in ... */ -static void C_ccall f_40579(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40579,c,av);} -/* library.scm:7615: check */ -f_37442(((C_word*)t0)[3],t1);} - -/* k40581 in k37458 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_40583(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40583,c,av);} -/* library.scm:7614: check */ -f_37442(((C_word*)t0)[3],t1);} - -/* k40585 in k37382 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void C_ccall f_40587(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40587,c,av);} -/* library.scm:7613: check */ -f_37442(((C_word*)t0)[3],t1);} - -/* k40605 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_40607(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_40607,c,av);} -a=C_alloc(8); -t2=C_i_check_list_2(t1,lf[822]); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_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_40615,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li1209),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_40615(t6,((C_word*)t0)[4],t1);} - -/* map-loop8690 in k40605 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in ... */ -static void f_40615(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_40615,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40640,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); -/* library.scm:7580: g8696 */ -t4=C_retrieve2(lf[1507],C_text("chicken.platform#chop-separator"));{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=C_slot(t2,C_fix(0)); -f_37351(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);}}} - -/* k40638 in map-loop8690 in k40605 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in ... */ -static void C_ccall f_40640(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_40640,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_40615(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k40655 in k37379 in k37347 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static void C_ccall f_40657(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_40657,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list1(&a,1,t1); -f_37384(2,av2);}} - -/* k40659 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_40661(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_40661,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40664,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(t1)){ -/* library.scm:7565: scheme#make-parameter */ -t3=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40667,a[2]=((C_word*)t0)[2],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:7567: chicken.process-context#get-environment-variable */ -t4=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1582]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k40662 in k40659 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_40664(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40664,c,av);} -/* library.scm:7565: scheme#make-parameter */ -t2=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k40665 in k40659 in k37343 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_40667(C_word c,C_word *av){ -C_word tmp; -C_word 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_40667,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -/* library.scm:7565: scheme#make-parameter */ -t2=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -/* ##sys#peek-c-string */ -t2=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}}} - -/* k40675 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_40677(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40677,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40680,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(t1)){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_list1(&a,1,t1); -f_40680(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40726,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* library.scm:7552: chicken.process-context#get-environment-variable */ -t4=C_fast_retrieve(lf[1356]);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1584]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k40678 in k40675 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_40680(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40680,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40682,a[2]=((C_word)li1211),tmp=(C_word)a,a+=3,tmp); -/* library.scm:7549: scheme#make-parameter */ -t3=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* a40681 in k40678 in k40675 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_40682(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40682,c,av);} -a=C_alloc(3); -if(C_truep(t2)){ -t3=C_i_check_list_2(t2,lf[1583]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40699,a[2]=((C_word)li1210),tmp=(C_word)a,a+=3,tmp); -t5=( - f_40699(t2) -); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* for-each-loop8648 in a40681 in k40678 in k40675 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in ... */ -static C_word f_40699(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_pairp(t1))){ -t2=C_slot(t1,C_fix(0)); -t3=C_i_check_string_2(t2,lf[1583]); -t5=C_slot(t1,C_fix(1)); -t1=t5; -goto loop;} -else{ -t2=C_SCHEME_UNDEFINED; -return(t2);}} - -/* k40724 in k40675 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in ... */ -static void C_ccall f_40726(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40726,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -/* library.scm:7550: ##sys#split-path */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1504]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[1504]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40735,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t3=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_mpointer(&a,(void*)C_INSTALL_EGG_HOME); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k40733 in k40724 in k40675 in k37087 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in ... */ -static void C_ccall f_40735(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_40735,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_a_i_list1(&a,1,t1):C_SCHEME_FALSE); -f_40680(2,av2);}} - -/* k40753 in k40757 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in ... */ -static void C_ccall f_40755(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_40755,c,av);} -t2=((C_word*)t0)[2]; -f_37089(t2,C_i_not(C_eqp(lf[1586],t1)));} - -/* k40757 in k37081 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in ... */ -static void C_ccall f_40759(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40759,c,av);} -a=C_alloc(3); -t2=C_eqp(lf[1585],t1); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40755,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7476: software-version */ -t4=C_fast_retrieve(lf[1461]);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=((C_word*)t0)[2]; -f_37089(t3,C_SCHEME_FALSE);}} - -/* k40761 in k37075 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in ... */ -static void C_ccall f_40763(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40763,c,av);} -/* library.scm:7470: scheme#string->symbol */ -t2=*((C_word*)lf[742]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k40765 in k37069 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in ... */ -static void C_ccall f_40767(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40767,c,av);} -/* library.scm:7466: scheme#string->symbol */ -t2=*((C_word*)lf[742]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k40769 in k37063 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in ... */ -static void C_ccall f_40771(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40771,c,av);} -/* library.scm:7462: scheme#string->symbol */ -t2=*((C_word*)lf[742]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k40773 in k37057 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in ... */ -static void C_ccall f_40775(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40775,c,av);} -/* library.scm:7458: scheme#string->symbol */ -t2=*((C_word*)lf[742]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k40777 in k36756 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_40779(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40779,c,av);} -/* library.scm:7454: scheme#string->symbol */ -t2=*((C_word*)lf[742]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a40780 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_40781(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_40781,c,av);} -t3=C_i_check_symbol_2(t2,lf[1587]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_slot(t2,C_fix(2)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a40789 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in ... */ -static void C_ccall f_40790(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_40790,c,av);} -a=C_alloc(5); -t4=C_i_check_symbol_2(t2,lf[1587]); -t5=C_i_check_list_2(t3,lf[1588]); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40800,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t7=C_i_length(t3); -if(C_truep(C_i_fixnumevenp(t7))){ -t8=C_i_setslot(t2,C_fix(2),t3); -t9=C_i_nullp(t3); -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=(C_truep(t9)?C_i_unpersist_symbol(t2):C_i_persist_symbol(t2)); -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -/* library.scm:7357: ##sys#signal-hook */ -t8=*((C_word*)lf[235]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t8; -av2[1]=t6; -av2[2]=lf[295]; -av2[3]=lf[1589]; -av2[4]=t3; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t8+1)))(6,av2);}}} - -/* k40798 in a40789 in k36685 in k36320 in k35936 in k35899 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in ... */ -static void C_ccall f_40800(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_40800,c,av);} -t2=C_i_nullp(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?C_i_unpersist_symbol(((C_word*)t0)[4]):C_i_persist_symbol(((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k40823 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_40825(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_40825,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40828,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_40846,a[2]=t5,a[3]=((C_word)li1220),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_40846(t7,t2,t3);} -else{ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f49039,a[2]=((C_word)li1221),tmp=(C_word)a,a+=3,tmp); -/* library.scm:7030: scheme#make-parameter */ -t4=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k40826 in k40823 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_40828(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40828,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40830,a[2]=((C_word)li1219),tmp=(C_word)a,a+=3,tmp); -/* library.scm:7030: scheme#make-parameter */ -t3=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* a40829 in k40826 in k40823 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_40830(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_40830,c,av);} -t3=C_i_check_list_2(t2,lf[1591]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* loop in k40823 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void f_40846(C_word t0,C_word 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_40846,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_slot(t2,C_fix(0)); -t4=C_slot(t2,C_fix(1)); -if(C_truep(C_i_string_equal_p(lf[1592],t3))){ -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_string_length(t3); -if(C_truep(C_fixnum_greater_or_equal_p(t5,C_fix(3)))){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_40881,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t4,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* library.scm:7043: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[486]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[486]+1); -av2[1]=t6; -av2[2]=t3; -av2[3]=C_fix(0); -av2[4]=C_fix(2); -tp(5,av2);}} -else{ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}}}} - -/* k40879 in loop in k40823 in k35895 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in ... */ -static void C_ccall f_40881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_40881,c,av);} -if(C_truep(C_i_string_equal_p(lf[1593],t1))){ -/* library.scm:7044: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_40846(t2,((C_word*)t0)[3],((C_word*)t0)[4]);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k40903 in k40907 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_40905(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40905,c,av);} -a=C_alloc(3); -t2=C_i_car(t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f49051,a[2]=((C_word)li1223),tmp=(C_word)a,a+=3,tmp); -/* library.scm:7021: scheme#make-parameter */ -t4=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[2]; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k40907 in k35711 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_40909(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40909,c,av);} -a=C_alloc(3); -if(C_truep(C_i_nullp(t1))){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f49045,a[2]=((C_word)li1222),tmp=(C_word)a,a+=3,tmp); -/* library.scm:7021: scheme#make-parameter */ -t3=*((C_word*)lf[85]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[1595]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40905,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:7024: argv */ -t3=C_fast_retrieve(lf[1365]);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* a40910 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_40911(C_word c,C_word *av){ -C_word tmp; -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,2)))){ -C_save_and_reclaim((void *)f_40911,c,av);} -a=C_alloc(11); -t2=C_uint64_to_num(&a,C_MAX_PATH); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40915,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6941: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k40913 in a40910 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in ... */ -static void C_ccall f_40915(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40915,c,av);} -a=C_alloc(5); -t2=C_curdir(t1,((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40918,a[2]=t2,a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_fast_retrieve(lf[1463]))){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_40918(2,av2);}} -else{ -/* library.scm:6944: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[830]); -C_word *av2=av; -av2[0]=*((C_word*)lf[830]+1); -av2[1]=t3; -tp(2,av2);}}} - -/* k40916 in k40913 in a40910 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in ... */ -static void C_ccall f_40918(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40918,c,av);} -a=C_alloc(3); -if(C_truep(((C_word*)t0)[2])){ -/* library.scm:6946: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[300]+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{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40931,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6949: ##sys#errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1339]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1339]+1); -av2[1]=t2; -tp(2,av2);}}} - -/* k40929 in k40916 in k40913 in a40910 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in ... */ -static void C_ccall f_40931(C_word c,C_word *av){ -C_word tmp; -C_word 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_40931,c,av);} -/* library.scm:6947: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[467]; -av2[3]=t1; -av2[4]=lf[1596]; -av2[5]=lf[1597]; -tp(6,av2);}} - -/* a40935 in k35075 in k34855 in k34429 in k34426 in k34423 in k34420 in k34415 in k34411 in k34270 in k33254 in k33251 in k33248 in k32481 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in ... */ -static void C_ccall f_40936(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_40936,c,av);} -/* library.scm:6952: ##sys#change-directory-hook */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1354]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1354]+1); -av2[1]=t1; -av2[2]=t2; -tp(3,av2);}} - -/* a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_40951(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_40951,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_40955,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_41090,a[2]=((C_word)li1230),tmp=(C_word)a,a+=3,tmp); -/* library.scm:6054: ##sys#error-handler */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1143]); -C_word *av2=av; -av2[0]=*((C_word*)lf[1143]+1); -av2[1]=t4; -av2[2]=t5; -tp(3,av2);}} - -/* k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_40955(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_40955,c,av);} -a=C_alloc(5); -t2=C_mk_bool(C_gui_mode); -if(C_truep(C_i_not(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_40964,a[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:6056: ##sys#print */ -t4=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1606]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41040,a[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:6076: scheme#open-output-string */ -t4=*((C_word*)lf[318]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_40964(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_40964,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40967,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_41034,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6058: ##sys#print */ -t4=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1605]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_40967(2,av2);}}} - -/* k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_40967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_40967,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40970,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40978,a[2]=((C_word*)t0)[3],a[3]=((C_word)li1227),tmp=(C_word)a,a+=4,tmp); -/* library.scm:6060: ##sys#with-print-length-limit */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1065]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[1065]+1); -av2[1]=t2; -av2[2]=C_fix(400); -av2[3]=t3; -tp(4,av2);}} - -/* k40968 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_40970(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_40970,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40973,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6072: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_make_character(10); -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k40971 in k40968 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_40973(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_40973,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_40976,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6073: chicken.base#print-call-chain */ -t3=*((C_word*)lf[228]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k40974 in k40971 in k40968 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_40976(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_40976,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_halt(C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a40977 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_40978(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_40978,c,av);} -a=C_alloc(6); -t2=C_eqp(C_fix(1),C_u_i_length(((C_word*)t0)[2])); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_40988,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6064: ##sys#print */ -t4=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[1604]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(5,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_41008,a[2]=t4,a[3]=((C_word)li1226),tmp=(C_word)a,a+=4,tmp)); -t6=((C_word*)t4)[1]; -f_41008(t6,t1,((C_word*)t0)[2]);}} - -/* k40986 in a40977 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_40988(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_40988,c,av);} -/* library.scm:6065: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_slot(((C_word*)t0)[3],C_fix(0)); -av2[3]=C_SCHEME_TRUE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k40998 in for-each-loop7078 in a40977 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_41000(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_41000,c,av);} -/* library.scm:6070: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_TRUE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* for-each-loop7078 in a40977 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_41008(C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_41008,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_41018,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41000,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* library.scm:6069: ##sys#print */ -t6=*((C_word*)lf[1011]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t5; -av2[2]=C_make_character(10); -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t3=C_SCHEME_UNDEFINED; -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k41016 in for-each-loop7078 in a40977 in k40965 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_41018(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_41018,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_41008(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k41032 in k40962 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_41034(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_41034,c,av);} -/* library.scm:6059: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_FALSE; -av2[4]=*((C_word*)lf[840]+1); -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in ... */ -static void C_ccall f_41040(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_41040,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41043,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_word*)t0)[4])){ -/* library.scm:6077: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_41043(2,av2);}}} - -/* k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in ... */ -static void C_ccall f_41043(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_41043,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41046,a[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:6078: ##sys#print */ -t3=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_make_character(10); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k41044 in k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in ... */ -static void C_ccall f_41046(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_41046,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41047,a[2]=((C_word*)t0)[2],a[3]=((C_word)li1228),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41057,a[2]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_41063,a[2]=t5,a[3]=t2,a[4]=((C_word)li1229),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_41063(t7,t3,((C_word*)t0)[4]);} - -/* g7104 in k41044 in k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_41047(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_41047,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41051,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* library.scm:6079: ##sys#print */ -t4=*((C_word*)lf[1011]+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);}} - -/* k41049 in g7104 in k41044 in k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_41051(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_41051,c,av);} -/* library.scm:6079: ##sys#print */ -t2=*((C_word*)lf[1011]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(10); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k41055 in k41044 in k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void C_ccall f_41057(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_41057,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41061,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* library.scm:6080: scheme#get-output-string */ -t3=*((C_word*)lf[320]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k41059 in k41055 in k41044 in k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_41061(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41061,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_halt(t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* for-each-loop7103 in k41044 in k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in ... */ -static void f_41063(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_41063,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41073,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* library.scm:6079: g7104 */ -t4=((C_word*)t0)[3]; -f_41047(t4,t3,C_slot(t2,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);}}} - -/* k41071 in for-each-loop7103 in k41044 in k41041 in k41038 in k40953 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in ... */ -static void C_ccall f_41073(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_41073,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_41063(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* a41089 in a40950 in k32142 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in ... */ -static void C_ccall f_41090(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41090,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_halt(lf[1607]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a41092 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_41093(C_word c,C_word *av){ -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_41093,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41097,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* library.scm:5944: chicken.base#exit-handler */ -t3=*((C_word*)lf[258]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k41095 in a41092 in k32138 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in ... */ -static void C_ccall f_41097(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_41097,c,av);} -/* library.scm:5943: g6972 */ -t2=t1;{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_fix((C_word)EX_SOFTWARE); -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a41101 in k32134 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_41102(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_41102,c,av);} -/* library.scm:5939: cleanup-before-exit */ -f_32033(t1);} - -/* a41107 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41108(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_41108,c,av);} -a=C_alloc(4); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_fix(0):C_get_rest_arg(c,2,av,2,t0)); -t4=C_i_check_fixnum(t3); -if(C_truep(C_retrieve2(lf[1090],C_text("exit-in-progress")))){ -/* library.scm:5931: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[376]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[376]+1); -av2[1]=t1; -av2[2]=lf[1608]; -tp(3,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41124,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* library.scm:5933: cleanup-before-exit */ -f_32033(t5);}} - -/* k41122 in a41107 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_41124(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41124,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_exit_runtime(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a41131 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41132(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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,1)))){ -C_save_and_reclaim((void *)f_41132,c,av);} -t3=C_slot(t2,C_fix(10)); -t4=C_slot(t2,C_fix(12)); -t5=C_slot(t2,C_fix(11)); -if(C_truep(C_fixnum_greater_or_equal_p(t3,t5))){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=C_utf_decode(t4,t3); -t7=C_i_set_i_slot(t2,C_fix(10),C_utf_advance(t4,t3)); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t6; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}}} - -/* a41153 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41154(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_41154,c,av);} -t3=C_slot(t2,C_fix(10)); -t4=C_slot(t2,C_fix(12)); -t5=C_slot(t2,C_fix(11)); -t6=C_fixnum_greater_or_equal_p(t3,t5); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=(C_truep(t6)?C_SCHEME_END_OF_FILE:C_utf_decode(t4,t3)); -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* a41171 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41172(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41172,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41176,a[2]=t2,a[3]=t1,a[4]=t3,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5683: check */ -t5=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -av2[3]=C_fix(1); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} - -/* k41174 in a41171 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_41176(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_41176,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(10)); -t3=C_slot(((C_word*)t0)[2],C_fix(12)); -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),C_utf_insert(t3,t2,((C_word*)t0)[4])); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41187 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41188(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,3)))){ -C_save_and_reclaim((void *)f_41188,c,av);} -a=C_alloc(7); -t6=C_fixnum_difference(t5,t4); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_41195,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=t6,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:5689: check */ -t8=((C_word*)((C_word*)t0)[2])[1];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -av2[3]=t6; -((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} - -/* k41193 in a41187 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_41195(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_41195,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(10)); -t3=C_slot(((C_word*)t0)[2],C_fix(12)); -t4=C_copy_memory_with_offset(t3,((C_word*)t0)[3],t2,((C_word*)t0)[4],((C_word*)t0)[5]); -t5=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),C_fixnum_plus(t2,((C_word*)t0)[5])); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a41209 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41210(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41210,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a41212 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41213(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41213,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a41215 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41216(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(11,c,2)))){ -C_save_and_reclaim((void *)f_41216,c,av);} -a=C_alloc(11); -t6=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t7=C_slot(t2,C_fix(10)); -t8=C_slot(t2,C_fix(12)); -t9=C_slot(t2,C_fix(11)); -t10=C_fixnum_difference(t9,t7); -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_41229,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=t7,a[6]=t6,a[7]=t2,a[8]=t1,tmp=(C_word)a,a+=9,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_41229(t14,t13);} -else{ -t13=t11; -f_41229(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_41229(t14,t13);} -else{ -t13=t11; -f_41229(t13,C_SCHEME_UNDEFINED);}}} - -/* k41227 in a41215 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void f_41229(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_41229,2,t0,t1);} -t2=C_copy_memory_with_offset(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]); -t3=C_fixnum_plus(((C_word*)t0)[5],((C_word*)((C_word*)t0)[6])[1]); -t4=C_i_set_i_slot(((C_word*)t0)[7],C_fix(10),t3); -t5=((C_word*)t0)[8];{ -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);}} - -/* a41251 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41252(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,5)))){ -C_save_and_reclaim((void *)f_41252,c,av);} -a=C_alloc(11); -t4=C_slot(t2,C_fix(10)); -t5=C_slot(t2,C_fix(11)); -t6=C_slot(t2,C_fix(12)); -t7=(C_truep(t3)?C_fixnum_plus(t4,t3):t5); -if(C_truep(C_fixnum_greater_or_equal_p(t4,t5))){ -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_END_OF_FILE; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} -else{ -t8=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_41276,a[2]=t7,a[3]=t5,a[4]=t6,a[5]=t4,a[6]=((C_word)li878),tmp=(C_word)a,a+=7,tmp); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41295,a[2]=t2,a[3]=((C_word)li879),tmp=(C_word)a,a+=4,tmp); -/* library.scm:5712: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t8; -av2[3]=t9; -C_call_with_values(4,av2);}}} - -/* a41275 in a41251 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_41276(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_41276,c,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_41286,a[2]=((C_word)li877),tmp=(C_word)a,a+=3,tmp); -/* library.scm:5713: ##sys#scan-buffer-line */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[1067]); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[1067]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[4]; -av2[3]=t3; -av2[4]=((C_word*)t0)[5]; -av2[5]=t4; -tp(6,av2);}} - -/* a41285 in a41275 in a41251 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in ... */ -static void C_ccall f_41286(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_41286,c,av);} -/* library.scm:5715: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_SCHEME_FALSE; -av2[3]=t2; -av2[4]=C_SCHEME_FALSE; -C_values(5,av2);}} - -/* a41294 in a41251 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_41295(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_41295,c,av);} -if(C_truep(t4)){ -t5=C_slot(((C_word*)t0)[2],C_fix(4)); -t6=C_fixnum_plus(t5,C_fix(1)); -t7=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t6); -t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fix(0)); -t9=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t2); -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -t5=C_slot(((C_word*)t0)[2],C_fix(5)); -t6=C_i_string_length(t3); -t7=C_i_set_i_slot(((C_word*)t0)[2],C_fix(5),C_fixnum_plus(t5,t6)); -t8=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),t2); -t9=t1;{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}}} - -/* a41335 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in ... */ -static void C_ccall f_41336(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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,4)))){ -C_save_and_reclaim((void *)f_41336,c,av);} -a=C_alloc(5); -t3=C_slot(t2,C_fix(10)); -t4=C_slot(t2,C_fix(11)); -if(C_truep(C_fixnum_greater_or_equal_p(t3,t4))){ -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=lf[1068]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -t5=C_fixnum_difference(t4,t3); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41358,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:5731: ##sys#buffer->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[300]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[300]+1); -av2[1]=t6; -av2[2]=C_fast_retrieve(lf[1069]); -av2[3]=t3; -av2[4]=t5; -tp(5,av2);}}} - -/* k41356 in a41335 in k30994 in k29798 in k29794 in k29790 in k26137 in k26133 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in ... */ -static void C_ccall f_41358(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41358,c,av);} -t2=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a41366 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in ... */ -static void C_ccall f_41367(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_41367,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41371,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t2)){ -/* library.scm:4551: ##sys#check-keyword */ -t4=*((C_word*)lf[417]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[1610]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k41369 in a41366 in k26129 in k26125 in k26121 in k26111 in k25757 in k25753 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in ... */ -static void C_ccall f_41371(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41371,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a41375 in k25749 in k25745 in k25741 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in ... */ -static void C_ccall f_41376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_41376,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_i_set_car(C_i_list_tail(t2,t3),t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a41385 in k25737 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in ... */ -static void C_ccall f_41386(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41386,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_cdr(C_i_cddr(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41395 in k25733 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in ... */ -static void C_ccall f_41396(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41396,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_cdr(C_i_cdar(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41405 in k25729 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in ... */ -static void C_ccall f_41406(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41406,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_cdr(C_i_cadr(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41415 in k25725 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in ... */ -static void C_ccall f_41416(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41416,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_cdr(C_i_caar(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41425 in k25721 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in ... */ -static void C_ccall f_41426(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41426,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_car(C_i_cddr(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41435 in k25717 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in ... */ -static void C_ccall f_41436(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41436,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_car(C_i_cdar(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41445 in k25713 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in ... */ -static void C_ccall f_41446(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41446,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_car(C_i_cadr(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41455 in k25709 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in ... */ -static void C_ccall f_41456(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41456,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_car(C_i_caar(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41465 in k25705 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in ... */ -static void C_ccall f_41466(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41466,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_cdr(C_i_cdr(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41475 in k25701 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in ... */ -static void C_ccall f_41476(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41476,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_cdr(C_i_car(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41485 in k25697 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in ... */ -static void C_ccall f_41486(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41486,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_car(C_i_cdr(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41495 in k25693 in k25689 in k25609 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in ... */ -static void C_ccall f_41496(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41496,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_car(C_i_car(t2),t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41505 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_41506(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_41506,c,av);} -a=C_alloc(7); -if(C_truep(C_i_closurep(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41522,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41530,a[2]=((C_word)li1249),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4366: ##sys#lambda-decoration */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[889]); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[889]+1); -av2[1]=t3; -av2[2]=t2; -av2[3]=t4; -tp(4,av2);}} -else{ -/* library.scm:4368: ##sys#error */ -t3=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=lf[896]; -av2[3]=lf[1612]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k41520 in a41505 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_41522(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_41522,c,av);} -if(C_truep(t1)){ -t2=C_slot(t1,C_fix(1)); -if(C_truep(t2)){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* library.scm:4368: ##sys#error */ -t3=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[896]; -av2[3]=lf[1612]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} -else{ -/* library.scm:4368: ##sys#error */ -t2=*((C_word*)lf[195]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[896]; -av2[3]=lf[1612]; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}}} - -/* a41529 in a41505 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_41530(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_41530,c,av);} -t3=C_i_pairp(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[897],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41545 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_41546(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_41546,c,av);} -t3=C_i_pairp(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[897],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41561 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in ... */ -static void C_ccall f_41562(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_41562,c,av);} -a=C_alloc(6); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41572,a[2]=((C_word)li1254),tmp=(C_word)a,a+=3,tmp); -t5=C_a_i_cons(&a,2,C_retrieve2(lf[897],C_text("setter-tag")),t4); -t6=C_i_setslot(t2,t3,t5); -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}} - -/* a41571 in a41561 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in ... */ -static void C_ccall f_41572(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_41572,c,av);} -a=C_alloc(11); -if(C_truep(C_i_closurep(t2))){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41582,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41601,a[2]=((C_word)li1252),tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41617,a[2]=t3,a[3]=((C_word)li1253),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4377: ##sys#decorate-lambda */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[888]); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[888]+1); -av2[1]=t4; -av2[2]=t2; -av2[3]=t5; -av2[4]=t6; -tp(5,av2);}} -else{ -/* library.scm:4384: chicken.base#error */ -t4=*((C_word*)lf[234]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[1613]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}}} - -/* k41580 in a41571 in a41561 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_41582(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_41582,c,av);} -a=C_alloc(6); -t2=C_eqp(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t4=C_a_i_list1(&a,1,t3); -/* library.scm:4383: ##sys#become! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[396]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[396]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=t4; -tp(3,av2);}}} - -/* a41600 in a41571 in a41561 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_41601(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_41601,c,av);} -t3=C_i_pairp(t2); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_eqp(C_retrieve2(lf[897],C_text("setter-tag")),C_slot(t2,C_fix(0))):C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a41616 in a41571 in a41561 in k24688 in k24685 in k24682 in k24679 in k24675 in k24671 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in ... */ -static void C_ccall f_41617(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41617,c,av);} -a=C_alloc(3); -t4=C_a_i_cons(&a,2,C_retrieve2(lf[897],C_text("setter-tag")),((C_word*)t0)[2]); -t5=C_i_setslot(t2,t3,t4); -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* a41629 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41630(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_41630,c,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_41636,a[2]=t2,a[3]=t4,a[4]=((C_word)li667),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -f_41636(2,av2);}} - -/* loop in a41629 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41636(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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,6)))){ -C_save_and_reclaim((void *)f_41636,c,av);} -a=C_alloc(5); -t2=C_slot(((C_word*)t0)[2],C_fix(10)); -if(C_truep(t2)){ -t3=C_i_set_i_slot(((C_word*)t0)[2],C_fix(10),C_SCHEME_FALSE); -/* library.scm:3982: ##sys#decode-char */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[465]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=C_slot(((C_word*)t0)[2],C_fix(15)); -av2[4]=C_fix(0); -tp(5,av2);}} -else{ -t3=C_slot(((C_word*)t0)[2],C_fix(15)); -t4=C_eqp(lf[457],t3); -if(C_truep(t4)){ -t5=C_read_char(((C_word*)t0)[2]); -t6=C_eqp(C_fix(-1),t5); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41668,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* library.scm:3986: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[830]); -C_word *av2=av; -av2[0]=*((C_word*)lf[830]+1); -av2[1]=t7; -tp(2,av2);}} -else{ -t7=t1;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t7+1)))(2,av2);}}} -else{ -t5=C_slot(((C_word*)t0)[2],C_fix(15)); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41698,a[2]=((C_word)li666),tmp=(C_word)a,a+=3,tmp); -/* library.scm:3994: ##sys#read-char/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[466]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[466]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t5; -av2[4]=t6; -tp(5,av2);}}}} - -/* k41666 in loop in a41629 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41668(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_41668,c,av);} -a=C_alloc(11); -t2=C_fix((C_word)EINTR); -t3=C_eqp(t1,t2); -if(C_truep(t3)){ -/* library.scm:3988: ##sys#dispatch-interrupt */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[827]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[827]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -tp(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41684,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41688,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t6=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k41682 in k41666 in loop in a41629 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41684(C_word c,C_word *av){ -C_word tmp; -C_word 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_41684,c,av);} -/* library.scm:3989: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[467]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[468]; -av2[5]=t1; -av2[6]=((C_word*)t0)[4]; -tp(7,av2);}} - -/* k41686 in k41666 in loop in a41629 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41688(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_41688,c,av);} -/* library.scm:3991: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[828]; -av2[3]=t1; -tp(4,av2);}} - -/* a41697 in loop in a41629 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41698(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(3,c,5)))){ -C_save_and_reclaim((void *)f_41698,c,av);} -a=C_alloc(3); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41704,a[2]=((C_word)li665),tmp=(C_word)a,a+=3,tmp); -/* library.scm:3997: dec */ -t7=t5;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=t4; -av2[5]=t6; -((C_proc)C_fast_retrieve_proc(t7))(6,av2);}} - -/* a41703 in a41697 in loop in a41629 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41704(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_41704,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_utf_decode(t2,t3); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a41710 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41711(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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,6)))){ -C_save_and_reclaim((void *)f_41711,c,av);} -a=C_alloc(4); -t3=C_slot(t2,C_fix(10)); -t4=C_slot(t2,C_fix(15)); -if(C_truep(t3)){ -/* library.scm:4004: ##sys#decode-char */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[465]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[465]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -av2[4]=C_fix(0); -tp(5,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41729,a[2]=t2,a[3]=((C_word)li670),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4005: ##sys#read-char/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[466]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[466]+1); -av2[1]=t1; -av2[2]=t2; -av2[3]=t4; -av2[4]=t5; -tp(5,av2);}}} - -/* a41728 in a41710 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41729(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_41729,c,av);} -a=C_alloc(8); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_41733,a[2]=t2,a[3]=t3,a[4]=t4,a[5]=((C_word*)t0)[2],a[6]=t5,a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* library.scm:4008: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=t4; -tp(3,av2);}} - -/* k41731 in a41728 in a41710 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41733(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_41733,c,av);} -a=C_alloc(3); -t2=C_copy_memory_with_offset(t1,((C_word*)t0)[2],C_fix(0),((C_word*)t0)[3],((C_word*)t0)[4]); -t3=C_i_setslot(((C_word*)t0)[5],C_fix(10),t1); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41741,a[2]=((C_word)li669),tmp=(C_word)a,a+=3,tmp); -/* library.scm:4011: dec */ -t5=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[7]; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=t4; -((C_proc)C_fast_retrieve_proc(t5))(6,av2);}} - -/* a41740 in k41731 in a41728 in a41710 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41741(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_41741,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_utf_decode(t2,t3); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a41743 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41744(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_41744,c,av);} -a=C_alloc(6); -t4=C_slot(t2,C_fix(15)); -t5=C_eqp(t4,lf[457]); -if(C_truep(t5)){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_display_char(t2,t3); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_41757,a[2]=t2,a[3]=t1,a[4]=t3,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -/* library.scm:4018: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fix(4); -tp(3,av2);}}} - -/* k41755 in a41743 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41757(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_41757,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41760,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* library.scm:4019: ##sys#encode-char */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[464]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[464]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=t1; -av2[4]=((C_word*)t0)[5]; -tp(5,av2);}} - -/* k41758 in k41755 in a41743 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41760(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_41760,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -/* library.scm:4018: g4875 */ -t3=C_slot(t2,C_fix(3));{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[4]; -av2[4]=C_fix(0); -av2[5]=t1; -((C_proc)C_fast_retrieve_proc(t3))(6,av2);}} - -/* a41771 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41772(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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(4,c,6)))){ -C_save_and_reclaim((void *)f_41772,c,av);} -a=C_alloc(4); -t6=C_fixnum_difference(t5,t4); -t7=C_slot(t2,C_fix(15)); -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_41786,a[2]=t2,a[3]=((C_word)li673),tmp=(C_word)a,a+=4,tmp); -/* library.scm:4022: ##sys#encode-buffer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[462]+1)); -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=*((C_word*)lf[462]+1); -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -av2[4]=t6; -av2[5]=t7; -av2[6]=t8; -tp(7,av2);}} - -/* a41785 in a41771 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_41786,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_display_string(((C_word*)t0)[2],t2,t3,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* a41788 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41789(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word 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_41789,c,av);} -t4=C_close_file(t2); -/* library.scm:4028: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[830]); -C_word *av2=av; -av2[0]=*((C_word*)lf[830]+1); -av2[1]=t1; -tp(2,av2);}} - -/* a41794 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41795(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41795,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_flush_output(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a41797 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41798(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_41798,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_char_ready_p(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a41800 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41801(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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!=6) C_bad_argc_2(c,6,t0); -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_41801,c,av);} -a=C_alloc(14); -t6=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t7=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t8=C_slot(t2,C_fix(10)); -t9=C_fix(0); -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_41808,a[2]=t6,a[3]=t4,a[4]=t7,a[5]=t2,a[6]=t1,a[7]=t10,tmp=(C_word)a,a+=8,tmp); -if(C_truep(t8)){ -t12=C_block_size(t8); -t13=C_set_block_item(t10,0,t12); -t14=C_copy_memory_with_offset(t4,t8,((C_word*)t7)[1],C_fix(0),((C_word*)t10)[1]); -t15=C_fixnum_plus(((C_word*)t7)[1],((C_word*)t10)[1]); -t16=C_set_block_item(t7,0,t15); -t17=C_fixnum_difference(((C_word*)t6)[1],((C_word*)t10)[1]); -t18=C_set_block_item(t6,0,t17); -t19=t11; -f_41808(t19,C_i_set_i_slot(t2,C_fix(10),C_SCHEME_FALSE));} -else{ -t12=t11; -f_41808(t12,C_SCHEME_UNDEFINED);}} - -/* k41806 in a41800 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_41808(C_word t0,C_word 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,5)))){ -C_save_and_reclaim_args((void *)trf_41808,2,t0,t1);} -a=C_alloc(9); -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=(C_truep(t2)?t2:C_fixnum_difference(C_block_size(((C_word*)t0)[3]),((C_word*)((C_word*)t0)[4])[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|6,a[1]=(C_word)f_41817,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=t5,a[5]=((C_word*)t0)[2],a[6]=((C_word)li679),tmp=(C_word)a,a+=7,tmp)); -t7=((C_word*)t5)[1]; -f_41817(t7,((C_word*)t0)[6],t3,((C_word*)((C_word*)t0)[7])[1],((C_word*)((C_word*)t0)[4])[1]);} - -/* loop in k41806 in a41800 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_41817(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; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(10,0,4)))){ -C_save_and_reclaim_args((void *)trf_41817,5,t0,t1,t2,t3,t4);} -a=C_alloc(10); -t5=fast_read_string_from_file(((C_word*)t0)[2],((C_word*)t0)[3],t2,t4); -if(C_truep(C_eofp(t5))){ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -if(C_truep(C_fixnum_lessp(t5,C_fix(0)))){ -t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_41833,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=t3,a[5]=t4,a[6]=t1,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[2],tmp=(C_word)a,a+=10,tmp); -/* library.scm:4050: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[830]); -C_word av2[2]; -av2[0]=*((C_word*)lf[830]+1); -av2[1]=t6; -tp(2,av2);}} -else{ -if(C_truep(C_fixnum_lessp(t5,t2))){ -/* library.scm:4059: loop */ -t8=t1; -t9=C_fixnum_difference(t2,t5); -t10=C_fixnum_plus(t3,t5); -t11=C_fixnum_plus(t4,t5); -t1=t8; -t2=t9; -t3=t10; -t4=t11; -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);}}}}} - -/* k41831 in loop in k41806 in a41800 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41833(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_41833,c,av);} -a=C_alloc(14); -t2=C_fix((C_word)EINTR); -t3=C_eqp(t1,t2); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_41844,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word)li678),tmp=(C_word)a,a+=7,tmp); -/* library.scm:4052: ##sys#dispatch-interrupt */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[827]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[827]+1); -av2[1]=((C_word*)t0)[6]; -av2[2]=t4; -tp(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_41855,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)[9],a[7]=((C_word*)t0)[5],tmp=(C_word)a,a+=8,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_41859,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t6=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* a41843 in k41831 in loop in k41806 in a41800 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_41844(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_41844,c,av);} -/* library.scm:4053: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_41817(t2,t1,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k41853 in k41831 in loop in k41806 in a41800 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_41855(C_word c,C_word *av){ -C_word tmp; -C_word 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_41855,c,av);} -/* library.scm:4054: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 10) { - av2=av; -} else { - av2=C_alloc(10); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[467]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[831]; -av2[5]=t1; -av2[6]=((C_word*)t0)[4]; -av2[7]=((C_word*)((C_word*)t0)[5])[1]; -av2[8]=((C_word*)t0)[6]; -av2[9]=((C_word*)t0)[7]; -tp(10,av2);}} - -/* k41857 in k41831 in loop in k41806 in a41800 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_41859(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_41859,c,av);} -/* library.scm:4056: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[832]; -av2[3]=t1; -tp(4,av2);}} - -/* a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41908(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_41908,c,av);} -a=C_alloc(9); -t4=(C_truep(t3)?C_i_check_fixnum_2(t3,lf[833]):C_SCHEME_UNDEFINED); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_41915,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_41915(t6,C_SCHEME_UNDEFINED);} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42094,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4065: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t6; -av2[2]=C_fix(1024); -tp(3,av2);}}} - -/* k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_41915(C_word t0,C_word 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,7)))){ -C_save_and_reclaim_args((void *)trf_41915,2,t0,t1);} -a=C_alloc(8); -t2=(C_truep(((C_word*)t0)[2])?((C_word*)t0)[2]:lf[334]); -t3=C_slot(((C_word*)t0)[3],C_fix(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|5,a[1]=(C_word)f_41928,a[2]=((C_word*)t0)[3],a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li682),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_41928(t7,((C_word*)t0)[4],C_fix(1024),t2,t3,lf[835],C_SCHEME_FALSE);} - -/* loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void f_41928(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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,5)))){ -C_save_and_reclaim_args((void *)trf_41928,7,t0,t1,t2,t3,t4,t5,t6);} -a=C_alloc(11); -t7=C_i_fixnum_min(t3,t2); -t8=fast_read_line_from_file(t4,((C_word*)t0)[2],t7); -if(C_truep(C_eofp(t8))){ -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=(C_truep(t6)?t5:C_SCHEME_END_OF_FILE); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} -else{ -if(C_truep(C_i_not(t8))){ -t9=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_41950,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=t5,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -/* library.scm:4076: ##sys#buffer->string/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[461]+1)); -C_word av2[6]; -av2[0]=*((C_word*)lf[461]+1); -av2[1]=t9; -av2[2]=t4; -av2[3]=C_fix(0); -av2[4]=t7; -av2[5]=C_slot(((C_word*)t0)[2],C_fix(15)); -tp(6,av2);}} -else{ -if(C_truep(C_fixnum_lessp(t8,C_fix(0)))){ -t9=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_41995,a[2]=t8,a[3]=((C_word*)t0)[3],a[4]=t2,a[5]=t3,a[6]=t4,a[7]=t5,a[8]=((C_word*)t0)[2],a[9]=t1,a[10]=((C_word*)t0)[4],tmp=(C_word)a,a+=11,tmp); -/* library.scm:4086: ##sys#update-errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[830]); -C_word av2[2]; -av2[0]=*((C_word*)lf[830]+1); -av2[1]=t9; -tp(2,av2);}} -else{ -if(C_truep(t6)){ -t9=C_slot(((C_word*)t0)[2],C_fix(4)); -t10=C_fixnum_plus(t9,C_fix(1)); -t11=C_i_set_i_slot(((C_word*)t0)[2],C_fix(4),t10); -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_42054,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* library.scm:4102: ##sys#buffer->string/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[461]+1)); -C_word av2[6]; -av2[0]=*((C_word*)lf[461]+1); -av2[1]=t12; -av2[2]=t4; -av2[3]=C_fix(0); -av2[4]=t8; -av2[5]=C_slot(((C_word*)t0)[2],C_fix(15)); -tp(6,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:4105: ##sys#buffer->string/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[461]+1)); -C_word av2[6]; -av2[0]=*((C_word*)lf[461]+1); -av2[1]=t1; -av2[2]=t4; -av2[3]=C_fix(0); -av2[4]=t8; -av2[5]=C_slot(((C_word*)t0)[2],C_fix(15)); -tp(6,av2);}}}}}} - -/* k41948 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41950(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_41950,c,av);} -a=C_alloc(8); -if(C_truep(C_fixnum_lessp(((C_word*)t0)[2],((C_word*)t0)[3]))){ -/* library.scm:4079: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t1; -tp(4,av2);}} -else{ -t2=C_fixnum_times(((C_word*)t0)[3],C_fix(2)); -t3=C_fixnum_difference(((C_word*)t0)[2],((C_word*)t0)[3]); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_41974,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* library.scm:4082: ##sys#make-bytevector */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[301]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[301]+1); -av2[1]=t4; -av2[2]=C_fixnum_times(((C_word*)t0)[3],C_fix(2)); -tp(3,av2);}}} - -/* k41972 in k41948 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_41974(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_41974,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_41978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* library.scm:4083: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -tp(4,av2);}} - -/* k41976 in k41972 in k41948 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in ... */ -static void C_ccall f_41978(C_word c,C_word *av){ -C_word tmp; -C_word 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_41978,c,av);} -/* library.scm:4080: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_41928(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);} - -/* k41993 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_41995(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_41995,c,av);} -a=C_alloc(12); -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=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_42009,a[2]=((C_word*)t0)[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]=t5,a[8]=((C_word*)t0)[8],a[9]=((C_word)li681),tmp=(C_word)a,a+=10,tmp); -/* library.scm:4089: ##sys#dispatch-interrupt */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[827]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[827]+1); -av2[1]=((C_word*)t0)[9]; -av2[2]=t6; -tp(3,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_42036,a[2]=((C_word*)t0)[9],a[3]=t1,a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[10],tmp=(C_word)a,a+=6,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_42040,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* ##sys#peek-c-string */ -t6=*((C_word*)lf[829]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=C_mpointer(&a,(void*)strerror(errno)); -av2[3]=C_fix(0); -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* a42008 in k41993 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_42009(C_word c,C_word *av){ -C_word tmp; -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,5)))){ -C_save_and_reclaim((void *)f_42009,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_42017,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_42021,a[2]=t2,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* library.scm:4094: ##sys#buffer->string/encoding */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[461]+1)); -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=*((C_word*)lf[461]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[7]; -av2[5]=C_slot(((C_word*)t0)[8],C_fix(15)); -tp(6,av2);}} - -/* k42015 in a42008 in k41993 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in ... */ -static void C_ccall f_42017(C_word c,C_word *av){ -C_word tmp; -C_word 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_42017,c,av);} -/* library.scm:4091: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_41928(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6],t1,C_SCHEME_TRUE);} - -/* k42019 in a42008 in k41993 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in ... */ -static void C_ccall f_42021(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_42021,c,av);} -/* library.scm:4092: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k42034 in k41993 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_42036(C_word c,C_word *av){ -C_word tmp; -C_word 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_42036,c,av);} -/* library.scm:4096: ##sys#signal-hook/errno */ -{C_proc tp=(C_proc)C_fast_retrieve_symbol_proc(lf[379]); -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=*((C_word*)lf[379]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[467]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[833]; -av2[5]=t1; -av2[6]=((C_word*)t0)[4]; -av2[7]=((C_word*)t0)[5]; -tp(8,av2);}} - -/* k42038 in k41993 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 in ... */ -static void C_ccall f_42040(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_42040,c,av);} -/* library.scm:4098: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[834]; -av2[3]=t1; -tp(4,av2);}} - -/* k42052 in loop in k41913 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_42054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_42054,c,av);} -/* library.scm:4101: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[507]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[507]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k42092 in a41907 in k24156 in k24153 in k24150 in k24147 in k24144 in k24141 in k24138 in k24135 in k24132 in k24129 in k24126 in k24123 in k24120 in k24117 in k23957 in k12559 in k11436 */ -static void C_ccall f_42094(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_42094,c,av);} -t2=((C_word*)t0)[2]; -f_41915(t2,C_i_setslot(((C_word*)t0)[3],C_fix(12),t1));} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_library_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("library")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_library_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(9281))){ -C_save(t1); -C_rereclaim2(9281*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,1631); -lf[0]=C_h_intern(&lf[0],7, C_text("library")); -lf[1]=C_h_intern(&lf[1],7, C_text("scheme#")); -lf[2]=C_h_intern(&lf[2],10, C_text("scheme#not")); -lf[3]=C_h_intern(&lf[3],15, C_text("scheme#boolean?")); -lf[4]=C_h_intern(&lf[4],10, C_text("scheme#eq?")); -lf[5]=C_h_intern(&lf[5],11, C_text("scheme#eqv?")); -lf[6]=C_h_intern(&lf[6],13, C_text("scheme#equal?")); -lf[7]=C_h_intern(&lf[7],16, C_text("scheme#boolean=?")); -lf[8]=C_h_intern(&lf[8],9, C_text("boolean=?")); -lf[9]=C_h_intern(&lf[9],15, C_text("scheme#symbol=?")); -lf[10]=C_h_intern(&lf[10],8, C_text("symbol=?")); -lf[11]=C_h_intern(&lf[11],12, C_text("scheme#pair?")); -lf[12]=C_h_intern(&lf[12],11, C_text("scheme#cons")); -lf[13]=C_h_intern(&lf[13],10, C_text("scheme#car")); -lf[14]=C_h_intern(&lf[14],10, C_text("scheme#cdr")); -lf[15]=C_h_intern(&lf[15],15, C_text("scheme#set-car!")); -lf[16]=C_h_intern(&lf[16],15, C_text("scheme#set-cdr!")); -lf[17]=C_h_intern(&lf[17],11, C_text("scheme#cadr")); -lf[18]=C_h_intern(&lf[18],12, C_text("scheme#caddr")); -lf[19]=C_h_intern(&lf[19],13, C_text("scheme#cadddr")); -lf[20]=C_h_intern(&lf[20],13, C_text("scheme#cddddr")); -lf[21]=C_h_intern(&lf[21],11, C_text("scheme#caar")); -lf[22]=C_h_intern(&lf[22],11, C_text("scheme#cdar")); -lf[23]=C_h_intern(&lf[23],11, C_text("scheme#cddr")); -lf[24]=C_h_intern(&lf[24],12, C_text("scheme#caaar")); -lf[25]=C_h_intern(&lf[25],12, C_text("scheme#caadr")); -lf[26]=C_h_intern(&lf[26],12, C_text("scheme#cadar")); -lf[27]=C_h_intern(&lf[27],12, C_text("scheme#cdaar")); -lf[28]=C_h_intern(&lf[28],12, C_text("scheme#cdadr")); -lf[29]=C_h_intern(&lf[29],12, C_text("scheme#cddar")); -lf[30]=C_h_intern(&lf[30],12, C_text("scheme#cdddr")); -lf[31]=C_h_intern(&lf[31],13, C_text("scheme#caaaar")); -lf[32]=C_h_intern(&lf[32],13, C_text("scheme#caaadr")); -lf[33]=C_h_intern(&lf[33],13, C_text("scheme#caadar")); -lf[34]=C_h_intern(&lf[34],13, C_text("scheme#caaddr")); -lf[35]=C_h_intern(&lf[35],13, C_text("scheme#cadaar")); -lf[36]=C_h_intern(&lf[36],13, C_text("scheme#cadadr")); -lf[37]=C_h_intern(&lf[37],13, C_text("scheme#caddar")); -lf[38]=C_h_intern(&lf[38],13, C_text("scheme#cdaaar")); -lf[39]=C_h_intern(&lf[39],13, C_text("scheme#cdaadr")); -lf[40]=C_h_intern(&lf[40],13, C_text("scheme#cdadar")); -lf[41]=C_h_intern(&lf[41],13, C_text("scheme#cdaddr")); -lf[42]=C_h_intern(&lf[42],13, C_text("scheme#cddaar")); -lf[43]=C_h_intern(&lf[43],13, C_text("scheme#cddadr")); -lf[44]=C_h_intern(&lf[44],13, C_text("scheme#cdddar")); -lf[45]=C_h_intern(&lf[45],12, C_text("scheme#null?")); -lf[46]=C_h_intern(&lf[46],11, C_text("scheme#list")); -lf[47]=C_h_intern(&lf[47],13, C_text("scheme#length")); -lf[48]=C_h_intern(&lf[48],16, C_text("scheme#list-tail")); -lf[49]=C_h_intern(&lf[49],15, C_text("scheme#list-ref")); -lf[50]=C_h_intern(&lf[50],14, C_text("scheme#reverse")); -lf[51]=C_h_intern(&lf[51],29, C_text("##sys#error-not-a-proper-list")); -lf[52]=C_h_intern(&lf[52],7, C_text("reverse")); -lf[53]=C_h_intern(&lf[53],11, C_text("scheme#memq")); -lf[54]=C_h_intern(&lf[54],11, C_text("scheme#memv")); -lf[55]=C_h_intern(&lf[55],13, C_text("scheme#member")); -lf[56]=C_h_intern(&lf[56],11, C_text("scheme#assq")); -lf[57]=C_h_intern(&lf[57],11, C_text("scheme#assv")); -lf[58]=C_h_intern(&lf[58],12, C_text("scheme#assoc")); -lf[59]=C_h_intern(&lf[59],12, C_text("scheme#list?")); -lf[60]=C_h_intern(&lf[60],14, C_text("scheme#string?")); -lf[61]=C_h_intern(&lf[61],20, C_text("scheme#string-length")); -lf[62]=C_h_intern(&lf[62],17, C_text("scheme#string-ref")); -lf[63]=C_h_intern(&lf[63],18, C_text("scheme#string-set!")); -lf[64]=C_h_intern(&lf[64],15, C_text("scheme#string=?")); -lf[65]=C_h_intern(&lf[65],8, C_text("string=?")); -lf[66]=C_h_intern(&lf[66],18, C_text("scheme#string-ci=?")); -lf[67]=C_h_intern(&lf[67],11, C_text("string-ci=?")); -lf[68]=C_h_intern(&lf[68],15, C_text("scheme#features")); -lf[69]=C_h_intern(&lf[69],21, C_text("scheme#call-with-port")); -lf[70]=C_h_intern(&lf[70],17, C_text("scheme#close-port")); -lf[71]=C_h_intern(&lf[71],14, C_text("scheme#peek-u8")); -lf[72]=C_h_intern(&lf[72],17, C_text("scheme#string-map")); -lf[73]=C_h_intern(&lf[73],17, C_text("scheme#vector-map")); -lf[74]=C_h_intern(&lf[74],22, C_text("scheme#string-for-each")); -lf[75]=C_h_intern(&lf[75],22, C_text("scheme#vector-for-each")); -lf[76]=C_h_intern(&lf[76],16, C_text("scheme#make-list")); -lf[77]=C_h_intern(&lf[77],16, C_text("scheme#list-set!")); -lf[78]=C_h_intern(&lf[78],19, C_text("scheme#write-string")); -lf[79]=C_h_intern(&lf[79],17, C_text("scheme#eof-object")); -lf[80]=C_h_intern(&lf[80],16, C_text("scheme#list-copy")); -lf[81]=C_h_intern(&lf[81],21, C_text("scheme#string->vector")); -lf[82]=C_h_intern(&lf[82],21, C_text("scheme#vector->string")); -lf[83]=C_h_intern(&lf[83],12, C_text("scheme#exact")); -lf[84]=C_h_intern(&lf[84],14, C_text("scheme#inexact")); -lf[85]=C_h_intern(&lf[85],21, C_text("scheme#make-parameter")); -lf[86]=C_h_intern(&lf[86],21, C_text("scheme#exact->inexact")); -lf[87]=C_h_intern(&lf[87],10, C_text("scheme#abs")); -lf[88]=C_h_intern(&lf[88],8, C_text("scheme#+")); -lf[89]=C_h_intern(&lf[89],8, C_text("scheme#-")); -lf[90]=C_h_intern(&lf[90],8, C_text("scheme#*")); -lf[91]=C_h_intern(&lf[91],15, C_text("scheme#quotient")); -lf[92]=C_h_intern(&lf[92],16, C_text("scheme#remainder")); -lf[93]=C_h_intern(&lf[93],13, C_text("scheme#modulo")); -lf[94]=C_h_intern(&lf[94],12, C_text("scheme#even?")); -lf[95]=C_h_intern(&lf[95],11, C_text("scheme#odd?")); -lf[96]=C_h_intern(&lf[96],8, C_text("scheme#=")); -lf[97]=C_h_intern(&lf[97],8, C_text("scheme#>")); -lf[98]=C_h_intern(&lf[98],8, C_text("scheme#<")); -lf[99]=C_h_intern(&lf[99],9, C_text("scheme#>=")); -lf[100]=C_h_intern(&lf[100],9, C_text("scheme#<=")); -lf[101]=C_h_intern(&lf[101],14, C_text("scheme#number?")); -lf[102]=C_h_intern(&lf[102],15, C_text("scheme#complex?")); -lf[103]=C_h_intern(&lf[103],12, C_text("scheme#real?")); -lf[104]=C_h_intern(&lf[104],16, C_text("scheme#rational?")); -lf[105]=C_h_intern(&lf[105],15, C_text("scheme#integer?")); -lf[106]=C_h_intern(&lf[106],13, C_text("scheme#exact?")); -lf[107]=C_h_intern(&lf[107],15, C_text("scheme#inexact?")); -lf[108]=C_h_intern(&lf[108],12, C_text("scheme#zero?")); -lf[109]=C_h_intern(&lf[109],16, C_text("scheme#positive?")); -lf[110]=C_h_intern(&lf[110],16, C_text("scheme#negative?")); -lf[111]=C_h_intern(&lf[111],21, C_text("scheme#number->string")); -lf[112]=C_h_intern(&lf[112],14, C_text("scheme#symbol?")); -lf[113]=C_h_intern(&lf[113],14, C_text("scheme#vector?")); -lf[114]=C_h_intern(&lf[114],20, C_text("scheme#vector-length")); -lf[115]=C_h_intern(&lf[115],17, C_text("scheme#vector-ref")); -lf[116]=C_h_intern(&lf[116],18, C_text("scheme#vector-set!")); -lf[117]=C_h_intern(&lf[117],18, C_text("scheme#make-vector")); -lf[118]=C_h_intern(&lf[118],19, C_text("scheme#list->vector")); -lf[119]=C_h_intern(&lf[119],19, C_text("scheme#vector->list")); -lf[120]=C_h_intern(&lf[120],13, C_text("scheme#vector")); -lf[121]=C_h_intern(&lf[121],19, C_text("scheme#vector-fill!")); -lf[122]=C_h_intern(&lf[122],12, C_text("scheme#char?")); -lf[123]=C_h_intern(&lf[123],20, C_text("scheme#char->integer")); -lf[124]=C_h_intern(&lf[124],13, C_text("char->integer")); -lf[125]=C_h_intern(&lf[125],20, C_text("scheme#integer->char")); -lf[126]=C_h_intern(&lf[126],13, C_text("integer->char")); -lf[127]=C_h_intern(&lf[127],13, C_text("scheme#char=?")); -lf[128]=C_h_intern(&lf[128],6, C_text("char=?")); -lf[129]=C_h_intern(&lf[129],13, C_text("scheme#char>?")); -lf[130]=C_h_intern(&lf[130],6, C_text("char>?")); -lf[131]=C_h_intern(&lf[131],13, C_text("scheme#char=?")); -lf[134]=C_h_intern(&lf[134],7, C_text("char>=?")); -lf[135]=C_h_intern(&lf[135],14, C_text("scheme#char<=?")); -lf[136]=C_h_intern(&lf[136],7, C_text("char<=?")); -lf[137]=C_h_intern(&lf[137],18, C_text("scheme#char-upcase")); -lf[138]=C_h_intern(&lf[138],11, C_text("char-upcase")); -lf[139]=C_h_intern(&lf[139],20, C_text("scheme#char-downcase")); -lf[140]=C_h_intern(&lf[140],13, C_text("char-downcase")); -lf[141]=C_h_intern(&lf[141],16, C_text("scheme#char-ci=?")); -lf[142]=C_h_intern(&lf[142],16, C_text("scheme#char-ci>?")); -lf[143]=C_h_intern(&lf[143],16, C_text("scheme#char-ci=?")); -lf[145]=C_h_intern(&lf[145],17, C_text("scheme#char-ci<=?")); -lf[146]=C_h_intern(&lf[146],23, C_text("scheme#char-upper-case?")); -lf[147]=C_h_intern(&lf[147],16, C_text("char-upper-case?")); -lf[148]=C_h_intern(&lf[148],23, C_text("scheme#char-lower-case?")); -lf[149]=C_h_intern(&lf[149],16, C_text("char-lower-case?")); -lf[150]=C_h_intern(&lf[150],20, C_text("scheme#char-numeric?")); -lf[151]=C_h_intern(&lf[151],13, C_text("char-numeric?")); -lf[152]=C_h_intern(&lf[152],23, C_text("scheme#char-whitespace?")); -lf[153]=C_h_intern(&lf[153],16, C_text("char-whitespace?")); -lf[154]=C_h_intern(&lf[154],23, C_text("scheme#char-alphabetic?")); -lf[155]=C_h_intern(&lf[155],16, C_text("char-alphabetic?")); -lf[156]=C_h_intern(&lf[156],23, C_text("scheme.char#digit-value")); -lf[157]=C_h_intern(&lf[157],11, C_text("digit-value")); -lf[158]=C_h_intern(&lf[158],17, C_text("scheme#procedure?")); -lf[159]=C_h_intern(&lf[159],12, C_text("scheme#apply")); -lf[160]=C_h_intern(&lf[160],13, C_text("scheme#values")); -lf[161]=C_h_intern(&lf[161],23, C_text("scheme#call-with-values")); -lf[162]=C_h_intern(&lf[162],37, C_text("scheme#call-with-current-continuation")); -lf[163]=C_h_intern(&lf[163],14, C_text("scheme#call/cc")); -lf[164]=C_h_intern(&lf[164],18, C_text("scheme#input-port?")); -lf[165]=C_h_intern(&lf[165],19, C_text("scheme#output-port?")); -lf[166]=C_h_intern(&lf[166],19, C_text("scheme#binary-port?")); -lf[167]=C_h_intern(&lf[167],6, C_text("binary")); -lf[168]=C_h_intern(&lf[168],12, C_text("scheme#port?")); -lf[169]=C_h_intern(&lf[169],20, C_text("scheme#textual-port?")); -lf[170]=C_h_intern(&lf[170],7, C_text("textual")); -lf[171]=C_h_intern(&lf[171],23, C_text("scheme#input-port-open?")); -lf[172]=C_h_intern(&lf[172],16, C_text("input-port-open?")); -lf[173]=C_h_intern(&lf[173],24, C_text("scheme#output-port-open?")); -lf[174]=C_h_intern(&lf[174],17, C_text("output-port-open?")); -lf[175]=C_h_intern(&lf[175],25, C_text("scheme#current-input-port")); -lf[176]=C_h_intern(&lf[176],26, C_text("scheme#current-output-port")); -lf[177]=C_h_intern(&lf[177],22, C_text("scheme#open-input-file")); -lf[178]=C_h_intern(&lf[178],23, C_text("scheme#open-output-file")); -lf[179]=C_h_intern(&lf[179],23, C_text("scheme#close-input-port")); -lf[180]=C_h_intern(&lf[180],24, C_text("scheme#close-output-port")); -lf[181]=C_h_intern(&lf[181],27, C_text("scheme#call-with-input-file")); -lf[182]=C_h_intern(&lf[182],28, C_text("scheme#call-with-output-file")); -lf[183]=C_h_intern(&lf[183],27, C_text("scheme#with-input-from-file")); -lf[184]=C_h_intern(&lf[184],26, C_text("scheme#with-output-to-file")); -lf[185]=C_h_intern(&lf[185],18, C_text("scheme#eof-object?")); -lf[186]=C_h_intern(&lf[186],18, C_text("scheme#char-ready?")); -lf[187]=C_h_intern(&lf[187],16, C_text("scheme#read-char")); -lf[188]=C_h_intern(&lf[188],16, C_text("scheme#peek-char")); -lf[189]=C_h_intern(&lf[189],11, C_text("scheme#read")); -lf[190]=C_h_intern(&lf[190],17, C_text("scheme#write-char")); -lf[191]=C_h_intern(&lf[191],14, C_text("scheme#newline")); -lf[192]=C_h_intern(&lf[192],12, C_text("scheme#write")); -lf[193]=C_h_intern(&lf[193],14, C_text("scheme#display")); -lf[194]=C_h_intern(&lf[194],11, C_text("scheme#eval")); -lf[195]=C_h_intern(&lf[195],11, C_text("##sys#error")); -lf[196]=C_h_intern(&lf[196],4, C_text("eval")); -lf[197]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\125\140\145\166\141\154\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000")); -lf[198]=C_h_intern(&lf[198],30, C_text("scheme#interaction-environment")); -lf[199]=C_h_intern(&lf[199],23, C_text("interaction-environment")); -lf[200]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\150\140\151\156\164\145\162\141\143\164\151\157\156\055\145\156\166\151\162\157\156\155\145\156\164\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000")); -lf[201]=C_h_intern(&lf[201],32, C_text("scheme#scheme-report-environment")); -lf[202]=C_h_intern(&lf[202],25, C_text("scheme-report-environment")); -lf[203]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\152\140\163\143\150\145\155\145\055\162\145\160\157\162\164\055\145\156\166\151\162\157\156\155\145\156\164\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000")); -lf[204]=C_h_intern(&lf[204],23, C_text("scheme#null-environment")); -lf[205]=C_h_intern(&lf[205],16, C_text("null-environment")); -lf[206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\141\140\156\165\154\154\055\145\156\166\151\162\157\156\155\145\156\164\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000")); -lf[207]=C_h_intern(&lf[207],11, C_text("scheme#load")); -lf[208]=C_h_intern(&lf[208],4, C_text("load")); -lf[209]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\125\140\154\157\141\144\047\040\151\163\040\156\157\164\040\144\145\146\151\156\145\144\040\055\040\164\150\145\040\140\145\166\141\154\047\040\165\156\151\164\040\167\141\163\040\160\162\157\142\141\142\154\171\040\156\157\164\040\154\151\156\153\145\144\040\167\151\164\150\040\164\150\151\163\040\145\170\145\143\165\164\141\142\154\145\000")); -lf[210]=C_h_intern(&lf[210],15, C_text("scheme#for-each")); -lf[211]=C_h_intern(&lf[211],10, C_text("scheme#map")); -lf[212]=C_h_intern(&lf[212],19, C_text("scheme#dynamic-wind")); -lf[213]=C_h_intern(&lf[213],13, C_text("chicken.base#")); -lf[214]=C_h_intern(&lf[214],20, C_text("chicken.base#fixnum?")); -lf[215]=C_h_intern(&lf[215],20, C_text("chicken.base#flonum?")); -lf[216]=C_h_intern(&lf[216],20, C_text("chicken.base#bignum?")); -lf[217]=C_h_intern(&lf[217],20, C_text("chicken.base#ratnum?")); -lf[218]=C_h_intern(&lf[218],21, C_text("chicken.base#cplxnum?")); -lf[219]=C_h_intern(&lf[219],27, C_text("chicken.base#exact-integer?")); -lf[220]=C_h_intern(&lf[220],31, C_text("chicken.base#exact-integer-sqrt")); -lf[221]=C_h_intern(&lf[221],31, C_text("chicken.base#quotient&remainder")); -lf[222]=C_h_intern(&lf[222],28, C_text("chicken.base#quotient&modulo")); -lf[223]=C_h_intern(&lf[223],20, C_text("chicken.base#finite?")); -lf[224]=C_h_intern(&lf[224],22, C_text("chicken.base#infinite?")); -lf[225]=C_h_intern(&lf[225],17, C_text("chicken.base#nan?")); -lf[226]=C_h_intern(&lf[226],19, C_text("chicken.base#signum")); -lf[227]=C_h_intern(&lf[227],27, C_text("chicken.base#get-call-chain")); -lf[228]=C_h_intern(&lf[228],29, C_text("chicken.base#print-call-chain")); -lf[229]=C_h_intern(&lf[229],18, C_text("chicken.base#print")); -lf[230]=C_h_intern(&lf[230],19, C_text("chicken.base#print*")); -lf[231]=C_h_intern(&lf[231],17, C_text("chicken.base#add1")); -lf[232]=C_h_intern(&lf[232],17, C_text("chicken.base#sub1")); -lf[233]=C_h_intern(&lf[233],31, C_text("chicken.base#current-error-port")); -lf[234]=C_h_intern(&lf[234],18, C_text("chicken.base#error")); -lf[235]=C_h_intern(&lf[235],17, C_text("##sys#signal-hook")); -lf[236]=C_h_intern_kw(&lf[236],5, C_text("error")); -lf[237]=C_h_intern(&lf[237],17, C_text("chicken.base#void")); -lf[238]=C_h_intern(&lf[238],18, C_text("chicken.base#sleep")); -lf[239]=C_h_intern(&lf[239],22, C_text("chicken.base#char-name")); -lf[240]=C_h_intern(&lf[240],31, C_text("chicken.base#getter-with-setter")); -lf[241]=C_h_intern(&lf[241],34, C_text("chicken.base#procedure-information")); -lf[242]=C_h_intern(&lf[242],19, C_text("chicken.base#setter")); -lf[243]=C_h_intern(&lf[243],27, C_text("chicken.base#record-printer")); -lf[244]=C_h_intern(&lf[244],32, C_text("chicken.base#set-record-printer!")); -lf[245]=C_h_intern(&lf[245],22, C_text("chicken.base#subvector")); -lf[246]=C_h_intern(&lf[246],26, C_text("chicken.base#vector-resize")); -lf[247]=C_h_intern(&lf[247],25, C_text("chicken.base#port-closed?")); -lf[248]=C_h_intern(&lf[248],25, C_text("chicken.base#flush-output")); -lf[249]=C_h_intern(&lf[249],21, C_text("chicken.base#promise?")); -lf[250]=C_h_intern(&lf[250],7, C_text("promise")); -lf[251]=C_h_intern(&lf[251],18, C_text("##sys#make-promise")); -lf[252]=C_h_intern(&lf[252],25, C_text("chicken.base#make-promise")); -lf[253]=C_h_intern(&lf[253],18, C_text("chicken.base#foldl")); -lf[254]=C_h_intern(&lf[254],5, C_text("foldl")); -lf[255]=C_h_intern(&lf[255],18, C_text("chicken.base#foldr")); -lf[256]=C_h_intern(&lf[256],5, C_text("foldr")); -lf[257]=C_h_intern(&lf[257],34, C_text("chicken.base#implicit-exit-handler")); -lf[258]=C_h_intern(&lf[258],25, C_text("chicken.base#exit-handler")); -lf[259]=C_h_intern(&lf[259],26, C_text("chicken.base#cleanup-tasks")); -lf[260]=C_h_intern(&lf[260],20, C_text("chicken.base#on-exit")); -lf[261]=C_h_intern(&lf[261],17, C_text("chicken.base#exit")); -lf[262]=C_h_intern(&lf[262],27, C_text("chicken.base#emergency-exit")); -lf[263]=C_h_intern(&lf[263],14, C_text("emergency-exit")); -lf[264]=C_h_intern(&lf[264],27, C_text("chicken.base#case-sensitive")); -lf[265]=C_h_intern(&lf[265],26, C_text("chicken.base#keyword-style")); -lf[266]=C_h_intern(&lf[266],33, C_text("chicken.base#parentheses-synonyms")); -lf[267]=C_h_intern(&lf[267],26, C_text("chicken.base#symbol-escape")); -lf[268]=C_h_intern(&lf[268],21, C_text("chicken.base#identity")); -lf[269]=C_h_intern(&lf[269],20, C_text("chicken.base#conjoin")); -lf[270]=C_h_intern(&lf[270],20, C_text("chicken.base#disjoin")); -lf[271]=C_h_intern(&lf[271],23, C_text("chicken.base#constantly")); -lf[272]=C_h_intern(&lf[272],17, C_text("chicken.base#flip")); -lf[273]=C_h_intern(&lf[273],23, C_text("chicken.base#complement")); -lf[274]=C_h_intern(&lf[274],20, C_text("chicken.base#compose")); -lf[275]=C_h_intern(&lf[275],14, C_text("chicken.base#o")); -lf[276]=C_h_intern(&lf[276],21, C_text("chicken.base#list-of?")); -lf[277]=C_h_intern(&lf[277],17, C_text("chicken.base#each")); -lf[278]=C_h_intern(&lf[278],21, C_text("##sys#undefined-value")); -lf[279]=C_h_intern(&lf[279],24, C_text("chicken.base#bwp-object?")); -lf[280]=C_h_intern(&lf[280],22, C_text("chicken.base#weak-cons")); -lf[281]=C_h_intern(&lf[281],23, C_text("chicken.base#weak-pair?")); -lf[282]=C_h_intern(&lf[282],18, C_text("chicken.base#atom?")); -lf[283]=C_h_intern(&lf[283],18, C_text("chicken.base#tail?")); -lf[284]=C_h_intern(&lf[284],5, C_text("tail?")); -lf[285]=C_h_intern(&lf[285],24, C_text("chicken.base#intersperse")); -lf[286]=C_h_intern(&lf[286],20, C_text("chicken.base#butlast")); -lf[287]=C_h_intern(&lf[287],7, C_text("butlast")); -lf[288]=C_h_intern(&lf[288],20, C_text("chicken.base#flatten")); -lf[289]=C_h_intern(&lf[289],17, C_text("chicken.base#join")); -lf[290]=C_h_intern(&lf[290],4, C_text("join")); -lf[291]=C_h_intern(&lf[291],12, C_text("##sys#append")); -lf[292]=C_h_intern(&lf[292],21, C_text("chicken.base#compress")); -lf[293]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\162\157\160\145\162\040\154\151\163\164\000")); -lf[294]=C_h_intern(&lf[294],8, C_text("compress")); -lf[295]=C_h_intern_kw(&lf[295],10, C_text("type-error")); -lf[296]=C_h_intern(&lf[296],26, C_text("chicken.base#char-foldcase")); -lf[297]=C_h_intern(&lf[297],13, C_text("char-foldcase")); -lf[298]=C_h_intern(&lf[298],28, C_text("chicken.base#string-foldcase")); -lf[299]=C_h_intern(&lf[299],15, C_text("string-foldcase")); -lf[300]=C_h_intern(&lf[300],20, C_text("##sys#buffer->string")); -lf[301]=C_h_intern(&lf[301],21, C_text("##sys#make-bytevector")); -lf[302]=C_h_intern(&lf[302],26, C_text("chicken.base#alist-update!")); -lf[303]=C_h_intern(&lf[303],25, C_text("chicken.base#alist-update")); -lf[304]=C_h_intern(&lf[304],12, C_text("alist-update")); -lf[305]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000")); -lf[306]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000")); -lf[307]=C_h_intern(&lf[307],22, C_text("chicken.base#alist-ref")); -lf[308]=C_h_intern(&lf[308],9, C_text("alist-ref")); -lf[309]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000")); -lf[310]=C_h_intern(&lf[310],19, C_text("chicken.base#rassoc")); -lf[311]=C_h_intern(&lf[311],6, C_text("rassoc")); -lf[312]=C_h_intern(&lf[312],24, C_text("scheme#open-input-string")); -lf[313]=C_h_intern(&lf[313],17, C_text("open-input-string")); -lf[314]=C_h_intern(&lf[314],15, C_text("##sys#make-port")); -lf[315]=C_h_intern(&lf[315],23, C_text("##sys#string-port-class")); -lf[316]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\162\151\156\147\051\000")); -lf[317]=C_h_intern(&lf[317],6, C_text("string")); -lf[318]=C_h_intern(&lf[318],25, C_text("scheme#open-output-string")); -lf[319]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\162\151\156\147\051\000")); -lf[320]=C_h_intern(&lf[320],24, C_text("scheme#get-output-string")); -lf[321]=C_h_intern(&lf[321],17, C_text("get-output-string")); -lf[322]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\040\163\164\162\151\156\147\055\157\165\164\160\165\164\055\160\157\162\164\000")); -lf[323]=C_h_intern(&lf[323],28, C_text("scheme#open-input-bytevector")); -lf[324]=C_h_intern(&lf[324],21, C_text("open-input-bytevector")); -lf[325]=C_h_intern(&lf[325],10, C_text("scheme#min")); -lf[326]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\050\142\171\164\145\166\145\143\164\157\162\051\000")); -lf[327]=C_h_intern(&lf[327],6, C_text("custom")); -lf[328]=C_h_intern(&lf[328],29, C_text("scheme#open-output-bytevector")); -lf[329]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\050\142\171\164\145\166\145\143\164\157\162\051\000")); -lf[330]=C_h_intern(&lf[330],28, C_text("scheme#get-output-bytevector")); -lf[331]=C_h_intern(&lf[331],21, C_text("get-output-bytevector")); -lf[332]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\156\157\164\040\141\156\040\157\165\164\160\165\164\055\142\171\164\145\166\145\143\164\157\162\000")); -lf[333]=C_h_intern(&lf[333],16, C_text("##sys#check-port")); -lf[335]=C_h_intern(&lf[335],15, C_text("chicken.fixnum#")); -lf[336]=C_h_intern(&lf[336],35, C_text("chicken.fixnum#most-positive-fixnum")); -lf[337]=C_h_intern(&lf[337],35, C_text("chicken.fixnum#most-negative-fixnum")); -lf[338]=C_h_intern(&lf[338],26, C_text("chicken.fixnum#fixnum-bits")); -lf[339]=C_h_intern(&lf[339],31, C_text("chicken.fixnum#fixnum-precision")); -lf[340]=C_h_intern(&lf[340],18, C_text("chicken.fixnum#fx+")); -lf[341]=C_h_intern(&lf[341],18, C_text("chicken.fixnum#fx-")); -lf[342]=C_h_intern(&lf[342],18, C_text("chicken.fixnum#fx*")); -lf[343]=C_h_intern(&lf[343],18, C_text("chicken.fixnum#fx=")); -lf[344]=C_h_intern(&lf[344],18, C_text("chicken.fixnum#fx>")); -lf[345]=C_h_intern(&lf[345],18, C_text("chicken.fixnum#fx<")); -lf[346]=C_h_intern(&lf[346],19, C_text("chicken.fixnum#fx>=")); -lf[347]=C_h_intern(&lf[347],19, C_text("chicken.fixnum#fx<=")); -lf[348]=C_h_intern(&lf[348],20, C_text("chicken.fixnum#fxmin")); -lf[349]=C_h_intern(&lf[349],20, C_text("chicken.fixnum#fxmax")); -lf[350]=C_h_intern(&lf[350],20, C_text("chicken.fixnum#fxneg")); -lf[351]=C_h_intern(&lf[351],20, C_text("chicken.fixnum#fxand")); -lf[352]=C_h_intern(&lf[352],20, C_text("chicken.fixnum#fxior")); -lf[353]=C_h_intern(&lf[353],20, C_text("chicken.fixnum#fxxor")); -lf[354]=C_h_intern(&lf[354],20, C_text("chicken.fixnum#fxnot")); -lf[355]=C_h_intern(&lf[355],20, C_text("chicken.fixnum#fxshl")); -lf[356]=C_h_intern(&lf[356],20, C_text("chicken.fixnum#fxshr")); -lf[357]=C_h_intern(&lf[357],21, C_text("chicken.fixnum#fxodd?")); -lf[358]=C_h_intern(&lf[358],22, C_text("chicken.fixnum#fxeven?")); -lf[359]=C_h_intern(&lf[359],20, C_text("chicken.fixnum#fxlen")); -lf[360]=C_h_intern(&lf[360],18, C_text("chicken.fixnum#fx/")); -lf[361]=C_h_intern(&lf[361],20, C_text("chicken.fixnum#fxgcd")); -lf[362]=C_h_intern(&lf[362],20, C_text("chicken.fixnum#fxmod")); -lf[363]=C_h_intern(&lf[363],20, C_text("chicken.fixnum#fxrem")); -lf[364]=C_h_intern(&lf[364],19, C_text("chicken.fixnum#fx+?")); -lf[365]=C_h_intern(&lf[365],19, C_text("chicken.fixnum#fx-?")); -lf[366]=C_h_intern(&lf[366],19, C_text("chicken.fixnum#fx*?")); -lf[367]=C_h_intern(&lf[367],19, C_text("chicken.fixnum#fx/?")); -lf[368]=C_h_intern(&lf[368],17, C_text("##sys#debug-mode?")); -lf[369]=C_h_intern(&lf[369],22, C_text("##sys#warnings-enabled")); -lf[370]=C_h_intern(&lf[370],21, C_text("##sys#notices-enabled")); -lf[371]=C_h_intern(&lf[371],20, C_text("chicken.base#warning")); -lf[372]=C_h_intern_kw(&lf[372],7, C_text("warning")); -lf[373]=C_h_intern(&lf[373],19, C_text("chicken.base#notice")); -lf[374]=C_h_intern_kw(&lf[374],6, C_text("notice")); -lf[375]=C_h_intern(&lf[375],28, C_text("chicken.base#enable-warnings")); -lf[376]=C_h_intern(&lf[376],10, C_text("##sys#warn")); -lf[377]=C_h_intern(&lf[377],12, C_text("##sys#notice")); -lf[378]=C_h_intern(&lf[378],17, C_text("##sys#error/errno")); -lf[379]=C_h_intern(&lf[379],23, C_text("##sys#signal-hook/errno")); -lf[380]=C_h_intern(&lf[380],8, C_text("##sys#gc")); -lf[381]=C_h_intern(&lf[381],13, C_text("##sys#setslot")); -lf[382]=C_h_intern(&lf[382],14, C_text("##sys#setislot")); -lf[383]=C_h_intern(&lf[383],21, C_text("##sys#allocate-vector")); -lf[384]=C_h_intern(&lf[384],25, C_text("##sys#allocate-bytevector")); -lf[385]=C_h_intern(&lf[385],20, C_text("##sys#make-structure")); -lf[386]=C_h_intern(&lf[386],25, C_text("##sys#ensure-heap-reserve")); -lf[387]=C_h_intern(&lf[387],23, C_text("##sys#symbol-table-info")); -lf[388]=C_h_intern(&lf[388],17, C_text("##sys#memory-info")); -lf[389]=C_h_intern(&lf[389],17, C_text("##sys#start-timer")); -lf[390]=C_h_intern(&lf[390],16, C_text("##sys#stop-timer")); -lf[391]=C_h_intern(&lf[391],16, C_text("##sys#immediate?")); -lf[392]=C_h_intern(&lf[392],13, C_text("##sys#message")); -lf[393]=C_h_intern(&lf[393],10, C_text("##sys#byte")); -lf[394]=C_h_intern(&lf[394],10, C_text("##sys#void")); -lf[395]=C_h_intern(&lf[395],10, C_text("##sys#halt")); -lf[396]=C_h_intern(&lf[396],13, C_text("##sys#become!")); -lf[397]=C_h_intern(&lf[397],15, C_text("##sys#block-ref")); -lf[398]=C_h_intern(&lf[398],18, C_text("##sys#apply-values")); -lf[399]=C_h_intern(&lf[399],18, C_text("##sys#copy-closure")); -lf[400]=C_h_intern(&lf[400],16, C_text("##sys#block-set!")); -lf[401]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\163\154\157\164\040\156\157\164\040\141\143\143\145\163\163\151\142\154\145\000")); -lf[402]=C_h_intern(&lf[402],13, C_text("chicken.time#")); -lf[403]=C_h_intern(&lf[403],41, C_text("chicken.time#current-process-milliseconds")); -lf[404]=C_h_intern(&lf[404],28, C_text("chicken.time#current-seconds")); -lf[405]=C_h_intern(&lf[405],21, C_text("chicken.time#cpu-time")); -lf[406]=C_h_intern(&lf[406],21, C_text("##sys#check-structure")); -lf[407]=C_h_intern(&lf[407],16, C_text("##sys#check-blob")); -lf[408]=C_h_intern(&lf[408],16, C_text("##sys#check-pair")); -lf[409]=C_h_intern(&lf[409],16, C_text("##sys#check-list")); -lf[410]=C_h_intern(&lf[410],18, C_text("##sys#check-string")); -lf[411]=C_h_intern(&lf[411],18, C_text("##sys#check-number")); -lf[412]=C_h_intern(&lf[412],18, C_text("##sys#check-fixnum")); -lf[413]=C_h_intern(&lf[413],22, C_text("##sys#check-bytevector")); -lf[414]=C_h_intern(&lf[414],17, C_text("##sys#check-exact")); -lf[415]=C_h_intern(&lf[415],19, C_text("##sys#check-inexact")); -lf[416]=C_h_intern(&lf[416],18, C_text("##sys#check-symbol")); -lf[417]=C_h_intern(&lf[417],19, C_text("##sys#check-keyword")); -lf[418]=C_h_intern(&lf[418],18, C_text("##sys#check-vector")); -lf[419]=C_h_intern(&lf[419],16, C_text("##sys#check-char")); -lf[420]=C_h_intern(&lf[420],19, C_text("##sys#check-boolean")); -lf[421]=C_h_intern(&lf[421],20, C_text("##sys#check-locative")); -lf[422]=C_h_intern(&lf[422],19, C_text("##sys#check-integer")); -lf[423]=C_h_intern(&lf[423],23, C_text("##sys#error-bad-integer")); -lf[424]=C_h_intern(&lf[424],25, C_text("##sys#check-exact-integer")); -lf[425]=C_h_intern(&lf[425],29, C_text("##sys#error-bad-exact-integer")); -lf[426]=C_h_intern(&lf[426],26, C_text("##sys#check-exact-uinteger")); -lf[427]=C_h_intern(&lf[427],30, C_text("##sys#error-bad-exact-uinteger")); -lf[428]=C_h_intern(&lf[428],16, C_text("##sys#check-real")); -lf[429]=C_h_intern(&lf[429],20, C_text("##sys#error-bad-real")); -lf[430]=C_h_intern(&lf[430],17, C_text("##sys#check-range")); -lf[431]=C_h_intern(&lf[431],27, C_text("##sys#check-range/including")); -lf[432]=C_h_intern(&lf[432],19, C_text("##sys#check-special")); -lf[433]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\151\156\164\145\162\055\154\151\153\145\040\157\142\152\145\143\164\000")); -lf[434]=C_h_intern(&lf[434],19, C_text("##sys#check-closure")); -lf[435]=C_h_intern(&lf[435],12, C_text("scheme#force")); -lf[436]=C_h_intern(&lf[436],10, C_text("##sys#list")); -lf[437]=C_h_intern(&lf[437],11, C_text("##sys#dload")); -lf[438]=C_h_intern(&lf[438],23, C_text("##sys#set-dlopen-flags!")); -lf[439]=C_h_intern(&lf[439],16, C_text("##sys#error-hook")); -lf[440]=C_h_intern(&lf[440],22, C_text("##sys#error-bad-number")); -lf[441]=C_h_intern(&lf[441],23, C_text("##sys#error-bad-inexact")); -lf[442]=C_h_intern(&lf[442],20, C_text("##sys#error-bad-base")); -lf[443]=C_h_intern(&lf[443],13, C_text("scheme#append")); -lf[444]=C_h_intern(&lf[444],6, C_text("append")); -lf[445]=C_h_intern(&lf[445],18, C_text("##sys#fast-reverse")); -lf[446]=C_h_intern(&lf[446],17, C_text("##sys#make-string")); -lf[447]=C_h_intern(&lf[447],17, C_text("##sys#utf-decoder")); -lf[448]=C_h_intern(&lf[448],17, C_text("##sys#utf-encoder")); -lf[449]=C_h_intern(&lf[449],17, C_text("##sys#utf-scanner")); -lf[450]=C_h_intern(&lf[450],19, C_text("##sys#latin-decoder")); -lf[451]=C_h_intern(&lf[451],19, C_text("##sys#latin-encoder")); -lf[452]=C_h_intern(&lf[452],19, C_text("##sys#latin-scanner")); -lf[453]=C_h_intern(&lf[453],20, C_text("##sys#binary-decoder")); -lf[454]=C_h_intern(&lf[454],20, C_text("##sys#binary-encoder")); -lf[455]=C_h_intern(&lf[455],20, C_text("##sys#binary-scanner")); -lf[456]=C_h_intern(&lf[456],19, C_text("##sys#encoding-hook")); -lf[457]=C_h_intern(&lf[457],5, C_text("utf-8")); -lf[458]=C_h_intern(&lf[458],7, C_text("latin-1")); -lf[459]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\146\151\154\145\040\160\157\162\164\040\145\156\143\157\144\151\156\147\000")); -lf[460]=C_h_intern(&lf[460],23, C_text("##sys#register-encoding")); -lf[461]=C_h_intern(&lf[461],29, C_text("##sys#buffer->string/encoding")); -lf[462]=C_h_intern(&lf[462],19, C_text("##sys#encode-buffer")); -lf[463]=C_h_intern(&lf[463],19, C_text("##sys#decode-buffer")); -lf[464]=C_h_intern(&lf[464],17, C_text("##sys#encode-char")); -lf[465]=C_h_intern(&lf[465],17, C_text("##sys#decode-char")); -lf[466]=C_h_intern(&lf[466],24, C_text("##sys#read-char/encoding")); -lf[467]=C_h_intern_kw(&lf[467],10, C_text("file-error")); -lf[468]=C_h_intern(&lf[468],9, C_text("read-char")); -lf[469]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\151\156\143\157\155\160\154\145\164\145\040\143\150\141\162\141\143\164\145\162\040\163\145\161\165\145\156\143\145\040\167\150\151\154\145\040\144\145\143\157\144\151\156\147\000")); -lf[470]=C_h_intern(&lf[470],18, C_text("scheme#make-string")); -lf[471]=C_h_intern(&lf[471],11, C_text("make-string")); -lf[472]=C_h_intern_kw(&lf[472],12, C_text("bounds-error")); -lf[473]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\163\151\172\145\040\151\163\040\156\145\147\141\164\151\166\145\000")); -lf[474]=C_h_intern(&lf[474],19, C_text("scheme#string->list")); -lf[475]=C_h_intern(&lf[475],12, C_text("string->list")); -lf[476]=C_h_intern(&lf[476],18, C_text("##sys#string->list")); -lf[477]=C_h_intern(&lf[477],19, C_text("scheme#list->string")); -lf[478]=C_h_intern(&lf[478],12, C_text("list->string")); -lf[479]=C_h_intern(&lf[479],18, C_text("##sys#list->string")); -lf[480]=C_h_intern(&lf[480],26, C_text("##sys#reverse-list->string")); -lf[481]=C_h_intern(&lf[481],20, C_text("reverse-list->string")); -lf[482]=C_h_intern(&lf[482],19, C_text("scheme#string-fill!")); -lf[483]=C_h_intern(&lf[483],12, C_text("string-fill!")); -lf[484]=C_h_intern(&lf[484],18, C_text("scheme#string-copy")); -lf[485]=C_h_intern(&lf[485],11, C_text("string-copy")); -lf[486]=C_h_intern(&lf[486],15, C_text("##sys#substring")); -lf[487]=C_h_intern(&lf[487],19, C_text("scheme#string-copy!")); -lf[488]=C_h_intern(&lf[488],12, C_text("string-copy!")); -lf[489]=C_h_intern(&lf[489],16, C_text("scheme#substring")); -lf[490]=C_h_intern(&lf[490],9, C_text("substring")); -lf[491]=C_h_intern(&lf[491],15, C_text("scheme#string?")); -lf[494]=C_h_intern(&lf[494],8, C_text("string>?")); -lf[495]=C_h_intern(&lf[495],16, C_text("scheme#string<=?")); -lf[496]=C_h_intern(&lf[496],9, C_text("string<=?")); -lf[497]=C_h_intern(&lf[497],16, C_text("scheme#string>=?")); -lf[498]=C_h_intern(&lf[498],9, C_text("string>=?")); -lf[499]=C_h_intern(&lf[499],18, C_text("scheme#string-ci?")); -lf[502]=C_h_intern(&lf[502],11, C_text("string-ci>?")); -lf[503]=C_h_intern(&lf[503],19, C_text("scheme#string-ci<=?")); -lf[504]=C_h_intern(&lf[504],12, C_text("string-ci<=?")); -lf[505]=C_h_intern(&lf[505],19, C_text("scheme#string-ci>=?")); -lf[506]=C_h_intern(&lf[506],12, C_text("string-ci>=?")); -lf[507]=C_h_intern(&lf[507],19, C_text("##sys#string-append")); -lf[508]=C_h_intern(&lf[508],20, C_text("scheme#string-append")); -lf[509]=C_h_intern(&lf[509],13, C_text("string-append")); -lf[510]=C_h_intern(&lf[510],13, C_text("scheme#string")); -lf[511]=C_h_intern(&lf[511],23, C_text("##sys#char->utf8-string")); -lf[512]=C_h_intern(&lf[512],17, C_text("chicken.base#chop")); -lf[513]=C_h_intern(&lf[513],4, C_text("chop")); -lf[514]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\151\156\166\141\154\151\144\040\156\165\155\145\162\151\143\040\141\162\147\165\155\145\156\164\000")); -lf[515]=C_h_intern(&lf[515],15, C_text("chicken.flonum#")); -lf[516]=C_h_intern(&lf[516],29, C_text("chicken.flonum#maximum-flonum")); -lf[517]=C_h_intern(&lf[517],29, C_text("chicken.flonum#minimum-flonum")); -lf[518]=C_h_intern(&lf[518],27, C_text("chicken.flonum#flonum-radix")); -lf[519]=C_h_intern(&lf[519],29, C_text("chicken.flonum#flonum-epsilon")); -lf[520]=C_h_intern(&lf[520],31, C_text("chicken.flonum#flonum-precision")); -lf[521]=C_h_intern(&lf[521],39, C_text("chicken.flonum#flonum-decimal-precision")); -lf[522]=C_h_intern(&lf[522],38, C_text("chicken.flonum#flonum-maximum-exponent")); -lf[523]=C_h_intern(&lf[523],38, C_text("chicken.flonum#flonum-minimum-exponent")); -lf[524]=C_h_intern(&lf[524],46, C_text("chicken.flonum#flonum-maximum-decimal-exponent")); -lf[525]=C_h_intern(&lf[525],46, C_text("chicken.flonum#flonum-minimum-decimal-exponent")); -lf[526]=C_h_intern(&lf[526],18, C_text("chicken.flonum#fp+")); -lf[527]=C_h_intern(&lf[527],3, C_text("fp+")); -lf[528]=C_h_intern(&lf[528],18, C_text("chicken.flonum#fp-")); -lf[529]=C_h_intern(&lf[529],3, C_text("fp-")); -lf[530]=C_h_intern(&lf[530],18, C_text("chicken.flonum#fp*")); -lf[531]=C_h_intern(&lf[531],3, C_text("fp*")); -lf[532]=C_h_intern(&lf[532],18, C_text("chicken.flonum#fp/")); -lf[533]=C_h_intern(&lf[533],3, C_text("fp/")); -lf[534]=C_h_intern(&lf[534],19, C_text("chicken.flonum#fp*+")); -lf[535]=C_h_intern(&lf[535],4, C_text("fp*+")); -lf[536]=C_h_intern(&lf[536],20, C_text("chicken.flonum#fpgcd")); -lf[537]=C_h_intern(&lf[537],5, C_text("fpgcd")); -lf[538]=C_h_intern(&lf[538],19, C_text("chicken.flonum#fp/?")); -lf[539]=C_h_intern(&lf[539],4, C_text("fp/?")); -lf[540]=C_h_intern(&lf[540],18, C_text("chicken.flonum#fp=")); -lf[541]=C_h_intern(&lf[541],3, C_text("fp=")); -lf[542]=C_h_intern(&lf[542],18, C_text("chicken.flonum#fp>")); -lf[543]=C_h_intern(&lf[543],3, C_text("fp>")); -lf[544]=C_h_intern(&lf[544],18, C_text("chicken.flonum#fp<")); -lf[545]=C_h_intern(&lf[545],3, C_text("fp<")); -lf[546]=C_h_intern(&lf[546],19, C_text("chicken.flonum#fp>=")); -lf[547]=C_h_intern(&lf[547],4, C_text("fp>=")); -lf[548]=C_h_intern(&lf[548],19, C_text("chicken.flonum#fp<=")); -lf[549]=C_h_intern(&lf[549],4, C_text("fp<=")); -lf[550]=C_h_intern(&lf[550],20, C_text("chicken.flonum#fpneg")); -lf[551]=C_h_intern(&lf[551],5, C_text("fpneg")); -lf[552]=C_h_intern(&lf[552],20, C_text("chicken.flonum#fpmax")); -lf[553]=C_h_intern(&lf[553],5, C_text("fpmax")); -lf[554]=C_h_intern(&lf[554],20, C_text("chicken.flonum#fpmin")); -lf[555]=C_h_intern(&lf[555],5, C_text("fpmin")); -lf[556]=C_h_intern(&lf[556],22, C_text("chicken.flonum#fpfloor")); -lf[557]=C_h_intern(&lf[557],7, C_text("fpfloor")); -lf[558]=C_h_intern(&lf[558],25, C_text("chicken.flonum#fptruncate")); -lf[559]=C_h_intern(&lf[559],10, C_text("fptruncate")); -lf[560]=C_h_intern(&lf[560],22, C_text("chicken.flonum#fpround")); -lf[561]=C_h_intern(&lf[561],7, C_text("fpround")); -lf[562]=C_h_intern(&lf[562],24, C_text("chicken.flonum#fpceiling")); -lf[563]=C_h_intern(&lf[563],9, C_text("fpceiling")); -lf[564]=C_h_intern(&lf[564],20, C_text("chicken.flonum#fpsin")); -lf[565]=C_h_intern(&lf[565],5, C_text("fpsin")); -lf[566]=C_h_intern(&lf[566],20, C_text("chicken.flonum#fpcos")); -lf[567]=C_h_intern(&lf[567],5, C_text("fpcos")); -lf[568]=C_h_intern(&lf[568],20, C_text("chicken.flonum#fptan")); -lf[569]=C_h_intern(&lf[569],5, C_text("fptan")); -lf[570]=C_h_intern(&lf[570],21, C_text("chicken.flonum#fpasin")); -lf[571]=C_h_intern(&lf[571],6, C_text("fpasin")); -lf[572]=C_h_intern(&lf[572],21, C_text("chicken.flonum#fpacos")); -lf[573]=C_h_intern(&lf[573],6, C_text("fpacos")); -lf[574]=C_h_intern(&lf[574],21, C_text("chicken.flonum#fpatan")); -lf[575]=C_h_intern(&lf[575],6, C_text("fpatan")); -lf[576]=C_h_intern(&lf[576],22, C_text("chicken.flonum#fpatan2")); -lf[577]=C_h_intern(&lf[577],7, C_text("fpatan2")); -lf[578]=C_h_intern(&lf[578],21, C_text("chicken.flonum#fpsinh")); -lf[579]=C_h_intern(&lf[579],6, C_text("fpsinh")); -lf[580]=C_h_intern(&lf[580],21, C_text("chicken.flonum#fpcosh")); -lf[581]=C_h_intern(&lf[581],6, C_text("fpcosh")); -lf[582]=C_h_intern(&lf[582],21, C_text("chicken.flonum#fptanh")); -lf[583]=C_h_intern(&lf[583],6, C_text("fptanh")); -lf[584]=C_h_intern(&lf[584],22, C_text("chicken.flonum#fpasinh")); -lf[585]=C_h_intern(&lf[585],7, C_text("fpasinh")); -lf[586]=C_h_intern(&lf[586],22, C_text("chicken.flonum#fpacosh")); -lf[587]=C_h_intern(&lf[587],7, C_text("fpacosh")); -lf[588]=C_h_intern(&lf[588],22, C_text("chicken.flonum#fpatanh")); -lf[589]=C_h_intern(&lf[589],7, C_text("fpatanh")); -lf[590]=C_h_intern(&lf[590],20, C_text("chicken.flonum#fpexp")); -lf[591]=C_h_intern(&lf[591],5, C_text("fpexp")); -lf[592]=C_h_intern(&lf[592],21, C_text("chicken.flonum#fpexpt")); -lf[593]=C_h_intern(&lf[593],6, C_text("fpexpt")); -lf[594]=C_h_intern(&lf[594],20, C_text("chicken.flonum#fplog")); -lf[595]=C_h_intern(&lf[595],5, C_text("fplog")); -lf[596]=C_h_intern(&lf[596],21, C_text("chicken.flonum#fpsqrt")); -lf[597]=C_h_intern(&lf[597],6, C_text("fpsqrt")); -lf[598]=C_h_intern(&lf[598],20, C_text("chicken.flonum#fpabs")); -lf[599]=C_h_intern(&lf[599],5, C_text("fpabs")); -lf[600]=C_h_intern(&lf[600],25, C_text("chicken.flonum#fpinteger?")); -lf[601]=C_h_intern(&lf[601],10, C_text("fpinteger?")); -lf[602]=C_h_intern(&lf[602],37, C_text("chicken.flonum#flonum-print-precision")); -lf[603]=C_h_intern(&lf[603],22, C_text("flonum-print-precision")); -lf[605]=C_decode_literal(C_heaptop,C_text("\376\1250.0\000")); -lf[606]=C_h_intern(&lf[606],23, C_text("scheme#make-rectangular")); -lf[607]=C_h_intern(&lf[607],16, C_text("make-rectangular")); -lf[608]=C_h_intern(&lf[608],17, C_text("scheme#make-polar")); -lf[609]=C_h_intern(&lf[609],10, C_text("make-polar")); -lf[610]=C_h_intern(&lf[610],16, C_text("scheme#real-part")); -lf[611]=C_h_intern(&lf[611],9, C_text("real-part")); -lf[612]=C_h_intern(&lf[612],16, C_text("scheme#imag-part")); -lf[613]=C_h_intern(&lf[613],9, C_text("imag-part")); -lf[614]=C_h_intern(&lf[614],12, C_text("scheme#angle")); -lf[615]=C_h_intern(&lf[615],5, C_text("angle")); -lf[616]=C_h_intern(&lf[616],16, C_text("scheme#magnitude")); -lf[617]=C_h_intern(&lf[617],11, C_text("scheme#sqrt")); -lf[618]=C_h_intern(&lf[618],9, C_text("magnitude")); -lf[620]=C_h_intern(&lf[620],16, C_text("scheme#numerator")); -lf[621]=C_h_intern(&lf[621],9, C_text("numerator")); -lf[622]=C_h_intern(&lf[622],21, C_text("scheme#inexact->exact")); -lf[623]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\162\141\164\151\157\156\141\154\040\156\165\155\142\145\162\000")); -lf[624]=C_h_intern(&lf[624],18, C_text("scheme#denominator")); -lf[625]=C_h_intern(&lf[625],11, C_text("denominator")); -lf[626]=C_decode_literal(C_heaptop,C_text("\376\1251.0\000")); -lf[627]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\162\141\164\151\157\156\141\154\040\156\165\155\142\145\162\000")); -lf[628]=C_h_intern(&lf[628],21, C_text("##sys#extended-signum")); -lf[629]=C_h_intern(&lf[629],6, C_text("signum")); -lf[630]=C_h_intern(&lf[630],9, C_text("##sys#/-2")); -lf[631]=C_h_intern(&lf[631],14, C_text("inexact->exact")); -lf[632]=C_h_intern(&lf[632],19, C_text("##sys#integer-power")); -lf[633]=C_decode_literal(C_heaptop,C_text("\376\1252.0\000")); -lf[634]=C_h_intern(&lf[634],11, C_text("scheme#expt")); -lf[635]=C_h_intern(&lf[635],16, C_text("chicken.bitwise#")); -lf[636]=C_h_intern(&lf[636],27, C_text("chicken.bitwise#bitwise-and")); -lf[637]=C_h_intern(&lf[637],27, C_text("chicken.bitwise#bitwise-ior")); -lf[638]=C_h_intern(&lf[638],27, C_text("chicken.bitwise#bitwise-xor")); -lf[639]=C_h_intern(&lf[639],27, C_text("chicken.bitwise#bitwise-not")); -lf[640]=C_h_intern(&lf[640],28, C_text("chicken.bitwise#bit->boolean")); -lf[641]=C_h_intern(&lf[641],30, C_text("chicken.bitwise#integer-length")); -lf[642]=C_h_intern(&lf[642],32, C_text("chicken.bitwise#arithmetic-shift")); -lf[643]=C_h_intern(&lf[643],8, C_text("scheme#/")); -lf[645]=C_h_intern(&lf[645],1, C_text("/")); -lf[646]=C_h_intern(&lf[646],12, C_text("scheme#floor")); -lf[647]=C_h_intern(&lf[647],5, C_text("floor")); -lf[648]=C_h_intern(&lf[648],14, C_text("scheme#ceiling")); -lf[649]=C_h_intern(&lf[649],7, C_text("ceiling")); -lf[650]=C_h_intern(&lf[650],15, C_text("scheme#truncate")); -lf[651]=C_h_intern(&lf[651],8, C_text("truncate")); -lf[652]=C_h_intern(&lf[652],12, C_text("scheme#round")); -lf[653]=C_h_intern(&lf[653],5, C_text("round")); -lf[655]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\001\000\000\000\000\376\003\000\000\002\376\377\001\000\000\000\001\376\377\016")); -lf[656]=C_h_intern(&lf[656],18, C_text("scheme#rationalize")); -lf[657]=C_h_intern(&lf[657],10, C_text("scheme#max")); -lf[658]=C_h_intern(&lf[658],3, C_text("max")); -lf[659]=C_h_intern(&lf[659],3, C_text("min")); -lf[660]=C_h_intern(&lf[660],10, C_text("scheme#exp")); -lf[661]=C_h_intern(&lf[661],3, C_text("exp")); -lf[662]=C_h_intern(&lf[662],11, C_text("##sys#log-1")); -lf[663]=C_h_intern_kw(&lf[663],16, C_text("arithmetic-error")); -lf[664]=C_h_intern(&lf[664],3, C_text("log")); -lf[665]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\154\157\147\040\157\146\040\145\170\141\143\164\040\060\040\151\163\040\165\156\144\145\146\151\156\145\144\000")); -lf[666]=C_h_intern(&lf[666],10, C_text("scheme#log")); -lf[667]=C_h_intern(&lf[667],10, C_text("scheme#sin")); -lf[668]=C_h_intern(&lf[668],3, C_text("sin")); -lf[669]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\000\000\000\001")); -lf[670]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\000\000\000\002")); -lf[671]=C_h_intern(&lf[671],10, C_text("scheme#cos")); -lf[672]=C_h_intern(&lf[672],3, C_text("cos")); -lf[673]=C_h_intern(&lf[673],10, C_text("scheme#tan")); -lf[674]=C_h_intern(&lf[674],3, C_text("tan")); -lf[675]=C_h_intern(&lf[675],11, C_text("scheme#asin")); -lf[676]=C_h_intern(&lf[676],4, C_text("asin")); -lf[677]=C_decode_literal(C_heaptop,C_text("\376\016\000\000\002\376\377\001\000\000\000\000\376\377\001\377\377\377\377")); -lf[678]=C_h_intern(&lf[678],14, C_text("##sys#sqrt/loc")); -lf[679]=C_decode_literal(C_heaptop,C_text("\376\125-1.0\000")); -lf[680]=C_h_intern(&lf[680],11, C_text("scheme#acos")); -lf[681]=C_h_intern(&lf[681],4, C_text("acos")); -lf[682]=C_h_intern(&lf[682],11, C_text("scheme#atan")); -lf[683]=C_h_intern(&lf[683],4, C_text("atan")); -lf[684]=C_h_intern(&lf[684],24, C_text("##sys#exact-integer-sqrt")); -lf[685]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\164\150\151\163\040\163\150\157\165\154\144\040\156\145\166\145\162\040\150\141\160\160\145\156\000")); -lf[686]=C_h_intern(&lf[686],25, C_text("scheme#exact-integer-sqrt")); -lf[687]=C_h_intern(&lf[687],18, C_text("exact-integer-sqrt")); -lf[688]=C_h_intern(&lf[688],4, C_text("sqrt")); -lf[689]=C_h_intern(&lf[689],16, C_text("scheme#truncate/")); -lf[690]=C_h_intern(&lf[690],13, C_text("scheme#floor/")); -lf[691]=C_h_intern(&lf[691],22, C_text("scheme#floor-remainder")); -lf[692]=C_h_intern(&lf[692],21, C_text("scheme#floor-quotient")); -lf[693]=C_h_intern(&lf[693],13, C_text("scheme#square")); -lf[694]=C_h_intern(&lf[694],35, C_text("chicken.base#exact-integer-nth-root")); -lf[695]=C_h_intern(&lf[695],32, C_text("##sys#exact-integer-nth-root/loc")); -lf[696]=C_h_intern(&lf[696],22, C_text("exact-integer-nth-root")); -lf[697]=C_h_intern(&lf[697],4, C_text("expt")); -lf[698]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\145\170\160\157\156\145\156\164\040\157\146\040\145\170\141\143\164\040\060\040\167\151\164\150\040\143\157\155\160\154\145\170\040\141\162\147\165\155\145\156\164\040\151\163\040\165\156\144\145\146\151\156\145\144\000")); -lf[699]=C_h_intern(&lf[699],9, C_text("##sys#gcd")); -lf[700]=C_h_intern(&lf[700],3, C_text("gcd")); -lf[701]=C_h_intern(&lf[701],10, C_text("scheme#gcd")); -lf[702]=C_h_intern(&lf[702],9, C_text("##sys#lcm")); -lf[703]=C_h_intern(&lf[703],3, C_text("lcm")); -lf[704]=C_h_intern(&lf[704],10, C_text("scheme#lcm")); -lf[705]=C_h_intern(&lf[705],31, C_text("##sys#integer->string/recursive")); -lf[706]=C_h_intern(&lf[706],20, C_text("##sys#number->string")); -lf[707]=C_h_intern(&lf[707],29, C_text("##sys#extended-number->string")); -lf[708]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[709]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\053\000")); -lf[710]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[711]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\151\000")); -lf[712]=C_h_intern(&lf[712],14, C_text("number->string")); -lf[715]=C_h_intern(&lf[715],1, C_text("e")); -lf[716]=C_h_intern(&lf[716],1, C_text("i")); -lf[717]=C_decode_literal(C_heaptop,C_text("\376\125+inf.0\000")); -lf[718]=C_decode_literal(C_heaptop,C_text("\376\125-inf.0\000")); -lf[719]=C_h_intern(&lf[719],3, C_text("neg")); -lf[720]=C_h_intern(&lf[720],3, C_text("pos")); -lf[721]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\151\156\146\056\060\000")); -lf[722]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\156\141\156\056\060\000")); -lf[723]=C_h_intern(&lf[723],21, C_text("scheme#string->number")); -lf[724]=C_h_intern(&lf[724],14, C_text("string->number")); -lf[725]=C_h_intern(&lf[725],20, C_text("##sys#string->number")); -lf[726]=C_h_intern(&lf[726],20, C_text("##sys#fixnum->string")); -lf[727]=C_h_intern(&lf[727],20, C_text("##sys#flonum->string")); -lf[728]=C_h_intern(&lf[728],21, C_text("##sys#integer->string")); -lf[729]=C_h_intern(&lf[729],20, C_text("chicken.base#equal=?")); -lf[730]=C_h_intern(&lf[730],11, C_text("##sys#snafu")); -lf[731]=C_h_intern(&lf[731],11, C_text("##sys#fnord")); -lf[732]=C_h_intern(&lf[732],19, C_text("##sys#intern-symbol")); -lf[733]=C_h_intern(&lf[733],20, C_text("##sys#intern-keyword")); -lf[734]=C_h_intern(&lf[734],17, C_text("##sys#make-symbol")); -lf[735]=C_h_intern(&lf[735],22, C_text("##sys#interned-symbol?")); -lf[736]=C_h_intern(&lf[736],25, C_text("##sys#string->symbol-name")); -lf[737]=C_h_intern(&lf[737],27, C_text("##sys#symbol->string/shared")); -lf[738]=C_h_intern(&lf[738],20, C_text("##sys#symbol->string")); -lf[739]=C_h_intern(&lf[739],20, C_text("##sys#string->symbol")); -lf[740]=C_h_intern(&lf[740],21, C_text("scheme#symbol->string")); -lf[741]=C_h_intern(&lf[741],14, C_text("symbol->string")); -lf[742]=C_h_intern(&lf[742],21, C_text("scheme#string->symbol")); -lf[743]=C_h_intern(&lf[743],14, C_text("string->symbol")); -lf[744]=C_h_intern(&lf[744],38, C_text("chicken.base#string->uninterned-symbol")); -lf[745]=C_h_intern(&lf[745],25, C_text("string->uninterned-symbol")); -lf[746]=C_h_intern(&lf[746],19, C_text("chicken.base#gensym")); -lf[747]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\147\000")); -lf[748]=C_h_intern(&lf[748],6, C_text("gensym")); -lf[749]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\040\163\164\162\151\156\147\040\157\162\040\163\171\155\142\157\154\000")); -lf[750]=C_h_intern(&lf[750],26, C_text("chicken.base#symbol-append")); -lf[751]=C_h_intern(&lf[751],13, C_text("symbol-append")); -lf[752]=C_h_intern(&lf[752],16, C_text("chicken.keyword#")); -lf[753]=C_h_intern(&lf[753],24, C_text("chicken.keyword#keyword?")); -lf[754]=C_h_intern(&lf[754],31, C_text("chicken.keyword#string->keyword")); -lf[755]=C_h_intern(&lf[755],15, C_text("string->keyword")); -lf[756]=C_h_intern(&lf[756],31, C_text("chicken.keyword#keyword->string")); -lf[757]=C_h_intern(&lf[757],15, C_text("keyword->string")); -lf[758]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\153\145\171\167\157\162\144\000")); -lf[759]=C_h_intern(&lf[759],3, C_text("tag")); -lf[760]=C_h_intern(&lf[760],27, C_text("chicken.keyword#get-keyword")); -lf[761]=C_h_intern(&lf[761],11, C_text("get-keyword")); -lf[762]=C_h_intern(&lf[762],17, C_text("##sys#get-keyword")); -lf[763]=C_h_intern(&lf[763],22, C_text("##sys#bytevector->list")); -lf[764]=C_h_intern(&lf[764],22, C_text("##sys#list->bytevector")); -lf[765]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\143\141\156\040\156\157\164\040\143\157\156\166\145\162\164\040\154\151\163\164\040\164\157\040\142\171\164\145\166\145\143\164\157\162\000")); -lf[766]=C_h_intern(&lf[766],19, C_text("chicken.bytevector#")); -lf[767]=C_h_intern(&lf[767],34, C_text("chicken.bytevector#make-bytevector")); -lf[768]=C_h_intern(&lf[768],15, C_text("make-bytevector")); -lf[769]=C_h_intern(&lf[769],30, C_text("chicken.bytevector#bytevector?")); -lf[770]=C_h_intern(&lf[770],36, C_text("chicken.bytevector#bytevector-length")); -lf[771]=C_h_intern(&lf[771],15, C_text("bytevector-size")); -lf[772]=C_h_intern(&lf[772],36, C_text("chicken.bytevector#bytevector-u8-ref")); -lf[773]=C_h_intern(&lf[773],37, C_text("chicken.bytevector#bytevector-u8-set!")); -lf[774]=C_h_intern(&lf[774],31, C_text("chicken.bytevector#string->utf8")); -lf[775]=C_h_intern(&lf[775],12, C_text("string->utf8")); -lf[776]=C_h_intern(&lf[776],31, C_text("chicken.bytevector#utf8->string")); -lf[777]=C_h_intern(&lf[777],12, C_text("utf8->string")); -lf[778]=C_h_intern(&lf[778],33, C_text("chicken.bytevector#string->latin1")); -lf[779]=C_h_intern(&lf[779],14, C_text("string->latin1")); -lf[780]=C_h_intern(&lf[780],33, C_text("chicken.bytevector#latin1->string")); -lf[781]=C_h_intern(&lf[781],14, C_text("latin1->string")); -lf[782]=C_h_intern(&lf[782],31, C_text("chicken.bytevector#bytevector=?")); -lf[783]=C_h_intern(&lf[783],12, C_text("bytevector=?")); -lf[784]=C_h_intern(&lf[784],29, C_text("chicken.bytevector#bytevector")); -lf[785]=C_h_intern(&lf[785],10, C_text("bytevector")); -lf[786]=C_h_intern(&lf[786],34, C_text("chicken.bytevector#bytevector-copy")); -lf[787]=C_h_intern(&lf[787],15, C_text("bytevector-copy")); -lf[788]=C_h_intern(&lf[788],16, C_text("bytevector->copy")); -lf[789]=C_h_intern(&lf[789],35, C_text("chicken.bytevector#bytevector-copy!")); -lf[790]=C_h_intern(&lf[790],16, C_text("bytevector-copy!")); -lf[791]=C_h_intern(&lf[791],17, C_text("bytevector->copy!")); -lf[792]=C_h_intern(&lf[792],36, C_text("chicken.bytevector#bytevector-append")); -lf[793]=C_h_intern(&lf[793],17, C_text("bytevector-append")); -lf[794]=C_h_intern(&lf[794],11, C_text("make-vector")); -lf[795]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\163\151\172\145\040\151\163\040\156\145\147\141\164\151\166\145\000")); -lf[796]=C_h_intern(&lf[796],17, C_text("##sys#make-vector")); -lf[797]=C_h_intern(&lf[797],12, C_text("list->vector")); -lf[798]=C_h_intern(&lf[798],12, C_text("vector->list")); -lf[799]=C_h_intern(&lf[799],12, C_text("vector-fill!")); -lf[800]=C_h_intern(&lf[800],18, C_text("scheme#vector-copy")); -lf[801]=C_h_intern(&lf[801],11, C_text("vector-copy")); -lf[802]=C_h_intern(&lf[802],19, C_text("scheme#vector-copy!")); -lf[803]=C_h_intern(&lf[803],12, C_text("vector-copy!")); -lf[804]=C_h_intern(&lf[804],20, C_text("scheme#vector-append")); -lf[805]=C_h_intern(&lf[805],13, C_text("vector-append")); -lf[806]=C_h_intern(&lf[806],9, C_text("subvector")); -lf[807]=C_h_intern(&lf[807],13, C_text("vector-resize")); -lf[809]=C_h_intern(&lf[809],9, C_text("char-ci=?")); -lf[810]=C_h_intern(&lf[810],9, C_text("char-ci>?")); -lf[811]=C_h_intern(&lf[811],9, C_text("char-ci=?")); -lf[813]=C_h_intern(&lf[813],10, C_text("char-ci<=?")); -lf[814]=C_h_intern(&lf[814],9, C_text("char-name")); -lf[815]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\151\156\166\141\154\151\144\040\143\150\141\162\141\143\164\145\162\040\156\141\155\145\000")); -lf[816]=C_h_intern(&lf[816],36, C_text("##sys#call-with-current-continuation")); -lf[817]=C_h_intern(&lf[817],23, C_text("##sys#call-with-cthulhu")); -lf[818]=C_h_intern(&lf[818],22, C_text("##sys#call-with-values")); -lf[819]=C_h_intern(&lf[819],14, C_text("##sys#for-each")); -lf[820]=C_h_intern(&lf[820],8, C_text("for-each")); -lf[821]=C_h_intern(&lf[821],9, C_text("##sys#map")); -lf[822]=C_h_intern(&lf[822],3, C_text("map")); -lf[823]=C_h_intern(&lf[823],19, C_text("##sys#dynamic-winds")); -lf[824]=C_h_intern(&lf[824],18, C_text("##sys#dynamic-wind")); -lf[826]=C_h_intern(&lf[826],12, C_text("port-closed?")); -lf[827]=C_h_intern(&lf[827],24, C_text("##sys#dispatch-interrupt")); -lf[828]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\143\141\156\156\157\164\040\162\145\141\144\040\146\162\157\155\040\160\157\162\164\040\055\040\000")); -lf[829]=C_h_intern(&lf[829],19, C_text("##sys#peek-c-string")); -lf[830]=C_h_intern(&lf[830],18, C_text("##sys#update-errno")); -lf[831]=C_h_intern(&lf[831],16, C_text("read-bytevector!")); -lf[832]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\143\141\156\156\157\164\040\162\145\141\144\040\146\162\157\155\040\160\157\162\164\040\055\040\000")); -lf[833]=C_h_intern(&lf[833],9, C_text("read-line")); -lf[834]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\143\141\156\156\157\164\040\162\145\141\144\040\146\162\157\155\040\160\157\162\164\040\055\040\000")); -lf[835]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[836]=C_h_intern(&lf[836],23, C_text("##sys#stream-port-class")); -lf[837]=C_h_intern(&lf[837],20, C_text("##sys#open-file-port")); -lf[838]=C_h_intern(&lf[838],20, C_text("##sys#standard-input")); -lf[839]=C_h_intern(&lf[839],21, C_text("##sys#standard-output")); -lf[840]=C_h_intern(&lf[840],20, C_text("##sys#standard-error")); -lf[841]=C_h_intern(&lf[841],22, C_text("##sys#check-input-port")); -lf[842]=C_h_intern(&lf[842],23, C_text("##sys#check-output-port")); -lf[843]=C_h_intern(&lf[843],21, C_text("##sys#check-open-port")); -lf[844]=C_h_intern(&lf[844],18, C_text("current-input-port")); -lf[845]=C_h_intern(&lf[845],19, C_text("current-output-port")); -lf[846]=C_h_intern(&lf[846],18, C_text("current-error-port")); -lf[847]=C_h_intern(&lf[847],15, C_text("##sys#tty-port?")); -lf[848]=C_h_intern(&lf[848],27, C_text("##sys#peek-unsigned-integer")); -lf[849]=C_h_intern(&lf[849],15, C_text("##sys#port-data")); -lf[850]=C_h_intern(&lf[850],20, C_text("##sys#set-port-data!")); -lf[851]=C_h_intern(&lf[851],27, C_text("##sys#default-file-encoding")); -lf[852]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\162\000")); -lf[853]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\167\000")); -lf[854]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[855]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\143\141\156\156\157\164\040\157\160\145\156\040\146\151\154\145\040\055\040\000")); -lf[856]=C_h_intern(&lf[856],6, C_text("stream")); -lf[857]=C_h_intern_kw(&lf[857],6, C_text("binary")); -lf[858]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\142\000")); -lf[859]=C_h_intern_kw(&lf[859],4, C_text("text")); -lf[860]=C_h_intern(&lf[860],4, C_text("text")); -lf[861]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[862]=C_h_intern_kw(&lf[862],5, C_text("utf-8")); -lf[863]=C_h_intern_kw(&lf[863],7, C_text("latin-1")); -lf[864]=C_h_intern_kw(&lf[864],4, C_text("unix")); -lf[865]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\142\000")); -lf[866]=C_h_intern_kw(&lf[866],4, C_text("crnl")); -lf[867]=C_h_intern(&lf[867],4, C_text("crnl")); -lf[868]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[869]=C_h_intern_kw(&lf[869],6, C_text("append")); -lf[870]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\143\141\156\156\157\164\040\165\163\145\040\141\160\160\145\156\144\040\155\157\144\145\040\167\151\164\150\040\151\156\160\165\164\040\146\151\154\145\000")); -lf[871]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\141\000")); -lf[872]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\156\166\141\154\151\144\040\146\151\154\145\040\157\160\164\151\157\156\000")); -lf[873]=C_h_intern_kw(&lf[873],2, C_text("nl")); -lf[874]=C_h_intern(&lf[874],4, C_text("unix")); -lf[875]=C_h_intern(&lf[875],2, C_text("nl")); -lf[876]=C_h_intern_kw(&lf[876],10, C_text("iso-8859-1")); -lf[877]=C_h_intern(&lf[877],10, C_text("iso-8859-1")); -lf[878]=C_h_intern(&lf[878],15, C_text("open-input-file")); -lf[879]=C_h_intern(&lf[879],16, C_text("open-output-file")); -lf[880]=C_h_intern(&lf[880],16, C_text("close-input-port")); -lf[881]=C_h_intern(&lf[881],17, C_text("close-output-port")); -lf[882]=C_h_intern(&lf[882],18, C_text("##sys#file-exists?")); -lf[883]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\163\171\163\164\145\155\040\145\162\162\157\162\040\167\150\151\154\145\040\164\162\171\151\156\147\040\164\157\040\141\143\143\145\163\163\040\146\151\154\145\000")); -lf[884]=C_h_intern(&lf[884],19, C_text("##sys#make-c-string")); -lf[885]=C_h_intern(&lf[885],18, C_text("##sys#flush-output")); -lf[886]=C_h_intern(&lf[886],12, C_text("flush-output")); -lf[887]=C_h_intern(&lf[887],15, C_text("##sys#port-line")); -lf[888]=C_h_intern(&lf[888],21, C_text("##sys#decorate-lambda")); -lf[889]=C_h_intern(&lf[889],23, C_text("##sys#lambda-decoration")); -lf[890]=C_h_intern(&lf[890],22, C_text("##sys#make-lambda-info")); -lf[891]=C_h_intern(&lf[891],18, C_text("##sys#lambda-info?")); -lf[892]=C_h_intern(&lf[892],17, C_text("##sys#lambda-info")); -lf[893]=C_h_intern(&lf[893],25, C_text("##sys#lambda-info->string")); -lf[894]=C_h_intern(&lf[894],10, C_text("##sys#read")); -lf[895]=C_h_intern(&lf[895],21, C_text("procedure-information")); -lf[896]=C_h_intern(&lf[896],6, C_text("setter")); -lf[898]=C_h_intern(&lf[898],12, C_text("##sys#setter")); -lf[899]=C_h_intern(&lf[899],18, C_text("getter-with-setter")); -lf[901]=C_h_intern(&lf[901],30, C_text("##sys#current-parameter-vector")); -lf[902]=C_decode_literal(C_heaptop,C_text("\376\000\000\000\000")); -lf[903]=C_h_intern(&lf[903],11, C_text("char-ready?")); -lf[904]=C_h_intern(&lf[904],17, C_text("##sys#read-char-0")); -lf[905]=C_h_intern(&lf[905],20, C_text("##sys#read-char/port")); -lf[906]=C_h_intern(&lf[906],17, C_text("##sys#peek-char-0")); -lf[907]=C_h_intern(&lf[907],9, C_text("peek-char")); -lf[908]=C_h_intern(&lf[908],4, C_text("read")); -lf[909]=C_h_intern(&lf[909],28, C_text("##sys#default-read-info-hook")); -lf[910]=C_h_intern(&lf[910],33, C_text("##sys#read-error-with-line-number")); -lf[911]=C_h_intern(&lf[911],22, C_text("##sys#read-prompt-hook")); -lf[912]=C_h_intern(&lf[912],21, C_text("##sys#infix-list-hook")); -lf[913]=C_h_intern(&lf[913],23, C_text("##sys#sharp-number-hook")); -lf[914]=C_h_intern(&lf[914],16, C_text("##sys#read-error")); -lf[915]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\140\043\056\056\056\047\040\162\145\141\144\040\163\171\156\164\141\170\000")); -lf[916]=C_h_intern(&lf[916],24, C_text("##sys#current-read-table")); -lf[917]=C_h_intern(&lf[917],18, C_text("##sys#read-warning")); -lf[918]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\050\154\151\156\145\040\000")); -lf[919]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000")); -lf[920]=C_h_intern_kw(&lf[920],12, C_text("syntax-error")); -lf[921]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\050\154\151\156\145\040\000")); -lf[922]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000")); -lf[923]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\054\376\003\000\000\002\376\377\012\000\000\073\376\003\000\000\002\376\377\012\000\000\050\376\003\000\000\002\376\377\012\000\000\051\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\133\376\003\000\000\002\376\377\012\000\000\135\376\003\000\000\002\376\377\012\000\000\173\376\003\000\000\002\376\377\012\000\000\175\376\377\016")); -lf[924]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\165\156\145\170\160\145\143\164\145\144\040\154\151\163\164\040\164\145\162\155\151\156\141\164\157\162\000")); -lf[925]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\162\145\163\145\162\166\145\144\040\143\150\141\162\141\143\164\145\162\000")); -lf[926]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\163\145\154\146\055\162\145\146\145\162\145\156\164\151\141\154\040\144\141\164\165\155\000")); -lf[927]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\151\156\166\141\154\151\144\040\145\163\143\141\160\145\055\163\145\161\165\145\156\143\145\040\047\134\000")); -lf[928]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000")); -lf[929]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\165\156\164\145\162\155\151\156\141\164\145\144\040\163\164\162\151\156\147\040\143\157\156\163\164\141\156\164\000")); -lf[930]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\151\156\166\141\154\151\144\040\145\163\143\141\160\145\055\163\145\161\165\145\156\143\145\040\047\134\170\000")); -lf[931]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\073\047\000")); -lf[932]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\165\156\164\145\162\155\151\156\141\164\145\144\040\150\145\170\141\144\145\143\151\155\141\154\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\000")); -lf[933]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\165\156\164\145\162\155\151\156\141\164\145\144\040\150\145\170\141\144\145\143\151\155\141\154\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\000")); -lf[934]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\165\156\164\145\162\155\151\156\141\164\145\144\040\163\164\162\151\156\147\000")); -lf[935]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\165\000")); -lf[936]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\125\000")); -lf[937]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\145\163\143\141\160\145\144\040\167\150\151\164\145\163\160\141\143\145\054\040\142\165\164\040\156\157\040\156\145\167\154\151\156\145\040\055\040\143\157\154\154\141\160\163\151\156\147\040\141\156\171\167\141\171\000")); -lf[938]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\165\156\164\145\162\155\151\156\141\164\145\144\040\163\164\162\151\156\147\000")); -lf[939]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[940]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\100\165\156\144\145\146\151\156\145\144\040\145\163\143\141\160\145\040\163\145\161\165\145\156\143\145\040\151\156\040\163\164\162\151\156\147\040\055\040\160\162\157\142\141\142\154\171\040\146\157\162\147\157\164\040\142\141\143\153\163\154\141\163\150\000")); -lf[941]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\054\040\163\164\141\162\164\151\156\147\040\151\156\040\154\151\156\145\040\000")); -lf[942]=C_h_intern(&lf[942],9, C_text("list-info")); -lf[943]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\154\151\163\164\055\164\145\162\155\151\156\141\164\157\162\040\155\151\163\155\141\164\143\150\000")); -lf[944]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\165\156\164\145\162\155\151\156\141\164\145\144\040\154\151\163\164\000")); -lf[945]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\155\151\163\163\151\156\147\040\154\151\163\164\040\164\145\162\155\151\156\141\164\157\162\000")); -lf[946]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\166\141\154\151\144\040\165\163\145\040\157\146\040\140\056\047\000")); -lf[947]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\056\072\000")); -lf[948]=C_h_intern_kw(&lf[948],6, C_text("suffix")); -lf[949]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[950]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[951]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\155\151\163\163\151\156\147\040\164\157\153\145\156\000")); -lf[952]=C_h_intern(&lf[952],18, C_text("##sys#list->vector")); -lf[953]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\156\166\141\154\151\144\040\166\145\143\164\157\162\040\163\171\156\164\141\170\000")); -lf[954]=C_h_intern(&lf[954],11, C_text("symbol-info")); -lf[955]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[956]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\166\141\154\151\144\040\165\163\145\040\157\146\040\140\056\047\000")); -lf[957]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\165\156\145\170\160\145\143\164\145\144\040\160\162\145\146\151\170\040\151\156\040\156\165\155\142\145\162\040\163\171\156\164\141\170\000")); -lf[958]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\151\154\154\145\147\141\154\040\156\165\155\142\145\162\040\163\171\156\164\141\170\000")); -lf[959]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\156\165\155\145\162\151\143\040\154\151\164\145\162\141\154\000")); -lf[960]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\151\154\154\145\147\141\154\040\156\165\155\142\145\162\040\163\171\156\164\141\170\040\055\040\151\156\166\141\154\151\144\040\145\170\141\143\164\156\145\163\163\040\160\162\145\146\151\170\000")); -lf[961]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\156\165\155\145\162\151\143\040\154\151\164\145\162\141\154\000")); -lf[962]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\151\154\154\145\147\141\154\040\156\165\155\142\145\162\040\163\171\156\164\141\170\040\055\040\151\156\166\141\154\151\144\040\162\141\144\151\170\000")); -lf[963]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\106\141\164\164\145\155\160\164\040\164\157\040\162\145\141\144\040\145\170\160\162\145\163\163\151\157\156\040\146\162\157\155\040\163\157\155\145\164\150\151\156\147\040\164\150\141\164\040\154\157\157\153\163\040\154\151\153\145\040\142\151\156\141\162\171\040\144\141\164\141\000")); -lf[964]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000")); -lf[965]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\145\163\143\141\160\145\144\040\163\171\155\142\157\154\040\163\171\156\164\141\170\040\163\160\141\156\163\040\155\165\154\164\151\160\154\145\040\154\151\156\145\163\000")); -lf[966]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\067\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\146\151\154\145\040\167\150\151\154\145\040\162\145\141\144\151\156\147\040\145\163\143\141\160\145\144\040\143\150\141\162\141\143\164\145\162\000")); -lf[967]=C_h_intern_kw(&lf[967],6, C_text("prefix")); -lf[968]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\165\156\153\156\157\167\156\040\156\141\155\145\144\040\143\150\141\162\141\143\164\145\162\000")); -lf[969]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\165\156\164\145\162\155\151\156\141\164\145\144\040\142\154\157\143\153\055\143\157\155\155\145\156\164\000")); -lf[970]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\043\000")); -lf[971]=C_h_intern(&lf[971],5, C_text("quote")); -lf[972]=C_h_intern(&lf[972],10, C_text("quasiquote")); -lf[973]=C_h_intern(&lf[973],16, C_text("unquote-splicing")); -lf[974]=C_h_intern(&lf[974],7, C_text("unquote")); -lf[975]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\151\156\160\165\164\040\141\146\164\145\162\040\162\145\141\144\151\156\147\040\043\055\163\151\147\156\000")); -lf[976]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\151\156\160\165\164\040\141\146\164\145\162\040\162\145\141\144\151\156\147\000")); -lf[977]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\165\156\144\145\146\151\156\145\144\040\144\141\164\165\155\000")); -lf[978]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\151\156\166\141\154\151\144\040\160\141\162\141\155\145\164\145\162\151\172\145\144\040\162\145\141\144\040\163\171\156\164\141\170\000")); -lf[979]=C_h_intern(&lf[979],11, C_text("quasisyntax")); -lf[980]=C_h_intern(&lf[980],8, C_text("location")); -lf[981]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\145\155\160\164\171\040\153\145\171\167\157\162\144\000")); -lf[982]=C_h_intern(&lf[982],11, C_text("cond-expand")); -lf[983]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\145\154\163\145\376\377\016")); -lf[984]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\145\157\146\000")); -lf[985]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\142\167\160\000")); -lf[986]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\146\157\154\144\055\143\141\163\145\000")); -lf[987]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\156\157\055\146\157\154\144\055\143\141\163\145\000")); -lf[988]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\157\160\164\151\157\156\141\154\000")); -lf[989]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\162\145\163\164\000")); -lf[990]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\153\145\171\000")); -lf[991]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\041\000")); -lf[992]=C_h_intern(&lf[992],16, C_text("##sys#read-marks")); -lf[993]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\166\141\154\151\144\040\140\043\041\047\040\164\157\153\145\156\000")); -lf[994]=C_h_intern(&lf[994],20, C_text("##sys#user-read-hook")); -lf[995]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\133\376\003\000\000\002\376\377\012\000\000\135\376\003\000\000\002\376\377\012\000\000\173\376\003\000\000\002\376\377\012\000\000\175\376\377\016")); -lf[996]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\174\376\377\016")); -lf[997]=C_h_intern(&lf[997],1, C_text("p")); -lf[998]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\151\156\166\141\154\151\144\040\163\150\141\162\160\055\163\151\147\156\040\162\145\141\144\040\163\171\156\164\141\170\000")); -lf[999]=C_h_intern(&lf[999],1, C_text("t")); -lf[1000]=C_h_intern(&lf[1000],4, C_text("true")); -lf[1001]=C_h_intern(&lf[1001],1, C_text("f")); -lf[1002]=C_h_intern(&lf[1002],5, C_text("false")); -lf[1003]=C_h_intern(&lf[1003],2, C_text("u8")); -lf[1004]=C_h_intern(&lf[1004],31, C_text("##sys#canonicalize-number-list!")); -lf[1005]=C_h_intern(&lf[1005],25, C_text("##sys#read-numvector-data")); -lf[1006]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\151\156\166\141\154\151\144\040\156\165\155\145\162\151\143\040\166\145\143\164\157\162\040\163\171\156\164\141\170\000")); -lf[1007]=C_h_intern(&lf[1007],18, C_text("##sys#write-char-0")); -lf[1008]=C_h_intern(&lf[1008],21, C_text("##sys#write-char/port")); -lf[1009]=C_h_intern(&lf[1009],10, C_text("write-char")); -lf[1010]=C_h_intern(&lf[1010],5, C_text("write")); -lf[1011]=C_h_intern(&lf[1011],11, C_text("##sys#print")); -lf[1012]=C_h_intern(&lf[1012],7, C_text("display")); -lf[1013]=C_h_intern(&lf[1013],5, C_text("print")); -lf[1015]=C_h_intern(&lf[1015],24, C_text("##sys#print-length-limit")); -lf[1017]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\056\056\000")); -lf[1018]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\056\056\056\000")); -lf[1019]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\170\000")); -lf[1020]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\050\376\003\000\000\002\376\377\012\000\000\051\376\003\000\000\002\376\377\012\000\000\054\376\003\000\000\002\376\377\012\000\000\133\376\003\000\000\002\376\377\012\000\000\135\376\003\000\000\002\376\377\012\000\000\173\376\003\000\000\002\376\377\012\000\000\175\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\073\376\003\000\000\002\376\377\012\000\000\040\376\003\000\000\002\376\377\012\000\000\140\376\003\000\000\002\376\377\012\000\000\174\376\003\000\000\002\376\377\012\000\000\134\376\377\016")); -lf[1021]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\002\000\000\007\043\041\162\145\163\164\000\376\003\000\000\002\376\002\000\000\006\043\041\153\145\171\000\376\003\000\000\002\376\002\000\000\013\043\041\157\160\164\151\157\156\141\154\000\376\003\000\000\002\376\002\000\000\014\043\041\146\157\154\144\055\143\141\163\145\000\376\003\000\000\002\376\002\000\000\017\043\041\156\157\055\146\157\154\144\055\143\141\163\145\000\376\377\016")); -lf[1022]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\050\051\000")); -lf[1023]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\164\000")); -lf[1024]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\146\000")); -lf[1025]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\043\041\145\157\146\000")); -lf[1026]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\165\156\163\160\145\143\151\146\151\145\144\076\000")); -lf[1027]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\043\041\142\167\160\000")); -lf[1028]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\134\000")); -lf[1029]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\043\074\165\156\142\157\165\156\144\040\166\141\154\165\145\076\000")); -lf[1030]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\043\074\151\156\166\141\154\151\144\040\151\155\155\145\144\151\141\164\145\040\157\142\152\145\143\164\076\000")); -lf[1031]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\043\074\151\156\166\141\154\151\144\040\146\157\162\167\141\162\144\145\144\040\157\142\152\145\143\164\076\000")); -lf[1032]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\072\000")); -lf[1033]=C_h_intern(&lf[1033],21, C_text("##sys#pointer->string")); -lf[1034]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\042\000")); -lf[1035]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\134\134\000")); -lf[1036]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\056\040\000")); -lf[1037]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\043\165\070\000")); -lf[1038]=C_h_intern(&lf[1038],21, C_text("##sys#user-print-hook")); -lf[1039]=C_h_intern(&lf[1039],23, C_text("##sys#procedure->string")); -lf[1040]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\014\043\074\154\157\143\141\164\151\166\145\076\000")); -lf[1041]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\154\141\155\142\144\141\040\151\156\146\157\040\000")); -lf[1042]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\042\076\000")); -lf[1043]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\043\074\151\156\160\165\164\040\160\157\162\164\040\042\000")); -lf[1044]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\043\074\157\165\164\160\165\164\040\160\157\162\164\040\042\000")); -lf[1045]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\043\074\160\157\162\164\040\042\000")); -lf[1046]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\043\050\051\000")); -lf[1047]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\050\000")); -lf[1048]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\165\156\160\162\151\156\164\141\142\154\145\040\142\154\157\143\153\040\157\142\152\145\143\164\040\145\156\143\157\165\156\164\145\162\145\144\000")); -lf[1049]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\043\074\160\162\157\143\145\144\165\162\145\040\000")); -lf[1050]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000")); -lf[1051]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\043\074\160\162\157\143\145\144\165\162\145\076\000")); -lf[1052]=C_h_intern(&lf[1052],21, C_text("##sys#record-printers")); -lf[1053]=C_h_intern(&lf[1053],19, C_text("set-record-printer!")); -lf[1054]=C_h_intern(&lf[1054],29, C_text("##sys#register-record-printer")); -lf[1055]=C_h_intern(&lf[1055],9, C_text("condition")); -lf[1056]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145")); -lf[1057]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\047\072\040\000")); -lf[1058]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\076\000")); -lf[1059]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\043\074\105\162\162\157\162\040\151\156\040\160\162\151\156\164\145\162\040\157\146\040\162\145\143\157\162\144\040\164\171\160\145\040\140\000")); -lf[1060]=C_h_intern(&lf[1060],40, C_text("chicken.condition#with-exception-handler")); -lf[1061]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1062]=C_h_intern(&lf[1062],6, C_text("thread")); -lf[1063]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1064]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\074\000")); -lf[1065]=C_h_intern(&lf[1065],29, C_text("##sys#with-print-length-limit")); -lf[1066]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\163\164\162\151\156\147\040\142\165\146\146\145\162\040\146\165\154\154\000")); -lf[1067]=C_h_intern(&lf[1067],22, C_text("##sys#scan-buffer-line")); -lf[1068]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1069]=C_h_intern(&lf[1069],8, C_text("buffered")); -lf[1070]=C_h_intern(&lf[1070],21, C_text("##sys#print-to-string")); -lf[1071]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\043\074\164\141\147\147\145\144\040\160\157\151\156\164\145\162\040\000")); -lf[1072]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000")); -lf[1073]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000")); -lf[1074]=C_h_intern(&lf[1074],22, C_text("##sys#pointer->address")); -lf[1075]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\043\074\160\157\151\156\164\145\162\040\060\170\000")); -lf[1076]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\076\000")); -lf[1077]=C_h_intern(&lf[1077],20, C_text("##sys#current-thread")); -lf[1078]=C_h_intern(&lf[1078],27, C_text("##sys#peek-nonnull-c-string")); -lf[1079]=C_h_intern(&lf[1079],29, C_text("##sys#really-print-call-chain")); -lf[1080]=C_h_intern(&lf[1080],9, C_text("frameinfo")); -lf[1081]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\135\040\000")); -lf[1082]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\011\040\040\000")); -lf[1083]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\012\011\000")); -lf[1084]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\011\074\055\055\012\000")); -lf[1085]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\012\011\103\141\154\154\040\150\151\163\164\157\162\171\072\012\000")); -lf[1086]=C_h_intern(&lf[1086],16, C_text("print-call-chain")); -lf[1087]=C_h_intern(&lf[1087],25, C_text("##sys#user-interrupt-hook")); -lf[1088]=C_h_intern_kw(&lf[1088],14, C_text("user-interrupt")); -lf[1089]=C_h_intern(&lf[1089],23, C_text("##sys#primordial-thread")); -lf[1092]=C_h_intern(&lf[1092],22, C_text("##sys#force-finalizers")); -lf[1093]=C_h_intern(&lf[1093],27, C_text("chicken.gc#force-finalizers")); -lf[1094]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\133\144\145\142\165\147\135\040\146\157\162\143\151\156\147\040\146\151\156\141\154\151\172\145\162\163\056\056\056\012\000")); -lf[1095]=C_h_intern(&lf[1095],24, C_text("##sys#pending-finalizers")); -lf[1096]=C_h_intern(&lf[1096],28, C_text("##sys#run-pending-finalizers")); -lf[1097]=C_h_intern(&lf[1097],21, C_text("##sys#dump-heap-state")); -lf[1098]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000")); -lf[1099]=C_h_intern(&lf[1099],19, C_text("##sys#reset-handler")); -lf[1100]=C_h_intern(&lf[1100],14, C_text("##sys#dbg-hook")); -lf[1101]=C_h_intern(&lf[1101],18, C_text("chicken.condition#")); -lf[1102]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001\165\163\145\162\055\151\156\164\145\162\162\165\160\164\376\377\016")); -lf[1103]=C_h_intern(&lf[1103],23, C_text("chicken.condition#abort")); -lf[1104]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1105]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\012\127\141\162\156\151\156\147\072\040\000")); -lf[1106]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\012\116\157\164\145\072\040\000")); -lf[1107]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145")); -lf[1108]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\011\001\141\162\147\165\155\145\156\164\163")); -lf[1109]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\012\001\143\141\154\154\055\143\150\141\151\156")); -lf[1110]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\010\001\154\157\143\141\164\151\157\156")); -lf[1111]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\005\001\145\162\162\156\157")); -lf[1112]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\004\001\164\171\160\145\376\377\016")); -lf[1113]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\163\171\156\164\141\170\376\377\016")); -lf[1114]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\142\157\165\156\144\163\376\377\016")); -lf[1115]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\012\001\141\162\151\164\150\155\145\164\151\143\376\377\016")); -lf[1116]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\003\001\151\057\157\376\003\000\000\002\376\001\000\000\004\001\146\151\154\145\376\377\016")); -lf[1117]=C_h_intern_kw(&lf[1117],13, C_text("runtime-error")); -lf[1118]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\007\001\162\165\156\164\151\155\145\376\377\016")); -lf[1119]=C_h_intern_kw(&lf[1119],13, C_text("process-error")); -lf[1120]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\007\001\160\162\157\143\145\163\163\376\377\016")); -lf[1121]=C_h_intern_kw(&lf[1121],13, C_text("network-error")); -lf[1122]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\003\001\151\057\157\376\003\000\000\002\376\001\000\000\003\001\156\145\164\376\377\016")); -lf[1123]=C_h_intern_kw(&lf[1123],21, C_text("network-timeout-error")); -lf[1124]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\003\001\151\057\157\376\003\000\000\002\376\001\000\000\003\001\156\145\164\376\003\000\000\002\376\001\000\000\007\001\164\151\155\145\157\165\164\376\377\016")); -lf[1125]=C_h_intern_kw(&lf[1125],11, C_text("limit-error")); -lf[1126]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\007\001\162\165\156\164\151\155\145\376\003\000\000\002\376\001\000\000\005\001\154\151\155\151\164\376\377\016")); -lf[1127]=C_h_intern_kw(&lf[1127],11, C_text("arity-error")); -lf[1128]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\005\001\141\162\151\164\171\376\377\016")); -lf[1129]=C_h_intern_kw(&lf[1129],12, C_text("access-error")); -lf[1130]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\141\143\143\145\163\163\376\377\016")); -lf[1131]=C_h_intern_kw(&lf[1131],12, C_text("domain-error")); -lf[1132]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\144\157\155\141\151\156\376\377\016")); -lf[1133]=C_h_intern_kw(&lf[1133],12, C_text("memory-error")); -lf[1134]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\003\000\000\002\376\001\000\000\006\001\155\145\155\157\162\171\376\377\016")); -lf[1135]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\377\016")); -lf[1136]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145")); -lf[1137]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\145\170\143\145\160\164\151\157\156\040\150\141\156\144\154\145\162\040\162\145\164\165\162\156\145\144\000")); -lf[1138]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\011\001\141\162\147\165\155\145\156\164\163")); -lf[1139]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\010\001\154\157\143\141\164\151\157\156")); -lf[1140]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\377\016")); -lf[1141]=C_h_intern(&lf[1141],31, C_text("##sys#current-exception-handler")); -lf[1142]=C_h_intern(&lf[1142],24, C_text("chicken.condition#signal")); -lf[1143]=C_h_intern(&lf[1143],19, C_text("##sys#error-handler")); -lf[1144]=C_h_intern(&lf[1144],20, C_text("##sys#last-exception")); -lf[1145]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001\165\156\143\141\165\147\150\164\055\145\170\143\145\160\164\151\157\156\376\001\000\000\006\001\162\145\141\163\157\156")); -lf[1146]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001\165\156\143\141\165\147\150\164\055\145\170\143\145\160\164\151\157\156\376\377\016")); -lf[1147]=C_h_intern(&lf[1147],3, C_text("exn")); -lf[1148]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\007\001\155\145\163\163\141\147\145")); -lf[1149]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\011\001\141\162\147\165\155\145\156\164\163")); -lf[1150]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\145\170\156\376\001\000\000\010\001\154\157\143\141\164\151\157\156")); -lf[1151]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[1152]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000")); -lf[1153]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1154]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\074\145\170\156\072\040\150\141\163\040\156\157\040\140\155\145\163\163\141\147\145\047\040\160\162\157\160\145\162\164\171\076\000")); -lf[1155]=C_h_intern(&lf[1155],14, C_text("user-interrupt")); -lf[1156]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\012\052\052\052\040\165\163\145\162\040\151\156\164\145\162\162\165\160\164\040\052\052\052\012\000")); -lf[1157]=C_h_intern(&lf[1157],18, C_text("uncaught-exception")); -lf[1158]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001\165\156\143\141\165\147\150\164\055\145\170\143\145\160\164\151\157\156\376\001\000\000\006\001\162\145\141\163\157\156")); -lf[1159]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\165\156\143\141\165\147\150\164\040\145\170\143\145\160\164\151\157\156\000")); -lf[1160]=C_h_intern(&lf[1160],43, C_text("chicken.condition#current-exception-handler")); -lf[1161]=C_h_intern(&lf[1161],25, C_text("current-exception-handler")); -lf[1163]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\156\040\145\166\145\156\040\160\162\157\160\145\162\164\171\040\154\151\163\164\000")); -lf[1164]=C_h_intern(&lf[1164],41, C_text("chicken.condition#make-property-condition")); -lf[1165]=C_h_intern(&lf[1165],23, C_text("make-property-condition")); -lf[1166]=C_h_intern(&lf[1166],42, C_text("chicken.condition#make-composite-condition")); -lf[1167]=C_h_intern(&lf[1167],24, C_text("make-composite-condition")); -lf[1168]=C_h_intern(&lf[1168],27, C_text("chicken.condition#condition")); -lf[1169]=C_h_intern(&lf[1169],28, C_text("chicken.condition#condition?")); -lf[1170]=C_h_intern(&lf[1170],33, C_text("chicken.condition#condition->list")); -lf[1171]=C_h_intern(&lf[1171],15, C_text("condition->list")); -lf[1172]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\141\162\147\165\155\145\156\164\040\151\163\040\156\157\164\040\141\040\143\157\156\144\151\164\151\157\156\040\157\142\152\145\143\164\000")); -lf[1173]=C_h_intern(&lf[1173],37, C_text("chicken.condition#condition-predicate")); -lf[1174]=C_h_intern(&lf[1174],45, C_text("chicken.condition#condition-property-accessor")); -lf[1175]=C_h_intern(&lf[1175],27, C_text("condition-property-accessor")); -lf[1176]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\143\157\156\144\151\164\151\157\156\040\150\141\163\040\156\157\040\163\165\143\150\040\160\162\157\160\145\162\164\171\000")); -lf[1177]=C_h_intern(&lf[1177],40, C_text("chicken.condition#get-condition-property")); -lf[1178]=C_h_intern(&lf[1178],37, C_text("chicken.condition#print-error-message")); -lf[1179]=C_h_intern(&lf[1179],19, C_text("print-error-message")); -lf[1180]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1181]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\050\000")); -lf[1182]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\051\040\000")); -lf[1183]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1184]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\016\001\165\163\145\162\055\151\156\164\145\162\162\165\160\164\376\377\016")); -lf[1185]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\072\040\052\052\052\040\165\163\145\162\040\151\156\164\145\162\162\165\160\164\040\052\052\052\000")); -lf[1186]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\072\040\074\143\157\156\144\151\164\151\157\156\076\040\000")); -lf[1187]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1188]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\072\040\165\156\143\141\165\147\150\164\040\145\170\143\145\160\164\151\157\156\072\040\000")); -lf[1189]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\105\162\162\157\162\000")); -lf[1190]=C_h_intern(&lf[1190],28, C_text("##sys#show-exception-warning")); -lf[1191]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1192]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\050\000")); -lf[1193]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\127\141\162\156\151\156\147\000")); -lf[1194]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\143\157\165\156\164\040\055\040\162\145\143\145\151\166\145\144\040\000")); -lf[1195]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\040\142\165\164\040\145\170\160\145\143\164\145\144\040\000")); -lf[1196]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\164\157\157\040\146\145\167\040\141\162\147\165\155\145\156\164\163\040\055\040\162\145\143\145\151\166\145\144\040\000")); -lf[1197]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\040\142\165\164\040\145\170\160\145\143\164\145\144\040\000")); -lf[1198]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\000")); -lf[1199]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\165\156\142\157\165\156\144\040\166\141\162\151\141\142\154\145\000")); -lf[1200]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\153\145\171\167\157\162\144\000")); -lf[1201]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\016\157\165\164\040\157\146\040\155\145\155\157\162\171\000")); -lf[1202]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\144\151\166\151\163\151\157\156\040\142\171\040\172\145\162\157\000")); -lf[1203]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\157\165\164\040\157\146\040\162\141\156\147\145\000")); -lf[1204]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\143\141\154\154\040\157\146\040\156\157\156\055\160\162\157\143\145\144\165\162\145\000")); -lf[1205]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\143\157\156\164\151\156\165\141\164\151\157\156\040\143\141\156\156\157\164\040\162\145\143\145\151\166\145\040\155\165\154\164\151\160\154\145\040\166\141\154\165\145\163\000")); -lf[1206]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\156\157\156\055\143\171\143\154\151\143\040\154\151\163\164\000")); -lf[1207]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\162\145\143\165\162\163\151\157\156\040\164\157\157\040\144\145\145\160\000")); -lf[1208]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\070\151\156\145\170\141\143\164\040\156\165\155\142\145\162\040\143\141\156\156\157\164\040\142\145\040\162\145\160\162\145\163\145\156\164\145\144\040\141\163\040\141\156\040\145\170\141\143\164\040\156\165\155\142\145\162\000")); -lf[1209]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\162\157\160\145\162\040\154\151\163\164\000")); -lf[1210]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\146\151\170\156\165\155\000")); -lf[1211]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\156\165\155\142\145\162\000")); -lf[1212]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\163\164\162\151\156\147\000")); -lf[1213]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\141\151\162\000")); -lf[1214]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\154\151\163\164\000")); -lf[1215]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\143\150\141\162\141\143\164\145\162\000")); -lf[1216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\166\145\143\164\157\162\000")); -lf[1217]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\163\171\155\142\157\154\000")); -lf[1218]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\163\164\141\143\153\040\157\166\145\162\146\154\157\167\000")); -lf[1219]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\071\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\163\164\162\165\143\164\165\162\145\040\157\146\040\164\150\145\040\162\145\161\165\151\162\145\144\040\164\171\160\145\000")); -lf[1220]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\142\171\164\145\166\145\143\164\157\162\000")); -lf[1221]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\154\157\143\141\164\151\166\145\040\162\145\146\145\162\163\040\164\157\040\162\145\143\154\141\151\155\145\144\040\157\142\152\145\143\164\000")); -lf[1222]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\142\154\157\143\153\040\157\142\152\145\143\164\000")); -lf[1223]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\156\165\155\142\145\162\040\166\145\143\164\157\162\000")); -lf[1224]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\151\156\164\145\147\145\162\000")); -lf[1225]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\165\156\163\151\147\156\145\144\040\151\156\164\145\147\145\162\000")); -lf[1226]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\151\156\164\145\162\000")); -lf[1227]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\164\141\147\147\145\144\040\160\157\151\156\164\145\162\000")); -lf[1228]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\146\154\157\156\165\155\000")); -lf[1229]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\162\157\143\145\144\165\162\145\000")); -lf[1230]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\151\156\166\141\154\151\144\040\142\141\163\145\000")); -lf[1231]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\162\145\143\165\162\163\151\157\156\040\164\157\157\040\144\145\145\160\040\157\162\040\143\151\162\143\165\154\141\162\040\144\141\164\141\040\145\156\143\157\165\156\164\145\162\145\144\000")); -lf[1232]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\142\157\157\154\145\141\156\000")); -lf[1233]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\154\157\143\141\164\151\166\145\000")); -lf[1234]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\162\164\000")); -lf[1235]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\160\157\162\164\040\157\146\040\164\150\145\040\143\157\162\162\145\143\164\040\164\171\160\145\000")); -lf[1236]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\151\156\160\165\164\055\160\157\162\164\000")); -lf[1237]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\157\165\164\160\165\164\055\160\157\162\164\000")); -lf[1238]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\160\157\162\164\040\141\154\162\145\141\144\171\040\143\154\157\163\145\144\000")); -lf[1239]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\143\141\156\156\157\164\040\162\145\160\162\145\163\145\156\164\040\163\164\162\151\156\147\040\167\151\164\150\040\116\125\114\040\142\171\164\145\163\040\141\163\040\103\040\163\164\162\151\156\147\000")); -lf[1240]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\163\145\147\155\145\156\164\141\164\151\157\156\040\166\151\157\154\141\164\151\157\156\000")); -lf[1241]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\146\154\157\141\164\151\156\147\055\160\157\151\156\164\040\145\170\143\145\160\164\151\157\156\000")); -lf[1242]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\151\154\154\145\147\141\154\040\151\156\163\164\162\165\143\164\151\157\156\000")); -lf[1243]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\142\165\163\040\145\162\162\157\162\000")); -lf[1244]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\050\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\145\170\141\143\164\040\156\165\155\142\145\162\000")); -lf[1245]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\151\156\145\170\141\143\164\040\156\165\155\142\145\162\000")); -lf[1246]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\162\145\141\154\000")); -lf[1247]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\143\157\155\160\154\145\170\040\156\165\155\142\145\162\040\150\141\163\040\156\157\040\157\162\144\145\162\151\156\147\000")); -lf[1248]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\156\040\145\170\141\143\164\040\151\156\164\145\147\145\162\000")); -lf[1249]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\156\165\155\142\145\162\040\144\157\145\163\040\156\157\164\040\146\151\164\040\151\156\040\146\157\162\145\151\147\156\040\164\171\160\145\000")); -lf[1250]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\143\141\156\156\157\164\040\143\157\155\160\165\164\145\040\141\142\163\157\154\165\164\145\040\166\141\154\165\145\040\157\146\040\143\157\155\160\154\145\170\040\156\165\155\142\145\162\000")); -lf[1251]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\141\164\164\145\155\160\164\145\144\040\162\145\163\164\040\141\162\147\165\155\145\156\164\040\141\143\143\145\163\163\040\141\164\040\151\156\144\145\170\040\000")); -lf[1252]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\032\040\142\165\164\040\162\145\163\164\040\154\151\163\164\040\154\145\156\147\164\150\040\151\163\040\000")); -lf[1253]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\163\164\162\151\156\147\040\143\157\156\164\141\151\156\163\040\151\156\166\141\154\151\144\040\125\124\106\055\070\040\163\145\161\165\145\156\143\145\000")); -lf[1254]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\165\155\145\162\151\143\040\166\141\154\165\145\040\145\170\143\145\145\144\163\040\162\141\156\147\145\000")); -lf[1255]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\165\156\153\156\157\167\156\040\151\156\164\145\162\156\141\154\040\145\162\162\157\162\000")); -lf[1257]=C_h_intern(&lf[1257],29, C_text("scheme#with-exception-handler")); -lf[1258]=C_h_intern(&lf[1258],12, C_text("scheme#raise")); -lf[1259]=C_h_intern(&lf[1259],7, C_text("message")); -lf[1260]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\145\170\143\145\160\164\151\157\156\040\150\141\156\144\154\145\162\040\162\145\164\165\162\156\145\144\000")); -lf[1261]=C_h_intern(&lf[1261],9, C_text("arguments")); -lf[1262]=C_h_intern(&lf[1262],24, C_text("scheme#raise-continuable")); -lf[1263]=C_h_intern(&lf[1263],20, C_text("scheme#error-object?")); -lf[1264]=C_h_intern(&lf[1264],27, C_text("scheme#error-object-message")); -lf[1265]=C_h_intern(&lf[1265],29, C_text("scheme#error-object-irritants")); -lf[1266]=C_h_intern(&lf[1266],18, C_text("scheme#read-error?")); -lf[1267]=C_h_intern(&lf[1267],18, C_text("scheme#file-error?")); -lf[1268]=C_h_intern(&lf[1268],16, C_text("##sys#structure?")); -lf[1269]=C_h_intern(&lf[1269],24, C_text("##sys#generic-structure?")); -lf[1270]=C_h_intern(&lf[1270],10, C_text("##sys#slot")); -lf[1271]=C_h_intern(&lf[1271],10, C_text("##sys#size")); -lf[1272]=C_h_intern(&lf[1272],18, C_text("##sys#make-pointer")); -lf[1273]=C_h_intern(&lf[1273],25, C_text("##sys#make-tagged-pointer")); -lf[1274]=C_h_intern(&lf[1274],14, C_text("##sys#pointer?")); -lf[1275]=C_h_intern(&lf[1275],26, C_text("##sys#set-pointer-address!")); -lf[1276]=C_h_intern(&lf[1276],17, C_text("##sys#bytevector?")); -lf[1277]=C_h_intern(&lf[1277],25, C_text("##sys#string->pbytevector")); -lf[1278]=C_h_intern(&lf[1278],16, C_text("##sys#permanent?")); -lf[1279]=C_h_intern(&lf[1279],19, C_text("##sys#block-address")); -lf[1280]=C_h_intern(&lf[1280],15, C_text("##sys#locative?")); -lf[1281]=C_h_intern(&lf[1281],20, C_text("##sys#srfi-4-vector?")); -lf[1282]=C_h_intern(&lf[1282],9, C_text("c64vector")); -lf[1283]=C_h_intern(&lf[1283],10, C_text("c128vector")); -lf[1284]=C_h_intern(&lf[1284],18, C_text("##sys#null-pointer")); -lf[1285]=C_h_intern(&lf[1285],19, C_text("##sys#null-pointer?")); -lf[1286]=C_h_intern(&lf[1286],22, C_text("##sys#address->pointer")); -lf[1287]=C_h_intern(&lf[1287],25, C_text("##sys#peek-signed-integer")); -lf[1288]=C_h_intern(&lf[1288],17, C_text("##sys#peek-fixnum")); -lf[1289]=C_h_intern(&lf[1289],15, C_text("##sys#peek-byte")); -lf[1290]=C_h_intern(&lf[1290],24, C_text("##sys#vector->structure!")); -lf[1291]=C_h_intern(&lf[1291],17, C_text("##sys#peek-double")); -lf[1292]=C_h_intern(&lf[1292],28, C_text("##sys#peek-and-free-c-string")); -lf[1293]=C_h_intern(&lf[1293],36, C_text("##sys#peek-and-free-nonnull-c-string")); -lf[1294]=C_h_intern(&lf[1294],19, C_text("##sys#poke-c-string")); -lf[1295]=C_h_intern(&lf[1295],18, C_text("##sys#poke-integer")); -lf[1296]=C_h_intern(&lf[1296],17, C_text("##sys#poke-double")); -lf[1297]=C_h_intern(&lf[1297],24, C_text("##sys#peek-c-string-list")); -lf[1298]=C_h_intern(&lf[1298],33, C_text("##sys#peek-and-free-c-string-list")); -lf[1299]=C_h_intern(&lf[1299],22, C_text("##sys#vector->closure!")); -lf[1300]=C_h_intern(&lf[1300],34, C_text("##sys#symbol-has-toplevel-binding?")); -lf[1301]=C_h_intern(&lf[1301],19, C_text("##sys#block-pointer")); -lf[1302]=C_h_intern(&lf[1302],27, C_text("##sys#foreign-char-argument")); -lf[1303]=C_h_intern(&lf[1303],29, C_text("##sys#foreign-fixnum-argument")); -lf[1304]=C_h_intern(&lf[1304],29, C_text("##sys#foreign-flonum-argument")); -lf[1305]=C_h_intern(&lf[1305],28, C_text("##sys#foreign-block-argument")); -lf[1306]=C_h_intern(&lf[1306],30, C_text("##sys#foreign-cplxnum-argument")); -lf[1307]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\143\157\155\160\154\145\170\040\156\165\155\142\145\162\000")); -lf[1308]=C_h_intern(&lf[1308],37, C_text("##sys#foreign-struct-wrapper-argument")); -lf[1309]=C_h_intern(&lf[1309],29, C_text("##sys#foreign-string-argument")); -lf[1310]=C_h_intern(&lf[1310],29, C_text("##sys#foreign-symbol-argument")); -lf[1311]=C_h_intern(&lf[1311],30, C_text("##sys#foreign-pointer-argument")); -lf[1312]=C_h_intern(&lf[1312],37, C_text("##sys#foreign-tagged-pointer-argument")); -lf[1313]=C_h_intern(&lf[1313],37, C_text("##sys#foreign-ranged-integer-argument")); -lf[1314]=C_h_intern(&lf[1314],46, C_text("##sys#foreign-unsigned-ranged-integer-argument")); -lf[1315]=C_h_intern(&lf[1315],17, C_text("##sys#wrap-struct")); -lf[1316]=C_h_intern(&lf[1316],28, C_text("##sys#default-thread-quantum")); -lf[1317]=C_h_intern(&lf[1317],31, C_text("##sys#default-exception-handler")); -lf[1318]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\077\151\156\164\145\162\156\141\154\040\145\162\162\157\162\072\040\144\145\146\141\165\154\164\040\145\170\143\145\160\164\151\157\156\040\150\141\156\144\154\145\162\040\163\150\157\165\154\144\156\047\164\040\142\145\040\143\141\154\154\145\144\041\000")); -lf[1319]=C_h_intern(&lf[1319],17, C_text("##sys#make-thread")); -lf[1320]=C_h_intern(&lf[1320],16, C_text("##sys#make-mutex")); -lf[1321]=C_h_intern(&lf[1321],5, C_text("mutex")); -lf[1322]=C_h_intern(&lf[1322],14, C_text("##sys#schedule")); -lf[1323]=C_h_intern(&lf[1323],19, C_text("##sys#thread-yield!")); -lf[1324]=C_h_intern(&lf[1324],24, C_text("##sys#kill-other-threads")); -lf[1325]=C_h_intern(&lf[1325],28, C_text("##sys#resume-thread-on-event")); -lf[1326]=C_h_intern(&lf[1326],29, C_text("##sys#suspend-thread-on-event")); -lf[1327]=C_h_intern(&lf[1327],27, C_text("##sys#sleep-until-interrupt")); -lf[1328]=C_h_intern(&lf[1328],22, C_text("##sys#make-event-queue")); -lf[1329]=C_h_intern(&lf[1329],11, C_text("event-queue")); -lf[1330]=C_h_intern(&lf[1330],25, C_text("##sys#add-event-to-queue!")); -lf[1331]=C_h_intern(&lf[1331],20, C_text("##sys#get-next-event")); -lf[1332]=C_h_intern(&lf[1332],25, C_text("##sys#wait-for-next-event")); -lf[1333]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\145\166\145\156\164\040\161\165\145\165\145\040\142\154\157\143\153\145\144\000")); -lf[1334]=C_h_intern(&lf[1334],23, C_text("chicken.base#sleep-hook")); -lf[1335]=C_h_intern(&lf[1335],5, C_text("sleep")); -lf[1336]=C_h_intern(&lf[1336],20, C_text("##sys#context-switch")); -lf[1337]=C_h_intern(&lf[1337],19, C_text("##sys#signal-vector")); -lf[1338]=C_h_intern(&lf[1338],20, C_text("##sys#interrupt-hook")); -lf[1339]=C_h_intern(&lf[1339],11, C_text("##sys#errno")); -lf[1340]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\115\165\156\145\170\160\145\143\164\145\144\040\145\156\144\040\157\146\040\146\151\154\145\040\055\040\165\156\164\145\162\155\151\156\141\164\145\144\040\140\043\173\056\056\056\175\047\040\151\164\145\155\040\151\156\040\140\150\145\162\145\047\040\163\164\162\151\156\147\040\154\151\164\145\162\141\154\000")); -lf[1341]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\165\156\164\145\162\155\151\156\141\164\145\144\040\150\145\162\145\055\144\157\143\040\163\164\162\151\156\147\040\154\151\164\145\162\141\154\040\140\000")); -lf[1342]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000")); -lf[1343]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\115\151\163\163\151\156\147\040\164\141\147\040\141\146\164\145\162\040\043\074\074\040\150\145\162\145\055\144\157\143\040\164\157\153\145\156\000")); -lf[1344]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\127\150\151\164\145\163\160\141\143\145\040\141\146\164\145\162\040\043\074\074\040\150\145\162\145\055\144\157\143\040\164\141\147\000")); -lf[1345]=C_h_intern(&lf[1345],4, C_text("cons")); -lf[1346]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\005\001\161\165\157\164\145\376\003\000\000\002\376\377\016\376\377\016")); -lf[1347]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\115\151\163\163\151\156\147\040\164\141\147\040\141\146\164\145\162\040\043\074\043\040\150\145\162\145\055\144\157\143\040\164\157\153\145\156\000")); -lf[1348]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\127\150\151\164\145\163\160\141\143\145\040\141\146\164\145\162\040\043\074\043\040\150\145\162\145\055\144\157\143\040\164\141\147\000")); -lf[1349]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\165\156\162\145\141\144\141\142\154\145\040\157\142\152\145\143\164\000")); -lf[1350]=C_h_intern(&lf[1350],24, C_text("chicken.process-context#")); -lf[1351]=C_h_intern(&lf[1351],40, C_text("chicken.process-context#change-directory")); -lf[1352]=C_h_intern(&lf[1352],16, C_text("change-directory")); -lf[1353]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\143\141\156\156\157\164\040\143\150\141\156\147\145\040\143\165\162\162\145\156\164\040\144\151\162\145\143\164\157\162\171\040\055\040\000")); -lf[1354]=C_h_intern(&lf[1354],27, C_text("##sys#change-directory-hook")); -lf[1355]=C_h_intern(&lf[1355],41, C_text("chicken.process-context#current-directory")); -lf[1356]=C_h_intern(&lf[1356],48, C_text("chicken.process-context#get-environment-variable")); -lf[1357]=C_h_intern(&lf[1357],24, C_text("get-environment-variable")); -lf[1358]=C_h_intern(&lf[1358],49, C_text("chicken.process-context#set-environment-variable!")); -lf[1359]=C_h_intern(&lf[1359],25, C_text("set-environment-variable!")); -lf[1360]=C_h_intern(&lf[1360],51, C_text("chicken.process-context#unset-environment-variable!")); -lf[1361]=C_h_intern(&lf[1361],27, C_text("unset-environment-variable!")); -lf[1362]=C_h_intern(&lf[1362],49, C_text("chicken.process-context#get-environment-variables")); -lf[1363]=C_h_intern(&lf[1363],43, C_text("chicken.process-context#executable-pathname")); -lf[1364]=C_h_intern(&lf[1364],33, C_text("chicken.process-context#argc+argv")); -lf[1365]=C_h_intern(&lf[1365],28, C_text("chicken.process-context#argv")); -lf[1366]=C_h_intern(&lf[1366],36, C_text("chicken.process-context#program-name")); -lf[1367]=C_h_intern(&lf[1367],46, C_text("chicken.process-context#command-line-arguments")); -lf[1368]=C_h_intern(&lf[1368],11, C_text("chicken.gc#")); -lf[1369]=C_h_intern(&lf[1369],34, C_text("chicken.gc#current-gc-milliseconds")); -lf[1370]=C_h_intern(&lf[1370],25, C_text("chicken.gc#set-gc-report!")); -lf[1371]=C_h_intern(&lf[1371],28, C_text("chicken.gc#memory-statistics")); -lf[1372]=C_h_intern(&lf[1372],20, C_text("##sys#set-finalizer!")); -lf[1373]=C_h_intern(&lf[1373],20, C_text("##sys#init-finalizer")); -lf[1374]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\133\144\145\142\165\147\135\040\164\157\157\040\155\141\156\171\040\146\151\156\141\154\151\172\145\162\163\040\050\000")); -lf[1375]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\051\054\040\162\145\163\151\172\145\144\040\155\141\170\040\146\151\156\141\154\151\172\145\162\163\040\164\157\040\000")); -lf[1376]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000")); -lf[1377]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\133\144\145\142\165\147\135\040\164\157\157\040\155\141\156\171\040\146\151\156\141\154\151\172\145\162\163\040\050\000")); -lf[1378]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\051\054\040\146\157\162\143\151\156\147\040\056\056\056\012\000")); -lf[1379]=C_h_intern(&lf[1379],25, C_text("chicken.gc#set-finalizer!")); -lf[1380]=C_h_intern(&lf[1380],9, C_text("finalizer")); -lf[1383]=C_h_intern(&lf[1383],25, C_text("chicken.gc#make-finalizer")); -lf[1384]=C_h_intern(&lf[1384],27, C_text("chicken.gc#add-to-finalizer")); -lf[1385]=C_h_intern(&lf[1385],16, C_text("add-to-finalizer")); -lf[1386]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\056\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\146\151\156\141\154\151\172\145\162\040\160\162\157\143\145\144\165\162\145\000")); -lf[1387]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\151\156\040\146\151\156\141\154\151\172\145\162\000")); -lf[1388]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\133\144\145\142\165\147\135\040\162\165\156\156\151\156\147\040\000")); -lf[1389]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\040\146\151\156\141\154\151\172\145\162\050\163\051\040\050\000")); -lf[1390]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\040\154\151\166\145\054\040\000")); -lf[1391]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\040\141\154\154\157\143\141\164\145\144\051\040\056\056\056\012\000")); -lf[1392]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\113\162\145\055\145\156\164\162\171\040\146\162\157\155\040\146\151\156\141\154\151\172\145\162\040\164\150\162\145\141\144\040\050\155\141\171\142\145\040\050\147\143\040\043\164\051\040\167\141\163\040\143\141\154\154\145\144\040\146\162\157\155\040\141\040\146\151\156\141\154\151\172\145\162\051\000")); -lf[1393]=C_h_intern(&lf[1393],13, C_text("chicken.gc#gc")); -lf[1394]=C_h_intern(&lf[1394],12, C_text("##sys#length")); -lf[1395]=C_h_intern(&lf[1395],10, C_text("##sys#cons")); -lf[1396]=C_h_intern(&lf[1396],12, C_text("##sys#vector")); -lf[1397]=C_h_intern(&lf[1397],11, C_text("##sys#apply")); -lf[1398]=C_h_intern(&lf[1398],12, C_text("##sys#values")); -lf[1399]=C_h_intern(&lf[1399],12, C_text("##sys#equal?")); -lf[1400]=C_h_intern(&lf[1400],9, C_text("##sys#car")); -lf[1401]=C_h_intern(&lf[1401],9, C_text("##sys#cdr")); -lf[1402]=C_h_intern(&lf[1402],11, C_text("##sys#pair?")); -lf[1403]=C_h_intern(&lf[1403],13, C_text("##sys#vector?")); -lf[1404]=C_h_intern(&lf[1404],18, C_text("##sys#vector->list")); -lf[1405]=C_h_intern(&lf[1405],19, C_text("##sys#vector-length")); -lf[1406]=C_h_intern(&lf[1406],16, C_text("##sys#vector-ref")); -lf[1407]=C_h_intern(&lf[1407],8, C_text("##sys#>=")); -lf[1408]=C_h_intern(&lf[1408],7, C_text("##sys#=")); -lf[1409]=C_h_intern(&lf[1409],7, C_text("##sys#+")); -lf[1410]=C_h_intern(&lf[1410],9, C_text("##sys#eq?")); -lf[1411]=C_h_intern(&lf[1411],10, C_text("##sys#eqv?")); -lf[1412]=C_h_intern(&lf[1412],11, C_text("##sys#list?")); -lf[1413]=C_h_intern(&lf[1413],11, C_text("##sys#null?")); -lf[1414]=C_h_intern(&lf[1414],11, C_text("##sys#map-n")); -lf[1415]=C_h_intern(&lf[1415],19, C_text("##sys#make-locative")); -lf[1416]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\052\154\157\143\141\164\151\166\145\040\143\141\156\156\157\164\040\162\145\146\145\162\040\164\157\040\151\155\155\145\144\151\141\164\145\040\157\142\152\145\143\164\000")); -lf[1417]=C_h_intern(&lf[1417],8, C_text("u8vector")); -lf[1418]=C_h_intern(&lf[1418],8, C_text("s8vector")); -lf[1419]=C_h_intern(&lf[1419],9, C_text("u16vector")); -lf[1420]=C_h_intern(&lf[1420],9, C_text("s16vector")); -lf[1421]=C_h_intern(&lf[1421],9, C_text("u32vector")); -lf[1422]=C_h_intern(&lf[1422],9, C_text("s32vector")); -lf[1423]=C_h_intern(&lf[1423],9, C_text("u64vector")); -lf[1424]=C_h_intern(&lf[1424],9, C_text("s64vector")); -lf[1425]=C_h_intern(&lf[1425],9, C_text("f32vector")); -lf[1426]=C_h_intern(&lf[1426],9, C_text("f64vector")); -lf[1427]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\102\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\154\157\143\141\164\151\166\145\040\143\141\156\156\157\164\040\162\145\146\145\162\040\164\157\040\157\142\152\145\143\164\163\040\157\146\040\164\150\151\163\040\164\171\160\145\000")); -lf[1428]=C_h_intern(&lf[1428],14, C_text("chicken.plist#")); -lf[1429]=C_h_intern(&lf[1429],18, C_text("chicken.plist#put!")); -lf[1430]=C_h_intern(&lf[1430],4, C_text("put!")); -lf[1431]=C_h_intern(&lf[1431],17, C_text("chicken.plist#get")); -lf[1432]=C_h_intern(&lf[1432],3, C_text("get")); -lf[1433]=C_h_intern(&lf[1433],10, C_text("##sys#put!")); -lf[1434]=C_h_intern(&lf[1434],9, C_text("##sys#get")); -lf[1435]=C_h_intern(&lf[1435],22, C_text("chicken.plist#remprop!")); -lf[1436]=C_h_intern(&lf[1436],8, C_text("remprop!")); -lf[1437]=C_h_intern(&lf[1437],26, C_text("chicken.plist#symbol-plist")); -lf[1438]=C_h_intern(&lf[1438],28, C_text("chicken.plist#get-properties")); -lf[1439]=C_h_intern(&lf[1439],14, C_text("get-properties")); -lf[1440]=C_h_intern(&lf[1440],19, C_text("##sys#display-times")); -lf[1441]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\060\000")); -lf[1442]=C_decode_literal(C_heaptop,C_text("\376\12510.0\000")); -lf[1443]=C_decode_literal(C_heaptop,C_text("\376\320\000\000\01040000000")); -lf[1444]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\107\151\102\000")); -lf[1445]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\115\151\102\000")); -lf[1446]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\040\113\151\102\000")); -lf[1447]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\142\171\164\145\163\000")); -lf[1448]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\054\040\155\141\170\151\155\165\155\040\154\151\166\145\040\150\145\141\160\072\040\000")); -lf[1449]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\040\107\103\163\040\050\155\141\152\157\162\057\155\151\156\157\162\051\000")); -lf[1450]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\040\000")); -lf[1451]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\040\155\165\164\141\164\151\157\156\163\040\050\164\157\164\141\154\057\164\162\141\143\153\145\144\051\000")); -lf[1452]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\040\000")); -lf[1453]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\163\040\107\103\040\164\151\155\145\040\050\155\141\152\157\162\051\000")); -lf[1454]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\054\040\000")); -lf[1455]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\163\040\103\120\125\040\164\151\155\145\000")); -lf[1456]=C_h_intern(&lf[1456],25, C_text("##sys#filter-heap-objects")); -lf[1457]=C_h_intern(&lf[1457],17, C_text("chicken.platform#")); -lf[1458]=C_h_intern(&lf[1458],30, C_text("chicken.platform#software-type")); -lf[1459]=C_h_intern(&lf[1459],29, C_text("chicken.platform#machine-type")); -lf[1460]=C_h_intern(&lf[1460],35, C_text("chicken.platform#machine-byte-order")); -lf[1461]=C_h_intern(&lf[1461],33, C_text("chicken.platform#software-version")); -lf[1462]=C_h_intern(&lf[1462],31, C_text("chicken.platform#build-platform")); -lf[1463]=C_h_intern(&lf[1463],22, C_text("##sys#windows-platform")); -lf[1464]=C_h_intern(&lf[1464],32, C_text("chicken.platform#chicken-version")); -lf[1465]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\126\145\162\163\151\157\156\040\000")); -lf[1466]=C_h_intern(&lf[1466],19, C_text("##sys#build-version")); -lf[1467]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\012\000")); -lf[1468]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1469]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\133\000")); -lf[1470]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\135\000")); -lf[1471]=C_h_intern(&lf[1471],7, C_text("unknown")); -lf[1472]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1473]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\055\000")); -lf[1474]=C_h_intern(&lf[1474],14, C_text("##sys#build-id")); -lf[1475]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\050\162\145\166\040\000")); -lf[1476]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[1477]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1478]=C_h_intern(&lf[1478],18, C_text("##sys#build-branch")); -lf[1479]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\040\050\000")); -lf[1480]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\051\000")); -lf[1481]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1482]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\144\154\157\141\144\000")); -lf[1483]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1484]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\160\164\141\142\154\145\163\000")); -lf[1485]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1486]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\040\147\143\150\157\157\153\163\000")); -lf[1487]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1488]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\040\000")); -lf[1489]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\142\151\164\000")); -lf[1490]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\040\143\162\157\163\163\000")); -lf[1491]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1492]=C_h_intern(&lf[1492],25, C_text("chicken.platform#feature?")); -lf[1493]=C_h_intern_kw(&lf[1493],13, C_text("cross-chicken")); -lf[1494]=C_h_intern_kw(&lf[1494],7, C_text("gchooks")); -lf[1495]=C_h_intern_kw(&lf[1495],7, C_text("ptables")); -lf[1496]=C_h_intern_kw(&lf[1496],5, C_text("dload")); -lf[1497]=C_h_intern(&lf[1497],29, C_text("chicken.platform#chicken-home")); -lf[1498]=C_h_intern(&lf[1498],29, C_text("chicken.platform#include-path")); -lf[1499]=C_h_intern(&lf[1499],12, C_text("include-path")); -lf[1500]=C_h_intern(&lf[1500],23, C_text("##sys#include-pathnames")); -lf[1501]=C_h_intern(&lf[1501],19, C_text("##include-pathnames")); -lf[1503]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\006\000\376\377\016")); -lf[1504]=C_h_intern(&lf[1504],16, C_text("##sys#split-path")); -lf[1505]=C_h_intern(&lf[1505],32, C_text("chicken.platform#repository-path")); -lf[1506]=C_h_intern(&lf[1506],40, C_text("chicken.platform#installation-repository")); -lf[1509]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\062\142\141\144\040\141\162\147\165\155\145\156\164\040\164\171\160\145\040\055\040\156\157\164\040\141\040\166\141\154\151\144\040\146\145\141\164\165\162\145\040\151\144\145\156\164\151\146\145\162\000")); -lf[1510]=C_h_intern(&lf[1510],14, C_text("##sys#features")); -lf[1511]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\002\143\150\151\143\153\145\156\376\003\000\000\002\376\001\000\000\006\002\163\162\146\151\055\066\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\061\062\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\061\067\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\062\063\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\063\060\376\003\000\000\002\376\001\000\000\015\002\145\170\141\143\164\055\143\157\155\160\154\145\170\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\063\071\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\066\062\376\003\000\000\002\376\001\000\000\007\002\163\162\146\151\055\070\070\376\003\000\000\002\376\001\000\000\022\002\146\165\154\154\055\156\165\155\145\162\151\143\055\164\157\167\145\162\376\003\000\000\002\376\001\000\000\014\002\146\165\154\154\055\165\156\151\143\157\144\145\376\377\016")); -lf[1512]=C_h_intern_kw(&lf[1512],6, C_text("ratios")); -lf[1513]=C_h_intern_kw(&lf[1513],10, C_text("ieee-float")); -lf[1514]=C_h_intern_kw(&lf[1514],4, C_text("r7rs")); -lf[1515]=C_h_intern_kw(&lf[1515],5, C_text("posix")); -lf[1516]=C_h_intern(&lf[1516],34, C_text("chicken.platform#register-feature!")); -lf[1517]=C_h_intern(&lf[1517],36, C_text("chicken.platform#unregister-feature!")); -lf[1518]=C_h_intern(&lf[1518],31, C_text("chicken.platform#return-to-host")); -lf[1519]=C_h_intern(&lf[1519],40, C_text("chicken.platform#system-config-directory")); -lf[1520]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\101\120\120\104\101\124\101\000")); -lf[1521]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\057\056\143\157\156\146\151\147\000")); -lf[1522]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\110\117\115\105\000")); -lf[1523]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\130\104\107\137\103\117\116\106\111\107\137\110\117\115\105\000")); -lf[1524]=C_h_intern(&lf[1524],39, C_text("chicken.platform#system-cache-directory")); -lf[1525]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\101\120\120\104\101\124\101\000")); -lf[1526]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\114\117\103\101\114\101\120\120\104\101\124\101\000")); -lf[1527]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\057\056\143\141\143\150\145\000")); -lf[1528]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\110\117\115\105\000")); -lf[1529]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\130\104\107\137\103\101\103\110\105\137\110\117\115\105\000")); -lf[1530]=C_h_intern(&lf[1530],9, C_text("make-list")); -lf[1531]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\156\157\164\040\141\040\160\157\163\151\164\151\166\145\040\151\156\164\145\147\145\162\000")); -lf[1532]=C_h_intern(&lf[1532],9, C_text("list-set!")); -lf[1533]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\157\165\164\040\157\146\040\162\141\156\147\145\000")); -lf[1534]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\156\157\164\040\141\040\160\157\163\151\164\151\166\145\040\151\156\164\145\147\145\162\000")); -lf[1535]=C_h_intern(&lf[1535],14, C_text("string->vector")); -lf[1536]=C_h_intern(&lf[1536],14, C_text("vector->string")); -lf[1537]=C_h_intern(&lf[1537],10, C_text("string-map")); -lf[1538]=C_h_intern(&lf[1538],15, C_text("string-for-each")); -lf[1539]=C_h_intern(&lf[1539],10, C_text("vector-map")); -lf[1540]=C_h_intern(&lf[1540],15, C_text("vector-for-each")); -lf[1541]=C_h_intern(&lf[1541],10, C_text("close-port")); -lf[1542]=C_h_intern(&lf[1542],7, C_text("peek-u8")); -lf[1543]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\156\157\040\155\141\164\143\150\151\156\147\040\143\154\141\165\163\145\040\151\156\040\143\141\154\154\040\164\157\040\047\143\141\163\145\055\154\141\155\142\144\141\047\040\146\157\162\155\000")); -lf[1544]=C_h_intern(&lf[1544],12, C_text("write-string")); -lf[1545]=C_h_intern(&lf[1545],11, C_text("chicken.io#")); -lf[1546]=C_h_intern(&lf[1546],20, C_text("chicken.io#read-list")); -lf[1547]=C_h_intern(&lf[1547],9, C_text("read-list")); -lf[1548]=C_h_intern(&lf[1548],20, C_text("chicken.io#read-line")); -lf[1549]=C_h_intern(&lf[1549],21, C_text("chicken.io#read-lines")); -lf[1550]=C_h_intern(&lf[1550],10, C_text("read-lines")); -lf[1551]=C_h_intern(&lf[1551],21, C_text("chicken.io#write-line")); -lf[1552]=C_h_intern(&lf[1552],10, C_text("write-line")); -lf[1553]=C_h_intern(&lf[1553],32, C_text("chicken.io#read-bytevector!/port")); -lf[1554]=C_h_intern(&lf[1554],28, C_text("chicken.io#read-string!/port")); -lf[1555]=C_h_intern(&lf[1555],23, C_text("chicken.io#read-string!")); -lf[1556]=C_h_intern(&lf[1556],12, C_text("read-string!")); -lf[1557]=C_h_intern(&lf[1557],27, C_text("chicken.io#read-bytevector!")); -lf[1558]=C_h_intern(&lf[1558],27, C_text("chicken.io#read-string/port")); -lf[1559]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1560]=C_h_intern(&lf[1560],20, C_text("##sys#read-remaining")); -lf[1561]=C_h_intern(&lf[1561],31, C_text("chicken.io#read-bytevector/port")); -lf[1562]=C_h_intern(&lf[1562],22, C_text("chicken.io#read-string")); -lf[1563]=C_h_intern(&lf[1563],11, C_text("read-string")); -lf[1564]=C_h_intern(&lf[1564],26, C_text("chicken.io#read-bytevector")); -lf[1565]=C_h_intern(&lf[1565],15, C_text("read-bytevector")); -lf[1566]=C_h_intern(&lf[1566],24, C_text("chicken.io#read-buffered")); -lf[1567]=C_h_intern(&lf[1567],13, C_text("read-buffered")); -lf[1568]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[1569]=C_h_intern(&lf[1569],21, C_text("chicken.io#read-token")); -lf[1570]=C_h_intern(&lf[1570],10, C_text("read-token")); -lf[1571]=C_h_intern(&lf[1571],20, C_text("chicken.io#read-byte")); -lf[1572]=C_h_intern(&lf[1572],9, C_text("read-byte")); -lf[1573]=C_h_intern(&lf[1573],21, C_text("chicken.io#write-byte")); -lf[1574]=C_h_intern(&lf[1574],10, C_text("write-byte")); -lf[1575]=C_h_intern(&lf[1575],27, C_text("chicken.io#write-bytevector")); -lf[1576]=C_h_intern(&lf[1576],16, C_text("write-bytevector")); -lf[1577]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\143\150\151\143\153\145\156\055\000")); -lf[1578]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[1579]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\143\150\151\143\153\145\156\055\000")); -lf[1580]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\142\151\164\000")); -lf[1581]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\103\110\111\103\113\105\116\137\111\116\103\114\125\104\105\137\120\101\124\110\000")); -lf[1582]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\033\103\110\111\103\113\105\116\137\111\116\123\124\101\114\114\137\122\105\120\117\123\111\124\117\122\131\000")); -lf[1583]=C_h_intern(&lf[1583],15, C_text("repository-path")); -lf[1584]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\030\103\110\111\103\113\105\116\137\122\105\120\117\123\111\124\117\122\131\137\120\101\124\110\000")); -lf[1585]=C_h_intern(&lf[1585],7, C_text("windows")); -lf[1586]=C_h_intern(&lf[1586],6, C_text("cygwin")); -lf[1587]=C_h_intern(&lf[1587],12, C_text("symbol-plist")); -lf[1588]=C_h_intern(&lf[1588],19, C_text("symbol-plist/setter")); -lf[1589]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\160\162\157\160\145\162\164\171\055\154\151\163\164\040\155\165\163\164\040\142\145\040\157\146\040\145\166\145\156\040\154\145\156\147\164\150\000")); -lf[1590]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\050\143\150\151\143\153\145\156\056\160\154\151\163\164\043\163\171\155\142\157\154\055\160\154\151\163\164\040\163\171\155\051\000")); -lf[1591]=C_h_intern(&lf[1591],22, C_text("command-line-arguments")); -lf[1592]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\055\072\000")); -lf[1593]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\055\072\000")); -lf[1594]=C_h_intern(&lf[1594],12, C_text("program-name")); -lf[1595]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\012\074\165\156\153\156\157\167\156\076\000")); -lf[1596]=C_h_intern(&lf[1596],17, C_text("current-directory")); -lf[1597]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\143\141\156\156\157\164\040\162\145\164\162\151\145\166\145\040\143\165\162\162\145\156\164\040\144\151\162\145\143\164\157\162\171\000")); -lf[1598]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\054\050\143\150\151\143\153\145\156\056\160\162\157\143\145\163\163\055\143\157\156\164\145\170\164\043\143\165\162\162\145\156\164\055\144\151\162\145\143\164\157\162\171\051\000")); -lf[1599]=C_h_intern(&lf[1599],7, C_text("running")); -lf[1600]=C_h_intern(&lf[1600],10, C_text("primordial")); -lf[1601]=C_h_intern(&lf[1601],6, C_text("syntax")); -lf[1602]=C_h_intern(&lf[1602],4, C_text("file")); -lf[1603]=C_h_intern(&lf[1603],3, C_text("i/o")); -lf[1604]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1605]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\072\040\000")); -lf[1606]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\007\012\105\162\162\157\162\000")); -lf[1607]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\145\162\162\157\162\040\151\156\040\145\162\162\157\162\000")); -lf[1608]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\055\042\145\170\151\164\042\040\143\141\154\154\145\144\040\167\150\151\154\145\040\160\162\157\143\145\163\163\151\156\147\040\157\156\055\145\170\151\164\040\164\141\163\153\163\000")); -lf[1609]=C_h_intern(&lf[1609],10, C_text("read-table")); -lf[1610]=C_h_intern(&lf[1610],13, C_text("keyword-style")); -lf[1611]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\053\050\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\165\070\055\162\145\146\040\166\040\151\051\000")); -lf[1612]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\156\157\040\163\145\164\164\145\162\040\144\145\146\151\156\145\144\000")); -lf[1613]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\143\141\156\040\156\157\164\040\163\145\164\040\163\145\164\164\145\162\040\157\146\040\156\157\156\055\160\162\157\143\145\144\165\162\145\000")); -lf[1614]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\144\145\162\162\051\000")); -lf[1615]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\050\163\164\144\157\165\164\051\000")); -lf[1616]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\050\163\164\144\151\156\051\000")); -lf[1617]=C_h_intern(&lf[1617],9, C_text("backspace")); -lf[1618]=C_h_intern(&lf[1618],4, C_text("page")); -lf[1619]=C_h_intern(&lf[1619],6, C_text("return")); -lf[1620]=C_h_intern(&lf[1620],4, C_text("null")); -lf[1621]=C_h_intern(&lf[1621],3, C_text("nul")); -lf[1622]=C_h_intern(&lf[1622],5, C_text("alarm")); -lf[1623]=C_h_intern(&lf[1623],6, C_text("escape")); -lf[1624]=C_h_intern(&lf[1624],3, C_text("esc")); -lf[1625]=C_h_intern(&lf[1625],6, C_text("delete")); -lf[1626]=C_h_intern(&lf[1626],4, C_text("vtab")); -lf[1627]=C_h_intern(&lf[1627],7, C_text("newline")); -lf[1628]=C_h_intern(&lf[1628],8, C_text("linefeed")); -lf[1629]=C_h_intern(&lf[1629],3, C_text("tab")); -lf[1630]=C_h_intern(&lf[1630],5, C_text("space")); -C_register_lf2(lf,1631,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11438,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_build_2dversion_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[2530] = { -{C_text("f45112:library_2escm"),(void*)f45112}, -{C_text("f45311:library_2escm"),(void*)f45311}, -{C_text("f45315:library_2escm"),(void*)f45315}, -{C_text("f45445:library_2escm"),(void*)f45445}, -{C_text("f45450:library_2escm"),(void*)f45450}, -{C_text("f45457:library_2escm"),(void*)f45457}, -{C_text("f45466:library_2escm"),(void*)f45466}, -{C_text("f45475:library_2escm"),(void*)f45475}, -{C_text("f49039:library_2escm"),(void*)f49039}, -{C_text("f49045:library_2escm"),(void*)f49045}, -{C_text("f49051:library_2escm"),(void*)f49051}, -{C_text("f_11438:library_2escm"),(void*)f_11438}, -{C_text("f_11440:library_2escm"),(void*)f_11440}, -{C_text("f_11443:library_2escm"),(void*)f_11443}, -{C_text("f_11446:library_2escm"),(void*)f_11446}, -{C_text("f_11449:library_2escm"),(void*)f_11449}, -{C_text("f_11452:library_2escm"),(void*)f_11452}, -{C_text("f_11455:library_2escm"),(void*)f_11455}, -{C_text("f_11471:library_2escm"),(void*)f_11471}, -{C_text("f_11500:library_2escm"),(void*)f_11500}, -{C_text("f_11516:library_2escm"),(void*)f_11516}, -{C_text("f_11545:library_2escm"),(void*)f_11545}, -{C_text("f_11548:library_2escm"),(void*)f_11548}, -{C_text("f_11551:library_2escm"),(void*)f_11551}, -{C_text("f_11554:library_2escm"),(void*)f_11554}, -{C_text("f_11557:library_2escm"),(void*)f_11557}, -{C_text("f_11560:library_2escm"),(void*)f_11560}, -{C_text("f_11563:library_2escm"),(void*)f_11563}, -{C_text("f_11566:library_2escm"),(void*)f_11566}, -{C_text("f_11569:library_2escm"),(void*)f_11569}, -{C_text("f_11572:library_2escm"),(void*)f_11572}, -{C_text("f_11575:library_2escm"),(void*)f_11575}, -{C_text("f_11578:library_2escm"),(void*)f_11578}, -{C_text("f_11581:library_2escm"),(void*)f_11581}, -{C_text("f_11584:library_2escm"),(void*)f_11584}, -{C_text("f_11598:library_2escm"),(void*)f_11598}, -{C_text("f_11605:library_2escm"),(void*)f_11605}, -{C_text("f_11612:library_2escm"),(void*)f_11612}, -{C_text("f_11626:library_2escm"),(void*)f_11626}, -{C_text("f_11633:library_2escm"),(void*)f_11633}, -{C_text("f_11647:library_2escm"),(void*)f_11647}, -{C_text("f_11661:library_2escm"),(void*)f_11661}, -{C_text("f_11679:library_2escm"),(void*)f_11679}, -{C_text("f_11690:library_2escm"),(void*)f_11690}, -{C_text("f_11701:library_2escm"),(void*)f_11701}, -{C_text("f_11708:library_2escm"),(void*)f_11708}, -{C_text("f_11719:library_2escm"),(void*)f_11719}, -{C_text("f_11723:library_2escm"),(void*)f_11723}, -{C_text("f_11730:library_2escm"),(void*)f_11730}, -{C_text("f_11748:library_2escm"),(void*)f_11748}, -{C_text("f_11759:library_2escm"),(void*)f_11759}, -{C_text("f_11770:library_2escm"),(void*)f_11770}, -{C_text("f_11777:library_2escm"),(void*)f_11777}, -{C_text("f_11795:library_2escm"),(void*)f_11795}, -{C_text("f_11806:library_2escm"),(void*)f_11806}, -{C_text("f_11824:library_2escm"),(void*)f_11824}, -{C_text("f_11830:library_2escm"),(void*)f_11830}, -{C_text("f_11833:library_2escm"),(void*)f_11833}, -{C_text("f_11836:library_2escm"),(void*)f_11836}, -{C_text("f_11839:library_2escm"),(void*)f_11839}, -{C_text("f_11842:library_2escm"),(void*)f_11842}, -{C_text("f_11848:library_2escm"),(void*)f_11848}, -{C_text("f_11881:library_2escm"),(void*)f_11881}, -{C_text("f_11884:library_2escm"),(void*)f_11884}, -{C_text("f_11887:library_2escm"),(void*)f_11887}, -{C_text("f_11899:library_2escm"),(void*)f_11899}, -{C_text("f_11912:library_2escm"),(void*)f_11912}, -{C_text("f_11931:library_2escm"),(void*)f_11931}, -{C_text("f_11934:library_2escm"),(void*)f_11934}, -{C_text("f_11937:library_2escm"),(void*)f_11937}, -{C_text("f_11949:library_2escm"),(void*)f_11949}, -{C_text("f_11962:library_2escm"),(void*)f_11962}, -{C_text("f_11986:library_2escm"),(void*)f_11986}, -{C_text("f_11989:library_2escm"),(void*)f_11989}, -{C_text("f_11992:library_2escm"),(void*)f_11992}, -{C_text("f_11995:library_2escm"),(void*)f_11995}, -{C_text("f_11998:library_2escm"),(void*)f_11998}, -{C_text("f_12001:library_2escm"),(void*)f_12001}, -{C_text("f_12008:library_2escm"),(void*)f_12008}, -{C_text("f_12034:library_2escm"),(void*)f_12034}, -{C_text("f_12041:library_2escm"),(void*)f_12041}, -{C_text("f_12085:library_2escm"),(void*)f_12085}, -{C_text("f_12088:library_2escm"),(void*)f_12088}, -{C_text("f_12094:library_2escm"),(void*)f_12094}, -{C_text("f_12097:library_2escm"),(void*)f_12097}, -{C_text("f_12100:library_2escm"),(void*)f_12100}, -{C_text("f_12103:library_2escm"),(void*)f_12103}, -{C_text("f_12106:library_2escm"),(void*)f_12106}, -{C_text("f_12114:library_2escm"),(void*)f_12114}, -{C_text("f_12118:library_2escm"),(void*)f_12118}, -{C_text("f_12121:library_2escm"),(void*)f_12121}, -{C_text("f_12124:library_2escm"),(void*)f_12124}, -{C_text("f_12127:library_2escm"),(void*)f_12127}, -{C_text("f_12130:library_2escm"),(void*)f_12130}, -{C_text("f_12133:library_2escm"),(void*)f_12133}, -{C_text("f_12136:library_2escm"),(void*)f_12136}, -{C_text("f_12139:library_2escm"),(void*)f_12139}, -{C_text("f_12143:library_2escm"),(void*)f_12143}, -{C_text("f_12146:library_2escm"),(void*)f_12146}, -{C_text("f_12149:library_2escm"),(void*)f_12149}, -{C_text("f_12152:library_2escm"),(void*)f_12152}, -{C_text("f_12155:library_2escm"),(void*)f_12155}, -{C_text("f_12163:library_2escm"),(void*)f_12163}, -{C_text("f_12166:library_2escm"),(void*)f_12166}, -{C_text("f_12173:library_2escm"),(void*)f_12173}, -{C_text("f_12180:library_2escm"),(void*)f_12180}, -{C_text("f_12193:library_2escm"),(void*)f_12193}, -{C_text("f_12219:library_2escm"),(void*)f_12219}, -{C_text("f_12232:library_2escm"),(void*)f_12232}, -{C_text("f_12258:library_2escm"),(void*)f_12258}, -{C_text("f_12271:library_2escm"),(void*)f_12271}, -{C_text("f_12297:library_2escm"),(void*)f_12297}, -{C_text("f_12310:library_2escm"),(void*)f_12310}, -{C_text("f_12336:library_2escm"),(void*)f_12336}, -{C_text("f_12349:library_2escm"),(void*)f_12349}, -{C_text("f_12375:library_2escm"),(void*)f_12375}, -{C_text("f_12381:library_2escm"),(void*)f_12381}, -{C_text("f_12392:library_2escm"),(void*)f_12392}, -{C_text("f_12398:library_2escm"),(void*)f_12398}, -{C_text("f_12404:library_2escm"),(void*)f_12404}, -{C_text("f_12410:library_2escm"),(void*)f_12410}, -{C_text("f_12416:library_2escm"),(void*)f_12416}, -{C_text("f_12422:library_2escm"),(void*)f_12422}, -{C_text("f_12438:library_2escm"),(void*)f_12438}, -{C_text("f_12446:library_2escm"),(void*)f_12446}, -{C_text("f_12452:library_2escm"),(void*)f_12452}, -{C_text("f_12458:library_2escm"),(void*)f_12458}, -{C_text("f_12465:library_2escm"),(void*)f_12465}, -{C_text("f_12474:library_2escm"),(void*)f_12474}, -{C_text("f_12481:library_2escm"),(void*)f_12481}, -{C_text("f_12490:library_2escm"),(void*)f_12490}, -{C_text("f_12496:library_2escm"),(void*)f_12496}, -{C_text("f_12501:library_2escm"),(void*)f_12501}, -{C_text("f_12516:library_2escm"),(void*)f_12516}, -{C_text("f_12527:library_2escm"),(void*)f_12527}, -{C_text("f_12533:library_2escm"),(void*)f_12533}, -{C_text("f_12539:library_2escm"),(void*)f_12539}, -{C_text("f_12545:library_2escm"),(void*)f_12545}, -{C_text("f_12551:library_2escm"),(void*)f_12551}, -{C_text("f_12561:library_2escm"),(void*)f_12561}, -{C_text("f_12563:library_2escm"),(void*)f_12563}, -{C_text("f_12566:library_2escm"),(void*)f_12566}, -{C_text("f_12569:library_2escm"),(void*)f_12569}, -{C_text("f_12572:library_2escm"),(void*)f_12572}, -{C_text("f_12575:library_2escm"),(void*)f_12575}, -{C_text("f_12578:library_2escm"),(void*)f_12578}, -{C_text("f_12583:library_2escm"),(void*)f_12583}, -{C_text("f_12589:library_2escm"),(void*)f_12589}, -{C_text("f_12595:library_2escm"),(void*)f_12595}, -{C_text("f_12630:library_2escm"),(void*)f_12630}, -{C_text("f_12633:library_2escm"),(void*)f_12633}, -{C_text("f_12636:library_2escm"),(void*)f_12636}, -{C_text("f_12644:library_2escm"),(void*)f_12644}, -{C_text("f_12650:library_2escm"),(void*)f_12650}, -{C_text("f_12657:library_2escm"),(void*)f_12657}, -{C_text("f_12672:library_2escm"),(void*)f_12672}, -{C_text("f_12686:library_2escm"),(void*)f_12686}, -{C_text("f_12692:library_2escm"),(void*)f_12692}, -{C_text("f_12698:library_2escm"),(void*)f_12698}, -{C_text("f_12705:library_2escm"),(void*)f_12705}, -{C_text("f_12710:library_2escm"),(void*)f_12710}, -{C_text("f_12713:library_2escm"),(void*)f_12713}, -{C_text("f_12722:library_2escm"),(void*)f_12722}, -{C_text("f_12740:library_2escm"),(void*)f_12740}, -{C_text("f_12750:library_2escm"),(void*)f_12750}, -{C_text("f_12759:library_2escm"),(void*)f_12759}, -{C_text("f_12777:library_2escm"),(void*)f_12777}, -{C_text("f_12790:library_2escm"),(void*)f_12790}, -{C_text("f_12797:library_2escm"),(void*)f_12797}, -{C_text("f_12804:library_2escm"),(void*)f_12804}, -{C_text("f_12815:library_2escm"),(void*)f_12815}, -{C_text("f_12834:library_2escm"),(void*)f_12834}, -{C_text("f_12837:library_2escm"),(void*)f_12837}, -{C_text("f_12839:library_2escm"),(void*)f_12839}, -{C_text("f_12845:library_2escm"),(void*)f_12845}, -{C_text("f_12861:library_2escm"),(void*)f_12861}, -{C_text("f_12870:library_2escm"),(void*)f_12870}, -{C_text("f_12872:library_2escm"),(void*)f_12872}, -{C_text("f_12878:library_2escm"),(void*)f_12878}, -{C_text("f_12891:library_2escm"),(void*)f_12891}, -{C_text("f_12907:library_2escm"),(void*)f_12907}, -{C_text("f_12918:library_2escm"),(void*)f_12918}, -{C_text("f_12920:library_2escm"),(void*)f_12920}, -{C_text("f_12928:library_2escm"),(void*)f_12928}, -{C_text("f_12930:library_2escm"),(void*)f_12930}, -{C_text("f_12936:library_2escm"),(void*)f_12936}, -{C_text("f_12938:library_2escm"),(void*)f_12938}, -{C_text("f_12946:library_2escm"),(void*)f_12946}, -{C_text("f_12948:library_2escm"),(void*)f_12948}, -{C_text("f_12951:library_2escm"),(void*)f_12951}, -{C_text("f_12959:library_2escm"),(void*)f_12959}, -{C_text("f_12965:library_2escm"),(void*)f_12965}, -{C_text("f_12973:library_2escm"),(void*)f_12973}, -{C_text("f_12984:library_2escm"),(void*)f_12984}, -{C_text("f_12996:library_2escm"),(void*)f_12996}, -{C_text("f_13010:library_2escm"),(void*)f_13010}, -{C_text("f_13018:library_2escm"),(void*)f_13018}, -{C_text("f_13021:library_2escm"),(void*)f_13021}, -{C_text("f_13023:library_2escm"),(void*)f_13023}, -{C_text("f_13025:library_2escm"),(void*)f_13025}, -{C_text("f_13031:library_2escm"),(void*)f_13031}, -{C_text("f_13050:library_2escm"),(void*)f_13050}, -{C_text("f_13067:library_2escm"),(void*)f_13067}, -{C_text("f_13075:library_2escm"),(void*)f_13075}, -{C_text("f_13089:library_2escm"),(void*)f_13089}, -{C_text("f_13095:library_2escm"),(void*)f_13095}, -{C_text("f_13114:library_2escm"),(void*)f_13114}, -{C_text("f_13123:library_2escm"),(void*)f_13123}, -{C_text("f_13126:library_2escm"),(void*)f_13126}, -{C_text("f_13129:library_2escm"),(void*)f_13129}, -{C_text("f_13132:library_2escm"),(void*)f_13132}, -{C_text("f_13135:library_2escm"),(void*)f_13135}, -{C_text("f_13144:library_2escm"),(void*)f_13144}, -{C_text("f_13163:library_2escm"),(void*)f_13163}, -{C_text("f_13169:library_2escm"),(void*)f_13169}, -{C_text("f_13194:library_2escm"),(void*)f_13194}, -{C_text("f_13196:library_2escm"),(void*)f_13196}, -{C_text("f_13205:library_2escm"),(void*)f_13205}, -{C_text("f_13226:library_2escm"),(void*)f_13226}, -{C_text("f_13228:library_2escm"),(void*)f_13228}, -{C_text("f_13234:library_2escm"),(void*)f_13234}, -{C_text("f_13260:library_2escm"),(void*)f_13260}, -{C_text("f_13267:library_2escm"),(void*)f_13267}, -{C_text("f_13269:library_2escm"),(void*)f_13269}, -{C_text("f_13281:library_2escm"),(void*)f_13281}, -{C_text("f_13316:library_2escm"),(void*)f_13316}, -{C_text("f_13326:library_2escm"),(void*)f_13326}, -{C_text("f_13335:library_2escm"),(void*)f_13335}, -{C_text("f_13377:library_2escm"),(void*)f_13377}, -{C_text("f_13406:library_2escm"),(void*)f_13406}, -{C_text("f_13412:library_2escm"),(void*)f_13412}, -{C_text("f_13426:library_2escm"),(void*)f_13426}, -{C_text("f_13432:library_2escm"),(void*)f_13432}, -{C_text("f_13439:library_2escm"),(void*)f_13439}, -{C_text("f_13442:library_2escm"),(void*)f_13442}, -{C_text("f_13471:library_2escm"),(void*)f_13471}, -{C_text("f_13477:library_2escm"),(void*)f_13477}, -{C_text("f_13493:library_2escm"),(void*)f_13493}, -{C_text("f_13518:library_2escm"),(void*)f_13518}, -{C_text("f_13527:library_2escm"),(void*)f_13527}, -{C_text("f_13568:library_2escm"),(void*)f_13568}, -{C_text("f_13590:library_2escm"),(void*)f_13590}, -{C_text("f_13622:library_2escm"),(void*)f_13622}, -{C_text("f_13638:library_2escm"),(void*)f_13638}, -{C_text("f_13641:library_2escm"),(void*)f_13641}, -{C_text("f_13663:library_2escm"),(void*)f_13663}, -{C_text("f_13669:library_2escm"),(void*)f_13669}, -{C_text("f_13694:library_2escm"),(void*)f_13694}, -{C_text("f_13734:library_2escm"),(void*)f_13734}, -{C_text("f_13746:library_2escm"),(void*)f_13746}, -{C_text("f_13765:library_2escm"),(void*)f_13765}, -{C_text("f_13782:library_2escm"),(void*)f_13782}, -{C_text("f_13789:library_2escm"),(void*)f_13789}, -{C_text("f_13799:library_2escm"),(void*)f_13799}, -{C_text("f_13810:library_2escm"),(void*)f_13810}, -{C_text("f_13814:library_2escm"),(void*)f_13814}, -{C_text("f_13827:library_2escm"),(void*)f_13827}, -{C_text("f_13829:library_2escm"),(void*)f_13829}, -{C_text("f_13863:library_2escm"),(void*)f_13863}, -{C_text("f_13867:library_2escm"),(void*)f_13867}, -{C_text("f_13885:library_2escm"),(void*)f_13885}, -{C_text("f_13898:library_2escm"),(void*)f_13898}, -{C_text("f_13910:library_2escm"),(void*)f_13910}, -{C_text("f_13916:library_2escm"),(void*)f_13916}, -{C_text("f_13926:library_2escm"),(void*)f_13926}, -{C_text("f_13930:library_2escm"),(void*)f_13930}, -{C_text("f_13934:library_2escm"),(void*)f_13934}, -{C_text("f_13938:library_2escm"),(void*)f_13938}, -{C_text("f_13941:library_2escm"),(void*)f_13941}, -{C_text("f_13943:library_2escm"),(void*)f_13943}, -{C_text("f_13947:library_2escm"),(void*)f_13947}, -{C_text("f_13951:library_2escm"),(void*)f_13951}, -{C_text("f_13955:library_2escm"),(void*)f_13955}, -{C_text("f_13959:library_2escm"),(void*)f_13959}, -{C_text("f_13974:library_2escm"),(void*)f_13974}, -{C_text("f_13991:library_2escm"),(void*)f_13991}, -{C_text("f_13997:library_2escm"),(void*)f_13997}, -{C_text("f_14003:library_2escm"),(void*)f_14003}, -{C_text("f_14006:library_2escm"),(void*)f_14006}, -{C_text("f_14013:library_2escm"),(void*)f_14013}, -{C_text("f_14050:library_2escm"),(void*)f_14050}, -{C_text("f_14053:library_2escm"),(void*)f_14053}, -{C_text("f_14056:library_2escm"),(void*)f_14056}, -{C_text("f_14059:library_2escm"),(void*)f_14059}, -{C_text("f_14065:library_2escm"),(void*)f_14065}, -{C_text("f_14068:library_2escm"),(void*)f_14068}, -{C_text("f_14071:library_2escm"),(void*)f_14071}, -{C_text("f_14074:library_2escm"),(void*)f_14074}, -{C_text("f_14077:library_2escm"),(void*)f_14077}, -{C_text("f_14080:library_2escm"),(void*)f_14080}, -{C_text("f_14083:library_2escm"),(void*)f_14083}, -{C_text("f_14086:library_2escm"),(void*)f_14086}, -{C_text("f_14089:library_2escm"),(void*)f_14089}, -{C_text("f_14092:library_2escm"),(void*)f_14092}, -{C_text("f_14095:library_2escm"),(void*)f_14095}, -{C_text("f_14098:library_2escm"),(void*)f_14098}, -{C_text("f_14101:library_2escm"),(void*)f_14101}, -{C_text("f_14104:library_2escm"),(void*)f_14104}, -{C_text("f_14107:library_2escm"),(void*)f_14107}, -{C_text("f_14110:library_2escm"),(void*)f_14110}, -{C_text("f_14113:library_2escm"),(void*)f_14113}, -{C_text("f_14116:library_2escm"),(void*)f_14116}, -{C_text("f_14119:library_2escm"),(void*)f_14119}, -{C_text("f_14122:library_2escm"),(void*)f_14122}, -{C_text("f_14125:library_2escm"),(void*)f_14125}, -{C_text("f_14128:library_2escm"),(void*)f_14128}, -{C_text("f_14131:library_2escm"),(void*)f_14131}, -{C_text("f_14134:library_2escm"),(void*)f_14134}, -{C_text("f_14137:library_2escm"),(void*)f_14137}, -{C_text("f_14142:library_2escm"),(void*)f_14142}, -{C_text("f_14151:library_2escm"),(void*)f_14151}, -{C_text("f_14163:library_2escm"),(void*)f_14163}, -{C_text("f_14177:library_2escm"),(void*)f_14177}, -{C_text("f_14193:library_2escm"),(void*)f_14193}, -{C_text("f_14196:library_2escm"),(void*)f_14196}, -{C_text("f_14205:library_2escm"),(void*)f_14205}, -{C_text("f_14209:library_2escm"),(void*)f_14209}, -{C_text("f_14211:library_2escm"),(void*)f_14211}, -{C_text("f_14215:library_2escm"),(void*)f_14215}, -{C_text("f_14218:library_2escm"),(void*)f_14218}, -{C_text("f_14229:library_2escm"),(void*)f_14229}, -{C_text("f_14231:library_2escm"),(void*)f_14231}, -{C_text("f_14238:library_2escm"),(void*)f_14238}, -{C_text("f_14241:library_2escm"),(void*)f_14241}, -{C_text("f_14246:library_2escm"),(void*)f_14246}, -{C_text("f_14250:library_2escm"),(void*)f_14250}, -{C_text("f_14255:library_2escm"),(void*)f_14255}, -{C_text("f_14259:library_2escm"),(void*)f_14259}, -{C_text("f_14290:library_2escm"),(void*)f_14290}, -{C_text("f_14293:library_2escm"),(void*)f_14293}, -{C_text("f_14296:library_2escm"),(void*)f_14296}, -{C_text("f_14313:library_2escm"),(void*)f_14313}, -{C_text("f_14324:library_2escm"),(void*)f_14324}, -{C_text("f_14335:library_2escm"),(void*)f_14335}, -{C_text("f_14346:library_2escm"),(void*)f_14346}, -{C_text("f_14357:library_2escm"),(void*)f_14357}, -{C_text("f_14368:library_2escm"),(void*)f_14368}, -{C_text("f_14379:library_2escm"),(void*)f_14379}, -{C_text("f_14390:library_2escm"),(void*)f_14390}, -{C_text("f_14401:library_2escm"),(void*)f_14401}, -{C_text("f_14412:library_2escm"),(void*)f_14412}, -{C_text("f_14423:library_2escm"),(void*)f_14423}, -{C_text("f_14434:library_2escm"),(void*)f_14434}, -{C_text("f_14445:library_2escm"),(void*)f_14445}, -{C_text("f_14456:library_2escm"),(void*)f_14456}, -{C_text("f_14467:library_2escm"),(void*)f_14467}, -{C_text("f_14478:library_2escm"),(void*)f_14478}, -{C_text("f_14489:library_2escm"),(void*)f_14489}, -{C_text("f_14506:library_2escm"),(void*)f_14506}, -{C_text("f_14523:library_2escm"),(void*)f_14523}, -{C_text("f_14547:library_2escm"),(void*)f_14547}, -{C_text("f_14564:library_2escm"),(void*)f_14564}, -{C_text("f_14575:library_2escm"),(void*)f_14575}, -{C_text("f_14586:library_2escm"),(void*)f_14586}, -{C_text("f_14606:library_2escm"),(void*)f_14606}, -{C_text("f_14617:library_2escm"),(void*)f_14617}, -{C_text("f_14629:library_2escm"),(void*)f_14629}, -{C_text("f_14663:library_2escm"),(void*)f_14663}, -{C_text("f_14678:library_2escm"),(void*)f_14678}, -{C_text("f_14745:library_2escm"),(void*)f_14745}, -{C_text("f_14761:library_2escm"),(void*)f_14761}, -{C_text("f_14777:library_2escm"),(void*)f_14777}, -{C_text("f_14793:library_2escm"),(void*)f_14793}, -{C_text("f_14809:library_2escm"),(void*)f_14809}, -{C_text("f_14825:library_2escm"),(void*)f_14825}, -{C_text("f_14841:library_2escm"),(void*)f_14841}, -{C_text("f_14857:library_2escm"),(void*)f_14857}, -{C_text("f_14873:library_2escm"),(void*)f_14873}, -{C_text("f_14885:library_2escm"),(void*)f_14885}, -{C_text("f_14904:library_2escm"),(void*)f_14904}, -{C_text("f_14935:library_2escm"),(void*)f_14935}, -{C_text("f_14952:library_2escm"),(void*)f_14952}, -{C_text("f_14958:library_2escm"),(void*)f_14958}, -{C_text("f_14982:library_2escm"),(void*)f_14982}, -{C_text("f_14997:library_2escm"),(void*)f_14997}, -{C_text("f_15007:library_2escm"),(void*)f_15007}, -{C_text("f_15019:library_2escm"),(void*)f_15019}, -{C_text("f_15023:library_2escm"),(void*)f_15023}, -{C_text("f_15030:library_2escm"),(void*)f_15030}, -{C_text("f_15036:library_2escm"),(void*)f_15036}, -{C_text("f_15042:library_2escm"),(void*)f_15042}, -{C_text("f_15066:library_2escm"),(void*)f_15066}, -{C_text("f_15070:library_2escm"),(void*)f_15070}, -{C_text("f_15079:library_2escm"),(void*)f_15079}, -{C_text("f_15083:library_2escm"),(void*)f_15083}, -{C_text("f_15092:library_2escm"),(void*)f_15092}, -{C_text("f_15095:library_2escm"),(void*)f_15095}, -{C_text("f_15101:library_2escm"),(void*)f_15101}, -{C_text("f_15107:library_2escm"),(void*)f_15107}, -{C_text("f_15110:library_2escm"),(void*)f_15110}, -{C_text("f_15149:library_2escm"),(void*)f_15149}, -{C_text("f_15152:library_2escm"),(void*)f_15152}, -{C_text("f_15162:library_2escm"),(void*)f_15162}, -{C_text("f_15179:library_2escm"),(void*)f_15179}, -{C_text("f_15185:library_2escm"),(void*)f_15185}, -{C_text("f_15191:library_2escm"),(void*)f_15191}, -{C_text("f_15197:library_2escm"),(void*)f_15197}, -{C_text("f_15203:library_2escm"),(void*)f_15203}, -{C_text("f_15209:library_2escm"),(void*)f_15209}, -{C_text("f_15215:library_2escm"),(void*)f_15215}, -{C_text("f_15221:library_2escm"),(void*)f_15221}, -{C_text("f_15225:library_2escm"),(void*)f_15225}, -{C_text("f_15230:library_2escm"),(void*)f_15230}, -{C_text("f_15233:library_2escm"),(void*)f_15233}, -{C_text("f_15243:library_2escm"),(void*)f_15243}, -{C_text("f_15246:library_2escm"),(void*)f_15246}, -{C_text("f_15252:library_2escm"),(void*)f_15252}, -{C_text("f_15256:library_2escm"),(void*)f_15256}, -{C_text("f_15264:library_2escm"),(void*)f_15264}, -{C_text("f_15268:library_2escm"),(void*)f_15268}, -{C_text("f_15286:library_2escm"),(void*)f_15286}, -{C_text("f_15310:library_2escm"),(void*)f_15310}, -{C_text("f_15317:library_2escm"),(void*)f_15317}, -{C_text("f_15341:library_2escm"),(void*)f_15341}, -{C_text("f_15363:library_2escm"),(void*)f_15363}, -{C_text("f_15366:library_2escm"),(void*)f_15366}, -{C_text("f_15375:library_2escm"),(void*)f_15375}, -{C_text("f_15432:library_2escm"),(void*)f_15432}, -{C_text("f_15445:library_2escm"),(void*)f_15445}, -{C_text("f_15450:library_2escm"),(void*)f_15450}, -{C_text("f_15494:library_2escm"),(void*)f_15494}, -{C_text("f_15498:library_2escm"),(void*)f_15498}, -{C_text("f_15503:library_2escm"),(void*)f_15503}, -{C_text("f_15545:library_2escm"),(void*)f_15545}, -{C_text("f_15568:library_2escm"),(void*)f_15568}, -{C_text("f_15591:library_2escm"),(void*)f_15591}, -{C_text("f_15664:library_2escm"),(void*)f_15664}, -{C_text("f_15684:library_2escm"),(void*)f_15684}, -{C_text("f_15687:library_2escm"),(void*)f_15687}, -{C_text("f_15690:library_2escm"),(void*)f_15690}, -{C_text("f_15699:library_2escm"),(void*)f_15699}, -{C_text("f_15712:library_2escm"),(void*)f_15712}, -{C_text("f_15739:library_2escm"),(void*)f_15739}, -{C_text("f_15769:library_2escm"),(void*)f_15769}, -{C_text("f_15788:library_2escm"),(void*)f_15788}, -{C_text("f_15822:library_2escm"),(void*)f_15822}, -{C_text("f_15856:library_2escm"),(void*)f_15856}, -{C_text("f_15890:library_2escm"),(void*)f_15890}, -{C_text("f_15894:library_2escm"),(void*)f_15894}, -{C_text("f_15904:library_2escm"),(void*)f_15904}, -{C_text("f_15914:library_2escm"),(void*)f_15914}, -{C_text("f_15921:library_2escm"),(void*)f_15921}, -{C_text("f_15949:library_2escm"),(void*)f_15949}, -{C_text("f_15969:library_2escm"),(void*)f_15969}, -{C_text("f_15971:library_2escm"),(void*)f_15971}, -{C_text("f_15999:library_2escm"),(void*)f_15999}, -{C_text("f_16018:library_2escm"),(void*)f_16018}, -{C_text("f_16024:library_2escm"),(void*)f_16024}, -{C_text("f_16042:library_2escm"),(void*)f_16042}, -{C_text("f_16048:library_2escm"),(void*)f_16048}, -{C_text("f_16066:library_2escm"),(void*)f_16066}, -{C_text("f_16072:library_2escm"),(void*)f_16072}, -{C_text("f_16087:library_2escm"),(void*)f_16087}, -{C_text("f_16093:library_2escm"),(void*)f_16093}, -{C_text("f_16107:library_2escm"),(void*)f_16107}, -{C_text("f_16127:library_2escm"),(void*)f_16127}, -{C_text("f_16129:library_2escm"),(void*)f_16129}, -{C_text("f_16157:library_2escm"),(void*)f_16157}, -{C_text("f_16168:library_2escm"),(void*)f_16168}, -{C_text("f_16174:library_2escm"),(void*)f_16174}, -{C_text("f_16192:library_2escm"),(void*)f_16192}, -{C_text("f_16198:library_2escm"),(void*)f_16198}, -{C_text("f_16216:library_2escm"),(void*)f_16216}, -{C_text("f_16222:library_2escm"),(void*)f_16222}, -{C_text("f_16237:library_2escm"),(void*)f_16237}, -{C_text("f_16243:library_2escm"),(void*)f_16243}, -{C_text("f_16258:library_2escm"),(void*)f_16258}, -{C_text("f_16274:library_2escm"),(void*)f_16274}, -{C_text("f_16304:library_2escm"),(void*)f_16304}, -{C_text("f_16308:library_2escm"),(void*)f_16308}, -{C_text("f_16310:library_2escm"),(void*)f_16310}, -{C_text("f_16321:library_2escm"),(void*)f_16321}, -{C_text("f_16344:library_2escm"),(void*)f_16344}, -{C_text("f_16362:library_2escm"),(void*)f_16362}, -{C_text("f_16368:library_2escm"),(void*)f_16368}, -{C_text("f_16374:library_2escm"),(void*)f_16374}, -{C_text("f_16381:library_2escm"),(void*)f_16381}, -{C_text("f_16389:library_2escm"),(void*)f_16389}, -{C_text("f_16410:library_2escm"),(void*)f_16410}, -{C_text("f_16424:library_2escm"),(void*)f_16424}, -{C_text("f_16428:library_2escm"),(void*)f_16428}, -{C_text("f_16469:library_2escm"),(void*)f_16469}, -{C_text("f_16491:library_2escm"),(void*)f_16491}, -{C_text("f_16493:library_2escm"),(void*)f_16493}, -{C_text("f_16515:library_2escm"),(void*)f_16515}, -{C_text("f_16517:library_2escm"),(void*)f_16517}, -{C_text("f_16539:library_2escm"),(void*)f_16539}, -{C_text("f_16541:library_2escm"),(void*)f_16541}, -{C_text("f_16563:library_2escm"),(void*)f_16563}, -{C_text("f_16565:library_2escm"),(void*)f_16565}, -{C_text("f_16569:library_2escm"),(void*)f_16569}, -{C_text("f_16572:library_2escm"),(void*)f_16572}, -{C_text("f_16590:library_2escm"),(void*)f_16590}, -{C_text("f_16612:library_2escm"),(void*)f_16612}, -{C_text("f_16614:library_2escm"),(void*)f_16614}, -{C_text("f_16636:library_2escm"),(void*)f_16636}, -{C_text("f_16638:library_2escm"),(void*)f_16638}, -{C_text("f_16660:library_2escm"),(void*)f_16660}, -{C_text("f_16662:library_2escm"),(void*)f_16662}, -{C_text("f_16684:library_2escm"),(void*)f_16684}, -{C_text("f_16686:library_2escm"),(void*)f_16686}, -{C_text("f_16708:library_2escm"),(void*)f_16708}, -{C_text("f_16710:library_2escm"),(void*)f_16710}, -{C_text("f_16732:library_2escm"),(void*)f_16732}, -{C_text("f_16734:library_2escm"),(void*)f_16734}, -{C_text("f_16756:library_2escm"),(void*)f_16756}, -{C_text("f_16758:library_2escm"),(void*)f_16758}, -{C_text("f_16774:library_2escm"),(void*)f_16774}, -{C_text("f_16776:library_2escm"),(void*)f_16776}, -{C_text("f_16798:library_2escm"),(void*)f_16798}, -{C_text("f_16800:library_2escm"),(void*)f_16800}, -{C_text("f_16822:library_2escm"),(void*)f_16822}, -{C_text("f_16824:library_2escm"),(void*)f_16824}, -{C_text("f_16840:library_2escm"),(void*)f_16840}, -{C_text("f_16842:library_2escm"),(void*)f_16842}, -{C_text("f_16858:library_2escm"),(void*)f_16858}, -{C_text("f_16860:library_2escm"),(void*)f_16860}, -{C_text("f_16876:library_2escm"),(void*)f_16876}, -{C_text("f_16878:library_2escm"),(void*)f_16878}, -{C_text("f_16894:library_2escm"),(void*)f_16894}, -{C_text("f_16896:library_2escm"),(void*)f_16896}, -{C_text("f_16912:library_2escm"),(void*)f_16912}, -{C_text("f_16914:library_2escm"),(void*)f_16914}, -{C_text("f_16930:library_2escm"),(void*)f_16930}, -{C_text("f_16932:library_2escm"),(void*)f_16932}, -{C_text("f_16948:library_2escm"),(void*)f_16948}, -{C_text("f_16950:library_2escm"),(void*)f_16950}, -{C_text("f_16966:library_2escm"),(void*)f_16966}, -{C_text("f_16968:library_2escm"),(void*)f_16968}, -{C_text("f_16984:library_2escm"),(void*)f_16984}, -{C_text("f_16986:library_2escm"),(void*)f_16986}, -{C_text("f_17002:library_2escm"),(void*)f_17002}, -{C_text("f_17004:library_2escm"),(void*)f_17004}, -{C_text("f_17026:library_2escm"),(void*)f_17026}, -{C_text("f_17028:library_2escm"),(void*)f_17028}, -{C_text("f_17044:library_2escm"),(void*)f_17044}, -{C_text("f_17046:library_2escm"),(void*)f_17046}, -{C_text("f_17062:library_2escm"),(void*)f_17062}, -{C_text("f_17064:library_2escm"),(void*)f_17064}, -{C_text("f_17080:library_2escm"),(void*)f_17080}, -{C_text("f_17082:library_2escm"),(void*)f_17082}, -{C_text("f_17098:library_2escm"),(void*)f_17098}, -{C_text("f_17100:library_2escm"),(void*)f_17100}, -{C_text("f_17116:library_2escm"),(void*)f_17116}, -{C_text("f_17118:library_2escm"),(void*)f_17118}, -{C_text("f_17134:library_2escm"),(void*)f_17134}, -{C_text("f_17136:library_2escm"),(void*)f_17136}, -{C_text("f_17152:library_2escm"),(void*)f_17152}, -{C_text("f_17154:library_2escm"),(void*)f_17154}, -{C_text("f_17176:library_2escm"),(void*)f_17176}, -{C_text("f_17178:library_2escm"),(void*)f_17178}, -{C_text("f_17194:library_2escm"),(void*)f_17194}, -{C_text("f_17196:library_2escm"),(void*)f_17196}, -{C_text("f_17212:library_2escm"),(void*)f_17212}, -{C_text("f_17214:library_2escm"),(void*)f_17214}, -{C_text("f_17230:library_2escm"),(void*)f_17230}, -{C_text("f_17232:library_2escm"),(void*)f_17232}, -{C_text("f_17248:library_2escm"),(void*)f_17248}, -{C_text("f_17250:library_2escm"),(void*)f_17250}, -{C_text("f_17268:library_2escm"),(void*)f_17268}, -{C_text("f_17278:library_2escm"),(void*)f_17278}, -{C_text("f_17282:library_2escm"),(void*)f_17282}, -{C_text("f_17304:library_2escm"),(void*)f_17304}, -{C_text("f_17308:library_2escm"),(void*)f_17308}, -{C_text("f_17311:library_2escm"),(void*)f_17311}, -{C_text("f_17316:library_2escm"),(void*)f_17316}, -{C_text("f_17320:library_2escm"),(void*)f_17320}, -{C_text("f_17323:library_2escm"),(void*)f_17323}, -{C_text("f_17326:library_2escm"),(void*)f_17326}, -{C_text("f_17339:library_2escm"),(void*)f_17339}, -{C_text("f_17362:library_2escm"),(void*)f_17362}, -{C_text("f_17388:library_2escm"),(void*)f_17388}, -{C_text("f_17397:library_2escm"),(void*)f_17397}, -{C_text("f_17402:library_2escm"),(void*)f_17402}, -{C_text("f_17404:library_2escm"),(void*)f_17404}, -{C_text("f_17448:library_2escm"),(void*)f_17448}, -{C_text("f_17494:library_2escm"),(void*)f_17494}, -{C_text("f_17518:library_2escm"),(void*)f_17518}, -{C_text("f_17522:library_2escm"),(void*)f_17522}, -{C_text("f_17540:library_2escm"),(void*)f_17540}, -{C_text("f_17564:library_2escm"),(void*)f_17564}, -{C_text("f_17568:library_2escm"),(void*)f_17568}, -{C_text("f_17586:library_2escm"),(void*)f_17586}, -{C_text("f_17627:library_2escm"),(void*)f_17627}, -{C_text("f_17638:library_2escm"),(void*)f_17638}, -{C_text("f_17644:library_2escm"),(void*)f_17644}, -{C_text("f_17648:library_2escm"),(void*)f_17648}, -{C_text("f_17662:library_2escm"),(void*)f_17662}, -{C_text("f_17675:library_2escm"),(void*)f_17675}, -{C_text("f_17679:library_2escm"),(void*)f_17679}, -{C_text("f_17696:library_2escm"),(void*)f_17696}, -{C_text("f_17700:library_2escm"),(void*)f_17700}, -{C_text("f_17706:library_2escm"),(void*)f_17706}, -{C_text("f_17710:library_2escm"),(void*)f_17710}, -{C_text("f_17750:library_2escm"),(void*)f_17750}, -{C_text("f_17754:library_2escm"),(void*)f_17754}, -{C_text("f_17774:library_2escm"),(void*)f_17774}, -{C_text("f_17777:library_2escm"),(void*)f_17777}, -{C_text("f_17780:library_2escm"),(void*)f_17780}, -{C_text("f_17783:library_2escm"),(void*)f_17783}, -{C_text("f_17786:library_2escm"),(void*)f_17786}, -{C_text("f_17807:library_2escm"),(void*)f_17807}, -{C_text("f_17809:library_2escm"),(void*)f_17809}, -{C_text("f_17827:library_2escm"),(void*)f_17827}, -{C_text("f_17837:library_2escm"),(void*)f_17837}, -{C_text("f_17841:library_2escm"),(void*)f_17841}, -{C_text("f_17879:library_2escm"),(void*)f_17879}, -{C_text("f_17882:library_2escm"),(void*)f_17882}, -{C_text("f_17885:library_2escm"),(void*)f_17885}, -{C_text("f_17888:library_2escm"),(void*)f_17888}, -{C_text("f_17894:library_2escm"),(void*)f_17894}, -{C_text("f_17897:library_2escm"),(void*)f_17897}, -{C_text("f_17945:library_2escm"),(void*)f_17945}, -{C_text("f_17949:library_2escm"),(void*)f_17949}, -{C_text("f_18026:library_2escm"),(void*)f_18026}, -{C_text("f_18065:library_2escm"),(void*)f_18065}, -{C_text("f_18120:library_2escm"),(void*)f_18120}, -{C_text("f_18165:library_2escm"),(void*)f_18165}, -{C_text("f_18210:library_2escm"),(void*)f_18210}, -{C_text("f_18247:library_2escm"),(void*)f_18247}, -{C_text("f_18267:library_2escm"),(void*)f_18267}, -{C_text("f_18291:library_2escm"),(void*)f_18291}, -{C_text("f_18294:library_2escm"),(void*)f_18294}, -{C_text("f_18298:library_2escm"),(void*)f_18298}, -{C_text("f_18301:library_2escm"),(void*)f_18301}, -{C_text("f_18319:library_2escm"),(void*)f_18319}, -{C_text("f_18342:library_2escm"),(void*)f_18342}, -{C_text("f_18346:library_2escm"),(void*)f_18346}, -{C_text("f_18369:library_2escm"),(void*)f_18369}, -{C_text("f_18373:library_2escm"),(void*)f_18373}, -{C_text("f_18405:library_2escm"),(void*)f_18405}, -{C_text("f_18441:library_2escm"),(void*)f_18441}, -{C_text("f_18445:library_2escm"),(void*)f_18445}, -{C_text("f_18464:library_2escm"),(void*)f_18464}, -{C_text("f_18466:library_2escm"),(void*)f_18466}, -{C_text("f_18473:library_2escm"),(void*)f_18473}, -{C_text("f_18510:library_2escm"),(void*)f_18510}, -{C_text("f_18517:library_2escm"),(void*)f_18517}, -{C_text("f_18554:library_2escm"),(void*)f_18554}, -{C_text("f_18572:library_2escm"),(void*)f_18572}, -{C_text("f_18581:library_2escm"),(void*)f_18581}, -{C_text("f_18586:library_2escm"),(void*)f_18586}, -{C_text("f_18599:library_2escm"),(void*)f_18599}, -{C_text("f_18625:library_2escm"),(void*)f_18625}, -{C_text("f_18633:library_2escm"),(void*)f_18633}, -{C_text("f_18637:library_2escm"),(void*)f_18637}, -{C_text("f_18641:library_2escm"),(void*)f_18641}, -{C_text("f_18645:library_2escm"),(void*)f_18645}, -{C_text("f_18648:library_2escm"),(void*)f_18648}, -{C_text("f_18662:library_2escm"),(void*)f_18662}, -{C_text("f_18666:library_2escm"),(void*)f_18666}, -{C_text("f_18677:library_2escm"),(void*)f_18677}, -{C_text("f_18701:library_2escm"),(void*)f_18701}, -{C_text("f_18705:library_2escm"),(void*)f_18705}, -{C_text("f_18711:library_2escm"),(void*)f_18711}, -{C_text("f_18735:library_2escm"),(void*)f_18735}, -{C_text("f_18739:library_2escm"),(void*)f_18739}, -{C_text("f_18745:library_2escm"),(void*)f_18745}, -{C_text("f_18762:library_2escm"),(void*)f_18762}, -{C_text("f_18766:library_2escm"),(void*)f_18766}, -{C_text("f_18770:library_2escm"),(void*)f_18770}, -{C_text("f_18780:library_2escm"),(void*)f_18780}, -{C_text("f_18786:library_2escm"),(void*)f_18786}, -{C_text("f_18793:library_2escm"),(void*)f_18793}, -{C_text("f_18805:library_2escm"),(void*)f_18805}, -{C_text("f_18828:library_2escm"),(void*)f_18828}, -{C_text("f_18832:library_2escm"),(void*)f_18832}, -{C_text("f_18842:library_2escm"),(void*)f_18842}, -{C_text("f_18848:library_2escm"),(void*)f_18848}, -{C_text("f_18855:library_2escm"),(void*)f_18855}, -{C_text("f_18870:library_2escm"),(void*)f_18870}, -{C_text("f_18874:library_2escm"),(void*)f_18874}, -{C_text("f_18907:library_2escm"),(void*)f_18907}, -{C_text("f_18911:library_2escm"),(void*)f_18911}, -{C_text("f_18928:library_2escm"),(void*)f_18928}, -{C_text("f_18938:library_2escm"),(void*)f_18938}, -{C_text("f_19011:library_2escm"),(void*)f_19011}, -{C_text("f_19025:library_2escm"),(void*)f_19025}, -{C_text("f_19042:library_2escm"),(void*)f_19042}, -{C_text("f_19058:library_2escm"),(void*)f_19058}, -{C_text("f_19129:library_2escm"),(void*)f_19129}, -{C_text("f_19133:library_2escm"),(void*)f_19133}, -{C_text("f_19138:library_2escm"),(void*)f_19138}, -{C_text("f_19148:library_2escm"),(void*)f_19148}, -{C_text("f_19152:library_2escm"),(void*)f_19152}, -{C_text("f_19167:library_2escm"),(void*)f_19167}, -{C_text("f_19171:library_2escm"),(void*)f_19171}, -{C_text("f_19188:library_2escm"),(void*)f_19188}, -{C_text("f_19199:library_2escm"),(void*)f_19199}, -{C_text("f_19205:library_2escm"),(void*)f_19205}, -{C_text("f_19216:library_2escm"),(void*)f_19216}, -{C_text("f_19227:library_2escm"),(void*)f_19227}, -{C_text("f_19239:library_2escm"),(void*)f_19239}, -{C_text("f_19251:library_2escm"),(void*)f_19251}, -{C_text("f_19263:library_2escm"),(void*)f_19263}, -{C_text("f_19280:library_2escm"),(void*)f_19280}, -{C_text("f_19287:library_2escm"),(void*)f_19287}, -{C_text("f_19291:library_2escm"),(void*)f_19291}, -{C_text("f_19293:library_2escm"),(void*)f_19293}, -{C_text("f_19300:library_2escm"),(void*)f_19300}, -{C_text("f_19306:library_2escm"),(void*)f_19306}, -{C_text("f_19312:library_2escm"),(void*)f_19312}, -{C_text("f_19355:library_2escm"),(void*)f_19355}, -{C_text("f_19361:library_2escm"),(void*)f_19361}, -{C_text("f_19367:library_2escm"),(void*)f_19367}, -{C_text("f_19370:library_2escm"),(void*)f_19370}, -{C_text("f_19376:library_2escm"),(void*)f_19376}, -{C_text("f_19382:library_2escm"),(void*)f_19382}, -{C_text("f_19385:library_2escm"),(void*)f_19385}, -{C_text("f_19391:library_2escm"),(void*)f_19391}, -{C_text("f_19395:library_2escm"),(void*)f_19395}, -{C_text("f_19398:library_2escm"),(void*)f_19398}, -{C_text("f_19403:library_2escm"),(void*)f_19403}, -{C_text("f_19413:library_2escm"),(void*)f_19413}, -{C_text("f_19433:library_2escm"),(void*)f_19433}, -{C_text("f_19448:library_2escm"),(void*)f_19448}, -{C_text("f_19478:library_2escm"),(void*)f_19478}, -{C_text("f_19489:library_2escm"),(void*)f_19489}, -{C_text("f_19505:library_2escm"),(void*)f_19505}, -{C_text("f_19509:library_2escm"),(void*)f_19509}, -{C_text("f_19513:library_2escm"),(void*)f_19513}, -{C_text("f_19529:library_2escm"),(void*)f_19529}, -{C_text("f_19547:library_2escm"),(void*)f_19547}, -{C_text("f_19558:library_2escm"),(void*)f_19558}, -{C_text("f_19580:library_2escm"),(void*)f_19580}, -{C_text("f_19597:library_2escm"),(void*)f_19597}, -{C_text("f_19600:library_2escm"),(void*)f_19600}, -{C_text("f_19612:library_2escm"),(void*)f_19612}, -{C_text("f_19614:library_2escm"),(void*)f_19614}, -{C_text("f_19635:library_2escm"),(void*)f_19635}, -{C_text("f_19666:library_2escm"),(void*)f_19666}, -{C_text("f_19670:library_2escm"),(void*)f_19670}, -{C_text("f_19705:library_2escm"),(void*)f_19705}, -{C_text("f_19712:library_2escm"),(void*)f_19712}, -{C_text("f_19724:library_2escm"),(void*)f_19724}, -{C_text("f_19744:library_2escm"),(void*)f_19744}, -{C_text("f_19748:library_2escm"),(void*)f_19748}, -{C_text("f_19768:library_2escm"),(void*)f_19768}, -{C_text("f_19788:library_2escm"),(void*)f_19788}, -{C_text("f_19792:library_2escm"),(void*)f_19792}, -{C_text("f_19796:library_2escm"),(void*)f_19796}, -{C_text("f_19803:library_2escm"),(void*)f_19803}, -{C_text("f_19819:library_2escm"),(void*)f_19819}, -{C_text("f_19823:library_2escm"),(void*)f_19823}, -{C_text("f_19864:library_2escm"),(void*)f_19864}, -{C_text("f_19897:library_2escm"),(void*)f_19897}, -{C_text("f_19926:library_2escm"),(void*)f_19926}, -{C_text("f_19934:library_2escm"),(void*)f_19934}, -{C_text("f_19940:library_2escm"),(void*)f_19940}, -{C_text("f_19960:library_2escm"),(void*)f_19960}, -{C_text("f_19985:library_2escm"),(void*)f_19985}, -{C_text("f_19991:library_2escm"),(void*)f_19991}, -{C_text("f_19995:library_2escm"),(void*)f_19995}, -{C_text("f_20005:library_2escm"),(void*)f_20005}, -{C_text("f_20025:library_2escm"),(void*)f_20025}, -{C_text("f_20046:library_2escm"),(void*)f_20046}, -{C_text("f_20063:library_2escm"),(void*)f_20063}, -{C_text("f_20070:library_2escm"),(void*)f_20070}, -{C_text("f_20075:library_2escm"),(void*)f_20075}, -{C_text("f_20081:library_2escm"),(void*)f_20081}, -{C_text("f_20085:library_2escm"),(void*)f_20085}, -{C_text("f_20088:library_2escm"),(void*)f_20088}, -{C_text("f_20095:library_2escm"),(void*)f_20095}, -{C_text("f_20113:library_2escm"),(void*)f_20113}, -{C_text("f_20127:library_2escm"),(void*)f_20127}, -{C_text("f_20131:library_2escm"),(void*)f_20131}, -{C_text("f_20168:library_2escm"),(void*)f_20168}, -{C_text("f_20176:library_2escm"),(void*)f_20176}, -{C_text("f_20205:library_2escm"),(void*)f_20205}, -{C_text("f_20208:library_2escm"),(void*)f_20208}, -{C_text("f_20223:library_2escm"),(void*)f_20223}, -{C_text("f_20226:library_2escm"),(void*)f_20226}, -{C_text("f_20233:library_2escm"),(void*)f_20233}, -{C_text("f_20244:library_2escm"),(void*)f_20244}, -{C_text("f_20262:library_2escm"),(void*)f_20262}, -{C_text("f_20287:library_2escm"),(void*)f_20287}, -{C_text("f_20302:library_2escm"),(void*)f_20302}, -{C_text("f_20330:library_2escm"),(void*)f_20330}, -{C_text("f_20334:library_2escm"),(void*)f_20334}, -{C_text("f_20348:library_2escm"),(void*)f_20348}, -{C_text("f_20408:library_2escm"),(void*)f_20408}, -{C_text("f_20428:library_2escm"),(void*)f_20428}, -{C_text("f_20434:library_2escm"),(void*)f_20434}, -{C_text("f_20494:library_2escm"),(void*)f_20494}, -{C_text("f_20532:library_2escm"),(void*)f_20532}, -{C_text("f_20538:library_2escm"),(void*)f_20538}, -{C_text("f_20580:library_2escm"),(void*)f_20580}, -{C_text("f_20584:library_2escm"),(void*)f_20584}, -{C_text("f_20587:library_2escm"),(void*)f_20587}, -{C_text("f_20636:library_2escm"),(void*)f_20636}, -{C_text("f_20649:library_2escm"),(void*)f_20649}, -{C_text("f_20655:library_2escm"),(void*)f_20655}, -{C_text("f_20689:library_2escm"),(void*)f_20689}, -{C_text("f_20699:library_2escm"),(void*)f_20699}, -{C_text("f_20708:library_2escm"),(void*)f_20708}, -{C_text("f_20720:library_2escm"),(void*)f_20720}, -{C_text("f_20729:library_2escm"),(void*)f_20729}, -{C_text("f_20741:library_2escm"),(void*)f_20741}, -{C_text("f_20747:library_2escm"),(void*)f_20747}, -{C_text("f_20753:library_2escm"),(void*)f_20753}, -{C_text("f_20795:library_2escm"),(void*)f_20795}, -{C_text("f_20901:library_2escm"),(void*)f_20901}, -{C_text("f_20908:library_2escm"),(void*)f_20908}, -{C_text("f_20921:library_2escm"),(void*)f_20921}, -{C_text("f_20979:library_2escm"),(void*)f_20979}, -{C_text("f_20997:library_2escm"),(void*)f_20997}, -{C_text("f_21007:library_2escm"),(void*)f_21007}, -{C_text("f_21043:library_2escm"),(void*)f_21043}, -{C_text("f_21069:library_2escm"),(void*)f_21069}, -{C_text("f_21080:library_2escm"),(void*)f_21080}, -{C_text("f_21243:library_2escm"),(void*)f_21243}, -{C_text("f_21256:library_2escm"),(void*)f_21256}, -{C_text("f_21311:library_2escm"),(void*)f_21311}, -{C_text("f_21349:library_2escm"),(void*)f_21349}, -{C_text("f_21397:library_2escm"),(void*)f_21397}, -{C_text("f_21474:library_2escm"),(void*)f_21474}, -{C_text("f_21477:library_2escm"),(void*)f_21477}, -{C_text("f_21489:library_2escm"),(void*)f_21489}, -{C_text("f_21571:library_2escm"),(void*)f_21571}, -{C_text("f_21635:library_2escm"),(void*)f_21635}, -{C_text("f_21713:library_2escm"),(void*)f_21713}, -{C_text("f_21723:library_2escm"),(void*)f_21723}, -{C_text("f_21730:library_2escm"),(void*)f_21730}, -{C_text("f_21962:library_2escm"),(void*)f_21962}, -{C_text("f_22008:library_2escm"),(void*)f_22008}, -{C_text("f_22011:library_2escm"),(void*)f_22011}, -{C_text("f_22038:library_2escm"),(void*)f_22038}, -{C_text("f_22062:library_2escm"),(void*)f_22062}, -{C_text("f_22079:library_2escm"),(void*)f_22079}, -{C_text("f_22195:library_2escm"),(void*)f_22195}, -{C_text("f_22198:library_2escm"),(void*)f_22198}, -{C_text("f_22208:library_2escm"),(void*)f_22208}, -{C_text("f_22210:library_2escm"),(void*)f_22210}, -{C_text("f_22216:library_2escm"),(void*)f_22216}, -{C_text("f_22226:library_2escm"),(void*)f_22226}, -{C_text("f_22229:library_2escm"),(void*)f_22229}, -{C_text("f_22237:library_2escm"),(void*)f_22237}, -{C_text("f_22239:library_2escm"),(void*)f_22239}, -{C_text("f_22248:library_2escm"),(void*)f_22248}, -{C_text("f_22257:library_2escm"),(void*)f_22257}, -{C_text("f_22268:library_2escm"),(void*)f_22268}, -{C_text("f_22270:library_2escm"),(void*)f_22270}, -{C_text("f_22287:library_2escm"),(void*)f_22287}, -{C_text("f_22291:library_2escm"),(void*)f_22291}, -{C_text("f_22295:library_2escm"),(void*)f_22295}, -{C_text("f_22299:library_2escm"),(void*)f_22299}, -{C_text("f_22308:library_2escm"),(void*)f_22308}, -{C_text("f_22328:library_2escm"),(void*)f_22328}, -{C_text("f_22336:library_2escm"),(void*)f_22336}, -{C_text("f_22351:library_2escm"),(void*)f_22351}, -{C_text("f_22353:library_2escm"),(void*)f_22353}, -{C_text("f_22378:library_2escm"),(void*)f_22378}, -{C_text("f_22387:library_2escm"),(void*)f_22387}, -{C_text("f_22390:library_2escm"),(void*)f_22390}, -{C_text("f_22401:library_2escm"),(void*)f_22401}, -{C_text("f_22403:library_2escm"),(void*)f_22403}, -{C_text("f_22410:library_2escm"),(void*)f_22410}, -{C_text("f_22421:library_2escm"),(void*)f_22421}, -{C_text("f_22428:library_2escm"),(void*)f_22428}, -{C_text("f_22452:library_2escm"),(void*)f_22452}, -{C_text("f_22465:library_2escm"),(void*)f_22465}, -{C_text("f_22486:library_2escm"),(void*)f_22486}, -{C_text("f_22493:library_2escm"),(void*)f_22493}, -{C_text("f_22498:library_2escm"),(void*)f_22498}, -{C_text("f_22511:library_2escm"),(void*)f_22511}, -{C_text("f_22525:library_2escm"),(void*)f_22525}, -{C_text("f_22549:library_2escm"),(void*)f_22549}, -{C_text("f_22555:library_2escm"),(void*)f_22555}, -{C_text("f_22564:library_2escm"),(void*)f_22564}, -{C_text("f_22567:library_2escm"),(void*)f_22567}, -{C_text("f_22570:library_2escm"),(void*)f_22570}, -{C_text("f_22584:library_2escm"),(void*)f_22584}, -{C_text("f_22586:library_2escm"),(void*)f_22586}, -{C_text("f_22596:library_2escm"),(void*)f_22596}, -{C_text("f_22626:library_2escm"),(void*)f_22626}, -{C_text("f_22643:library_2escm"),(void*)f_22643}, -{C_text("f_22645:library_2escm"),(void*)f_22645}, -{C_text("f_22655:library_2escm"),(void*)f_22655}, -{C_text("f_22661:library_2escm"),(void*)f_22661}, -{C_text("f_22683:library_2escm"),(void*)f_22683}, -{C_text("f_22688:library_2escm"),(void*)f_22688}, -{C_text("f_22693:library_2escm"),(void*)f_22693}, -{C_text("f_22714:library_2escm"),(void*)f_22714}, -{C_text("f_22739:library_2escm"),(void*)f_22739}, -{C_text("f_22745:library_2escm"),(void*)f_22745}, -{C_text("f_22751:library_2escm"),(void*)f_22751}, -{C_text("f_22754:library_2escm"),(void*)f_22754}, -{C_text("f_22795:library_2escm"),(void*)f_22795}, -{C_text("f_22829:library_2escm"),(void*)f_22829}, -{C_text("f_22832:library_2escm"),(void*)f_22832}, -{C_text("f_22835:library_2escm"),(void*)f_22835}, -{C_text("f_22838:library_2escm"),(void*)f_22838}, -{C_text("f_22877:library_2escm"),(void*)f_22877}, -{C_text("f_22883:library_2escm"),(void*)f_22883}, -{C_text("f_22893:library_2escm"),(void*)f_22893}, -{C_text("f_22898:library_2escm"),(void*)f_22898}, -{C_text("f_22935:library_2escm"),(void*)f_22935}, -{C_text("f_22942:library_2escm"),(void*)f_22942}, -{C_text("f_22964:library_2escm"),(void*)f_22964}, -{C_text("f_22980:library_2escm"),(void*)f_22980}, -{C_text("f_22985:library_2escm"),(void*)f_22985}, -{C_text("f_23016:library_2escm"),(void*)f_23016}, -{C_text("f_23038:library_2escm"),(void*)f_23038}, -{C_text("f_23041:library_2escm"),(void*)f_23041}, -{C_text("f_23046:library_2escm"),(void*)f_23046}, -{C_text("f_23064:library_2escm"),(void*)f_23064}, -{C_text("f_23102:library_2escm"),(void*)f_23102}, -{C_text("f_23108:library_2escm"),(void*)f_23108}, -{C_text("f_23130:library_2escm"),(void*)f_23130}, -{C_text("f_23133:library_2escm"),(void*)f_23133}, -{C_text("f_23138:library_2escm"),(void*)f_23138}, -{C_text("f_23189:library_2escm"),(void*)f_23189}, -{C_text("f_23206:library_2escm"),(void*)f_23206}, -{C_text("f_23213:library_2escm"),(void*)f_23213}, -{C_text("f_23216:library_2escm"),(void*)f_23216}, -{C_text("f_23219:library_2escm"),(void*)f_23219}, -{C_text("f_23224:library_2escm"),(void*)f_23224}, -{C_text("f_23296:library_2escm"),(void*)f_23296}, -{C_text("f_23316:library_2escm"),(void*)f_23316}, -{C_text("f_23329:library_2escm"),(void*)f_23329}, -{C_text("f_23332:library_2escm"),(void*)f_23332}, -{C_text("f_23335:library_2escm"),(void*)f_23335}, -{C_text("f_23338:library_2escm"),(void*)f_23338}, -{C_text("f_23357:library_2escm"),(void*)f_23357}, -{C_text("f_23391:library_2escm"),(void*)f_23391}, -{C_text("f_23469:library_2escm"),(void*)f_23469}, -{C_text("f_23484:library_2escm"),(void*)f_23484}, -{C_text("f_23487:library_2escm"),(void*)f_23487}, -{C_text("f_23492:library_2escm"),(void*)f_23492}, -{C_text("f_23502:library_2escm"),(void*)f_23502}, -{C_text("f_23532:library_2escm"),(void*)f_23532}, -{C_text("f_23556:library_2escm"),(void*)f_23556}, -{C_text("f_23590:library_2escm"),(void*)f_23590}, -{C_text("f_23613:library_2escm"),(void*)f_23613}, -{C_text("f_23632:library_2escm"),(void*)f_23632}, -{C_text("f_23635:library_2escm"),(void*)f_23635}, -{C_text("f_23638:library_2escm"),(void*)f_23638}, -{C_text("f_23643:library_2escm"),(void*)f_23643}, -{C_text("f_23676:library_2escm"),(void*)f_23676}, -{C_text("f_23697:library_2escm"),(void*)f_23697}, -{C_text("f_23701:library_2escm"),(void*)f_23701}, -{C_text("f_23704:library_2escm"),(void*)f_23704}, -{C_text("f_23709:library_2escm"),(void*)f_23709}, -{C_text("f_23736:library_2escm"),(void*)f_23736}, -{C_text("f_23752:library_2escm"),(void*)f_23752}, -{C_text("f_23768:library_2escm"),(void*)f_23768}, -{C_text("f_23785:library_2escm"),(void*)f_23785}, -{C_text("f_23799:library_2escm"),(void*)f_23799}, -{C_text("f_23815:library_2escm"),(void*)f_23815}, -{C_text("f_23828:library_2escm"),(void*)f_23828}, -{C_text("f_23842:library_2escm"),(void*)f_23842}, -{C_text("f_23858:library_2escm"),(void*)f_23858}, -{C_text("f_23871:library_2escm"),(void*)f_23871}, -{C_text("f_23885:library_2escm"),(void*)f_23885}, -{C_text("f_23901:library_2escm"),(void*)f_23901}, -{C_text("f_23914:library_2escm"),(void*)f_23914}, -{C_text("f_23928:library_2escm"),(void*)f_23928}, -{C_text("f_23944:library_2escm"),(void*)f_23944}, -{C_text("f_23959:library_2escm"),(void*)f_23959}, -{C_text("f_23961:library_2escm"),(void*)f_23961}, -{C_text("f_23974:library_2escm"),(void*)f_23974}, -{C_text("f_24002:library_2escm"),(void*)f_24002}, -{C_text("f_24015:library_2escm"),(void*)f_24015}, -{C_text("f_24033:library_2escm"),(void*)f_24033}, -{C_text("f_24036:library_2escm"),(void*)f_24036}, -{C_text("f_24119:library_2escm"),(void*)f_24119}, -{C_text("f_24122:library_2escm"),(void*)f_24122}, -{C_text("f_24125:library_2escm"),(void*)f_24125}, -{C_text("f_24128:library_2escm"),(void*)f_24128}, -{C_text("f_24131:library_2escm"),(void*)f_24131}, -{C_text("f_24134:library_2escm"),(void*)f_24134}, -{C_text("f_24137:library_2escm"),(void*)f_24137}, -{C_text("f_24140:library_2escm"),(void*)f_24140}, -{C_text("f_24143:library_2escm"),(void*)f_24143}, -{C_text("f_24146:library_2escm"),(void*)f_24146}, -{C_text("f_24149:library_2escm"),(void*)f_24149}, -{C_text("f_24152:library_2escm"),(void*)f_24152}, -{C_text("f_24155:library_2escm"),(void*)f_24155}, -{C_text("f_24158:library_2escm"),(void*)f_24158}, -{C_text("f_24163:library_2escm"),(void*)f_24163}, -{C_text("f_24169:library_2escm"),(void*)f_24169}, -{C_text("f_24185:library_2escm"),(void*)f_24185}, -{C_text("f_24201:library_2escm"),(void*)f_24201}, -{C_text("f_24207:library_2escm"),(void*)f_24207}, -{C_text("f_24227:library_2escm"),(void*)f_24227}, -{C_text("f_24231:library_2escm"),(void*)f_24231}, -{C_text("f_24243:library_2escm"),(void*)f_24243}, -{C_text("f_24249:library_2escm"),(void*)f_24249}, -{C_text("f_24255:library_2escm"),(void*)f_24255}, -{C_text("f_24287:library_2escm"),(void*)f_24287}, -{C_text("f_24291:library_2escm"),(void*)f_24291}, -{C_text("f_24301:library_2escm"),(void*)f_24301}, -{C_text("f_24316:library_2escm"),(void*)f_24316}, -{C_text("f_24326:library_2escm"),(void*)f_24326}, -{C_text("f_24346:library_2escm"),(void*)f_24346}, -{C_text("f_24353:library_2escm"),(void*)f_24353}, -{C_text("f_24362:library_2escm"),(void*)f_24362}, -{C_text("f_24369:library_2escm"),(void*)f_24369}, -{C_text("f_24371:library_2escm"),(void*)f_24371}, -{C_text("f_24377:library_2escm"),(void*)f_24377}, -{C_text("f_24383:library_2escm"),(void*)f_24383}, -{C_text("f_24401:library_2escm"),(void*)f_24401}, -{C_text("f_24426:library_2escm"),(void*)f_24426}, -{C_text("f_24442:library_2escm"),(void*)f_24442}, -{C_text("f_24449:library_2escm"),(void*)f_24449}, -{C_text("f_24462:library_2escm"),(void*)f_24462}, -{C_text("f_24466:library_2escm"),(void*)f_24466}, -{C_text("f_24470:library_2escm"),(void*)f_24470}, -{C_text("f_24472:library_2escm"),(void*)f_24472}, -{C_text("f_24478:library_2escm"),(void*)f_24478}, -{C_text("f_24485:library_2escm"),(void*)f_24485}, -{C_text("f_24489:library_2escm"),(void*)f_24489}, -{C_text("f_24498:library_2escm"),(void*)f_24498}, -{C_text("f_24506:library_2escm"),(void*)f_24506}, -{C_text("f_24516:library_2escm"),(void*)f_24516}, -{C_text("f_24522:library_2escm"),(void*)f_24522}, -{C_text("f_24525:library_2escm"),(void*)f_24525}, -{C_text("f_24529:library_2escm"),(void*)f_24529}, -{C_text("f_24556:library_2escm"),(void*)f_24556}, -{C_text("f_24572:library_2escm"),(void*)f_24572}, -{C_text("f_24578:library_2escm"),(void*)f_24578}, -{C_text("f_24601:library_2escm"),(void*)f_24601}, -{C_text("f_24614:library_2escm"),(void*)f_24614}, -{C_text("f_24618:library_2escm"),(void*)f_24618}, -{C_text("f_24627:library_2escm"),(void*)f_24627}, -{C_text("f_24673:library_2escm"),(void*)f_24673}, -{C_text("f_24677:library_2escm"),(void*)f_24677}, -{C_text("f_24681:library_2escm"),(void*)f_24681}, -{C_text("f_24684:library_2escm"),(void*)f_24684}, -{C_text("f_24687:library_2escm"),(void*)f_24687}, -{C_text("f_24690:library_2escm"),(void*)f_24690}, -{C_text("f_24692:library_2escm"),(void*)f_24692}, -{C_text("f_24703:library_2escm"),(void*)f_24703}, -{C_text("f_24714:library_2escm"),(void*)f_24714}, -{C_text("f_24725:library_2escm"),(void*)f_24725}, -{C_text("f_24736:library_2escm"),(void*)f_24736}, -{C_text("f_24749:library_2escm"),(void*)f_24749}, -{C_text("f_24751:library_2escm"),(void*)f_24751}, -{C_text("f_24757:library_2escm"),(void*)f_24757}, -{C_text("f_24762:library_2escm"),(void*)f_24762}, -{C_text("f_24797:library_2escm"),(void*)f_24797}, -{C_text("f_24810:library_2escm"),(void*)f_24810}, -{C_text("f_24812:library_2escm"),(void*)f_24812}, -{C_text("f_24818:library_2escm"),(void*)f_24818}, -{C_text("f_24823:library_2escm"),(void*)f_24823}, -{C_text("f_24858:library_2escm"),(void*)f_24858}, -{C_text("f_24871:library_2escm"),(void*)f_24871}, -{C_text("f_24873:library_2escm"),(void*)f_24873}, -{C_text("f_24879:library_2escm"),(void*)f_24879}, -{C_text("f_24884:library_2escm"),(void*)f_24884}, -{C_text("f_24919:library_2escm"),(void*)f_24919}, -{C_text("f_24931:library_2escm"),(void*)f_24931}, -{C_text("f_24933:library_2escm"),(void*)f_24933}, -{C_text("f_24939:library_2escm"),(void*)f_24939}, -{C_text("f_24946:library_2escm"),(void*)f_24946}, -{C_text("f_24956:library_2escm"),(void*)f_24956}, -{C_text("f_24959:library_2escm"),(void*)f_24959}, -{C_text("f_24962:library_2escm"),(void*)f_24962}, -{C_text("f_24968:library_2escm"),(void*)f_24968}, -{C_text("f_24971:library_2escm"),(void*)f_24971}, -{C_text("f_24978:library_2escm"),(void*)f_24978}, -{C_text("f_24982:library_2escm"),(void*)f_24982}, -{C_text("f_24986:library_2escm"),(void*)f_24986}, -{C_text("f_24990:library_2escm"),(void*)f_24990}, -{C_text("f_24996:library_2escm"),(void*)f_24996}, -{C_text("f_25009:library_2escm"),(void*)f_25009}, -{C_text("f_25053:library_2escm"),(void*)f_25053}, -{C_text("f_25063:library_2escm"),(void*)f_25063}, -{C_text("f_25176:library_2escm"),(void*)f_25176}, -{C_text("f_25180:library_2escm"),(void*)f_25180}, -{C_text("f_25213:library_2escm"),(void*)f_25213}, -{C_text("f_25219:library_2escm"),(void*)f_25219}, -{C_text("f_25225:library_2escm"),(void*)f_25225}, -{C_text("f_25231:library_2escm"),(void*)f_25231}, -{C_text("f_25237:library_2escm"),(void*)f_25237}, -{C_text("f_25241:library_2escm"),(void*)f_25241}, -{C_text("f_25246:library_2escm"),(void*)f_25246}, -{C_text("f_25252:library_2escm"),(void*)f_25252}, -{C_text("f_25256:library_2escm"),(void*)f_25256}, -{C_text("f_25261:library_2escm"),(void*)f_25261}, -{C_text("f_25265:library_2escm"),(void*)f_25265}, -{C_text("f_25270:library_2escm"),(void*)f_25270}, -{C_text("f_25276:library_2escm"),(void*)f_25276}, -{C_text("f_25280:library_2escm"),(void*)f_25280}, -{C_text("f_25285:library_2escm"),(void*)f_25285}, -{C_text("f_25289:library_2escm"),(void*)f_25289}, -{C_text("f_25294:library_2escm"),(void*)f_25294}, -{C_text("f_25299:library_2escm"),(void*)f_25299}, -{C_text("f_25305:library_2escm"),(void*)f_25305}, -{C_text("f_25309:library_2escm"),(void*)f_25309}, -{C_text("f_25314:library_2escm"),(void*)f_25314}, -{C_text("f_25319:library_2escm"),(void*)f_25319}, -{C_text("f_25323:library_2escm"),(void*)f_25323}, -{C_text("f_25328:library_2escm"),(void*)f_25328}, -{C_text("f_25333:library_2escm"),(void*)f_25333}, -{C_text("f_25339:library_2escm"),(void*)f_25339}, -{C_text("f_25343:library_2escm"),(void*)f_25343}, -{C_text("f_25348:library_2escm"),(void*)f_25348}, -{C_text("f_25353:library_2escm"),(void*)f_25353}, -{C_text("f_25358:library_2escm"),(void*)f_25358}, -{C_text("f_25379:library_2escm"),(void*)f_25379}, -{C_text("f_25386:library_2escm"),(void*)f_25386}, -{C_text("f_25392:library_2escm"),(void*)f_25392}, -{C_text("f_25410:library_2escm"),(void*)f_25410}, -{C_text("f_25419:library_2escm"),(void*)f_25419}, -{C_text("f_25432:library_2escm"),(void*)f_25432}, -{C_text("f_25440:library_2escm"),(void*)f_25440}, -{C_text("f_25445:library_2escm"),(void*)f_25445}, -{C_text("f_25482:library_2escm"),(void*)f_25482}, -{C_text("f_25494:library_2escm"),(void*)f_25494}, -{C_text("f_25504:library_2escm"),(void*)f_25504}, -{C_text("f_25520:library_2escm"),(void*)f_25520}, -{C_text("f_25533:library_2escm"),(void*)f_25533}, -{C_text("f_25543:library_2escm"),(void*)f_25543}, -{C_text("f_25549:library_2escm"),(void*)f_25549}, -{C_text("f_25562:library_2escm"),(void*)f_25562}, -{C_text("f_25568:library_2escm"),(void*)f_25568}, -{C_text("f_25575:library_2escm"),(void*)f_25575}, -{C_text("f_25582:library_2escm"),(void*)f_25582}, -{C_text("f_25586:library_2escm"),(void*)f_25586}, -{C_text("f_25589:library_2escm"),(void*)f_25589}, -{C_text("f_25599:library_2escm"),(void*)f_25599}, -{C_text("f_25603:library_2escm"),(void*)f_25603}, -{C_text("f_25611:library_2escm"),(void*)f_25611}, -{C_text("f_25614:library_2escm"),(void*)f_25614}, -{C_text("f_25621:library_2escm"),(void*)f_25621}, -{C_text("f_25624:library_2escm"),(void*)f_25624}, -{C_text("f_25627:library_2escm"),(void*)f_25627}, -{C_text("f_25630:library_2escm"),(void*)f_25630}, -{C_text("f_25638:library_2escm"),(void*)f_25638}, -{C_text("f_25646:library_2escm"),(void*)f_25646}, -{C_text("f_25648:library_2escm"),(void*)f_25648}, -{C_text("f_25664:library_2escm"),(void*)f_25664}, -{C_text("f_25691:library_2escm"),(void*)f_25691}, -{C_text("f_25695:library_2escm"),(void*)f_25695}, -{C_text("f_25699:library_2escm"),(void*)f_25699}, -{C_text("f_25703:library_2escm"),(void*)f_25703}, -{C_text("f_25707:library_2escm"),(void*)f_25707}, -{C_text("f_25711:library_2escm"),(void*)f_25711}, -{C_text("f_25715:library_2escm"),(void*)f_25715}, -{C_text("f_25719:library_2escm"),(void*)f_25719}, -{C_text("f_25723:library_2escm"),(void*)f_25723}, -{C_text("f_25727:library_2escm"),(void*)f_25727}, -{C_text("f_25731:library_2escm"),(void*)f_25731}, -{C_text("f_25735:library_2escm"),(void*)f_25735}, -{C_text("f_25739:library_2escm"),(void*)f_25739}, -{C_text("f_25743:library_2escm"),(void*)f_25743}, -{C_text("f_25747:library_2escm"),(void*)f_25747}, -{C_text("f_25751:library_2escm"),(void*)f_25751}, -{C_text("f_25755:library_2escm"),(void*)f_25755}, -{C_text("f_25759:library_2escm"),(void*)f_25759}, -{C_text("f_25766:library_2escm"),(void*)f_25766}, -{C_text("f_25773:library_2escm"),(void*)f_25773}, -{C_text("f_25774:library_2escm"),(void*)f_25774}, -{C_text("f_25778:library_2escm"),(void*)f_25778}, -{C_text("f_25781:library_2escm"),(void*)f_25781}, -{C_text("f_25797:library_2escm"),(void*)f_25797}, -{C_text("f_25808:library_2escm"),(void*)f_25808}, -{C_text("f_25816:library_2escm"),(void*)f_25816}, -{C_text("f_25828:library_2escm"),(void*)f_25828}, -{C_text("f_25837:library_2escm"),(void*)f_25837}, -{C_text("f_25842:library_2escm"),(void*)f_25842}, -{C_text("f_25898:library_2escm"),(void*)f_25898}, -{C_text("f_25912:library_2escm"),(void*)f_25912}, -{C_text("f_25924:library_2escm"),(void*)f_25924}, -{C_text("f_25930:library_2escm"),(void*)f_25930}, -{C_text("f_25955:library_2escm"),(void*)f_25955}, -{C_text("f_25973:library_2escm"),(void*)f_25973}, -{C_text("f_25977:library_2escm"),(void*)f_25977}, -{C_text("f_26033:library_2escm"),(void*)f_26033}, -{C_text("f_26042:library_2escm"),(void*)f_26042}, -{C_text("f_26055:library_2escm"),(void*)f_26055}, -{C_text("f_26067:library_2escm"),(void*)f_26067}, -{C_text("f_26085:library_2escm"),(void*)f_26085}, -{C_text("f_26105:library_2escm"),(void*)f_26105}, -{C_text("f_26108:library_2escm"),(void*)f_26108}, -{C_text("f_26113:library_2escm"),(void*)f_26113}, -{C_text("f_26115:library_2escm"),(void*)f_26115}, -{C_text("f_26123:library_2escm"),(void*)f_26123}, -{C_text("f_26127:library_2escm"),(void*)f_26127}, -{C_text("f_26131:library_2escm"),(void*)f_26131}, -{C_text("f_26135:library_2escm"),(void*)f_26135}, -{C_text("f_26139:library_2escm"),(void*)f_26139}, -{C_text("f_26141:library_2escm"),(void*)f_26141}, -{C_text("f_26149:library_2escm"),(void*)f_26149}, -{C_text("f_26152:library_2escm"),(void*)f_26152}, -{C_text("f_26162:library_2escm"),(void*)f_26162}, -{C_text("f_26164:library_2escm"),(void*)f_26164}, -{C_text("f_26172:library_2escm"),(void*)f_26172}, -{C_text("f_26175:library_2escm"),(void*)f_26175}, -{C_text("f_26185:library_2escm"),(void*)f_26185}, -{C_text("f_26187:library_2escm"),(void*)f_26187}, -{C_text("f_26194:library_2escm"),(void*)f_26194}, -{C_text("f_26197:library_2escm"),(void*)f_26197}, -{C_text("f_26200:library_2escm"),(void*)f_26200}, -{C_text("f_26203:library_2escm"),(void*)f_26203}, -{C_text("f_26205:library_2escm"),(void*)f_26205}, -{C_text("f_26211:library_2escm"),(void*)f_26211}, -{C_text("f_26220:library_2escm"),(void*)f_26220}, -{C_text("f_26228:library_2escm"),(void*)f_26228}, -{C_text("f_26230:library_2escm"),(void*)f_26230}, -{C_text("f_26244:library_2escm"),(void*)f_26244}, -{C_text("f_26257:library_2escm"),(void*)f_26257}, -{C_text("f_26261:library_2escm"),(void*)f_26261}, -{C_text("f_26266:library_2escm"),(void*)f_26266}, -{C_text("f_26270:library_2escm"),(void*)f_26270}, -{C_text("f_26281:library_2escm"),(void*)f_26281}, -{C_text("f_26292:library_2escm"),(void*)f_26292}, -{C_text("f_26296:library_2escm"),(void*)f_26296}, -{C_text("f_26320:library_2escm"),(void*)f_26320}, -{C_text("f_26326:library_2escm"),(void*)f_26326}, -{C_text("f_26336:library_2escm"),(void*)f_26336}, -{C_text("f_26355:library_2escm"),(void*)f_26355}, -{C_text("f_26379:library_2escm"),(void*)f_26379}, -{C_text("f_26401:library_2escm"),(void*)f_26401}, -{C_text("f_26414:library_2escm"),(void*)f_26414}, -{C_text("f_26434:library_2escm"),(void*)f_26434}, -{C_text("f_26440:library_2escm"),(void*)f_26440}, -{C_text("f_26443:library_2escm"),(void*)f_26443}, -{C_text("f_26451:library_2escm"),(void*)f_26451}, -{C_text("f_26453:library_2escm"),(void*)f_26453}, -{C_text("f_26466:library_2escm"),(void*)f_26466}, -{C_text("f_26473:library_2escm"),(void*)f_26473}, -{C_text("f_26482:library_2escm"),(void*)f_26482}, -{C_text("f_26489:library_2escm"),(void*)f_26489}, -{C_text("f_26491:library_2escm"),(void*)f_26491}, -{C_text("f_26497:library_2escm"),(void*)f_26497}, -{C_text("f_26507:library_2escm"),(void*)f_26507}, -{C_text("f_26510:library_2escm"),(void*)f_26510}, -{C_text("f_26520:library_2escm"),(void*)f_26520}, -{C_text("f_26523:library_2escm"),(void*)f_26523}, -{C_text("f_26551:library_2escm"),(void*)f_26551}, -{C_text("f_26554:library_2escm"),(void*)f_26554}, -{C_text("f_26558:library_2escm"),(void*)f_26558}, -{C_text("f_26561:library_2escm"),(void*)f_26561}, -{C_text("f_26571:library_2escm"),(void*)f_26571}, -{C_text("f_26573:library_2escm"),(void*)f_26573}, -{C_text("f_26577:library_2escm"),(void*)f_26577}, -{C_text("f_26586:library_2escm"),(void*)f_26586}, -{C_text("f_26590:library_2escm"),(void*)f_26590}, -{C_text("f_26608:library_2escm"),(void*)f_26608}, -{C_text("f_26629:library_2escm"),(void*)f_26629}, -{C_text("f_26641:library_2escm"),(void*)f_26641}, -{C_text("f_26652:library_2escm"),(void*)f_26652}, -{C_text("f_26655:library_2escm"),(void*)f_26655}, -{C_text("f_26691:library_2escm"),(void*)f_26691}, -{C_text("f_26699:library_2escm"),(void*)f_26699}, -{C_text("f_26701:library_2escm"),(void*)f_26701}, -{C_text("f_26718:library_2escm"),(void*)f_26718}, -{C_text("f_26731:library_2escm"),(void*)f_26731}, -{C_text("f_26748:library_2escm"),(void*)f_26748}, -{C_text("f_26765:library_2escm"),(void*)f_26765}, -{C_text("f_26782:library_2escm"),(void*)f_26782}, -{C_text("f_26799:library_2escm"),(void*)f_26799}, -{C_text("f_26816:library_2escm"),(void*)f_26816}, -{C_text("f_26833:library_2escm"),(void*)f_26833}, -{C_text("f_26853:library_2escm"),(void*)f_26853}, -{C_text("f_26861:library_2escm"),(void*)f_26861}, -{C_text("f_26870:library_2escm"),(void*)f_26870}, -{C_text("f_26877:library_2escm"),(void*)f_26877}, -{C_text("f_26894:library_2escm"),(void*)f_26894}, -{C_text("f_26901:library_2escm"),(void*)f_26901}, -{C_text("f_26918:library_2escm"),(void*)f_26918}, -{C_text("f_26925:library_2escm"),(void*)f_26925}, -{C_text("f_26938:library_2escm"),(void*)f_26938}, -{C_text("f_26943:library_2escm"),(void*)f_26943}, -{C_text("f_26960:library_2escm"),(void*)f_26960}, -{C_text("f_26975:library_2escm"),(void*)f_26975}, -{C_text("f_26988:library_2escm"),(void*)f_26988}, -{C_text("f_27010:library_2escm"),(void*)f_27010}, -{C_text("f_27013:library_2escm"),(void*)f_27013}, -{C_text("f_27042:library_2escm"),(void*)f_27042}, -{C_text("f_27052:library_2escm"),(void*)f_27052}, -{C_text("f_27068:library_2escm"),(void*)f_27068}, -{C_text("f_27079:library_2escm"),(void*)f_27079}, -{C_text("f_27086:library_2escm"),(void*)f_27086}, -{C_text("f_27184:library_2escm"),(void*)f_27184}, -{C_text("f_27190:library_2escm"),(void*)f_27190}, -{C_text("f_27199:library_2escm"),(void*)f_27199}, -{C_text("f_27213:library_2escm"),(void*)f_27213}, -{C_text("f_27216:library_2escm"),(void*)f_27216}, -{C_text("f_27227:library_2escm"),(void*)f_27227}, -{C_text("f_27229:library_2escm"),(void*)f_27229}, -{C_text("f_27232:library_2escm"),(void*)f_27232}, -{C_text("f_27249:library_2escm"),(void*)f_27249}, -{C_text("f_27254:library_2escm"),(void*)f_27254}, -{C_text("f_27258:library_2escm"),(void*)f_27258}, -{C_text("f_27261:library_2escm"),(void*)f_27261}, -{C_text("f_27264:library_2escm"),(void*)f_27264}, -{C_text("f_27274:library_2escm"),(void*)f_27274}, -{C_text("f_27292:library_2escm"),(void*)f_27292}, -{C_text("f_27295:library_2escm"),(void*)f_27295}, -{C_text("f_27304:library_2escm"),(void*)f_27304}, -{C_text("f_27307:library_2escm"),(void*)f_27307}, -{C_text("f_27310:library_2escm"),(void*)f_27310}, -{C_text("f_27316:library_2escm"),(void*)f_27316}, -{C_text("f_27329:library_2escm"),(void*)f_27329}, -{C_text("f_27333:library_2escm"),(void*)f_27333}, -{C_text("f_27337:library_2escm"),(void*)f_27337}, -{C_text("f_27348:library_2escm"),(void*)f_27348}, -{C_text("f_27352:library_2escm"),(void*)f_27352}, -{C_text("f_27355:library_2escm"),(void*)f_27355}, -{C_text("f_27383:library_2escm"),(void*)f_27383}, -{C_text("f_27438:library_2escm"),(void*)f_27438}, -{C_text("f_27442:library_2escm"),(void*)f_27442}, -{C_text("f_27449:library_2escm"),(void*)f_27449}, -{C_text("f_27451:library_2escm"),(void*)f_27451}, -{C_text("f_27455:library_2escm"),(void*)f_27455}, -{C_text("f_27469:library_2escm"),(void*)f_27469}, -{C_text("f_27475:library_2escm"),(void*)f_27475}, -{C_text("f_27482:library_2escm"),(void*)f_27482}, -{C_text("f_27489:library_2escm"),(void*)f_27489}, -{C_text("f_27509:library_2escm"),(void*)f_27509}, -{C_text("f_27538:library_2escm"),(void*)f_27538}, -{C_text("f_27548:library_2escm"),(void*)f_27548}, -{C_text("f_27551:library_2escm"),(void*)f_27551}, -{C_text("f_27587:library_2escm"),(void*)f_27587}, -{C_text("f_27589:library_2escm"),(void*)f_27589}, -{C_text("f_27599:library_2escm"),(void*)f_27599}, -{C_text("f_27602:library_2escm"),(void*)f_27602}, -{C_text("f_27654:library_2escm"),(void*)f_27654}, -{C_text("f_27656:library_2escm"),(void*)f_27656}, -{C_text("f_27664:library_2escm"),(void*)f_27664}, -{C_text("f_27666:library_2escm"),(void*)f_27666}, -{C_text("f_27676:library_2escm"),(void*)f_27676}, -{C_text("f_27691:library_2escm"),(void*)f_27691}, -{C_text("f_27698:library_2escm"),(void*)f_27698}, -{C_text("f_27718:library_2escm"),(void*)f_27718}, -{C_text("f_27726:library_2escm"),(void*)f_27726}, -{C_text("f_27728:library_2escm"),(void*)f_27728}, -{C_text("f_27744:library_2escm"),(void*)f_27744}, -{C_text("f_27751:library_2escm"),(void*)f_27751}, -{C_text("f_27764:library_2escm"),(void*)f_27764}, -{C_text("f_27770:library_2escm"),(void*)f_27770}, -{C_text("f_27774:library_2escm"),(void*)f_27774}, -{C_text("f_27781:library_2escm"),(void*)f_27781}, -{C_text("f_27789:library_2escm"),(void*)f_27789}, -{C_text("f_27794:library_2escm"),(void*)f_27794}, -{C_text("f_27799:library_2escm"),(void*)f_27799}, -{C_text("f_27803:library_2escm"),(void*)f_27803}, -{C_text("f_27812:library_2escm"),(void*)f_27812}, -{C_text("f_27818:library_2escm"),(void*)f_27818}, -{C_text("f_27825:library_2escm"),(void*)f_27825}, -{C_text("f_27842:library_2escm"),(void*)f_27842}, -{C_text("f_27848:library_2escm"),(void*)f_27848}, -{C_text("f_27858:library_2escm"),(void*)f_27858}, -{C_text("f_27909:library_2escm"),(void*)f_27909}, -{C_text("f_27918:library_2escm"),(void*)f_27918}, -{C_text("f_27925:library_2escm"),(void*)f_27925}, -{C_text("f_27929:library_2escm"),(void*)f_27929}, -{C_text("f_27933:library_2escm"),(void*)f_27933}, -{C_text("f_27942:library_2escm"),(void*)f_27942}, -{C_text("f_27953:library_2escm"),(void*)f_27953}, -{C_text("f_27975:library_2escm"),(void*)f_27975}, -{C_text("f_28002:library_2escm"),(void*)f_28002}, -{C_text("f_28034:library_2escm"),(void*)f_28034}, -{C_text("f_28038:library_2escm"),(void*)f_28038}, -{C_text("f_28040:library_2escm"),(void*)f_28040}, -{C_text("f_28044:library_2escm"),(void*)f_28044}, -{C_text("f_28047:library_2escm"),(void*)f_28047}, -{C_text("f_28059:library_2escm"),(void*)f_28059}, -{C_text("f_28079:library_2escm"),(void*)f_28079}, -{C_text("f_28085:library_2escm"),(void*)f_28085}, -{C_text("f_28095:library_2escm"),(void*)f_28095}, -{C_text("f_28232:library_2escm"),(void*)f_28232}, -{C_text("f_28239:library_2escm"),(void*)f_28239}, -{C_text("f_28257:library_2escm"),(void*)f_28257}, -{C_text("f_28263:library_2escm"),(void*)f_28263}, -{C_text("f_28267:library_2escm"),(void*)f_28267}, -{C_text("f_28303:library_2escm"),(void*)f_28303}, -{C_text("f_28326:library_2escm"),(void*)f_28326}, -{C_text("f_28344:library_2escm"),(void*)f_28344}, -{C_text("f_28348:library_2escm"),(void*)f_28348}, -{C_text("f_28355:library_2escm"),(void*)f_28355}, -{C_text("f_28357:library_2escm"),(void*)f_28357}, -{C_text("f_28361:library_2escm"),(void*)f_28361}, -{C_text("f_28372:library_2escm"),(void*)f_28372}, -{C_text("f_28392:library_2escm"),(void*)f_28392}, -{C_text("f_28395:library_2escm"),(void*)f_28395}, -{C_text("f_28398:library_2escm"),(void*)f_28398}, -{C_text("f_28412:library_2escm"),(void*)f_28412}, -{C_text("f_28418:library_2escm"),(void*)f_28418}, -{C_text("f_28440:library_2escm"),(void*)f_28440}, -{C_text("f_28452:library_2escm"),(void*)f_28452}, -{C_text("f_28464:library_2escm"),(void*)f_28464}, -{C_text("f_28473:library_2escm"),(void*)f_28473}, -{C_text("f_28483:library_2escm"),(void*)f_28483}, -{C_text("f_28492:library_2escm"),(void*)f_28492}, -{C_text("f_28495:library_2escm"),(void*)f_28495}, -{C_text("f_28513:library_2escm"),(void*)f_28513}, -{C_text("f_28516:library_2escm"),(void*)f_28516}, -{C_text("f_28537:library_2escm"),(void*)f_28537}, -{C_text("f_28543:library_2escm"),(void*)f_28543}, -{C_text("f_28546:library_2escm"),(void*)f_28546}, -{C_text("f_28556:library_2escm"),(void*)f_28556}, -{C_text("f_28575:library_2escm"),(void*)f_28575}, -{C_text("f_28583:library_2escm"),(void*)f_28583}, -{C_text("f_28585:library_2escm"),(void*)f_28585}, -{C_text("f_28591:library_2escm"),(void*)f_28591}, -{C_text("f_28622:library_2escm"),(void*)f_28622}, -{C_text("f_28645:library_2escm"),(void*)f_28645}, -{C_text("f_28659:library_2escm"),(void*)f_28659}, -{C_text("f_28665:library_2escm"),(void*)f_28665}, -{C_text("f_28690:library_2escm"),(void*)f_28690}, -{C_text("f_28702:library_2escm"),(void*)f_28702}, -{C_text("f_28714:library_2escm"),(void*)f_28714}, -{C_text("f_28726:library_2escm"),(void*)f_28726}, -{C_text("f_28738:library_2escm"),(void*)f_28738}, -{C_text("f_28750:library_2escm"),(void*)f_28750}, -{C_text("f_28771:library_2escm"),(void*)f_28771}, -{C_text("f_28783:library_2escm"),(void*)f_28783}, -{C_text("f_28786:library_2escm"),(void*)f_28786}, -{C_text("f_28798:library_2escm"),(void*)f_28798}, -{C_text("f_28810:library_2escm"),(void*)f_28810}, -{C_text("f_28813:library_2escm"),(void*)f_28813}, -{C_text("f_28825:library_2escm"),(void*)f_28825}, -{C_text("f_28837:library_2escm"),(void*)f_28837}, -{C_text("f_28849:library_2escm"),(void*)f_28849}, -{C_text("f_28852:library_2escm"),(void*)f_28852}, -{C_text("f_28857:library_2escm"),(void*)f_28857}, -{C_text("f_28862:library_2escm"),(void*)f_28862}, -{C_text("f_28868:library_2escm"),(void*)f_28868}, -{C_text("f_28897:library_2escm"),(void*)f_28897}, -{C_text("f_28909:library_2escm"),(void*)f_28909}, -{C_text("f_28912:library_2escm"),(void*)f_28912}, -{C_text("f_28915:library_2escm"),(void*)f_28915}, -{C_text("f_28930:library_2escm"),(void*)f_28930}, -{C_text("f_28939:library_2escm"),(void*)f_28939}, -{C_text("f_28942:library_2escm"),(void*)f_28942}, -{C_text("f_28948:library_2escm"),(void*)f_28948}, -{C_text("f_28951:library_2escm"),(void*)f_28951}, -{C_text("f_28957:library_2escm"),(void*)f_28957}, -{C_text("f_29004:library_2escm"),(void*)f_29004}, -{C_text("f_29023:library_2escm"),(void*)f_29023}, -{C_text("f_29039:library_2escm"),(void*)f_29039}, -{C_text("f_29045:library_2escm"),(void*)f_29045}, -{C_text("f_29115:library_2escm"),(void*)f_29115}, -{C_text("f_29127:library_2escm"),(void*)f_29127}, -{C_text("f_29205:library_2escm"),(void*)f_29205}, -{C_text("f_29279:library_2escm"),(void*)f_29279}, -{C_text("f_29282:library_2escm"),(void*)f_29282}, -{C_text("f_29285:library_2escm"),(void*)f_29285}, -{C_text("f_29293:library_2escm"),(void*)f_29293}, -{C_text("f_29303:library_2escm"),(void*)f_29303}, -{C_text("f_29308:library_2escm"),(void*)f_29308}, -{C_text("f_29311:library_2escm"),(void*)f_29311}, -{C_text("f_29324:library_2escm"),(void*)f_29324}, -{C_text("f_29327:library_2escm"),(void*)f_29327}, -{C_text("f_29363:library_2escm"),(void*)f_29363}, -{C_text("f_29379:library_2escm"),(void*)f_29379}, -{C_text("f_29429:library_2escm"),(void*)f_29429}, -{C_text("f_29433:library_2escm"),(void*)f_29433}, -{C_text("f_29460:library_2escm"),(void*)f_29460}, -{C_text("f_29466:library_2escm"),(void*)f_29466}, -{C_text("f_29482:library_2escm"),(void*)f_29482}, -{C_text("f_29522:library_2escm"),(void*)f_29522}, -{C_text("f_29524:library_2escm"),(void*)f_29524}, -{C_text("f_29531:library_2escm"),(void*)f_29531}, -{C_text("f_29588:library_2escm"),(void*)f_29588}, -{C_text("f_29595:library_2escm"),(void*)f_29595}, -{C_text("f_29604:library_2escm"),(void*)f_29604}, -{C_text("f_29616:library_2escm"),(void*)f_29616}, -{C_text("f_29637:library_2escm"),(void*)f_29637}, -{C_text("f_29652:library_2escm"),(void*)f_29652}, -{C_text("f_29670:library_2escm"),(void*)f_29670}, -{C_text("f_29688:library_2escm"),(void*)f_29688}, -{C_text("f_29707:library_2escm"),(void*)f_29707}, -{C_text("f_29717:library_2escm"),(void*)f_29717}, -{C_text("f_29731:library_2escm"),(void*)f_29731}, -{C_text("f_29734:library_2escm"),(void*)f_29734}, -{C_text("f_29739:library_2escm"),(void*)f_29739}, -{C_text("f_29758:library_2escm"),(void*)f_29758}, -{C_text("f_29768:library_2escm"),(void*)f_29768}, -{C_text("f_29782:library_2escm"),(void*)f_29782}, -{C_text("f_29785:library_2escm"),(void*)f_29785}, -{C_text("f_29792:library_2escm"),(void*)f_29792}, -{C_text("f_29796:library_2escm"),(void*)f_29796}, -{C_text("f_29800:library_2escm"),(void*)f_29800}, -{C_text("f_29802:library_2escm"),(void*)f_29802}, -{C_text("f_29809:library_2escm"),(void*)f_29809}, -{C_text("f_29812:library_2escm"),(void*)f_29812}, -{C_text("f_29815:library_2escm"),(void*)f_29815}, -{C_text("f_29818:library_2escm"),(void*)f_29818}, -{C_text("f_29820:library_2escm"),(void*)f_29820}, -{C_text("f_29830:library_2escm"),(void*)f_29830}, -{C_text("f_29836:library_2escm"),(void*)f_29836}, -{C_text("f_29848:library_2escm"),(void*)f_29848}, -{C_text("f_29851:library_2escm"),(void*)f_29851}, -{C_text("f_29854:library_2escm"),(void*)f_29854}, -{C_text("f_29871:library_2escm"),(void*)f_29871}, -{C_text("f_29879:library_2escm"),(void*)f_29879}, -{C_text("f_29903:library_2escm"),(void*)f_29903}, -{C_text("f_29907:library_2escm"),(void*)f_29907}, -{C_text("f_29920:library_2escm"),(void*)f_29920}, -{C_text("f_29923:library_2escm"),(void*)f_29923}, -{C_text("f_29932:library_2escm"),(void*)f_29932}, -{C_text("f_29935:library_2escm"),(void*)f_29935}, -{C_text("f_29963:library_2escm"),(void*)f_29963}, -{C_text("f_29967:library_2escm"),(void*)f_29967}, -{C_text("f_29976:library_2escm"),(void*)f_29976}, -{C_text("f_29993:library_2escm"),(void*)f_29993}, -{C_text("f_30000:library_2escm"),(void*)f_30000}, -{C_text("f_30005:library_2escm"),(void*)f_30005}, -{C_text("f_30029:library_2escm"),(void*)f_30029}, -{C_text("f_30035:library_2escm"),(void*)f_30035}, -{C_text("f_30038:library_2escm"),(void*)f_30038}, -{C_text("f_30049:library_2escm"),(void*)f_30049}, -{C_text("f_30052:library_2escm"),(void*)f_30052}, -{C_text("f_30055:library_2escm"),(void*)f_30055}, -{C_text("f_30078:library_2escm"),(void*)f_30078}, -{C_text("f_30129:library_2escm"),(void*)f_30129}, -{C_text("f_30204:library_2escm"),(void*)f_30204}, -{C_text("f_30304:library_2escm"),(void*)f_30304}, -{C_text("f_30309:library_2escm"),(void*)f_30309}, -{C_text("f_30364:library_2escm"),(void*)f_30364}, -{C_text("f_30370:library_2escm"),(void*)f_30370}, -{C_text("f_30374:library_2escm"),(void*)f_30374}, -{C_text("f_30382:library_2escm"),(void*)f_30382}, -{C_text("f_30397:library_2escm"),(void*)f_30397}, -{C_text("f_30404:library_2escm"),(void*)f_30404}, -{C_text("f_30423:library_2escm"),(void*)f_30423}, -{C_text("f_30459:library_2escm"),(void*)f_30459}, -{C_text("f_30471:library_2escm"),(void*)f_30471}, -{C_text("f_30477:library_2escm"),(void*)f_30477}, -{C_text("f_30506:library_2escm"),(void*)f_30506}, -{C_text("f_30516:library_2escm"),(void*)f_30516}, -{C_text("f_30525:library_2escm"),(void*)f_30525}, -{C_text("f_30534:library_2escm"),(void*)f_30534}, -{C_text("f_30550:library_2escm"),(void*)f_30550}, -{C_text("f_30588:library_2escm"),(void*)f_30588}, -{C_text("f_30654:library_2escm"),(void*)f_30654}, -{C_text("f_30657:library_2escm"),(void*)f_30657}, -{C_text("f_30660:library_2escm"),(void*)f_30660}, -{C_text("f_30667:library_2escm"),(void*)f_30667}, -{C_text("f_30711:library_2escm"),(void*)f_30711}, -{C_text("f_30714:library_2escm"),(void*)f_30714}, -{C_text("f_30723:library_2escm"),(void*)f_30723}, -{C_text("f_30736:library_2escm"),(void*)f_30736}, -{C_text("f_30745:library_2escm"),(void*)f_30745}, -{C_text("f_30755:library_2escm"),(void*)f_30755}, -{C_text("f_30758:library_2escm"),(void*)f_30758}, -{C_text("f_30784:library_2escm"),(void*)f_30784}, -{C_text("f_30791:library_2escm"),(void*)f_30791}, -{C_text("f_30807:library_2escm"),(void*)f_30807}, -{C_text("f_30819:library_2escm"),(void*)f_30819}, -{C_text("f_30822:library_2escm"),(void*)f_30822}, -{C_text("f_30829:library_2escm"),(void*)f_30829}, -{C_text("f_30838:library_2escm"),(void*)f_30838}, -{C_text("f_30841:library_2escm"),(void*)f_30841}, -{C_text("f_30888:library_2escm"),(void*)f_30888}, -{C_text("f_30891:library_2escm"),(void*)f_30891}, -{C_text("f_30900:library_2escm"),(void*)f_30900}, -{C_text("f_30913:library_2escm"),(void*)f_30913}, -{C_text("f_30916:library_2escm"),(void*)f_30916}, -{C_text("f_30941:library_2escm"),(void*)f_30941}, -{C_text("f_30945:library_2escm"),(void*)f_30945}, -{C_text("f_30955:library_2escm"),(void*)f_30955}, -{C_text("f_30958:library_2escm"),(void*)f_30958}, -{C_text("f_30970:library_2escm"),(void*)f_30970}, -{C_text("f_30974:library_2escm"),(void*)f_30974}, -{C_text("f_30996:library_2escm"),(void*)f_30996}, -{C_text("f_30998:library_2escm"),(void*)f_30998}, -{C_text("f_31014:library_2escm"),(void*)f_31014}, -{C_text("f_31019:library_2escm"),(void*)f_31019}, -{C_text("f_31025:library_2escm"),(void*)f_31025}, -{C_text("f_31031:library_2escm"),(void*)f_31031}, -{C_text("f_31035:library_2escm"),(void*)f_31035}, -{C_text("f_31038:library_2escm"),(void*)f_31038}, -{C_text("f_31053:library_2escm"),(void*)f_31053}, -{C_text("f_31056:library_2escm"),(void*)f_31056}, -{C_text("f_31072:library_2escm"),(void*)f_31072}, -{C_text("f_31078:library_2escm"),(void*)f_31078}, -{C_text("f_31087:library_2escm"),(void*)f_31087}, -{C_text("f_31093:library_2escm"),(void*)f_31093}, -{C_text("f_31100:library_2escm"),(void*)f_31100}, -{C_text("f_31103:library_2escm"),(void*)f_31103}, -{C_text("f_31106:library_2escm"),(void*)f_31106}, -{C_text("f_31115:library_2escm"),(void*)f_31115}, -{C_text("f_31131:library_2escm"),(void*)f_31131}, -{C_text("f_31150:library_2escm"),(void*)f_31150}, -{C_text("f_31156:library_2escm"),(void*)f_31156}, -{C_text("f_31162:library_2escm"),(void*)f_31162}, -{C_text("f_31166:library_2escm"),(void*)f_31166}, -{C_text("f_31169:library_2escm"),(void*)f_31169}, -{C_text("f_31172:library_2escm"),(void*)f_31172}, -{C_text("f_31176:library_2escm"),(void*)f_31176}, -{C_text("f_31180:library_2escm"),(void*)f_31180}, -{C_text("f_31184:library_2escm"),(void*)f_31184}, -{C_text("f_31187:library_2escm"),(void*)f_31187}, -{C_text("f_31190:library_2escm"),(void*)f_31190}, -{C_text("f_31193:library_2escm"),(void*)f_31193}, -{C_text("f_31205:library_2escm"),(void*)f_31205}, -{C_text("f_31211:library_2escm"),(void*)f_31211}, -{C_text("f_31215:library_2escm"),(void*)f_31215}, -{C_text("f_31218:library_2escm"),(void*)f_31218}, -{C_text("f_31221:library_2escm"),(void*)f_31221}, -{C_text("f_31224:library_2escm"),(void*)f_31224}, -{C_text("f_31227:library_2escm"),(void*)f_31227}, -{C_text("f_31230:library_2escm"),(void*)f_31230}, -{C_text("f_31235:library_2escm"),(void*)f_31235}, -{C_text("f_31257:library_2escm"),(void*)f_31257}, -{C_text("f_31263:library_2escm"),(void*)f_31263}, -{C_text("f_31288:library_2escm"),(void*)f_31288}, -{C_text("f_31295:library_2escm"),(void*)f_31295}, -{C_text("f_31297:library_2escm"),(void*)f_31297}, -{C_text("f_31304:library_2escm"),(void*)f_31304}, -{C_text("f_31308:library_2escm"),(void*)f_31308}, -{C_text("f_31315:library_2escm"),(void*)f_31315}, -{C_text("f_31331:library_2escm"),(void*)f_31331}, -{C_text("f_31335:library_2escm"),(void*)f_31335}, -{C_text("f_31351:library_2escm"),(void*)f_31351}, -{C_text("f_31366:library_2escm"),(void*)f_31366}, -{C_text("f_31376:library_2escm"),(void*)f_31376}, -{C_text("f_31381:library_2escm"),(void*)f_31381}, -{C_text("f_31387:library_2escm"),(void*)f_31387}, -{C_text("f_31401:library_2escm"),(void*)f_31401}, -{C_text("f_31410:library_2escm"),(void*)f_31410}, -{C_text("f_31421:library_2escm"),(void*)f_31421}, -{C_text("f_31427:library_2escm"),(void*)f_31427}, -{C_text("f_31430:library_2escm"),(void*)f_31430}, -{C_text("f_31441:library_2escm"),(void*)f_31441}, -{C_text("f_31450:library_2escm"),(void*)f_31450}, -{C_text("f_31455:library_2escm"),(void*)f_31455}, -{C_text("f_31461:library_2escm"),(void*)f_31461}, -{C_text("f_31482:library_2escm"),(void*)f_31482}, -{C_text("f_31485:library_2escm"),(void*)f_31485}, -{C_text("f_31492:library_2escm"),(void*)f_31492}, -{C_text("f_31499:library_2escm"),(void*)f_31499}, -{C_text("f_31508:library_2escm"),(void*)f_31508}, -{C_text("f_31519:library_2escm"),(void*)f_31519}, -{C_text("f_31565:library_2escm"),(void*)f_31565}, -{C_text("f_31569:library_2escm"),(void*)f_31569}, -{C_text("f_31570:library_2escm"),(void*)f_31570}, -{C_text("f_31580:library_2escm"),(void*)f_31580}, -{C_text("f_31585:library_2escm"),(void*)f_31585}, -{C_text("f_31595:library_2escm"),(void*)f_31595}, -{C_text("f_31608:library_2escm"),(void*)f_31608}, -{C_text("f_31619:library_2escm"),(void*)f_31619}, -{C_text("f_31623:library_2escm"),(void*)f_31623}, -{C_text("f_31627:library_2escm"),(void*)f_31627}, -{C_text("f_31649:library_2escm"),(void*)f_31649}, -{C_text("f_31653:library_2escm"),(void*)f_31653}, -{C_text("f_31661:library_2escm"),(void*)f_31661}, -{C_text("f_31677:library_2escm"),(void*)f_31677}, -{C_text("f_31688:library_2escm"),(void*)f_31688}, -{C_text("f_31707:library_2escm"),(void*)f_31707}, -{C_text("f_31718:library_2escm"),(void*)f_31718}, -{C_text("f_31729:library_2escm"),(void*)f_31729}, -{C_text("f_31815:library_2escm"),(void*)f_31815}, -{C_text("f_31825:library_2escm"),(void*)f_31825}, -{C_text("f_31826:library_2escm"),(void*)f_31826}, -{C_text("f_31839:library_2escm"),(void*)f_31839}, -{C_text("f_31842:library_2escm"),(void*)f_31842}, -{C_text("f_31845:library_2escm"),(void*)f_31845}, -{C_text("f_31848:library_2escm"),(void*)f_31848}, -{C_text("f_31856:library_2escm"),(void*)f_31856}, -{C_text("f_31863:library_2escm"),(void*)f_31863}, -{C_text("f_31866:library_2escm"),(void*)f_31866}, -{C_text("f_31869:library_2escm"),(void*)f_31869}, -{C_text("f_31892:library_2escm"),(void*)f_31892}, -{C_text("f_31897:library_2escm"),(void*)f_31897}, -{C_text("f_31907:library_2escm"),(void*)f_31907}, -{C_text("f_31920:library_2escm"),(void*)f_31920}, -{C_text("f_31961:library_2escm"),(void*)f_31961}, -{C_text("f_32011:library_2escm"),(void*)f_32011}, -{C_text("f_32014:library_2escm"),(void*)f_32014}, -{C_text("f_32033:library_2escm"),(void*)f_32033}, -{C_text("f_32038:library_2escm"),(void*)f_32038}, -{C_text("f_32044:library_2escm"),(void*)f_32044}, -{C_text("f_32047:library_2escm"),(void*)f_32047}, -{C_text("f_32056:library_2escm"),(void*)f_32056}, -{C_text("f_32062:library_2escm"),(void*)f_32062}, -{C_text("f_32081:library_2escm"),(void*)f_32081}, -{C_text("f_32100:library_2escm"),(void*)f_32100}, -{C_text("f_32105:library_2escm"),(void*)f_32105}, -{C_text("f_32115:library_2escm"),(void*)f_32115}, -{C_text("f_32129:library_2escm"),(void*)f_32129}, -{C_text("f_32136:library_2escm"),(void*)f_32136}, -{C_text("f_32140:library_2escm"),(void*)f_32140}, -{C_text("f_32144:library_2escm"),(void*)f_32144}, -{C_text("f_32146:library_2escm"),(void*)f_32146}, -{C_text("f_32149:library_2escm"),(void*)f_32149}, -{C_text("f_32175:library_2escm"),(void*)f_32175}, -{C_text("f_32178:library_2escm"),(void*)f_32178}, -{C_text("f_32181:library_2escm"),(void*)f_32181}, -{C_text("f_32188:library_2escm"),(void*)f_32188}, -{C_text("f_32192:library_2escm"),(void*)f_32192}, -{C_text("f_32198:library_2escm"),(void*)f_32198}, -{C_text("f_32203:library_2escm"),(void*)f_32203}, -{C_text("f_32213:library_2escm"),(void*)f_32213}, -{C_text("f_32251:library_2escm"),(void*)f_32251}, -{C_text("f_32254:library_2escm"),(void*)f_32254}, -{C_text("f_32274:library_2escm"),(void*)f_32274}, -{C_text("f_32292:library_2escm"),(void*)f_32292}, -{C_text("f_32426:library_2escm"),(void*)f_32426}, -{C_text("f_32443:library_2escm"),(void*)f_32443}, -{C_text("f_32458:library_2escm"),(void*)f_32458}, -{C_text("f_32462:library_2escm"),(void*)f_32462}, -{C_text("f_32475:library_2escm"),(void*)f_32475}, -{C_text("f_32483:library_2escm"),(void*)f_32483}, -{C_text("f_32486:library_2escm"),(void*)f_32486}, -{C_text("f_32490:library_2escm"),(void*)f_32490}, -{C_text("f_32529:library_2escm"),(void*)f_32529}, -{C_text("f_32532:library_2escm"),(void*)f_32532}, -{C_text("f_32539:library_2escm"),(void*)f_32539}, -{C_text("f_32543:library_2escm"),(void*)f_32543}, -{C_text("f_32569:library_2escm"),(void*)f_32569}, -{C_text("f_32600:library_2escm"),(void*)f_32600}, -{C_text("f_32603:library_2escm"),(void*)f_32603}, -{C_text("f_32615:library_2escm"),(void*)f_32615}, -{C_text("f_32618:library_2escm"),(void*)f_32618}, -{C_text("f_32621:library_2escm"),(void*)f_32621}, -{C_text("f_32646:library_2escm"),(void*)f_32646}, -{C_text("f_32652:library_2escm"),(void*)f_32652}, -{C_text("f_32656:library_2escm"),(void*)f_32656}, -{C_text("f_32660:library_2escm"),(void*)f_32660}, -{C_text("f_32673:library_2escm"),(void*)f_32673}, -{C_text("f_32675:library_2escm"),(void*)f_32675}, -{C_text("f_32681:library_2escm"),(void*)f_32681}, -{C_text("f_32686:library_2escm"),(void*)f_32686}, -{C_text("f_32721:library_2escm"),(void*)f_32721}, -{C_text("f_32727:library_2escm"),(void*)f_32727}, -{C_text("f_32743:library_2escm"),(void*)f_32743}, -{C_text("f_32765:library_2escm"),(void*)f_32765}, -{C_text("f_32789:library_2escm"),(void*)f_32789}, -{C_text("f_32801:library_2escm"),(void*)f_32801}, -{C_text("f_32803:library_2escm"),(void*)f_32803}, -{C_text("f_32822:library_2escm"),(void*)f_32822}, -{C_text("f_32826:library_2escm"),(void*)f_32826}, -{C_text("f_32838:library_2escm"),(void*)f_32838}, -{C_text("f_32840:library_2escm"),(void*)f_32840}, -{C_text("f_32884:library_2escm"),(void*)f_32884}, -{C_text("f_32886:library_2escm"),(void*)f_32886}, -{C_text("f_32920:library_2escm"),(void*)f_32920}, -{C_text("f_32943:library_2escm"),(void*)f_32943}, -{C_text("f_32950:library_2escm"),(void*)f_32950}, -{C_text("f_32960:library_2escm"),(void*)f_32960}, -{C_text("f_32962:library_2escm"),(void*)f_32962}, -{C_text("f_33012:library_2escm"),(void*)f_33012}, -{C_text("f_33014:library_2escm"),(void*)f_33014}, -{C_text("f_33039:library_2escm"),(void*)f_33039}, -{C_text("f_33048:library_2escm"),(void*)f_33048}, -{C_text("f_33054:library_2escm"),(void*)f_33054}, -{C_text("f_33058:library_2escm"),(void*)f_33058}, -{C_text("f_33062:library_2escm"),(void*)f_33062}, -{C_text("f_33070:library_2escm"),(void*)f_33070}, -{C_text("f_33076:library_2escm"),(void*)f_33076}, -{C_text("f_33107:library_2escm"),(void*)f_33107}, -{C_text("f_33132:library_2escm"),(void*)f_33132}, -{C_text("f_33157:library_2escm"),(void*)f_33157}, -{C_text("f_33167:library_2escm"),(void*)f_33167}, -{C_text("f_33172:library_2escm"),(void*)f_33172}, -{C_text("f_33174:library_2escm"),(void*)f_33174}, -{C_text("f_33181:library_2escm"),(void*)f_33181}, -{C_text("f_33193:library_2escm"),(void*)f_33193}, -{C_text("f_33201:library_2escm"),(void*)f_33201}, -{C_text("f_33239:library_2escm"),(void*)f_33239}, -{C_text("f_33243:library_2escm"),(void*)f_33243}, -{C_text("f_33250:library_2escm"),(void*)f_33250}, -{C_text("f_33253:library_2escm"),(void*)f_33253}, -{C_text("f_33256:library_2escm"),(void*)f_33256}, -{C_text("f_33257:library_2escm"),(void*)f_33257}, -{C_text("f_33259:library_2escm"),(void*)f_33259}, -{C_text("f_33263:library_2escm"),(void*)f_33263}, -{C_text("f_33268:library_2escm"),(void*)f_33268}, -{C_text("f_33280:library_2escm"),(void*)f_33280}, -{C_text("f_33290:library_2escm"),(void*)f_33290}, -{C_text("f_33302:library_2escm"),(void*)f_33302}, -{C_text("f_33304:library_2escm"),(void*)f_33304}, -{C_text("f_33311:library_2escm"),(void*)f_33311}, -{C_text("f_33314:library_2escm"),(void*)f_33314}, -{C_text("f_33323:library_2escm"),(void*)f_33323}, -{C_text("f_33326:library_2escm"),(void*)f_33326}, -{C_text("f_33329:library_2escm"),(void*)f_33329}, -{C_text("f_33344:library_2escm"),(void*)f_33344}, -{C_text("f_33350:library_2escm"),(void*)f_33350}, -{C_text("f_33358:library_2escm"),(void*)f_33358}, -{C_text("f_33362:library_2escm"),(void*)f_33362}, -{C_text("f_33365:library_2escm"),(void*)f_33365}, -{C_text("f_33368:library_2escm"),(void*)f_33368}, -{C_text("f_33381:library_2escm"),(void*)f_33381}, -{C_text("f_33385:library_2escm"),(void*)f_33385}, -{C_text("f_33406:library_2escm"),(void*)f_33406}, -{C_text("f_33422:library_2escm"),(void*)f_33422}, -{C_text("f_33425:library_2escm"),(void*)f_33425}, -{C_text("f_33431:library_2escm"),(void*)f_33431}, -{C_text("f_33453:library_2escm"),(void*)f_33453}, -{C_text("f_33458:library_2escm"),(void*)f_33458}, -{C_text("f_33493:library_2escm"),(void*)f_33493}, -{C_text("f_33503:library_2escm"),(void*)f_33503}, -{C_text("f_33506:library_2escm"),(void*)f_33506}, -{C_text("f_33509:library_2escm"),(void*)f_33509}, -{C_text("f_33512:library_2escm"),(void*)f_33512}, -{C_text("f_33515:library_2escm"),(void*)f_33515}, -{C_text("f_33518:library_2escm"),(void*)f_33518}, -{C_text("f_33525:library_2escm"),(void*)f_33525}, -{C_text("f_33528:library_2escm"),(void*)f_33528}, -{C_text("f_33531:library_2escm"),(void*)f_33531}, -{C_text("f_33542:library_2escm"),(void*)f_33542}, -{C_text("f_33565:library_2escm"),(void*)f_33565}, -{C_text("f_33576:library_2escm"),(void*)f_33576}, -{C_text("f_33580:library_2escm"),(void*)f_33580}, -{C_text("f_33602:library_2escm"),(void*)f_33602}, -{C_text("f_33613:library_2escm"),(void*)f_33613}, -{C_text("f_33617:library_2escm"),(void*)f_33617}, -{C_text("f_34116:library_2escm"),(void*)f_34116}, -{C_text("f_34127:library_2escm"),(void*)f_34127}, -{C_text("f_34131:library_2escm"),(void*)f_34131}, -{C_text("f_34272:library_2escm"),(void*)f_34272}, -{C_text("f_34274:library_2escm"),(void*)f_34274}, -{C_text("f_34280:library_2escm"),(void*)f_34280}, -{C_text("f_34284:library_2escm"),(void*)f_34284}, -{C_text("f_34287:library_2escm"),(void*)f_34287}, -{C_text("f_34296:library_2escm"),(void*)f_34296}, -{C_text("f_34310:library_2escm"),(void*)f_34310}, -{C_text("f_34318:library_2escm"),(void*)f_34318}, -{C_text("f_34320:library_2escm"),(void*)f_34320}, -{C_text("f_34324:library_2escm"),(void*)f_34324}, -{C_text("f_34332:library_2escm"),(void*)f_34332}, -{C_text("f_34340:library_2escm"),(void*)f_34340}, -{C_text("f_34342:library_2escm"),(void*)f_34342}, -{C_text("f_34352:library_2escm"),(void*)f_34352}, -{C_text("f_34359:library_2escm"),(void*)f_34359}, -{C_text("f_34369:library_2escm"),(void*)f_34369}, -{C_text("f_34373:library_2escm"),(void*)f_34373}, -{C_text("f_34377:library_2escm"),(void*)f_34377}, -{C_text("f_34381:library_2escm"),(void*)f_34381}, -{C_text("f_34383:library_2escm"),(void*)f_34383}, -{C_text("f_34393:library_2escm"),(void*)f_34393}, -{C_text("f_34404:library_2escm"),(void*)f_34404}, -{C_text("f_34408:library_2escm"),(void*)f_34408}, -{C_text("f_34413:library_2escm"),(void*)f_34413}, -{C_text("f_34417:library_2escm"),(void*)f_34417}, -{C_text("f_34422:library_2escm"),(void*)f_34422}, -{C_text("f_34425:library_2escm"),(void*)f_34425}, -{C_text("f_34428:library_2escm"),(void*)f_34428}, -{C_text("f_34431:library_2escm"),(void*)f_34431}, -{C_text("f_34433:library_2escm"),(void*)f_34433}, -{C_text("f_34440:library_2escm"),(void*)f_34440}, -{C_text("f_34443:library_2escm"),(void*)f_34443}, -{C_text("f_34451:library_2escm"),(void*)f_34451}, -{C_text("f_34458:library_2escm"),(void*)f_34458}, -{C_text("f_34463:library_2escm"),(void*)f_34463}, -{C_text("f_34466:library_2escm"),(void*)f_34466}, -{C_text("f_34469:library_2escm"),(void*)f_34469}, -{C_text("f_34472:library_2escm"),(void*)f_34472}, -{C_text("f_34477:library_2escm"),(void*)f_34477}, -{C_text("f_34480:library_2escm"),(void*)f_34480}, -{C_text("f_34483:library_2escm"),(void*)f_34483}, -{C_text("f_34486:library_2escm"),(void*)f_34486}, -{C_text("f_34489:library_2escm"),(void*)f_34489}, -{C_text("f_34492:library_2escm"),(void*)f_34492}, -{C_text("f_34495:library_2escm"),(void*)f_34495}, -{C_text("f_34498:library_2escm"),(void*)f_34498}, -{C_text("f_34522:library_2escm"),(void*)f_34522}, -{C_text("f_34526:library_2escm"),(void*)f_34526}, -{C_text("f_34528:library_2escm"),(void*)f_34528}, -{C_text("f_34536:library_2escm"),(void*)f_34536}, -{C_text("f_34538:library_2escm"),(void*)f_34538}, -{C_text("f_34542:library_2escm"),(void*)f_34542}, -{C_text("f_34544:library_2escm"),(void*)f_34544}, -{C_text("f_34551:library_2escm"),(void*)f_34551}, -{C_text("f_34587:library_2escm"),(void*)f_34587}, -{C_text("f_34590:library_2escm"),(void*)f_34590}, -{C_text("f_34593:library_2escm"),(void*)f_34593}, -{C_text("f_34596:library_2escm"),(void*)f_34596}, -{C_text("f_34599:library_2escm"),(void*)f_34599}, -{C_text("f_34615:library_2escm"),(void*)f_34615}, -{C_text("f_34619:library_2escm"),(void*)f_34619}, -{C_text("f_34628:library_2escm"),(void*)f_34628}, -{C_text("f_34632:library_2escm"),(void*)f_34632}, -{C_text("f_34634:library_2escm"),(void*)f_34634}, -{C_text("f_34638:library_2escm"),(void*)f_34638}, -{C_text("f_34640:library_2escm"),(void*)f_34640}, -{C_text("f_34645:library_2escm"),(void*)f_34645}, -{C_text("f_34647:library_2escm"),(void*)f_34647}, -{C_text("f_34650:library_2escm"),(void*)f_34650}, -{C_text("f_34670:library_2escm"),(void*)f_34670}, -{C_text("f_34676:library_2escm"),(void*)f_34676}, -{C_text("f_34686:library_2escm"),(void*)f_34686}, -{C_text("f_34696:library_2escm"),(void*)f_34696}, -{C_text("f_34731:library_2escm"),(void*)f_34731}, -{C_text("f_34735:library_2escm"),(void*)f_34735}, -{C_text("f_34740:library_2escm"),(void*)f_34740}, -{C_text("f_34750:library_2escm"),(void*)f_34750}, -{C_text("f_34760:library_2escm"),(void*)f_34760}, -{C_text("f_34769:library_2escm"),(void*)f_34769}, -{C_text("f_34772:library_2escm"),(void*)f_34772}, -{C_text("f_34775:library_2escm"),(void*)f_34775}, -{C_text("f_34779:library_2escm"),(void*)f_34779}, -{C_text("f_34781:library_2escm"),(void*)f_34781}, -{C_text("f_34784:library_2escm"),(void*)f_34784}, -{C_text("f_34787:library_2escm"),(void*)f_34787}, -{C_text("f_34790:library_2escm"),(void*)f_34790}, -{C_text("f_34793:library_2escm"),(void*)f_34793}, -{C_text("f_34802:library_2escm"),(void*)f_34802}, -{C_text("f_34805:library_2escm"),(void*)f_34805}, -{C_text("f_34808:library_2escm"),(void*)f_34808}, -{C_text("f_34811:library_2escm"),(void*)f_34811}, -{C_text("f_34814:library_2escm"),(void*)f_34814}, -{C_text("f_34817:library_2escm"),(void*)f_34817}, -{C_text("f_34820:library_2escm"),(void*)f_34820}, -{C_text("f_34823:library_2escm"),(void*)f_34823}, -{C_text("f_34830:library_2escm"),(void*)f_34830}, -{C_text("f_34833:library_2escm"),(void*)f_34833}, -{C_text("f_34849:library_2escm"),(void*)f_34849}, -{C_text("f_34857:library_2escm"),(void*)f_34857}, -{C_text("f_34860:library_2escm"),(void*)f_34860}, -{C_text("f_34866:library_2escm"),(void*)f_34866}, -{C_text("f_34875:library_2escm"),(void*)f_34875}, -{C_text("f_34881:library_2escm"),(void*)f_34881}, -{C_text("f_34890:library_2escm"),(void*)f_34890}, -{C_text("f_34896:library_2escm"),(void*)f_34896}, -{C_text("f_34902:library_2escm"),(void*)f_34902}, -{C_text("f_34905:library_2escm"),(void*)f_34905}, -{C_text("f_34911:library_2escm"),(void*)f_34911}, -{C_text("f_34917:library_2escm"),(void*)f_34917}, -{C_text("f_34920:library_2escm"),(void*)f_34920}, -{C_text("f_34926:library_2escm"),(void*)f_34926}, -{C_text("f_34965:library_2escm"),(void*)f_34965}, -{C_text("f_35008:library_2escm"),(void*)f_35008}, -{C_text("f_35015:library_2escm"),(void*)f_35015}, -{C_text("f_35020:library_2escm"),(void*)f_35020}, -{C_text("f_35036:library_2escm"),(void*)f_35036}, -{C_text("f_35062:library_2escm"),(void*)f_35062}, -{C_text("f_35065:library_2escm"),(void*)f_35065}, -{C_text("f_35072:library_2escm"),(void*)f_35072}, -{C_text("f_35077:library_2escm"),(void*)f_35077}, -{C_text("f_35079:library_2escm"),(void*)f_35079}, -{C_text("f_35083:library_2escm"),(void*)f_35083}, -{C_text("f_35110:library_2escm"),(void*)f_35110}, -{C_text("f_35120:library_2escm"),(void*)f_35120}, -{C_text("f_35129:library_2escm"),(void*)f_35129}, -{C_text("f_35136:library_2escm"),(void*)f_35136}, -{C_text("f_35140:library_2escm"),(void*)f_35140}, -{C_text("f_35154:library_2escm"),(void*)f_35154}, -{C_text("f_35158:library_2escm"),(void*)f_35158}, -{C_text("f_35165:library_2escm"),(void*)f_35165}, -{C_text("f_35167:library_2escm"),(void*)f_35167}, -{C_text("f_35189:library_2escm"),(void*)f_35189}, -{C_text("f_35196:library_2escm"),(void*)f_35196}, -{C_text("f_35201:library_2escm"),(void*)f_35201}, -{C_text("f_35205:library_2escm"),(void*)f_35205}, -{C_text("f_35208:library_2escm"),(void*)f_35208}, -{C_text("f_35211:library_2escm"),(void*)f_35211}, -{C_text("f_35216:library_2escm"),(void*)f_35216}, -{C_text("f_35220:library_2escm"),(void*)f_35220}, -{C_text("f_35246:library_2escm"),(void*)f_35246}, -{C_text("f_35259:library_2escm"),(void*)f_35259}, -{C_text("f_35262:library_2escm"),(void*)f_35262}, -{C_text("f_35271:library_2escm"),(void*)f_35271}, -{C_text("f_35274:library_2escm"),(void*)f_35274}, -{C_text("f_35277:library_2escm"),(void*)f_35277}, -{C_text("f_35283:library_2escm"),(void*)f_35283}, -{C_text("f_35290:library_2escm"),(void*)f_35290}, -{C_text("f_35292:library_2escm"),(void*)f_35292}, -{C_text("f_35305:library_2escm"),(void*)f_35305}, -{C_text("f_35318:library_2escm"),(void*)f_35318}, -{C_text("f_35321:library_2escm"),(void*)f_35321}, -{C_text("f_35324:library_2escm"),(void*)f_35324}, -{C_text("f_35331:library_2escm"),(void*)f_35331}, -{C_text("f_35383:library_2escm"),(void*)f_35383}, -{C_text("f_35386:library_2escm"),(void*)f_35386}, -{C_text("f_35389:library_2escm"),(void*)f_35389}, -{C_text("f_35391:library_2escm"),(void*)f_35391}, -{C_text("f_35395:library_2escm"),(void*)f_35395}, -{C_text("f_35399:library_2escm"),(void*)f_35399}, -{C_text("f_35405:library_2escm"),(void*)f_35405}, -{C_text("f_35410:library_2escm"),(void*)f_35410}, -{C_text("f_35414:library_2escm"),(void*)f_35414}, -{C_text("f_35426:library_2escm"),(void*)f_35426}, -{C_text("f_35438:library_2escm"),(void*)f_35438}, -{C_text("f_35445:library_2escm"),(void*)f_35445}, -{C_text("f_35451:library_2escm"),(void*)f_35451}, -{C_text("f_35465:library_2escm"),(void*)f_35465}, -{C_text("f_35504:library_2escm"),(void*)f_35504}, -{C_text("f_35523:library_2escm"),(void*)f_35523}, -{C_text("f_35545:library_2escm"),(void*)f_35545}, -{C_text("f_35554:library_2escm"),(void*)f_35554}, -{C_text("f_35561:library_2escm"),(void*)f_35561}, -{C_text("f_35578:library_2escm"),(void*)f_35578}, -{C_text("f_35586:library_2escm"),(void*)f_35586}, -{C_text("f_35597:library_2escm"),(void*)f_35597}, -{C_text("f_35605:library_2escm"),(void*)f_35605}, -{C_text("f_35612:library_2escm"),(void*)f_35612}, -{C_text("f_35674:library_2escm"),(void*)f_35674}, -{C_text("f_35681:library_2escm"),(void*)f_35681}, -{C_text("f_35684:library_2escm"),(void*)f_35684}, -{C_text("f_35694:library_2escm"),(void*)f_35694}, -{C_text("f_35698:library_2escm"),(void*)f_35698}, -{C_text("f_35702:library_2escm"),(void*)f_35702}, -{C_text("f_35705:library_2escm"),(void*)f_35705}, -{C_text("f_35713:library_2escm"),(void*)f_35713}, -{C_text("f_35722:library_2escm"),(void*)f_35722}, -{C_text("f_35730:library_2escm"),(void*)f_35730}, -{C_text("f_35743:library_2escm"),(void*)f_35743}, -{C_text("f_35751:library_2escm"),(void*)f_35751}, -{C_text("f_35755:library_2escm"),(void*)f_35755}, -{C_text("f_35763:library_2escm"),(void*)f_35763}, -{C_text("f_35771:library_2escm"),(void*)f_35771}, -{C_text("f_35773:library_2escm"),(void*)f_35773}, -{C_text("f_35779:library_2escm"),(void*)f_35779}, -{C_text("f_35783:library_2escm"),(void*)f_35783}, -{C_text("f_35791:library_2escm"),(void*)f_35791}, -{C_text("f_35811:library_2escm"),(void*)f_35811}, -{C_text("f_35819:library_2escm"),(void*)f_35819}, -{C_text("f_35823:library_2escm"),(void*)f_35823}, -{C_text("f_35838:library_2escm"),(void*)f_35838}, -{C_text("f_35845:library_2escm"),(void*)f_35845}, -{C_text("f_35857:library_2escm"),(void*)f_35857}, -{C_text("f_35865:library_2escm"),(void*)f_35865}, -{C_text("f_35871:library_2escm"),(void*)f_35871}, -{C_text("f_35893:library_2escm"),(void*)f_35893}, -{C_text("f_35897:library_2escm"),(void*)f_35897}, -{C_text("f_35901:library_2escm"),(void*)f_35901}, -{C_text("f_35903:library_2escm"),(void*)f_35903}, -{C_text("f_35906:library_2escm"),(void*)f_35906}, -{C_text("f_35909:library_2escm"),(void*)f_35909}, -{C_text("f_35913:library_2escm"),(void*)f_35913}, -{C_text("f_35916:library_2escm"),(void*)f_35916}, -{C_text("f_35938:library_2escm"),(void*)f_35938}, -{C_text("f_35944:library_2escm"),(void*)f_35944}, -{C_text("f_35948:library_2escm"),(void*)f_35948}, -{C_text("f_35965:library_2escm"),(void*)f_35965}, -{C_text("f_35975:library_2escm"),(void*)f_35975}, -{C_text("f_35979:library_2escm"),(void*)f_35979}, -{C_text("f_35983:library_2escm"),(void*)f_35983}, -{C_text("f_35995:library_2escm"),(void*)f_35995}, -{C_text("f_36005:library_2escm"),(void*)f_36005}, -{C_text("f_36014:library_2escm"),(void*)f_36014}, -{C_text("f_36030:library_2escm"),(void*)f_36030}, -{C_text("f_36034:library_2escm"),(void*)f_36034}, -{C_text("f_36036:library_2escm"),(void*)f_36036}, -{C_text("f_36042:library_2escm"),(void*)f_36042}, -{C_text("f_36049:library_2escm"),(void*)f_36049}, -{C_text("f_36054:library_2escm"),(void*)f_36054}, -{C_text("f_36075:library_2escm"),(void*)f_36075}, -{C_text("f_36085:library_2escm"),(void*)f_36085}, -{C_text("f_36095:library_2escm"),(void*)f_36095}, -{C_text("f_36108:library_2escm"),(void*)f_36108}, -{C_text("f_36112:library_2escm"),(void*)f_36112}, -{C_text("f_36115:library_2escm"),(void*)f_36115}, -{C_text("f_36123:library_2escm"),(void*)f_36123}, -{C_text("f_36133:library_2escm"),(void*)f_36133}, -{C_text("f_36155:library_2escm"),(void*)f_36155}, -{C_text("f_36159:library_2escm"),(void*)f_36159}, -{C_text("f_36190:library_2escm"),(void*)f_36190}, -{C_text("f_36193:library_2escm"),(void*)f_36193}, -{C_text("f_36196:library_2escm"),(void*)f_36196}, -{C_text("f_36202:library_2escm"),(void*)f_36202}, -{C_text("f_36215:library_2escm"),(void*)f_36215}, -{C_text("f_36218:library_2escm"),(void*)f_36218}, -{C_text("f_36227:library_2escm"),(void*)f_36227}, -{C_text("f_36233:library_2escm"),(void*)f_36233}, -{C_text("f_36239:library_2escm"),(void*)f_36239}, -{C_text("f_36245:library_2escm"),(void*)f_36245}, -{C_text("f_36251:library_2escm"),(void*)f_36251}, -{C_text("f_36268:library_2escm"),(void*)f_36268}, -{C_text("f_36274:library_2escm"),(void*)f_36274}, -{C_text("f_36289:library_2escm"),(void*)f_36289}, -{C_text("f_36293:library_2escm"),(void*)f_36293}, -{C_text("f_36297:library_2escm"),(void*)f_36297}, -{C_text("f_36301:library_2escm"),(void*)f_36301}, -{C_text("f_36322:library_2escm"),(void*)f_36322}, -{C_text("f_36324:library_2escm"),(void*)f_36324}, -{C_text("f_36330:library_2escm"),(void*)f_36330}, -{C_text("f_36334:library_2escm"),(void*)f_36334}, -{C_text("f_36343:library_2escm"),(void*)f_36343}, -{C_text("f_36352:library_2escm"),(void*)f_36352}, -{C_text("f_36395:library_2escm"),(void*)f_36395}, -{C_text("f_36662:library_2escm"),(void*)f_36662}, -{C_text("f_36668:library_2escm"),(void*)f_36668}, -{C_text("f_36687:library_2escm"),(void*)f_36687}, -{C_text("f_36689:library_2escm"),(void*)f_36689}, -{C_text("f_36712:library_2escm"),(void*)f_36712}, -{C_text("f_36758:library_2escm"),(void*)f_36758}, -{C_text("f_36760:library_2escm"),(void*)f_36760}, -{C_text("f_36767:library_2escm"),(void*)f_36767}, -{C_text("f_36779:library_2escm"),(void*)f_36779}, -{C_text("f_36823:library_2escm"),(void*)f_36823}, -{C_text("f_36838:library_2escm"),(void*)f_36838}, -{C_text("f_36846:library_2escm"),(void*)f_36846}, -{C_text("f_36852:library_2escm"),(void*)f_36852}, -{C_text("f_36860:library_2escm"),(void*)f_36860}, -{C_text("f_36864:library_2escm"),(void*)f_36864}, -{C_text("f_36872:library_2escm"),(void*)f_36872}, -{C_text("f_36874:library_2escm"),(void*)f_36874}, -{C_text("f_36884:library_2escm"),(void*)f_36884}, -{C_text("f_36891:library_2escm"),(void*)f_36891}, -{C_text("f_36895:library_2escm"),(void*)f_36895}, -{C_text("f_36906:library_2escm"),(void*)f_36906}, -{C_text("f_36913:library_2escm"),(void*)f_36913}, -{C_text("f_36917:library_2escm"),(void*)f_36917}, -{C_text("f_36928:library_2escm"),(void*)f_36928}, -{C_text("f_36935:library_2escm"),(void*)f_36935}, -{C_text("f_36939:library_2escm"),(void*)f_36939}, -{C_text("f_36944:library_2escm"),(void*)f_36944}, -{C_text("f_36950:library_2escm"),(void*)f_36950}, -{C_text("f_36953:library_2escm"),(void*)f_36953}, -{C_text("f_36956:library_2escm"),(void*)f_36956}, -{C_text("f_36962:library_2escm"),(void*)f_36962}, -{C_text("f_36971:library_2escm"),(void*)f_36971}, -{C_text("f_36980:library_2escm"),(void*)f_36980}, -{C_text("f_36986:library_2escm"),(void*)f_36986}, -{C_text("f_36989:library_2escm"),(void*)f_36989}, -{C_text("f_36992:library_2escm"),(void*)f_36992}, -{C_text("f_37004:library_2escm"),(void*)f_37004}, -{C_text("f_37007:library_2escm"),(void*)f_37007}, -{C_text("f_37010:library_2escm"),(void*)f_37010}, -{C_text("f_37013:library_2escm"),(void*)f_37013}, -{C_text("f_37025:library_2escm"),(void*)f_37025}, -{C_text("f_37028:library_2escm"),(void*)f_37028}, -{C_text("f_37031:library_2escm"),(void*)f_37031}, -{C_text("f_37034:library_2escm"),(void*)f_37034}, -{C_text("f_37043:library_2escm"),(void*)f_37043}, -{C_text("f_37046:library_2escm"),(void*)f_37046}, -{C_text("f_37059:library_2escm"),(void*)f_37059}, -{C_text("f_37060:library_2escm"),(void*)f_37060}, -{C_text("f_37065:library_2escm"),(void*)f_37065}, -{C_text("f_37066:library_2escm"),(void*)f_37066}, -{C_text("f_37071:library_2escm"),(void*)f_37071}, -{C_text("f_37072:library_2escm"),(void*)f_37072}, -{C_text("f_37077:library_2escm"),(void*)f_37077}, -{C_text("f_37078:library_2escm"),(void*)f_37078}, -{C_text("f_37083:library_2escm"),(void*)f_37083}, -{C_text("f_37084:library_2escm"),(void*)f_37084}, -{C_text("f_37089:library_2escm"),(void*)f_37089}, -{C_text("f_37091:library_2escm"),(void*)f_37091}, -{C_text("f_37101:library_2escm"),(void*)f_37101}, -{C_text("f_37104:library_2escm"),(void*)f_37104}, -{C_text("f_37107:library_2escm"),(void*)f_37107}, -{C_text("f_37110:library_2escm"),(void*)f_37110}, -{C_text("f_37112:library_2escm"),(void*)f_37112}, -{C_text("f_37126:library_2escm"),(void*)f_37126}, -{C_text("f_37134:library_2escm"),(void*)f_37134}, -{C_text("f_37138:library_2escm"),(void*)f_37138}, -{C_text("f_37142:library_2escm"),(void*)f_37142}, -{C_text("f_37146:library_2escm"),(void*)f_37146}, -{C_text("f_37152:library_2escm"),(void*)f_37152}, -{C_text("f_37159:library_2escm"),(void*)f_37159}, -{C_text("f_37163:library_2escm"),(void*)f_37163}, -{C_text("f_37167:library_2escm"),(void*)f_37167}, -{C_text("f_37171:library_2escm"),(void*)f_37171}, -{C_text("f_37189:library_2escm"),(void*)f_37189}, -{C_text("f_37208:library_2escm"),(void*)f_37208}, -{C_text("f_37211:library_2escm"),(void*)f_37211}, -{C_text("f_37214:library_2escm"),(void*)f_37214}, -{C_text("f_37217:library_2escm"),(void*)f_37217}, -{C_text("f_37226:library_2escm"),(void*)f_37226}, -{C_text("f_37232:library_2escm"),(void*)f_37232}, -{C_text("f_37255:library_2escm"),(void*)f_37255}, -{C_text("f_37277:library_2escm"),(void*)f_37277}, -{C_text("f_37283:library_2escm"),(void*)f_37283}, -{C_text("f_37303:library_2escm"),(void*)f_37303}, -{C_text("f_37318:library_2escm"),(void*)f_37318}, -{C_text("f_37322:library_2escm"),(void*)f_37322}, -{C_text("f_37345:library_2escm"),(void*)f_37345}, -{C_text("f_37349:library_2escm"),(void*)f_37349}, -{C_text("f_37351:library_2escm"),(void*)f_37351}, -{C_text("f_37381:library_2escm"),(void*)f_37381}, -{C_text("f_37384:library_2escm"),(void*)f_37384}, -{C_text("f_37386:library_2escm"),(void*)f_37386}, -{C_text("f_37404:library_2escm"),(void*)f_37404}, -{C_text("f_37411:library_2escm"),(void*)f_37411}, -{C_text("f_37433:library_2escm"),(void*)f_37433}, -{C_text("f_37442:library_2escm"),(void*)f_37442}, -{C_text("f_37457:library_2escm"),(void*)f_37457}, -{C_text("f_37460:library_2escm"),(void*)f_37460}, -{C_text("f_37463:library_2escm"),(void*)f_37463}, -{C_text("f_37466:library_2escm"),(void*)f_37466}, -{C_text("f_37469:library_2escm"),(void*)f_37469}, -{C_text("f_37472:library_2escm"),(void*)f_37472}, -{C_text("f_37475:library_2escm"),(void*)f_37475}, -{C_text("f_37478:library_2escm"),(void*)f_37478}, -{C_text("f_37481:library_2escm"),(void*)f_37481}, -{C_text("f_37484:library_2escm"),(void*)f_37484}, -{C_text("f_37492:library_2escm"),(void*)f_37492}, -{C_text("f_37495:library_2escm"),(void*)f_37495}, -{C_text("f_37500:library_2escm"),(void*)f_37500}, -{C_text("f_37506:library_2escm"),(void*)f_37506}, -{C_text("f_37519:library_2escm"),(void*)f_37519}, -{C_text("f_37521:library_2escm"),(void*)f_37521}, -{C_text("f_37544:library_2escm"),(void*)f_37544}, -{C_text("f_37551:library_2escm"),(void*)f_37551}, -{C_text("f_37555:library_2escm"),(void*)f_37555}, -{C_text("f_37557:library_2escm"),(void*)f_37557}, -{C_text("f_37586:library_2escm"),(void*)f_37586}, -{C_text("f_37588:library_2escm"),(void*)f_37588}, -{C_text("f_37613:library_2escm"),(void*)f_37613}, -{C_text("f_37622:library_2escm"),(void*)f_37622}, -{C_text("f_37628:library_2escm"),(void*)f_37628}, -{C_text("f_37652:library_2escm"),(void*)f_37652}, -{C_text("f_37659:library_2escm"),(void*)f_37659}, -{C_text("f_37663:library_2escm"),(void*)f_37663}, -{C_text("f_37675:library_2escm"),(void*)f_37675}, -{C_text("f_37683:library_2escm"),(void*)f_37683}, -{C_text("f_37687:library_2escm"),(void*)f_37687}, -{C_text("f_37696:library_2escm"),(void*)f_37696}, -{C_text("f_37705:library_2escm"),(void*)f_37705}, -{C_text("f_37713:library_2escm"),(void*)f_37713}, -{C_text("f_37726:library_2escm"),(void*)f_37726}, -{C_text("f_37734:library_2escm"),(void*)f_37734}, -{C_text("f_37759:library_2escm"),(void*)f_37759}, -{C_text("f_37768:library_2escm"),(void*)f_37768}, -{C_text("f_37775:library_2escm"),(void*)f_37775}, -{C_text("f_37778:library_2escm"),(void*)f_37778}, -{C_text("f_37783:library_2escm"),(void*)f_37783}, -{C_text("f_37815:library_2escm"),(void*)f_37815}, -{C_text("f_37819:library_2escm"),(void*)f_37819}, -{C_text("f_37822:library_2escm"),(void*)f_37822}, -{C_text("f_37827:library_2escm"),(void*)f_37827}, -{C_text("f_37840:library_2escm"),(void*)f_37840}, -{C_text("f_37865:library_2escm"),(void*)f_37865}, -{C_text("f_37877:library_2escm"),(void*)f_37877}, -{C_text("f_37902:library_2escm"),(void*)f_37902}, -{C_text("f_37904:library_2escm"),(void*)f_37904}, -{C_text("f_37918:library_2escm"),(void*)f_37918}, -{C_text("f_37928:library_2escm"),(void*)f_37928}, -{C_text("f_37931:library_2escm"),(void*)f_37931}, -{C_text("f_37934:library_2escm"),(void*)f_37934}, -{C_text("f_37939:library_2escm"),(void*)f_37939}, -{C_text("f_38008:library_2escm"),(void*)f_38008}, -{C_text("f_38022:library_2escm"),(void*)f_38022}, -{C_text("f_38032:library_2escm"),(void*)f_38032}, -{C_text("f_38035:library_2escm"),(void*)f_38035}, -{C_text("f_38038:library_2escm"),(void*)f_38038}, -{C_text("f_38043:library_2escm"),(void*)f_38043}, -{C_text("f_38122:library_2escm"),(void*)f_38122}, -{C_text("f_38132:library_2escm"),(void*)f_38132}, -{C_text("f_38137:library_2escm"),(void*)f_38137}, -{C_text("f_38150:library_2escm"),(void*)f_38150}, -{C_text("f_38184:library_2escm"),(void*)f_38184}, -{C_text("f_38198:library_2escm"),(void*)f_38198}, -{C_text("f_38207:library_2escm"),(void*)f_38207}, -{C_text("f_38212:library_2escm"),(void*)f_38212}, -{C_text("f_38233:library_2escm"),(void*)f_38233}, -{C_text("f_38238:library_2escm"),(void*)f_38238}, -{C_text("f_38245:library_2escm"),(void*)f_38245}, -{C_text("f_38247:library_2escm"),(void*)f_38247}, -{C_text("f_38281:library_2escm"),(void*)f_38281}, -{C_text("f_38305:library_2escm"),(void*)f_38305}, -{C_text("f_38339:library_2escm"),(void*)f_38339}, -{C_text("f_38362:library_2escm"),(void*)f_38362}, -{C_text("f_38374:library_2escm"),(void*)f_38374}, -{C_text("f_38384:library_2escm"),(void*)f_38384}, -{C_text("f_38410:library_2escm"),(void*)f_38410}, -{C_text("f_38424:library_2escm"),(void*)f_38424}, -{C_text("f_38433:library_2escm"),(void*)f_38433}, -{C_text("f_38438:library_2escm"),(void*)f_38438}, -{C_text("f_38448:library_2escm"),(void*)f_38448}, -{C_text("f_38460:library_2escm"),(void*)f_38460}, -{C_text("f_38467:library_2escm"),(void*)f_38467}, -{C_text("f_38469:library_2escm"),(void*)f_38469}, -{C_text("f_38503:library_2escm"),(void*)f_38503}, -{C_text("f_38527:library_2escm"),(void*)f_38527}, -{C_text("f_38561:library_2escm"),(void*)f_38561}, -{C_text("f_38584:library_2escm"),(void*)f_38584}, -{C_text("f_38594:library_2escm"),(void*)f_38594}, -{C_text("f_38603:library_2escm"),(void*)f_38603}, -{C_text("f_38608:library_2escm"),(void*)f_38608}, -{C_text("f_38629:library_2escm"),(void*)f_38629}, -{C_text("f_38639:library_2escm"),(void*)f_38639}, -{C_text("f_38653:library_2escm"),(void*)f_38653}, -{C_text("f_38662:library_2escm"),(void*)f_38662}, -{C_text("f_38667:library_2escm"),(void*)f_38667}, -{C_text("f_38688:library_2escm"),(void*)f_38688}, -{C_text("f_38693:library_2escm"),(void*)f_38693}, -{C_text("f_38700:library_2escm"),(void*)f_38700}, -{C_text("f_38702:library_2escm"),(void*)f_38702}, -{C_text("f_38736:library_2escm"),(void*)f_38736}, -{C_text("f_38760:library_2escm"),(void*)f_38760}, -{C_text("f_38794:library_2escm"),(void*)f_38794}, -{C_text("f_38817:library_2escm"),(void*)f_38817}, -{C_text("f_38827:library_2escm"),(void*)f_38827}, -{C_text("f_38838:library_2escm"),(void*)f_38838}, -{C_text("f_38848:library_2escm"),(void*)f_38848}, -{C_text("f_38865:library_2escm"),(void*)f_38865}, -{C_text("f_38879:library_2escm"),(void*)f_38879}, -{C_text("f_38888:library_2escm"),(void*)f_38888}, -{C_text("f_38893:library_2escm"),(void*)f_38893}, -{C_text("f_38903:library_2escm"),(void*)f_38903}, -{C_text("f_38915:library_2escm"),(void*)f_38915}, -{C_text("f_38922:library_2escm"),(void*)f_38922}, -{C_text("f_38924:library_2escm"),(void*)f_38924}, -{C_text("f_38958:library_2escm"),(void*)f_38958}, -{C_text("f_38982:library_2escm"),(void*)f_38982}, -{C_text("f_39016:library_2escm"),(void*)f_39016}, -{C_text("f_39039:library_2escm"),(void*)f_39039}, -{C_text("f_39043:library_2escm"),(void*)f_39043}, -{C_text("f_39046:library_2escm"),(void*)f_39046}, -{C_text("f_39049:library_2escm"),(void*)f_39049}, -{C_text("f_39074:library_2escm"),(void*)f_39074}, -{C_text("f_39080:library_2escm"),(void*)f_39080}, -{C_text("f_39086:library_2escm"),(void*)f_39086}, -{C_text("f_39090:library_2escm"),(void*)f_39090}, -{C_text("f_39095:library_2escm"),(void*)f_39095}, -{C_text("f_39098:library_2escm"),(void*)f_39098}, -{C_text("f_39109:library_2escm"),(void*)f_39109}, -{C_text("f_39134:library_2escm"),(void*)f_39134}, -{C_text("f_39148:library_2escm"),(void*)f_39148}, -{C_text("f_39176:library_2escm"),(void*)f_39176}, -{C_text("f_39179:library_2escm"),(void*)f_39179}, -{C_text("f_39182:library_2escm"),(void*)f_39182}, -{C_text("f_39252:library_2escm"),(void*)f_39252}, -{C_text("f_39281:library_2escm"),(void*)f_39281}, -{C_text("f_39283:library_2escm"),(void*)f_39283}, -{C_text("f_39303:library_2escm"),(void*)f_39303}, -{C_text("f_39355:library_2escm"),(void*)f_39355}, -{C_text("f_39365:library_2escm"),(void*)f_39365}, -{C_text("f_39375:library_2escm"),(void*)f_39375}, -{C_text("f_39388:library_2escm"),(void*)f_39388}, -{C_text("f_39393:library_2escm"),(void*)f_39393}, -{C_text("f_39406:library_2escm"),(void*)f_39406}, -{C_text("f_39439:library_2escm"),(void*)f_39439}, -{C_text("f_39448:library_2escm"),(void*)f_39448}, -{C_text("f_39474:library_2escm"),(void*)f_39474}, -{C_text("f_39482:library_2escm"),(void*)f_39482}, -{C_text("f_39511:library_2escm"),(void*)f_39511}, -{C_text("f_39539:library_2escm"),(void*)f_39539}, -{C_text("f_39552:library_2escm"),(void*)f_39552}, -{C_text("f_39601:library_2escm"),(void*)f_39601}, -{C_text("f_39620:library_2escm"),(void*)f_39620}, -{C_text("f_39640:library_2escm"),(void*)f_39640}, -{C_text("f_39655:library_2escm"),(void*)f_39655}, -{C_text("f_39659:library_2escm"),(void*)f_39659}, -{C_text("f_39715:library_2escm"),(void*)f_39715}, -{C_text("f_39719:library_2escm"),(void*)f_39719}, -{C_text("f_39727:library_2escm"),(void*)f_39727}, -{C_text("f_39730:library_2escm"),(void*)f_39730}, -{C_text("f_39734:library_2escm"),(void*)f_39734}, -{C_text("f_39745:library_2escm"),(void*)f_39745}, -{C_text("f_39748:library_2escm"),(void*)f_39748}, -{C_text("f_39754:library_2escm"),(void*)f_39754}, -{C_text("f_39758:library_2escm"),(void*)f_39758}, -{C_text("f_39778:library_2escm"),(void*)f_39778}, -{C_text("f_39803:library_2escm"),(void*)f_39803}, -{C_text("f_39873:library_2escm"),(void*)f_39873}, -{C_text("f_39948:library_2escm"),(void*)f_39948}, -{C_text("f_40033:library_2escm"),(void*)f_40033}, -{C_text("f_40052:library_2escm"),(void*)f_40052}, -{C_text("f_40055:library_2escm"),(void*)f_40055}, -{C_text("f_40069:library_2escm"),(void*)f_40069}, -{C_text("f_40081:library_2escm"),(void*)f_40081}, -{C_text("f_40083:library_2escm"),(void*)f_40083}, -{C_text("f_40091:library_2escm"),(void*)f_40091}, -{C_text("f_40093:library_2escm"),(void*)f_40093}, -{C_text("f_40100:library_2escm"),(void*)f_40100}, -{C_text("f_40112:library_2escm"),(void*)f_40112}, -{C_text("f_40132:library_2escm"),(void*)f_40132}, -{C_text("f_40136:library_2escm"),(void*)f_40136}, -{C_text("f_40139:library_2escm"),(void*)f_40139}, -{C_text("f_40148:library_2escm"),(void*)f_40148}, -{C_text("f_40150:library_2escm"),(void*)f_40150}, -{C_text("f_40201:library_2escm"),(void*)f_40201}, -{C_text("f_40226:library_2escm"),(void*)f_40226}, -{C_text("f_40241:library_2escm"),(void*)f_40241}, -{C_text("f_40251:library_2escm"),(void*)f_40251}, -{C_text("f_40281:library_2escm"),(void*)f_40281}, -{C_text("f_40309:library_2escm"),(void*)f_40309}, -{C_text("f_40319:library_2escm"),(void*)f_40319}, -{C_text("f_40324:library_2escm"),(void*)f_40324}, -{C_text("f_40328:library_2escm"),(void*)f_40328}, -{C_text("f_40334:library_2escm"),(void*)f_40334}, -{C_text("f_40337:library_2escm"),(void*)f_40337}, -{C_text("f_40344:library_2escm"),(void*)f_40344}, -{C_text("f_40365:library_2escm"),(void*)f_40365}, -{C_text("f_40375:library_2escm"),(void*)f_40375}, -{C_text("f_40378:library_2escm"),(void*)f_40378}, -{C_text("f_40392:library_2escm"),(void*)f_40392}, -{C_text("f_40405:library_2escm"),(void*)f_40405}, -{C_text("f_40423:library_2escm"),(void*)f_40423}, -{C_text("f_40457:library_2escm"),(void*)f_40457}, -{C_text("f_40460:library_2escm"),(void*)f_40460}, -{C_text("f_40519:library_2escm"),(void*)f_40519}, -{C_text("f_40527:library_2escm"),(void*)f_40527}, -{C_text("f_40531:library_2escm"),(void*)f_40531}, -{C_text("f_40535:library_2escm"),(void*)f_40535}, -{C_text("f_40541:library_2escm"),(void*)f_40541}, -{C_text("f_40545:library_2escm"),(void*)f_40545}, -{C_text("f_40549:library_2escm"),(void*)f_40549}, -{C_text("f_40571:library_2escm"),(void*)f_40571}, -{C_text("f_40575:library_2escm"),(void*)f_40575}, -{C_text("f_40579:library_2escm"),(void*)f_40579}, -{C_text("f_40583:library_2escm"),(void*)f_40583}, -{C_text("f_40587:library_2escm"),(void*)f_40587}, -{C_text("f_40607:library_2escm"),(void*)f_40607}, -{C_text("f_40615:library_2escm"),(void*)f_40615}, -{C_text("f_40640:library_2escm"),(void*)f_40640}, -{C_text("f_40657:library_2escm"),(void*)f_40657}, -{C_text("f_40661:library_2escm"),(void*)f_40661}, -{C_text("f_40664:library_2escm"),(void*)f_40664}, -{C_text("f_40667:library_2escm"),(void*)f_40667}, -{C_text("f_40677:library_2escm"),(void*)f_40677}, -{C_text("f_40680:library_2escm"),(void*)f_40680}, -{C_text("f_40682:library_2escm"),(void*)f_40682}, -{C_text("f_40699:library_2escm"),(void*)f_40699}, -{C_text("f_40726:library_2escm"),(void*)f_40726}, -{C_text("f_40735:library_2escm"),(void*)f_40735}, -{C_text("f_40755:library_2escm"),(void*)f_40755}, -{C_text("f_40759:library_2escm"),(void*)f_40759}, -{C_text("f_40763:library_2escm"),(void*)f_40763}, -{C_text("f_40767:library_2escm"),(void*)f_40767}, -{C_text("f_40771:library_2escm"),(void*)f_40771}, -{C_text("f_40775:library_2escm"),(void*)f_40775}, -{C_text("f_40779:library_2escm"),(void*)f_40779}, -{C_text("f_40781:library_2escm"),(void*)f_40781}, -{C_text("f_40790:library_2escm"),(void*)f_40790}, -{C_text("f_40800:library_2escm"),(void*)f_40800}, -{C_text("f_40825:library_2escm"),(void*)f_40825}, -{C_text("f_40828:library_2escm"),(void*)f_40828}, -{C_text("f_40830:library_2escm"),(void*)f_40830}, -{C_text("f_40846:library_2escm"),(void*)f_40846}, -{C_text("f_40881:library_2escm"),(void*)f_40881}, -{C_text("f_40905:library_2escm"),(void*)f_40905}, -{C_text("f_40909:library_2escm"),(void*)f_40909}, -{C_text("f_40911:library_2escm"),(void*)f_40911}, -{C_text("f_40915:library_2escm"),(void*)f_40915}, -{C_text("f_40918:library_2escm"),(void*)f_40918}, -{C_text("f_40931:library_2escm"),(void*)f_40931}, -{C_text("f_40936:library_2escm"),(void*)f_40936}, -{C_text("f_40951:library_2escm"),(void*)f_40951}, -{C_text("f_40955:library_2escm"),(void*)f_40955}, -{C_text("f_40964:library_2escm"),(void*)f_40964}, -{C_text("f_40967:library_2escm"),(void*)f_40967}, -{C_text("f_40970:library_2escm"),(void*)f_40970}, -{C_text("f_40973:library_2escm"),(void*)f_40973}, -{C_text("f_40976:library_2escm"),(void*)f_40976}, -{C_text("f_40978:library_2escm"),(void*)f_40978}, -{C_text("f_40988:library_2escm"),(void*)f_40988}, -{C_text("f_41000:library_2escm"),(void*)f_41000}, -{C_text("f_41008:library_2escm"),(void*)f_41008}, -{C_text("f_41018:library_2escm"),(void*)f_41018}, -{C_text("f_41034:library_2escm"),(void*)f_41034}, -{C_text("f_41040:library_2escm"),(void*)f_41040}, -{C_text("f_41043:library_2escm"),(void*)f_41043}, -{C_text("f_41046:library_2escm"),(void*)f_41046}, -{C_text("f_41047:library_2escm"),(void*)f_41047}, -{C_text("f_41051:library_2escm"),(void*)f_41051}, -{C_text("f_41057:library_2escm"),(void*)f_41057}, -{C_text("f_41061:library_2escm"),(void*)f_41061}, -{C_text("f_41063:library_2escm"),(void*)f_41063}, -{C_text("f_41073:library_2escm"),(void*)f_41073}, -{C_text("f_41090:library_2escm"),(void*)f_41090}, -{C_text("f_41093:library_2escm"),(void*)f_41093}, -{C_text("f_41097:library_2escm"),(void*)f_41097}, -{C_text("f_41102:library_2escm"),(void*)f_41102}, -{C_text("f_41108:library_2escm"),(void*)f_41108}, -{C_text("f_41124:library_2escm"),(void*)f_41124}, -{C_text("f_41132:library_2escm"),(void*)f_41132}, -{C_text("f_41154:library_2escm"),(void*)f_41154}, -{C_text("f_41172:library_2escm"),(void*)f_41172}, -{C_text("f_41176:library_2escm"),(void*)f_41176}, -{C_text("f_41188:library_2escm"),(void*)f_41188}, -{C_text("f_41195:library_2escm"),(void*)f_41195}, -{C_text("f_41210:library_2escm"),(void*)f_41210}, -{C_text("f_41213:library_2escm"),(void*)f_41213}, -{C_text("f_41216:library_2escm"),(void*)f_41216}, -{C_text("f_41229:library_2escm"),(void*)f_41229}, -{C_text("f_41252:library_2escm"),(void*)f_41252}, -{C_text("f_41276:library_2escm"),(void*)f_41276}, -{C_text("f_41286:library_2escm"),(void*)f_41286}, -{C_text("f_41295:library_2escm"),(void*)f_41295}, -{C_text("f_41336:library_2escm"),(void*)f_41336}, -{C_text("f_41358:library_2escm"),(void*)f_41358}, -{C_text("f_41367:library_2escm"),(void*)f_41367}, -{C_text("f_41371:library_2escm"),(void*)f_41371}, -{C_text("f_41376:library_2escm"),(void*)f_41376}, -{C_text("f_41386:library_2escm"),(void*)f_41386}, -{C_text("f_41396:library_2escm"),(void*)f_41396}, -{C_text("f_41406:library_2escm"),(void*)f_41406}, -{C_text("f_41416:library_2escm"),(void*)f_41416}, -{C_text("f_41426:library_2escm"),(void*)f_41426}, -{C_text("f_41436:library_2escm"),(void*)f_41436}, -{C_text("f_41446:library_2escm"),(void*)f_41446}, -{C_text("f_41456:library_2escm"),(void*)f_41456}, -{C_text("f_41466:library_2escm"),(void*)f_41466}, -{C_text("f_41476:library_2escm"),(void*)f_41476}, -{C_text("f_41486:library_2escm"),(void*)f_41486}, -{C_text("f_41496:library_2escm"),(void*)f_41496}, -{C_text("f_41506:library_2escm"),(void*)f_41506}, -{C_text("f_41522:library_2escm"),(void*)f_41522}, -{C_text("f_41530:library_2escm"),(void*)f_41530}, -{C_text("f_41546:library_2escm"),(void*)f_41546}, -{C_text("f_41562:library_2escm"),(void*)f_41562}, -{C_text("f_41572:library_2escm"),(void*)f_41572}, -{C_text("f_41582:library_2escm"),(void*)f_41582}, -{C_text("f_41601:library_2escm"),(void*)f_41601}, -{C_text("f_41617:library_2escm"),(void*)f_41617}, -{C_text("f_41630:library_2escm"),(void*)f_41630}, -{C_text("f_41636:library_2escm"),(void*)f_41636}, -{C_text("f_41668:library_2escm"),(void*)f_41668}, -{C_text("f_41684:library_2escm"),(void*)f_41684}, -{C_text("f_41688:library_2escm"),(void*)f_41688}, -{C_text("f_41698:library_2escm"),(void*)f_41698}, -{C_text("f_41704:library_2escm"),(void*)f_41704}, -{C_text("f_41711:library_2escm"),(void*)f_41711}, -{C_text("f_41729:library_2escm"),(void*)f_41729}, -{C_text("f_41733:library_2escm"),(void*)f_41733}, -{C_text("f_41741:library_2escm"),(void*)f_41741}, -{C_text("f_41744:library_2escm"),(void*)f_41744}, -{C_text("f_41757:library_2escm"),(void*)f_41757}, -{C_text("f_41760:library_2escm"),(void*)f_41760}, -{C_text("f_41772:library_2escm"),(void*)f_41772}, -{C_text("f_41786:library_2escm"),(void*)f_41786}, -{C_text("f_41789:library_2escm"),(void*)f_41789}, -{C_text("f_41795:library_2escm"),(void*)f_41795}, -{C_text("f_41798:library_2escm"),(void*)f_41798}, -{C_text("f_41801:library_2escm"),(void*)f_41801}, -{C_text("f_41808:library_2escm"),(void*)f_41808}, -{C_text("f_41817:library_2escm"),(void*)f_41817}, -{C_text("f_41833:library_2escm"),(void*)f_41833}, -{C_text("f_41844:library_2escm"),(void*)f_41844}, -{C_text("f_41855:library_2escm"),(void*)f_41855}, -{C_text("f_41859:library_2escm"),(void*)f_41859}, -{C_text("f_41908:library_2escm"),(void*)f_41908}, -{C_text("f_41915:library_2escm"),(void*)f_41915}, -{C_text("f_41928:library_2escm"),(void*)f_41928}, -{C_text("f_41950:library_2escm"),(void*)f_41950}, -{C_text("f_41974:library_2escm"),(void*)f_41974}, -{C_text("f_41978:library_2escm"),(void*)f_41978}, -{C_text("f_41995:library_2escm"),(void*)f_41995}, -{C_text("f_42009:library_2escm"),(void*)f_42009}, -{C_text("f_42017:library_2escm"),(void*)f_42017}, -{C_text("f_42021:library_2escm"),(void*)f_42021}, -{C_text("f_42036:library_2escm"),(void*)f_42036}, -{C_text("f_42040:library_2escm"),(void*)f_42040}, -{C_text("f_42054:library_2escm"),(void*)f_42054}, -{C_text("f_42094:library_2escm"),(void*)f_42094}, -{C_text("toplevel:library_2escm"),(void*)C_library_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.condition#prop-list->kind-prefixed-prop-list -o|hiding unexported module binding: chicken.process-context#_getenv -o|hiding unexported module binding: chicken.process-context#get-environment-entry -o|hiding unexported module binding: chicken.gc#finalizer-tag -o|hiding unexported module binding: chicken.gc#finalizer? -o|hiding unexported module binding: chicken.platform#path-list-separator -o|hiding unexported module binding: chicken.platform#chop-separator -o|hiding unexported module binding: chicken.platform#->feature-id -o|hiding unexported module binding: chicken.io#read-bytevector!/port -o|hiding unexported module binding: chicken.io#read-string!/port -o|hiding unexported module binding: chicken.io#read-string/port -o|hiding unexported module binding: chicken.io#read-bytevector/port -S|applied compiler syntax: -S| scheme#for-each 11 -S| ##sys#map 1 -S| chicken.base#foldl 5 -S| ##sys#for-each 9 -S| scheme#map 18 -o|eliminated procedure checks: 761 -o|folded constant expression: (scheme#char->integer (quote #\0)) -o|folded constant expression: (scheme#char->integer (quote #\a)) -o|folded constant expression: (scheme#char->integer (quote #\A)) -o|folded constant expression: (scheme#integer->char (quote 11)) -o|folded constant expression: (scheme#integer->char (quote 127)) -o|folded constant expression: (scheme#integer->char (quote 27)) -o|folded constant expression: (scheme#integer->char (quote 27)) -o|folded constant expression: (scheme#integer->char (quote 7)) -o|folded constant expression: (scheme#integer->char (quote 0)) -o|folded constant expression: (scheme#integer->char (quote 0)) -o|folded constant expression: (scheme#integer->char (quote 12)) -o|folded constant expression: (scheme#integer->char (quote 8)) -o|eliminated procedure checks: 1 -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#integer->char (quote 7)) -o|folded constant expression: (scheme#integer->char (quote 11)) -o|folded constant expression: (scheme#integer->char (quote 12)) -o|eliminated procedure checks: 1 -o|folded constant expression: (scheme#expt (quote 1024) (quote 3)) -o|folded constant expression: (scheme#expt (quote 1024) (quote 3)) -o|folded constant expression: (scheme#expt (quote 1024) (quote 2)) -o|folded constant expression: (scheme#expt (quote 1024) (quote 2)) -o|specializations: -o| 1 (scheme#memq * list) -o| 2 (scheme#number->string fixnum) -o| 2 (scheme#string-append string string) -o| 1 (scheme#cdar (pair pair *)) -o| 2 (scheme#cddr (pair * pair)) -o| 1 (scheme#char>? char char) -o| 1 (scheme#char=? char char) -o| 4 (scheme#zero? *) -o| 78 (scheme#eqv? (or eof null fixnum char boolean symbol keyword) *) -o| 2 (scheme#> fixnum fixnum) -o| 1 (scheme#make-string fixnum char) -o| 6 (scheme#number->string * *) -o| 3 (scheme#integer? *) -o| 2 (scheme#even? *) -o| 5 (scheme#/ * *) -o| 1 (scheme#+ integer integer) -o| 5 (chicken.bitwise#integer-length *) -o| 2 (chicken.flonum#fp<= float float) -o| 7 (scheme#- *) -o| 1 (scheme#odd? *) -o| 1 (chicken.flonum#fp> float float) -o| 2 (scheme#angle cplxnum) -o| 5 (chicken.base#finite? *) -o| 13 (chicken.base#exact-integer? *) -o| 8 (scheme#abs *) -o| 17 (scheme#exact->inexact number) -o| 17 (scheme#string-length string) -o| 179 (scheme#eqv? * (or eof null fixnum char boolean symbol keyword)) -o| 5 (##sys#debug-mode?) -o| 2 (scheme#- integer integer) -o| 15 (##sys#check-output-port * * *) -o| 5 (scheme#length list) -o| 13 (scheme#negative? *) -o| 6 (scheme#positive? *) -o| 1 (##sys#check-output-port * *) -o| 1 (##sys#check-input-port * *) -o| 56 (scheme#car pair) -(o e)|safe calls: 4345 -(o e)|dropped branches: 4 -(o e)|assignments to immediate values: 50 -o|dropping redundant toplevel assignment: scheme#make-list -o|dropping redundant toplevel assignment: scheme#port? -o|dropping redundant toplevel assignment: scheme#input-port-open? -o|dropping redundant toplevel assignment: scheme#output-port-open? -o|dropping redundant toplevel assignment: scheme#open-input-string -o|dropping redundant toplevel assignment: scheme#open-output-string -o|dropping redundant toplevel assignment: scheme#get-output-string -o|dropping redundant toplevel assignment: scheme#open-input-bytevector -o|dropping redundant toplevel assignment: scheme#open-output-bytevector -o|dropping redundant toplevel assignment: scheme#get-output-bytevector -o|dropping redundant toplevel assignment: chicken.base#warning -o|dropping redundant toplevel assignment: chicken.base#notice -o|dropping redundant toplevel assignment: chicken.base#enable-warnings -o|dropping redundant toplevel assignment: ##sys#check-bytevector -o|dropping redundant toplevel assignment: scheme#force -o|dropping redundant toplevel assignment: scheme#append -o|dropping redundant toplevel assignment: scheme#make-string -o|dropping redundant toplevel assignment: scheme#string->list -o|dropping redundant toplevel assignment: scheme#list->string -o|dropping redundant toplevel assignment: scheme#string-fill! -o|dropping redundant toplevel assignment: scheme#string-copy -o|dropping redundant toplevel assignment: scheme#string-copy! -o|dropping redundant toplevel assignment: scheme#substring -o|dropping redundant toplevel assignment: scheme#string? -o|dropping redundant toplevel assignment: scheme#string<=? -o|dropping redundant toplevel assignment: scheme#string>=? -o|dropping redundant toplevel assignment: scheme#string-ci? -o|dropping redundant toplevel assignment: scheme#string-ci<=? -o|dropping redundant toplevel assignment: scheme#string-ci>=? -o|dropping redundant toplevel assignment: scheme#string-append -o|dropping redundant toplevel assignment: scheme#string -o|dropping redundant toplevel assignment: chicken.base#chop -o|dropping redundant toplevel assignment: scheme#make-rectangular -o|dropping redundant toplevel assignment: scheme#make-polar -o|dropping redundant toplevel assignment: scheme#real-part -o|dropping redundant toplevel assignment: scheme#imag-part -o|dropping redundant toplevel assignment: scheme#angle -o|dropping redundant toplevel assignment: scheme#magnitude -o|dropping redundant toplevel assignment: scheme#numerator -o|dropping redundant toplevel assignment: scheme#denominator -o|dropping redundant toplevel assignment: scheme#inexact->exact -o|dropping redundant toplevel assignment: scheme#/ -o|dropping redundant toplevel assignment: scheme#floor -o|dropping redundant toplevel assignment: scheme#ceiling -o|dropping redundant toplevel assignment: scheme#truncate -o|dropping redundant toplevel assignment: scheme#round -o|dropping redundant toplevel assignment: scheme#rationalize -o|dropping redundant toplevel assignment: scheme#max -o|dropping redundant toplevel assignment: scheme#min -o|dropping redundant toplevel assignment: scheme#exp -o|dropping redundant toplevel assignment: scheme#log -o|dropping redundant toplevel assignment: scheme#sin -o|dropping redundant toplevel assignment: scheme#cos -o|dropping redundant toplevel assignment: scheme#tan -o|dropping redundant toplevel assignment: scheme#asin -o|dropping redundant toplevel assignment: scheme#acos -o|dropping redundant toplevel assignment: scheme#atan -o|dropping redundant toplevel assignment: scheme#sqrt -o|dropping redundant toplevel assignment: scheme#truncate/ -o|dropping redundant toplevel assignment: scheme#floor/ -o|dropping redundant toplevel assignment: scheme#floor-remainder -o|dropping redundant toplevel assignment: scheme#floor-quotient -o|dropping redundant toplevel assignment: chicken.base#exact-integer-nth-root -o|dropping redundant toplevel assignment: scheme#expt -o|dropping redundant toplevel assignment: scheme#gcd -o|dropping redundant toplevel assignment: scheme#lcm -o|dropping redundant toplevel assignment: scheme#string->number -o|dropping redundant toplevel assignment: ##sys#number->string -o|dropping redundant toplevel assignment: chicken.base#equal=? -o|dropping redundant toplevel assignment: scheme#symbol->string -o|dropping redundant toplevel assignment: scheme#string->symbol -o|dropping redundant toplevel assignment: chicken.base#string->uninterned-symbol -o|dropping redundant toplevel assignment: chicken.base#gensym -o|dropping redundant toplevel assignment: chicken.base#symbol-append -o|dropping redundant toplevel assignment: ##sys#update-errno -o|dropping redundant toplevel assignment: ##sys#errno -o|safe globals: (chicken.keyword#keyword->string chicken.keyword#string->keyword chicken.keyword#keyword? chicken.base#symbol-append chicken.base#gensym chicken.base#string->uninterned-symbol scheme#string->symbol scheme#symbol->string ##sys#string->symbol ##sys#symbol->string ##sys#symbol->string/shared ##sys#string->symbol-name ##sys#interned-symbol? ##sys#make-symbol ##sys#intern-keyword ##sys#intern-symbol ##sys#snafu chicken.base#equal=? ##sys#number->string ##sys#integer->string ##sys#flonum->string ##sys#fixnum->string ##sys#string->number scheme#string->number ##sys#string->compnum round-quotient ldexp mantexp->dbl ##sys#extended-number->string ##sys#integer->string/recursive scheme#lcm ##sys#lcm scheme#gcd ##sys#gcd ##sys#internal-gcd scheme#expt ##sys#integer-power ##sys#exact-integer-nth-root/loc chicken.base#exact-integer-nth-root scheme#square scheme#floor-quotient scheme#floor-remainder scheme#floor/ scheme#truncate/ scheme#sqrt ##sys#sqrt/loc scheme#exact-integer-sqrt ##sys#exact-integer-sqrt scheme#atan scheme#acos scheme#asin scheme#tan scheme#cos scheme#sin scheme#log ##sys#log-1 scheme#exp scheme#min scheme#max scheme#rationalize find-ratio find-ratio-between scheme#round scheme#truncate scheme#ceiling scheme#floor ##sys#/-2 scheme#/ chicken.bitwise#arithmetic-shift chicken.bitwise#integer-length chicken.bitwise#bit->boolean chicken.bitwise#bitwise-not chicken.bitwise#bitwise-xor chicken.bitwise#bitwise-ior chicken.bitwise#bitwise-and scheme#inexact->exact flonum->ratnum ##sys#extended-signum scheme#denominator scheme#numerator ratnum scheme#magnitude scheme#angle scheme#imag-part scheme#real-part scheme#make-polar scheme#make-rectangular make-complex chicken.flonum#flonum-print-precision chicken.flonum#fpinteger? chicken.flonum#fpabs chicken.flonum#fpsqrt chicken.flonum#fplog chicken.flonum#fpexpt chicken.flonum#fpexp chicken.flonum#fpatanh chicken.flonum#fpacosh chicken.flonum#fpasinh chicken.flonum#fptanh chicken.flonum#fpcosh chicken.flonum#fpsinh chicken.flonum#fpatan2 chicken.flonum#fpatan chicken.flonum#fpacos chicken.flonum#fpasin chicken.flonum#fptan chicken.flonum#fpcos chicken.flonum#fpsin chicken.flonum#fpceiling chicken.flonum#fpround chicken.flonum#fptruncate chicken.flonum#fpfloor chicken.flonum#fpmin chicken.flonum#fpmax chicken.flonum#fpneg chicken.flonum#fp<= chicken.flonum#fp>= chicken.flonum#fp< chicken.flonum#fp> chicken.flonum#fp= chicken.flonum#fp/? chicken.flonum#fpgcd chicken.flonum#fp*+ chicken.flonum#fp/ chicken.flonum#fp* chicken.flonum#fp- chicken.flonum#fp+ chicken.flonum#flonum-minimum-decimal-exponent chicken.flonum#flonum-maximum-decimal-exponent chicken.flonum#flonum-minimum-exponent chicken.flonum#flonum-maximum-exponent chicken.flonum#flonum-decimal-precision chicken.flonum#flonum-precision chicken.flonum#flonum-epsilon chicken.flonum#flonum-radix chicken.flonum#minimum-flonum chicken.flonum#maximum-flonum chicken.base#chop ##sys#char->utf8-string scheme#string scheme#string-append ##sys#string-append scheme#string-ci>=? scheme#string-ci<=? scheme#string-ci>? scheme#string-ci=? scheme#string<=? scheme#string>? scheme#stringstring ##sys#list->string scheme#list->string ##sys#string->list scheme#string->list scheme#make-string ##sys#read-char/encoding ##sys#decode-char ##sys#encode-char ##sys#decode-buffer ##sys#encode-buffer ##sys#buffer->string/encoding ##sys#register-encoding ##sys#encoding-hook ##sys#binary-scanner ##sys#binary-encoder ##sys#binary-decoder ##sys#latin-scanner ##sys#latin-encoder ##sys#latin-decoder ##sys#utf-scanner ##sys#utf-encoder ##sys#utf-decoder ##sys#buffer->string ##sys#make-string ##sys#make-bytevector ##sys#fast-reverse scheme#append ##sys#error-bad-base ##sys#error-bad-real ##sys#error-bad-inexact ##sys#error-bad-exact-uinteger ##sys#error-bad-exact-integer ##sys#error-bad-integer ##sys#error-bad-number ##sys#error-not-a-proper-list ##sys#set-dlopen-flags! ##sys#dload scheme#force ##sys#check-closure ##sys#check-special ##sys#check-range/including ##sys#check-range ##sys#check-real ##sys#check-exact-uinteger ##sys#check-exact-integer ##sys#check-integer ##sys#check-locative ##sys#check-boolean ##sys#check-char ##sys#check-vector ##sys#check-keyword ##sys#check-symbol ##sys#check-inexact ##sys#check-exact ##sys#check-bytevector ##sys#check-fixnum ##sys#check-number ##sys#check-string ##sys#check-list ##sys#check-pair ##sys#check-blob ##sys#check-structure chicken.time#cpu-time chicken.time#current-seconds chicken.time#current-process-milliseconds ##sys#block-set! ##sys#copy-closure ##sys#apply-values ##sys#block-ref ##sys#become! ##sys#halt ##sys#undefined-value ##sys#void ##sys#byte ##sys#message ##sys#immediate? ##sys#stop-timer ##sys#start-timer ##sys#memory-info ##sys#symbol-table-info ##sys#ensure-heap-reserve ##sys#make-structure ##sys#allocate-bytevector ##sys#allocate-vector ##sys#setislot ##sys#setslot ##sys#gc ##sys#error/errno ##sys#notice ##sys#warn ##sys#error chicken.base#enable-warnings chicken.base#notice chicken.base#warning ##sys#notices-enabled ##sys#warnings-enabled ##sys#debug-mode? chicken.fixnum#fx/? chicken.fixnum#fx*? chicken.fixnum#fx-? chicken.fixnum#fx+? chicken.fixnum#fxrem chicken.fixnum#fxmod chicken.fixnum#fxgcd chicken.fixnum#fx/ chicken.fixnum#fxlen chicken.fixnum#fxeven? chicken.fixnum#fxodd? chicken.fixnum#fxshr chicken.fixnum#fxshl chicken.fixnum#fxnot chicken.fixnum#fxxor chicken.fixnum#fxior chicken.fixnum#fxand chicken.fixnum#fxneg chicken.fixnum#fxmax chicken.fixnum#fxmin chicken.fixnum#fx<= chicken.fixnum#fx>= chicken.fixnum#fx< chicken.fixnum#fx> chicken.fixnum#fx= chicken.fixnum#fx* chicken.fixnum#fx- chicken.fixnum#fx+ chicken.fixnum#fixnum-precision chicken.fixnum#fixnum-bits chicken.fixnum#most-negative-fixnum chicken.fixnum#most-positive-fixnum maximal-string-length scheme#get-output-bytevector scheme#open-output-bytevector scheme#open-input-bytevector scheme#get-output-string scheme#open-output-string scheme#open-input-string chicken.base#rassoc chicken.base#alist-ref chicken.base#alist-update chicken.base#alist-update! chicken.base#string-foldcase chicken.base#char-foldcase chicken.base#compress chicken.base#join chicken.base#flatten chicken.base#butlast chicken.base#intersperse chicken.base#tail? chicken.base#atom? chicken.base#weak-pair? chicken.base#weak-cons chicken.base#bwp-object? chicken.base#each chicken.base#list-of? chicken.base#o chicken.base#compose chicken.base#complement chicken.base#flip chicken.base#constantly chicken.base#disjoin chicken.base#conjoin chicken.base#identity chicken.base#symbol-escape chicken.base#parentheses-synonyms chicken.base#keyword-style chicken.base#case-sensitive chicken.base#emergency-exit chicken.base#exit chicken.base#on-exit chicken.base#cleanup-tasks chicken.base#exit-handler chicken.base#implicit-exit-handler chicken.base#foldr chicken.base#foldl chicken.base#make-promise ##sys#make-promise chicken.base#promise? chicken.base#flush-output chicken.base#port-closed? chicken.base#vector-resize chicken.base#subvector chicken.base#set-record-printer! chicken.base#record-printer chicken.base#setter chicken.base#procedure-information chicken.base#getter-with-setter chicken.base#char-name chicken.base#sleep chicken.base#void chicken.base#error chicken.base#current-error-port chicken.base#sub1 chicken.base#add1 chicken.base#print* chicken.base#print chicken.base#print-call-chain chicken.base#get-call-chain chicken.base#signum chicken.base#nan? chicken.base#infinite? chicken.base#finite? chicken.base#quotient&modulo chicken.base#quotient&remainder chicken.base#exact-integer-sqrt chicken.base#exact-integer? chicken.base#cplxnum? chicken.base#ratnum? chicken.base#bignum? chicken.base#flonum? chicken.base#fixnum? scheme#dynamic-wind scheme#map scheme#for-each scheme#load scheme#null-environment scheme#scheme-report-environment scheme#interaction-environment scheme#eval scheme#display scheme#write scheme#newline scheme#write-char scheme#read scheme#peek-char scheme#read-char scheme#char-ready? scheme#eof-object? scheme#with-output-to-file scheme#with-input-from-file scheme#call-with-output-file scheme#call-with-input-file scheme#close-output-port scheme#close-input-port scheme#open-output-file scheme#open-input-file scheme#current-output-port scheme#current-input-port scheme#output-port-open? scheme#input-port-open? scheme#port? scheme#textual-port? scheme#binary-port? scheme#output-port? scheme#input-port? scheme#call/cc scheme#call-with-current-continuation scheme#call-with-values scheme#values scheme#apply scheme#procedure? scheme.char#digit-value scheme#char-alphabetic? scheme#char-whitespace? scheme#char-numeric? scheme#char-lower-case? scheme#char-upper-case? scheme#char-ci<=? scheme#char-ci>=? scheme#char-ci? scheme#char-ci=? scheme#char-downcase scheme#char-upcase scheme#char<=? scheme#char>=? scheme#char? scheme#char=? scheme#integer->char scheme#char->integer scheme#char? scheme#vector-fill! scheme#vector scheme#vector->list scheme#list->vector scheme#make-vector scheme#vector-set! scheme#vector-ref scheme#vector-length scheme#vector? scheme#symbol? scheme#number->string scheme#negative? scheme#positive? scheme#zero? scheme#inexact? scheme#exact? scheme#integer? scheme#rational? scheme#real? scheme#complex? scheme#number? scheme#<= scheme#>= scheme#< scheme#> scheme#= scheme#odd? scheme#even? scheme#modulo scheme#remainder scheme#quotient scheme#* scheme#- scheme#+ scheme#abs scheme#exact->inexact scheme#make-parameter scheme#inexact scheme#exact scheme#vector->string scheme#string->vector scheme#list-copy scheme#eof-object scheme#write-string scheme#list-set! scheme#make-list scheme#vector-for-each scheme#string-for-each scheme#vector-map scheme#string-map scheme#peek-u8 scheme#close-port scheme#call-with-port scheme#features scheme#string-ci=? scheme#string=? scheme#string-set! scheme#string-ref scheme#string-length scheme#string? scheme#list? scheme#assoc scheme#assv scheme#assq scheme#member scheme#memv scheme#memq scheme#reverse scheme#list-ref scheme#list-tail scheme#length scheme#list scheme#null? scheme#cdddar scheme#cddadr scheme#cddaar scheme#cdaddr scheme#cdadar scheme#cdaadr scheme#cdaaar scheme#caddar scheme#cadadr scheme#cadaar scheme#caaddr scheme#caadar scheme#caaadr scheme#caaaar scheme#cdddr scheme#cddar scheme#cdadr scheme#cdaar scheme#cadar scheme#caadr scheme#caaar scheme#cddr scheme#cdar scheme#caar scheme#cddddr scheme#cadddr scheme#caddr scheme#cadr scheme#set-cdr! scheme#set-car! scheme#cdr scheme#car scheme#cons scheme#pair? scheme#symbol=? scheme#boolean=? scheme#equal? scheme#eqv? scheme#eq? scheme#boolean? scheme#not c9526) -o|inlining procedure: k11473 -o|inlining procedure: k11473 -o|inlining procedure: k11493 -o|inlining procedure: k11493 -o|inlining procedure: k11518 -o|inlining procedure: k11518 -o|inlining procedure: k11538 -o|inlining procedure: k11538 -o|inlining procedure: k11850 -o|inlining procedure: k11850 -o|inlining procedure: k11892 -o|inlining procedure: k11901 -o|inlining procedure: k11901 -o|inlining procedure: k11892 -o|inlining procedure: k11942 -o|inlining procedure: k11951 -o|inlining procedure: k11951 -o|inlining procedure: k11942 -o|inlining procedure: k12010 -o|inlining procedure: k12010 -o|inlining procedure: k12030 -o|inlining procedure: k12030 -o|inlining procedure: k12043 -o|inlining procedure: k12043 -o|inlining procedure: k12063 -o|inlining procedure: k12063 -o|inlining procedure: k12195 -o|inlining procedure: k12195 -o|inlining procedure: k12215 -o|inlining procedure: k12215 -o|inlining procedure: k12234 -o|inlining procedure: k12234 -o|inlining procedure: k12254 -o|inlining procedure: k12254 -o|inlining procedure: k12273 -o|inlining procedure: k12273 -o|inlining procedure: k12293 -o|inlining procedure: k12293 -o|inlining procedure: k12312 -o|inlining procedure: k12312 -o|inlining procedure: k12332 -o|inlining procedure: k12332 -o|inlining procedure: k12351 -o|inlining procedure: k12351 -o|inlining procedure: k12371 -o|inlining procedure: k12371 -o|inlining procedure: k12427 -o|inlining procedure: k12427 -o|inlining procedure: k12448 -o|inlining procedure: k12448 -o|inlining procedure: k12454 -o|inlining procedure: k12454 -o|inlining procedure: k12460 -o|inlining procedure: k12460 -o|inlining procedure: k12476 -o|inlining procedure: k12476 -o|inlining procedure: k12492 -o|inlining procedure: k12492 -o|substituted constant variable: a12499 -o|substituted constant variable: a12504 -o|inlining procedure: k12597 -o|inlining procedure: k12597 -o|inlining procedure: k12659 -o|inlining procedure: k12659 -o|inlining procedure: k12700 -o|inlining procedure: k12700 -o|inlining procedure: k12724 -o|inlining procedure: k12724 -o|inlining procedure: k12761 -o|inlining procedure: k12761 -o|inlining procedure: k12850 -o|inlining procedure: k12850 -o|inlining procedure: k12880 -o|inlining procedure: k12880 -o|inlining procedure: k12909 -o|inlining procedure: k12909 -o|inlining procedure: k12953 -o|inlining procedure: k12953 -o|inlining procedure: k12974 -o|propagated global variable: r1297542192 scheme#values -o|inlining procedure: k12974 -o|inlining procedure: k12986 -o|propagated global variable: r1298742194 chicken.base#identity -o|inlining procedure: k12986 -o|inlining procedure: k13004 -o|inlining procedure: k13004 -o|inlining procedure: k13033 -o|inlining procedure: k13033 -o|inlining procedure: k13045 -o|inlining procedure: k13045 -o|inlining procedure: k13069 -o|inlining procedure: k13069 -o|inlining procedure: k13103 -o|inlining procedure: k13103 -o|inlining procedure: k13146 -o|inlining procedure: k13146 -o|inlining procedure: k13171 -o|inlining procedure: k13171 -o|inlining procedure: k13210 -o|inlining procedure: k13210 -o|inlining procedure: k13236 -o|inlining procedure: k13236 -o|inlining procedure: k13283 -o|inlining procedure: k13283 -o|inlining procedure: k13304 -o|inlining procedure: k13304 -o|inlining procedure: k13337 -o|inlining procedure: k13337 -o|inlining procedure: k13352 -o|inlining procedure: k13352 -o|inlining procedure: k13443 -o|inlining procedure: k13443 -o|inlining procedure: k13459 -o|propagated global variable: r1346042224 scheme#assv -o|inlining procedure: k13459 -o|inlining procedure: k13479 -o|inlining procedure: k13479 -o|inlining procedure: k13529 -o|inlining procedure: k13529 -o|inlining procedure: k13554 -o|inlining procedure: k13554 -o|inlining procedure: k13642 -o|inlining procedure: k13642 -o|inlining procedure: k13651 -o|propagated global variable: r1365242234 scheme#assv -o|inlining procedure: k13651 -o|inlining procedure: k13671 -o|inlining procedure: k13671 -o|inlining procedure: k13689 -o|inlining procedure: k13689 -o|inlining procedure: k13748 -o|inlining procedure: k13748 -o|substituted constant variable: a13832 -o|substituted constant variable: a13833 -o|inlining procedure: k13834 -o|inlining procedure: k13834 -o|inlining procedure: k13887 -o|inlining procedure: k13887 -o|inlining procedure: k13900 -o|inlining procedure: k13900 -o|inlining procedure: k14014 -o|inlining procedure: k14014 -o|substituted constant variable: a14044 -o|inlining procedure: k14144 -o|inlining procedure: k14144 -o|inlining procedure: k14153 -o|inlining procedure: k14153 -o|inlining procedure: k14165 -o|inlining procedure: k14165 -o|propagated global variable: r1416642255 ##sys#warnings-enabled -o|inlining procedure: k14179 -o|inlining procedure: k14179 -o|inlining procedure: k14282 -o|inlining procedure: k14282 -o|inlining procedure: k14315 -o|inlining procedure: k14315 -o|inlining procedure: k14326 -o|inlining procedure: k14326 -o|inlining procedure: k14337 -o|inlining procedure: k14337 -o|inlining procedure: k14348 -o|inlining procedure: k14348 -o|inlining procedure: k14359 -o|inlining procedure: k14359 -o|inlining procedure: k14370 -o|inlining procedure: k14370 -o|inlining procedure: k14381 -o|inlining procedure: k14381 -o|inlining procedure: k14392 -o|inlining procedure: k14392 -o|inlining procedure: k14403 -o|inlining procedure: k14403 -o|inlining procedure: k14414 -o|inlining procedure: k14414 -o|inlining procedure: k14425 -o|inlining procedure: k14425 -o|inlining procedure: k14436 -o|inlining procedure: k14436 -o|inlining procedure: k14447 -o|inlining procedure: k14447 -o|inlining procedure: k14458 -o|inlining procedure: k14458 -o|inlining procedure: k14469 -o|inlining procedure: k14469 -o|inlining procedure: k14480 -o|inlining procedure: k14480 -o|inlining procedure: k14491 -o|inlining procedure: k14491 -o|inlining procedure: k14498 -o|inlining procedure: k14498 -o|inlining procedure: k14508 -o|inlining procedure: k14508 -o|inlining procedure: k14515 -o|inlining procedure: k14515 -o|inlining procedure: k14525 -o|inlining procedure: k14538 -o|inlining procedure: k14538 -o|inlining procedure: k14525 -o|inlining procedure: k14549 -o|inlining procedure: k14549 -o|inlining procedure: k14556 -o|inlining procedure: k14556 -o|inlining procedure: k14566 -o|inlining procedure: k14566 -o|inlining procedure: k14577 -o|inlining procedure: k14577 -o|inlining procedure: k14588 -o|inlining procedure: k14588 -o|inlining procedure: k14598 -o|inlining procedure: k14598 -o|inlining procedure: k14608 -o|inlining procedure: k14608 -o|inlining procedure: k14619 -o|inlining procedure: k14634 -o|inlining procedure: k14634 -o|inlining procedure: k14652 -o|inlining procedure: k14673 -o|inlining procedure: k14673 -o|inlining procedure: k14701 -o|inlining procedure: k14701 -o|inlining procedure: k14652 -o|inlining procedure: k14619 -o|inlining procedure: k14875 -o|inlining procedure: k14875 -o|inlining procedure: k14887 -o|inlining procedure: k14887 -o|inlining procedure: k14906 -o|inlining procedure: k14906 -o|inlining procedure: k14960 -o|inlining procedure: k14960 -o|inlining procedure: k14984 -o|inlining procedure: k14984 -o|inlining procedure: k15044 -o|inlining procedure: k15044 -o|inlining procedure: k15112 -o|inlining procedure: k15112 -o|inlining procedure: k15130 -o|inlining procedure: k15130 -o|substituted constant variable: a15143 -o|substituted constant variable: a15145 -o|substituted constant variable: a15147 -o|inlining procedure: k15154 -o|inlining procedure: k15154 -o|inlining procedure: k15169 -o|inlining procedure: k15169 -o|inlining procedure: k15269 -o|inlining procedure: k15269 -o|inlining procedure: k15322 -o|inlining procedure: k15322 -o|inlining procedure: k15377 -o|inlining procedure: k15377 -o|inlining procedure: k15434 -o|inlining procedure: k15434 -o|inlining procedure: k15452 -o|inlining procedure: k15452 -o|inlining procedure: k15505 -o|inlining procedure: k15505 -o|inlining procedure: k15581 -o|inlining procedure: k15581 -o|inlining procedure: k15593 -o|inlining procedure: k15593 -o|inlining procedure: k15630 -o|inlining procedure: k15630 -o|inlining procedure: k15770 -o|inlining procedure: k15790 -o|inlining procedure: k15790 -o|inlining procedure: k15770 -o|inlining procedure: k15824 -o|inlining procedure: k15824 -o|inlining procedure: k15857 -o|inlining procedure: k15857 -o|inlining procedure: k15916 -o|inlining procedure: k15916 -o|inlining procedure: k15932 -o|inlining procedure: k15932 -o|inlining procedure: k15973 -o|inlining procedure: k15973 -o|inlining procedure: k15997 -o|inlining procedure: k15997 -o|inlining procedure: k16029 -o|inlining procedure: k16029 -o|inlining procedure: k16053 -o|inlining procedure: k16053 -o|inlining procedure: k16074 -o|inlining procedure: k16074 -o|inlining procedure: k16095 -o|inlining procedure: k16095 -o|inlining procedure: k16131 -o|inlining procedure: k16131 -o|inlining procedure: k16155 -o|inlining procedure: k16155 -o|inlining procedure: k16179 -o|inlining procedure: k16179 -o|inlining procedure: k16203 -o|inlining procedure: k16203 -o|inlining procedure: k16224 -o|inlining procedure: k16224 -o|inlining procedure: k16245 -o|inlining procedure: k16245 -o|inlining procedure: k16312 -o|inlining procedure: k16312 -o|inlining procedure: k16391 -o|inlining procedure: k16391 -o|inlining procedure: k16412 -o|inlining procedure: k16412 -o|contracted procedure: "(library.scm:2113) g23462347" -o|inlining procedure: k16473 -o|inlining procedure: k16473 -o|contracted procedure: "(library.scm:2117) g23572358" -o|inlining procedure: k16497 -o|inlining procedure: k16497 -o|contracted procedure: "(library.scm:2121) g23682369" -o|inlining procedure: k16521 -o|inlining procedure: k16521 -o|contracted procedure: "(library.scm:2125) g23792380" -o|inlining procedure: k16545 -o|inlining procedure: k16545 -o|inlining procedure: k16567 -o|inlining procedure: k16567 -o|inlining procedure: k16580 -o|inlining procedure: k16580 -o|contracted procedure: "(library.scm:2135) g23982399" -o|inlining procedure: k16594 -o|inlining procedure: k16594 -o|contracted procedure: "(library.scm:2139) g24092410" -o|inlining procedure: k16618 -o|inlining procedure: k16618 -o|contracted procedure: "(library.scm:2143) g24202421" -o|inlining procedure: k16642 -o|inlining procedure: k16642 -o|contracted procedure: "(library.scm:2147) g24312432" -o|inlining procedure: k16666 -o|inlining procedure: k16666 -o|contracted procedure: "(library.scm:2151) g24422443" -o|inlining procedure: k16690 -o|inlining procedure: k16690 -o|contracted procedure: "(library.scm:2155) g24532454" -o|inlining procedure: k16714 -o|inlining procedure: k16714 -o|contracted procedure: "(library.scm:2159) g24642465" -o|inlining procedure: k16738 -o|inlining procedure: k16738 -o|contracted procedure: "(library.scm:2163) g24742475" -o|inlining procedure: k16762 -o|inlining procedure: k16762 -o|contracted procedure: "(library.scm:2167) g24832484" -o|inlining procedure: k16780 -o|inlining procedure: k16780 -o|contracted procedure: "(library.scm:2171) g24942495" -o|inlining procedure: k16804 -o|inlining procedure: k16804 -o|contracted procedure: "(library.scm:2175) g25042505" -o|inlining procedure: k16828 -o|inlining procedure: k16828 -o|contracted procedure: "(library.scm:2179) g25122513" -o|inlining procedure: k16846 -o|inlining procedure: k16846 -o|contracted procedure: "(library.scm:2183) g25202521" -o|inlining procedure: k16864 -o|inlining procedure: k16864 -o|contracted procedure: "(library.scm:2187) g25282529" -o|inlining procedure: k16882 -o|inlining procedure: k16882 -o|contracted procedure: "(library.scm:2191) g25362537" -o|inlining procedure: k16900 -o|inlining procedure: k16900 -o|contracted procedure: "(library.scm:2195) g25442545" -o|inlining procedure: k16918 -o|inlining procedure: k16918 -o|contracted procedure: "(library.scm:2199) g25522553" -o|inlining procedure: k16936 -o|inlining procedure: k16936 -o|contracted procedure: "(library.scm:2203) g25602561" -o|inlining procedure: k16954 -o|inlining procedure: k16954 -o|contracted procedure: "(library.scm:2207) g25682569" -o|inlining procedure: k16972 -o|inlining procedure: k16972 -o|contracted procedure: "(library.scm:2211) g25762577" -o|inlining procedure: k16990 -o|inlining procedure: k16990 -o|contracted procedure: "(library.scm:2215) g25852586" -o|inlining procedure: k17008 -o|inlining procedure: k17008 -o|contracted procedure: "(library.scm:2219) g25952596" -o|inlining procedure: k17032 -o|inlining procedure: k17032 -o|contracted procedure: "(library.scm:2223) g26032604" -o|inlining procedure: k17050 -o|inlining procedure: k17050 -o|contracted procedure: "(library.scm:2227) g26112612" -o|inlining procedure: k17068 -o|inlining procedure: k17068 -o|contracted procedure: "(library.scm:2231) g26192620" -o|inlining procedure: k17086 -o|inlining procedure: k17086 -o|contracted procedure: "(library.scm:2235) g26272628" -o|inlining procedure: k17104 -o|inlining procedure: k17104 -o|contracted procedure: "(library.scm:2239) g26352636" -o|inlining procedure: k17122 -o|inlining procedure: k17122 -o|contracted procedure: "(library.scm:2243) g26432644" -o|inlining procedure: k17140 -o|inlining procedure: k17140 -o|contracted procedure: "(library.scm:2247) g26522653" -o|inlining procedure: k17158 -o|inlining procedure: k17158 -o|contracted procedure: "(library.scm:2251) g26622663" -o|inlining procedure: k17182 -o|inlining procedure: k17182 -o|contracted procedure: "(library.scm:2255) g26702671" -o|inlining procedure: k17200 -o|inlining procedure: k17200 -o|contracted procedure: "(library.scm:2259) g26782679" -o|inlining procedure: k17218 -o|inlining procedure: k17218 -o|contracted procedure: "(library.scm:2263) g26862687" -o|inlining procedure: k17236 -o|inlining procedure: k17236 -o|inlining procedure: k17255 -o|inlining procedure: k17255 -o|inlining procedure: k17270 -o|inlining procedure: k17270 -o|inlining procedure: k17297 -o|inlining procedure: k17297 -o|inlining procedure: k17341 -o|contracted procedure: "(library.scm:2307) g27812782" -o|inlining procedure: k17341 -o|inlining procedure: k17364 -o|contracted procedure: "(library.scm:2313) g27892790" -o|inlining procedure: k17364 -o|inlining procedure: k17378 -o|inlining procedure: k17378 -o|inlining procedure: k17406 -o|contracted procedure: "(library.scm:2329) g28042805" -o|contracted procedure: "(library.scm:2328) g28012802" -o|inlining procedure: k17406 -o|inlining procedure: k17450 -o|inlining procedure: k17450 -o|contracted procedure: "(library.scm:2343) g28142815" -o|inlining procedure: k17467 -o|contracted procedure: "(library.scm:2345) g28172818" -o|contracted procedure: "(library.scm:2345) g28242825" -o|contracted procedure: "(library.scm:2345) g28212822" -o|inlining procedure: k17467 -o|contracted procedure: "(library.scm:2346) g28272828" -o|inlining procedure: k17496 -o|inlining procedure: k17496 -o|inlining procedure: k17503 -o|inlining procedure: k17503 -o|inlining procedure: k17525 -o|contracted procedure: "(library.scm:2355) g28402841" -o|inlining procedure: k17525 -o|inlining procedure: k17542 -o|inlining procedure: k17542 -o|inlining procedure: k17549 -o|inlining procedure: k17549 -o|inlining procedure: k17571 -o|contracted procedure: "(library.scm:2367) g28522853" -o|inlining procedure: k17571 -o|inlining procedure: k17588 -o|contracted procedure: "(library.scm:2374) g28612862" -o|inlining procedure: k17588 -o|inlining procedure: k17712 -o|inlining procedure: k17712 -o|inlining procedure: k17721 -o|contracted procedure: "(library.scm:2407) g28932894" -o|inlining procedure: k17721 -o|contracted procedure: "(library.scm:2408) flonum->ratnum" -o|inlining procedure: k17652 -o|contracted procedure: "(library.scm:2392) g28782879" -o|inlining procedure: k17652 -o|contracted procedure: "(library.scm:2389) float-fraction-length2866" -o|inlining procedure: k17629 -o|inlining procedure: k17629 -o|inlining procedure: k17680 -o|inlining procedure: k17680 -o|substituted constant variable: a17708 -o|inlining procedure: k17738 -o|contracted procedure: "(library.scm:2412) g28992900" -o|contracted procedure: "(library.scm:2411) g28962897" -o|inlining procedure: k17738 -o|inlining procedure: k17788 -o|inlining procedure: k17788 -o|inlining procedure: k17811 -o|inlining procedure: k17811 -o|inlining procedure: k17842 -o|contracted procedure: "(library.scm:2461) g29552956" -o|contracted procedure: "(library.scm:2461) g29512952" -o|contracted procedure: "(library.scm:2460) g29472948" -o|inlining procedure: k17842 -o|inlining procedure: k17933 -o|inlining procedure: k17933 -o|inlining procedure: k17956 -o|contracted procedure: "(library.scm:2481) g29942995" -o|contracted procedure: "(library.scm:2480) g29892990" -o|contracted procedure: "(library.scm:2479) g29852986" -o|contracted procedure: "(library.scm:2479) g29812982" -o|contracted procedure: "(library.scm:2478) g29772978" -o|contracted procedure: "(library.scm:2478) g29732974" -o|inlining procedure: k17956 -o|contracted procedure: "(library.scm:2490) g30053006" -o|contracted procedure: "(library.scm:2487) g29993000" -o|inlining procedure: k18052 -o|contracted procedure: "(library.scm:2500) g30143015" -o|contracted procedure: "(library.scm:2498) g30093010" -o|inlining procedure: k18052 -o|inlining procedure: k18122 -o|inlining procedure: k18122 -o|inlining procedure: k18132 -o|contracted procedure: "(library.scm:2514) g30293030" -o|contracted procedure: "(library.scm:2513) g30253026" -o|inlining procedure: k18132 -o|inlining procedure: k18167 -o|inlining procedure: k18167 -o|inlining procedure: k18177 -o|contracted procedure: "(library.scm:2524) g30423043" -o|contracted procedure: "(library.scm:2523) g30383039" -o|inlining procedure: k18177 -o|inlining procedure: k18212 -o|inlining procedure: k18212 -o|inlining procedure: k18222 -o|contracted procedure: "(library.scm:2534) g30533054" -o|contracted procedure: "(library.scm:2533) g30503051" -o|inlining procedure: k18222 -o|inlining procedure: k18249 -o|inlining procedure: k18249 -o|inlining procedure: k18256 -o|contracted procedure: "(library.scm:2543) g30623063" -o|inlining procedure: k18256 -o|inlining procedure: k18302 -o|inlining procedure: k18302 -o|inlining procedure: k18374 -o|inlining procedure: k18374 -o|inlining procedure: k18392 -o|inlining procedure: k18392 -o|inlining procedure: k18446 -o|inlining procedure: k18446 -o|contracted procedure: "(library.scm:2570) find-ratio" -o|inlining procedure: k18478 -o|inlining procedure: k18478 -o|inlining procedure: k18522 -o|inlining procedure: k18522 -o|inlining procedure: k18559 -o|contracted procedure: "(library.scm:2603) g31253126" -o|contracted procedure: "(library.scm:2602) g31213122" -o|inlining procedure: k18559 -o|inlining procedure: k18601 -o|inlining procedure: k18601 -o|inlining procedure: k18653 -o|inlining procedure: k18653 -o|inlining procedure: k18682 -o|inlining procedure: k18682 -o|inlining procedure: k18716 -o|inlining procedure: k18716 -o|inlining procedure: k18750 -o|inlining procedure: k18750 -o|inlining procedure: k18775 -o|inlining procedure: k18775 -o|inlining procedure: k18814 -o|inlining procedure: k18814 -o|inlining procedure: k18823 -o|substituted constant variable: a18830 -o|inlining procedure: k18823 -o|inlining procedure: k18837 -o|inlining procedure: k18837 -o|inlining procedure: k18856 -o|inlining procedure: k18856 -o|inlining procedure: k18865 -o|substituted constant variable: a18872 -o|inlining procedure: k18865 -o|inlining procedure: k18882 -o|inlining procedure: k18882 -o|inlining procedure: k18940 -o|inlining procedure: k18958 -o|inlining procedure: k18958 -o|inlining procedure: k18976 -o|inlining procedure: k18976 -o|substituted constant variable: a18989 -o|substituted constant variable: a18991 -o|substituted constant variable: a18993 -o|substituted constant variable: a18998 -o|substituted constant variable: a19000 -o|inlining procedure: k18940 -o|substituted constant variable: a19031 -o|inlining procedure: k19066 -o|inlining procedure: k19066 -o|inlining procedure: k19140 -o|inlining procedure: k19140 -o|inlining procedure: k19191 -o|inlining procedure: k19207 -o|inlining procedure: k19207 -o|inlining procedure: k19191 -o|contracted procedure: "(library.scm:2744) g32673268" -o|inlining procedure: k19241 -o|contracted procedure: "(library.scm:2747) g32723273" -o|inlining procedure: k19265 -o|inlining procedure: k19265 -o|inlining procedure: k19241 -o|inlining procedure: k19314 -o|inlining procedure: k19314 -o|inlining procedure: k19405 -o|inlining procedure: k19405 -o|inlining procedure: k19450 -o|inlining procedure: k19450 -o|inlining procedure: k19522 -o|inlining procedure: k19522 -o|inlining procedure: k19537 -o|contracted procedure: "(library.scm:2812) g33233324" -o|inlining procedure: k19537 -o|inlining procedure: k19560 -o|inlining procedure: k19560 -o|contracted procedure: "(library.scm:2817) square3321" -o|inlining procedure: k19616 -o|inlining procedure: k19616 -o|inlining procedure: k19636 -o|inlining procedure: k19636 -o|inlining procedure: k19654 -o|contracted procedure: "(library.scm:2837) g33513352" -o|contracted procedure: "(library.scm:2836) g33483349" -o|inlining procedure: k19654 -o|inlining procedure: k19691 -o|contracted procedure: "(library.scm:2846) g33583359" -o|inlining procedure: k19726 -o|contracted procedure: "(library.scm:2848) g33633364" -o|inlining procedure: k19726 -o|inlining procedure: k19691 -o|inlining procedure: k19760 -o|inlining procedure: k19760 -o|inlining procedure: k19778 -o|inlining procedure: k19778 -o|inlining procedure: k19797 -o|inlining procedure: k19797 -o|inlining procedure: k19834 -o|inlining procedure: k19834 -o|inlining procedure: k19866 -o|contracted procedure: "(library.scm:2874) g33883389" -o|inlining procedure: k19879 -o|contracted procedure: "(library.scm:2877) g33933394" -o|inlining procedure: k19879 -o|inlining procedure: k19866 -o|inlining procedure: k19907 -o|inlining procedure: k19907 -o|contracted procedure: "(library.scm:2884) g34023403" -o|inlining procedure: k19942 -o|inlining procedure: k19942 -o|inlining procedure: k19962 -o|inlining procedure: k19962 -o|inlining procedure: k20007 -o|inlining procedure: k20007 -o|inlining procedure: k20027 -o|inlining procedure: k20027 -o|substituted constant variable: a20100 -o|inlining procedure: k20115 -o|contracted procedure: "(library.scm:2940) g34683469" -o|contracted procedure: "(library.scm:2938) g34653466" -o|inlining procedure: k20115 -o|inlining procedure: k20179 -o|inlining procedure: k20179 -o|contracted procedure: "(library.scm:2944) g34763477" -o|contracted procedure: "(library.scm:2943) g34733474" -o|inlining procedure: k20294 -o|inlining procedure: k20307 -o|inlining procedure: k20307 -o|inlining procedure: k20294 -o|contracted procedure: "(library.scm:2982) g35063507" -o|inlining procedure: k20336 -o|inlining procedure: k20336 -o|inlining procedure: k20350 -o|inlining procedure: k20359 -o|inlining procedure: k20371 -o|inlining procedure: k20371 -o|inlining procedure: k20359 -o|inlining procedure: k20387 -o|inlining procedure: k20387 -o|inlining procedure: k20393 -o|contracted procedure: "(library.scm:3005) mantexp->dbl" -o|inlining procedure: k20192 -o|inlining procedure: k20192 -o|contracted procedure: "(library.scm:2974) ldexp" -o|propagated global variable: a20251 chicken.flonum#flonum-precision -o|inlining procedure: k20393 -o|inlining procedure: k20350 -o|inlining procedure: k20436 -o|inlining procedure: k20436 -o|inlining procedure: k20460 -o|inlining procedure: k20460 -o|substituted constant variable: a20483 -o|inlining procedure: k20486 -o|inlining procedure: k20486 -o|inlining procedure: k20514 -o|inlining procedure: k20514 -o|substituted constant variable: a20521 -o|substituted constant variable: a20525 -o|substituted constant variable: a20529 -o|substituted constant variable: a20531 -o|inlining procedure: k20540 -o|inlining procedure: k20540 -o|inlining procedure: k20571 -o|inlining procedure: k20571 -o|inlining procedure: k20591 -o|inlining procedure: k20591 -o|inlining procedure: k20613 -o|inlining procedure: k20613 -o|inlining procedure: k20624 -o|inlining procedure: k20624 -o|inlining procedure: k20638 -o|inlining procedure: k20679 -o|inlining procedure: k20679 -o|substituted constant variable: a20686 -o|substituted constant variable: a20688 -o|inlining procedure: k20638 -o|inlining procedure: k20691 -o|inlining procedure: k20712 -o|inlining procedure: k20730 -o|inlining procedure: k20742 -o|inlining procedure: k20758 -o|inlining procedure: k20758 -o|inlining procedure: k20742 -o|inlining procedure: k20730 -o|inlining procedure: k20712 -o|inlining procedure: k20803 -o|inlining procedure: k20803 -o|inlining procedure: k20818 -o|inlining procedure: k20818 -o|inlining procedure: k20830 -o|inlining procedure: k20830 -o|inlining procedure: k20842 -o|inlining procedure: k20842 -o|inlining procedure: k20854 -o|inlining procedure: k20854 -o|substituted constant variable: a20867 -o|substituted constant variable: a20869 -o|substituted constant variable: a20871 -o|substituted constant variable: a20873 -o|substituted constant variable: a20875 -o|substituted constant variable: a20877 -o|substituted constant variable: a20879 -o|substituted constant variable: a20881 -o|substituted constant variable: a20883 -o|substituted constant variable: a20885 -o|inlining procedure: k20892 -o|inlining procedure: k20892 -o|inlining procedure: k20691 -o|inlining procedure: k20903 -o|inlining procedure: k20903 -o|inlining procedure: k20928 -o|inlining procedure: k20943 -o|inlining procedure: k20943 -o|inlining procedure: k20928 -o|inlining procedure: k20986 -o|inlining procedure: k20998 -o|inlining procedure: k21008 -o|inlining procedure: k21008 -o|inlining procedure: k20998 -o|inlining procedure: k20986 -o|inlining procedure: k21028 -o|inlining procedure: k21044 -o|inlining procedure: k21054 -o|inlining procedure: k21072 -o|inlining procedure: k21092 -o|inlining procedure: "(library.scm:3133) make-nan3520" -o|inlining procedure: k21092 -o|substituted constant variable: a21119 -o|substituted constant variable: a21121 -o|substituted constant variable: a21123 -o|inlining procedure: k21072 -o|inlining procedure: k21054 -o|inlining procedure: k21044 -o|inlining procedure: k21028 -o|substituted constant variable: a21141 -o|inlining procedure: k21145 -o|inlining procedure: k21145 -o|inlining procedure: k21157 -o|inlining procedure: k21157 -o|inlining procedure: k21169 -o|inlining procedure: k21169 -o|inlining procedure: k21181 -o|inlining procedure: k21181 -o|substituted constant variable: a21194 -o|substituted constant variable: a21196 -o|substituted constant variable: a21198 -o|substituted constant variable: a21200 -o|substituted constant variable: a21202 -o|substituted constant variable: a21204 -o|substituted constant variable: a21206 -o|substituted constant variable: a21208 -o|substituted constant variable: a21210 -o|substituted constant variable: a21212 -o|substituted constant variable: a21214 -o|inlining procedure: k21226 -o|inlining procedure: k21226 -o|inlining procedure: k21245 -o|inlining procedure: k21268 -o|inlining procedure: k21290 -o|inlining procedure: k21300 -o|inlining procedure: k21300 -o|inlining procedure: k21290 -o|inlining procedure: k21323 -o|inlining procedure: k21323 -o|substituted constant variable: a21350 -o|inlining procedure: k21268 -o|inlining procedure: k21375 -o|inlining procedure: k21375 -o|inlining procedure: k21385 -o|substituted constant variable: a21398 -o|inlining procedure: k21410 -o|inlining procedure: k21410 -o|inlining procedure: "(library.scm:3162) make-nan3520" -o|inlining procedure: k21385 -o|substituted constant variable: a21446 -o|substituted constant variable: a21448 -o|substituted constant variable: a21453 -o|substituted constant variable: a21455 -o|inlining procedure: k21462 -o|inlining procedure: k21462 -o|substituted constant variable: a21469 -o|substituted constant variable: a21471 -o|inlining procedure: k21245 -o|inlining procedure: k21478 -o|inlining procedure: k21490 -o|inlining procedure: k21490 -o|inlining procedure: k21500 -o|inlining procedure: k21500 -o|inlining procedure: k21478 -o|inlining procedure: k21507 -o|inlining procedure: k21507 -o|inlining procedure: k21523 -o|inlining procedure: k21523 -o|inlining procedure: k21559 -o|inlining procedure: k21578 -o|inlining procedure: k21593 -o|inlining procedure: k21593 -o|inlining procedure: k21578 -o|inlining procedure: k21559 -o|inlining procedure: k21636 -o|inlining procedure: k21636 -o|substituted constant variable: a21663 -o|substituted constant variable: a21668 -o|substituted constant variable: a21670 -o|substituted constant variable: a21675 -o|substituted constant variable: a21677 -o|substituted constant variable: a21679 -o|inlining procedure: k21732 -o|inlining procedure: k21750 -o|inlining procedure: k21750 -o|inlining procedure: k21763 -o|inlining procedure: k21763 -o|inlining procedure: k21794 -o|inlining procedure: k21794 -o|inlining procedure: k21807 -o|inlining procedure: k21807 -o|inlining procedure: k21838 -o|inlining procedure: k21838 -o|inlining procedure: k21851 -o|inlining procedure: k21851 -o|substituted constant variable: a21877 -o|substituted constant variable: a21879 -o|substituted constant variable: a21884 -o|substituted constant variable: a21886 -o|substituted constant variable: a21891 -o|substituted constant variable: a21893 -o|substituted constant variable: a21898 -o|substituted constant variable: a21900 -o|substituted constant variable: a21905 -o|substituted constant variable: a21907 -o|substituted constant variable: a21912 -o|substituted constant variable: a21914 -o|inlining procedure: k21732 -o|inlining procedure: k21923 -o|inlining procedure: k21923 -o|inlining procedure: k21946 -o|inlining procedure: k21946 -o|inlining procedure: k22019 -o|inlining procedure: k22040 -o|inlining procedure: k22040 -o|inlining procedure: k22019 -o|inlining procedure: k22084 -o|inlining procedure: k22084 -o|inlining procedure: k22093 -o|inlining procedure: k22093 -o|inlining procedure: k22105 -o|inlining procedure: k22105 -o|inlining procedure: k22117 -o|inlining procedure: k22117 -o|inlining procedure: k22126 -o|inlining procedure: k22126 -o|inlining procedure: k22135 -o|inlining procedure: k22135 -o|inlining procedure: k22152 -o|inlining procedure: k22152 -o|inlining procedure: k22171 -o|inlining procedure: k22171 -o|inlining procedure: k22309 -o|inlining procedure: k22309 -o|inlining procedure: "(library.scm:3330) err3983" -o|inlining procedure: k22315 -o|inlining procedure: k22315 -o|inlining procedure: "(library.scm:3329) err3983" -o|inlining procedure: k22355 -o|contracted procedure: "(library.scm:3339) g40054014" -o|inlining procedure: k22355 -o|inlining procedure: k22405 -o|inlining procedure: k22405 -o|inlining procedure: k22432 -o|inlining procedure: k22432 -o|inlining procedure: k22467 -o|inlining procedure: k22467 -o|inlining procedure: k22500 -o|inlining procedure: k22500 -o|inlining procedure: k22533 -o|inlining procedure: k22533 -o|inlining procedure: k22551 -o|inlining procedure: k22551 -o|inlining procedure: k22672 -o|inlining procedure: k22672 -o|inlining procedure: k22695 -o|inlining procedure: k22695 -o|inlining procedure: k22740 -o|inlining procedure: k22740 -o|inlining procedure: k22758 -o|inlining procedure: k22758 -o|inlining procedure: k22824 -o|inlining procedure: k22824 -o|inlining procedure: k22843 -o|inlining procedure: k22843 -o|inlining procedure: k22885 -o|inlining procedure: k22900 -o|inlining procedure: k22900 -o|inlining procedure: k22885 -o|inlining procedure: k22947 -o|inlining procedure: k22947 -o|inlining procedure: k22966 -o|inlining procedure: k22966 -o|inlining procedure: k22987 -o|inlining procedure: k22987 -o|inlining procedure: k23048 -o|inlining procedure: k23048 -o|inlining procedure: k23140 -o|inlining procedure: k23140 -o|inlining procedure: k23226 -o|inlining procedure: k23226 -o|inlining procedure: k23254 -o|inlining procedure: k23254 -o|inlining procedure: k23339 -o|inlining procedure: k23359 -o|inlining procedure: k23359 -o|inlining procedure: k23339 -o|inlining procedure: k23393 -o|inlining procedure: k23393 -o|inlining procedure: k23427 -o|inlining procedure: k23427 -o|inlining procedure: k23494 -o|inlining procedure: k23494 -o|inlining procedure: k23534 -o|inlining procedure: k23534 -o|substituted constant variable: g44904493 -o|inlining procedure: k23558 -o|inlining procedure: k23558 -o|inlining procedure: k23592 -o|contracted procedure: "(library.scm:3628) g44354442" -o|inlining procedure: k23592 -o|inlining procedure: k23645 -o|inlining procedure: k23645 -o|inlining procedure: k23711 -o|inlining procedure: k23711 -o|inlining procedure: k23754 -o|inlining procedure: k23754 -o|inlining procedure: k23777 -o|inlining procedure: k23777 -o|inlining procedure: k23801 -o|inlining procedure: k23801 -o|inlining procedure: k23824 -o|inlining procedure: k23824 -o|inlining procedure: k23844 -o|inlining procedure: k23844 -o|inlining procedure: k23867 -o|inlining procedure: k23867 -o|inlining procedure: k23887 -o|inlining procedure: k23887 -o|inlining procedure: k23910 -o|inlining procedure: k23910 -o|inlining procedure: k23930 -o|inlining procedure: k23930 -o|inlining procedure: k23953 -o|inlining procedure: k23953 -o|inlining procedure: k23976 -o|inlining procedure: k23976 -o|inlining procedure: k24007 -o|inlining procedure: k24007 -o|inlining procedure: k24037 -o|inlining procedure: k24037 -o|inlining procedure: k24107 -o|inlining procedure: k24107 -o|inlining procedure: k24171 -o|inlining procedure: k24171 -o|inlining procedure: k24209 -o|inlining procedure: k24209 -o|inlining procedure: k24257 -o|inlining procedure: k24257 -o|inlining procedure: k24275 -o|inlining procedure: k24275 -o|inlining procedure: k24303 -o|inlining procedure: k24318 -o|inlining procedure: k24318 -o|inlining procedure: k24303 -o|inlining procedure: k24354 -o|inlining procedure: k24354 -o|inlining procedure: k24385 -o|inlining procedure: k24403 -o|inlining procedure: k24403 -o|inlining procedure: k24385 -o|inlining procedure: k24450 -o|inlining procedure: k24450 -o|inlining procedure: k24527 -o|inlining procedure: k24527 -o|inlining procedure: k24561 -o|inlining procedure: k24561 -o|inlining procedure: k24694 -o|inlining procedure: k24694 -o|inlining procedure: k24705 -o|inlining procedure: k24705 -o|inlining procedure: k24716 -o|inlining procedure: k24716 -o|inlining procedure: k24727 -o|inlining procedure: k24727 -o|inlining procedure: k24738 -o|propagated global variable: r2473943044 ##sys#standard-input -o|removed unused formal parameters: (convert?4974) -o|inlining procedure: k24753 -o|inlining procedure: k24753 -o|removed unused parameter to known procedure: convert?4974 "(library.scm:4145) body49644973" -o|inlining procedure: k24738 -o|inlining procedure: k24780 -o|inlining procedure: k24780 -o|removed unused parameter to known procedure: convert?4974 "(library.scm:4145) body49644973" -o|inlining procedure: k24799 -o|propagated global variable: r2480043050 ##sys#standard-output -o|removed unused formal parameters: (convert?4999) -o|inlining procedure: k24814 -o|inlining procedure: k24814 -o|removed unused parameter to known procedure: convert?4999 "(library.scm:4155) body49894998" -o|inlining procedure: k24799 -o|inlining procedure: k24841 -o|inlining procedure: k24841 -o|removed unused parameter to known procedure: convert?4999 "(library.scm:4155) body49894998" -o|inlining procedure: k24860 -o|propagated global variable: r2486143056 ##sys#standard-error -o|removed unused formal parameters: (convert?5024) -o|inlining procedure: k24875 -o|inlining procedure: k24875 -o|removed unused parameter to known procedure: convert?5024 "(library.scm:4165) body50145023" -o|inlining procedure: k24860 -o|inlining procedure: k24902 -o|inlining procedure: k24902 -o|removed unused parameter to known procedure: convert?5024 "(library.scm:4165) body50145023" -o|inlining procedure: k24921 -o|inlining procedure: k24921 -o|inlining procedure: k24966 -o|inlining procedure: k24966 -o|inlining procedure: k24992 -o|inlining procedure: k24992 -o|inlining procedure: k24998 -o|inlining procedure: k24998 -o|inlining procedure: k25025 -o|inlining procedure: k25025 -o|inlining procedure: k25045 -o|inlining procedure: k25045 -o|inlining procedure: k25065 -o|inlining procedure: k25065 -o|inlining procedure: k25084 -o|inlining procedure: k25084 -o|substituted constant variable: a25098 -o|substituted constant variable: a25100 -o|substituted constant variable: a25105 -o|substituted constant variable: a25107 -o|inlining procedure: k25111 -o|inlining procedure: k25111 -o|substituted constant variable: a25124 -o|substituted constant variable: a25126 -o|substituted constant variable: a25128 -o|substituted constant variable: a25130 -o|inlining procedure: k25134 -o|inlining procedure: k25134 -o|substituted constant variable: a25147 -o|substituted constant variable: a25149 -o|substituted constant variable: a25151 -o|substituted constant variable: a25153 -o|substituted constant variable: a25158 -o|substituted constant variable: a25160 -o|substituted constant variable: a25165 -o|substituted constant variable: a25167 -o|substituted constant variable: a25172 -o|substituted constant variable: a25174 -o|inlining procedure: k25184 -o|inlining procedure: k25184 -o|inlining procedure: k25359 -o|inlining procedure: k25359 -o|substituted constant variable: a25375 -o|substituted constant variable: a25377 -o|substituted constant variable: a25398 -o|substituted constant variable: a25399 -o|inlining procedure: k25412 -o|inlining procedure: k25412 -o|inlining procedure: k25434 -o|inlining procedure: k25447 -o|inlining procedure: k25447 -o|inlining procedure: k25434 -o|inlining procedure: k25506 -o|inlining procedure: k25506 -o|inlining procedure: k25551 -o|inlining procedure: k25551 -o|inlining procedure: k25590 -o|inlining procedure: k25590 -o|inlining procedure: k25631 -o|inlining procedure: k25631 -o|inlining procedure: k25650 -o|inlining procedure: k25650 -o|inlining procedure: k25782 -o|inlining procedure: k25782 -o|inlining procedure: k25821 -o|inlining procedure: k25860 -o|inlining procedure: k25860 -o|inlining procedure: k25821 -o|inlining procedure: k25888 -o|inlining procedure: k25888 -o|substituted constant variable: a25936 -o|substituted constant variable: a25937 -o|substituted constant variable: a25961 -o|substituted constant variable: a25962 -o|inlining procedure: k25978 -o|inlining procedure: k25978 -o|substituted constant variable: a26036 -o|substituted constant variable: a26037 -o|inlining procedure: k26044 -o|inlining procedure: k26044 -o|substituted constant variable: a26073 -o|substituted constant variable: a26074 -o|substituted constant variable: a26091 -o|substituted constant variable: a26092 -o|inlining procedure: k26150 -o|inlining procedure: k26150 -o|inlining procedure: k26173 -o|inlining procedure: k26173 -o|inlining procedure: k26213 -o|inlining procedure: k26213 -o|inlining procedure: k26232 -o|inlining procedure: k26232 -o|inlining procedure: k26271 -o|inlining procedure: k26271 -o|inlining procedure: k26297 -o|inlining procedure: k26297 -o|inlining procedure: k26328 -o|inlining procedure: k26328 -o|inlining procedure: k26403 -o|inlining procedure: k26403 -o|inlining procedure: k26455 -o|inlining procedure: k26455 -o|inlining procedure: k26474 -o|inlining procedure: k26474 -o|inlining procedure: k26499 -o|inlining procedure: k26499 -o|inlining procedure: k26562 -o|inlining procedure: k26562 -o|inlining procedure: k26591 -o|inlining procedure: k26591 -o|inlining procedure: k26609 -o|inlining procedure: k26609 -o|inlining procedure: k26621 -o|inlining procedure: k26621 -o|inlining procedure: k26656 -o|inlining procedure: k26656 -o|inlining procedure: k26671 -o|inlining procedure: k26671 -o|substituted constant variable: a26678 -o|substituted constant variable: a26680 -o|substituted constant variable: a26682 -o|substituted constant variable: a26684 -o|substituted constant variable: a26689 -o|inlining procedure: k26703 -o|inlining procedure: k26703 -o|inlining procedure: k26719 -o|inlining procedure: k26719 -o|inlining procedure: k26753 -o|inlining procedure: k26753 -o|inlining procedure: k26787 -o|inlining procedure: k26787 -o|inlining procedure: k26821 -o|inlining procedure: k26821 -o|inlining procedure: k26862 -o|inlining procedure: k26862 -o|inlining procedure: k26910 -o|inlining procedure: k26910 -o|inlining procedure: k26945 -o|inlining procedure: k26945 -o|inlining procedure: k26967 -o|inlining procedure: k26967 -o|inlining procedure: k26992 -o|inlining procedure: k26992 -o|substituted constant variable: a27021 -o|substituted constant variable: a27023 -o|substituted constant variable: a27028 -o|substituted constant variable: a27030 -o|inlining procedure: k27031 -o|inlining procedure: k27031 -o|inlining procedure: k27094 -o|inlining procedure: k27094 -o|inlining procedure: k27106 -o|inlining procedure: k27106 -o|substituted constant variable: a27119 -o|substituted constant variable: a27121 -o|substituted constant variable: a27123 -o|substituted constant variable: a27125 -o|inlining procedure: k27129 -o|inlining procedure: k27129 -o|substituted constant variable: a27142 -o|substituted constant variable: a27144 -o|substituted constant variable: a27146 -o|substituted constant variable: a27148 -o|substituted constant variable: a27150 -o|substituted constant variable: a27152 -o|substituted constant variable: a27154 -o|substituted constant variable: a27156 -o|substituted constant variable: a27158 -o|substituted constant variable: a27160 -o|substituted constant variable: a27162 -o|substituted constant variable: a27164 -o|substituted constant variable: a27166 -o|substituted constant variable: a27168 -o|inlining procedure: k27169 -o|inlining procedure: k27169 -o|inlining procedure: k27201 -o|inlining procedure: k27201 -o|inlining procedure: k27192 -o|inlining procedure: k27234 -o|inlining procedure: k27234 -o|inlining procedure: k27265 -o|inlining procedure: k27265 -o|inlining procedure: k27284 -o|inlining procedure: k27317 -o|inlining procedure: k27317 -o|inlining procedure: k27359 -o|inlining procedure: k27359 -o|inlining procedure: k27375 -o|inlining procedure: k27375 -o|inlining procedure: "(library.scm:4841) build-symbol5569" -o|substituted constant variable: a27397 -o|inlining procedure: k27404 -o|inlining procedure: k27404 -o|inlining procedure: k27416 -o|inlining procedure: k27416 -o|inlining procedure: k27284 -o|inlining procedure: k27192 -o|inlining procedure: k27456 -o|inlining procedure: k27456 -o|inlining procedure: k27477 -o|inlining procedure: k27477 -o|substituted constant variable: a27494 -o|inlining procedure: k27498 -o|inlining procedure: k27498 -o|inlining procedure: k27513 -o|inlining procedure: k27513 -o|inlining procedure: "(library.scm:4877) build-symbol5569" -o|inlining procedure: k27523 -o|inlining procedure: k27523 -o|substituted constant variable: a27531 -o|substituted constant variable: a27532 -o|inlining procedure: k27540 -o|inlining procedure: k27561 -o|inlining procedure: k27561 -o|substituted constant variable: a27574 -o|inlining procedure: k27540 -o|inlining procedure: k27591 -o|inlining procedure: k27612 -o|inlining procedure: k27612 -o|substituted constant variable: a27625 -o|substituted constant variable: a27633 -o|inlining procedure: k27629 -o|inlining procedure: k27629 -o|substituted constant variable: a27641 -o|inlining procedure: k27591 -o|inlining procedure: k27668 -o|inlining procedure: k27668 -o|inlining procedure: k27704 -o|inlining procedure: k27704 -o|inlining procedure: k27711 -o|inlining procedure: k27711 -o|inlining procedure: k27730 -o|inlining procedure: k27730 -o|inlining procedure: "(library.scm:4929) build-symbol5569" -o|inlining procedure: k27804 -o|inlining procedure: k27830 -o|inlining procedure: k27830 -o|inlining procedure: k27859 -o|inlining procedure: k27859 -o|inlining procedure: k27868 -o|inlining procedure: k27868 -o|inlining procedure: k27878 -o|inlining procedure: k27878 -o|inlining procedure: k27804 -o|inlining procedure: k27910 -o|inlining procedure: k27910 -o|inlining procedure: k27954 -o|inlining procedure: k27954 -o|inlining procedure: k27976 -o|inlining procedure: k27976 -o|inlining procedure: k28000 -o|inlining procedure: k28000 -o|substituted constant variable: a28007 -o|substituted constant variable: a28009 -o|substituted constant variable: a28011 -o|substituted constant variable: a28013 -o|inlining procedure: k28017 -o|inlining procedure: k28017 -o|inlining procedure: k28026 -o|inlining procedure: k28026 -o|inlining procedure: k28051 -o|contracted procedure: "(library.scm:4988) g58935894" -o|inlining procedure: k28080 -o|inlining procedure: k28080 -o|inlining procedure: k28099 -o|inlining procedure: k28117 -o|inlining procedure: k28133 -o|substituted constant variable: a28157 -o|inlining procedure: k28133 -o|substituted constant variable: a28172 -o|inlining procedure: k28117 -o|substituted constant variable: a28187 -o|inlining procedure: k28099 -o|substituted constant variable: a28226 -o|substituted constant variable: a28240 -o|inlining procedure: k28242 -o|inlining procedure: k28242 -o|substituted constant variable: a28245 -o|inlining procedure: k28051 -o|inlining procedure: k28268 -o|inlining procedure: k28280 -o|inlining procedure: k28280 -o|inlining procedure: k28268 -o|inlining procedure: k28314 -o|inlining procedure: k28314 -o|inlining procedure: k28327 -o|inlining procedure: k28327 -o|substituted constant variable: a28340 -o|substituted constant variable: a28342 -o|inlining procedure: "(library.scm:5035) build-symbol5569" -o|inlining procedure: k28405 -o|inlining procedure: k28420 -o|inlining procedure: k28420 -o|inlining procedure: k28405 -o|inlining procedure: k28444 -o|inlining procedure: k28444 -o|inlining procedure: k28465 -o|inlining procedure: k28465 -o|inlining procedure: k28484 -o|inlining procedure: k28505 -o|inlining procedure: k28529 -o|inlining procedure: k28529 -o|inlining procedure: k28560 -o|inlining procedure: k28560 -o|inlining procedure: k28593 -o|inlining procedure: k28593 -o|inlining procedure: k28572 -o|inlining procedure: k28572 -o|inlining procedure: k28632 -o|inlining procedure: k28632 -o|inlining procedure: k28505 -o|inlining procedure: k28667 -o|inlining procedure: k28667 -o|inlining procedure: k28682 -o|inlining procedure: k28682 -o|inlining procedure: k28706 -o|inlining procedure: k28706 -o|inlining procedure: k28730 -o|inlining procedure: k28730 -o|inlining procedure: k28754 -o|inlining procedure: k28754 -o|inlining procedure: k28775 -o|inlining procedure: k28775 -o|inlining procedure: k28802 -o|inlining procedure: k28802 -o|inlining procedure: k28829 -o|inlining procedure: k28829 -o|inlining procedure: k28870 -o|inlining procedure: k28870 -o|inlining procedure: k28901 -o|inlining procedure: k28901 -o|inlining procedure: k28943 -o|inlining procedure: k28943 -o|substituted constant variable: a28961 -o|substituted constant variable: a28966 -o|inlining procedure: k28963 -o|inlining procedure: k28963 -o|substituted constant variable: a28971 -o|substituted constant variable: a28983 -o|inlining procedure: k28980 -o|inlining procedure: k28980 -o|inlining procedure: "(library.scm:5188) build-symbol5569" -o|inlining procedure: k29008 -o|inlining procedure: k29008 -o|inlining procedure: k29030 -o|inlining procedure: k29030 -o|substituted constant variable: a29033 -o|inlining procedure: k29047 -o|inlining procedure: k29047 -o|substituted constant variable: a29060 -o|substituted constant variable: a29062 -o|substituted constant variable: a29064 -o|substituted constant variable: a29066 -o|substituted constant variable: a29068 -o|substituted constant variable: a29070 -o|substituted constant variable: a29072 -o|substituted constant variable: a29074 -o|substituted constant variable: a29076 -o|substituted constant variable: a29078 -o|substituted constant variable: a29080 -o|substituted constant variable: a29082 -o|substituted constant variable: a29084 -o|substituted constant variable: a29086 -o|substituted constant variable: a29088 -o|substituted constant variable: a29090 -o|inlining procedure: k28484 -o|inlining procedure: k29107 -o|inlining procedure: k29107 -o|inlining procedure: k29131 -o|inlining procedure: k29131 -o|inlining procedure: k29152 -o|inlining procedure: k29152 -o|inlining procedure: k29167 -o|inlining procedure: k29167 -o|inlining procedure: k29185 -o|inlining procedure: k29185 -o|substituted constant variable: a29216 -o|substituted constant variable: a29218 -o|substituted constant variable: a29220 -o|substituted constant variable: a29222 -o|substituted constant variable: a29227 -o|substituted constant variable: a29229 -o|substituted constant variable: a29231 -o|substituted constant variable: a29233 -o|substituted constant variable: a29235 -o|substituted constant variable: a29237 -o|substituted constant variable: a29239 -o|substituted constant variable: a29241 -o|substituted constant variable: a29243 -o|substituted constant variable: a29245 -o|inlining procedure: k29249 -o|inlining procedure: k29249 -o|inlining procedure: k29268 -o|inlining procedure: k29268 -o|inlining procedure: k29283 -o|inlining procedure: k29283 -o|inlining procedure: k29316 -o|inlining procedure: k29337 -o|inlining procedure: k29337 -o|inlining procedure: k29355 -o|inlining procedure: k29355 -o|substituted constant variable: a29391 -o|substituted constant variable: a29396 -o|substituted constant variable: a29398 -o|substituted constant variable: a29403 -o|substituted constant variable: a29405 -o|inlining procedure: k29316 -o|inlining procedure: k29416 -o|inlining procedure: k29416 -o|substituted constant variable: a29423 -o|substituted constant variable: a29425 -o|substituted constant variable: a29427 -o|inlining procedure: k29434 -o|inlining procedure: k29434 -o|substituted constant variable: a29456 -o|substituted constant variable: a29458 -o|inlining procedure: k29468 -o|inlining procedure: k29484 -o|inlining procedure: k29484 -o|inlining procedure: k29503 -o|inlining procedure: k29503 -o|inlining procedure: k29535 -o|inlining procedure: k29535 -o|inlining procedure: k29468 -o|substituted constant variable: a29607 -o|substituted constant variable: a29608 -o|substituted constant variable: a29625 -o|substituted constant variable: a29626 -o|inlining procedure: k29639 -o|propagated global variable: r2964043413 ##sys#standard-output -o|inlining procedure: k29639 -o|substituted constant variable: a29658 -o|substituted constant variable: a29659 -o|substituted constant variable: a29676 -o|substituted constant variable: a29677 -o|propagated global variable: a29690 ##sys#standard-output -o|substituted constant variable: a29691 -o|substituted constant variable: a29692 -o|contracted procedure: "(library.scm:5331) g62436244" -o|inlining procedure: k29709 -o|contracted procedure: "(library.scm:5326) g62496256" -o|propagated global variable: g62646265 ##sys#print -o|inlining procedure: k29709 -o|propagated global variable: a29741 ##sys#standard-output -o|substituted constant variable: a29742 -o|substituted constant variable: a29743 -o|contracted procedure: "(library.scm:5338) g62756276" -o|inlining procedure: k29760 -o|contracted procedure: "(library.scm:5326) g62816288" -o|propagated global variable: g62966297 ##sys#print -o|inlining procedure: k29760 -o|substituted constant variable: a29805 -o|substituted constant variable: a29806 -o|inlining procedure: k29822 -o|inlining procedure: k29822 -o|inlining procedure: k29924 -o|inlining procedure: k29924 -o|inlining procedure: k29956 -o|inlining procedure: k29956 -o|substituted constant variable: special-characters6320 -o|inlining procedure: k29968 -o|inlining procedure: k29968 -o|inlining procedure: k29986 -o|inlining procedure: k29986 -o|inlining procedure: k30007 -o|inlining procedure: k30007 -o|substituted constant variable: a30023 -o|substituted constant variable: a30076 -o|inlining procedure: k30083 -o|inlining procedure: k30083 -o|substituted constant variable: a30096 -o|inlining procedure: k30097 -o|inlining procedure: k30097 -o|inlining procedure: k30112 -o|inlining procedure: k30112 -o|inlining procedure: k30131 -o|inlining procedure: k30146 -o|substituted constant variable: a30170 -o|inlining procedure: k30146 -o|inlining procedure: k30177 -o|substituted constant variable: a30192 -o|inlining procedure: k30177 -o|inlining procedure: k30193 -o|inlining procedure: k30193 -o|inlining procedure: k30208 -o|inlining procedure: k30208 -o|inlining procedure: k30221 -o|substituted constant variable: a30242 -o|substituted constant variable: a30245 -o|inlining procedure: k30221 -o|inlining procedure: k30131 -o|inlining procedure: k30258 -o|inlining procedure: k30258 -o|inlining procedure: k30311 -o|inlining procedure: k30311 -o|inlining procedure: k30329 -o|inlining procedure: k30329 -o|inlining procedure: k30344 -o|inlining procedure: k30344 -o|inlining procedure: k30356 -o|inlining procedure: k30371 -o|inlining procedure: k30371 -o|inlining procedure: k30356 -o|inlining procedure: k30424 -o|inlining procedure: k30424 -o|inlining procedure: k30439 -o|inlining procedure: k30439 -o|inlining procedure: k30451 -o|inlining procedure: k30451 -o|substituted constant variable: a30482 -o|substituted constant variable: a30484 -o|inlining procedure: k30488 -o|inlining procedure: k30488 -o|inlining procedure: k30507 -o|inlining procedure: k30507 -o|inlining procedure: k30520 -o|inlining procedure: k30536 -o|inlining procedure: k30536 -o|inlining procedure: k30568 -o|inlining procedure: k30568 -o|inlining procedure: k30589 -o|inlining procedure: k30589 -o|inlining procedure: k30607 -o|inlining procedure: k30607 -o|inlining procedure: k30625 -o|inlining procedure: k30625 -o|inlining procedure: k30643 -o|inlining procedure: k30643 -o|substituted constant variable: a30675 -o|substituted constant variable: a30677 -o|substituted constant variable: a30679 -o|substituted constant variable: a30681 -o|substituted constant variable: a30683 -o|substituted constant variable: a30685 -o|substituted constant variable: a30687 -o|substituted constant variable: a30696 -o|substituted constant variable: a30698 -o|inlining procedure: k30520 -o|inlining procedure: k30706 -o|inlining procedure: k30725 -o|inlining procedure: k30725 -o|inlining procedure: k30706 -o|inlining procedure: k30792 -o|inlining procedure: k30792 -o|inlining procedure: k30808 -o|inlining procedure: k30808 -o|inlining procedure: k30830 -o|inlining procedure: k30855 -o|inlining procedure: k30855 -o|substituted constant variable: a30868 -o|substituted constant variable: a30870 -o|inlining procedure: k30830 -o|inlining procedure: k30877 -o|inlining procedure: k30877 -o|inlining procedure: k30902 -o|inlining procedure: k30902 -o|inlining procedure: k30946 -o|inlining procedure: k30946 -o|inlining procedure: k30963 -o|inlining procedure: k30963 -o|inlining procedure: k30978 -o|inlining procedure: k30978 -o|inlining procedure: k31009 -o|inlining procedure: k31039 -o|inlining procedure: k31039 -o|inlining procedure: k31009 -o|inlining procedure: k31123 -o|inlining procedure: k31123 -o|substituted constant variable: a31140 -o|substituted constant variable: a31142 -o|substituted constant variable: saved661466156627 -o|inlining procedure: k31249 -o|inlining procedure: k31249 -o|inlining procedure: k31353 -o|inlining procedure: k31353 -o|inlining procedure: k31368 -o|inlining procedure: k31389 -o|inlining procedure: k31389 -o|inlining procedure: k31368 -o|inlining procedure: k31422 -o|inlining procedure: k31422 -o|inlining procedure: k31463 -o|inlining procedure: k31463 -o|inlining procedure: k31500 -o|inlining procedure: k31500 -o|inlining procedure: k31540 -o|inlining procedure: k31540 -o|inlining procedure: k31587 -o|inlining procedure: k31587 -o|inlining procedure: k31610 -o|inlining procedure: k31636 -o|inlining procedure: k31636 -o|inlining procedure: k31610 -o|inlining procedure: k31690 -o|inlining procedure: k31690 -o|substituted constant variable: c6846 -o|contracted procedure: "(library.scm:5847) extract6823" -o|substituted constant variable: c6846 -o|inlining procedure: k31767 -o|inlining procedure: k31767 -o|substituted constant variable: c6846 -o|substituted constant variable: c6846 -o|inlining procedure: k31849 -o|inlining procedure: k31849 -o|inlining procedure: k31874 -o|inlining procedure: k31874 -o|inlining procedure: k31880 -o|inlining procedure: k31880 -o|inlining procedure: k31817 -o|inlining procedure: k31899 -o|inlining procedure: k31899 -o|inlining procedure: k31817 -o|substituted constant variable: a31947 -o|substituted constant variable: a31948 -o|inlining procedure: k32019 -o|inlining procedure: "(library.scm:5895) break6922" -o|inlining procedure: k32019 -o|inlining procedure: k32048 -o|inlining procedure: k32048 -o|inlining procedure: k32084 -o|inlining procedure: k32084 -o|inlining procedure: k32107 -o|contracted procedure: "(library.scm:5916) g69326939" -o|inlining procedure: k32107 -o|inlining procedure: k32151 -o|inlining procedure: k32151 -o|inlining procedure: k32205 -o|contracted procedure: "(library.scm:5988) g70117018" -o|inlining procedure: k32205 -o|inlining procedure: k32243 -o|inlining procedure: k32243 -o|inlining procedure: k32279 -o|inlining procedure: k32279 -o|inlining procedure: k32296 -o|inlining procedure: k32296 -o|inlining procedure: k32308 -o|inlining procedure: k32308 -o|inlining procedure: k32320 -o|inlining procedure: k32320 -o|inlining procedure: k32332 -o|inlining procedure: k32332 -o|inlining procedure: k32344 -o|inlining procedure: k32344 -o|inlining procedure: k32356 -o|inlining procedure: k32356 -o|inlining procedure: k32368 -o|inlining procedure: k32368 -o|substituted constant variable: a32375 -o|substituted constant variable: a32377 -o|substituted constant variable: a32379 -o|substituted constant variable: a32381 -o|substituted constant variable: a32383 -o|substituted constant variable: a32385 -o|substituted constant variable: a32387 -o|substituted constant variable: a32389 -o|substituted constant variable: a32391 -o|substituted constant variable: a32393 -o|substituted constant variable: a32395 -o|substituted constant variable: a32397 -o|substituted constant variable: a32399 -o|substituted constant variable: a32401 -o|substituted constant variable: a32437 -o|substituted constant variable: a32439 -o|substituted constant variable: a32441 -o|inlining procedure: k32445 -o|inlining procedure: k32445 -o|inlining procedure: k32509 -o|inlining procedure: k32545 -o|inlining procedure: k32545 -o|inlining procedure: k32557 -o|inlining procedure: k32571 -o|inlining procedure: k32571 -o|inlining procedure: k32557 -o|inlining procedure: k32509 -o|inlining procedure: k32607 -o|inlining procedure: k32607 -o|inlining procedure: k32662 -o|propagated global variable: r3266343619 ##sys#current-exception-handler -o|removed unused formal parameters: (convert?7177) -o|inlining procedure: k32677 -o|inlining procedure: k32677 -o|removed unused parameter to known procedure: convert?7177 "(library.scm:6142) body71677176" -o|inlining procedure: k32662 -o|inlining procedure: k32704 -o|inlining procedure: k32704 -o|removed unused parameter to known procedure: convert?7177 "(library.scm:6142) body71677176" -o|inlining procedure: k32729 -o|inlining procedure: k32729 -o|inlining procedure: k32842 -o|contracted procedure: "(library.scm:6170) g72627271" -o|inlining procedure: k32842 -o|inlining procedure: k32888 -o|contracted procedure: "(library.scm:6169) g72357244" -o|inlining procedure: k32888 -o|inlining procedure: k32922 -o|contracted procedure: "(library.scm:6166) g72127219" -o|inlining procedure: k32922 -o|inlining procedure: k32964 -o|inlining procedure: k32964 -o|inlining procedure: k33016 -o|contracted procedure: "(library.scm:6175) g72957304" -o|inlining procedure: k33016 -o|inlining procedure: k33078 -o|inlining procedure: k33078 -o|inlining procedure: k33134 -o|inlining procedure: k33134 -o|inlining procedure: k33176 -o|inlining procedure: k33176 -o|inlining procedure: k33206 -o|inlining procedure: k33221 -o|inlining procedure: k33221 -o|inlining procedure: k33206 -o|inlining procedure: k33282 -o|inlining procedure: k33282 -o|substituted constant variable: a33307 -o|substituted constant variable: a33308 -o|inlining procedure: k33315 -o|inlining procedure: k33336 -o|inlining procedure: k33336 -o|inlining procedure: k33366 -o|inlining procedure: k33366 -o|inlining procedure: k33395 -o|inlining procedure: k33395 -o|inlining procedure: k33315 -o|inlining procedure: k33463 -(o x)|known list op on rest arg sublist: ##core#rest-cdr args7434 0 -o|inlining procedure: k33463 -o|inlining procedure: k33498 -o|inlining procedure: k33498 -o|inlining procedure: k33544 -o|inlining procedure: k33567 -o|inlining procedure: k33567 -o|inlining procedure: k33544 -o|inlining procedure: k33604 -o|inlining procedure: k33604 -o|inlining procedure: k33618 -o|inlining procedure: k33618 -o|inlining procedure: k33636 -o|inlining procedure: k33636 -o|inlining procedure: k33654 -o|inlining procedure: k33654 -o|inlining procedure: k33672 -o|inlining procedure: k33672 -o|inlining procedure: k33690 -o|inlining procedure: k33690 -o|inlining procedure: k33708 -o|inlining procedure: k33708 -o|inlining procedure: k33726 -o|inlining procedure: k33726 -o|inlining procedure: k33744 -o|inlining procedure: k33744 -o|inlining procedure: k33762 -o|inlining procedure: k33762 -o|inlining procedure: k33780 -o|inlining procedure: k33780 -o|inlining procedure: k33798 -o|inlining procedure: k33798 -o|inlining procedure: k33816 -o|inlining procedure: k33816 -o|inlining procedure: k33834 -o|inlining procedure: k33834 -o|inlining procedure: k33852 -o|inlining procedure: k33852 -o|inlining procedure: k33870 -o|inlining procedure: k33870 -o|inlining procedure: k33888 -o|inlining procedure: k33888 -o|inlining procedure: k33906 -o|inlining procedure: k33906 -o|inlining procedure: k33924 -o|inlining procedure: k33924 -o|inlining procedure: k33942 -o|inlining procedure: k33942 -o|inlining procedure: k33960 -o|inlining procedure: k33960 -o|inlining procedure: k33978 -o|inlining procedure: k33978 -o|inlining procedure: k33996 -o|inlining procedure: k33996 -o|inlining procedure: k34014 -o|inlining procedure: k34014 -o|inlining procedure: k34032 -o|inlining procedure: k34032 -o|inlining procedure: k34050 -o|inlining procedure: k34050 -o|inlining procedure: k34068 -o|inlining procedure: k34068 -o|inlining procedure: k34086 -o|inlining procedure: k34086 -o|inlining procedure: k34118 -o|inlining procedure: k34118 -o|inlining procedure: k34132 -o|inlining procedure: k34132 -o|substituted constant variable: a34154 -o|substituted constant variable: a34156 -o|substituted constant variable: a34158 -o|substituted constant variable: a34160 -o|substituted constant variable: a34162 -o|substituted constant variable: a34164 -o|substituted constant variable: a34166 -o|substituted constant variable: a34168 -o|substituted constant variable: a34170 -o|substituted constant variable: a34172 -o|substituted constant variable: a34174 -o|substituted constant variable: a34176 -o|substituted constant variable: a34178 -o|substituted constant variable: a34180 -o|substituted constant variable: a34182 -o|substituted constant variable: a34184 -o|substituted constant variable: a34186 -o|substituted constant variable: a34188 -o|substituted constant variable: a34190 -o|substituted constant variable: a34192 -o|substituted constant variable: a34194 -o|substituted constant variable: a34196 -o|substituted constant variable: a34198 -o|substituted constant variable: a34200 -o|substituted constant variable: a34202 -o|substituted constant variable: a34204 -o|substituted constant variable: a34206 -o|substituted constant variable: a34208 -o|substituted constant variable: a34210 -o|substituted constant variable: a34212 -o|substituted constant variable: a34214 -o|substituted constant variable: a34216 -o|substituted constant variable: a34218 -o|substituted constant variable: a34220 -o|substituted constant variable: a34222 -o|substituted constant variable: a34224 -o|substituted constant variable: a34226 -o|substituted constant variable: a34228 -o|substituted constant variable: a34230 -o|substituted constant variable: a34232 -o|substituted constant variable: a34234 -o|substituted constant variable: a34236 -o|substituted constant variable: a34238 -o|substituted constant variable: a34240 -o|substituted constant variable: a34242 -o|substituted constant variable: a34244 -o|substituted constant variable: a34246 -o|substituted constant variable: a34248 -o|substituted constant variable: a34250 -o|substituted constant variable: a34252 -o|substituted constant variable: a34254 -o|substituted constant variable: a34256 -o|substituted constant variable: a34258 -o|substituted constant variable: a34260 -o|substituted constant variable: a34262 -o|substituted constant variable: a34264 -o|substituted constant variable: a34266 -o|substituted constant variable: a34268 -o|inlining procedure: k34435 -o|inlining procedure: k34435 -o|inlining procedure: k34453 -o|inlining procedure: k34453 -o|inlining procedure: k34500 -o|inlining procedure: k34500 -o|inlining procedure: k34506 -o|inlining procedure: k34506 -o|inlining procedure: k34559 -o|inlining procedure: k34559 -o|inlining procedure: k34601 -o|inlining procedure: k34601 -o|inlining procedure: k34678 -o|inlining procedure: k34678 -o|contracted procedure: "(library.scm:6553) fetch7716" -o|contracted procedure: "(library.scm:6570) free7735" -o|inlining procedure: k34725 -o|inlining procedure: k34725 -o|inlining procedure: k34742 -o|inlining procedure: k34742 -o|contracted procedure: "(library.scm:6565) fetch7734" -o|inlining procedure: k34795 -o|inlining procedure: k34795 -o|propagated global variable: ct7824 ##sys#current-thread -o|inlining procedure: k34946 -o|inlining procedure: k34946 -o|inlining procedure: k34970 -o|inlining procedure: k34994 -o|inlining procedure: k34994 -o|inlining procedure: k34970 -o|inlining procedure: k35025 -o|inlining procedure: k35025 -o|inlining procedure: k35084 -o|inlining procedure: k35084 -o|inlining procedure: k35112 -o|inlining procedure: k35112 -o|inlining procedure: k35169 -o|inlining procedure: k35169 -o|inlining procedure: k35209 -o|inlining procedure: k35221 -o|inlining procedure: k35221 -o|inlining procedure: k35209 -o|inlining procedure: k35248 -o|inlining procedure: k35248 -o|inlining procedure: k35294 -o|inlining procedure: k35294 -o|substituted constant variable: a35351 -o|inlining procedure: k35344 -o|inlining procedure: k35344 -o|substituted constant variable: a35364 -o|inlining procedure: k35375 -o|inlining procedure: k35415 -o|inlining procedure: k35453 -o|inlining procedure: k35453 -o|inlining procedure: k35415 -o|inlining procedure: k35546 -o|inlining procedure: k35546 -o|substituted constant variable: a35607 -o|substituted constant variable: a35609 -o|substituted constant variable: a35617 -o|substituted constant variable: a35622 -o|substituted constant variable: a35624 -o|substituted constant variable: a35638 -o|inlining procedure: k35631 -o|inlining procedure: k35631 -o|substituted constant variable: a35651 -o|inlining procedure: k35375 -o|substituted constant variable: a35666 -o|substituted constant variable: a35668 -o|inlining procedure: k35682 -o|inlining procedure: k35682 -o|contracted procedure: "(library.scm:6962) chicken.process-context#_getenv" -o|inlining procedure: k35753 -o|inlining procedure: k35753 -o|inlining procedure: k35784 -o|substituted constant variable: a35796 -o|inlining procedure: k35793 -o|inlining procedure: k35793 -o|inlining procedure: k35784 -o|contracted procedure: "(library.scm:6987) chicken.process-context#get-environment-entry" -o|inlining procedure: k35859 -o|inlining procedure: k35859 -o|inlining procedure: k35873 -o|inlining procedure: k35873 -o|contracted procedure: "(library.scm:7016) fetch-arg8109" -o|inlining procedure: k35946 -o|inlining procedure: k35966 -o|inlining procedure: k35966 -o|inlining procedure: k35993 -o|inlining procedure: k35993 -o|inlining procedure: k35946 -o|inlining procedure: k36016 -o|inlining procedure: k36016 -o|inlining procedure: k36059 -o|inlining procedure: k36059 -o|inlining procedure: k36087 -o|inlining procedure: k36087 -o|inlining procedure: k36125 -o|inlining procedure: k36125 -o|inlining procedure: k36163 -o|inlining procedure: k36163 -o|inlining procedure: k36175 -o|inlining procedure: k36175 -o|inlining procedure: k36204 -o|inlining procedure: k36204 -o|inlining procedure: k36304 -o|inlining procedure: k36304 -o|inlining procedure: k36335 -o|inlining procedure: k36335 -o|inlining procedure: k36357 -o|inlining procedure: k36357 -o|inlining procedure: k36397 -o|inlining procedure: k36397 -o|inlining procedure: k36422 -o|inlining procedure: k36422 -o|inlining procedure: k36444 -o|inlining procedure: k36444 -o|inlining procedure: k36476 -o|inlining procedure: k36476 -o|inlining procedure: k36508 -o|inlining procedure: k36508 -o|inlining procedure: k36540 -o|inlining procedure: k36540 -o|inlining procedure: k36572 -o|inlining procedure: k36572 -o|substituted constant variable: a36620 -o|substituted constant variable: a36622 -o|substituted constant variable: a36624 -o|substituted constant variable: a36626 -o|substituted constant variable: a36628 -o|substituted constant variable: a36630 -o|substituted constant variable: a36632 -o|substituted constant variable: a36634 -o|substituted constant variable: a36636 -o|substituted constant variable: a36638 -o|inlining procedure: k36639 -o|inlining procedure: k36639 -o|inlining procedure: k36697 -o|inlining procedure: k36697 -o|inlining procedure: k36714 -o|inlining procedure: k36738 -o|inlining procedure: k36738 -o|inlining procedure: k36714 -o|inlining procedure: k36781 -o|inlining procedure: k36781 -o|inlining procedure: k36844 -o|inlining procedure: k36844 -o|inlining procedure: k36876 -o|inlining procedure: "(library.scm:7394) pstr8485" -o|substituted constant variable: a36897 -o|inlining procedure: k36876 -o|inlining procedure: "(library.scm:7396) pstr8485" -o|substituted constant variable: a36919 -o|inlining procedure: k36920 -o|inlining procedure: "(library.scm:7398) pstr8485" -o|substituted constant variable: a36941 -o|inlining procedure: k36920 -o|inlining procedure: "(library.scm:7399) pstr8485" -o|inlining procedure: "(library.scm:7425) pstr8485" -o|inlining procedure: "(library.scm:7423) pstr8485" -o|inlining procedure: "(library.scm:7421) pchr8486" -o|inlining procedure: "(library.scm:7419) pstr8485" -o|inlining procedure: "(library.scm:7415) pstr8485" -o|inlining procedure: "(library.scm:7413) pchr8486" -o|inlining procedure: "(library.scm:7411) pstr8485" -o|inlining procedure: "(library.scm:7407) pstr8485" -o|inlining procedure: "(library.scm:7405) pstr8485" -o|inlining procedure: "(library.scm:7402) pstr8485" -o|inlining procedure: k37147 -o|inlining procedure: k37169 -o|inlining procedure: k37169 -o|contracted procedure: "(library.scm:7501) get-config8590" -o|inlining procedure: k37114 -o|inlining procedure: k37114 -o|substituted constant variable: a37127 -o|inlining procedure: k37203 -o|inlining procedure: k37203 -o|inlining procedure: k37147 -o|propagated global variable: r3714843976 ##sys#build-version -o|inlining procedure: k37237 -o|inlining procedure: k37237 -o|inlining procedure: k37257 -o|inlining procedure: k37257 -o|inlining procedure: k37285 -o|inlining procedure: k37285 -o|inlining procedure: k37356 -o|inlining procedure: k37356 -o|substituted constant variable: a37371 -o|substituted constant variable: a37373 -o|removed side-effect free assignment to unused variable: prefix8717 -o|inlining procedure: k37406 -o|inlining procedure: k37406 -o|inlining procedure: k37421 -o|inlining procedure: k37421 -o|contracted procedure: "(library.scm:7598) err8716" -o|inlining procedure: k37444 -o|inlining procedure: k37444 -o|inlining procedure: k37523 -o|contracted procedure: "(library.scm:7644) g87518758" -o|inlining procedure: k37507 -o|inlining procedure: k37507 -o|inlining procedure: k37523 -o|inlining procedure: k37559 -o|inlining procedure: k37559 -o|inlining procedure: k37590 -o|inlining procedure: k37590 -o|inlining procedure: k37633 -o|inlining procedure: k37633 -o|inlining procedure: k37664 -o|inlining procedure: k37664 -o|inlining procedure: k37676 -o|inlining procedure: k37676 -o|inlining procedure: k37688 -o|inlining procedure: k37688 -o|inlining procedure: k37697 -o|inlining procedure: k37697 -o|inlining procedure: k37706 -o|inlining procedure: k37706 -o|inlining procedure: k37736 -o|contracted procedure: "(library.scm:7692) g88718880" -o|inlining procedure: k37736 -o|inlining procedure: k37785 -o|inlining procedure: k37785 -o|inlining procedure: k37829 -o|inlining procedure: k37829 -o|inlining procedure: k37867 -o|inlining procedure: k37879 -o|inlining procedure: k37879 -o|inlining procedure: k37867 -o|inlining procedure: k37941 -o|inlining procedure: k37941 -o|inlining procedure: k37966 -o|inlining procedure: k37966 -o|inlining procedure: k38045 -o|inlining procedure: k38045 -o|inlining procedure: k38080 -o|inlining procedure: k38080 -o|inlining procedure: k38170 -o|contracted procedure: "(library.scm:7778) %string-map8999" -o|inlining procedure: k38139 -o|inlining procedure: k38139 -o|inlining procedure: k38170 -o|inlining procedure: k38214 -o|inlining procedure: k38214 -o|inlining procedure: k38249 -o|inlining procedure: k38249 -o|inlining procedure: k38283 -o|inlining procedure: k38283 -o|inlining procedure: k38307 -o|inlining procedure: k38307 -o|inlining procedure: k38341 -o|contracted procedure: "(library.scm:7781) g90149021" -o|inlining procedure: k38341 -o|inlining procedure: k38396 -o|contracted procedure: "(library.scm:7797) %string-for-each9125" -o|inlining procedure: k38376 -o|inlining procedure: k38376 -o|inlining procedure: k38396 -o|inlining procedure: k38440 -o|inlining procedure: k38440 -o|inlining procedure: k38471 -o|inlining procedure: k38471 -o|inlining procedure: k38505 -o|inlining procedure: k38505 -o|inlining procedure: k38529 -o|inlining procedure: k38529 -o|inlining procedure: k38563 -o|contracted procedure: "(library.scm:7800) g91379144" -o|inlining procedure: k38563 -o|inlining procedure: k38586 -o|inlining procedure: k38610 -o|inlining procedure: k38610 -o|inlining procedure: k38586 -o|inlining procedure: k38669 -o|inlining procedure: k38669 -o|inlining procedure: k38704 -o|inlining procedure: k38704 -o|inlining procedure: k38738 -o|inlining procedure: k38738 -o|inlining procedure: k38762 -o|inlining procedure: k38762 -o|inlining procedure: k38796 -o|contracted procedure: "(library.scm:7820) g92659272" -o|inlining procedure: k38796 -o|inlining procedure: k38819 -o|inlining procedure: k38840 -o|inlining procedure: k38840 -o|inlining procedure: k38819 -o|inlining procedure: k38895 -o|inlining procedure: k38895 -o|inlining procedure: k38926 -o|inlining procedure: k38926 -o|inlining procedure: k38960 -o|inlining procedure: k38960 -o|inlining procedure: k38984 -o|inlining procedure: k38984 -o|inlining procedure: k39018 -o|contracted procedure: "(library.scm:7839) g93919398" -o|inlining procedure: k39018 -o|inlining procedure: k39047 -o|inlining procedure: k39047 -o|inlining procedure: k39101 -o|inlining procedure: k39101 -o|substituted constant variable: a39130 -o|substituted constant variable: a39131 -o|inlining procedure: k39135 -o|inlining procedure: k39135 -o|substituted constant variable: c9526 -o|substituted constant variable: a39172 -o|substituted constant variable: a39173 -o|substituted constant variable: a39273 -o|substituted constant variable: a39274 -o|inlining procedure: k39285 -o|inlining procedure: k39285 -o|inlining procedure: k39312 -o|inlining procedure: k39312 -o|substituted constant variable: a39367 -o|substituted constant variable: a39368 -o|inlining procedure: k39372 -o|inlining procedure: k39372 -o|inlining procedure: k39395 -o|inlining procedure: k39395 -o|inlining procedure: k39413 -o|inlining procedure: k39413 -o|inlining procedure: k39422 -o|inlining procedure: k39422 -o|inlining procedure: k39440 -o|inlining procedure: k39440 -o|substituted constant variable: a39484 -o|substituted constant variable: a39486 -o|inlining procedure: k39494 -o|inlining procedure: k39494 -o|substituted constant variable: a39526 -o|substituted constant variable: a39527 -o|inlining procedure: k39541 -o|inlining procedure: k39541 -o|substituted constant variable: a39607 -o|substituted constant variable: a39608 -o|inlining procedure: k39642 -o|inlining procedure: k39642 -o|inlining procedure: k39663 -o|inlining procedure: k39663 -o|inlining procedure: k39735 -o|inlining procedure: k39735 -o|inlining procedure: k39759 -o|inlining procedure: k39759 -o|inlining procedure: k39795 -o|inlining procedure: k39795 -o|inlining procedure: k39840 -o|inlining procedure: k39840 -o|substituted constant variable: a39888 -o|substituted constant variable: a39889 -o|substituted constant variable: a39969 -o|substituted constant variable: a39970 -o|inlining procedure: k39990 -o|inlining procedure: k39990 -o|inlining procedure: k40035 -o|inlining procedure: k40035 -o|inlining procedure: k40047 -o|inlining procedure: k40047 -o|inlining procedure: k40101 -o|inlining procedure: k40101 -o|substituted constant variable: len9807 -o|substituted constant variable: len9807 -o|inlining procedure: k40140 -o|inlining procedure: k40140 -o|substituted constant variable: a40165 -o|substituted constant variable: a40166 -o|inlining procedure: k40167 -o|inlining procedure: k40167 -o|substituted constant variable: a40216 -o|substituted constant variable: a40217 -o|inlining procedure: k40218 -o|inlining procedure: k40218 -o|inlining procedure: k40243 -o|inlining procedure: k40243 -o|substituted constant variable: a40287 -o|substituted constant variable: a40288 -o|inlining procedure: k40292 -o|inlining procedure: k40292 -o|substituted constant variable: a40315 -o|substituted constant variable: a40316 -o|inlining procedure: k40329 -o|inlining procedure: k40329 -o|substituted constant variable: a40371 -o|substituted constant variable: a40372 -o|inlining procedure: k40379 -o|inlining procedure: k40379 -o|substituted constant variable: a40401 -o|substituted constant variable: a40402 -o|substituted constant variable: a40447 -o|substituted constant variable: a40448 -o|substituted constant variable: a40550 -o|contracted procedure: "(library.scm:7578) g86858686" -o|inlining procedure: k40617 -o|inlining procedure: k40617 -o|inlining procedure: k40662 -o|inlining procedure: k40662 -o|inlining procedure: k40684 -o|inlining procedure: k40701 -o|contracted procedure: "(library.scm:7561) g86498656" -o|inlining procedure: k40701 -o|inlining procedure: k40684 -o|inlining procedure: k40727 -o|inlining procedure: k40727 -o|inlining procedure: k40801 -o|inlining procedure: k40801 -o|inlining procedure: k40848 -o|inlining procedure: k40848 -o|substituted constant variable: a40863 -o|inlining procedure: k40865 -o|inlining procedure: k40865 -o|substituted constant variable: a40877 -o|inlining procedure: k40919 -o|inlining procedure: k40919 -o|inlining procedure: k40956 -o|inlining procedure: k40980 -o|inlining procedure: k40980 -o|inlining procedure: k41010 -o|contracted procedure: "(library.scm:6067) g70797086" -o|inlining procedure: k41010 -o|inlining procedure: k40956 -o|inlining procedure: k41065 -o|inlining procedure: k41065 -o|inlining procedure: k41116 -o|inlining procedure: k41116 -o|inlining procedure: k41143 -o|inlining procedure: k41143 -o|inlining procedure: k41165 -o|inlining procedure: k41165 -o|inlining procedure: k41240 -o|inlining procedure: k41240 -o|inlining procedure: k41266 -o|inlining procedure: k41266 -o|inlining procedure: k41347 -o|inlining procedure: k41347 -o|inlining procedure: k41369 -o|inlining procedure: k41369 -o|inlining procedure: k41514 -o|inlining procedure: k41514 -o|inlining procedure: k41523 -o|inlining procedure: k41523 -o|inlining procedure: k41532 -o|inlining procedure: k41532 -o|inlining procedure: k41548 -o|inlining procedure: k41548 -o|inlining procedure: k41574 -o|inlining procedure: k41603 -o|inlining procedure: k41603 -o|inlining procedure: k41574 -o|inlining procedure: k41641 -o|inlining procedure: k41641 -o|inlining procedure: k41660 -o|inlining procedure: k41660 -o|inlining procedure: k41719 -o|inlining procedure: k41719 -o|inlining procedure: k41749 -o|inlining procedure: k41749 -o|inlining procedure: k41819 -o|inlining procedure: k41819 -o|inlining procedure: k41834 -o|inlining procedure: k41834 -o|inlining procedure: k41861 -o|inlining procedure: k41861 -o|inlining procedure: k41933 -o|inlining procedure: k41933 -o|inlining procedure: k41951 -o|inlining procedure: k41951 -o|inlining procedure: k41987 -o|inlining procedure: k41987 -o|substituted constant variable: sblen4917 -o|substituted constant variable: sblen4917 -o|replaced variables: 8399 -o|removed binding forms: 2444 -o|removed side-effect free assignment to unused variable: c9526 -o|substituted constant variable: r1149442102 -o|substituted constant variable: r1149442102 -o|substituted constant variable: r1153942108 -o|substituted constant variable: r1153942108 -o|substituted constant variable: r1190242114 -o|substituted constant variable: r1195242118 -o|substituted constant variable: r1203142124 -o|substituted constant variable: r1203142124 -o|substituted constant variable: r1206442130 -o|substituted constant variable: r1206442130 -o|substituted constant variable: r1221642136 -o|substituted constant variable: r1221642136 -o|substituted constant variable: r1225542142 -o|substituted constant variable: r1225542142 -o|substituted constant variable: r1229442148 -o|substituted constant variable: r1229442148 -o|substituted constant variable: r1233342154 -o|substituted constant variable: r1233342154 -o|substituted constant variable: r1237242160 -o|substituted constant variable: r1237242160 -o|substituted constant variable: r1242842163 -o|substituted constant variable: r1244942165 -o|substituted constant variable: r1245542167 -o|substituted constant variable: r1246142169 -o|substituted constant variable: r1247742171 -o|substituted constant variable: r1249342173 -o|inlining procedure: k12817 -o|substituted constant variable: r1288142187 -o|substituted constant variable: r1303442198 -o|substituted constant variable: r1304642201 -o|substituted constant variable: r1314742206 -o|substituted constant variable: r1321142211 -o|substituted constant variable: r1328442214 -o|substituted constant variable: r1333842218 -o|substituted constant variable: r1348042227 -o|substituted constant variable: r1367242236 -o|substituted constant variable: r1374942241 -o|substituted constant variable: r1388842244 -o|substituted constant variable: r1390142246 -o|converted assignments to bindings: (fail1334) -o|substituted constant variable: r1449942296 -o|substituted constant variable: r1449942296 -o|substituted constant variable: r1451642302 -o|substituted constant variable: r1451642302 -o|substituted constant variable: r1453942307 -o|substituted constant variable: r1453942307 -o|substituted constant variable: r1455742314 -o|substituted constant variable: r1455742314 -o|substituted constant variable: r1459942324 -o|substituted constant variable: r1459942324 -o|substituted constant variable: r1470242335 -o|substituted constant variable: r1498542346 -o|substituted constant variable: r1498542346 -o|substituted constant variable: r1517042365 -o|substituted constant variable: r1532342368 -o|substituted constant variable: r1532342368 -o|substituted constant variable: r1593342397 -o|substituted constant variable: r1599842402 -o|substituted constant variable: r1599842402 -o|substituted constant variable: r1615642416 -o|substituted constant variable: r1615642416 -o|substituted constant variable: r1639242428 -o|substituted constant variable: loc2350 -o|substituted constant variable: loc2361 -o|substituted constant variable: loc2372 -o|substituted constant variable: loc2383 -o|substituted constant variable: r1658142445 -o|substituted constant variable: loc2402 -o|substituted constant variable: loc2413 -o|substituted constant variable: loc2424 -o|substituted constant variable: loc2435 -o|substituted constant variable: loc2446 -o|substituted constant variable: loc2457 -o|substituted constant variable: loc2468 -o|substituted constant variable: loc2477 -o|substituted constant variable: loc2487 -o|substituted constant variable: loc2498 -o|substituted constant variable: loc2507 -o|substituted constant variable: loc2515 -o|substituted constant variable: loc2523 -o|substituted constant variable: loc2531 -o|substituted constant variable: loc2539 -o|substituted constant variable: loc2547 -o|substituted constant variable: loc2555 -o|substituted constant variable: loc2563 -o|substituted constant variable: loc2571 -o|substituted constant variable: loc2579 -o|substituted constant variable: loc2589 -o|substituted constant variable: loc2598 -o|substituted constant variable: loc2606 -o|substituted constant variable: loc2614 -o|substituted constant variable: loc2622 -o|substituted constant variable: loc2630 -o|substituted constant variable: loc2638 -o|substituted constant variable: loc2646 -o|substituted constant variable: loc2656 -o|substituted constant variable: loc2665 -o|substituted constant variable: loc2673 -o|substituted constant variable: loc2681 -o|substituted constant variable: loc2689 -o|inlining procedure: k17284 -o|inlining procedure: k17284 -o|substituted constant variable: r1729842519 -o|substituted constant variable: r1737942524 -o|substituted constant variable: r1754342538 -o|converted assignments to bindings: (deliver2867) -o|substituted constant variable: n3064 -o|substituted constant variable: d3065 -o|substituted constant variable: r1881542613 -o|substituted constant variable: r1882442615 -o|substituted constant variable: r1885742619 -o|substituted constant variable: r1886642621 -o|substituted constant variable: r1983542671 -o|substituted constant variable: r1994342678 -o|substituted constant variable: r2000842682 -o|substituted constant variable: r2018042689 -o|substituted constant variable: r2030842691 -o|substituted constant variable: r2030842691 -o|substituted constant variable: r2030842693 -o|substituted constant variable: r2030842693 -o|inlining procedure: k20344 -o|inlining procedure: k20344 -o|substituted constant variable: r2037242700 -o|substituted constant variable: r2038842703 -o|substituted constant variable: r2038842704 -o|substituted constant variable: r2035142709 -o|removed side-effect free assignment to unused variable: make-nan3520 -o|substituted constant variable: r2057242721 -o|substituted constant variable: r2059242723 -o|substituted constant variable: r2061442725 -o|substituted constant variable: r2062542727 -o|substituted constant variable: r2068042729 -o|substituted constant variable: r2068042730 -o|substituted constant variable: r2063942731 -o|substituted constant variable: r2074342744 -o|substituted constant variable: r2073142745 -o|substituted constant variable: r2069242761 -o|substituted constant variable: r2100942771 -o|substituted constant variable: r2099942772 -o|substituted constant variable: r2098742773 -o|substituted constant variable: r2107342781 -o|substituted constant variable: r2105542782 -o|substituted constant variable: r2104542783 -o|substituted constant variable: r2122742794 -o|substituted constant variable: r2130142798 -o|substituted constant variable: r2130142798 -o|substituted constant variable: r2130142800 -o|substituted constant variable: r2130142800 -o|substituted constant variable: r2132442805 -o|substituted constant variable: r2132442805 -o|substituted constant variable: r2141142813 -o|substituted constant variable: r2141142813 -o|substituted constant variable: r2138642816 -o|substituted constant variable: r2146342817 -o|substituted constant variable: r2146342818 -o|substituted constant variable: r2124642819 -o|substituted constant variable: r2150142824 -o|substituted constant variable: r2147942825 -o|substituted constant variable: r2152442829 -o|substituted constant variable: r2159442833 -o|substituted constant variable: r2157942834 -o|substituted constant variable: r2163742837 -o|substituted constant variable: r2175142840 -o|substituted constant variable: r2179542844 -o|substituted constant variable: r2183942848 -o|substituted constant variable: r2185242850 -o|substituted constant variable: r2194742857 -o|substituted constant variable: r2202042861 -o|substituted constant variable: r2210642866 -o|substituted constant variable: r2211842868 -o|substituted constant variable: r2212742871 -o|substituted constant variable: r2215342875 -o|substituted constant variable: r2217242877 -o|substituted constant variable: r2255242913 -o|substituted constant variable: r2267342915 -o|substituted constant variable: r2275942921 -o|substituted constant variable: r2284442925 -o|substituted constant variable: r2304942938 -o|substituted constant variable: r2377842970 -o|substituted constant variable: r2377842970 -o|substituted constant variable: r2382542976 -o|substituted constant variable: r2382542976 -o|substituted constant variable: r2386842982 -o|substituted constant variable: r2386842982 -o|substituted constant variable: r2391142988 -o|substituted constant variable: r2391142988 -o|substituted constant variable: r2395442994 -o|substituted constant variable: r2395442994 -o|substituted constant variable: r2397742997 -o|substituted constant variable: r2410843003 -o|removed call to pure procedure with unused result: "(library.scm:3844) ##sys#slot" -o|substituted constant variable: r2445143023 -o|removed call to pure procedure with unused result: "(library.scm:3855) ##sys#slot" -o|converted assignments to bindings: (continuation4796) -o|removed unused formal parameters: (%convert?49624977) -o|removed unused parameter to known procedure: %convert?49624977 "(library.scm:4145) def-set?49674976" -o|removed unused parameter to known procedure: %convert?49624977 "(library.scm:4145) def-set?49674976" -o|removed unused formal parameters: (%convert?49875002) -o|removed unused parameter to known procedure: %convert?49875002 "(library.scm:4155) def-set?49925001" -o|removed unused parameter to known procedure: %convert?49875002 "(library.scm:4155) def-set?49925001" -o|removed unused formal parameters: (%convert?50125027) -o|removed unused parameter to known procedure: %convert?50125027 "(library.scm:4165) def-set?50175026" -o|removed unused parameter to known procedure: %convert?50125027 "(library.scm:4165) def-set?50175026" -o|substituted constant variable: r2492243063 -o|substituted constant variable: r2499343068 -o|substituted constant variable: r2499343068 -o|substituted constant variable: r2499343070 -o|substituted constant variable: r2499343070 -o|substituted constant variable: r2536043088 -o|substituted constant variable: r2541343091 -o|substituted constant variable: r2550743097 -o|substituted constant variable: r2555243099 -o|substituted constant variable: r2559143101 -o|substituted constant variable: r2565143105 -o|inlining procedure: k25978 -o|substituted constant variable: r2604543120 -o|inlining procedure: k26056 -o|substituted constant variable: r2709543183 -o|inlining procedure: k27425 -o|converted assignments to bindings: (starting-line5699) -o|substituted constant variable: r2752443238 -o|substituted constant variable: r2752443238 -o|substituted constant variable: r2786043269 -o|substituted constant variable: r2787943273 -o|substituted constant variable: r2802743287 -o|substituted constant variable: r2802743288 -o|inlining procedure: k28120 -o|inlining procedure: k28120 -o|inlining procedure: k28120 -o|substituted constant variable: r2811843296 -o|substituted constant variable: r2810043297 -o|removed side-effect free assignment to unused variable: build-symbol5569 -o|substituted constant variable: r2863343335 -o|substituted constant variable: r2896443359 -o|substituted constant variable: r2925043386 -o|substituted constant variable: r2926943387 -o|substituted constant variable: r2926943387 -o|substituted constant variable: r2926943389 -o|substituted constant variable: r2926943389 -o|substituted constant variable: r2933843396 -o|converted assignments to bindings: (fail6122) -o|propagated global variable: port621343414 ##sys#standard-output -o|substituted constant variable: r3008443439 -o|substituted constant variable: r3009843441 -o|substituted constant variable: r3011343443 -o|substituted constant variable: r3011343444 -o|substituted constant variable: r3017843449 -o|substituted constant variable: r3019443450 -o|substituted constant variable: r3020943452 -o|substituted constant variable: r3020943453 -o|inlining procedure: k30221 -o|substituted constant variable: r3022243456 -o|substituted constant variable: r3022243456 -o|folded constant expression: (scheme#not (quote #f)) -o|substituted constant variable: r3025943460 -o|inlining procedure: k30734 -o|substituted constant variable: r3094743512 -o|substituted constant variable: r3096443514 -o|inlining procedure: k31104 -o|substituted constant variable: r3154143540 -o|substituted constant variable: r3169143549 -o|converted assignments to bindings: (break6922) -o|substituted constant variable: r3224443581 -o|substituted constant variable: r3224443581 -o|substituted constant variable: r3224443583 -o|substituted constant variable: r3224443583 -o|substituted constant variable: r3229743589 -o|substituted constant variable: r3230943591 -o|substituted constant variable: r3232143593 -o|substituted constant variable: r3233343595 -o|substituted constant variable: r3234543597 -o|substituted constant variable: r3235743599 -o|substituted constant variable: r3236943601 -o|substituted constant variable: r3236943602 -o|substituted constant variable: r3254643608 -o|substituted constant variable: r3254643608 -o|inlining procedure: k32571 -o|inlining procedure: k32571 -o|removed unused formal parameters: (%convert?71657180) -o|removed unused parameter to known procedure: %convert?71657180 "(library.scm:6142) def-set?71707179" -o|removed unused parameter to known procedure: %convert?71657180 "(library.scm:6142) def-set?71707179" -o|substituted constant variable: r3273043625 -o|substituted constant variable: r3307943637 -o|substituted constant variable: r3317743642 -o|substituted constant variable: r3320743646 -o|substituted constant variable: r3356843672 -o|substituted constant variable: r3356843672 -o|substituted constant variable: r3360543677 -o|substituted constant variable: r3360543677 -o|substituted constant variable: r3411943735 -o|substituted constant variable: r3411943735 -o|substituted constant variable: r3443643740 -o|substituted constant variable: r3445443742 -o|substituted constant variable: r3450743746 -o|substituted constant variable: r3460243750 -o|substituted constant variable: r3467943751 -o|substituted constant variable: r3472643755 -o|substituted constant variable: r3472643755 -o|substituted constant variable: r3474343757 -o|substituted constant variable: r3497143768 -o|inlining procedure: k35049 -o|inlining procedure: k35303 -o|converted assignments to bindings: (get/clear-str7969) -o|substituted constant variable: r3575443806 -o|substituted constant variable: r3575443806 -o|substituted constant variable: r3578543812 -o|inlining procedure: k35946 -o|inlining procedure: k35946 -o|substituted constant variable: r3601743842 -o|substituted constant variable: r3671543884 -o|removed side-effect free assignment to unused variable: pstr8485 -o|removed side-effect free assignment to unused variable: pchr8486 -o|substituted constant variable: r3684543887 -o|substituted constant variable: r3684543887 -o|substituted constant variable: str849043893 -o|substituted constant variable: str849043899 -o|substituted constant variable: str849043905 -o|substituted constant variable: str849043911 -o|substituted constant variable: str849043916 -o|substituted constant variable: str849043921 -o|substituted constant variable: chr849143926 -o|substituted constant variable: str849043931 -o|substituted constant variable: str849043936 -o|substituted constant variable: chr849143941 -o|substituted constant variable: str849043946 -o|substituted constant variable: str849043951 -o|substituted constant variable: str849043956 -o|substituted constant variable: str849043961 -o|substituted constant variable: r3717043966 -o|substituted constant variable: r3717043966 -o|substituted constant variable: r3711543970 -o|converted assignments to bindings: (str8595) -o|substituted constant variable: r3720443972 -o|substituted constant variable: r3720443972 -o|substituted constant variable: r3720443974 -o|substituted constant variable: r3720443974 -o|substituted constant variable: r3725843981 -o|substituted constant variable: r3756043998 -o|substituted constant variable: r3767744007 -o|substituted constant variable: r3770744013 -o|substituted constant variable: r3931344105 -o|substituted constant variable: r3949544117 -o|substituted constant variable: r3964344120 -o|substituted constant variable: r4003644136 -o|substituted constant variable: r4024444156 -o|substituted constant variable: r4029344159 -o|substituted constant variable: r4038044162 -o|inlining procedure: k40662 -o|substituted constant variable: r4068544173 -o|substituted constant variable: r4084944178 -o|substituted constant variable: r4114444194 -o|substituted constant variable: r4116644196 -o|substituted constant variable: r4126744202 -o|substituted constant variable: r4134844204 -o|removed call to pure procedure with unused result: "(library.scm:5726) ##sys#slot" -o|substituted constant variable: r4152444213 -o|substituted constant variable: r4153344215 -o|substituted constant variable: r4154944217 -o|substituted constant variable: r4160444220 -o|converted assignments to bindings: (lookup-char4648) -o|simplifications: ((let . 10)) -o|replaced variables: 694 -o|removed binding forms: 6912 -o|removed conditional forms: 1 -o|inlining procedure: k12799 -o|substituted constant variable: r1281844284 -o|substituted constant variable: r1281844284 -o|inlining procedure: k14273 -o|inlining procedure: k14273 -o|inlining procedure: k14273 -o|inlining procedure: k14747 -o|inlining procedure: k14763 -o|inlining procedure: k14779 -o|inlining procedure: k14795 -o|inlining procedure: k14811 -o|inlining procedure: k14827 -o|inlining procedure: k14843 -o|inlining procedure: k14859 -o|inlining procedure: k16489 -o|inlining procedure: k16513 -o|inlining procedure: k16537 -o|inlining procedure: k16561 -o|inlining procedure: k16610 -o|inlining procedure: k16634 -o|inlining procedure: k16658 -o|inlining procedure: k16682 -o|inlining procedure: k16706 -o|inlining procedure: k16730 -o|inlining procedure: k16754 -o|inlining procedure: k16772 -o|inlining procedure: k16796 -o|inlining procedure: k16820 -o|inlining procedure: k16838 -o|inlining procedure: k16856 -o|inlining procedure: k16874 -o|inlining procedure: k16892 -o|inlining procedure: k16910 -o|inlining procedure: k16928 -o|inlining procedure: k16946 -o|inlining procedure: k16964 -o|inlining procedure: k16982 -o|inlining procedure: k17000 -o|inlining procedure: k17024 -o|inlining procedure: k17042 -o|inlining procedure: k17060 -o|inlining procedure: k17078 -o|inlining procedure: k17096 -o|inlining procedure: k17114 -o|inlining procedure: k17132 -o|inlining procedure: k17150 -o|inlining procedure: k17174 -o|inlining procedure: k17192 -o|inlining procedure: k17210 -o|inlining procedure: k17228 -o|inlining procedure: k17246 -o|inlining procedure: k17485 -o|inlining procedure: k17597 -o|inlining procedure: k17666 -o|inlining procedure: k17758 -o|inlining procedure: k17764 -o|inlining procedure: k17865 -o|inlining procedure: k18088 -o|inlining procedure: k18158 -o|inlining procedure: k18203 -o|inlining procedure: k18240 -o|inlining procedure: k18271 -o|inlining procedure: k18271 -o|inlining procedure: k18284 -o|inlining procedure: k18452 -o|inlining procedure: k18593 -o|inlining procedure: k19235 -o|inlining procedure: k19259 -o|inlining procedure: k19551 -o|inlining procedure: k19674 -o|inlining procedure: k19682 -o|inlining procedure: k19720 -o|inlining procedure: k19738 -o|inlining procedure: k19891 -o|inlining procedure: k19920 -o|inlining procedure: k20135 -o|inlining procedure: k20142 -o|inlining procedure: k20601 -o|inlining procedure: k21102 -o|inlining procedure: k21493 -o|inlining procedure: k21493 -o|inlining procedure: k21535 -o|inlining procedure: k21940 -o|inlining procedure: k21940 -o|inlining procedure: k21973 -o|inlining procedure: k22293 -o|inlining procedure: k22293 -o|inlining procedure: k22604 -o|contracted procedure: k24348 -o|contracted procedure: k24444 -o|inlining procedure: k25007 -o|inlining procedure: k25007 -o|inlining procedure: k25007 -o|inlining procedure: k25007 -o|inlining procedure: k25007 -o|inlining procedure: k25007 -o|inlining procedure: k25007 -o|inlining procedure: k25394 -o|propagated global variable: r2539545411 ##sys#standard-output -o|propagated global variable: r2539545411 ##sys#standard-output -o|inlining procedure: k25957 -o|propagated global variable: r2595845419 ##sys#standard-input -o|propagated global variable: r2595845419 ##sys#standard-input -o|inlining procedure: k26069 -o|propagated global variable: r2607045421 ##sys#standard-input -o|propagated global variable: r2607045421 ##sys#standard-input -o|inlining procedure: k26087 -o|propagated global variable: r2608845423 ##sys#standard-input -o|propagated global variable: r2608845423 ##sys#standard-input -o|inlining procedure: k27011 -o|inlining procedure: "(library.scm:4837) build-keyword5570" -o|inlining procedure: "(library.scm:4838) build-keyword5570" -o|inlining procedure: "(library.scm:4869) build-keyword5570" -o|inlining procedure: "(library.scm:4929) build-keyword5570" -o|inlining procedure: "(library.scm:5160) build-keyword5570" -o|inlining procedure: k29654 -o|propagated global variable: r2965545483 ##sys#standard-output -o|propagated global variable: r2965545483 ##sys#standard-output -o|inlining procedure: k29672 -o|propagated global variable: r2967345485 ##sys#standard-output -o|propagated global variable: r2967345485 ##sys#standard-output -o|inlining procedure: k30066 -o|substituted constant variable: r3022244729 -o|folded constant expression: (scheme#not (quote #f)) -o|inlining procedure: k32411 -o|inlining procedure: k34736 -o|inlining procedure: k34736 -o|inlining procedure: k35118 -o|inlining procedure: "(library.scm:6839) ##sys#format-here-doc-warning" -o|inlining procedure: k35352 -o|inlining procedure: k35352 -o|inlining procedure: "(library.scm:6873) ##sys#format-here-doc-warning" -o|inlining procedure: k35639 -o|inlining procedure: k35639 -o|inlining procedure: k36056 -o|inlining procedure: k36354 -o|inlining procedure: k36354 -o|inlining procedure: k36726 -o|inlining procedure: k36726 -o|inlining procedure: k37529 -o|inlining procedure: k37529 -o|inlining procedure: k40868 -o|inlining procedure: k40868 -o|contracted procedure: k41341 -o|inlining procedure: k41511 -o|inlining procedure: k41511 -o|replaced variables: 9 -o|removed binding forms: 949 -o|substituted constant variable: r1280045110 -o|substituted constant variable: r1474845151 -o|substituted constant variable: r1476445153 -o|substituted constant variable: r1478045155 -o|substituted constant variable: r1479645157 -o|substituted constant variable: r1481245159 -o|substituted constant variable: r1482845161 -o|substituted constant variable: r1484445163 -o|substituted constant variable: r1486045165 -o|contracted procedure: k17414 -o|contracted procedure: k17419 -o|contracted procedure: k17479 -o|contracted procedure: k17850 -o|contracted procedure: k17859 -o|contracted procedure: k17964 -o|contracted procedure: k17969 -o|contracted procedure: k17974 -o|contracted procedure: k17979 -o|contracted procedure: k17984 -o|contracted procedure: k17989 -o|contracted procedure: k18021 -o|contracted procedure: k18045 -o|contracted procedure: k18060 -o|contracted procedure: k18140 -o|contracted procedure: k18185 -o|contracted procedure: k18234 -o|substituted constant variable: r1827245257 -o|contracted procedure: k18576 -o|contracted procedure: k20154 -o|contracted procedure: k20159 -o|contracted procedure: k20291 -o|contracted procedure: k21406 -o|substituted constant variable: r2149445298 -o|substituted constant variable: r2194145304 -o|substituted constant variable: r2194145305 -o|substituted constant variable: r2229445309 -o|substituted constant variable: r2260545323 -o|substituted constant variable: tok593645443 -o|inlining procedure: k27381 -o|removed side-effect free assignment to unused variable: build-keyword5570 -o|substituted constant variable: r3257244782 -o|removed side-effect free assignment to unused variable: ##sys#format-here-doc-warning -o|substituted constant variable: r3605745583 -o|substituted constant variable: r3635545593 -o|substituted constant variable: r3635545593 -o|substituted constant variable: r3672745594 -o|substituted constant variable: r3672745594 -o|substituted constant variable: r3672745595 -o|substituted constant variable: r3672745595 -o|inlining procedure: k37359 -o|inlining procedure: k37359 -o|substituted constant variable: r4086945700 -o|substituted constant variable: r4151245708 -o|substituted constant variable: r4151245708 -o|substituted constant variable: r4151245710 -o|substituted constant variable: r4151245710 -o|simplifications: ((let . 5)) -o|replaced variables: 23 -o|removed binding forms: 133 -o|removed conditional forms: 12 -o|substituted constant variable: r2738245922 -o|substituted constant variable: r2738245922 -o|substituted constant variable: r3736046026 -o|simplifications: ((if . 1) (let . 1)) -o|removed binding forms: 89 -o|removed conditional forms: 2 -o|simplifications: ((let . 1)) -o|replaced variables: 2 -o|removed binding forms: 2 -o|removed binding forms: 1 -o|simplifications: ((if . 422) (let . 249) (##core#call . 3677)) -o| call simplifications: -o| scheme#cdar 2 -o| scheme#set-cdr! 6 -o| scheme#list-tail -o| ##sys#make-vector -o| ##sys#cons 4 -o| scheme#vector-ref 2 -o| scheme#set-car! 8 -o| ##sys#generic-structure? -o| chicken.fixnum#fx/ -o| scheme#read-char -o| ##sys#list 6 -o| ##sys#context-switch 2 -o| ##sys#foreign-pointer-argument 3 -o| ##sys#null-pointer? -o| scheme#caddr 3 -o| scheme#write-char -o| scheme#equal? 2 -o| scheme#memv 2 -o| scheme#caar 3 -o| scheme#cddr 3 -o| ##sys#check-structure 2 -o| chicken.fixnum#fxmin 7 -o| ##sys#apply 2 -o| scheme#char-upper-case? -o| ##sys#void 4 -o| scheme#string? 6 -o| scheme#string->list -o| scheme#symbol? 8 -o| scheme#char-downcase -o| scheme#member 8 -o| chicken.fixnum#fxior -o| scheme#char-numeric? 9 -o| scheme#char<=? -o| scheme#char>=? 2 -o| scheme#eof-object? 31 -o| scheme#char=? 10 -o| scheme#char-whitespace? 6 -o| scheme#vector? 3 -o| ##sys#immediate? 3 -o| chicken.fixnum#fxnot -o| chicken.fixnum#fxand 8 -o| ##sys#call-with-current-continuation 3 -o| scheme#char? 5 -o| scheme#assq 7 -o| ##sys#check-vector 13 -o| ##sys#foreign-flonum-argument -o| ##sys#foreign-fixnum-argument 4 -o| scheme#remainder -o| chicken.base#fixnum? 2 -o| chicken.fixnum#fxshr 5 -o| chicken.fixnum#fxshl 5 -o| chicken.bitwise#bitwise-and 2 -o| chicken.fixnum#fxneg 5 -o| chicken.bitwise#arithmetic-shift 11 -o| scheme#> 7 -o| scheme#< 7 -o| scheme#cadr 20 -o| scheme#= 3 -o| scheme#>= 2 -o| scheme#quotient 17 -o| scheme#exact? -o| chicken.base#ratnum? 14 -o| ##sys#check-number 10 -o| chicken.base#cplxnum? 17 -o| scheme#number? 9 -o| scheme#* 45 -o| scheme#inexact? 7 -o| chicken.base#flonum? 55 -o| scheme#length 6 -o| scheme#list->string -o| scheme#string-length 21 -o| chicken.fixnum#fx<= 16 -o| chicken.fixnum#fxmax -o| scheme#char->integer 18 -o| chicken.fixnum#fx>= 40 -o| scheme#string-set! 5 -o| scheme#string-ref 28 -o| chicken.fixnum#fx< 48 -o| scheme#memq 13 -o| chicken.fixnum#fx> 41 -o| chicken.fixnum#fx- 94 -o| chicken.fixnum#fx* 16 -o| chicken.fixnum#fx+ 175 -o| ##sys#call-with-values 26 -o| ##sys#values 2 -o| chicken.fixnum#fx= 32 -o| ##sys#check-range 18 -o| scheme#procedure? 12 -o| scheme#string 3 -o| ##sys#check-bytevector 12 -o| scheme#vector 10 -o| scheme#integer->char 12 -o| ##sys#setislot 41 -o| scheme#list 28 -o| ##sys#setslot 87 -o| ##sys#size 83 -o| scheme#list? 4 -o| ##sys#check-pair 3 -o| chicken.base#void 3 -o| ##sys#check-list 27 -o| ##sys#make-structure 13 -o| ##sys#structure? 8 -o| scheme#apply 108 -o| scheme#- 21 -o| scheme#call-with-values 2 -o| scheme#+ 26 -o| scheme#values 27 -o| scheme#not 103 -o| ##sys#check-fixnum 28 -o| ##sys#check-char 49 -o| ##sys#check-string 36 -o| scheme#pair? 130 -o| scheme#cons 180 -o| scheme#cdr 96 -o| scheme#car 190 -o| ##sys#check-symbol 13 -o| scheme#null? 262 -o| ##sys#check-boolean 3 -o| ##sys#slot 538 -o| scheme#eq? 472 -o|contracted procedure: k11457 -o|contracted procedure: k11460 -o|contracted procedure: k11467 -o|contracted procedure: k11476 -o|contracted procedure: k11479 -o|contracted procedure: k11482 -o|contracted procedure: k11489 -o|contracted procedure: k11493 -o|contracted procedure: k11502 -o|contracted procedure: k11505 -o|contracted procedure: k11512 -o|contracted procedure: k11521 -o|contracted procedure: k11524 -o|contracted procedure: k11527 -o|contracted procedure: k11534 -o|contracted procedure: k11538 -o|contracted procedure: k11594 -o|contracted procedure: k11590 -o|contracted procedure: k11608 -o|contracted procedure: k11622 -o|contracted procedure: k11618 -o|contracted procedure: k11643 -o|contracted procedure: k11639 -o|contracted procedure: k11657 -o|contracted procedure: k11653 -o|contracted procedure: k11675 -o|contracted procedure: k11671 -o|contracted procedure: k11667 -o|contracted procedure: k11685 -o|contracted procedure: k11697 -o|contracted procedure: k11715 -o|contracted procedure: k11711 -o|contracted procedure: k11726 -o|contracted procedure: k11744 -o|contracted procedure: k11740 -o|contracted procedure: k11736 -o|contracted procedure: k11754 -o|contracted procedure: k11766 -o|contracted procedure: k11791 -o|contracted procedure: k11787 -o|contracted procedure: k11783 -o|contracted procedure: k11801 -o|contracted procedure: k11820 -o|contracted procedure: k11816 -o|contracted procedure: k11812 -o|contracted procedure: k11853 -o|contracted procedure: k11859 -o|contracted procedure: k11866 -o|contracted procedure: k11874 -o|contracted procedure: k11870 -o|contracted procedure: k11924 -o|contracted procedure: k11889 -o|contracted procedure: k11904 -o|contracted procedure: k11917 -o|contracted procedure: k11921 -o|contracted procedure: k11979 -o|contracted procedure: k11939 -o|contracted procedure: k11954 -o|contracted procedure: k11968 -o|contracted procedure: k11976 -o|contracted procedure: k11972 -o|contracted procedure: k12013 -o|contracted procedure: k12016 -o|contracted procedure: k12019 -o|contracted procedure: k12026 -o|contracted procedure: k12046 -o|contracted procedure: k12049 -o|contracted procedure: k12052 -o|contracted procedure: k12059 -o|contracted procedure: k12168 -o|contracted procedure: k12175 -o|contracted procedure: k12182 -o|contracted procedure: k12185 -o|contracted procedure: k12198 -o|contracted procedure: k12201 -o|contracted procedure: k12204 -o|contracted procedure: k12211 -o|contracted procedure: k12221 -o|contracted procedure: k12224 -o|contracted procedure: k12237 -o|contracted procedure: k12240 -o|contracted procedure: k12243 -o|contracted procedure: k12250 -o|contracted procedure: k12260 -o|contracted procedure: k12263 -o|contracted procedure: k12276 -o|contracted procedure: k12279 -o|contracted procedure: k12282 -o|contracted procedure: k12289 -o|contracted procedure: k12299 -o|contracted procedure: k12302 -o|contracted procedure: k12315 -o|contracted procedure: k12318 -o|contracted procedure: k12321 -o|contracted procedure: k12328 -o|contracted procedure: k12338 -o|contracted procedure: k12341 -o|contracted procedure: k12354 -o|contracted procedure: k12357 -o|contracted procedure: k12360 -o|contracted procedure: k12367 -o|contracted procedure: k12377 -o|contracted procedure: k12383 -o|contracted procedure: k12394 -o|contracted procedure: k12400 -o|contracted procedure: k12406 -o|contracted procedure: k12412 -o|contracted procedure: k12418 -o|contracted procedure: k12424 -o|contracted procedure: k12434 -o|contracted procedure: k12430 -o|contracted procedure: k12470 -o|contracted procedure: k12486 -o|contracted procedure: k12609 -o|contracted procedure: k12623 -o|contracted procedure: k12662 -o|contracted procedure: k12715 -o|contracted procedure: k12746 -o|contracted procedure: k12727 -o|contracted procedure: k12734 -o|contracted procedure: k12742 -o|contracted procedure: k12752 -o|contracted procedure: k12783 -o|contracted procedure: k12764 -o|contracted procedure: k12771 -o|contracted procedure: k12779 -o|contracted procedure: k12793 -o|contracted procedure: k12808 -o|contracted procedure: k12799 -o|contracted procedure: k12823 -o|contracted procedure: k1282044288 -o|contracted procedure: k12817 -o|contracted procedure: k12820 -o|contracted procedure: k12847 -o|contracted procedure: k12856 -o|contracted procedure: k12866 -o|contracted procedure: k12903 -o|contracted procedure: k12883 -o|contracted procedure: k12886 -o|contracted procedure: k12899 -o|contracted procedure: k12912 -o|contracted procedure: k12915 -o|contracted procedure: k12956 -o|contracted procedure: k12977 -o|contracted procedure: k12989 -o|contracted procedure: k12998 -o|contracted procedure: k13001 -o|contracted procedure: k13007 -o|contracted procedure: k13036 -o|contracted procedure: k13063 -o|contracted procedure: k13042 -o|contracted procedure: k13055 -o|contracted procedure: k13059 -o|contracted procedure: k13072 -o|contracted procedure: k13119 -o|contracted procedure: k13083 -o|contracted procedure: k13097 -o|contracted procedure: k13100 -o|contracted procedure: k13106 -o|contracted procedure: k13137 -o|contracted procedure: k13152 -o|contracted procedure: k13159 -o|contracted procedure: k13174 -o|contracted procedure: k13184 -o|contracted procedure: k13188 -o|contracted procedure: k13198 -o|contracted procedure: k13207 -o|contracted procedure: k13213 -o|contracted procedure: k13220 -o|contracted procedure: k13239 -o|contracted procedure: k13242 -o|contracted procedure: k13245 -o|contracted procedure: k13251 -o|contracted procedure: k13321 -o|contracted procedure: k13271 -o|contracted procedure: k13274 -o|contracted procedure: k13286 -o|contracted procedure: k13318 -o|contracted procedure: k13292 -o|contracted procedure: k13298 -o|contracted procedure: k13301 -o|contracted procedure: k13307 -o|contracted procedure: k13328 -o|contracted procedure: k13340 -o|contracted procedure: k13402 -o|contracted procedure: k13346 -o|contracted procedure: k13398 -o|contracted procedure: k13355 -o|contracted procedure: k13364 -o|contracted procedure: k13371 -o|contracted procedure: k13379 -o|contracted procedure: k13383 -o|contracted procedure: k13390 -o|contracted procedure: k13394 -o|contracted procedure: k13408 -o|contracted procedure: k13414 -o|contracted procedure: k13417 -o|contracted procedure: k13421 -o|contracted procedure: k13511 -o|contracted procedure: k13434 -o|contracted procedure: k13446 -o|contracted procedure: k13453 -o|contracted procedure: k13456 -o|contracted procedure: k13462 -o|contracted procedure: k13468 -o|contracted procedure: k13482 -o|contracted procedure: k13485 -o|contracted procedure: k13498 -o|contracted procedure: k13501 -o|contracted procedure: k13508 -o|contracted procedure: k13615 -o|contracted procedure: k13520 -o|contracted procedure: k13532 -o|contracted procedure: k13539 -o|contracted procedure: k13612 -o|contracted procedure: k13545 -o|contracted procedure: k13551 -o|contracted procedure: k13608 -o|contracted procedure: k13557 -o|contracted procedure: k13573 -o|contracted procedure: k13577 -o|contracted procedure: k13596 -o|contracted procedure: k13600 -o|contracted procedure: k13584 -o|contracted procedure: k13592 -o|contracted procedure: k13604 -o|contracted procedure: k13727 -o|contracted procedure: k13624 -o|contracted procedure: k13721 -o|contracted procedure: k13627 -o|contracted procedure: k13715 -o|contracted procedure: k13630 -o|contracted procedure: k13709 -o|contracted procedure: k13633 -o|contracted procedure: k13648 -o|contracted procedure: k13654 -o|contracted procedure: k13660 -o|contracted procedure: k13674 -o|contracted procedure: k13680 -o|contracted procedure: k13683 -o|contracted procedure: k13686 -o|contracted procedure: k13699 -o|contracted procedure: k13703 -o|contracted procedure: k13736 -o|contracted procedure: k13777 -o|contracted procedure: k13739 -o|contracted procedure: k13751 -o|contracted procedure: k13754 -o|contracted procedure: k13757 -o|contracted procedure: k13770 -o|contracted procedure: k13774 -o|contracted procedure: k13784 -o|contracted procedure: k13790 -o|contracted procedure: k13794 -o|contracted procedure: k13800 -o|contracted procedure: k13803 -o|contracted procedure: k13806 -o|contracted procedure: k13815 -o|contracted procedure: k13818 -o|contracted procedure: k13821 -o|contracted procedure: k13859 -o|contracted procedure: k13855 -o|contracted procedure: k13837 -o|contracted procedure: k13847 -o|contracted procedure: k13851 -o|contracted procedure: k13868 -o|contracted procedure: k13871 -o|contracted procedure: k13878 -o|contracted procedure: k13890 -o|contracted procedure: k13903 -o|contracted procedure: k13922 -o|contracted procedure: k13881 -o|contracted procedure: k13874 -o|contracted procedure: k13960 -o|contracted procedure: k13963 -o|contracted procedure: k13976 -o|contracted procedure: k13979 -o|contracted procedure: k13987 -o|contracted procedure: k13970 -o|contracted procedure: k13966 -o|contracted procedure: k14039 -o|contracted procedure: k14017 -o|contracted procedure: k14020 -o|contracted procedure: k14026 -o|contracted procedure: k14156 -o|contracted procedure: k14168 -o|contracted procedure: k14182 -o|contracted procedure: k14223 -o|contracted procedure: k14219 -o|contracted procedure: k14267 -o|contracted procedure: k14260 -o|contracted procedure: k14270 -o|contracted procedure: k14279 -o|contracted procedure: k14298 -o|contracted procedure: k14305 -o|contracted procedure: k14309 -o|contracted procedure: k14318 -o|contracted procedure: k14329 -o|contracted procedure: k14340 -o|contracted procedure: k14351 -o|contracted procedure: k14362 -o|contracted procedure: k14373 -o|contracted procedure: k14384 -o|contracted procedure: k14395 -o|contracted procedure: k14406 -o|contracted procedure: k14417 -o|contracted procedure: k14428 -o|contracted procedure: k14439 -o|contracted procedure: k14450 -o|contracted procedure: k14461 -o|contracted procedure: k14472 -o|contracted procedure: k14483 -o|contracted procedure: k14501 -o|contracted procedure: k14518 -o|contracted procedure: k14528 -o|contracted procedure: k14531 -o|contracted procedure: k14541 -o|contracted procedure: k14559 -o|contracted procedure: k14569 -o|contracted procedure: k14580 -o|contracted procedure: k14591 -o|contracted procedure: k14601 -o|contracted procedure: k14611 -o|contracted procedure: k14622 -o|contracted procedure: k14631 -o|contracted procedure: k14637 -o|contracted procedure: k14646 -o|contracted procedure: k14655 -o|contracted procedure: k14658 -o|contracted procedure: k14727 -o|contracted procedure: k14723 -o|contracted procedure: k14667 -o|contracted procedure: k14679 -o|contracted procedure: k14689 -o|contracted procedure: k14682 -o|contracted procedure: k14692 -o|contracted procedure: k14719 -o|contracted procedure: k14698 -o|contracted procedure: k14715 -o|contracted procedure: k14704 -o|contracted procedure: k14711 -o|contracted procedure: k14736 -o|contracted procedure: k14754 -o|contracted procedure: k14747 -o|contracted procedure: k14770 -o|contracted procedure: k14763 -o|contracted procedure: k14786 -o|contracted procedure: k14779 -o|contracted procedure: k14802 -o|contracted procedure: k14795 -o|contracted procedure: k14818 -o|contracted procedure: k14811 -o|contracted procedure: k14834 -o|contracted procedure: k14827 -o|contracted procedure: k14850 -o|contracted procedure: k14843 -o|contracted procedure: k14866 -o|contracted procedure: k14859 -o|contracted procedure: k14878 -o|contracted procedure: k14948 -o|contracted procedure: k14890 -o|contracted procedure: k14900 -o|contracted procedure: k14909 -o|contracted procedure: k14916 -o|contracted procedure: k14922 -o|contracted procedure: k14929 -o|contracted procedure: k14937 -o|contracted procedure: k14944 -o|contracted procedure: k14963 -o|contracted procedure: k14970 -o|contracted procedure: k14978 -o|contracted procedure: k14974 -o|contracted procedure: k14990 -o|contracted procedure: k14984 -o|contracted procedure: k15012 -o|contracted procedure: k14999 -o|contracted procedure: k15002 -o|contracted procedure: k15009 -o|contracted procedure: k15026 -o|contracted procedure: k15050 -o|contracted procedure: k15059 -o|contracted procedure: k15075 -o|contracted procedure: k15088 -o|contracted procedure: k15115 -o|contracted procedure: k15124 -o|contracted procedure: k15133 -o|contracted procedure: k15157 -o|contracted procedure: k15172 -o|contracted procedure: k15239 -o|contracted procedure: k15306 -o|contracted procedure: k15257 -o|contracted procedure: k15272 -o|contracted procedure: k15278 -o|contracted procedure: k15294 -o|contracted procedure: k15301 -o|contracted procedure: k15312 -o|contracted procedure: k15325 -o|contracted procedure: k15328 -o|contracted procedure: k15331 -o|contracted procedure: k15334 -o|contracted procedure: k15424 -o|contracted procedure: k15343 -o|contracted procedure: k15418 -o|contracted procedure: k15346 -o|contracted procedure: k15412 -o|contracted procedure: k15349 -o|contracted procedure: k15406 -o|contracted procedure: k15352 -o|contracted procedure: k15355 -o|contracted procedure: k15358 -o|contracted procedure: k15371 -o|contracted procedure: k15380 -o|contracted procedure: k15387 -o|contracted procedure: k15395 -o|contracted procedure: k15391 -o|contracted procedure: k15489 -o|contracted procedure: k15437 -o|contracted procedure: k15481 -o|contracted procedure: k15455 -o|contracted procedure: k15458 -o|contracted procedure: k15461 -o|contracted procedure: k15468 -o|contracted procedure: k15472 -o|contracted procedure: k15476 -o|contracted procedure: k15485 -o|contracted procedure: k15508 -o|contracted procedure: k15514 -o|contracted procedure: k15517 -o|contracted procedure: k15520 -o|contracted procedure: k15523 -o|contracted procedure: k15530 -o|contracted procedure: k15534 -o|contracted procedure: k15541 -o|contracted procedure: k15657 -o|contracted procedure: k15547 -o|contracted procedure: k15651 -o|contracted procedure: k15550 -o|contracted procedure: k15645 -o|contracted procedure: k15553 -o|contracted procedure: k15639 -o|contracted procedure: k15556 -o|contracted procedure: k15559 -o|contracted procedure: k15562 -o|contracted procedure: k15569 -o|contracted procedure: k15572 -o|contracted procedure: k15624 -o|contracted procedure: k15575 -o|contracted procedure: k15578 -o|contracted procedure: k15616 -o|contracted procedure: k15620 -o|contracted procedure: k15609 -o|contracted procedure: k15584 -o|contracted procedure: k15596 -o|contracted procedure: k15599 -o|contracted procedure: k15606 -o|contracted procedure: k15627 -o|contracted procedure: k15732 -o|contracted procedure: k15666 -o|contracted procedure: k15726 -o|contracted procedure: k15669 -o|contracted procedure: k15720 -o|contracted procedure: k15672 -o|contracted procedure: k15714 -o|contracted procedure: k15675 -o|contracted procedure: k15678 -o|contracted procedure: k15691 -o|contracted procedure: k15694 -o|contracted procedure: k15883 -o|contracted procedure: k15741 -o|contracted procedure: k15877 -o|contracted procedure: k15744 -o|contracted procedure: k15871 -o|contracted procedure: k15747 -o|contracted procedure: k15865 -o|contracted procedure: k15750 -o|contracted procedure: k15753 -o|contracted procedure: k15756 -o|contracted procedure: k15761 -o|contracted procedure: k15764 -o|contracted procedure: k15848 -o|contracted procedure: k15773 -o|contracted procedure: k15815 -o|contracted procedure: k15780 -o|contracted procedure: k15784 -o|contracted procedure: k15793 -o|contracted procedure: k15811 -o|contracted procedure: k15796 -o|contracted procedure: k15803 -o|contracted procedure: k15807 -o|contracted procedure: k15827 -o|contracted procedure: k15845 -o|contracted procedure: k15830 -o|contracted procedure: k15837 -o|contracted procedure: k15841 -o|contracted procedure: k15896 -o|contracted procedure: k15900 -o|contracted procedure: k15906 -o|contracted procedure: k15909 -o|contracted procedure: k15929 -o|contracted procedure: k15935 -o|contracted procedure: k15941 -o|contracted procedure: k15945 -o|contracted procedure: k15951 -o|contracted procedure: k15954 -o|contracted procedure: k16014 -o|contracted procedure: k15960 -o|contracted procedure: k15976 -o|contracted procedure: k15979 -o|contracted procedure: k15982 -o|contracted procedure: k16003 -o|contracted procedure: k15986 -o|contracted procedure: k15993 -o|contracted procedure: k16011 -o|contracted procedure: k16008 -o|contracted procedure: k16026 -o|contracted procedure: k16035 -o|contracted procedure: k16050 -o|contracted procedure: k16059 -o|contracted procedure: k16077 -o|contracted procedure: k16098 -o|contracted procedure: k16109 -o|contracted procedure: k16112 -o|contracted procedure: k16164 -o|contracted procedure: k16118 -o|contracted procedure: k16134 -o|contracted procedure: k16137 -o|contracted procedure: k16140 -o|contracted procedure: k16161 -o|contracted procedure: k16144 -o|contracted procedure: k16151 -o|contracted procedure: k16176 -o|contracted procedure: k16185 -o|contracted procedure: k16200 -o|contracted procedure: k16209 -o|contracted procedure: k16227 -o|contracted procedure: k16248 -o|contracted procedure: k16260 -o|contracted procedure: k16263 -o|contracted procedure: k16300 -o|contracted procedure: k16266 -o|contracted procedure: k16296 -o|contracted procedure: k16269 -o|contracted procedure: k16280 -o|contracted procedure: k16284 -o|contracted procedure: k16276 -o|contracted procedure: k16292 -o|contracted procedure: k16288 -o|contracted procedure: k16315 -o|contracted procedure: k16324 -o|contracted procedure: k16327 -o|contracted procedure: k16330 -o|contracted procedure: k16333 -o|contracted procedure: k16358 -o|contracted procedure: k16336 -o|contracted procedure: k16339 -o|contracted procedure: k16346 -o|contracted procedure: k16350 -o|contracted procedure: k16354 -o|contracted procedure: k16376 -o|contracted procedure: k16382 -o|contracted procedure: k16394 -o|contracted procedure: k16400 -o|contracted procedure: k16415 -o|contracted procedure: k16430 -o|contracted procedure: k16449 -o|contracted procedure: k16437 -o|contracted procedure: k16441 -o|contracted procedure: k16445 -o|contracted procedure: k16452 -o|contracted procedure: k16483 -o|contracted procedure: k16476 -o|contracted procedure: k16507 -o|contracted procedure: k16500 -o|contracted procedure: k16531 -o|contracted procedure: k16524 -o|contracted procedure: k16555 -o|contracted procedure: k16548 -o|contracted procedure: k16577 -o|contracted procedure: k16583 -o|contracted procedure: k16604 -o|contracted procedure: k16597 -o|contracted procedure: k16628 -o|contracted procedure: k16621 -o|contracted procedure: k16652 -o|contracted procedure: k16645 -o|contracted procedure: k16676 -o|contracted procedure: k16669 -o|contracted procedure: k16700 -o|contracted procedure: k16693 -o|contracted procedure: k16724 -o|contracted procedure: k16717 -o|contracted procedure: k16748 -o|contracted procedure: k16741 -o|contracted procedure: k16765 -o|contracted procedure: k16790 -o|contracted procedure: k16783 -o|contracted procedure: k16814 -o|contracted procedure: k16807 -o|contracted procedure: k16831 -o|contracted procedure: k16849 -o|contracted procedure: k16867 -o|contracted procedure: k16885 -o|contracted procedure: k16903 -o|contracted procedure: k16921 -o|contracted procedure: k16939 -o|contracted procedure: k16957 -o|contracted procedure: k16975 -o|contracted procedure: k16993 -o|contracted procedure: k17018 -o|contracted procedure: k17011 -o|contracted procedure: k17035 -o|contracted procedure: k17053 -o|contracted procedure: k17071 -o|contracted procedure: k17089 -o|contracted procedure: k17107 -o|contracted procedure: k17125 -o|contracted procedure: k17143 -o|contracted procedure: k17168 -o|contracted procedure: k17161 -o|contracted procedure: k17185 -o|contracted procedure: k17203 -o|contracted procedure: k17221 -o|contracted procedure: k17239 -o|contracted procedure: k17261 -o|contracted procedure: k17252 -o|contracted procedure: k17258 -o|contracted procedure: k17273 -o|contracted procedure: k17287 -o|contracted procedure: k17291 -o|contracted procedure: k17331 -o|contracted procedure: k17335 -o|contracted procedure: k17344 -o|contracted procedure: k17355 -o|contracted procedure: k17367 -o|contracted procedure: k17381 -o|contracted procedure: k17390 -o|contracted procedure: k17409 -o|contracted procedure: k17430 -o|contracted procedure: k17434 -o|contracted procedure: k17426 -o|contracted procedure: k17440 -o|contracted procedure: k17453 -o|contracted procedure: k17459 -o|contracted procedure: k17506 -o|contracted procedure: k17528 -o|contracted procedure: k17552 -o|contracted procedure: k17574 -o|contracted procedure: k17591 -o|contracted procedure: k17603 -o|contracted procedure: k17715 -o|contracted procedure: k17649 -o|contracted procedure: k17640 -o|contracted procedure: k17683 -o|contracted procedure: k17690 -o|contracted procedure: k17741 -o|contracted procedure: k17791 -o|contracted procedure: k17801 -o|contracted procedure: k17814 -o|contracted procedure: k17821 -o|contracted procedure: k17829 -o|contracted procedure: k17833 -o|contracted procedure: k17845 -o|contracted procedure: k17871 -o|contracted procedure: k17874 -o|contracted procedure: k17926 -o|contracted procedure: k17930 -o|contracted procedure: k17889 -o|contracted procedure: k17906 -o|contracted procedure: k17910 -o|contracted procedure: k17902 -o|contracted procedure: k17918 -o|contracted procedure: k17922 -o|contracted procedure: k17914 -o|contracted procedure: k17936 -o|contracted procedure: k17953 -o|contracted procedure: k17959 -o|contracted procedure: k18012 -o|contracted procedure: k18016 -o|contracted procedure: k17996 -o|contracted procedure: k18004 -o|contracted procedure: k18008 -o|contracted procedure: k18000 -o|contracted procedure: k18027 -o|contracted procedure: k18049 -o|contracted procedure: k18030 -o|contracted procedure: k18055 -o|contracted procedure: k18082 -o|contracted procedure: k18066 -o|contracted procedure: k18069 -o|contracted procedure: k18104 -o|contracted procedure: k18094 -o|contracted procedure: k18112 -o|contracted procedure: k18135 -o|contracted procedure: k18143 -o|contracted procedure: k18149 -o|contracted procedure: k18180 -o|contracted procedure: k18188 -o|contracted procedure: k18194 -o|contracted procedure: k18225 -o|contracted procedure: k18259 -o|contracted procedure: k18262 -o|contracted procedure: k18277 -o|contracted procedure: k18363 -o|contracted procedure: k18305 -o|contracted procedure: k18314 -o|contracted procedure: k18330 -o|contracted procedure: k18334 -o|contracted procedure: k18324 -o|contracted procedure: k18348 -o|contracted procedure: k18352 -o|contracted procedure: k18359 -o|contracted procedure: k18377 -o|contracted procedure: k18423 -o|contracted procedure: k18386 -o|contracted procedure: k18411 -o|contracted procedure: k18415 -o|contracted procedure: k18449 -o|contracted procedure: k18452 -o|contracted procedure: k18433 -o|contracted procedure: k18437 -o|contracted procedure: k18475 -o|contracted procedure: k18481 -o|contracted procedure: k18488 -o|contracted procedure: k18495 -o|contracted procedure: k18506 -o|contracted procedure: k18499 -o|contracted procedure: k18503 -o|contracted procedure: k18519 -o|contracted procedure: k18525 -o|contracted procedure: k18532 -o|contracted procedure: k18539 -o|contracted procedure: k18550 -o|contracted procedure: k18543 -o|contracted procedure: k18547 -o|contracted procedure: k18556 -o|contracted procedure: k18562 -o|contracted procedure: k18604 -o|contracted procedure: k18613 -o|contracted procedure: k18616 -o|contracted procedure: k18627 -o|contracted procedure: k18670 -o|contracted procedure: k18650 -o|contracted procedure: k18679 -o|contracted procedure: k18685 -o|contracted procedure: k18688 -o|contracted procedure: k18695 -o|contracted procedure: k18713 -o|contracted procedure: k18719 -o|contracted procedure: k18722 -o|contracted procedure: k18729 -o|contracted procedure: k18747 -o|contracted procedure: k18753 -o|contracted procedure: k18772 -o|contracted procedure: k18799 -o|contracted procedure: k18795 -o|contracted procedure: k18811 -o|contracted procedure: k18807 -o|contracted procedure: k18817 -o|contracted procedure: k18834 -o|contracted procedure: k18859 -o|contracted procedure: k18931 -o|contracted procedure: k18876 -o|contracted procedure: k18879 -o|contracted procedure: k18885 -o|contracted procedure: k18894 -o|contracted procedure: k18901 -o|contracted procedure: k18913 -o|contracted procedure: k18917 -o|contracted procedure: k19122 -o|contracted procedure: k18943 -o|contracted procedure: k18949 -o|contracted procedure: k18952 -o|contracted procedure: k18961 -o|contracted procedure: k18970 -o|contracted procedure: k18979 -o|contracted procedure: k19117 -o|contracted procedure: k19001 -o|contracted procedure: k19004 -o|contracted procedure: k19021 -o|contracted procedure: k19017 -o|contracted procedure: k19028 -o|contracted procedure: k19032 -o|contracted procedure: k19113 -o|contracted procedure: k19109 -o|contracted procedure: k19035 -o|contracted procedure: k19049 -o|contracted procedure: k19054 -o|contracted procedure: k19105 -o|contracted procedure: k19060 -o|contracted procedure: k19093 -o|contracted procedure: k19101 -o|contracted procedure: k19097 -o|contracted procedure: k19063 -o|contracted procedure: k19074 -o|contracted procedure: k19086 -o|contracted procedure: k19082 -o|contracted procedure: k19078 -o|contracted procedure: k19143 -o|contracted procedure: k19157 -o|contracted procedure: k19161 -o|contracted procedure: k19210 -o|contracted procedure: k19220 -o|contracted procedure: k19244 -o|contracted procedure: k19268 -o|contracted procedure: k19326 -o|contracted procedure: k19330 -o|contracted procedure: k19344 -o|contracted procedure: k19348 -o|contracted procedure: k19408 -o|contracted procedure: k19421 -o|contracted procedure: k19428 -o|contracted procedure: k19434 -o|contracted procedure: k19437 -o|contracted procedure: k19495 -o|contracted procedure: k19499 -o|contracted procedure: k19491 -o|contracted procedure: k19444 -o|contracted procedure: k19453 -o|contracted procedure: k19468 -o|contracted procedure: k19472 -o|contracted procedure: k19464 -o|contracted procedure: k19460 -o|contracted procedure: k19483 -o|contracted procedure: k19515 -o|contracted procedure: k19519 -o|contracted procedure: k19563 -o|contracted procedure: k19574 -o|contracted procedure: k19582 -o|contracted procedure: k19589 -o|contracted procedure: k19593 -o|contracted procedure: k19606 -o|contracted procedure: k19619 -o|contracted procedure: k19629 -o|contracted procedure: k19860 -o|contracted procedure: k19639 -o|contracted procedure: k19856 -o|contracted procedure: k19648 -o|contracted procedure: k19688 -o|contracted procedure: k19729 -o|contracted procedure: k19763 -o|contracted procedure: k19775 -o|contracted procedure: k19807 -o|contracted procedure: k19810 -o|contracted procedure: k19837 -o|contracted procedure: k19845 -o|contracted procedure: k19852 -o|contracted procedure: k19882 -o|contracted procedure: k19904 -o|contracted procedure: k19945 -o|contracted procedure: k19952 -o|contracted procedure: k19956 -o|contracted procedure: k19965 -o|contracted procedure: k19976 -o|contracted procedure: k19987 -o|contracted procedure: k20001 -o|contracted procedure: k19997 -o|contracted procedure: k20010 -o|contracted procedure: k20017 -o|contracted procedure: k20021 -o|contracted procedure: k20030 -o|contracted procedure: k20041 -o|contracted procedure: k20059 -o|contracted procedure: k20051 -o|contracted procedure: k20055 -o|contracted procedure: k20109 -o|contracted procedure: k20065 -o|contracted procedure: k20097 -o|contracted procedure: k20118 -o|contracted procedure: k20149 -o|contracted procedure: k20170 -o|contracted procedure: k20297 -o|contracted procedure: k20310 -o|contracted procedure: k20325 -o|contracted procedure: k20318 -o|contracted procedure: k20339 -o|contracted procedure: k20356 -o|contracted procedure: k20362 -o|contracted procedure: k20368 -o|contracted procedure: k20378 -o|contracted procedure: k20410 -o|contracted procedure: k20384 -o|contracted procedure: k20390 -o|contracted procedure: k20396 -o|contracted procedure: k20195 -o|contracted procedure: k20199 -o|contracted procedure: k20264 -o|contracted procedure: k20209 -o|contracted procedure: k20215 -o|contracted procedure: k20253 -o|contracted procedure: k20218 -o|contracted procedure: k20279 -o|contracted procedure: k20283 -o|contracted procedure: k20234 -o|contracted procedure: k20238 -o|contracted procedure: k20246 -o|contracted procedure: k20416 -o|contracted procedure: k21709 -o|contracted procedure: k21705 -o|contracted procedure: k20419 -o|contracted procedure: k21701 -o|contracted procedure: k21697 -o|contracted procedure: k20422 -o|contracted procedure: k21693 -o|contracted procedure: k21689 -o|contracted procedure: k20425 -o|contracted procedure: k20439 -o|contracted procedure: k20445 -o|contracted procedure: k20451 -o|contracted procedure: k20457 -o|contracted procedure: k20463 -o|contracted procedure: k20470 -o|contracted procedure: k20476 -o|contracted procedure: k20489 -o|contracted procedure: k20499 -o|contracted procedure: k20505 -o|contracted procedure: k20511 -o|contracted procedure: k20543 -o|contracted procedure: k20549 -o|contracted procedure: k20555 -o|contracted procedure: k20561 -o|contracted procedure: k20568 -o|contracted procedure: k20574 -o|contracted procedure: k20588 -o|contracted procedure: k20595 -o|contracted procedure: k20616 -o|contracted procedure: k20630 -o|contracted procedure: k20641 -o|contracted procedure: k20644 -o|contracted procedure: k20650 -o|contracted procedure: k20664 -o|contracted procedure: k20668 -o|contracted procedure: k20676 -o|contracted procedure: k20682 -o|contracted procedure: k20694 -o|contracted procedure: k20700 -o|contracted procedure: k20709 -o|contracted procedure: k20715 -o|contracted procedure: k20721 -o|contracted procedure: k20733 -o|contracted procedure: k20748 -o|contracted procedure: k20758 -o|contracted procedure: k20777 -o|contracted procedure: k20773 -o|contracted procedure: k20781 -o|contracted procedure: k20784 -o|contracted procedure: k20787 -o|contracted procedure: k20790 -o|contracted procedure: k20796 -o|contracted procedure: k20803 -o|contracted procedure: k20815 -o|contracted procedure: k20821 -o|contracted procedure: k20827 -o|contracted procedure: k20833 -o|contracted procedure: k20839 -o|contracted procedure: k20845 -o|contracted procedure: k20851 -o|contracted procedure: k20857 -o|contracted procedure: k20889 -o|contracted procedure: k20916 -o|contracted procedure: k21215 -o|contracted procedure: k20925 -o|contracted procedure: k20931 -o|contracted procedure: k20940 -o|contracted procedure: k20966 -o|contracted procedure: k20946 -o|contracted procedure: k20953 -o|contracted procedure: k20974 -o|contracted procedure: k20983 -o|contracted procedure: k20989 -o|contracted procedure: k21017 -o|contracted procedure: k21021 -o|contracted procedure: k21031 -o|contracted procedure: k21035 -o|contracted procedure: k21051 -o|contracted procedure: k21129 -o|contracted procedure: k21060 -o|contracted procedure: k21125 -o|contracted procedure: k21075 -o|contracted procedure: k21084 -o|contracted procedure: k21095 -o|contracted procedure: k21110 -o|contracted procedure: k21133 -o|contracted procedure: k21142 -o|contracted procedure: k21148 -o|contracted procedure: k21154 -o|contracted procedure: k21160 -o|contracted procedure: k21166 -o|contracted procedure: k21172 -o|contracted procedure: k21178 -o|contracted procedure: k21184 -o|contracted procedure: k21240 -o|contracted procedure: k21223 -o|contracted procedure: k21229 -o|contracted procedure: k21236 -o|contracted procedure: k21248 -o|contracted procedure: k21251 -o|contracted procedure: k21257 -o|contracted procedure: k21263 -o|contracted procedure: k21271 -o|contracted procedure: k21274 -o|contracted procedure: k21287 -o|contracted procedure: k21360 -o|contracted procedure: k21293 -o|contracted procedure: k21303 -o|contracted procedure: k21336 -o|contracted procedure: k21319 -o|contracted procedure: k21333 -o|contracted procedure: k21326 -o|contracted procedure: k21323 -o|contracted procedure: k21340 -o|contracted procedure: k21356 -o|contracted procedure: k21343 -o|contracted procedure: k21352 -o|contracted procedure: k21366 -o|contracted procedure: k21369 -o|contracted procedure: k21382 -o|contracted procedure: k21432 -o|contracted procedure: k21388 -o|contracted procedure: k21420 -o|contracted procedure: k21413 -o|contracted procedure: k21410 -o|contracted procedure: k21424 -o|contracted procedure: k21428 -o|contracted procedure: k21439 -o|contracted procedure: k21459 -o|contracted procedure: k21465 -o|contracted procedure: k21484 -o|contracted procedure: k21680 -o|contracted procedure: k21504 -o|contracted procedure: k21510 -o|contracted procedure: k21517 -o|contracted procedure: k21520 -o|contracted procedure: k21554 -o|contracted procedure: k21526 -o|contracted procedure: k21550 -o|contracted procedure: k21532 -o|contracted procedure: k21535 -o|contracted procedure: k21562 -o|contracted procedure: k21565 -o|contracted procedure: k21575 -o|contracted procedure: k21619 -o|contracted procedure: k21581 -o|contracted procedure: k21613 -o|contracted procedure: k21587 -o|inlining procedure: k21590 -o|contracted procedure: k21607 -o|inlining procedure: k21590 -o|contracted procedure: k21629 -o|contracted procedure: k21653 -o|contracted procedure: k21639 -o|contracted procedure: k21657 -o|contracted procedure: k21955 -o|contracted procedure: k21715 -o|contracted procedure: k21718 -o|contracted procedure: k21916 -o|contracted procedure: k21738 -o|contracted procedure: k21744 -o|contracted procedure: k21747 -o|contracted procedure: k21753 -o|contracted procedure: k21760 -o|contracted procedure: k21766 -o|contracted procedure: k21769 -o|contracted procedure: k21775 -o|contracted procedure: k21782 -o|contracted procedure: k21788 -o|contracted procedure: k21791 -o|contracted procedure: k21797 -o|contracted procedure: k21804 -o|contracted procedure: k21810 -o|contracted procedure: k21813 -o|contracted procedure: k21819 -o|contracted procedure: k21826 -o|contracted procedure: k21832 -o|contracted procedure: k21835 -o|contracted procedure: k21841 -o|contracted procedure: k21848 -o|contracted procedure: k21854 -o|contracted procedure: k21857 -o|contracted procedure: k21863 -o|contracted procedure: k21870 -o|contracted procedure: k21937 -o|contracted procedure: k21926 -o|contracted procedure: k21933 -o|contracted procedure: k21949 -o|contracted procedure: k21940 -o|contracted procedure: k21997 -o|contracted procedure: k21964 -o|contracted procedure: k21991 -o|contracted procedure: k21967 -o|contracted procedure: k21985 -o|contracted procedure: k21970 -o|contracted procedure: k21979 -o|contracted procedure: k21973 -o|contracted procedure: k22013 -o|contracted procedure: k22016 -o|contracted procedure: k22022 -o|contracted procedure: k22025 -o|contracted procedure: k22031 -o|contracted procedure: k22043 -o|contracted procedure: k22050 -o|contracted procedure: k22054 -o|contracted procedure: k22067 -o|contracted procedure: k22071 -o|contracted procedure: k22075 -o|contracted procedure: k22081 -o|contracted procedure: k22090 -o|contracted procedure: k22096 -o|contracted procedure: k22108 -o|contracted procedure: k22114 -o|contracted procedure: k22120 -o|contracted procedure: k22142 -o|contracted procedure: k22146 -o|contracted procedure: k22155 -o|contracted procedure: k22165 -o|contracted procedure: k22161 -o|contracted procedure: k22168 -o|contracted procedure: k22181 -o|contracted procedure: k22174 -o|contracted procedure: k22200 -o|contracted procedure: k22203 -o|contracted procedure: k22212 -o|contracted procedure: k22218 -o|contracted procedure: k22221 -o|contracted procedure: k22241 -o|contracted procedure: k22250 -o|contracted procedure: k22259 -o|contracted procedure: k22278 -o|contracted procedure: k22300 -o|contracted procedure: k22303 -o|contracted procedure: k22338 -o|contracted procedure: k22358 -o|contracted procedure: k22361 -o|contracted procedure: k22364 -o|contracted procedure: k22372 -o|contracted procedure: k22380 -o|contracted procedure: k22343 -o|contracted procedure: k22392 -o|contracted procedure: k22418 -o|contracted procedure: k22444 -o|contracted procedure: k22423 -o|contracted procedure: k22429 -o|contracted procedure: k22435 -o|contracted procedure: k22454 -o|contracted procedure: k22461 -o|contracted procedure: k22470 -o|contracted procedure: k22477 -o|contracted procedure: k22481 -o|contracted procedure: k22488 -o|contracted procedure: k22503 -o|contracted procedure: k22506 -o|contracted procedure: k22518 -o|contracted procedure: k22542 -o|contracted procedure: k22527 -o|contracted procedure: k22530 -o|contracted procedure: k22533 -o|contracted procedure: k22557 -o|contracted procedure: k22572 -o|contracted procedure: k22575 -o|contracted procedure: k22579 -o|contracted procedure: k22619 -o|contracted procedure: k22588 -o|contracted procedure: k22591 -o|contracted procedure: k22601 -o|contracted procedure: k22616 -o|contracted procedure: k22604 -o|contracted procedure: k22628 -o|contracted procedure: k22631 -o|contracted procedure: k22634 -o|contracted procedure: k22638 -o|contracted procedure: k22647 -o|contracted procedure: k22650 -o|contracted procedure: k22663 -o|contracted procedure: k22666 -o|contracted procedure: k22669 -o|contracted procedure: k22679 -o|contracted procedure: k22675 -o|contracted procedure: k22698 -o|contracted procedure: k22701 -o|contracted procedure: k22704 -o|contracted procedure: k22788 -o|contracted procedure: k22716 -o|contracted procedure: k22782 -o|contracted procedure: k22719 -o|contracted procedure: k22776 -o|contracted procedure: k22722 -o|contracted procedure: k22770 -o|contracted procedure: k22725 -o|contracted procedure: k22728 -o|contracted procedure: k22731 -o|contracted procedure: k22734 -o|contracted procedure: k22755 -o|contracted procedure: k22761 -o|contracted procedure: k22870 -o|contracted procedure: k22797 -o|contracted procedure: k22864 -o|contracted procedure: k22800 -o|contracted procedure: k22858 -o|contracted procedure: k22803 -o|contracted procedure: k22852 -o|contracted procedure: k22806 -o|contracted procedure: k22809 -o|contracted procedure: k22812 -o|contracted procedure: k22815 -o|contracted procedure: k22818 -o|contracted procedure: k22821 -o|contracted procedure: k22840 -o|contracted procedure: k22846 -o|contracted procedure: k22888 -o|contracted procedure: k22903 -o|contracted procedure: k22906 -o|contracted procedure: k22909 -o|contracted procedure: k22918 -o|contracted procedure: k22921 -o|contracted procedure: k22931 -o|contracted procedure: k22937 -o|contracted procedure: k22950 -o|contracted procedure: k22947 -o|contracted procedure: k22956 -o|contracted procedure: k23012 -o|contracted procedure: k22969 -o|contracted procedure: k22975 -o|contracted procedure: k22990 -o|contracted procedure: k23008 -o|contracted procedure: k22993 -o|contracted procedure: k23000 -o|contracted procedure: k23004 -o|contracted procedure: k23095 -o|contracted procedure: k23018 -o|contracted procedure: k23089 -o|contracted procedure: k23021 -o|contracted procedure: k23083 -o|contracted procedure: k23024 -o|contracted procedure: k23077 -o|contracted procedure: k23027 -o|contracted procedure: k23030 -o|contracted procedure: k23033 -o|contracted procedure: k23051 -o|contracted procedure: k23058 -o|contracted procedure: k23066 -o|contracted procedure: k23182 -o|contracted procedure: k23110 -o|contracted procedure: k23176 -o|contracted procedure: k23113 -o|contracted procedure: k23170 -o|contracted procedure: k23116 -o|contracted procedure: k23164 -o|contracted procedure: k23119 -o|contracted procedure: k23122 -o|contracted procedure: k23125 -o|contracted procedure: k23143 -o|contracted procedure: k23146 -o|contracted procedure: k23153 -o|contracted procedure: k23289 -o|contracted procedure: k23191 -o|contracted procedure: k23283 -o|contracted procedure: k23194 -o|contracted procedure: k23277 -o|contracted procedure: k23197 -o|contracted procedure: k23271 -o|contracted procedure: k23200 -o|contracted procedure: k23203 -o|contracted procedure: k23208 -o|contracted procedure: k23229 -o|contracted procedure: k23247 -o|contracted procedure: k23232 -o|contracted procedure: k23239 -o|contracted procedure: k23243 -o|contracted procedure: k23251 -o|contracted procedure: k23264 -o|contracted procedure: k23268 -o|contracted procedure: k23462 -o|contracted procedure: k23298 -o|contracted procedure: k23456 -o|contracted procedure: k23301 -o|contracted procedure: k23450 -o|contracted procedure: k23304 -o|contracted procedure: k23444 -o|contracted procedure: k23307 -o|contracted procedure: k23310 -o|contracted procedure: k23313 -o|contracted procedure: k23318 -o|contracted procedure: k23321 -o|contracted procedure: k23324 -o|contracted procedure: k23417 -o|contracted procedure: k23342 -o|contracted procedure: k23349 -o|contracted procedure: k23384 -o|contracted procedure: k23353 -o|contracted procedure: k23362 -o|contracted procedure: k23380 -o|contracted procedure: k23365 -o|contracted procedure: k23372 -o|contracted procedure: k23376 -o|contracted procedure: k23396 -o|contracted procedure: k23414 -o|contracted procedure: k23399 -o|contracted procedure: k23406 -o|contracted procedure: k23410 -o|contracted procedure: k23424 -o|contracted procedure: k23437 -o|contracted procedure: k23441 -o|contracted procedure: k23479 -o|contracted procedure: k23497 -o|contracted procedure: k23511 -o|contracted procedure: k23517 -o|contracted procedure: k23521 -o|contracted procedure: k23525 -o|contracted procedure: k23537 -o|contracted procedure: k23544 -o|contracted procedure: k23552 -o|contracted procedure: k23548 -o|contracted procedure: k23561 -o|contracted procedure: k23583 -o|contracted procedure: k23579 -o|contracted procedure: k23564 -o|contracted procedure: k23567 -o|contracted procedure: k23575 -o|contracted procedure: k23595 -o|contracted procedure: k23609 -o|contracted procedure: k23598 -o|contracted procedure: k23605 -o|contracted procedure: k23669 -o|contracted procedure: k23615 -o|contracted procedure: k23618 -o|contracted procedure: k23621 -o|contracted procedure: k23624 -o|contracted procedure: k23627 -o|contracted procedure: k23648 -o|contracted procedure: k23666 -o|contracted procedure: k23662 -o|contracted procedure: k23651 -o|contracted procedure: k23658 -o|contracted procedure: k23690 -o|contracted procedure: k23678 -o|contracted procedure: k23681 -o|contracted procedure: k23684 -o|contracted procedure: k23714 -o|contracted procedure: k23728 -o|contracted procedure: k23717 -o|contracted procedure: k23724 -o|contracted procedure: k23732 -o|contracted procedure: k23738 -o|contracted procedure: k23741 -o|contracted procedure: k23748 -o|contracted procedure: k23757 -o|contracted procedure: k23760 -o|contracted procedure: k23763 -o|contracted procedure: k23773 -o|contracted procedure: k23777 -o|contracted procedure: k23787 -o|contracted procedure: k23790 -o|contracted procedure: k23804 -o|contracted procedure: k23807 -o|contracted procedure: k23810 -o|contracted procedure: k23820 -o|contracted procedure: k23830 -o|contracted procedure: k23833 -o|contracted procedure: k23847 -o|contracted procedure: k23850 -o|contracted procedure: k23853 -o|contracted procedure: k23863 -o|contracted procedure: k23873 -o|contracted procedure: k23876 -o|contracted procedure: k23890 -o|contracted procedure: k23893 -o|contracted procedure: k23896 -o|contracted procedure: k23906 -o|contracted procedure: k23916 -o|contracted procedure: k23919 -o|contracted procedure: k23933 -o|contracted procedure: k23936 -o|contracted procedure: k23939 -o|contracted procedure: k23949 -o|contracted procedure: k23963 -o|contracted procedure: k23970 -o|contracted procedure: k23979 -o|contracted procedure: k23982 -o|contracted procedure: k23999 -o|contracted procedure: k23988 -o|contracted procedure: k23995 -o|contracted procedure: k24113 -o|contracted procedure: k24004 -o|contracted procedure: k24010 -o|contracted procedure: k24025 -o|contracted procedure: k24028 -o|contracted procedure: k24040 -o|contracted procedure: k24043 -o|contracted procedure: k24057 -o|contracted procedure: k24053 -o|contracted procedure: k24061 -o|contracted procedure: k24084 -o|contracted procedure: k24065 -o|contracted procedure: k24076 -o|contracted procedure: k24080 -o|contracted procedure: k24072 -o|contracted procedure: k24098 -o|contracted procedure: k24094 -o|contracted procedure: k24087 -o|contracted procedure: k24101 -o|contracted procedure: k24104 -o|contracted procedure: k24174 -o|contracted procedure: k24180 -o|contracted procedure: k24190 -o|contracted procedure: k24194 -o|contracted procedure: k24212 -o|contracted procedure: k24218 -o|contracted procedure: k24233 -o|contracted procedure: k24237 -o|contracted procedure: k24260 -o|contracted procedure: k24263 -o|contracted procedure: k24269 -o|contracted procedure: k24278 -o|contracted procedure: k24293 -o|contracted procedure: k24306 -o|contracted procedure: k24309 -o|contracted procedure: k24321 -o|contracted procedure: k24331 -o|contracted procedure: k24335 -o|contracted procedure: k24342 -o|contracted procedure: k24357 -o|contracted procedure: k24388 -o|contracted procedure: k24391 -o|contracted procedure: k24394 -o|contracted procedure: k24406 -o|contracted procedure: k24409 -o|contracted procedure: k24412 -o|contracted procedure: k24420 -o|contracted procedure: k24428 -o|contracted procedure: k24438 -o|contracted procedure: k24453 -o|contracted procedure: k24511 -o|contracted procedure: k24491 -o|contracted procedure: k24501 -o|contracted procedure: k24533 -o|contracted procedure: k24544 -o|contracted procedure: k24548 -o|contracted procedure: k24540 -o|contracted procedure: k24558 -o|contracted procedure: k24567 -o|contracted procedure: k24581 -o|contracted procedure: k24573 -o|contracted procedure: k24585 -o|contracted procedure: k24589 -o|contracted procedure: k24610 -o|contracted procedure: k24592 -o|contracted procedure: k24596 -o|contracted procedure: k24606 -o|contracted procedure: k24623 -o|contracted procedure: k24629 -o|contracted procedure: k24632 -o|contracted procedure: k24635 -o|contracted procedure: k24638 -o|contracted procedure: k24641 -o|contracted procedure: k24644 -o|contracted procedure: k24647 -o|contracted procedure: k24650 -o|contracted procedure: k24653 -o|contracted procedure: k24656 -o|contracted procedure: k24659 -o|contracted procedure: k24662 -o|contracted procedure: k41638 -o|contracted procedure: k41644 -o|contracted procedure: k41651 -o|contracted procedure: k41707 -o|contracted procedure: k41657 -o|contracted procedure: k41663 -o|contracted procedure: k41672 -o|contracted procedure: k41694 -o|contracted procedure: k41713 -o|contracted procedure: k41716 -o|contracted procedure: k41734 -o|contracted procedure: k41746 -o|contracted procedure: k41752 -o|contracted procedure: k41768 -o|contracted procedure: k41761 -o|contracted procedure: k41778 -o|contracted procedure: k41782 -o|contracted procedure: k41803 -o|contracted procedure: k41822 -o|contracted procedure: k41828 -o|contracted procedure: k41837 -o|contracted procedure: k41864 -o|contracted procedure: k41871 -o|contracted procedure: k41875 -o|contracted procedure: k41879 -o|contracted procedure: k41889 -o|contracted procedure: k41893 -o|contracted procedure: k41897 -o|contracted procedure: k41901 -o|contracted procedure: k41910 -o|contracted procedure: k41920 -o|contracted procedure: k41924 -o|contracted procedure: k41930 -o|contracted procedure: k41936 -o|contracted procedure: k41945 -o|contracted procedure: k41954 -o|contracted procedure: k41964 -o|contracted procedure: k41968 -o|contracted procedure: k41980 -o|contracted procedure: k41984 -o|contracted procedure: k41990 -o|contracted procedure: k41999 -o|contracted procedure: k42027 -o|contracted procedure: k42002 -o|contracted procedure: k42023 -o|contracted procedure: k42064 -o|contracted procedure: k42060 -o|contracted procedure: k42045 -o|contracted procedure: k42056 -o|contracted procedure: k42082 -o|contracted procedure: k42078 -o|contracted procedure: k42067 -o|contracted procedure: k42074 -o|contracted procedure: k42085 -o|contracted procedure: k24666 -o|contracted procedure: k24697 -o|contracted procedure: k24708 -o|contracted procedure: k24719 -o|contracted procedure: k24730 -o|contracted procedure: k24741 -o|contracted procedure: k24744 -o|contracted procedure: k24770 -o|contracted procedure: k24776 -o|contracted procedure: k24783 -o|contracted procedure: k24789 -o|contracted procedure: k24802 -o|contracted procedure: k24805 -o|contracted procedure: k24831 -o|contracted procedure: k24837 -o|contracted procedure: k24844 -o|contracted procedure: k24850 -o|contracted procedure: k24863 -o|contracted procedure: k24866 -o|contracted procedure: k24892 -o|contracted procedure: k24898 -o|contracted procedure: k24905 -o|contracted procedure: k24911 -o|contracted procedure: k24924 -o|contracted procedure: k24948 -o|contracted procedure: k24951 -o|contracted procedure: k24963 -o|contracted procedure: k25001 -o|contracted procedure: k25004 -o|contracted procedure: k25014 -o|contracted procedure: k25017 -o|contracted procedure: k25020 -o|contracted procedure: k2501445384 -o|contracted procedure: k25028 -o|contracted procedure: k25031 -o|contracted procedure: k2501445388 -o|contracted procedure: k25038 -o|contracted procedure: k25041 -o|contracted procedure: k2501445392 -o|contracted procedure: k25048 -o|contracted procedure: k2501445396 -o|contracted procedure: k25058 -o|contracted procedure: k2501445400 -o|contracted procedure: k25068 -o|contracted procedure: k25071 -o|contracted procedure: k2501445404 -o|contracted procedure: k25078 -o|contracted procedure: k25081 -o|contracted procedure: k2501445408 -o|contracted procedure: k25108 -o|contracted procedure: k25114 -o|contracted procedure: k25131 -o|contracted procedure: k25137 -o|contracted procedure: k25181 -o|contracted procedure: k25205 -o|contracted procedure: k25209 -o|contracted procedure: k25201 -o|contracted procedure: k25187 -o|contracted procedure: k25197 -o|contracted procedure: k25190 -o|contracted procedure: k25362 -o|contracted procedure: k25368 -o|contracted procedure: k25388 -o|contracted procedure: k25381 -o|contracted procedure: k25403 -o|contracted procedure: k25394 -o|contracted procedure: k25421 -o|contracted procedure: k25428 -o|contracted procedure: k25450 -o|contracted procedure: k25467 -o|contracted procedure: k25456 -o|contracted procedure: k25463 -o|contracted procedure: k25471 -o|contracted procedure: k25474 -o|contracted procedure: k25490 -o|contracted procedure: k25529 -o|contracted procedure: k25500 -o|contracted procedure: k25509 -o|contracted procedure: k25512 -o|contracted procedure: k25525 -o|contracted procedure: k25535 -o|contracted procedure: k25545 -o|contracted procedure: k25538 -o|contracted procedure: k25558 -o|contracted procedure: k25554 -o|contracted procedure: k25570 -o|contracted procedure: k25578 -o|contracted procedure: k25605 -o|contracted procedure: k25682 -o|contracted procedure: k25616 -o|contracted procedure: k25640 -o|contracted procedure: k25653 -o|contracted procedure: k25660 -o|contracted procedure: k25670 -o|contracted procedure: k25666 -o|contracted procedure: k25673 -o|contracted procedure: k25761 -o|contracted procedure: k25921 -o|contracted procedure: k25768 -o|contracted procedure: k25782 -o|contracted procedure: k25791 -o|contracted procedure: k25799 -o|contracted procedure: k25803 -o|contracted procedure: k25809 -o|contracted procedure: k25818 -o|contracted procedure: k25824 -o|contracted procedure: k25834 -o|contracted procedure: k25850 -o|contracted procedure: k25856 -o|contracted procedure: k25863 -o|contracted procedure: k25869 -o|contracted procedure: k25879 -o|contracted procedure: k25885 -o|contracted procedure: k25891 -o|contracted procedure: k25900 -o|contracted procedure: k25918 -o|contracted procedure: k25906 -o|contracted procedure: k25914 -o|contracted procedure: k25948 -o|contracted procedure: k25932 -o|contracted procedure: k25945 -o|contracted procedure: k25938 -o|contracted procedure: k25966 -o|contracted procedure: k25957 -o|contracted procedure: k25981 -o|contracted procedure: k25995 -o|contracted procedure: k25991 -o|contracted procedure: k25984 -o|inlining procedure: k25978 -o|contracted procedure: k26001 -o|contracted procedure: k26012 -o|contracted procedure: k26008 -o|inlining procedure: k25978 -o|contracted procedure: k26016 -o|contracted procedure: k26019 -o|contracted procedure: k26029 -o|contracted procedure: k26022 -o|contracted procedure: k26047 -o|contracted procedure: k26063 -o|contracted procedure: k26050 -o|contracted procedure: k26056 -o|contracted procedure: k26078 -o|contracted procedure: k26069 -o|contracted procedure: k26096 -o|contracted procedure: k26087 -o|contracted procedure: k26153 -o|contracted procedure: k26176 -o|contracted procedure: k26189 -o|contracted procedure: k26245 -o|contracted procedure: k26252 -o|contracted procedure: k26274 -o|contracted procedure: k26288 -o|contracted procedure: k26284 -o|contracted procedure: k26316 -o|contracted procedure: k26300 -o|contracted procedure: k26306 -o|contracted procedure: k26331 -o|contracted procedure: k26359 -o|contracted procedure: k26340 -o|contracted procedure: k26383 -o|contracted procedure: k26364 -o|contracted procedure: k26391 -o|contracted procedure: k26394 -o|contracted procedure: k26406 -o|contracted procedure: k26409 -o|contracted procedure: k26419 -o|contracted procedure: k26436 -o|contracted procedure: k26422 -o|contracted procedure: k26461 -o|contracted procedure: k26477 -o|contracted procedure: k26502 -o|contracted procedure: k26527 -o|contracted procedure: k26530 -o|contracted procedure: k26540 -o|contracted procedure: k26544 -o|contracted procedure: k26594 -o|contracted procedure: k26603 -o|contracted procedure: k26612 -o|contracted procedure: k26624 -o|contracted procedure: k26685 -o|contracted procedure: k26636 -o|contracted procedure: k26646 -o|contracted procedure: k26659 -o|contracted procedure: k26668 -o|contracted procedure: k26712 -o|contracted procedure: k26722 -o|contracted procedure: k26733 -o|contracted procedure: k26739 -o|contracted procedure: k26750 -o|contracted procedure: k26756 -o|contracted procedure: k26767 -o|contracted procedure: k26773 -o|contracted procedure: k26784 -o|contracted procedure: k26790 -o|contracted procedure: k26801 -o|contracted procedure: k26807 -o|contracted procedure: k26818 -o|contracted procedure: k26824 -o|contracted procedure: k26835 -o|contracted procedure: k26841 -o|contracted procedure: k26844 -o|contracted procedure: k26855 -o|contracted procedure: k26865 -o|contracted procedure: k26883 -o|contracted procedure: k26879 -o|contracted procedure: k26889 -o|contracted procedure: k26907 -o|contracted procedure: k26903 -o|contracted procedure: k26913 -o|contracted procedure: k26927 -o|contracted procedure: k26933 -o|contracted procedure: k26948 -o|contracted procedure: k26951 -o|contracted procedure: k26964 -o|contracted procedure: k26979 -o|contracted procedure: k26995 -o|contracted procedure: k27074 -o|contracted procedure: k27070 -o|contracted procedure: k27062 -o|contracted procedure: k27058 -o|contracted procedure: k27043 -o|contracted procedure: k27054 -o|contracted procedure: k27088 -o|contracted procedure: k27091 -o|contracted procedure: k27097 -o|contracted procedure: k27103 -o|contracted procedure: k27109 -o|contracted procedure: k27126 -o|contracted procedure: k27132 -o|contracted procedure: k27172 -o|contracted procedure: k27186 -o|contracted procedure: k27195 -o|contracted procedure: k27204 -o|contracted procedure: k27237 -o|contracted procedure: k27278 -o|contracted procedure: k27287 -o|contracted procedure: k27299 -o|contracted procedure: k27311 -o|contracted procedure: k27320 -o|contracted procedure: k27338 -o|contracted procedure: k27356 -o|contracted procedure: k27359 -o|contracted procedure: k27369 -o|contracted procedure: k27390 -o|contracted procedure: k27401 -o|contracted procedure: k27407 -o|contracted procedure: k27413 -o|contracted procedure: k27422 -o|contracted procedure: k27425 -o|contracted procedure: k27459 -o|contracted procedure: k27534 -o|contracted procedure: k27526 -o|contracted procedure: k27501 -o|contracted procedure: k27543 -o|contracted procedure: k27555 -o|contracted procedure: k27564 -o|contracted procedure: k27594 -o|contracted procedure: k27606 -o|contracted procedure: k27615 -o|contracted procedure: k27671 -o|contracted procedure: k27683 -o|inlining procedure: k27700 -o|inlining procedure: k27700 -o|contracted procedure: k27708 -o|contracted procedure: k27733 -o|contracted procedure: k27753 -o|contracted procedure: k27760 -o|contracted procedure: k27807 -o|contracted procedure: k27827 -o|contracted procedure: k27862 -o|contracted procedure: k27875 -o|contracted procedure: k27881 -o|contracted procedure: k27895 -o|contracted procedure: k27891 -o|contracted procedure: k27901 -o|contracted procedure: k27913 -o|contracted procedure: k27937 -o|contracted procedure: k27947 -o|contracted procedure: k27957 -o|contracted procedure: k27964 -o|contracted procedure: k27970 -o|contracted procedure: k27979 -o|contracted procedure: k27989 -o|inlining procedure: k27996 -o|inlining procedure: k27996 -o|contracted procedure: k28014 -o|contracted procedure: k28023 -o|contracted procedure: k28029 -o|contracted procedure: k28048 -o|contracted procedure: k28054 -o|contracted procedure: k28071 -o|contracted procedure: k28074 -o|contracted procedure: k28096 -o|contracted procedure: k28221 -o|contracted procedure: k28102 -o|contracted procedure: k28217 -o|contracted procedure: k28209 -o|contracted procedure: k28213 -o|contracted procedure: k28205 -o|contracted procedure: k28105 -o|contracted procedure: k28108 -o|contracted procedure: k28201 -o|contracted procedure: k28197 -o|contracted procedure: k28193 -o|contracted procedure: k28189 -o|contracted procedure: k28174 -o|contracted procedure: k28182 -o|contracted procedure: k28178 -o|contracted procedure: k28114 -o|contracted procedure: k28126 -o|contracted procedure: k28159 -o|contracted procedure: k28167 -o|contracted procedure: k28163 -o|contracted procedure: k28130 -o|contracted procedure: k28136 -o|contracted procedure: k28144 -o|contracted procedure: k28152 -o|contracted procedure: k28148 -o|contracted procedure: k28140 -o|contracted procedure: k28227 -o|contracted procedure: k28250 -o|contracted procedure: k28271 -o|contracted procedure: k28277 -o|contracted procedure: k28294 -o|contracted procedure: k28283 -o|contracted procedure: k28290 -o|contracted procedure: k28307 -o|contracted procedure: k28317 -o|contracted procedure: k28314 -o|contracted procedure: k28330 -o|contracted procedure: k28366 -o|contracted procedure: k28399 -o|contracted procedure: k28423 -o|contracted procedure: k28435 -o|contracted procedure: k28447 -o|contracted procedure: k28459 -o|contracted procedure: k28468 -o|contracted procedure: k28487 -o|contracted procedure: k28499 -o|contracted procedure: k28508 -o|contracted procedure: k28517 -o|contracted procedure: k28523 -o|contracted procedure: k28532 -o|contracted procedure: k28551 -o|contracted procedure: k28557 -o|contracted procedure: k28596 -o|contracted procedure: k28611 -o|contracted procedure: k28614 -o|contracted procedure: k28629 -o|contracted procedure: k28639 -o|contracted procedure: k28646 -o|contracted procedure: k28670 -o|contracted procedure: k28679 -o|contracted procedure: k28685 -o|contracted procedure: k28697 -o|contracted procedure: k28709 -o|contracted procedure: k28721 -o|contracted procedure: k28733 -o|contracted procedure: k28745 -o|contracted procedure: k28757 -o|contracted procedure: k28766 -o|contracted procedure: k28778 -o|contracted procedure: k28793 -o|contracted procedure: k28805 -o|contracted procedure: k28820 -o|contracted procedure: k28832 -o|contracted procedure: k28844 -o|contracted procedure: k28893 -o|contracted procedure: k28882 -o|contracted procedure: k28889 -o|contracted procedure: k28904 -o|contracted procedure: k28924 -o|contracted procedure: k28920 -o|contracted procedure: k28934 -o|contracted procedure: k28974 -o|contracted procedure: k28986 -o|contracted procedure: k28995 -o|contracted procedure: k29005 -o|contracted procedure: k29011 -o|contracted procedure: k29024 -o|contracted procedure: k29027 -o|contracted procedure: k29050 -o|contracted procedure: k29095 -o|contracted procedure: k29101 -o|contracted procedure: k29110 -o|contracted procedure: k29122 -o|contracted procedure: k29134 -o|contracted procedure: k29143 -o|contracted procedure: k29146 -o|contracted procedure: k29155 -o|contracted procedure: k29161 -o|contracted procedure: k29170 -o|contracted procedure: k29179 -o|contracted procedure: k29188 -o|contracted procedure: k29197 -o|contracted procedure: k29200 -o|contracted procedure: k29260 -o|contracted procedure: k29246 -o|contracted procedure: k29256 -o|contracted procedure: k29274 -o|contracted procedure: k29264 -o|contracted procedure: k29271 -o|contracted procedure: k29286 -o|contracted procedure: k29319 -o|contracted procedure: k29407 -o|contracted procedure: k29331 -o|contracted procedure: k29340 -o|contracted procedure: k29343 -o|contracted procedure: k29349 -o|contracted procedure: k29352 -o|contracted procedure: k29358 -o|contracted procedure: k29367 -o|contracted procedure: k29370 -o|contracted procedure: k29381 -o|contracted procedure: k29413 -o|contracted procedure: k29437 -o|contracted procedure: k29446 -o|contracted procedure: k29471 -o|contracted procedure: k29478 -o|contracted procedure: k29487 -o|contracted procedure: k29494 -o|contracted procedure: k29500 -o|contracted procedure: k29506 -o|contracted procedure: k29513 -o|contracted procedure: k29568 -o|contracted procedure: k29560 -o|contracted procedure: k29564 -o|contracted procedure: k29526 -o|contracted procedure: k29532 -o|contracted procedure: k29538 -o|contracted procedure: k29545 -o|contracted procedure: k29552 -o|contracted procedure: k29577 -o|contracted procedure: k29583 -o|contracted procedure: k29600 -o|contracted procedure: k29590 -o|contracted procedure: k29609 -o|contracted procedure: k29630 -o|contracted procedure: k29618 -o|contracted procedure: k29621 -o|contracted procedure: k29645 -o|contracted procedure: k29639 -o|contracted procedure: k29663 -o|contracted procedure: k29654 -o|contracted procedure: k29681 -o|contracted procedure: k29672 -o|contracted procedure: k29700 -o|contracted procedure: k29712 -o|contracted procedure: k29722 -o|contracted procedure: k29726 -o|contracted procedure: k29751 -o|contracted procedure: k29763 -o|contracted procedure: k29773 -o|contracted procedure: k29777 -o|contracted procedure: k29825 -o|contracted procedure: k29831 -o|contracted procedure: k29840 -o|contracted procedure: k29843 -o|contracted procedure: k29859 -o|propagated global variable: r29860 ##sys#undefined-value -o|contracted procedure: k29862 -o|contracted procedure: k29881 -o|contracted procedure: k29899 -o|contracted procedure: k29884 -o|contracted procedure: k29895 -o|contracted procedure: k29891 -o|contracted procedure: k29915 -o|contracted procedure: k29908 -o|contracted procedure: k29927 -o|contracted procedure: k29940 -o|propagated global variable: r29941 ##sys#undefined-value -o|contracted procedure: k29944 -o|contracted procedure: k29950 -o|contracted procedure: k29953 -o|contracted procedure: k29971 -o|contracted procedure: k29983 -o|contracted procedure: k29995 -o|contracted procedure: k30010 -o|contracted procedure: k30016 -o|contracted procedure: k30024 -o|contracted procedure: k30030 -o|contracted procedure: k30043 -o|contracted procedure: k30060 -o|contracted procedure: k30063 -o|contracted procedure: k30066 -o|contracted procedure: k30080 -o|contracted procedure: k30086 -o|contracted procedure: k30092 -o|contracted procedure: k30100 -o|contracted procedure: k30103 -o|contracted procedure: k30115 -o|contracted procedure: k30125 -o|contracted procedure: k30134 -o|contracted procedure: k30137 -o|contracted procedure: k30143 -o|contracted procedure: k30149 -o|contracted procedure: k30152 -o|contracted procedure: k30155 -o|contracted procedure: k30165 -o|contracted procedure: k30174 -o|contracted procedure: k30180 -o|contracted procedure: k30187 -o|contracted procedure: k30196 -o|contracted procedure: k30214 -o|contracted procedure: k30224 -o|contracted procedure: k30230 -o|contracted procedure: k30237 -o|contracted procedure: k30221 -o|contracted procedure: k30249 -o|contracted procedure: k30261 -o|contracted procedure: k30288 -o|contracted procedure: k30267 -o|contracted procedure: k30277 -o|contracted procedure: k30284 -o|contracted procedure: k30299 -o|contracted procedure: k30314 -o|contracted procedure: k30323 -o|contracted procedure: k30332 -o|contracted procedure: k30365 -o|contracted procedure: k30389 -o|contracted procedure: k30392 -o|contracted procedure: k30433 -o|contracted procedure: k30485 -o|contracted procedure: k30448 -o|contracted procedure: k30454 -o|contracted procedure: k30466 -o|contracted procedure: k30497 -o|contracted procedure: k30530 -o|contracted procedure: k30539 -o|contracted procedure: k30700 -o|contracted procedure: k30545 -o|contracted procedure: k30555 -o|contracted procedure: k30559 -o|contracted procedure: k30562 -o|contracted procedure: k30571 -o|contracted procedure: k30580 -o|contracted procedure: k30583 -o|contracted procedure: k30592 -o|contracted procedure: k30601 -o|contracted procedure: k30610 -o|contracted procedure: k30619 -o|contracted procedure: k30628 -o|contracted procedure: k30637 -o|contracted procedure: k30646 -o|contracted procedure: k30668 -o|contracted procedure: k30719 -o|contracted procedure: k30728 -o|contracted procedure: k30731 -o|contracted procedure: k30750 -o|contracted procedure: k30740 -o|contracted procedure: k30763 -o|contracted procedure: k30767 -o|contracted procedure: k30776 -o|contracted procedure: k30833 -o|contracted procedure: k30846 -o|contracted procedure: k30849 -o|contracted procedure: k30858 -o|contracted procedure: k30874 -o|contracted procedure: k30880 -o|contracted procedure: k30896 -o|contracted procedure: k30905 -o|contracted procedure: k30921 -o|contracted procedure: k30925 -o|contracted procedure: k30929 -o|contracted procedure: k30933 -o|contracted procedure: k30960 -o|contracted procedure: k30975 -o|contracted procedure: k30978 -o|contracted procedure: k30989 -o|contracted procedure: k30985 -o|contracted procedure: k31000 -o|contracted procedure: k31003 -o|contracted procedure: k31143 -o|contracted procedure: k31006 -o|contracted procedure: k31042 -o|contracted procedure: k31065 -o|contracted procedure: k31045 -o|contracted procedure: k31061 -o|contracted procedure: k31080 -o|contracted procedure: k31110 -o|contracted procedure: k31120 -o|contracted procedure: k31126 -o|contracted procedure: k31136 -o|contracted procedure: k31237 -o|contracted procedure: k31240 -o|contracted procedure: k31243 -o|contracted procedure: k31246 -o|contracted procedure: k31252 -o|contracted procedure: k31274 -o|contracted procedure: k31258 -o|contracted procedure: k31264 -o|contracted procedure: k31267 -o|contracted procedure: k31277 -o|contracted procedure: k41134 -o|contracted procedure: k41137 -o|contracted procedure: k41140 -o|contracted procedure: k41146 -o|contracted procedure: k41149 -o|contracted procedure: k41156 -o|contracted procedure: k41159 -o|contracted procedure: k41162 -o|contracted procedure: k41168 -o|contracted procedure: k41177 -o|contracted procedure: k41180 -o|contracted procedure: k41190 -o|contracted procedure: k41196 -o|contracted procedure: k41199 -o|contracted procedure: k41206 -o|contracted procedure: k41218 -o|contracted procedure: k41221 -o|contracted procedure: k41248 -o|contracted procedure: k41224 -o|contracted procedure: k41234 -o|contracted procedure: k41230 -o|contracted procedure: k41237 -o|contracted procedure: k41240 -o|contracted procedure: k41254 -o|contracted procedure: k41257 -o|contracted procedure: k41260 -o|contracted procedure: k41263 -o|contracted procedure: k41269 -o|contracted procedure: k41291 -o|contracted procedure: k41282 -o|contracted procedure: k41300 -o|contracted procedure: k41314 -o|contracted procedure: k41310 -o|contracted procedure: k41303 -o|contracted procedure: k41325 -o|contracted procedure: k41329 -o|contracted procedure: k41321 -o|contracted procedure: k41338 -o|contracted procedure: k41344 -o|contracted procedure: k41350 -o|contracted procedure: k41353 -o|contracted procedure: k41359 -o|contracted procedure: k31284 -o|contracted procedure: k31558 -o|contracted procedure: k31290 -o|contracted procedure: k31299 -o|contracted procedure: k31310 -o|contracted procedure: k31317 -o|contracted procedure: k31327 -o|contracted procedure: k31320 -o|contracted procedure: k31337 -o|contracted procedure: k31347 -o|contracted procedure: k31340 -o|contracted procedure: k31371 -o|contracted procedure: k31405 -o|contracted procedure: k31415 -o|contracted procedure: k31435 -o|contracted procedure: k31469 -o|contracted procedure: k31476 -o|contracted procedure: k31503 -o|contracted procedure: k31513 -o|contracted procedure: k31524 -o|contracted procedure: k31527 -o|contracted procedure: k31534 -o|contracted procedure: k31537 -o|contracted procedure: k31555 -o|contracted procedure: k31543 -o|contracted procedure: k31551 -o|contracted procedure: k31575 -o|contracted procedure: k31590 -o|contracted procedure: k31600 -o|contracted procedure: k31604 -o|contracted procedure: k31629 -o|contracted procedure: k31639 -o|inlining procedure: k31632 -o|inlining procedure: k31632 -o|contracted procedure: k31808 -o|contracted procedure: k31663 -o|contracted procedure: k31802 -o|contracted procedure: k31666 -o|contracted procedure: k31796 -o|contracted procedure: k31669 -o|contracted procedure: k31790 -o|contracted procedure: k31672 -o|contracted procedure: k31780 -o|contracted procedure: k31678 -o|contracted procedure: k31681 -o|contracted procedure: k31693 -o|contracted procedure: k31774 -o|contracted procedure: k31696 -o|contracted procedure: k31702 -o|contracted procedure: k31754 -o|contracted procedure: k31724 -o|contracted procedure: k31743 -o|contracted procedure: k31731 -o|contracted procedure: k31739 -o|contracted procedure: k31735 -o|contracted procedure: k31712 -o|contracted procedure: k31720 -o|contracted procedure: k31750 -o|contracted procedure: k31761 -o|contracted procedure: k31764 -o|contracted procedure: k31787 -o|contracted procedure: k31820 -o|contracted procedure: k31828 -o|contracted procedure: k31831 -o|contracted procedure: k31834 -o|contracted procedure: k31874 -o|contracted procedure: k31887 -o|contracted procedure: k31902 -o|contracted procedure: k31912 -o|contracted procedure: k31916 -o|contracted procedure: k32004 -o|contracted procedure: k31922 -o|contracted procedure: k31998 -o|contracted procedure: k31925 -o|contracted procedure: k31992 -o|contracted procedure: k31928 -o|contracted procedure: k31986 -o|contracted procedure: k31931 -o|contracted procedure: k31980 -o|contracted procedure: k31934 -o|contracted procedure: k31974 -o|contracted procedure: k31937 -o|contracted procedure: k31968 -o|contracted procedure: k31940 -o|contracted procedure: k31962 -o|contracted procedure: k31943 -o|contracted procedure: k31949 -o|contracted procedure: k31952 -o|contracted procedure: k32022 -o|contracted procedure: k32039 -o|contracted procedure: k32051 -o|contracted procedure: k32077 -o|contracted procedure: k32070 -o|contracted procedure: k32087 -o|contracted procedure: k32095 -o|contracted procedure: k32110 -o|contracted procedure: k32120 -o|contracted procedure: k32124 -o|contracted procedure: k32154 -o|contracted procedure: k32161 -o|contracted procedure: k32167 -o|contracted procedure: k32170 -o|contracted procedure: k32208 -o|contracted procedure: k32218 -o|contracted procedure: k32222 -o|contracted procedure: k32225 -o|contracted procedure: k32228 -o|contracted procedure: k32246 -o|contracted procedure: k32255 -o|contracted procedure: k32258 -o|contracted procedure: k32261 -o|contracted procedure: k32276 -o|contracted procedure: k32286 -o|contracted procedure: k32279 -o|inlining procedure: k32268 -o|inlining procedure: k32268 -o|contracted procedure: k32293 -o|contracted procedure: k32299 -o|contracted procedure: k32305 -o|contracted procedure: k32311 -o|contracted procedure: k32317 -o|contracted procedure: k32323 -o|contracted procedure: k32329 -o|contracted procedure: k32335 -o|contracted procedure: k32341 -o|contracted procedure: k32347 -o|contracted procedure: k32353 -o|contracted procedure: k32359 -o|contracted procedure: k32365 -o|contracted procedure: k32371 -o|contracted procedure: k32408 -o|contracted procedure: k32411 -o|contracted procedure: k32427 -o|contracted procedure: k32420 -o|contracted procedure: k32448 -o|contracted procedure: k32471 -o|contracted procedure: k32467 -o|contracted procedure: k32499 -o|contracted procedure: k32495 -o|contracted procedure: k32502 -o|contracted procedure: k32506 -o|contracted procedure: k32512 -o|contracted procedure: k32515 -o|contracted procedure: k32518 -o|contracted procedure: k32521 -o|contracted procedure: k32524 -o|contracted procedure: k32545 -o|contracted procedure: k32551 -o|contracted procedure: k32554 -o|contracted procedure: k32560 -o|contracted procedure: k32574 -o|contracted procedure: k32571 -o|contracted procedure: k32583 -o|contracted procedure: k32642 -o|contracted procedure: k32595 -o|contracted procedure: k32638 -o|contracted procedure: k32610 -o|contracted procedure: k32634 -o|contracted procedure: k32630 -o|contracted procedure: k32626 -o|contracted procedure: k32665 -o|contracted procedure: k32668 -o|contracted procedure: k32694 -o|contracted procedure: k32700 -o|contracted procedure: k32707 -o|contracted procedure: k32713 -o|contracted procedure: k32732 -o|contracted procedure: k32785 -o|contracted procedure: k32738 -o|contracted procedure: k32770 -o|contracted procedure: k32751 -o|contracted procedure: k32759 -o|contracted procedure: k32755 -o|contracted procedure: k32781 -o|contracted procedure: k32777 -o|contracted procedure: k32795 -o|contracted procedure: k32805 -o|contracted procedure: k32828 -o|contracted procedure: k32845 -o|contracted procedure: k32867 -o|contracted procedure: k32863 -o|contracted procedure: k32848 -o|contracted procedure: k32851 -o|contracted procedure: k32859 -o|contracted procedure: k32874 -o|contracted procedure: k32891 -o|contracted procedure: k32913 -o|contracted procedure: k32909 -o|contracted procedure: k32894 -o|contracted procedure: k32897 -o|contracted procedure: k32905 -o|contracted procedure: k32925 -o|contracted procedure: k32939 -o|contracted procedure: k32928 -o|contracted procedure: k32935 -o|contracted procedure: k32945 -o|contracted procedure: k32955 -o|contracted procedure: k32967 -o|contracted procedure: k32989 -o|contracted procedure: k32985 -o|contracted procedure: k32970 -o|contracted procedure: k32973 -o|contracted procedure: k32981 -o|contracted procedure: k32996 -o|contracted procedure: k33019 -o|contracted procedure: k33022 -o|contracted procedure: k33025 -o|contracted procedure: k33033 -o|contracted procedure: k33041 -o|contracted procedure: k33005 -o|contracted procedure: k33059 -o|contracted procedure: k33072 -o|contracted procedure: k33081 -o|contracted procedure: k33119 -o|contracted procedure: k33087 -o|contracted procedure: k33101 -o|contracted procedure: k33097 -o|contracted procedure: k33115 -o|contracted procedure: k33122 -o|contracted procedure: k33125 -o|contracted procedure: k33137 -o|contracted procedure: k33140 -o|contracted procedure: k33143 -o|contracted procedure: k33151 -o|contracted procedure: k33159 -o|contracted procedure: k33189 -o|contracted procedure: k33185 -o|contracted procedure: k33195 -o|contracted procedure: k33198 -o|contracted procedure: k33203 -o|contracted procedure: k33235 -o|contracted procedure: k33209 -o|contracted procedure: k33231 -o|contracted procedure: k33212 -o|contracted procedure: k33273 -o|contracted procedure: k33285 -o|contracted procedure: k33295 -o|contracted procedure: k33299 -o|contracted procedure: k33330 -o|contracted procedure: k33355 -o|contracted procedure: k33339 -o|contracted procedure: k33372 -o|contracted procedure: k33392 -o|contracted procedure: k33398 -o|contracted procedure: k33411 -o|contracted procedure: k33417 -o|contracted procedure: k33436 -o|contracted procedure: k33450 -o|contracted procedure: k33439 -o|contracted procedure: k33446 -o|contracted procedure: k33466 -o|contracted procedure: k33472 -o|contracted procedure: k33479 -o|contracted procedure: k33485 -o|contracted procedure: k33535 -o|contracted procedure: k33495 -o|contracted procedure: k33547 -o|contracted procedure: k33550 -o|contracted procedure: k33553 -o|contracted procedure: k33556 -o|contracted procedure: k33567 -o|contracted procedure: k33584 -o|contracted procedure: k33587 -o|contracted procedure: k33590 -o|contracted procedure: k33593 -o|contracted procedure: k33604 -o|contracted procedure: k33621 -o|contracted procedure: k33630 -o|contracted procedure: k33639 -o|contracted procedure: k33648 -o|contracted procedure: k33657 -o|contracted procedure: k33666 -o|contracted procedure: k33675 -o|contracted procedure: k33684 -o|contracted procedure: k33693 -o|contracted procedure: k33702 -o|contracted procedure: k33711 -o|contracted procedure: k33720 -o|contracted procedure: k33729 -o|contracted procedure: k33738 -o|contracted procedure: k33747 -o|contracted procedure: k33756 -o|contracted procedure: k33765 -o|contracted procedure: k33774 -o|contracted procedure: k33783 -o|contracted procedure: k33792 -o|contracted procedure: k33801 -o|contracted procedure: k33810 -o|contracted procedure: k33819 -o|contracted procedure: k33828 -o|contracted procedure: k33837 -o|contracted procedure: k33846 -o|contracted procedure: k33855 -o|contracted procedure: k33864 -o|contracted procedure: k33873 -o|contracted procedure: k33882 -o|contracted procedure: k33891 -o|contracted procedure: k33900 -o|contracted procedure: k33909 -o|contracted procedure: k33918 -o|contracted procedure: k33927 -o|contracted procedure: k33936 -o|contracted procedure: k33945 -o|contracted procedure: k33954 -o|contracted procedure: k33963 -o|contracted procedure: k33972 -o|contracted procedure: k33981 -o|contracted procedure: k33990 -o|contracted procedure: k33999 -o|contracted procedure: k34008 -o|contracted procedure: k34017 -o|contracted procedure: k34026 -o|contracted procedure: k34035 -o|contracted procedure: k34044 -o|contracted procedure: k34053 -o|contracted procedure: k34062 -o|contracted procedure: k34071 -o|contracted procedure: k34080 -o|contracted procedure: k34089 -o|contracted procedure: k34098 -o|contracted procedure: k34101 -o|contracted procedure: k34104 -o|contracted procedure: k34107 -o|contracted procedure: k34118 -o|contracted procedure: k34135 -o|contracted procedure: k34144 -o|contracted procedure: k34290 -o|contracted procedure: k34312 -o|contracted procedure: k34297 -o|contracted procedure: k34304 -o|contracted procedure: k34326 -o|contracted procedure: k34334 -o|contracted procedure: k34348 -o|contracted procedure: k34354 -o|contracted procedure: k34360 -o|contracted procedure: k34389 -o|contracted procedure: k34395 -o|contracted procedure: k34509 -o|contracted procedure: k34512 -o|contracted procedure: k34547 -o|contracted procedure: k34578 -o|contracted procedure: k34553 -o|contracted procedure: k34556 -o|contracted procedure: k34575 -o|contracted procedure: k34571 -o|contracted procedure: k34562 -o|contracted procedure: k34611 -o|contracted procedure: k34604 -o|contracted procedure: k34624 -o|contracted procedure: k34681 -o|contracted procedure: k34698 -o|contracted procedure: k34660 -o|contracted procedure: k34664 -o|contracted procedure: k34725 -o|contracted procedure: k34745 -o|contracted procedure: k34762 -o|contracted procedure: k34712 -o|contracted procedure: k34716 -o|contracted procedure: k34825 -o|contracted procedure: k34839 -o|contracted procedure: k34843 -o|contracted procedure: k34851 -o|contracted procedure: k34868 -o|contracted procedure: k34883 -o|contracted procedure: k34928 -o|contracted procedure: k34931 -o|contracted procedure: k34934 -o|contracted procedure: k34955 -o|contracted procedure: k34937 -o|contracted procedure: k34940 -o|contracted procedure: k34943 -o|contracted procedure: k34949 -o|contracted procedure: k34967 -o|contracted procedure: k34973 -o|contracted procedure: k34976 -o|contracted procedure: k35004 -o|contracted procedure: k34982 -o|contracted procedure: k34985 -o|contracted procedure: k34988 -o|contracted procedure: k34991 -o|contracted procedure: k34997 -o|contracted procedure: k34994 -o|contracted procedure: k35010 -o|contracted procedure: k35022 -o|contracted procedure: k35028 -o|contracted procedure: k35031 -o|contracted procedure: k35040 -o|contracted procedure: k35043 -o|contracted procedure: k35046 -o|contracted procedure: k35052 -o|contracted procedure: k35049 -o|contracted procedure: k35067 -o|contracted procedure: k35106 -o|contracted procedure: k35087 -o|contracted procedure: k35096 -o|contracted procedure: k35115 -o|contracted procedure: k35172 -o|contracted procedure: k35175 -o|contracted procedure: k35181 -o|contracted procedure: k35224 -o|contracted procedure: k35240 -o|contracted procedure: k35233 -o|contracted procedure: k35670 -o|contracted procedure: k35251 -o|contracted procedure: k35266 -o|contracted procedure: k35369 -o|contracted procedure: k35278 -o|contracted procedure: k35297 -o|contracted procedure: k35300 -o|contracted procedure: k35309 -o|contracted procedure: k3514945557 -o|contracted procedure: k35338 -o|contracted procedure: k35366 -o|contracted procedure: k35348 -o|contracted procedure: k35361 -o|contracted procedure: k35378 -o|contracted procedure: k35656 -o|contracted procedure: k35400 -o|contracted procedure: k35418 -o|contracted procedure: k35421 -o|contracted procedure: k35430 -o|contracted procedure: k35433 -o|contracted procedure: k35447 -o|contracted procedure: k35456 -o|contracted procedure: k35511 -o|contracted procedure: k35469 -o|contracted procedure: k35472 -o|contracted procedure: k35481 -o|contracted procedure: k35498 -o|contracted procedure: k35492 -o|contracted procedure: k35514 -o|contracted procedure: k3514945570 -o|contracted procedure: k35532 -o|contracted procedure: k35528 -o|contracted procedure: k35540 -o|contracted procedure: k35549 -o|contracted procedure: k35565 -o|contracted procedure: k35580 -o|contracted procedure: k35572 -o|contracted procedure: k35599 -o|contracted procedure: k35591 -o|contracted procedure: k35625 -o|contracted procedure: k35653 -o|contracted procedure: k35635 -o|contracted procedure: k35648 -o|contracted procedure: k35676 -o|contracted procedure: k35685 -o|contracted procedure: k35745 -o|contracted procedure: k35756 -o|contracted procedure: k35765 -o|contracted procedure: k35798 -o|contracted procedure: k35805 -o|contracted procedure: k35813 -o|contracted procedure: k35825 -o|contracted procedure: k35834 -o|contracted procedure: k35739 -o|contracted procedure: k35867 -o|contracted procedure: k35876 -o|contracted procedure: k35883 -o|contracted procedure: k35887 -o|contracted procedure: k35932 -o|contracted procedure: k35917 -o|contracted procedure: k35924 -o|contracted procedure: k35928 -o|contracted procedure: k35939 -o|contracted procedure: k35952 -o|contracted procedure: k35959 -o|contracted procedure: k35990 -o|contracted procedure: k35986 -o|contracted procedure: k36010 -o|contracted procedure: k36019 -o|contracted procedure: k36026 -o|contracted procedure: k36068 -o|contracted procedure: k36056 -o|contracted procedure: k36081 -o|contracted procedure: k36077 -o|contracted procedure: k36090 -o|contracted procedure: k36100 -o|contracted procedure: k36104 -o|contracted procedure: k36116 -o|contracted procedure: k36128 -o|contracted procedure: k36138 -o|contracted procedure: k36142 -o|contracted procedure: k36148 -o|contracted procedure: k36160 -o|contracted procedure: k36169 -o|contracted procedure: k36181 -o|contracted procedure: k36185 -o|contracted procedure: k36197 -o|contracted procedure: k36207 -o|contracted procedure: k36280 -o|contracted procedure: k36210 -o|contracted procedure: k36223 -o|contracted procedure: k36264 -o|contracted procedure: k36253 -o|contracted procedure: k36260 -o|contracted procedure: k36310 -o|contracted procedure: k36348 -o|contracted procedure: k36338 -o|contracted procedure: k36366 -o|contracted procedure: k36400 -o|contracted procedure: k36409 -o|contracted procedure: k36412 -o|contracted procedure: k36419 -o|contracted procedure: k36415 -o|contracted procedure: k36425 -o|contracted procedure: k36432 -o|contracted procedure: k36428 -o|contracted procedure: k36438 -o|contracted procedure: k36441 -o|contracted procedure: k36447 -o|contracted procedure: k36450 -o|contracted procedure: k36457 -o|contracted procedure: k36453 -o|contracted procedure: k36463 -o|contracted procedure: k36466 -o|contracted procedure: k36473 -o|contracted procedure: k36469 -o|contracted procedure: k36479 -o|contracted procedure: k36482 -o|contracted procedure: k36489 -o|contracted procedure: k36485 -o|contracted procedure: k36495 -o|contracted procedure: k36498 -o|contracted procedure: k36505 -o|contracted procedure: k36501 -o|contracted procedure: k36511 -o|contracted procedure: k36514 -o|contracted procedure: k36521 -o|contracted procedure: k36517 -o|contracted procedure: k36527 -o|contracted procedure: k36530 -o|contracted procedure: k36537 -o|contracted procedure: k36533 -o|contracted procedure: k36543 -o|contracted procedure: k36546 -o|contracted procedure: k36553 -o|contracted procedure: k36549 -o|contracted procedure: k36559 -o|contracted procedure: k36562 -o|contracted procedure: k36569 -o|contracted procedure: k36565 -o|contracted procedure: k36575 -o|contracted procedure: k36578 -o|contracted procedure: k36585 -o|contracted procedure: k36581 -o|contracted procedure: k36591 -o|contracted procedure: k36594 -o|contracted procedure: k36601 -o|contracted procedure: k36597 -o|contracted procedure: k36616 -o|contracted procedure: k36612 -o|contracted procedure: k36604 -o|contracted procedure: k36608 -o|contracted procedure: k36642 -o|contracted procedure: k36645 -o|contracted procedure: k36652 -o|contracted procedure: k36648 -o|contracted procedure: k36664 -o|contracted procedure: k36676 -o|contracted procedure: k36670 -o|contracted procedure: k36673 -o|contracted procedure: k36691 -o|contracted procedure: k36704 -o|contracted procedure: k36700 -o|contracted procedure: k36708 -o|contracted procedure: k36752 -o|contracted procedure: k36717 -o|contracted procedure: k36720 -o|contracted procedure: k36723 -o|contracted procedure: k36748 -o|contracted procedure: k36735 -o|contracted procedure: k36738 -o|contracted procedure: k36762 -o|contracted procedure: k36768 -o|contracted procedure: k36775 -o|contracted procedure: k36784 -o|contracted procedure: k36790 -o|contracted procedure: k36793 -o|contracted procedure: k36796 -o|contracted procedure: k36802 -o|contracted procedure: k36809 -o|contracted procedure: k36815 -o|contracted procedure: k36819 -o|contracted procedure: k36866 -o|contracted procedure: k36879 -o|contracted procedure: k36901 -o|contracted procedure: k36923 -o|contracted procedure: k36957 -o|contracted procedure: k36963 -o|contracted procedure: k36966 -o|contracted procedure: k36972 -o|contracted procedure: k36975 -o|contracted procedure: k36981 -o|contracted procedure: k36996 -o|contracted procedure: k36999 -o|contracted procedure: k37020 -o|contracted procedure: k37038 -o|contracted procedure: k37051 -o|contracted procedure: k37219 -o|contracted procedure: k37093 -o|contracted procedure: k37172 -o|contracted procedure: k37117 -o|contracted procedure: k37191 -o|contracted procedure: k37195 -o|contracted procedure: k37199 -o|contracted procedure: k37244 -o|contracted procedure: k37234 -o|contracted procedure: k37240 -o|contracted procedure: k37251 -o|contracted procedure: k37260 -o|contracted procedure: k37339 -o|contracted procedure: k37266 -o|contracted procedure: k37272 -o|contracted procedure: k37279 -o|contracted procedure: k37288 -o|contracted procedure: k37294 -o|contracted procedure: k37308 -o|contracted procedure: k37324 -o|contracted procedure: k37328 -o|contracted procedure: k37335 -o|contracted procedure: k37375 -o|contracted procedure: k37353 -o|contracted procedure: k37365 -o|contracted procedure: k37415 -o|contracted procedure: k37424 -o|contracted procedure: k40597 -o|contracted procedure: k40593 -o|contracted procedure: k40589 -o|contracted procedure: k37439 -o|contracted procedure: k37447 -o|contracted procedure: k37451 -o|contracted procedure: k37486 -o|contracted procedure: k40521 -o|contracted procedure: k37496 -o|contracted procedure: k37526 -o|contracted procedure: k37540 -o|contracted procedure: k37510 -o|contracted procedure: k3753645605 -o|contracted procedure: k37514 -o|contracted procedure: k3753645609 -o|contracted procedure: k37546 -o|contracted procedure: k37562 -o|contracted procedure: k37565 -o|contracted procedure: k37568 -o|contracted procedure: k37574 -o|contracted procedure: k37593 -o|contracted procedure: k37596 -o|contracted procedure: k37599 -o|contracted procedure: k37607 -o|contracted procedure: k37615 -o|contracted procedure: k37630 -o|contracted procedure: k37639 -o|contracted procedure: k37646 -o|contracted procedure: k37654 -o|contracted procedure: k37715 -o|contracted procedure: k37727 -o|contracted procedure: k37739 -o|contracted procedure: k37742 -o|contracted procedure: k37745 -o|contracted procedure: k37753 -o|contracted procedure: k37761 -o|contracted procedure: k37808 -o|contracted procedure: k37770 -o|contracted procedure: k37788 -o|contracted procedure: k37795 -o|contracted procedure: k37799 -o|contracted procedure: k37802 -o|contracted procedure: k37832 -o|contracted procedure: k37845 -o|contracted procedure: k37849 -o|contracted procedure: k37852 -o|contracted procedure: k37858 -o|contracted procedure: k37870 -o|contracted procedure: k37882 -o|contracted procedure: k37889 -o|contracted procedure: k38001 -o|contracted procedure: k37906 -o|contracted procedure: k37995 -o|contracted procedure: k37909 -o|contracted procedure: k37989 -o|contracted procedure: k37912 -o|contracted procedure: k37983 -o|contracted procedure: k37915 -o|contracted procedure: k37920 -o|contracted procedure: k37923 -o|contracted procedure: k37944 -o|contracted procedure: k37947 -o|contracted procedure: k37954 -o|contracted procedure: k37958 -o|contracted procedure: k37963 -o|contracted procedure: k37976 -o|contracted procedure: k37980 -o|contracted procedure: k38115 -o|contracted procedure: k38010 -o|contracted procedure: k38109 -o|contracted procedure: k38013 -o|contracted procedure: k38103 -o|contracted procedure: k38016 -o|contracted procedure: k38097 -o|contracted procedure: k38019 -o|contracted procedure: k38024 -o|contracted procedure: k38027 -o|contracted procedure: k38048 -o|contracted procedure: k38054 -o|contracted procedure: k38057 -o|contracted procedure: k38064 -o|contracted procedure: k38068 -o|contracted procedure: k38077 -o|contracted procedure: k38073 -o|contracted procedure: k38090 -o|contracted procedure: k38094 -o|contracted procedure: k38173 -o|contracted procedure: k38127 -o|contracted procedure: k38142 -o|contracted procedure: k38151 -o|contracted procedure: k38159 -o|contracted procedure: k38163 -o|contracted procedure: k38167 -o|contracted procedure: k38179 -o|contracted procedure: k38193 -o|contracted procedure: k38199 -o|contracted procedure: k38217 -o|contracted procedure: k38220 -o|contracted procedure: k38227 -o|contracted procedure: k38235 -o|contracted procedure: k38252 -o|contracted procedure: k38255 -o|contracted procedure: k38258 -o|contracted procedure: k38266 -o|contracted procedure: k38274 -o|contracted procedure: k38286 -o|contracted procedure: k38293 -o|contracted procedure: k38301 -o|contracted procedure: k38297 -o|contracted procedure: k38310 -o|contracted procedure: k38332 -o|contracted procedure: k38328 -o|contracted procedure: k38313 -o|contracted procedure: k38316 -o|contracted procedure: k38324 -o|contracted procedure: k38344 -o|contracted procedure: k38358 -o|contracted procedure: k38347 -o|contracted procedure: k38354 -o|contracted procedure: k38399 -o|contracted procedure: k38367 -o|contracted procedure: k38379 -o|contracted procedure: k38389 -o|contracted procedure: k38393 -o|contracted procedure: k38405 -o|contracted procedure: k38419 -o|contracted procedure: k38425 -o|contracted procedure: k38443 -o|contracted procedure: k38453 -o|contracted procedure: k38457 -o|contracted procedure: k38474 -o|contracted procedure: k38477 -o|contracted procedure: k38480 -o|contracted procedure: k38488 -o|contracted procedure: k38496 -o|contracted procedure: k38508 -o|contracted procedure: k38515 -o|contracted procedure: k38523 -o|contracted procedure: k38519 -o|contracted procedure: k38532 -o|contracted procedure: k38554 -o|contracted procedure: k38550 -o|contracted procedure: k38535 -o|contracted procedure: k38538 -o|contracted procedure: k38546 -o|contracted procedure: k38566 -o|contracted procedure: k38580 -o|contracted procedure: k38569 -o|contracted procedure: k38576 -o|contracted procedure: k38589 -o|contracted procedure: k38595 -o|contracted procedure: k38598 -o|contracted procedure: k38613 -o|contracted procedure: k38616 -o|contracted procedure: k38623 -o|contracted procedure: k38631 -o|contracted procedure: k38634 -o|contracted procedure: k38648 -o|contracted procedure: k38654 -o|contracted procedure: k38672 -o|contracted procedure: k38675 -o|contracted procedure: k38682 -o|contracted procedure: k38690 -o|contracted procedure: k38707 -o|contracted procedure: k38710 -o|contracted procedure: k38713 -o|contracted procedure: k38721 -o|contracted procedure: k38729 -o|contracted procedure: k38741 -o|contracted procedure: k38748 -o|contracted procedure: k38756 -o|contracted procedure: k38752 -o|contracted procedure: k38765 -o|contracted procedure: k38787 -o|contracted procedure: k38783 -o|contracted procedure: k38768 -o|contracted procedure: k38771 -o|contracted procedure: k38779 -o|contracted procedure: k38799 -o|contracted procedure: k38813 -o|contracted procedure: k38802 -o|contracted procedure: k38809 -o|contracted procedure: k38822 -o|contracted procedure: k38828 -o|contracted procedure: k38831 -o|contracted procedure: k38843 -o|contracted procedure: k38853 -o|contracted procedure: k38857 -o|contracted procedure: k38860 -o|contracted procedure: k38874 -o|contracted procedure: k38880 -o|contracted procedure: k38898 -o|contracted procedure: k38908 -o|contracted procedure: k38912 -o|contracted procedure: k38929 -o|contracted procedure: k38932 -o|contracted procedure: k38935 -o|contracted procedure: k38943 -o|contracted procedure: k38951 -o|contracted procedure: k38963 -o|contracted procedure: k38970 -o|contracted procedure: k38978 -o|contracted procedure: k38974 -o|contracted procedure: k38987 -o|contracted procedure: k39009 -o|contracted procedure: k39005 -o|contracted procedure: k38990 -o|contracted procedure: k38993 -o|contracted procedure: k39001 -o|contracted procedure: k39021 -o|contracted procedure: k39035 -o|contracted procedure: k39024 -o|contracted procedure: k39031 -o|contracted procedure: k39060 -o|contracted procedure: k39053 -o|contracted procedure: k39070 -o|contracted procedure: k39063 -o|contracted procedure: k39104 -o|contracted procedure: k39113 -o|contracted procedure: k39122 -o|contracted procedure: k39125 -o|contracted procedure: k39138 -o|contracted procedure: k39245 -o|contracted procedure: k39150 -o|contracted procedure: k39239 -o|contracted procedure: k39153 -o|contracted procedure: k39233 -o|contracted procedure: k39156 -o|contracted procedure: k39227 -o|contracted procedure: k39159 -o|contracted procedure: k39221 -o|contracted procedure: k39162 -o|contracted procedure: k39215 -o|contracted procedure: k39165 -o|contracted procedure: k39168 -o|contracted procedure: k39183 -o|contracted procedure: k39200 -o|contracted procedure: k39186 -o|contracted procedure: k39196 -o|contracted procedure: k39189 -o|contracted procedure: k39348 -o|contracted procedure: k39254 -o|contracted procedure: k39342 -o|contracted procedure: k39257 -o|contracted procedure: k39336 -o|contracted procedure: k39260 -o|contracted procedure: k39330 -o|contracted procedure: k39263 -o|contracted procedure: k39324 -o|contracted procedure: k39266 -o|contracted procedure: k39318 -o|contracted procedure: k39269 -o|contracted procedure: k39288 -o|contracted procedure: k39291 -o|contracted procedure: k39305 -o|contracted procedure: k39309 -o|contracted procedure: k39357 -o|contracted procedure: k39360 -o|contracted procedure: k39491 -o|contracted procedure: k39369 -o|contracted procedure: k39383 -o|contracted procedure: k39398 -o|contracted procedure: k39410 -o|contracted procedure: k39416 -o|contracted procedure: k39425 -o|contracted procedure: k39434 -o|contracted procedure: k39443 -o|contracted procedure: k39458 -o|contracted procedure: k39465 -o|contracted procedure: k39468 -o|contracted procedure: k39476 -o|contracted procedure: k39504 -o|contracted procedure: k39497 -o|contracted procedure: k39594 -o|contracted procedure: k39513 -o|contracted procedure: k39588 -o|contracted procedure: k39516 -o|contracted procedure: k39582 -o|contracted procedure: k39519 -o|contracted procedure: k39576 -o|contracted procedure: k39522 -o|contracted procedure: k39528 -o|contracted procedure: k39535 -o|contracted procedure: k39544 -o|contracted procedure: k39556 -o|contracted procedure: k39566 -o|contracted procedure: k39570 -o|contracted procedure: k39603 -o|contracted procedure: k39609 -o|contracted procedure: k39612 -o|contracted procedure: k39633 -o|contracted procedure: k39615 -o|contracted procedure: k39629 -o|contracted procedure: k39625 -o|contracted procedure: k39645 -o|contracted procedure: k39711 -o|contracted procedure: k39648 -o|contracted procedure: k39707 -o|contracted procedure: k39703 -o|contracted procedure: k39660 -o|contracted procedure: k39666 -o|contracted procedure: k39672 -o|contracted procedure: k39675 -o|contracted procedure: k39682 -o|contracted procedure: k39686 -o|contracted procedure: k39690 -o|contracted procedure: k39720 -o|contracted procedure: k39738 -o|contracted procedure: k39762 -o|contracted procedure: k39771 -o|contracted procedure: k39780 -o|contracted procedure: k39783 -o|contracted procedure: k39786 -o|contracted procedure: k39789 -o|contracted procedure: k39792 -o|contracted procedure: k39798 -o|contracted procedure: k39807 -o|contracted procedure: k39817 -o|contracted procedure: k39821 -o|contracted procedure: k39827 -o|contracted procedure: k39837 -o|contracted procedure: k39843 -o|contracted procedure: k39850 -o|contracted procedure: k39854 -o|contracted procedure: k39858 -o|contracted procedure: k39862 -o|contracted procedure: k39869 -o|contracted procedure: k39941 -o|contracted procedure: k39875 -o|contracted procedure: k39935 -o|contracted procedure: k39878 -o|contracted procedure: k39929 -o|contracted procedure: k39881 -o|contracted procedure: k39923 -o|contracted procedure: k39884 -o|contracted procedure: k39890 -o|contracted procedure: k39893 -o|contracted procedure: k39900 -o|contracted procedure: k39910 -o|contracted procedure: k39917 -o|contracted procedure: k40026 -o|contracted procedure: k39950 -o|contracted procedure: k40020 -o|contracted procedure: k39953 -o|contracted procedure: k40014 -o|contracted procedure: k39956 -o|contracted procedure: k40008 -o|contracted procedure: k39959 -o|contracted procedure: k40002 -o|contracted procedure: k39962 -o|contracted procedure: k39996 -o|contracted procedure: k39965 -o|contracted procedure: k39971 -o|contracted procedure: k39974 -o|contracted procedure: k39977 -o|contracted procedure: k39980 -o|contracted procedure: k39983 -o|contracted procedure: k40038 -o|contracted procedure: k40044 -o|contracted procedure: k40059 -o|contracted procedure: k40075 -o|contracted procedure: k40128 -o|contracted procedure: k40095 -o|contracted procedure: k40104 -o|contracted procedure: k40107 -o|contracted procedure: k40117 -o|contracted procedure: k40124 -o|contracted procedure: k40143 -o|contracted procedure: k40194 -o|contracted procedure: k40152 -o|contracted procedure: k40188 -o|contracted procedure: k40155 -o|contracted procedure: k40182 -o|contracted procedure: k40158 -o|contracted procedure: k40176 -o|contracted procedure: k40161 -o|contracted procedure: k40167 -o|contracted procedure: k40270 -o|contracted procedure: k40203 -o|contracted procedure: k40264 -o|contracted procedure: k40206 -o|contracted procedure: k40258 -o|contracted procedure: k40209 -o|contracted procedure: k40252 -o|contracted procedure: k40212 -o|contracted procedure: k40221 -o|contracted procedure: k40234 -o|contracted procedure: k40230 -o|contracted procedure: k40246 -o|contracted procedure: k40302 -o|contracted procedure: k40283 -o|contracted procedure: k40299 -o|contracted procedure: k40289 -o|contracted procedure: k40358 -o|contracted procedure: k40311 -o|contracted procedure: k40355 -o|contracted procedure: k40348 -o|contracted procedure: k40385 -o|contracted procedure: k40367 -o|contracted procedure: k40382 -o|contracted procedure: k40416 -o|contracted procedure: k40394 -o|contracted procedure: k40397 -o|contracted procedure: k40413 -o|contracted procedure: k40406 -o|contracted procedure: k40510 -o|contracted procedure: k40425 -o|contracted procedure: k40504 -o|contracted procedure: k40428 -o|contracted procedure: k40498 -o|contracted procedure: k40431 -o|contracted procedure: k40492 -o|contracted procedure: k40434 -o|contracted procedure: k40486 -o|contracted procedure: k40437 -o|contracted procedure: k40480 -o|contracted procedure: k40440 -o|contracted procedure: k40443 -o|contracted procedure: k40449 -o|contracted procedure: k40452 -o|contracted procedure: k40461 -o|contracted procedure: k40471 -o|contracted procedure: k40464 -o|contracted procedure: k40553 -o|contracted procedure: k40557 -o|contracted procedure: k40561 -o|contracted procedure: k40565 -o|contracted procedure: k40602 -o|contracted procedure: k40608 -o|contracted procedure: k40620 -o|contracted procedure: k40623 -o|contracted procedure: k40626 -o|contracted procedure: k40634 -o|contracted procedure: k40642 -o|contracted procedure: k40687 -o|contracted procedure: k40704 -o|contracted procedure: k40718 -o|contracted procedure: k40707 -o|contracted procedure: k40714 -o|contracted procedure: k40742 -o|contracted procedure: k40749 -o|contracted procedure: k40783 -o|contracted procedure: k40792 -o|contracted procedure: k40795 -o|contracted procedure: k40804 -o|contracted procedure: k40819 -o|contracted procedure: k40815 -o|contracted procedure: k40832 -o|contracted procedure: k40835 -o|contracted procedure: k40842 -o|contracted procedure: k40851 -o|contracted procedure: k40854 -o|contracted procedure: k40857 -o|contracted procedure: k40883 -o|contracted procedure: k40874 -o|contracted procedure: k40893 -o|contracted procedure: k40896 -o|contracted procedure: k40942 -o|contracted procedure: k40945 -o|contracted procedure: k40959 -o|contracted procedure: k40983 -o|contracted procedure: k40993 -o|contracted procedure: k41013 -o|contracted procedure: k41023 -o|contracted procedure: k41027 -o|contracted procedure: k41068 -o|contracted procedure: k41078 -o|contracted procedure: k41082 -o|contracted procedure: k41125 -o|contracted procedure: k41110 -o|contracted procedure: k41113 -o|contracted procedure: k41363 -o|contracted procedure: k41382 -o|contracted procedure: k41392 -o|contracted procedure: k41402 -o|contracted procedure: k41412 -o|contracted procedure: k41422 -o|contracted procedure: k41432 -o|contracted procedure: k41442 -o|contracted procedure: k41452 -o|contracted procedure: k41462 -o|contracted procedure: k41472 -o|contracted procedure: k41482 -o|contracted procedure: k41492 -o|contracted procedure: k41502 -o|contracted procedure: k41508 -o|contracted procedure: k41511 -o|contracted procedure: k41535 -o|contracted procedure: k41542 -o|contracted procedure: k41551 -o|contracted procedure: k41558 -o|contracted procedure: k41577 -o|contracted procedure: k41586 -o|contracted procedure: k41597 -o|contracted procedure: k41593 -o|contracted procedure: k41606 -o|contracted procedure: k41613 -o|contracted procedure: k41623 -o|contracted procedure: k41619 -o|contracted procedure: k41568 -o|contracted procedure: k41564 -o|simplifications: ((if . 30) (let . 994)) -o|removed binding forms: 3262 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest152155 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest152155 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest175178 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest175178 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest880881 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest880881 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest893894 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest893894 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? fns944 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? fns951 0 -(o x)|known list op on rest arg sublist: ##core#rest-car lst1035 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest10741078 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest10741078 0 -o|inlining procedure: k13491 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest11031107 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest11031107 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest11291132 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest11291132 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest11291132 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest11291132 0 -(o x)|known list op on rest arg sublist: ##core#rest-car tst1163 0 -(o x)|known list op on rest arg sublist: ##core#rest-car bool1489 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1571 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1574 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1578 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1581 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1584 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1587 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1590 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1593 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1596 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1599 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1602 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1605 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1608 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1611 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1614 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1617 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1620 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1624 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1628 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1635 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1641 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1646 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1649 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc1654 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest16821684 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest16821684 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest16951697 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest16951697 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest17081710 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest17081710 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest17211723 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest17211723 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest17341736 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest17341736 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest17471749 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest17471749 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest17601762 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest17601762 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest17731775 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest17731775 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest18031805 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest18031805 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest18151817 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest18151817 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest19681970 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest19681970 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest19681970 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest19681970 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20232026 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest20232026 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20232026 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20232026 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20592061 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest20592061 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20592061 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20592061 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20862090 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest20862090 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest20862090 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest20862090 0 -(o x)|known list op on rest arg sublist: ##core#rest-car end2132 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest26962697 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest26962697 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? args2932 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest31413143 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest31413143 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest31813183 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest31813183 0 -o|contracted procedure: k19657 -(o x)|known list op on rest arg sublist: ##core#rest-null? ns3419 0 -o|inlining procedure: k21277 -o|inlining procedure: k21277 -o|inlining procedure: k21277 -o|inlining procedure: k21277 -o|inlining procedure: k21277 -o|inlining procedure: k21372 -o|inlining procedure: k21372 -o|inlining procedure: k21372 -o|inlining procedure: k21372 -o|inlining procedure: k21372 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest38433845 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest38433845 0 -o|contracted procedure: k21735 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest38993901 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest38993901 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest38993901 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest38993901 0 -(o x)|known list op on rest arg sublist: ##core#rest-car str-or-sym3982 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest40474050 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest40474050 0 -o|inlining procedure: k22509 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest40984100 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest40984100 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest41324134 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest41324134 0 -o|inlining procedure: k22594 -o|inlining procedure: k22594 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest41844186 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest41844186 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest41844186 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest41844186 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest42184222 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest42184222 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest42184222 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest42184222 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest42984300 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest42984300 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest42984300 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest42984300 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest43224325 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest43224325 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest43224325 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest43224325 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest43494351 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest43494351 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest43494351 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest43494351 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest43844388 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest43844388 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest43844388 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest43844388 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest45124515 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest45124515 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest45394542 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest45394542 0 -(o x)|known list op on rest arg sublist: ##core#rest-car y4658 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? lsts4719 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? lsts4747 0 -o|contracted procedure: k41813 -(o x)|known list op on rest arg sublist: ##core#rest-car loc4949 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc4953 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc4956 0 -(o x)|known list op on rest arg sublist: ##core#rest-car loc4959 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest51945195 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest51945195 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest52845287 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest52845287 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest53425344 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest53425344 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest53975398 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest53975398 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest54105411 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest54105411 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest54425443 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest54425443 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest54535454 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest54535454 0 -o|contracted procedure: k26235 -o|inlining procedure: k26412 -o|contracted procedure: k27736 -o|contracted procedure: k27833 -o|contracted procedure: k28402 -(o x)|known list op on rest arg sublist: ##core#rest-null? xs5942 0 -(o x)|known list op on rest arg sublist: ##core#rest-car xs5942 0 -o|contracted procedure: k28569 -(o x)|known list op on rest arg sublist: ##core#rest-null? xs5989 0 -(o x)|known list op on rest arg sublist: ##core#rest-car xs5989 0 -o|contracted procedure: k28649 -(o x)|known list op on rest arg sublist: ##core#rest-null? xs5997 0 -(o x)|known list op on rest arg sublist: ##core#rest-car xs5997 0 -o|contracted procedure: k28873 -(o x)|known list op on rest arg sublist: ##core#rest-null? xs6059 0 -(o x)|known list op on rest arg sublist: ##core#rest-car xs6059 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest61986200 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest61986200 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest62116212 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest62116212 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest62216223 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest62216223 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest62336235 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest62336235 0 -o|inlining procedure: k29905 -o|inlining procedure: k29905 -o|inlining procedure: "(library.scm:5420) specialchar?6324" -o|inlining procedure: "(library.scm:5442) specialchar?6324" -o|contracted procedure: k30255 -o|contracted procedure: k30270 -o|inlining procedure: "(library.scm:5446) specialchar?6324" -o|inlining procedure: k41297 -o|inlining procedure: k41297 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest67296734 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest67296734 0 -o|contracted procedure: k31445 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest68326833 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest68326833 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest68326833 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest68326833 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest69026903 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest69026903 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest69026903 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest69026903 0 -o|inlining procedure: k32488 -o|inlining procedure: k32488 -o|contracted procedure: k33318 -(o x)|known list op on rest arg sublist: ##core#rest-null? args7434 0 -(o x)|known list op on rest arg sublist: ##core#rest-car args7434 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? _%rest74387490 1 -(o x)|known list op on rest arg sublist: ##core#rest-car _%rest74387490 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr _%rest74387490 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest75037506 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest75037506 0 -(o x)|known list op on rest arg sublist: ##core#rest-car args7524 0 -(o x)|known list op on rest arg sublist: ##core#rest-car args7524 0 -(o x)|known list op on rest arg sublist: ##core#rest-car args7524 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest76607662 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest76607662 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest82248225 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest82248225 0 -(o x)|known list op on rest arg sublist: ##core#rest-car arg8313 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest84258428 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest84258428 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest85838584 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest85838584 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest86068607 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest86068607 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest88938895 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest88938895 0 -o|inlining procedure: k37838 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest89318933 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest89318933 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest89318933 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest89318933 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest89658967 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest89658967 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest89658967 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest89658967 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? more8998 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? more9124 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? more9247 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? more9374 0 -(o x)|known list op on rest arg sublist: ##core#rest-length rvar95109519 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rvar95109519 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rvar95109519 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest95309532 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest95309532 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest95309532 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest95309532 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest95729573 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest95729573 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest95729573 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest95729573 0 -(o x)|known list op on rest arg sublist: ##core#rest-car args9598 0 -o|inlining procedure: k39455 -o|inlining procedure: k39455 -(o x)|known list op on rest arg sublist: ##core#rest-cdr args9598 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest96369637 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest96369637 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest96369637 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest96369637 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest97449747 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest97449747 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest97449747 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest97449747 0 -o|contracted procedure: k39906 -o|inlining procedure: k39897 -o|inlining procedure: k39897 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest97699771 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest97699771 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest97699771 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest97699771 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest98339834 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest98339834 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest98339834 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest98339834 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest98519852 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest98519852 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest98519852 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest98519852 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest98819882 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest98819882 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? port9892 0 -(o x)|known list op on rest arg sublist: ##core#rest-car port9892 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest99099910 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest99099910 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest99239925 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest99239925 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest99409942 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest99409942 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest99409942 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest99409942 0 -o|inlining procedure: k40798 -o|inlining procedure: k40826 -o|inlining procedure: k40887 -o|inlining procedure: k40887 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest69596960 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest69596960 0 -o|replaced variables: 4 -o|removed binding forms: 21 -o|substituted constant variable: r1349248634 -(o x)|known list op on rest arg sublist: ##core#rest-null? r13628 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r13628 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r13628 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r13628 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15347 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r15347 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15347 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r15347 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15551 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r15551 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15551 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r15551 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15670 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r15670 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15670 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r15670 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15745 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r15745 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r15745 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r15745 1 -o|substituted constant variable: r2127848700 -o|substituted constant variable: r2127848700 -o|substituted constant variable: r2127848701 -o|substituted constant variable: r2127848701 -o|substituted constant variable: r2137348704 -o|substituted constant variable: r2137348704 -o|substituted constant variable: r2137348705 -o|substituted constant variable: r2137348705 -o|substituted constant variable: r2137348706 -o|substituted constant variable: r2137348706 -(o x)|known list op on rest arg sublist: ##core#rest-null? r21968 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r21968 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r21968 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r21968 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r22720 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r22720 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r22720 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r22720 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r22801 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r22801 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r22801 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r22801 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23022 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r23022 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23022 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r23022 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23114 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r23114 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23114 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r23114 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23195 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r23195 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23195 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r23195 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23302 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r23302 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r23302 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r23302 1 -o|removed side-effect free assignment to unused variable: specialchar?6324 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31667 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r31667 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31667 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r31667 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31926 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r31926 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31926 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r31926 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r37910 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r37910 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r37910 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r37910 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r38014 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r38014 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r38014 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r38014 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39154 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r39154 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39154 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39154 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39258 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r39258 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39258 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39258 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39517 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r39517 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39517 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39517 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39879 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r39879 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39879 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39879 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39954 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r39954 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39954 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39954 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40156 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r40156 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40156 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r40156 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40207 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r40207 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40207 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r40207 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40429 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r40429 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40429 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r40429 1 -o|substituted constant variable: r4088849042 -o|replaced variables: 10 -o|removed binding forms: 22 -o|removed conditional forms: 6 -o|inlining procedure: k30109 -o|inlining procedure: k30211 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31932 2 -(o x)|known list op on rest arg sublist: ##core#rest-car r31932 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31932 2 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r31932 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39160 2 -(o x)|known list op on rest arg sublist: ##core#rest-car r39160 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39160 2 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39160 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39264 2 -(o x)|known list op on rest arg sublist: ##core#rest-car r39264 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39264 2 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39264 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39960 2 -(o x)|known list op on rest arg sublist: ##core#rest-car r39960 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r39960 2 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r39960 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40435 2 -(o x)|known list op on rest arg sublist: ##core#rest-car r40435 2 -(o x)|known list op on rest arg sublist: ##core#rest-null? r40435 2 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r40435 2 -o|removed binding forms: 61 -o|contracted procedure: k30292 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31938 3 -(o x)|known list op on rest arg sublist: ##core#rest-car r31938 3 -(o x)|known list op on rest arg sublist: ##core#rest-null? r31938 3 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r31938 3 -o|removed binding forms: 12 -o|removed binding forms: 2 -o|direct leaf routine/allocation: loop26 0 -o|direct leaf routine/allocation: loop39 0 -o|direct leaf routine/allocation: loop206 0 -o|direct leaf routine/allocation: loop218 0 -o|direct leaf routine/allocation: loop381 0 -o|direct leaf routine/allocation: loop395 0 -o|direct leaf routine/allocation: loop409 0 -o|direct leaf routine/allocation: loop423 0 -o|direct leaf routine/allocation: loop437 0 -o|direct leaf routine/allocation: loop996 0 -o|direct leaf routine/allocation: doloop20482049 0 -o|direct leaf routine/allocation: doloop21062107 0 -o|direct leaf routine/allocation: doloop21122113 0 -o|direct leaf routine/allocation: ratnum 21 -o|direct leaf routine/allocation: go-inexact!3518 0 -o|direct leaf routine/allocation: loop4169 0 -o|direct leaf routine/allocation: loop4257 0 -o|direct leaf routine/allocation: loop4290 0 -o|direct leaf routine/allocation: doloop43374338 0 -o|direct leaf routine/allocation: doloop43684369 0 -o|direct leaf routine/allocation: doloop44094410 0 -o|direct leaf routine/allocation: doloop44154416 0 -o|direct leaf routine/allocation: foldl44914496 0 -o|direct leaf routine/allocation: for-each-loop44344452 0 -o|direct leaf routine/allocation: doloop45284529 0 -o|direct leaf routine/allocation: doloop45564557 0 -o|direct leaf routine/allocation: loop4652 0 -o|direct leaf routine/allocation: body49644973 0 -o|direct leaf routine/allocation: def-set?49674976 0 -o|direct leaf routine/allocation: def-convert?49664978 0 -o|direct leaf routine/allocation: body49894998 0 -o|direct leaf routine/allocation: def-set?49925001 0 -o|direct leaf routine/allocation: def-convert?49915003 0 -o|direct leaf routine/allocation: body50145023 0 -o|direct leaf routine/allocation: def-set?50175026 0 -o|direct leaf routine/allocation: def-convert?50165028 0 -o|direct leaf routine/allocation: register-shared!5510 6 -o|direct leaf routine/allocation: complain5601 0 -o|direct leaf routine/allocation: body71677176 0 -o|direct leaf routine/allocation: def-set?71707179 0 -o|direct leaf routine/allocation: def-convert?71697181 0 -o|direct leaf routine/allocation: for-each-loop72117222 0 -o|direct leaf routine/allocation: loop8440 0 -o|direct leaf routine/allocation: doloop89508951 0 -o|direct leaf routine/allocation: g90919100 0 -o|direct leaf routine/allocation: foldl90439074 0 -o|direct leaf routine/allocation: for-each-loop90139031 0 -o|direct leaf routine/allocation: g92149223 0 -o|direct leaf routine/allocation: foldl91669197 0 -o|direct leaf routine/allocation: for-each-loop91369154 0 -o|direct leaf routine/allocation: g93429351 0 -o|direct leaf routine/allocation: foldl92949325 0 -o|direct leaf routine/allocation: for-each-loop92649282 0 -o|direct leaf routine/allocation: g94689477 0 -o|direct leaf routine/allocation: foldl94209451 0 -o|direct leaf routine/allocation: for-each-loop93909408 0 -o|direct leaf routine/allocation: finish9700 0 -o|direct leaf routine/allocation: for-each-loop86488659 0 -o|converted assignments to bindings: (loop26) -o|converted assignments to bindings: (loop39) -o|converted assignments to bindings: (loop206) -o|converted assignments to bindings: (loop218) -o|converted assignments to bindings: (loop381) -o|converted assignments to bindings: (loop395) -o|converted assignments to bindings: (loop409) -o|converted assignments to bindings: (loop423) -o|converted assignments to bindings: (loop437) -o|converted assignments to bindings: (loop996) -o|converted assignments to bindings: (doloop20482049) -o|converted assignments to bindings: (doloop21062107) -o|converted assignments to bindings: (doloop21122113) -o|contracted procedure: "(library.scm:3059) k20601" -o|contracted procedure: "(library.scm:3101) k20909" -o|contracted procedure: "(library.scm:3106) k20934" -o|contracted procedure: "(library.scm:3113) k20980" -o|contracted procedure: "(library.scm:3151) k21312" -o|contracted procedure: "(library.scm:3161) k21399" -o|converted assignments to bindings: (loop4169) -o|converted assignments to bindings: (loop4257) -o|converted assignments to bindings: (loop4290) -o|converted assignments to bindings: (doloop43374338) -o|converted assignments to bindings: (doloop43684369) -o|converted assignments to bindings: (doloop44094410) -o|converted assignments to bindings: (doloop44154416) -o|contracted procedure: k23476 -o|contracted procedure: k23528 -o|converted assignments to bindings: (foldl44914496) -o|converted assignments to bindings: (for-each-loop44344452) -o|converted assignments to bindings: (doloop45284529) -o|converted assignments to bindings: (doloop45564557) -o|converted assignments to bindings: (loop4652) -o|inlining procedure: "(library.scm:4145) k24767" -o|inlining procedure: "(library.scm:4145) k24767" -o|inlining procedure: "(library.scm:4155) k24828" -o|inlining procedure: "(library.scm:4155) k24828" -o|inlining procedure: "(library.scm:4165) k24889" -o|inlining procedure: "(library.scm:4165) k24889" -o|contracted procedure: "(library.scm:4696) k26618" -o|contracted procedure: "(library.scm:4708) k26665" -o|contracted procedure: "(library.scm:5094) k28538" -o|inlining procedure: "(library.scm:6142) k32691" -o|inlining procedure: "(library.scm:6142) k32691" -o|contracted procedure: k32813 -o|converted assignments to bindings: (for-each-loop72117222) -o|contracted procedure: k36694 -o|converted assignments to bindings: (loop8440) -o|converted assignments to bindings: (doloop89508951) -o|contracted procedure: k38190 -o|contracted procedure: k38202 -o|contracted procedure: "(library.scm:7786) k38270" -o|converted assignments to bindings: (foldl90439074) -o|converted assignments to bindings: (for-each-loop90139031) -o|contracted procedure: k38416 -o|contracted procedure: k38428 -o|contracted procedure: "(library.scm:7805) k38492" -o|converted assignments to bindings: (foldl91669197) -o|converted assignments to bindings: (for-each-loop91369154) -o|contracted procedure: k38645 -o|contracted procedure: k38657 -o|contracted procedure: "(library.scm:7825) k38725" -o|converted assignments to bindings: (foldl92949325) -o|converted assignments to bindings: (for-each-loop92649282) -o|contracted procedure: k38871 -o|contracted procedure: k38883 -o|contracted procedure: "(library.scm:7844) k38947" -o|converted assignments to bindings: (foldl94209451) -o|converted assignments to bindings: (for-each-loop93909408) -o|contracted procedure: k40695 -o|converted assignments to bindings: (for-each-loop86488659) -o|simplifications: ((let . 37)) -o|removed binding forms: 26 -o|contracted procedure: "(library.scm:4145) k24767" -o|contracted procedure: "(library.scm:4155) k24828" -o|contracted procedure: "(library.scm:4165) k24889" -o|contracted procedure: "(library.scm:6142) k32691" -o|removed binding forms: 4 -x|number of unboxed float variables: 0 -x|number of inline operations replaced with unboxed ones: 70 -o|customizable procedures: (cleanup-before-exit g71047111 for-each-loop71037115 for-each-loop70787090 loop8126 k37087 map-loop86908707 check8731 k37473 k37476 k37479 k37482 loop9899 loop9808 loop9713 readb9699 recount9723 loop9674 loop9648 k39363 loop9615 g96109611 doloop95869587 k39174 k39177 map-loop94279444 map-loop94629487 doloop94579458 doloop93809381 map-loop93019318 map-loop93369361 doloop93319332 doloop92549255 map-loop91739190 map-loop92089233 doloop92039204 lp9129 map-loop90509067 map-loop90859110 doloop90809081 loop9004 v->s8978 loop8984 s->v8944 lp8924 doloop89118912 doloop89018902 map-loop88658883 loop8805 map-loop87738790 loop8797 for-each-loop87508762 loop8625 str8595 pmem8489 round-to8488 pnum8487 k36765 loop8465 loop8304 doloop82768277 for-each-loop82448254 for-each-loop82028216 doloop81158116 scan8098 loop8095 read-escaped-sexp7909 get/clear-str7969 loop7980 loop28003 readln7908 doloop79477956 loop7923 doloop79127913 loop7887 again7859 loop7754 loop7728 def-port74397488 def-header74407486 body74377446 g74607461 writeargs7411 g74177424 for-each-loop74167428 g73527361 map-loop73467371 loop7364 map-loop72897307 map-loop73167333 map-loop72297247 map-loop72567274 chicken.condition#prop-list->kind-prefixed-prop-list k32741 loop7192 k32249 k32252 k32272 for-each-loop70107022 for-each-loop69316942 loop6927 g68726879 for-each-loop68716892 k31861 k31705 loop6852 g68036810 for-each-loop68026813 k31425 conc16745 conc6744 getline6746 loop6760 grow6743 k41227 doloop65316532 doloop65026503 out6434 doloop64716472 outsym6325 g64506451 loop6406 k30202 loop6371 outchr6323 sym-is-readable?6327 outreadablesym6326 outstr6321 outstr06322 for-each-loop62806298 for-each-loop62486266 k29529 loop26170 loop6160 retry6164 k29322 fail6122 unthunkify!5512 r-symbol5563 k28946 r-ext-symbol5567 r-comment5566 r-char5565 r-vector5557 r-number-with-radix5560 r-number-with-exactness5559 r-digits5562 g59865987 r-quote5568 loop5922 r-token5561 k28230 k28077 k27792 k27810 r-string5555 loop5831 k27816 k27846 loop5811 k27674 read-unreserved-char-05509 loop5796 r-number5558 r-list5556 k27259 k27302 r-xtoken5564 loop5704 readrec5513 r-spaces5552 starting-line5699 info5506 k26916 k26936 k27040 eat-ws5669 r-usequence5553 r-xsequence5554 loop5635 k26639 loop5609 parse5600 abort5602 loop5586 skip-to-eol5507 loop5571 doloop55455546 loop!5537 unthunk5511 reserved-character5508 skip5518 k25806 def-convert?53715383 def-set?53725381 body53695378 assign5353 k25776 loop5229 loop5210 doloop52175218 close5045 open5044 k25051 k25061 doloop50535054 k41913 loop4918 k41806 loop4899 ##sys#dynamic-unwind loop4774 map-loop47504767 loop4737 for-each-loop47224732 lp4709 loop4695 loop4684 lookup-char4648 loop4633 loop4616 loop4599 loop4582 loop4565 ##sys#vector-resize map-loop44604477 doloop45014502 copy!4399 copy4362 loop4312 loop4253 k22827 k22743 loop4083 loop4075 map-loop39994018 compare-slots3918 loop3930 walk3919 ##sys#string->compnum scan-prefix3853 scan-real3747 k21254 k21309 scan-ureal3677 k20906 k20977 scan-decimal-tail3604 scan-digits+hashes3571 k20706 k20718 scan-exponent3591 k20745 safe-exponent3519 k20647 scan-digits3544 scan-hashes3563 lp3565 k20492 lp3546 round-quotient k20224 loop3420 loop3410 k19766 slow-expt3342 log-expt3341 lp3326 k19411 lp3314 k18840 k18846 k18778 k18784 loop3110 loop3098 find-ratio-between sr3075 ##sys#internal-gcd loop2933 deliver2867 doloop28692870 make-complex k16570 doloop22982299 loop2291 loop2267 compare2198 loop2207 compare2142 loop2151 k15912 k15919 k15682 k15566 loop2006 loop1993 loop1982 loop1953 k15160 loop1795 copy1785 loop1783 k14676 lp1656 fail1334 add1303 k13945 loop1165 loop1150 k13636 loop1113 loop1091 k13437 loop1051 loop1037 loop1022 loop1014 loop1008 loop978 loop963 loop952 loop922 loop910 loop867 loop858 loop184 loop161 loop134) -o|calls to known targets: 1062 -o|identified direct recursive calls: f_11471 2 -o|identified direct recursive calls: f_11516 2 -o|identified direct recursive calls: f_11848 1 -o|unused rest argument: rest152155 f_11887 -o|unused rest argument: rest175178 f_11937 -o|identified direct recursive calls: f_12008 2 -o|identified direct recursive calls: f_12041 2 -o|identified direct recursive calls: f_12193 2 -o|identified direct recursive calls: f_12232 2 -o|identified direct recursive calls: f_12271 2 -o|identified direct recursive calls: f_12310 2 -o|identified direct recursive calls: f_12349 2 -o|unused rest argument: env525 f_12527 -o|unused rest argument: evaluator532 f_12551 -o|unused rest argument: _830 f_12672 -o|identified direct recursive calls: f_12759 1 -o|unused rest argument: rest880881 f_12797 -o|unused rest argument: rest893894 f_12815 -o|unused rest argument: _934 f_12918 -o|unused rest argument: _935 f_12920 -o|unused rest argument: _976 f_13075 -o|identified direct recursive calls: f_13144 1 -o|identified direct recursive calls: f_13169 1 -o|identified direct recursive calls: f_13205 1 -o|identified direct recursive calls: f_13234 2 -o|identified direct recursive calls: f_13281 1 -o|identified direct recursive calls: f_13335 2 -o|identified direct recursive calls: f_13477 1 -o|unused rest argument: rest10741078 f_13432 -o|unused rest argument: rest11031107 f_13518 -o|unused rest argument: rest11291132 f_13622 -o|identified direct recursive calls: f_14629 1 -o|unused rest argument: rest16821684 f_14745 -o|unused rest argument: rest16951697 f_14761 -o|unused rest argument: rest17081710 f_14777 -o|unused rest argument: rest17211723 f_14793 -o|unused rest argument: rest17341736 f_14809 -o|unused rest argument: rest17471749 f_14825 -o|unused rest argument: rest17601762 f_14841 -o|unused rest argument: rest17731775 f_14857 -o|identified direct recursive calls: f_14904 1 -o|identified direct recursive calls: f_14958 1 -o|unused rest argument: rest18031805 f_14982 -o|unused rest argument: rest18151817 f_14997 -o|identified direct recursive calls: f_15375 1 -o|unused rest argument: rest19681970 f_15341 -o|identified direct recursive calls: f_15450 1 -o|identified direct recursive calls: f_15503 1 -o|identified direct recursive calls: f_15591 1 -o|unused rest argument: rest20232026 f_15545 -o|unused rest argument: rest20592061 f_15664 -o|identified direct recursive calls: f_15788 1 -o|identified direct recursive calls: f_15822 1 -o|unused rest argument: rest20862090 f_15739 -o|identified direct recursive calls: f_15971 1 -o|identified direct recursive calls: f_16129 1 -o|identified direct recursive calls: f_16310 1 -o|identified direct recursive calls: f_16410 1 -o|unused rest argument: rest26962697 f_17250 -o|identified direct recursive calls: f_18291 1 -o|identified direct recursive calls: f_18473 1 -o|identified direct recursive calls: f_18517 1 -o|unused rest argument: rest31413143 f_18648 -o|unused rest argument: rest31813183 f_18874 -o|identified direct recursive calls: f_19558 2 -o|identified direct recursive calls: f_20434 1 -o|identified direct recursive calls: f_20538 1 -o|identified direct recursive calls: f_21730 6 -o|unused rest argument: rest38433845 f_21713 -o|unused rest argument: rest38993901 f_21962 -o|identified direct recursive calls: f_22079 1 -o|unused rest argument: rest40474050 f_22421 -o|identified direct recursive calls: f_22465 1 -o|identified direct recursive calls: f_22498 1 -o|unused rest argument: rest40984100 f_22525 -o|unused rest argument: rest41324134 f_22586 -o|identified direct recursive calls: f_22693 1 -o|unused rest argument: rest41844186 f_22714 -o|unused rest argument: rest42184222 f_22795 -o|identified direct recursive calls: f_22898 1 -o|identified direct recursive calls: f_22883 1 -o|identified direct recursive calls: f_22985 1 -o|identified direct recursive calls: f_23046 1 -o|unused rest argument: rest42984300 f_23016 -o|identified direct recursive calls: f_23138 1 -o|unused rest argument: rest43224325 f_23108 -o|identified direct recursive calls: f_23224 1 -o|unused rest argument: rest43494351 f_23189 -o|identified direct recursive calls: f_23357 1 -o|identified direct recursive calls: f_23391 1 -o|unused rest argument: rest43844388 f_23296 -o|identified direct recursive calls: f_23590 1 -o|identified direct recursive calls: f_23532 1 -o|identified direct recursive calls: f_23556 1 -o|identified direct recursive calls: f_23643 1 -o|unused rest argument: rest45124515 f_23613 -o|unused rest argument: rest45394542 f_23676 -o|identified direct recursive calls: f_23709 1 -o|identified direct recursive calls: f_23974 1 -o|identified direct recursive calls: f_24556 1 -o|identified direct recursive calls: f_41817 1 -o|identified direct recursive calls: f_24996 3 -o|unused rest argument: rest51945195 f_25392 -o|identified direct recursive calls: f_25445 1 -o|unused rest argument: rest52845287 f_25614 -o|unused rest argument: rest53425344 f_25766 -o|unused rest argument: rest53975398 f_25930 -o|unused rest argument: rest54105411 f_25955 -o|unused rest argument: rest54425443 f_26067 -o|unused rest argument: rest54535454 f_26085 -o|identified direct recursive calls: f_26326 1 -o|unused rest argument: xs5942 f_28418 -o|unused rest argument: xs5989 f_28591 -o|unused rest argument: xs5997 f_28665 -o|unused rest argument: xs6059 f_29045 -o|identified direct recursive calls: f_29482 1 -o|unused rest argument: rest61986200 f_29616 -o|unused rest argument: rest62116212 f_29637 -o|unused rest argument: rest62216223 f_29652 -o|unused rest argument: rest62336235 f_29670 -o|identified direct recursive calls: f_30129 1 -o|unused rest argument: rest67296734 f_31288 -o|unused rest argument: rest68326833 f_31661 -o|unused rest argument: rest69026903 f_31920 -o|unused rest argument: args6975 f_32146 -o|identified direct recursive calls: f_32920 1 -o|identified direct recursive calls: f_32840 1 -o|identified direct recursive calls: f_32886 1 -o|identified direct recursive calls: f_32962 1 -o|identified direct recursive calls: f_33076 2 -o|unused rest argument: args7434 f_33302 -o|unused rest argument: rest75037506 f_33493 -o|unused rest argument: rest76607662 f_34551 -o|unused rest argument: _7833 f_34917 -o|identified direct recursive calls: f_35110 1 -o|identified direct recursive calls: f_35451 1 -o|identified direct recursive calls: f_35791 1 -o|unused rest argument: rest82248225 f_36054 -o|unused rest argument: rest84258428 f_36668 -o|identified direct recursive calls: f_36712 1 -o|identified direct recursive calls: f_36779 1 -o|unused rest argument: rest85838584 f_37091 -o|unused rest argument: rest86068607 f_37232 -o|identified direct recursive calls: f_37283 1 -o|identified direct recursive calls: f_37557 2 -o|identified direct recursive calls: f_37783 1 -o|unused rest argument: rest88938895 f_37768 -o|identified direct recursive calls: f_37827 1 -o|identified direct recursive calls: f_37877 1 -o|identified direct recursive calls: f_37939 1 -o|unused rest argument: rest89318933 f_37904 -o|identified direct recursive calls: f_38043 1 -o|unused rest argument: rest89658967 f_38008 -o|identified direct recursive calls: f_38339 1 -o|identified direct recursive calls: f_38281 1 -o|identified direct recursive calls: f_38247 1 -o|identified direct recursive calls: f_38305 1 -o|identified direct recursive calls: f_38561 1 -o|identified direct recursive calls: f_38503 1 -o|identified direct recursive calls: f_38469 1 -o|identified direct recursive calls: f_38527 1 -o|identified direct recursive calls: f_38794 1 -o|identified direct recursive calls: f_38736 1 -o|identified direct recursive calls: f_38702 1 -o|identified direct recursive calls: f_38760 1 -o|identified direct recursive calls: f_39016 1 -o|identified direct recursive calls: f_38958 1 -o|identified direct recursive calls: f_38924 1 -o|identified direct recursive calls: f_38982 1 -o|unused rest argument: rvar95109519 f_39098 -o|unused rest argument: rest95309532 f_39148 -o|unused rest argument: rest95729573 f_39252 -o|unused rest argument: rest96369637 f_39511 -o|unused rest argument: rest97449747 f_39873 -o|unused rest argument: rest97699771 f_39948 -o|unused rest argument: rest98339834 f_40150 -o|unused rest argument: rest98519852 f_40201 -o|unused rest argument: rest98819882 f_40281 -o|unused rest argument: port9892 f_40309 -o|unused rest argument: rest99099910 f_40365 -o|unused rest argument: rest99239925 f_40392 -o|unused rest argument: rest99409942 f_40423 -o|identified direct recursive calls: f_40699 1 -o|unused rest argument: args7068 f_41090 -o|unused rest argument: rest69596960 f_41108 -o|fast box initializations: 227 -o|fast global references: 103 -o|fast global assignments: 24 -o|dropping unused closure argument: f_12008 -o|dropping unused closure argument: f_12041 -o|dropping unused closure argument: f_12193 -o|dropping unused closure argument: f_12232 -o|dropping unused closure argument: f_12271 -o|dropping unused closure argument: f_12310 -o|dropping unused closure argument: f_12349 -o|dropping unused closure argument: f_15949 -o|dropping unused closure argument: f_16107 -o|dropping unused closure argument: f_17268 -o|dropping unused closure argument: f_17448 -o|dropping unused closure argument: f_18291 -o|dropping unused closure argument: f_19600 -o|dropping unused closure argument: f_19614 -o|dropping unused closure argument: f_19864 -o|dropping unused closure argument: f_20287 -o|dropping unused closure argument: f_20330 -o|dropping unused closure argument: f_23206 -o|dropping unused closure argument: f_23316 -o|dropping unused closure argument: f_23532 -o|dropping unused closure argument: f_23590 -o|dropping unused closure argument: f_23697 -o|dropping unused closure argument: f_24556 -o|dropping unused closure argument: f_24946 -o|dropping unused closure argument: f_25176 -o|dropping unused closure argument: f_29879 -o|dropping unused closure argument: f_32033 -o|dropping unused closure argument: f_32721 -o|dropping unused closure argument: f_32920 -o|dropping unused closure argument: f_33257 -o|dropping unused closure argument: f_35154 -o|dropping unused closure argument: f_35201 -o|dropping unused closure argument: f_36838 -o|dropping unused closure argument: f_36852 -o|dropping unused closure argument: f_37112 -o|dropping unused closure argument: f_37442 -o|dropping unused closure argument: f_37918 -o|dropping unused closure argument: f_38022 -o|dropping unused closure argument: f_38281 -o|dropping unused closure argument: f_38339 -o|dropping unused closure argument: f_38503 -o|dropping unused closure argument: f_38561 -o|dropping unused closure argument: f_38736 -o|dropping unused closure argument: f_38794 -o|dropping unused closure argument: f_38958 -o|dropping unused closure argument: f_39016 -o|dropping unused closure argument: f_40699 -*/ -/* end of file */ diff --git a/chicken/src/modules.c b/chicken/src/modules.c deleted file mode 100644 index da8e265..0000000 --- a/chicken/src/modules.c +++ /dev/null @@ -1,20955 +0,0 @@ -/* Generated from modules.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: modules.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file modules.c - unit: modules - uses: chicken-syntax extras data-structures expand internal library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_chicken_2dsyntax_toplevel) -C_extern void C_ccall C_chicken_2dsyntax_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_extras_toplevel) -C_extern void C_ccall C_extras_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_data_2dstructures_toplevel) -C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_expand_toplevel) -C_extern void C_ccall C_expand_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_internal_toplevel) -C_extern void C_ccall C_internal_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[319]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,19),40,100,101,108,101,116,101,32,120,32,108,115,116,32,116,101,115,116,41,0,0,0,0,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,6),40,103,51,53,52,41,0,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,10),40,103,51,52,52,32,120,32,114,41,0,0,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,15),40,102,111,108,100,114,51,51,57,32,103,51,52,48,41,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,21),40,102,105,108,116,101,114,45,109,97,112,32,112,114,101,100,32,108,115,116,41,0,0,0}; -static C_char li6[] C_aligned={C_lihdr(0,0,199),40,37,109,97,107,101,45,109,111,100,117,108,101,32,108,105,98,114,97,114,121,32,101,120,112,111,114,116,45,108,105,115,116,32,100,101,102,105,110,101,100,45,108,105,115,116,32,101,120,105,115,116,45,108,105,115,116,32,100,101,102,105,110,101,100,45,115,121,110,116,97,120,45,108,105,115,116,32,117,110,100,101,102,105,110,101,100,45,108,105,115,116,32,105,109,112,111,114,116,45,102,111,114,109,115,32,109,101,116,97,45,105,109,112,111,114,116,45,102,111,114,109,115,32,109,101,116,97,45,101,120,112,114,101,115,115,105,111,110,115,32,118,101,120,112,111,114,116,115,32,115,101,120,112,111,114,116,115,32,105,101,120,112,111,114,116,115,32,115,97,118,101,100,45,101,110,118,105,114,111,110,109,101,110,116,115,32,114,101,110,97,109,101,45,108,105,115,116,41,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,15),40,109,111,100,117,108,101,45,110,97,109,101,32,120,41,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,16),40,109,111,100,117,108,101,45,108,105,98,114,97,114,121,41}; -static C_char li9[] C_aligned={C_lihdr(0,0,20),40,109,111,100,117,108,101,45,101,120,112,111,114,116,45,108,105,115,116,41,0,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,29),40,115,101,116,45,109,111,100,117,108,101,45,101,120,112,111,114,116,45,108,105,115,116,33,32,120,32,121,41,0,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,21),40,109,111,100,117,108,101,45,100,101,102,105,110,101,100,45,108,105,115,116,41,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,30),40,115,101,116,45,109,111,100,117,108,101,45,100,101,102,105,110,101,100,45,108,105,115,116,33,32,120,32,121,41,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,19),40,109,111,100,117,108,101,45,101,120,105,115,116,45,108,105,115,116,41,0,0,0,0,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,28),40,115,101,116,45,109,111,100,117,108,101,45,101,120,105,115,116,45,108,105,115,116,33,32,120,32,121,41,0,0,0,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,28),40,109,111,100,117,108,101,45,100,101,102,105,110,101,100,45,115,121,110,116,97,120,45,108,105,115,116,41,0,0,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,37),40,115,101,116,45,109,111,100,117,108,101,45,100,101,102,105,110,101,100,45,115,121,110,116,97,120,45,108,105,115,116,33,32,120,32,121,41,0,0,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,25),40,109,111,100,117,108,101,45,117,110,100,101,102,105,110,101,100,45,108,105,115,116,32,120,41,0,0,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,32),40,115,101,116,45,109,111,100,117,108,101,45,117,110,100,101,102,105,110,101,100,45,108,105,115,116,33,32,120,32,121,41}; -static C_char li19[] C_aligned={C_lihdr(0,0,21),40,109,111,100,117,108,101,45,105,109,112,111,114,116,45,102,111,114,109,115,41,0,0,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,30),40,115,101,116,45,109,111,100,117,108,101,45,105,109,112,111,114,116,45,102,111,114,109,115,33,32,120,32,121,41,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,26),40,109,111,100,117,108,101,45,109,101,116,97,45,105,109,112,111,114,116,45,102,111,114,109,115,41,0,0,0,0,0,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,35),40,115,101,116,45,109,111,100,117,108,101,45,109,101,116,97,45,105,109,112,111,114,116,45,102,111,114,109,115,33,32,120,32,121,41,0,0,0,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,25),40,109,111,100,117,108,101,45,109,101,116,97,45,101,120,112,114,101,115,115,105,111,110,115,41,0,0,0,0,0,0,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,34),40,115,101,116,45,109,111,100,117,108,101,45,109,101,116,97,45,101,120,112,114,101,115,115,105,111,110,115,33,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,17),40,109,111,100,117,108,101,45,118,101,120,112,111,114,116,115,41,0,0,0,0,0,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,26),40,115,101,116,45,109,111,100,117,108,101,45,118,101,120,112,111,114,116,115,33,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,17),40,109,111,100,117,108,101,45,115,101,120,112,111,114,116,115,41,0,0,0,0,0,0,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,26),40,115,101,116,45,109,111,100,117,108,101,45,115,101,120,112,111,114,116,115,33,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,17),40,109,111,100,117,108,101,45,105,101,120,112,111,114,116,115,41,0,0,0,0,0,0,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,26),40,115,101,116,45,109,111,100,117,108,101,45,105,101,120,112,111,114,116,115,33,32,120,32,121,41,0,0,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,27),40,109,111,100,117,108,101,45,115,97,118,101,100,45,101,110,118,105,114,111,110,109,101,110,116,115,41,0,0,0,0,0}; -static C_char li32[] C_aligned={C_lihdr(0,0,36),40,115,101,116,45,109,111,100,117,108,101,45,115,97,118,101,100,45,101,110,118,105,114,111,110,109,101,110,116,115,33,32,120,32,121,41,0,0,0,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,20),40,109,111,100,117,108,101,45,114,101,110,97,109,101,45,108,105,115,116,41,0,0,0,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,29),40,115,101,116,45,109,111,100,117,108,101,45,114,101,110,97,109,101,45,108,105,115,116,33,32,120,32,121,41,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,24),40,35,35,115,121,115,35,109,111,100,117,108,101,45,101,120,112,111,114,116,115,32,109,41}; -static C_char li36[] C_aligned={C_lihdr(0,0,57),40,109,97,107,101,45,109,111,100,117,108,101,32,108,105,98,32,101,120,112,108,105,115,116,32,118,101,120,112,111,114,116,115,32,115,101,120,112,111,114,116,115,32,105,101,120,112,111,114,116,115,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,111,100,117,108,101,45,97,108,105,97,115,32,97,108,105,97,115,32,110,97,109,101,41}; -static C_char li38[] C_aligned={C_lihdr(0,0,7),40,97,53,53,57,48,41,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,7),40,97,53,54,48,55,41,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,7),40,97,53,54,49,51,41,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,18),40,109,97,112,45,108,111,111,112,57,56,50,32,103,57,57,52,41,0,0,0,0,0,0}; -static C_char li42[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,119,105,116,104,45,109,111,100,117,108,101,45,97,108,105,97,115,101,115,32,98,105,110,100,105,110,103,115,32,116,104,117,110,107,41,0,0,0,0,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,9),40,103,49,48,50,54,32,97,41,0,0,0,0,0,0,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,110,32,100,111,110,101,41,0,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,115,111,108,118,101,45,109,111,100,117,108,101,45,110,97,109,101,32,110,97,109,101,32,108,111,99,41,0,0,0,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,102,105,110,100,45,109,111,100,117,108,101,32,110,97,109,101,32,46,32,114,101,115,116,41,0}; -static C_char li47[] C_aligned={C_lihdr(0,0,9),40,103,49,48,54,52,32,109,41,0,0,0,0,0,0,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,25),40,35,35,115,121,115,35,115,119,105,116,99,104,45,109,111,100,117,108,101,32,109,111,100,41,0,0,0,0,0,0,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,7),40,103,49,48,57,55,41,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,7),40,103,49,48,56,49,41,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,48,56,48,32,103,49,48,56,55,41,0,0,0,0,0,0,0}; -static C_char li52[] C_aligned={C_lihdr(0,0,35),40,35,35,115,121,115,35,97,100,100,45,116,111,45,101,120,112,111,114,116,45,108,105,115,116,32,109,111,100,32,101,120,112,115,41,0,0,0,0,0}; -static C_char li53[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,49,49,51,32,103,49,49,50,53,41,0,0,0,0}; -static C_char li54[] C_aligned={C_lihdr(0,0,45),40,35,35,115,121,115,35,97,100,100,45,116,111,45,101,120,112,111,114,116,47,114,101,110,97,109,101,45,108,105,115,116,32,109,111,100,32,114,101,110,97,109,101,115,41,0,0,0}; -static C_char li55[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,116,111,112,108,101,118,101,108,45,100,101,102,105,110,105,116,105,111,110,45,104,111,111,107,32,115,121,109,32,114,101,110,97,109,101,100,32,101,120,112,111,114,116,101,100,63,41,0,0}; -static C_char li56[] C_aligned={C_lihdr(0,0,36),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,101,116,97,45,101,120,112,114,101,115,115,105,111,110,32,101,120,112,41,0,0,0,0}; -static C_char li57[] C_aligned={C_lihdr(0,0,30),40,99,104,101,99,107,45,102,111,114,45,114,101,100,101,102,32,115,121,109,32,101,110,118,32,115,101,110,118,41,0,0}; -static C_char li58[] C_aligned={C_lihdr(0,0,31),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,41,0}; -static C_char li59[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,115,121,110,116,97,120,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,32,118,97,108,41,0,0,0,0,0,0}; -static C_char li60[] C_aligned={C_lihdr(0,0,11),40,97,54,50,49,56,32,120,32,121,41,0,0,0,0,0}; -static C_char li61[] C_aligned={C_lihdr(0,0,40),40,35,35,115,121,115,35,117,110,114,101,103,105,115,116,101,114,45,115,121,110,116,97,120,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,41}; -static C_char li62[] C_aligned={C_lihdr(0,0,47),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,109,111,100,117,108,101,32,110,97,109,101,32,108,105,98,32,101,120,112,108,105,115,116,32,46,32,114,101,115,116,41,0}; -static C_char li63[] C_aligned={C_lihdr(0,0,9),40,103,49,51,48,48,32,101,41,0,0,0,0,0,0,0}; -static C_char li64[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,50,57,57,32,103,49,51,48,54,41,0,0,0,0,0,0,0}; -static C_char li65[] C_aligned={C_lihdr(0,0,11),40,108,112,32,115,101,32,115,101,50,41,0,0,0,0,0}; -static C_char li66[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,115,101,115,32,108,97,115,116,45,115,101,32,115,101,50,41,0,0}; -static C_char li67[] C_aligned={C_lihdr(0,0,15),40,109,101,114,103,101,45,115,101,32,115,101,115,42,41,0}; -static C_char li68[] C_aligned={C_lihdr(0,0,15),40,103,49,52,51,50,32,115,101,120,112,111,114,116,41,0}; -static C_char li69[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,55,57,32,103,49,52,57,49,41,0,0,0,0}; -static C_char li70[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,115,100,41,0,0,0,0,0,0,0}; -static C_char li71[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,52,50,54,32,103,49,52,51,56,41,0,0,0,0}; -static C_char li72[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,57,51,32,103,49,52,48,53,41,0,0,0,0}; -static C_char li73[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,51,51,53,32,103,49,51,52,55,41,0,0,0,0}; -static C_char li74[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li75[] C_aligned={C_lihdr(0,0,7),40,97,54,56,50,48,41,0}; -static C_char li76[] C_aligned={C_lihdr(0,0,13),40,97,54,56,50,54,32,46,32,116,109,112,41,0,0,0}; -static C_char li77[] C_aligned={C_lihdr(0,0,9),40,97,54,56,49,52,32,120,41,0,0,0,0,0,0,0}; -static C_char li78[] C_aligned={C_lihdr(0,0,53),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,32,99,111,109,112,105,108,101,45,109,111,100,101,41,0,0,0}; -static C_char li79[] C_aligned={C_lihdr(0,0,12),40,103,49,53,55,52,32,115,101,120,112,41,0,0,0,0}; -static C_char li80[] C_aligned={C_lihdr(0,0,12),40,103,49,53,56,52,32,110,101,120,112,41,0,0,0,0}; -static C_char li81[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,53,56,51,32,103,49,53,57,48,41,0,0,0,0,0,0,0}; -static C_char li82[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,53,55,51,32,103,49,53,56,48,41,0,0,0,0,0,0,0}; -static C_char li83[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,53,52,49,32,103,49,53,53,51,41,0,0,0,0}; -static C_char li84[] C_aligned={C_lihdr(0,0,10),40,97,55,54,48,53,32,115,101,41,0,0,0,0,0,0}; -static C_char li85[] C_aligned={C_lihdr(0,0,10),40,97,55,54,49,55,32,115,101,41,0,0,0,0,0,0}; -static C_char li86[] C_aligned={C_lihdr(0,0,75),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,99,111,109,112,105,108,101,100,45,109,111,100,117,108,101,32,110,97,109,101,32,108,105,98,32,105,101,120,112,111,114,116,115,32,118,101,120,112,111,114,116,115,32,115,101,120,112,111,114,116,115,32,46,32,114,101,115,116,41,0,0,0,0,0}; -static C_char li87[] C_aligned={C_lihdr(0,0,10),40,103,49,54,52,50,32,115,101,41,0,0,0,0,0,0}; -static C_char li88[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,54,51,54,32,103,49,54,52,56,41,0,0,0,0}; -static C_char li89[] C_aligned={C_lihdr(0,0,53),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,99,111,114,101,45,109,111,100,117,108,101,32,110,97,109,101,32,108,105,98,32,118,101,120,112,111,114,116,115,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li90[] C_aligned={C_lihdr(0,0,54),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,112,114,105,109,105,116,105,118,101,45,109,111,100,117,108,101,32,110,97,109,101,32,118,101,120,112,111,114,116,115,32,46,32,114,101,115,116,41,0,0}; -static C_char li91[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li92[] C_aligned={C_lihdr(0,0,30),40,102,105,110,100,45,101,120,112,111,114,116,32,115,121,109,32,109,111,100,32,105,110,100,105,114,101,99,116,41,0,0}; -static C_char li93[] C_aligned={C_lihdr(0,0,12),40,102,95,56,56,57,50,32,46,32,95,41,0,0,0,0}; -static C_char li94[] C_aligned={C_lihdr(0,0,12),40,108,110,45,62,110,117,109,32,108,110,41,0,0,0,0}; -static C_char li95[] C_aligned={C_lihdr(0,0,10),40,103,49,56,50,49,32,108,110,41,0,0,0,0,0,0}; -static C_char li96[] C_aligned={C_lihdr(0,0,11),40,103,49,55,57,52,32,108,111,99,41,0,0,0,0,0}; -static C_char li97[] C_aligned={C_lihdr(0,0,9),40,103,49,57,48,52,32,97,41,0,0,0,0,0,0,0}; -static C_char li98[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,57,48,51,32,103,49,57,49,48,41,0,0,0,0,0,0,0}; -static C_char li99[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,55,57,51,32,103,49,56,48,48,41,0,0,0,0,0,0,0}; -static C_char li100[] C_aligned={C_lihdr(0,0,15),40,103,49,55,50,54,32,105,100,46,108,111,99,115,41,0}; -static C_char li101[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,55,50,53,32,103,49,55,51,50,41,0,0,0,0,0,0,0}; -static C_char li102[] C_aligned={C_lihdr(0,0,9),40,108,112,32,108,111,99,115,41,0,0,0,0,0,0,0}; -static C_char li103[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,49,55,54,49,32,103,49,55,55,51,41,0,0,0,0}; -static C_char li104[] C_aligned={C_lihdr(0,0,40),40,114,101,112,111,114,116,45,117,110,114,101,115,111,108,118,101,100,45,105,100,101,110,116,105,102,105,101,114,115,32,117,110,107,110,111,119,110,115,41}; -static C_char li105[] C_aligned={C_lihdr(0,0,7),40,103,49,57,57,54,41,0}; -static C_char li106[] C_aligned={C_lihdr(0,0,9),40,103,50,48,53,49,32,109,41,0,0,0,0,0,0,0}; -static C_char li107[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,48,53,48,32,103,50,48,53,55,41,0,0,0,0,0,0,0}; -static C_char li108[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,48,49,53,32,103,50,48,50,55,41,0,0,0,0}; -static C_char li109[] C_aligned={C_lihdr(0,0,13),40,119,97,114,110,32,109,115,103,32,105,100,41,0,0,0}; -static C_char li110[] C_aligned={C_lihdr(0,0,9),40,103,49,50,54,50,32,97,41,0,0,0,0,0,0,0}; -static C_char li111[] C_aligned={C_lihdr(0,0,9),40,103,49,50,54,57,32,97,41,0,0,0,0,0,0,0}; -static C_char li112[] C_aligned={C_lihdr(0,0,16),40,108,111,111,112,50,32,105,101,120,112,111,114,116,115,41}; -static C_char li113[] C_aligned={C_lihdr(0,0,14),40,108,111,111,112,32,101,120,112,111,114,116,115,41,0,0}; -static C_char li114[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,49,57,57,53,32,103,50,48,48,50,41,0,0,0,0,0,0,0}; -static C_char li115[] C_aligned={C_lihdr(0,0,10),40,102,97,105,108,32,109,115,103,41,0,0,0,0,0,0}; -static C_char li116[] C_aligned={C_lihdr(0,0,11),40,105,100,45,115,116,114,105,110,103,41,0,0,0,0,0}; -static C_char li117[] C_aligned={C_lihdr(0,0,12),40,103,49,57,56,54,32,116,121,112,101,41,0,0,0,0}; -static C_char li118[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,120,108,41,0,0,0,0,0,0,0}; -static C_char li119[] C_aligned={C_lihdr(0,0,9),40,108,111,111,112,32,109,101,41,0,0,0,0,0,0,0}; -static C_char li120[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,121,109,115,41,0,0,0,0,0}; -static C_char li121[] C_aligned={C_lihdr(0,0,34),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,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li122[] C_aligned={C_lihdr(0,0,7),40,97,56,57,49,48,41,0}; -static C_char li123[] C_aligned={C_lihdr(0,0,7),40,97,56,57,54,54,41,0}; -static C_char li124[] C_aligned={C_lihdr(0,0,7),40,97,56,57,55,50,41,0}; -static C_char li125[] C_aligned={C_lihdr(0,0,30),40,35,35,115,121,115,35,119,105,116,104,45,101,110,118,105,114,111,110,109,101,110,116,32,116,104,117,110,107,41,0,0}; -static C_char li126[] C_aligned={C_lihdr(0,0,7),40,97,57,48,50,49,41,0}; -static C_char li127[] C_aligned={C_lihdr(0,0,7),40,97,57,48,50,54,41,0}; -static C_char li128[] C_aligned={C_lihdr(0,0,7),40,97,57,48,51,53,41,0}; -static C_char li129[] C_aligned={C_lihdr(0,0,7),40,97,57,48,49,53,41,0}; -static C_char li130[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,105,109,112,111,114,116,45,108,105,98,114,97,114,121,45,104,111,111,107,32,109,110,97,109,101,41,0,0,0,0,0,0,0}; -static C_char li131[] C_aligned={C_lihdr(0,0,36),40,102,105,110,100,45,109,111,100,117,108,101,47,105,109,112,111,114,116,45,108,105,98,114,97,114,121,32,108,105,98,32,108,111,99,41,0,0,0,0}; -static C_char li132[] C_aligned={C_lihdr(0,0,17),40,119,97,114,110,32,109,115,103,32,109,111,100,32,105,100,41,0,0,0,0,0,0,0}; -static C_char li133[] C_aligned={C_lihdr(0,0,9),40,116,111,115,116,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li134[] C_aligned={C_lihdr(0,0,7),40,103,50,50,49,50,41,0}; -static C_char li135[] C_aligned={C_lihdr(0,0,9),40,103,50,49,57,52,32,97,41,0,0,0,0,0,0,0}; -static C_char li136[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,49,56,56,32,103,50,50,48,48,41,0,0,0,0}; -static C_char li137[] C_aligned={C_lihdr(0,0,23),40,101,120,112,111,114,116,45,114,101,110,97,109,101,32,109,111,100,32,108,115,116,41,0}; -static C_char li138[] C_aligned={C_lihdr(0,0,21),40,109,111,100,117,108,101,45,105,109,112,111,114,116,115,32,110,97,109,101,41,0,0,0}; -static C_char li139[] C_aligned={C_lihdr(0,0,7),40,97,57,51,50,50,41,0}; -static C_char li140[] C_aligned={C_lihdr(0,0,10),40,103,50,50,55,57,32,105,100,41,0,0,0,0,0,0}; -static C_char li141[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,50,55,56,32,103,50,50,56,53,41,0,0,0,0,0,0,0}; -static C_char li142[] C_aligned={C_lihdr(0,0,9),40,103,50,50,57,57,32,97,41,0,0,0,0,0,0,0}; -static C_char li143[] C_aligned={C_lihdr(0,0,9),40,103,50,51,48,51,32,97,41,0,0,0,0,0,0,0}; -static C_char li144[] C_aligned={C_lihdr(0,0,22),40,108,111,111,112,32,105,100,115,32,118,32,115,32,109,105,115,115,105,110,103,41,0,0}; -static C_char li145[] C_aligned={C_lihdr(0,0,60),40,97,57,51,51,50,32,110,97,109,101,50,50,52,48,32,108,105,98,50,50,52,50,32,115,112,101,99,50,50,52,52,32,105,109,112,118,50,50,52,54,32,105,109,112,115,50,50,52,56,32,105,109,112,105,50,50,53,48,41,0,0,0,0}; -static C_char li146[] C_aligned={C_lihdr(0,0,7),40,97,57,52,55,50,41,0}; -static C_char li147[] C_aligned={C_lihdr(0,0,10),40,103,50,51,53,55,32,105,100,41,0,0,0,0,0,0}; -static C_char li148[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,51,53,54,32,103,50,51,54,51,41,0,0,0,0,0,0,0}; -static C_char li149[] C_aligned={C_lihdr(0,0,10),40,103,50,51,55,55,32,105,100,41,0,0,0,0,0,0}; -static C_char li150[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,115,32,105,109,112,115,32,115,32,105,100,115,41,0,0,0,0,0,0}; -static C_char li151[] C_aligned={C_lihdr(0,0,10),40,103,50,51,56,50,32,105,100,41,0,0,0,0,0,0}; -static C_char li152[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,118,32,105,109,112,118,32,118,32,105,100,115,41,0,0,0,0,0,0}; -static C_char li153[] C_aligned={C_lihdr(0,0,60),40,97,57,52,56,50,32,110,97,109,101,50,51,49,48,32,108,105,98,50,51,49,50,32,115,112,101,99,50,51,49,52,32,105,109,112,118,50,51,49,54,32,105,109,112,115,50,51,49,56,32,105,109,112,105,50,51,50,48,41,0,0,0,0}; -static C_char li154[] C_aligned={C_lihdr(0,0,7),40,97,57,54,53,53,41,0}; -static C_char li155[] C_aligned={C_lihdr(0,0,10),40,103,50,52,51,54,32,105,100,41,0,0,0,0,0,0}; -static C_char li156[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,52,51,53,32,103,50,52,52,50,41,0,0,0,0,0,0,0}; -static C_char li157[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,52,52,56,32,103,50,52,54,48,41,0,0,0,0}; -static C_char li158[] C_aligned={C_lihdr(0,0,9),40,103,50,52,56,50,32,97,41,0,0,0,0,0,0,0}; -static C_char li159[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,115,32,105,109,112,115,32,115,32,105,100,115,41,0,0,0,0,0,0}; -static C_char li160[] C_aligned={C_lihdr(0,0,9),40,103,50,52,56,55,32,97,41,0,0,0,0,0,0,0}; -static C_char li161[] C_aligned={C_lihdr(0,0,18),40,108,111,111,112,118,32,105,109,112,118,32,118,32,105,100,115,41,0,0,0,0,0,0}; -static C_char li162[] C_aligned={C_lihdr(0,0,60),40,97,57,54,54,53,32,110,97,109,101,50,51,56,57,32,108,105,98,50,51,57,49,32,115,112,101,99,50,51,57,51,32,105,109,112,118,50,51,57,53,32,105,109,112,115,50,51,57,55,32,105,109,112,105,50,51,57,57,41,0,0,0,0}; -static C_char li163[] C_aligned={C_lihdr(0,0,7),40,97,57,57,48,53,41,0}; -static C_char li164[] C_aligned={C_lihdr(0,0,12),40,114,101,110,97,109,101,32,105,109,112,41,0,0,0,0}; -static C_char li165[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,53,51,32,103,50,53,54,53,41,0,0,0,0}; -static C_char li166[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,53,50,55,32,103,50,53,51,57,41,0,0,0,0}; -static C_char li167[] C_aligned={C_lihdr(0,0,60),40,97,57,57,49,53,32,110,97,109,101,50,52,57,52,32,108,105,98,50,52,57,54,32,115,112,101,99,50,52,57,56,32,105,109,112,118,50,53,48,48,32,105,109,112,115,50,53,48,50,32,105,109,112,105,50,53,48,52,41,0,0,0,0}; -static C_char li168[] C_aligned={C_lihdr(0,0,9),40,111,117,116,101,114,32,120,41,0,0,0,0,0,0,0}; -static C_char li169[] C_aligned={C_lihdr(0,0,9),40,97,57,50,50,51,32,107,41,0,0,0,0,0,0,0}; -static C_char li170[] C_aligned={C_lihdr(0,0,34),40,35,35,115,121,115,35,100,101,99,111,109,112,111,115,101,45,105,109,112,111,114,116,32,120,32,114,32,99,32,108,111,99,41,0,0,0,0,0,0}; -static C_char li171[] C_aligned={C_lihdr(0,0,8),40,97,49,48,48,55,48,41}; -static C_char li172[] C_aligned={C_lihdr(0,0,50),40,97,49,48,48,55,54,32,110,97,109,101,50,54,48,54,32,95,50,54,48,56,32,115,112,101,99,50,54,49,48,32,118,50,54,49,50,32,115,50,54,49,52,32,105,50,54,49,54,41,0,0,0,0,0,0}; -static C_char li173[] C_aligned={C_lihdr(0,0,9),40,103,50,53,57,54,32,120,41,0,0,0,0,0,0,0}; -static C_char li174[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,53,57,53,32,103,50,54,48,50,41,0,0,0,0,0,0,0}; -static C_char li175[] C_aligned={C_lihdr(0,0,65),40,35,35,115,121,115,35,101,120,112,97,110,100,45,105,109,112,111,114,116,32,120,32,114,32,99,32,105,109,112,111,114,116,45,101,110,118,32,109,97,99,114,111,45,101,110,118,32,109,101,116,97,63,32,114,101,101,120,112,63,32,108,111,99,41,0,0,0,0,0,0,0}; -static C_char li176[] C_aligned={C_lihdr(0,0,11),40,103,50,54,53,55,32,105,109,112,41,0,0,0,0,0}; -static C_char li177[] C_aligned={C_lihdr(0,0,11),40,103,50,54,54,55,32,105,109,112,41,0,0,0,0,0}; -static C_char li178[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,51,56,32,103,50,55,53,48,41,0,0,0,0}; -static C_char li179[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,49,50,32,103,50,55,50,52,41,0,0,0,0}; -static C_char li180[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,57,50,32,103,50,56,48,52,41,0,0,0,0}; -static C_char li181[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,55,54,54,32,103,50,55,55,56,41,0,0,0,0}; -static C_char li182[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,54,54,32,103,50,54,55,51,41,0,0,0,0,0,0,0}; -static C_char li183[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,54,53,54,32,103,50,54,54,51,41,0,0,0,0,0,0,0}; -static C_char li184[] C_aligned={C_lihdr(0,0,69),40,35,35,115,121,115,35,105,109,112,111,114,116,32,115,112,101,99,32,118,115,118,32,118,115,115,32,118,115,105,32,105,109,112,111,114,116,45,101,110,118,32,109,97,99,114,111,45,101,110,118,32,109,101,116,97,63,32,114,101,101,120,112,63,32,108,111,99,41,0,0,0}; -static C_char li185[] C_aligned={C_lihdr(0,0,26),40,109,111,100,117,108,101,45,114,101,110,97,109,101,32,115,121,109,32,112,114,101,102,105,120,41,0,0,0,0,0,0}; -static C_char li186[] C_aligned={C_lihdr(0,0,9),40,103,49,50,48,52,32,97,41,0,0,0,0,0,0,0}; -static C_char li187[] C_aligned={C_lihdr(0,0,11),40,103,50,56,52,57,32,109,111,100,41,0,0,0,0,0}; -static C_char li188[] C_aligned={C_lihdr(0,0,13),40,109,114,101,110,97,109,101,32,115,121,109,41,0,0,0}; -static C_char li189[] C_aligned={C_lihdr(0,0,9),40,103,50,56,54,48,32,97,41,0,0,0,0,0,0,0}; -static C_char li190[] C_aligned={C_lihdr(0,0,42),40,35,35,115,121,115,35,97,108,105,97,115,45,103,108,111,98,97,108,45,104,111,111,107,32,115,121,109,32,97,115,115,105,103,110,32,119,104,101,114,101,41,0,0,0,0,0,0}; -static C_char li191[] C_aligned={C_lihdr(0,0,10),40,101,114,114,32,97,114,103,115,41,0,0,0,0,0,0}; -static C_char li192[] C_aligned={C_lihdr(0,0,12),40,105,102,97,99,101,32,110,97,109,101,41,0,0,0,0}; -static C_char li193[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,50,32,108,115,116,41,0,0,0,0,0}; -static C_char li194[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,120,112,115,41,0,0,0,0,0,0}; -static C_char li195[] C_aligned={C_lihdr(0,0,33),40,35,35,115,121,115,35,118,97,108,105,100,97,116,101,45,101,120,112,111,114,116,115,32,101,120,112,115,32,108,111,99,41,0,0,0,0,0,0,0}; -static C_char li196[] C_aligned={C_lihdr(0,0,46),40,35,35,115,121,115,35,114,101,103,105,115,116,101,114,45,102,117,110,99,116,111,114,32,110,97,109,101,32,102,97,114,103,115,32,102,101,120,112,115,32,98,111,100,121,41,0,0}; -static C_char li197[] C_aligned={C_lihdr(0,0,10),40,101,114,114,32,97,114,103,115,41,0,0,0,0,0,0}; -static C_char li198[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,50,57,51,56,32,103,50,57,53,48,41,0,0,0,0}; -static C_char li199[] C_aligned={C_lihdr(0,0,6),40,109,101,114,114,41,0,0}; -static C_char li200[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,50,32,102,97,115,41,0,0,0,0,0}; -static C_char li201[] C_aligned={C_lihdr(0,0,13),40,108,111,111,112,32,97,115,32,102,97,115,41,0,0,0}; -static C_char li202[] C_aligned={C_lihdr(0,0,43),40,35,35,115,121,115,35,105,110,115,116,97,110,116,105,97,116,101,45,102,117,110,99,116,111,114,32,110,97,109,101,32,102,110,97,109,101,32,97,114,103,115,41,0,0,0,0,0}; -static C_char li203[] C_aligned={C_lihdr(0,0,11),40,103,50,57,57,57,32,101,120,112,41,0,0,0,0,0}; -static C_char li204[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,50,48,32,103,51,48,51,50,41,0,0,0,0}; -static C_char li205[] C_aligned={C_lihdr(0,0,25),40,102,111,114,45,101,97,99,104,45,108,111,111,112,50,57,57,56,32,103,51,48,48,53,41,0,0,0,0,0,0,0}; -static C_char li206[] C_aligned={C_lihdr(0,0,46),40,109,97,116,99,104,45,102,117,110,99,116,111,114,45,97,114,103,117,109,101,110,116,32,110,97,109,101,32,109,110,97,109,101,32,101,120,112,115,32,102,110,97,109,101,41,0,0}; -static C_char li207[] C_aligned={C_lihdr(0,0,7),40,103,51,48,54,50,41,0}; -static C_char li208[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,48,53,54,32,103,51,48,54,56,41,0,0,0,0}; -static C_char li209[] C_aligned={C_lihdr(0,0,21),40,115,101,45,115,117,98,115,101,116,32,110,97,109,101,115,32,101,110,118,41,0,0,0}; -static C_char li210[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,109,111,100,117,108,101,35,109,111,100,117,108,101,45,101,110,118,105,114,111,110,109,101,110,116,32,109,110,97,109,101,32,46,32,114,101,115,116,41}; -static C_char li211[] C_aligned={C_lihdr(0,0,10),40,108,111,111,112,32,108,115,116,41,0,0,0,0,0,0}; -static C_char li212[] C_aligned={C_lihdr(0,0,8),40,100,101,108,109,111,100,41}; -static C_char li213[] C_aligned={C_lihdr(0,0,20),40,109,97,112,45,108,111,111,112,51,49,49,54,32,103,51,49,50,56,41,0,0,0,0}; -static C_char li214[] C_aligned={C_lihdr(0,0,8),40,97,49,49,53,48,55,41}; -static C_char li215[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,46,101,118,97,108,35,101,110,118,105,114,111,110,109,101,110,116,32,46,32,115,112,101,99,115,41,0,0,0,0,0,0,0}; -static C_char li216[] 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(f12337) -static void C_ccall f12337(C_word c,C_word *av) C_noret; -C_noret_decl(f12341) -static void C_ccall f12341(C_word c,C_word *av) C_noret; -C_noret_decl(f13052) -static void C_ccall f13052(C_word c,C_word *av) C_noret; -C_noret_decl(f13056) -static void C_ccall f13056(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_10011) -static void f_10011(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10036) -static void C_ccall f_10036(C_word c,C_word *av) C_noret; -C_noret_decl(f_10054) -static void C_ccall f_10054(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_10064) -static void C_ccall f_10064(C_word c,C_word *av) C_noret; -C_noret_decl(f_10065) -static void f_10065(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10071) -static void C_ccall f_10071(C_word c,C_word *av) C_noret; -C_noret_decl(f_10077) -static void C_ccall f_10077(C_word c,C_word *av) C_noret; -C_noret_decl(f_10099) -static void C_ccall f_10099(C_word c,C_word *av) C_noret; -C_noret_decl(f_10101) -static void f_10101(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10111) -static void C_ccall f_10111(C_word c,C_word *av) C_noret; -C_noret_decl(f_10124) -static void C_ccall f_10124(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_10131) -static void C_ccall f_10131(C_word c,C_word *av) C_noret; -C_noret_decl(f_10141) -static void f_10141(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10148) -static void C_ccall f_10148(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_10185) -static void C_ccall f_10185(C_word c,C_word *av) C_noret; -C_noret_decl(f_10186) -static void f_10186(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10193) -static void C_ccall f_10193(C_word c,C_word *av) C_noret; -C_noret_decl(f_10226) -static void C_ccall f_10226(C_word c,C_word *av) C_noret; -C_noret_decl(f_10232) -static void C_ccall f_10232(C_word c,C_word *av) C_noret; -C_noret_decl(f_10235) -static void f_10235(C_word t0,C_word t1) 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_10245) -static void C_ccall f_10245(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_10253) -static void C_ccall f_10253(C_word c,C_word *av) C_noret; -C_noret_decl(f_10257) -static void C_ccall f_10257(C_word c,C_word *av) C_noret; -C_noret_decl(f_10260) -static void C_ccall f_10260(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_10269) -static void C_ccall f_10269(C_word c,C_word *av) C_noret; -C_noret_decl(f_10276) -static void C_ccall f_10276(C_word c,C_word *av) C_noret; -C_noret_decl(f_10286) -static void C_ccall f_10286(C_word c,C_word *av) C_noret; -C_noret_decl(f_10293) -static void C_ccall f_10293(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_10311) -static void C_ccall f_10311(C_word c,C_word *av) C_noret; -C_noret_decl(f_10313) -static void f_10313(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10347) -static void f_10347(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10383) -static void C_ccall f_10383(C_word c,C_word *av) C_noret; -C_noret_decl(f_10394) -static void C_ccall f_10394(C_word c,C_word *av) C_noret; -C_noret_decl(f_10408) -static void C_ccall f_10408(C_word c,C_word *av) C_noret; -C_noret_decl(f_10415) -static void C_ccall f_10415(C_word c,C_word *av) C_noret; -C_noret_decl(f_10417) -static void f_10417(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10451) -static void f_10451(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10491) -static void f_10491(C_word t0,C_word t1,C_word t2) 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_10514) -static void f_10514(C_word t0,C_word t1,C_word t2) 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_10545) -static void C_ccall f_10545(C_word c,C_word *av) C_noret; -C_noret_decl(f_10560) -static void C_ccall f_10560(C_word c,C_word *av) C_noret; -C_noret_decl(f_10570) -static void f_10570(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10578) -static void C_ccall f_10578(C_word c,C_word *av) C_noret; -C_noret_decl(f_10582) -static void C_ccall f_10582(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_10588) -static void C_ccall f_10588(C_word c,C_word *av) C_noret; -C_noret_decl(f_10591) -static void f_10591(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_10599) -static void f_10599(C_word t0,C_word t1,C_word t2) 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_10613) -static void C_ccall f_10613(C_word c,C_word *av) C_noret; -C_noret_decl(f_10634) -static void f_10634(C_word t0,C_word t1,C_word t2) 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_10662) -static void C_ccall f_10662(C_word c,C_word *av) C_noret; -C_noret_decl(f_10665) -static void f_10665(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10671) -static void f_10671(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10712) -static void f_10712(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10744) -static void C_ccall f_10744(C_word c,C_word *av) C_noret; -C_noret_decl(f_10770) -static void C_ccall f_10770(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_10795) -static void C_ccall f_10795(C_word c,C_word *av) C_noret; -C_noret_decl(f_10821) -static void f_10821(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_10877) -static void C_ccall f_10877(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_10901) -static void f_10901(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10908) -static void C_ccall f_10908(C_word c,C_word *av) C_noret; -C_noret_decl(f_10918) -static void f_10918(C_word t0,C_word t1) 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_10942) -static void f_10942(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_10981) -static void C_ccall f_10981(C_word c,C_word *av) C_noret; -C_noret_decl(f_11002) -static void f_11002(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_11014) -static void f_11014(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11037) -static void C_ccall f_11037(C_word c,C_word *av) C_noret; -C_noret_decl(f_11040) -static void C_ccall f_11040(C_word c,C_word *av) C_noret; -C_noret_decl(f_11051) -static void C_ccall f_11051(C_word c,C_word *av) C_noret; -C_noret_decl(f_11057) -static void C_ccall f_11057(C_word c,C_word *av) C_noret; -C_noret_decl(f_11089) -static void C_ccall f_11089(C_word c,C_word *av) C_noret; -C_noret_decl(f_11092) -static void C_ccall f_11092(C_word c,C_word *av) C_noret; -C_noret_decl(f_11103) -static void C_ccall f_11103(C_word c,C_word *av) C_noret; -C_noret_decl(f_11119) -static void f_11119(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_11123) -static void C_ccall f_11123(C_word c,C_word *av) C_noret; -C_noret_decl(f_11130) -static void f_11130(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11143) -static void f_11143(C_word t0,C_word t1) C_noret; -C_noret_decl(f_11170) -static void C_ccall f_11170(C_word c,C_word *av) C_noret; -C_noret_decl(f_11183) -static void C_ccall f_11183(C_word c,C_word *av) C_noret; -C_noret_decl(f_11187) -static void C_ccall f_11187(C_word c,C_word *av) C_noret; -C_noret_decl(f_11191) -static void C_ccall f_11191(C_word c,C_word *av) C_noret; -C_noret_decl(f_11195) -static void C_ccall f_11195(C_word c,C_word *av) C_noret; -C_noret_decl(f_11209) -static void C_ccall f_11209(C_word c,C_word *av) C_noret; -C_noret_decl(f_11215) -static void C_ccall f_11215(C_word c,C_word *av) C_noret; -C_noret_decl(f_11217) -static void f_11217(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11242) -static void C_ccall f_11242(C_word c,C_word *av) C_noret; -C_noret_decl(f_11251) -static void f_11251(C_word t0,C_word t1,C_word t2) 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_11276) -static void C_ccall f_11276(C_word c,C_word *av) C_noret; -C_noret_decl(f_11279) -static void C_ccall f_11279(C_word c,C_word *av) C_noret; -C_noret_decl(f_11282) -static void C_ccall f_11282(C_word c,C_word *av) C_noret; -C_noret_decl(f_11285) -static void C_ccall f_11285(C_word c,C_word *av) C_noret; -C_noret_decl(f_11288) -static void C_ccall f_11288(C_word c,C_word *av) C_noret; -C_noret_decl(f_11291) -static void C_ccall f_11291(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_11298) -static C_word f_11298(C_word t0,C_word t1); -C_noret_decl(f_11310) -static void f_11310(C_word t0,C_word t1,C_word t2) 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_11348) -static void C_ccall f_11348(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_11354) -static void C_ccall f_11354(C_word c,C_word *av) C_noret; -C_noret_decl(f_11357) -static void C_ccall f_11357(C_word c,C_word *av) C_noret; -C_noret_decl(f_11360) -static void C_ccall f_11360(C_word c,C_word *av) C_noret; -C_noret_decl(f_11363) -static void C_ccall f_11363(C_word c,C_word *av) C_noret; -C_noret_decl(f_11366) -static void C_ccall f_11366(C_word c,C_word *av) C_noret; -C_noret_decl(f_11369) -static void C_ccall f_11369(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_11375) -static void C_ccall f_11375(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_11381) -static void C_ccall f_11381(C_word c,C_word *av) C_noret; -C_noret_decl(f_11384) -static void C_ccall f_11384(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_11390) -static void C_ccall f_11390(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_11396) -static void C_ccall f_11396(C_word c,C_word *av) C_noret; -C_noret_decl(f_11399) -static void C_ccall f_11399(C_word c,C_word *av) 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_11405) -static void C_ccall f_11405(C_word c,C_word *av) C_noret; -C_noret_decl(f_11407) -static void C_ccall f_11407(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_11443) -static void C_ccall f_11443(C_word c,C_word *av) C_noret; -C_noret_decl(f_11447) -static void C_ccall f_11447(C_word c,C_word *av) C_noret; -C_noret_decl(f_11449) -static void C_ccall f_11449(C_word c,C_word *av) C_noret; -C_noret_decl(f_11460) -static void C_ccall f_11460(C_word c,C_word *av) C_noret; -C_noret_decl(f_11468) -static void f_11468(C_word t0,C_word t1,C_word t2) 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_11508) -static void C_ccall f_11508(C_word c,C_word *av) C_noret; -C_noret_decl(f_11512) -static void C_ccall f_11512(C_word c,C_word *av) C_noret; -C_noret_decl(f_11515) -static void C_ccall f_11515(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_11557) -static void f_11557(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_11592) -static void C_ccall f_11592(C_word c,C_word *av) C_noret; -C_noret_decl(f_11595) -static void C_ccall f_11595(C_word c,C_word *av) C_noret; -C_noret_decl(f_11598) -static void C_ccall f_11598(C_word c,C_word *av) C_noret; -C_noret_decl(f_11601) -static void C_ccall f_11601(C_word c,C_word *av) C_noret; -C_noret_decl(f_11604) -static void C_ccall f_11604(C_word c,C_word *av) C_noret; -C_noret_decl(f_11607) -static void C_ccall f_11607(C_word c,C_word *av) C_noret; -C_noret_decl(f_11610) -static void C_ccall f_11610(C_word c,C_word *av) C_noret; -C_noret_decl(f_11614) -static void C_ccall f_11614(C_word c,C_word *av) C_noret; -C_noret_decl(f_11618) -static void C_ccall f_11618(C_word c,C_word *av) C_noret; -C_noret_decl(f_11622) -static void C_ccall f_11622(C_word c,C_word *av) C_noret; -C_noret_decl(f_11626) -static void C_ccall f_11626(C_word c,C_word *av) C_noret; -C_noret_decl(f_11638) -static void C_ccall f_11638(C_word c,C_word *av) C_noret; -C_noret_decl(f_11642) -static void C_ccall f_11642(C_word c,C_word *av) C_noret; -C_noret_decl(f_11646) -static void C_ccall f_11646(C_word c,C_word *av) C_noret; -C_noret_decl(f_11650) -static void C_ccall f_11650(C_word c,C_word *av) C_noret; -C_noret_decl(f_11654) -static void C_ccall f_11654(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_11662) -static void C_ccall f_11662(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_11670) -static void C_ccall f_11670(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_3959) -static void C_ccall f_3959(C_word c,C_word *av) C_noret; -C_noret_decl(f_3962) -static void C_ccall f_3962(C_word c,C_word *av) C_noret; -C_noret_decl(f_3965) -static void C_ccall f_3965(C_word c,C_word *av) C_noret; -C_noret_decl(f_3968) -static void C_ccall f_3968(C_word c,C_word *av) C_noret; -C_noret_decl(f_3971) -static void C_ccall f_3971(C_word c,C_word *av) C_noret; -C_noret_decl(f_3974) -static void C_ccall f_3974(C_word c,C_word *av) C_noret; -C_noret_decl(f_4465) -static void f_4465(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_4471) -static void f_4471(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_4484) -static void C_ccall f_4484(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_4546) -static void f_4546(C_word t0,C_word t1,C_word t2) 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_4573) -static void C_ccall f_4573(C_word c,C_word *av) C_noret; -C_noret_decl(f_4629) -static void f_4629(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_4638) -static void f_4638(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_4646) -static void f_4646(C_word t0,C_word t1,C_word t2,C_word t3) 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_4654) -static C_word f_4654(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_4672) -static void C_ccall f_4672(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_5260) -static void C_ccall f_5260(C_word c,C_word *av) C_noret; -C_noret_decl(f_5266) -static C_word f_5266(C_word *a,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_word t10,C_word t11,C_word t12,C_word t13,C_word t14,C_word t15); -C_noret_decl(f_5278) -static void C_ccall f_5278(C_word c,C_word *av) C_noret; -C_noret_decl(f_5287) -static C_word f_5287(C_word t0,C_word t1); -C_noret_decl(f_5296) -static C_word f_5296(C_word t0,C_word t1); -C_noret_decl(f_5305) -static void f_5305(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5314) -static C_word f_5314(C_word t0,C_word t1); -C_noret_decl(f_5323) -static void f_5323(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5332) -static C_word f_5332(C_word t0,C_word t1); -C_noret_decl(f_5341) -static void f_5341(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5350) -static C_word f_5350(C_word t0,C_word t1); -C_noret_decl(f_5359) -static void f_5359(C_word t0,C_word t1,C_word t2,C_word t3) 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_5377) -static void C_ccall f_5377(C_word c,C_word *av) C_noret; -C_noret_decl(f_5386) -static C_word f_5386(C_word t0,C_word t1); -C_noret_decl(f_5395) -static void f_5395(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5404) -static C_word f_5404(C_word t0,C_word t1); -C_noret_decl(f_5413) -static void f_5413(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5422) -static C_word f_5422(C_word t0,C_word t1); -C_noret_decl(f_5431) -static void f_5431(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5440) -static C_word f_5440(C_word t0,C_word t1); -C_noret_decl(f_5449) -static void f_5449(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5458) -static C_word f_5458(C_word t0,C_word t1); -C_noret_decl(f_5467) -static void f_5467(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5476) -static C_word f_5476(C_word t0,C_word t1); -C_noret_decl(f_5485) -static void f_5485(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5494) -static C_word f_5494(C_word t0,C_word t1); -C_noret_decl(f_5503) -static void f_5503(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5512) -static C_word f_5512(C_word t0,C_word t1); -C_noret_decl(f_5521) -static void f_5521(C_word t0,C_word t1,C_word t2,C_word t3) 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_5549) -static C_word f_5549(C_word *a,C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5,C_word t6); -C_noret_decl(f_5564) -static void C_ccall f_5564(C_word c,C_word *av) C_noret; -C_noret_decl(f_5580) -static void C_ccall f_5580(C_word c,C_word *av) C_noret; -C_noret_decl(f_5582) -static void C_ccall f_5582(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_5591) -static void C_ccall f_5591(C_word c,C_word *av) C_noret; -C_noret_decl(f_5595) -static void C_ccall f_5595(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_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_5614) -static void C_ccall f_5614(C_word c,C_word *av) C_noret; -C_noret_decl(f_5618) -static void C_ccall f_5618(C_word c,C_word *av) C_noret; -C_noret_decl(f_5621) -static void C_ccall f_5621(C_word c,C_word *av) C_noret; -C_noret_decl(f_5645) -static void C_ccall f_5645(C_word c,C_word *av) C_noret; -C_noret_decl(f_5649) -static void C_ccall f_5649(C_word c,C_word *av) C_noret; -C_noret_decl(f_5651) -static void f_5651(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_5693) -static void C_ccall f_5693(C_word c,C_word *av) C_noret; -C_noret_decl(f_5695) -static void f_5695(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_5703) -static void f_5703(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_5730) -static void C_ccall f_5730(C_word c,C_word *av) C_noret; -C_noret_decl(f_5732) -static void C_ccall f_5732(C_word c,C_word *av) C_noret; -C_noret_decl(f_5786) -static void C_ccall f_5786(C_word c,C_word *av) C_noret; -C_noret_decl(f_5793) -static void C_ccall f_5793(C_word c,C_word *av) C_noret; -C_noret_decl(f_5796) -static void C_ccall f_5796(C_word c,C_word *av) C_noret; -C_noret_decl(f_5802) -static void C_ccall f_5802(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_5821) -static void f_5821(C_word t0,C_word t1,C_word t2) 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_5837) -static void C_ccall f_5837(C_word c,C_word *av) C_noret; -C_noret_decl(f_5839) -static void C_ccall f_5839(C_word c,C_word *av) C_noret; -C_noret_decl(f_5855) -static void C_ccall f_5855(C_word c,C_word *av) C_noret; -C_noret_decl(f_5856) -static C_word f_5856(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_5864) -static C_word f_5864(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_5878) -static void C_ccall f_5878(C_word c,C_word *av) C_noret; -C_noret_decl(f_5881) -static void C_ccall f_5881(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_5892) -static void C_ccall f_5892(C_word c,C_word *av) C_noret; -C_noret_decl(f_5898) -static void f_5898(C_word t0,C_word t1,C_word t2) 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_5928) -static void C_ccall f_5928(C_word c,C_word *av) C_noret; -C_noret_decl(f_5935) -static void C_ccall f_5935(C_word c,C_word *av) C_noret; -C_noret_decl(f_5948) -static void C_ccall f_5948(C_word c,C_word *av) C_noret; -C_noret_decl(f_5950) -static void f_5950(C_word t0,C_word t1,C_word t2) 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_5988) -static void C_ccall f_5988(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_5995) -static void C_ccall f_5995(C_word c,C_word *av) C_noret; -C_noret_decl(f_6011) -static void f_6011(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_6018) -static void C_ccall f_6018(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_6042) -static void C_ccall f_6042(C_word c,C_word *av) C_noret; -C_noret_decl(f_6045) -static void C_ccall f_6045(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_6054) -static void C_ccall f_6054(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_6060) -static void C_ccall f_6060(C_word c,C_word *av) C_noret; -C_noret_decl(f_6093) -static void C_ccall f_6093(C_word c,C_word *av) C_noret; -C_noret_decl(f_6097) -static void C_ccall f_6097(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_6108) -static void C_ccall f_6108(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_6121) -static void C_ccall f_6121(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_6134) -static void C_ccall f_6134(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_6140) -static void C_ccall f_6140(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_6149) -static void C_ccall f_6149(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_6187) -static void C_ccall f_6187(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_6213) -static void C_ccall f_6213(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_6236) -static void C_ccall f_6236(C_word c,C_word *av) C_noret; -C_noret_decl(f_6243) -static void f_6243(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6250) -static void f_6250(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6295) -static void C_ccall f_6295(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_6401) -static void f_6401(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_6409) -static void C_ccall f_6409(C_word c,C_word *av) C_noret; -C_noret_decl(f_6413) -static void C_ccall f_6413(C_word c,C_word *av) C_noret; -C_noret_decl(f_6424) -static void f_6424(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6451) -static void f_6451(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6474) -static void C_ccall f_6474(C_word c,C_word *av) C_noret; -C_noret_decl(f_6488) -static void f_6488(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6513) -static void C_ccall f_6513(C_word c,C_word *av) C_noret; -C_noret_decl(f_6528) -static void f_6528(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6546) -static void C_ccall f_6546(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_6576) -static void C_ccall f_6576(C_word c,C_word *av) C_noret; -C_noret_decl(f_6589) -static void C_ccall f_6589(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_6605) -static void f_6605(C_word t0,C_word t1) 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_6612) -static void C_ccall f_6612(C_word c,C_word *av) C_noret; -C_noret_decl(f_6623) -static void f_6623(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_6651) -static void f_6651(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6665) -static void C_ccall f_6665(C_word c,C_word *av) C_noret; -C_noret_decl(f_6670) -static void f_6670(C_word t0,C_word t1,C_word t2) 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_6698) -static void f_6698(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_6720) -static void C_ccall f_6720(C_word c,C_word *av) C_noret; -C_noret_decl(f_6728) -static void C_ccall f_6728(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_6773) -static void C_ccall f_6773(C_word c,C_word *av) C_noret; -C_noret_decl(f_6781) -static void f_6781(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_6815) -static void C_ccall f_6815(C_word c,C_word *av) C_noret; -C_noret_decl(f_6821) -static void C_ccall f_6821(C_word c,C_word *av) 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_6837) -static void C_ccall f_6837(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_6872) -static void C_ccall f_6872(C_word c,C_word *av) C_noret; -C_noret_decl(f_6876) -static void C_ccall f_6876(C_word c,C_word *av) C_noret; -C_noret_decl(f_6880) -static void C_ccall f_6880(C_word c,C_word *av) C_noret; -C_noret_decl(f_6884) -static void f_6884(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6888) -static void C_ccall f_6888(C_word c,C_word *av) C_noret; -C_noret_decl(f_6892) -static void f_6892(C_word t0,C_word t1) 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_6900) -static void C_ccall f_6900(C_word c,C_word *av) C_noret; -C_noret_decl(f_6932) -static void f_6932(C_word t0,C_word t1) C_noret; -C_noret_decl(f_6968) -static void C_ccall f_6968(C_word c,C_word *av) C_noret; -C_noret_decl(f_6970) -static void f_6970(C_word t0,C_word t1,C_word t2) 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_7018) -static void f_7018(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_7060) -static void C_ccall f_7060(C_word c,C_word *av) C_noret; -C_noret_decl(f_7075) -static void f_7075(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7099) -static void C_ccall f_7099(C_word c,C_word *av) C_noret; -C_noret_decl(f_7115) -static void C_ccall f_7115(C_word c,C_word *av) C_noret; -C_noret_decl(f_7117) -static void f_7117(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7142) -static void C_ccall f_7142(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_7206) -static void f_7206(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7231) -static void f_7231(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7246) -static void C_ccall f_7246(C_word c,C_word *av) C_noret; -C_noret_decl(f_7261) -static void C_ccall f_7261(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_7310) -static void C_ccall f_7310(C_word c,C_word *av) C_noret; -C_noret_decl(f_7319) -static void f_7319(C_word t0,C_word t1) 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_7375) -static void C_ccall f_7375(C_word c,C_word *av) C_noret; -C_noret_decl(f_7378) -static void C_ccall f_7378(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_7397) -static void C_ccall f_7397(C_word c,C_word *av) 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_7413) -static void C_ccall f_7413(C_word c,C_word *av) C_noret; -C_noret_decl(f_7414) -static void f_7414(C_word t0,C_word t1,C_word t2) 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_7439) -static void C_ccall f_7439(C_word c,C_word *av) C_noret; -C_noret_decl(f_7440) -static void f_7440(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_7465) -static void C_ccall f_7465(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_7484) -static void C_ccall f_7484(C_word c,C_word *av) C_noret; -C_noret_decl(f_7488) -static void C_ccall f_7488(C_word c,C_word *av) C_noret; -C_noret_decl(f_7492) -static void C_ccall f_7492(C_word c,C_word *av) C_noret; -C_noret_decl(f_7494) -static void f_7494(C_word t0,C_word t1,C_word t2) 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_7517) -static void f_7517(C_word t0,C_word t1,C_word t2) 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_7551) -static void C_ccall f_7551(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_7570) -static void C_ccall f_7570(C_word c,C_word *av) C_noret; -C_noret_decl(f_7572) -static void f_7572(C_word t0,C_word t1,C_word t2) 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_7618) -static void C_ccall f_7618(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_7670) -static void C_ccall f_7670(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_7683) -static void C_ccall f_7683(C_word c,C_word *av) C_noret; -C_noret_decl(f_7699) -static void C_ccall f_7699(C_word c,C_word *av) C_noret; -C_noret_decl(f_7703) -static void C_ccall f_7703(C_word c,C_word *av) C_noret; -C_noret_decl(f_7707) -static void C_ccall f_7707(C_word c,C_word *av) C_noret; -C_noret_decl(f_7720) -static void f_7720(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7742) -static void C_ccall f_7742(C_word c,C_word *av) C_noret; -C_noret_decl(f_7744) -static void f_7744(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7769) -static void C_ccall f_7769(C_word c,C_word *av) C_noret; -C_noret_decl(f_7784) -static void C_ccall f_7784(C_word c,C_word *av) C_noret; -C_noret_decl(f_7799) -static void f_7799(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_7812) -static C_word f_7812(C_word t0,C_word t1); -C_noret_decl(f_7877) -static void C_ccall f_7877(C_word c,C_word *av) C_noret; -C_noret_decl(f_7883) -static void f_7883(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7887) -static void C_ccall f_7887(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_7896) -static void C_ccall f_7896(C_word c,C_word *av) 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_7902) -static void C_ccall f_7902(C_word c,C_word *av) C_noret; -C_noret_decl(f_7903) -static void f_7903(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7910) -static void C_ccall f_7910(C_word c,C_word *av) C_noret; -C_noret_decl(f_7913) -static void C_ccall f_7913(C_word c,C_word *av) C_noret; -C_noret_decl(f_7916) -static void C_ccall f_7916(C_word c,C_word *av) C_noret; -C_noret_decl(f_7917) -static void f_7917(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7920) -static void f_7920(C_word t0,C_word t1) C_noret; -C_noret_decl(f_7924) -static void C_ccall f_7924(C_word c,C_word *av) C_noret; -C_noret_decl(f_7950) -static void C_ccall f_7950(C_word c,C_word *av) C_noret; -C_noret_decl(f_7956) -static void C_ccall f_7956(C_word c,C_word *av) C_noret; -C_noret_decl(f_7960) -static void f_7960(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_7964) -static void C_ccall f_7964(C_word c,C_word *av) C_noret; -C_noret_decl(f_7970) -static void C_ccall f_7970(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_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_7986) -static void C_ccall f_7986(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_8008) -static void C_ccall f_8008(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_8018) -static void C_ccall f_8018(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_8031) -static void C_ccall f_8031(C_word c,C_word *av) C_noret; -C_noret_decl(f_8034) -static void C_ccall f_8034(C_word c,C_word *av) C_noret; -C_noret_decl(f_8037) -static void C_ccall f_8037(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_8076) -static void C_ccall f_8076(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_8091) -static void C_ccall f_8091(C_word c,C_word *av) C_noret; -C_noret_decl(f_8098) -static void C_ccall f_8098(C_word c,C_word *av) C_noret; -C_noret_decl(f_8104) -static void C_ccall f_8104(C_word c,C_word *av) C_noret; -C_noret_decl(f_8105) -static void f_8105(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_8124) -static void f_8124(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8134) -static void C_ccall f_8134(C_word c,C_word *av) C_noret; -C_noret_decl(f_8152) -static void f_8152(C_word t0,C_word t1,C_word t2) 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_8182) -static void C_ccall f_8182(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_8191) -static void f_8191(C_word t0,C_word t1,C_word t2) 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_8216) -static void C_ccall f_8216(C_word c,C_word *av) C_noret; -C_noret_decl(f_8218) -static void f_8218(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8248) -static void C_ccall f_8248(C_word c,C_word *av) C_noret; -C_noret_decl(f_8260) -static void C_ccall f_8260(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_8266) -static void C_ccall f_8266(C_word c,C_word *av) C_noret; -C_noret_decl(f_8287) -static void C_ccall f_8287(C_word c,C_word *av) C_noret; -C_noret_decl(f_8289) -static void f_8289(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8325) -static void C_ccall f_8325(C_word c,C_word *av) C_noret; -C_noret_decl(f_8337) -static void f_8337(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8366) -static void C_ccall f_8366(C_word c,C_word *av) C_noret; -C_noret_decl(f_8376) -static void C_ccall f_8376(C_word c,C_word *av) C_noret; -C_noret_decl(f_8380) -static void C_ccall f_8380(C_word c,C_word *av) C_noret; -C_noret_decl(f_8390) -static void C_ccall f_8390(C_word c,C_word *av) C_noret; -C_noret_decl(f_8399) -static void C_ccall f_8399(C_word c,C_word *av) C_noret; -C_noret_decl(f_8402) -static void C_ccall f_8402(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_8406) -static C_word f_8406(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_8424) -static void C_ccall f_8424(C_word c,C_word *av) C_noret; -C_noret_decl(f_8430) -static void C_ccall f_8430(C_word c,C_word *av) C_noret; -C_noret_decl(f_8433) -static void C_ccall f_8433(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_8464) -static void C_ccall f_8464(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_8477) -static void C_ccall f_8477(C_word c,C_word *av) C_noret; -C_noret_decl(f_8480) -static void C_ccall f_8480(C_word c,C_word *av) C_noret; -C_noret_decl(f_8481) -static void f_8481(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8485) -static void C_ccall f_8485(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_8509) -static void C_ccall f_8509(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_8515) -static void C_ccall f_8515(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_8530) -static void C_ccall f_8530(C_word c,C_word *av) C_noret; -C_noret_decl(f_8534) -static void C_ccall f_8534(C_word c,C_word *av) C_noret; -C_noret_decl(f_8538) -static void C_ccall f_8538(C_word c,C_word *av) C_noret; -C_noret_decl(f_8544) -static void f_8544(C_word t0,C_word t1,C_word t2) 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_8569) -static void C_ccall f_8569(C_word c,C_word *av) C_noret; -C_noret_decl(f_8573) -static void C_ccall f_8573(C_word c,C_word *av) C_noret; -C_noret_decl(f_8575) -static void f_8575(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8585) -static void f_8585(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8600) -static void C_ccall f_8600(C_word c,C_word *av) C_noret; -C_noret_decl(f_8618) -static void f_8618(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8645) -static void f_8645(C_word t0,C_word t1,C_word t2) 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_8700) -static void C_ccall f_8700(C_word c,C_word *av) C_noret; -C_noret_decl(f_8711) -static void f_8711(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_8715) -static void C_ccall f_8715(C_word c,C_word *av) C_noret; -C_noret_decl(f_8718) -static void f_8718(C_word t0,C_word t1) C_noret; -C_noret_decl(f_8726) -static void C_ccall f_8726(C_word c,C_word *av) C_noret; -C_noret_decl(f_8747) -static void C_ccall f_8747(C_word c,C_word *av) C_noret; -C_noret_decl(f_8751) -static void f_8751(C_word t0,C_word t1,C_word t2) 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_8763) -static void C_ccall f_8763(C_word c,C_word *av) C_noret; -C_noret_decl(f_8779) -static void C_ccall f_8779(C_word c,C_word *av) C_noret; -C_noret_decl(f_8783) -static void C_ccall f_8783(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_8808) -static void C_ccall f_8808(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_8836) -static void f_8836(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_8869) -static void C_ccall f_8869(C_word c,C_word *av) C_noret; -C_noret_decl(f_8884) -static void C_ccall f_8884(C_word c,C_word *av) C_noret; -C_noret_decl(f_8892) -static void C_ccall f_8892(C_word c,C_word *av) C_noret; -C_noret_decl(f_8899) -static void C_ccall f_8899(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_8906) -static void C_ccall f_8906(C_word c,C_word *av) C_noret; -C_noret_decl(f_8911) -static void C_ccall f_8911(C_word c,C_word *av) 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_8918) -static void C_ccall f_8918(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_8924) -static void C_ccall f_8924(C_word c,C_word *av) C_noret; -C_noret_decl(f_8928) -static void C_ccall f_8928(C_word c,C_word *av) C_noret; -C_noret_decl(f_8932) -static void C_ccall f_8932(C_word c,C_word *av) C_noret; -C_noret_decl(f_8936) -static void C_ccall f_8936(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_8943) -static void C_ccall f_8943(C_word c,C_word *av) C_noret; -C_noret_decl(f_8946) -static void C_ccall f_8946(C_word c,C_word *av) C_noret; -C_noret_decl(f_8949) -static void C_ccall f_8949(C_word c,C_word *av) C_noret; -C_noret_decl(f_8952) -static void C_ccall f_8952(C_word c,C_word *av) C_noret; -C_noret_decl(f_8967) -static void C_ccall f_8967(C_word c,C_word *av) C_noret; -C_noret_decl(f_8973) -static void C_ccall f_8973(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_8980) -static void C_ccall f_8980(C_word c,C_word *av) C_noret; -C_noret_decl(f_8983) -static void C_ccall f_8983(C_word c,C_word *av) C_noret; -C_noret_decl(f_8986) -static void C_ccall f_8986(C_word c,C_word *av) C_noret; -C_noret_decl(f_8989) -static void C_ccall f_8989(C_word c,C_word *av) C_noret; -C_noret_decl(f_8992) -static void C_ccall f_8992(C_word c,C_word *av) C_noret; -C_noret_decl(f_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_9004) -static void C_ccall f_9004(C_word c,C_word *av) C_noret; -C_noret_decl(f_9008) -static void C_ccall f_9008(C_word c,C_word *av) C_noret; -C_noret_decl(f_9016) -static void C_ccall f_9016(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_9027) -static void C_ccall f_9027(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_9036) -static void C_ccall f_9036(C_word c,C_word *av) C_noret; -C_noret_decl(f_9043) -static void C_ccall f_9043(C_word c,C_word *av) C_noret; -C_noret_decl(f_9047) -static void C_ccall f_9047(C_word c,C_word *av) C_noret; -C_noret_decl(f_9050) -static void f_9050(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9054) -static void C_ccall f_9054(C_word c,C_word *av) C_noret; -C_noret_decl(f_9057) -static void C_ccall f_9057(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_9069) -static void C_ccall f_9069(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_9075) -static void C_ccall f_9075(C_word c,C_word *av) C_noret; -C_noret_decl(f_9078) -static void C_ccall f_9078(C_word c,C_word *av) C_noret; -C_noret_decl(f_9080) -static void f_9080(C_word t0,C_word t1,C_word t2,C_word t3) 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_9092) -static void C_ccall f_9092(C_word c,C_word *av) C_noret; -C_noret_decl(f_9094) -static void f_9094(C_word t0,C_word t1,C_word t2) 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_9114) -static void C_ccall f_9114(C_word c,C_word *av) C_noret; -C_noret_decl(f_9138) -static void f_9138(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9152) -static void f_9152(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9160) -static C_word f_9160(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_9187) -static void f_9187(C_word t0,C_word t1,C_word t2) 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_9224) -static void C_ccall f_9224(C_word c,C_word *av) C_noret; -C_noret_decl(f_9227) -static void f_9227(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9231) -static void C_ccall f_9231(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_9250) -static void C_ccall f_9250(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_9262) -static void C_ccall f_9262(C_word c,C_word *av) C_noret; -C_noret_decl(f_9266) -static void C_ccall f_9266(C_word c,C_word *av) C_noret; -C_noret_decl(f_9283) -static void f_9283(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9297) -static void C_ccall f_9297(C_word c,C_word *av) C_noret; -C_noret_decl(f_9315) -static void C_ccall f_9315(C_word c,C_word *av) C_noret; -C_noret_decl(f_9318) -static void C_ccall f_9318(C_word c,C_word *av) C_noret; -C_noret_decl(f_9323) -static void C_ccall f_9323(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_9337) -static void C_ccall f_9337(C_word c,C_word *av) C_noret; -C_noret_decl(f_9342) -static void f_9342(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4,C_word t5) C_noret; -C_noret_decl(f_9350) -static void f_9350(C_word t0,C_word t1,C_word t2) 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_9373) -static void f_9373(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9383) -static void C_ccall f_9383(C_word c,C_word *av) C_noret; -C_noret_decl(f_9401) -static void f_9401(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9423) -static void f_9423(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9465) -static void C_ccall f_9465(C_word c,C_word *av) C_noret; -C_noret_decl(f_9468) -static void C_ccall f_9468(C_word c,C_word *av) C_noret; -C_noret_decl(f_9473) -static void C_ccall f_9473(C_word c,C_word *av) C_noret; -C_noret_decl(f_9483) -static void C_ccall f_9483(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_9492) -static void f_9492(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_9504) -static void f_9504(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_9512) -static void f_9512(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_9535) -static void f_9535(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9545) -static void C_ccall f_9545(C_word c,C_word *av) C_noret; -C_noret_decl(f_9563) -static void f_9563(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9575) -static void C_ccall f_9575(C_word c,C_word *av) C_noret; -C_noret_decl(f_9604) -static void f_9604(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9616) -static void C_ccall f_9616(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_9651) -static void C_ccall f_9651(C_word c,C_word *av) C_noret; -C_noret_decl(f_9656) -static void C_ccall f_9656(C_word c,C_word *av) C_noret; -C_noret_decl(f_9666) -static void C_ccall f_9666(C_word c,C_word *av) C_noret; -C_noret_decl(f_9670) -static void C_ccall f_9670(C_word c,C_word *av) C_noret; -C_noret_decl(f_9675) -static void f_9675(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_9687) -static void f_9687(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_9695) -static void f_9695(C_word t0,C_word t1,C_word t2) 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_9714) -static void C_ccall f_9714(C_word c,C_word *av) C_noret; -C_noret_decl(f_9727) -static void f_9727(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9737) -static void C_ccall f_9737(C_word c,C_word *av) C_noret; -C_noret_decl(f_9750) -static void f_9750(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9789) -static void f_9789(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9805) -static void C_ccall f_9805(C_word c,C_word *av) C_noret; -C_noret_decl(f_9842) -static void f_9842(C_word t0,C_word t1,C_word t2) 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_9898) -static void C_ccall f_9898(C_word c,C_word *av) C_noret; -C_noret_decl(f_9901) -static void C_ccall f_9901(C_word c,C_word *av) C_noret; -C_noret_decl(f_9906) -static void C_ccall f_9906(C_word c,C_word *av) C_noret; -C_noret_decl(f_9916) -static void C_ccall f_9916(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_9922) -static void f_9922(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_9930) -static void C_ccall f_9930(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_9940) -static void C_ccall f_9940(C_word c,C_word *av) C_noret; -C_noret_decl(f_9944) -static void C_ccall f_9944(C_word c,C_word *av) C_noret; -C_noret_decl(f_9965) -static void C_ccall f_9965(C_word c,C_word *av) C_noret; -C_noret_decl(f_9975) -static void C_ccall f_9975(C_word c,C_word *av) C_noret; -C_noret_decl(f_9977) -static void f_9977(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(C_modules_toplevel) -C_extern void C_ccall C_modules_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_10011) -static void C_ccall trf_10011(C_word c,C_word *av) C_noret; -static void C_ccall trf_10011(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10011(t0,t1,t2);} - -C_noret_decl(trf_10065) -static void C_ccall trf_10065(C_word c,C_word *av) C_noret; -static void C_ccall trf_10065(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10065(t0,t1,t2);} - -C_noret_decl(trf_10101) -static void C_ccall trf_10101(C_word c,C_word *av) C_noret; -static void C_ccall trf_10101(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10101(t0,t1,t2);} - -C_noret_decl(trf_10141) -static void C_ccall trf_10141(C_word c,C_word *av) C_noret; -static void C_ccall trf_10141(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10141(t0,t1,t2);} - -C_noret_decl(trf_10186) -static void C_ccall trf_10186(C_word c,C_word *av) C_noret; -static void C_ccall trf_10186(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10186(t0,t1,t2);} - -C_noret_decl(trf_10235) -static void C_ccall trf_10235(C_word c,C_word *av) C_noret; -static void C_ccall trf_10235(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10235(t0,t1);} - -C_noret_decl(trf_10313) -static void C_ccall trf_10313(C_word c,C_word *av) C_noret; -static void C_ccall trf_10313(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10313(t0,t1,t2);} - -C_noret_decl(trf_10347) -static void C_ccall trf_10347(C_word c,C_word *av) C_noret; -static void C_ccall trf_10347(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10347(t0,t1,t2);} - -C_noret_decl(trf_10417) -static void C_ccall trf_10417(C_word c,C_word *av) C_noret; -static void C_ccall trf_10417(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10417(t0,t1,t2);} - -C_noret_decl(trf_10451) -static void C_ccall trf_10451(C_word c,C_word *av) C_noret; -static void C_ccall trf_10451(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10451(t0,t1,t2);} - -C_noret_decl(trf_10491) -static void C_ccall trf_10491(C_word c,C_word *av) C_noret; -static void C_ccall trf_10491(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10491(t0,t1,t2);} - -C_noret_decl(trf_10514) -static void C_ccall trf_10514(C_word c,C_word *av) C_noret; -static void C_ccall trf_10514(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10514(t0,t1,t2);} - -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_10591) -static void C_ccall trf_10591(C_word c,C_word *av) C_noret; -static void C_ccall trf_10591(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10591(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_10634) -static void C_ccall trf_10634(C_word c,C_word *av) C_noret; -static void C_ccall trf_10634(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10634(t0,t1,t2);} - -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_10671) -static void C_ccall trf_10671(C_word c,C_word *av) C_noret; -static void C_ccall trf_10671(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10671(t0,t1,t2);} - -C_noret_decl(trf_10712) -static void C_ccall trf_10712(C_word c,C_word *av) C_noret; -static void C_ccall trf_10712(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10712(t0,t1,t2);} - -C_noret_decl(trf_10821) -static void C_ccall trf_10821(C_word c,C_word *av) C_noret; -static void C_ccall trf_10821(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10821(t0,t1,t2);} - -C_noret_decl(trf_10901) -static void C_ccall trf_10901(C_word c,C_word *av) C_noret; -static void C_ccall trf_10901(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_10901(t0,t1,t2);} - -C_noret_decl(trf_10918) -static void C_ccall trf_10918(C_word c,C_word *av) C_noret; -static void C_ccall trf_10918(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_10918(t0,t1);} - -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_11002) -static void C_ccall trf_11002(C_word c,C_word *av) C_noret; -static void C_ccall trf_11002(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_11002(t0,t1,t2,t3);} - -C_noret_decl(trf_11014) -static void C_ccall trf_11014(C_word c,C_word *av) C_noret; -static void C_ccall trf_11014(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11014(t0,t1,t2);} - -C_noret_decl(trf_11119) -static void C_ccall trf_11119(C_word c,C_word *av) C_noret; -static void C_ccall trf_11119(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_11119(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_11130) -static void C_ccall trf_11130(C_word c,C_word *av) C_noret; -static void C_ccall trf_11130(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11130(t0,t1,t2);} - -C_noret_decl(trf_11143) -static void C_ccall trf_11143(C_word c,C_word *av) C_noret; -static void C_ccall trf_11143(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_11143(t0,t1);} - -C_noret_decl(trf_11217) -static void C_ccall trf_11217(C_word c,C_word *av) C_noret; -static void C_ccall trf_11217(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11217(t0,t1,t2);} - -C_noret_decl(trf_11251) -static void C_ccall trf_11251(C_word c,C_word *av) C_noret; -static void C_ccall trf_11251(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11251(t0,t1,t2);} - -C_noret_decl(trf_11310) -static void C_ccall trf_11310(C_word c,C_word *av) C_noret; -static void C_ccall trf_11310(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11310(t0,t1,t2);} - -C_noret_decl(trf_11468) -static void C_ccall trf_11468(C_word c,C_word *av) C_noret; -static void C_ccall trf_11468(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11468(t0,t1,t2);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_11557(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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_4465(t0,t1,t2,t3);} - -C_noret_decl(trf_4471) -static void C_ccall trf_4471(C_word c,C_word *av) C_noret; -static void C_ccall trf_4471(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_4471(t0,t1,t2);} - -C_noret_decl(trf_4546) -static void C_ccall trf_4546(C_word c,C_word *av) C_noret; -static void C_ccall trf_4546(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_4546(t0,t1,t2);} - -C_noret_decl(trf_4629) -static void C_ccall trf_4629(C_word c,C_word *av) C_noret; -static void C_ccall trf_4629(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_4629(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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_4638(t0,t1,t2);} - -C_noret_decl(trf_4646) -static void C_ccall trf_4646(C_word c,C_word *av) C_noret; -static void C_ccall trf_4646(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_4646(t0,t1,t2,t3);} - -C_noret_decl(trf_5305) -static void C_ccall trf_5305(C_word c,C_word *av) C_noret; -static void C_ccall trf_5305(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5305(t0,t1,t2,t3);} - -C_noret_decl(trf_5323) -static void C_ccall trf_5323(C_word c,C_word *av) C_noret; -static void C_ccall trf_5323(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5323(t0,t1,t2,t3);} - -C_noret_decl(trf_5341) -static void C_ccall trf_5341(C_word c,C_word *av) C_noret; -static void C_ccall trf_5341(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5341(t0,t1,t2,t3);} - -C_noret_decl(trf_5359) -static void C_ccall trf_5359(C_word c,C_word *av) C_noret; -static void C_ccall trf_5359(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5359(t0,t1,t2,t3);} - -C_noret_decl(trf_5395) -static void C_ccall trf_5395(C_word c,C_word *av) C_noret; -static void C_ccall trf_5395(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5395(t0,t1,t2,t3);} - -C_noret_decl(trf_5413) -static void C_ccall trf_5413(C_word c,C_word *av) C_noret; -static void C_ccall trf_5413(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5413(t0,t1,t2,t3);} - -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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5431(t0,t1,t2,t3);} - -C_noret_decl(trf_5449) -static void C_ccall trf_5449(C_word c,C_word *av) C_noret; -static void C_ccall trf_5449(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5449(t0,t1,t2,t3);} - -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_5485) -static void C_ccall trf_5485(C_word c,C_word *av) C_noret; -static void C_ccall trf_5485(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5485(t0,t1,t2,t3);} - -C_noret_decl(trf_5503) -static void C_ccall trf_5503(C_word c,C_word *av) C_noret; -static void C_ccall trf_5503(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5503(t0,t1,t2,t3);} - -C_noret_decl(trf_5521) -static void C_ccall trf_5521(C_word c,C_word *av) C_noret; -static void C_ccall trf_5521(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5521(t0,t1,t2,t3);} - -C_noret_decl(trf_5651) -static void C_ccall trf_5651(C_word c,C_word *av) C_noret; -static void C_ccall trf_5651(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5651(t0,t1,t2);} - -C_noret_decl(trf_5695) -static void C_ccall trf_5695(C_word c,C_word *av) C_noret; -static void C_ccall trf_5695(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_5695(t0,t1,t2,t3);} - -C_noret_decl(trf_5703) -static void C_ccall trf_5703(C_word c,C_word *av) C_noret; -static void C_ccall trf_5703(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5703(t0,t1,t2);} - -C_noret_decl(trf_5821) -static void C_ccall trf_5821(C_word c,C_word *av) C_noret; -static void C_ccall trf_5821(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5821(t0,t1,t2);} - -C_noret_decl(trf_5898) -static void C_ccall trf_5898(C_word c,C_word *av) C_noret; -static void C_ccall trf_5898(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5898(t0,t1,t2);} - -C_noret_decl(trf_5950) -static void C_ccall trf_5950(C_word c,C_word *av) C_noret; -static void C_ccall trf_5950(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_5950(t0,t1,t2);} - -C_noret_decl(trf_6011) -static void C_ccall trf_6011(C_word c,C_word *av) C_noret; -static void C_ccall trf_6011(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6011(t0,t1,t2,t3);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6243(t0,t1,t2);} - -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[1]; -C_word t1=av[0]; -f_6250(t0,t1);} - -C_noret_decl(trf_6401) -static void C_ccall trf_6401(C_word c,C_word *av) C_noret; -static void C_ccall trf_6401(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6401(t0,t1,t2,t3);} - -C_noret_decl(trf_6424) -static void C_ccall trf_6424(C_word c,C_word *av) C_noret; -static void C_ccall trf_6424(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6424(t0,t1,t2);} - -C_noret_decl(trf_6451) -static void C_ccall trf_6451(C_word c,C_word *av) C_noret; -static void C_ccall trf_6451(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6451(t0,t1,t2);} - -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_6528) -static void C_ccall trf_6528(C_word c,C_word *av) C_noret; -static void C_ccall trf_6528(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6528(t0,t1,t2);} - -C_noret_decl(trf_6605) -static void C_ccall trf_6605(C_word c,C_word *av) C_noret; -static void C_ccall trf_6605(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6605(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_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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6651(t0,t1,t2);} - -C_noret_decl(trf_6670) -static void C_ccall trf_6670(C_word c,C_word *av) C_noret; -static void C_ccall trf_6670(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6670(t0,t1,t2);} - -C_noret_decl(trf_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[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_6698(t0,t1,t2,t3);} - -C_noret_decl(trf_6781) -static void C_ccall trf_6781(C_word c,C_word *av) C_noret; -static void C_ccall trf_6781(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6781(t0,t1,t2);} - -C_noret_decl(trf_6884) -static void C_ccall trf_6884(C_word c,C_word *av) C_noret; -static void C_ccall trf_6884(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6884(t0,t1);} - -C_noret_decl(trf_6892) -static void C_ccall trf_6892(C_word c,C_word *av) C_noret; -static void C_ccall trf_6892(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6892(t0,t1);} - -C_noret_decl(trf_6932) -static void C_ccall trf_6932(C_word c,C_word *av) C_noret; -static void C_ccall trf_6932(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_6932(t0,t1);} - -C_noret_decl(trf_6970) -static void C_ccall trf_6970(C_word c,C_word *av) C_noret; -static void C_ccall trf_6970(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_6970(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_7075) -static void C_ccall trf_7075(C_word c,C_word *av) C_noret; -static void C_ccall trf_7075(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7075(t0,t1,t2);} - -C_noret_decl(trf_7117) -static void C_ccall trf_7117(C_word c,C_word *av) C_noret; -static void C_ccall trf_7117(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7117(t0,t1,t2);} - -C_noret_decl(trf_7206) -static void C_ccall trf_7206(C_word c,C_word *av) C_noret; -static void C_ccall trf_7206(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7206(t0,t1,t2);} - -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[1]; -C_word t1=av[0]; -f_7231(t0,t1);} - -C_noret_decl(trf_7319) -static void C_ccall trf_7319(C_word c,C_word *av) C_noret; -static void C_ccall trf_7319(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7319(t0,t1);} - -C_noret_decl(trf_7414) -static void C_ccall trf_7414(C_word c,C_word *av) C_noret; -static void C_ccall trf_7414(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7414(t0,t1,t2);} - -C_noret_decl(trf_7440) -static void C_ccall trf_7440(C_word c,C_word *av) C_noret; -static void C_ccall trf_7440(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7440(t0,t1,t2);} - -C_noret_decl(trf_7494) -static void C_ccall trf_7494(C_word c,C_word *av) C_noret; -static void C_ccall trf_7494(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7494(t0,t1,t2);} - -C_noret_decl(trf_7517) -static void C_ccall trf_7517(C_word c,C_word *av) C_noret; -static void C_ccall trf_7517(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7517(t0,t1,t2);} - -C_noret_decl(trf_7572) -static void C_ccall trf_7572(C_word c,C_word *av) C_noret; -static void C_ccall trf_7572(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7572(t0,t1,t2);} - -C_noret_decl(trf_7720) -static void C_ccall trf_7720(C_word c,C_word *av) C_noret; -static void C_ccall trf_7720(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7720(t0,t1,t2);} - -C_noret_decl(trf_7744) -static void C_ccall trf_7744(C_word c,C_word *av) C_noret; -static void C_ccall trf_7744(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7744(t0,t1,t2);} - -C_noret_decl(trf_7799) -static void C_ccall trf_7799(C_word c,C_word *av) C_noret; -static void C_ccall trf_7799(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_7799(t0,t1,t2,t3);} - -C_noret_decl(trf_7883) -static void C_ccall trf_7883(C_word c,C_word *av) C_noret; -static void C_ccall trf_7883(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7883(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_7917) -static void C_ccall trf_7917(C_word c,C_word *av) C_noret; -static void C_ccall trf_7917(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7917(t0,t1,t2);} - -C_noret_decl(trf_7920) -static void C_ccall trf_7920(C_word c,C_word *av) C_noret; -static void C_ccall trf_7920(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_7920(t0,t1);} - -C_noret_decl(trf_7960) -static void C_ccall trf_7960(C_word c,C_word *av) C_noret; -static void C_ccall trf_7960(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_7960(t0,t1,t2);} - -C_noret_decl(trf_8105) -static void C_ccall trf_8105(C_word c,C_word *av) C_noret; -static void C_ccall trf_8105(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8105(t0,t1,t2);} - -C_noret_decl(trf_8124) -static void C_ccall trf_8124(C_word c,C_word *av) C_noret; -static void C_ccall trf_8124(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8124(t0,t1,t2);} - -C_noret_decl(trf_8152) -static void C_ccall trf_8152(C_word c,C_word *av) C_noret; -static void C_ccall trf_8152(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8152(t0,t1,t2);} - -C_noret_decl(trf_8191) -static void C_ccall trf_8191(C_word c,C_word *av) C_noret; -static void C_ccall trf_8191(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8191(t0,t1,t2);} - -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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8218(t0,t1,t2);} - -C_noret_decl(trf_8289) -static void C_ccall trf_8289(C_word c,C_word *av) C_noret; -static void C_ccall trf_8289(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8289(t0,t1,t2);} - -C_noret_decl(trf_8337) -static void C_ccall trf_8337(C_word c,C_word *av) C_noret; -static void C_ccall trf_8337(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8337(t0,t1,t2);} - -C_noret_decl(trf_8481) -static void C_ccall trf_8481(C_word c,C_word *av) C_noret; -static void C_ccall trf_8481(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8481(t0,t1,t2);} - -C_noret_decl(trf_8544) -static void C_ccall trf_8544(C_word c,C_word *av) C_noret; -static void C_ccall trf_8544(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8544(t0,t1,t2);} - -C_noret_decl(trf_8575) -static void C_ccall trf_8575(C_word c,C_word *av) C_noret; -static void C_ccall trf_8575(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8575(t0,t1,t2);} - -C_noret_decl(trf_8585) -static void C_ccall trf_8585(C_word c,C_word *av) C_noret; -static void C_ccall trf_8585(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8585(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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8618(t0,t1,t2);} - -C_noret_decl(trf_8645) -static void C_ccall trf_8645(C_word c,C_word *av) C_noret; -static void C_ccall trf_8645(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8645(t0,t1,t2);} - -C_noret_decl(trf_8711) -static void C_ccall trf_8711(C_word c,C_word *av) C_noret; -static void C_ccall trf_8711(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8711(t0,t1,t2);} - -C_noret_decl(trf_8718) -static void C_ccall trf_8718(C_word c,C_word *av) C_noret; -static void C_ccall trf_8718(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_8718(t0,t1);} - -C_noret_decl(trf_8751) -static void C_ccall trf_8751(C_word c,C_word *av) C_noret; -static void C_ccall trf_8751(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8751(t0,t1,t2);} - -C_noret_decl(trf_8836) -static void C_ccall trf_8836(C_word c,C_word *av) C_noret; -static void C_ccall trf_8836(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_8836(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[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9050(t0,t1,t2);} - -C_noret_decl(trf_9080) -static void C_ccall trf_9080(C_word c,C_word *av) C_noret; -static void C_ccall trf_9080(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_9080(t0,t1,t2,t3);} - -C_noret_decl(trf_9094) -static void C_ccall trf_9094(C_word c,C_word *av) C_noret; -static void C_ccall trf_9094(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9094(t0,t1,t2);} - -C_noret_decl(trf_9138) -static void C_ccall trf_9138(C_word c,C_word *av) C_noret; -static void C_ccall trf_9138(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9138(t0,t1,t2);} - -C_noret_decl(trf_9152) -static void C_ccall trf_9152(C_word c,C_word *av) C_noret; -static void C_ccall trf_9152(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9152(t0,t1,t2);} - -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_9227) -static void C_ccall trf_9227(C_word c,C_word *av) C_noret; -static void C_ccall trf_9227(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9227(t0,t1,t2);} - -C_noret_decl(trf_9283) -static void C_ccall trf_9283(C_word c,C_word *av) C_noret; -static void C_ccall trf_9283(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9283(t0,t1,t2);} - -C_noret_decl(trf_9342) -static void C_ccall trf_9342(C_word c,C_word *av) C_noret; -static void C_ccall trf_9342(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_9342(t0,t1,t2,t3,t4,t5);} - -C_noret_decl(trf_9350) -static void C_ccall trf_9350(C_word c,C_word *av) C_noret; -static void C_ccall trf_9350(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9350(t0,t1,t2);} - -C_noret_decl(trf_9373) -static void C_ccall trf_9373(C_word c,C_word *av) C_noret; -static void C_ccall trf_9373(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9373(t0,t1,t2);} - -C_noret_decl(trf_9401) -static void C_ccall trf_9401(C_word c,C_word *av) C_noret; -static void C_ccall trf_9401(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9401(t0,t1,t2);} - -C_noret_decl(trf_9423) -static void C_ccall trf_9423(C_word c,C_word *av) C_noret; -static void C_ccall trf_9423(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9423(t0,t1,t2);} - -C_noret_decl(trf_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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_9492(t0,t1,t2,t3,t4);} - -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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_9504(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_9512) -static void C_ccall trf_9512(C_word c,C_word *av) C_noret; -static void C_ccall trf_9512(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9512(t0,t1,t2);} - -C_noret_decl(trf_9535) -static void C_ccall trf_9535(C_word c,C_word *av) C_noret; -static void C_ccall trf_9535(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9535(t0,t1,t2);} - -C_noret_decl(trf_9563) -static void C_ccall trf_9563(C_word c,C_word *av) C_noret; -static void C_ccall trf_9563(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9563(t0,t1,t2);} - -C_noret_decl(trf_9604) -static void C_ccall trf_9604(C_word c,C_word *av) C_noret; -static void C_ccall trf_9604(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9604(t0,t1,t2);} - -C_noret_decl(trf_9675) -static void C_ccall trf_9675(C_word c,C_word *av) C_noret; -static void C_ccall trf_9675(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_9675(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_9687) -static void C_ccall trf_9687(C_word c,C_word *av) C_noret; -static void C_ccall trf_9687(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_9687(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_9695) -static void C_ccall trf_9695(C_word c,C_word *av) C_noret; -static void C_ccall trf_9695(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9695(t0,t1,t2);} - -C_noret_decl(trf_9727) -static void C_ccall trf_9727(C_word c,C_word *av) C_noret; -static void C_ccall trf_9727(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9727(t0,t1,t2);} - -C_noret_decl(trf_9750) -static void C_ccall trf_9750(C_word c,C_word *av) C_noret; -static void C_ccall trf_9750(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9750(t0,t1,t2);} - -C_noret_decl(trf_9789) -static void C_ccall trf_9789(C_word c,C_word *av) C_noret; -static void C_ccall trf_9789(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9789(t0,t1,t2);} - -C_noret_decl(trf_9842) -static void C_ccall trf_9842(C_word c,C_word *av) C_noret; -static void C_ccall trf_9842(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9842(t0,t1,t2);} - -C_noret_decl(trf_9922) -static void C_ccall trf_9922(C_word c,C_word *av) C_noret; -static void C_ccall trf_9922(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9922(t0,t1,t2);} - -C_noret_decl(trf_9977) -static void C_ccall trf_9977(C_word c,C_word *av) C_noret; -static void C_ccall trf_9977(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_9977(t0,t1,t2);} - -/* f12337 in g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f12337(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f12337,c,av);} -/* modules.scm:880: module-rename */ -f_10570(((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* f12341 in g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f12341(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f12341,c,av);} -/* modules.scm:880: module-rename */ -f_10570(((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* f13052 in k6511 in g1262 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f13052(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f13052,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* f13056 in g1262 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f13056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f13056,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10000 in map-loop2553 in k9963 in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_10002(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10002,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_9977(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* map-loop2527 in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_10011(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_10011,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10036,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); -/* modules.scm:795: g2533 */ -t4=((C_word*)t0)[4]; -f_9922(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k10034 in map-loop2527 in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_10036(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_10036,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_10011(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k10052 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10054,c,av);} -/* modules.scm:797: module-imports */ -t2=((C_word*)t0)[2]; -f_9227(t2,((C_word*)t0)[3],t1);} - -/* ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8=av[8]; -C_word t9=av[9]; -C_word t10; -C_word t11; -C_word *a; -if(c!=10) C_bad_argc_2(c,10,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ -C_save_and_reclaim((void *)f_10060,c,av);} -a=C_alloc(11); -t10=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10064,a[2]=t3,a[3]=t4,a[4]=t9,a[5]=t5,a[6]=t6,a[7]=t7,a[8]=t8,a[9]=t2,a[10]=t1,tmp=(C_word)a,a+=11,tmp); -/* modules.scm:800: ##sys#check-syntax */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[182]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[182]+1); -av2[1]=t10; -av2[2]=t9; -av2[3]=t2; -av2[4]=lf[199]; -tp(5,av2);}} - -/* k10062 in ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10064(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_10064,c,av);} -a=C_alloc(20); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_10065,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word)li173),tmp=(C_word)a,a+=10,tmp); -t3=C_i_cdr(((C_word*)t0)[9]); -t4=C_i_check_list_2(t3,lf[70]); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10099,a[2]=((C_word*)t0)[10],tmp=(C_word)a,a+=3,tmp); -t6=C_SCHEME_UNDEFINED; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10101,a[2]=t7,a[3]=t2,a[4]=((C_word)li174),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_10101(t9,t5,t3);} - -/* g2596 in k10062 in ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10065(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,0,8)))){ -C_save_and_reclaim_args((void *)trf_10065,3,t0,t1,t2);} -a=C_alloc(16); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10071,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)li171),tmp=(C_word)a,a+=7,tmp); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_10077,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word)li172),tmp=(C_word)a,a+=9,tmp); -/* modules.scm:803: ##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);}} - -/* a10070 in g2596 in k10062 in ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_10071,c,av);} -/* modules.scm:803: ##sys#decompose-import */ -t2=*((C_word*)lf[105]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[4]; -av2[5]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* a10076 in g2596 in k10062 in ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10077(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8; -C_word *a; -if(c!=8) C_bad_argc_2(c,8,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,10)))){ -C_save_and_reclaim((void *)f_10077,c,av);} -if(C_truep(C_i_not(t4))){ -/* modules.scm:805: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[177]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=lf[196]; -av2[4]=t2; -av2[5]=((C_word*)t0)[3]; -tp(6,av2);}} -else{ -/* modules.scm:806: ##sys#import */ -t8=*((C_word*)lf[197]+1);{ -C_word *av2; -if(c >= 11) { - av2=av; -} else { - av2=C_alloc(11); -} -av2[0]=t8; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -av2[4]=t6; -av2[5]=t7; -av2[6]=((C_word*)t0)[4]; -av2[7]=((C_word*)t0)[5]; -av2[8]=((C_word*)t0)[6]; -av2[9]=((C_word*)t0)[7]; -av2[10]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t8+1)))(11,av2);}}} - -/* k10097 in k10062 in ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10099(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_10099,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=lf[198]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* for-each-loop2595 in k10062 in ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10101(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_10101,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10111,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:801: g2596 */ -t4=((C_word*)t0)[3]; -f_10065(t4,t3,C_slot(t2,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);}}} - -/* k10109 in for-each-loop2595 in k10062 in ##sys#expand-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10111(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10111,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10101(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10124(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8=av[8]; -C_word t9=av[9]; -C_word t10=av[10]; -C_word t11; -C_word t12; -C_word *a; -if(c!=11) C_bad_argc_2(c,11,t0); -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_10124,c,av);} -a=C_alloc(12); -t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_10128,a[2]=t6,a[3]=t3,a[4]=t7,a[5]=t4,a[6]=t1,a[7]=t9,a[8]=t5,a[9]=t10,a[10]=t8,a[11]=t2,tmp=(C_word)a,a+=12,tmp); -/* modules.scm:811: ##sys#current-module */ -t12=*((C_word*)lf[4]+1);{ -C_word *av2=av; -av2[0]=t12; -av2[1]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(2,av2);}} - -/* k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10128(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,3)))){ -C_save_and_reclaim((void *)f_10128,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10131,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -if(C_truep(t1)){ -if(C_truep(((C_word*)t0)[10])){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10545,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=( -/* modules.scm:816: module-meta-import-forms */ - f_5404(lf[30],t1) -); -t5=C_a_i_list1(&a,1,((C_word*)t0)[11]); -/* modules.scm:816: scheme#append */ -t6=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t3; -av2[2]=t4; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10560,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=( -/* modules.scm:819: module-import-forms */ - f_5386(lf[27],t1) -); -t5=C_a_i_list1(&a,1,((C_word*)t0)[11]); -/* modules.scm:819: scheme#append */ -t6=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t3; -av2[2]=t4; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_10131(2,av2);}}} - -/* k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ -C_save_and_reclaim((void *)f_10131,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10141,a[2]=((C_word*)t0)[2],a[3]=((C_word)li176),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[3],lf[70]); -t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10185,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_10514,a[2]=t6,a[3]=t2,a[4]=((C_word)li183),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_10514(t8,t4,((C_word*)t0)[3]);} - -/* g2657 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10141(C_word t0,C_word t1,C_word t2){ -C_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_10141,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10148,a[2]=t3,a[3]=t2,a[4]=t1,a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -/* modules.scm:826: ##sys#put! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[202]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[202]+1); -av2[1]=t4; -av2[2]=t3; -av2[3]=lf[161]; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* k10146 in g2657 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10148(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_10148,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10179,a[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:827: import-env */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k10177 in k10146 in g2657 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10179,c,av);} -t2=C_i_assq(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=C_u_i_cdr(((C_word*)t0)[3]); -if(C_truep(t3)){ -t4=C_i_cdr(t2); -t5=C_eqp(t3,t4); -if(C_truep(C_i_not(t5))){ -/* modules.scm:830: ##sys#notice */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[200]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[200]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[201]; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} -else{ -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word 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_10185,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10186,a[2]=((C_word*)t0)[2],a[3]=((C_word)li177),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[3],lf[70]); -t4=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_10232,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_10491,a[2]=t6,a[3]=t2,a[4]=((C_word)li182),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_10491(t8,t4,((C_word*)t0)[3]);} - -/* g2667 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10186(C_word t0,C_word t1,C_word 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_10186,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10193,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:835: ##sys#put! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[202]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[202]+1); -av2[1]=t4; -av2[2]=t3; -av2[3]=lf[161]; -av2[4]=C_SCHEME_FALSE; -tp(5,av2);}} - -/* k10191 in g2667 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10193(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_10193,c,av);} -a=C_alloc(5); -t2=C_u_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10226,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:836: macro-env */ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k10224 in k10191 in g2667 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10226(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10226,c,av);} -t2=C_i_assq(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=C_u_i_cdr(((C_word*)t0)[3]); -t4=C_i_cdr(t2); -t5=C_eqp(t3,t4); -if(C_truep(C_i_not(t5))){ -/* modules.scm:838: ##sys#notice */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[200]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[200]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[203]; -av2[3]=C_u_i_car(((C_word*)t0)[3]); -tp(4,av2);}} -else{ -t6=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} -else{ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ -C_save_and_reclaim((void *)f_10232,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10235,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_10260,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; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_10260(2,av2);}} -else{ -/* modules.scm:842: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[177]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[10]; -av2[3]=lf[204]; -tp(4,av2);}}} -else{ -t3=t2; -f_10235(t3,C_SCHEME_UNDEFINED);}} - -/* k10233 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10235(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_10235,2,t0,t1);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10238,a[2]=((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_10253,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_10257,a[2]=t3,a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:863: 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);}} - -/* k10236 in k10233 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_10238,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10245,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_10249,a[2]=t2,a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:864: macro-env */ -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k10243 in k10236 in k10233 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10245,c,av);} -/* modules.scm:864: macro-env */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k10247 in k10236 in k10233 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(6,c,2)))){ -C_save_and_reclaim((void *)f_10249,c,av);} -a=C_alloc(6); -/* modules.scm:864: merge-se */ -f_6605(((C_word*)t0)[2],C_a_i_list(&a,2,t1,((C_word*)t0)[3]));} - -/* k10251 in k10233 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10253(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10253,c,av);} -/* modules.scm:863: import-env */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=t1; -((C_proc)C_fast_retrieve_proc(t2))(3,av2);}} - -/* k10255 in k10233 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10257(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_10257,c,av);} -a=C_alloc(6); -/* modules.scm:863: merge-se */ -f_6605(((C_word*)t0)[2],C_a_i_list(&a,2,t1,((C_word*)t0)[3]));} - -/* k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_10260,c,av);} -a=C_alloc(27); -t2=( -/* modules.scm:843: module-export-list */ - f_5296(lf[12],((C_word*)t0)[2]) -); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10266,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=C_eqp(C_SCHEME_TRUE,t2); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10286,a[2]=t3,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); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10383,a[2]=t5,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t7=( -/* modules.scm:845: module-sexports */ - f_5458(lf[39],((C_word*)t0)[2]) -); -/* modules.scm:845: scheme#append */ -t8=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(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);}} -else{ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10394,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t6=( -/* modules.scm:855: module-export-list */ - f_5296(lf[12],((C_word*)t0)[2]) -); -t7=C_eqp(C_SCHEME_TRUE,t6); -t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:t6); -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_10408,a[2]=t5,a[3]=t8,a[4]=((C_word*)t0)[5],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_10451,a[2]=t11,a[3]=t15,a[4]=t12,a[5]=((C_word)li181),tmp=(C_word)a,a+=6,tmp)); -t17=((C_word*)t15)[1]; -f_10451(t17,t13,((C_word*)t0)[6]);}} - -/* k10264 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 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_10266,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10269,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10276,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t4=( -/* modules.scm:861: module-iexports */ - f_5476(lf[42],((C_word*)t0)[3]) -); -/* modules.scm:861: merge-se */ -f_6605(t3,C_a_i_list(&a,2,t4,((C_word*)t0)[4]));} - -/* k10267 in k10264 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,1)))){ -C_save_and_reclaim((void *)f_10269,c,av);} -t2=((C_word*)t0)[2]; -f_10235(t2,C_SCHEME_UNDEFINED);} - -/* k10274 in k10264 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10276,c,av);} -/* modules.scm:859: set-module-iexports! */ -t2=lf[44]; -f_5485(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* k10284 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10286(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_10286,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10293,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t3=( -/* modules.scm:848: module-exist-list */ - f_5332(lf[19],((C_word*)t0)[3]) -); -t4=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t5=t4; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=((C_word*)t6)[1]; -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10304,a[2]=t2,a[3]=t3,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_10347,a[2]=t6,a[3]=t10,a[4]=t7,a[5]=((C_word)li179),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_10347(t12,t8,((C_word*)t0)[5]);} - -/* k10291 in k10284 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10293(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10293,c,av);} -/* modules.scm:846: set-module-exist-list! */ -t2=lf[21]; -f_5341(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* k10302 in k10284 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word t4; -C_word t5; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_10304,c,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|4,a[1]=(C_word)f_10311,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t7=C_SCHEME_UNDEFINED; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10313,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li178),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_10313(t10,t6,((C_word*)t0)[4]);} - -/* k10309 in k10302 in k10284 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(0,c,4)))){ -C_save_and_reclaim((void *)f_10311,c,av);} -/* modules.scm:848: scheme#append */ -t2=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* map-loop2738 in k10302 in k10284 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10313(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_10313,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* map-loop2712 in k10284 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10347(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_10347,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k10381 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10383,c,av);} -/* modules.scm:845: set-module-sexports! */ -t2=lf[41]; -f_5467(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* k10392 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10394(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10394,c,av);} -/* modules.scm:852: set-module-export-list! */ -t2=lf[14]; -f_5305(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* k10406 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10408(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_10408,c,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|4,a[1]=(C_word)f_10415,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -t7=C_SCHEME_UNDEFINED; -t8=(*a=C_VECTOR_TYPE|1,a[1]=t7,tmp=(C_word)a,a+=2,tmp); -t9=C_set_block_item(t8,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10417,a[2]=t4,a[3]=t8,a[4]=t5,a[5]=((C_word)li180),tmp=(C_word)a,a+=6,tmp)); -t10=((C_word*)t8)[1]; -f_10417(t10,t6,((C_word*)t0)[4]);} - -/* k10413 in k10406 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10415(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_10415,c,av);} -/* modules.scm:854: scheme#append */ -t2=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* map-loop2792 in k10406 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10417(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_10417,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -t1=t9; -t2=t10; -goto loop;} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[4],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* map-loop2766 in k10258 in k10230 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10451(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_10451,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* for-each-loop2666 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10491(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_10491,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10501,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:832: g2667 */ -t4=((C_word*)t0)[3]; -f_10186(t4,t3,C_slot(t2,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);}}} - -/* k10499 in for-each-loop2666 in k10183 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10501(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10501,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10491(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* for-each-loop2656 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10514(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_10514,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10524,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:823: g2657 */ -t4=((C_word*)t0)[3]; -f_10141(t4,t3,C_slot(t2,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);}}} - -/* k10522 in for-each-loop2656 in k10129 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10524,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_10514(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k10543 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10545,c,av);} -/* modules.scm:814: set-module-meta-import-forms! */ -t2=lf[32]; -f_5413(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* k10558 in k10126 in ##sys#import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10560(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10560,c,av);} -/* modules.scm:817: set-module-import-forms! */ -t2=lf[29]; -f_5395(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* module-rename in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10570(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_10570,3,t1,t2,t3);} -a=C_alloc(7); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10578,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10582,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:869: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[175]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[175]+1); -av2[1]=t5; -av2[2]=t3; -tp(3,av2);}} - -/* k10576 in module-rename in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10578(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_10578,c,av);} -/* modules.scm:867: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[188]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[188]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k10580 in module-rename in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(4,c,2)))){ -C_save_and_reclaim((void *)f_10582,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10586,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:871: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[175]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[175]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k10584 in k10580 in module-rename in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,4)))){ -C_save_and_reclaim((void *)f_10586,c,av);} -/* modules.scm:868: scheme#string-append */ -t2=*((C_word*)lf[142]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[205]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_10588,c,av);} -a=C_alloc(10); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10591,a[2]=t3,a[3]=t4,a[4]=((C_word)li188),tmp=(C_word)a,a+=5,tmp); -if(C_truep(C_u_i_namespaced_symbolp(t2))){ -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10660,a[2]=t2,a[3]=t5,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:883: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t6; -tp(2,av2);}}} - -/* mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10591(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_10591,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10595,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:875: ##sys#current-module */ -t4=*((C_word*)lf[4]+1);{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10595(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_10595,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10599,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word)li187),tmp=(C_word)a,a+=6,tmp); -/* modules.scm:875: g2849 */ -t3=t2; -f_10599(t3,((C_word*)t0)[5],t1);} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void 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(11,0,2)))){ -C_save_and_reclaim_args((void *)trf_10599,3,t0,t1,t2);} -a=C_alloc(11); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10606,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -if(C_truep(((C_word*)t0)[3])){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f12337,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:880: module-name */ -t5=lf[8];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -f_5278(3,av2);}} -else{ -if(C_truep(t2)){ -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6236,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=t3,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:250: module-undefined-list */ -t5=*((C_word*)lf[25]+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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f12341,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:880: module-name */ -t5=lf[8];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -f_5278(3,av2);}}}} - -/* k10604 in g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_10606,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10613,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:880: module-name */ -t3=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -f_5278(3,av2);}} - -/* k10611 in k10604 in g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10613,c,av);} -/* modules.scm:880: module-rename */ -f_10570(((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* g2860 in k10658 in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10634(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_10634,3,t0,t1,t2);} -t3=C_i_cdr(t2); -if(C_truep(C_i_pairp(t3))){ -/* modules.scm:888: mrename */ -t4=((C_word*)t0)[2]; -f_10591(t4,t1,((C_word*)t0)[3]);} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k10658 in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_10660,c,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_10634,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=((C_word)li189),tmp=(C_word)a,a+=5,tmp); -/* modules.scm:882: g2860 */ -t4=t3; -f_10634(t4,((C_word*)t0)[4],t2);} -else{ -/* modules.scm:889: mrename */ -t3=((C_word*)t0)[3]; -f_10591(t3,((C_word*)t0)[4],((C_word*)t0)[2]);}} - -/* ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=av[2]; -C_word t3=av[3]; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word *a; -if(c!=4) C_bad_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(22,c,3)))){ -C_save_and_reclaim((void *)f_10662,c,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_10665,a[2]=t3,a[3]=((C_word)li191),tmp=(C_word)a,a+=4,tmp)); -t9=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10671,a[2]=t5,a[3]=t2,a[4]=((C_word)li192),tmp=(C_word)a,a+=5,tmp)); -t10=C_eqp(lf[210],t2); -if(C_truep(t10)){ -t11=t1;{ -C_word *av2=av; -av2[0]=t11; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t11+1)))(2,av2);}} -else{ -if(C_truep(C_i_symbolp(t2))){ -/* modules.scm:899: iface */ -t11=((C_word*)t7)[1]; -f_10671(t11,t1,t2);} -else{ -t11=C_i_listp(t2); -if(C_truep(C_i_not(t11))){ -/* modules.scm:901: err */ -t12=((C_word*)t5)[1]; -f_10665(t12,t1,C_a_i_list(&a,2,lf[211],t2));} -else{ -t12=C_SCHEME_UNDEFINED; -t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); -t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10712,a[2]=t5,a[3]=t2,a[4]=t13,a[5]=t7,a[6]=((C_word)li194),tmp=(C_word)a,a+=7,tmp)); -t15=((C_word*)t13)[1]; -f_10712(t15,t1,t2);}}}} - -/* err in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10665(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_10665,3,t0,t1,t2);}{ -C_word av2[5]; -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[177]+1); -av2[3]=((C_word*)t0)[2]; -av2[4]=t2; -C_apply(5,av2);}} - -/* iface in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10671(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_10671,3,t0,t1,t2);} -a=C_alloc(9); -t3=C_i_getprop(t2,lf[208],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:897: err */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_10665(t4,t1,C_a_i_list(&a,3,lf[209],t2,((C_word*)t0)[3]));}} - -/* loop in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10712(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_10712,3,t0,t1,t2);} -a=C_alloc(11); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -/* modules.scm:906: err */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_10665(t4,t1,C_a_i_list(&a,2,lf[212],((C_word*)t0)[3]));} -else{ -t4=C_i_car(t2); -if(C_truep(C_i_symbolp(t4))){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10744,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:909: loop */ -t13=t5; -t14=C_u_i_cdr(t2); -t1=t13; -t2=t14; -goto loop;} -else{ -t5=C_i_listp(t4); -if(C_truep(C_i_not(t5))){ -/* modules.scm:911: err */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_10665(t6,t1,C_a_i_list(&a,3,lf[213],t4,((C_word*)t0)[3]));} -else{ -t6=C_i_car(t4); -t7=C_eqp(lf[214],t6); -if(C_truep(t7)){ -t8=C_u_i_cdr(t4); -t9=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10770,a[2]=t1,a[3]=t8,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:913: loop */ -t13=t9; -t14=C_u_i_cdr(t2); -t1=t13; -t2=t14; -goto loop;} -else{ -t8=C_eqp(lf[215],C_u_i_car(t4)); -if(C_truep(t8)){ -t9=C_i_pairp(C_u_i_cdr(t4)); -t10=(C_truep(t9)?C_i_symbolp(C_i_cadr(t4)):C_SCHEME_FALSE); -if(C_truep(t10)){ -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_10791,a[2]=t1,a[3]=((C_word*)t0)[4],a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:916: iface */ -t12=((C_word*)((C_word*)t0)[5])[1]; -f_10671(t12,t11,C_i_cadr(t4));} -else{ -/* modules.scm:917: err */ -t11=((C_word*)((C_word*)t0)[2])[1]; -f_10665(t11,t1,C_a_i_list(&a,3,lf[216],t4,((C_word*)t0)[3]));}} -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_10821,a[2]=t4,a[3]=((C_word*)t0)[4],a[4]=t2,a[5]=t10,a[6]=((C_word*)t0)[2],a[7]=((C_word*)t0)[3],a[8]=((C_word)li193),tmp=(C_word)a,a+=9,tmp)); -t12=((C_word*)t10)[1]; -f_10821(t12,t1,t4);}}}}}}} - -/* k10742 in loop in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10744(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_10744,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10768 in loop in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10770(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_10770,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k10789 in loop in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_10791,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10795,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:916: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_10712(t3,t2,C_u_i_cdr(((C_word*)t0)[4]));} - -/* k10793 in k10789 in loop in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_10795,c,av);} -/* modules.scm:916: scheme#append */ -t2=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* loop2 in loop in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10821(C_word 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; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(9,0,2)))){ -C_save_and_reclaim_args((void *)trf_10821,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_10835,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:920: loop */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_10712(t4,t3,C_i_cdr(((C_word*)t0)[4]));} -else{ -t3=C_i_car(t2); -if(C_truep(C_i_symbolp(t3))){ -/* modules.scm:921: loop2 */ -t5=t1; -t6=C_u_i_cdr(t2); -t1=t5; -t2=t6; -goto loop;} -else{ -/* modules.scm:922: err */ -t4=((C_word*)((C_word*)t0)[6])[1]; -f_10665(t4,t1,C_a_i_list(&a,3,lf[217],((C_word*)t0)[2],((C_word*)t0)[7]));}}} - -/* k10833 in loop2 in loop in ##sys#validate-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_10835,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#register-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10877(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_10877,c,av);} -a=C_alloc(14); -t6=C_a_i_cons(&a,2,t4,t5); -t7=C_a_i_cons(&a,2,t3,t6); -t8=t1;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_a_i_putprop(&a,3,t2,lf[100],t7); -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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(18,c,3)))){ -C_save_and_reclaim((void *)f_10893,c,av);} -a=C_alloc(18); -t5=C_i_getprop(t3,lf[100],C_SCHEME_FALSE); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10901,a[2]=t2,a[3]=((C_word)li197),tmp=(C_word)a,a+=4,tmp); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10908,a[2]=t5,a[3]=t2,a[4]=t4,a[5]=t3,a[6]=t6,a[7]=t1,tmp=(C_word)a,a+=8,tmp); -if(C_truep(t5)){ -t8=t7;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -f_10908(2,av2);}} -else{ -/* modules.scm:931: err */ -t8=t6; -f_10901(t8,t7,C_a_i_list(&a,2,lf[224],t3));}} - -/* err in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10901(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_10901,3,t0,t1,t2);}{ -C_word av2[5]; -av2[0]=0; -av2[1]=t1; -av2[2]=*((C_word*)lf[177]+1); -av2[3]=((C_word*)t0)[2]; -av2[4]=t2; -C_apply(5,av2);}} - -/* k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10908(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_10908,c,av);} -a=C_alloc(23); -t2=C_i_car(((C_word*)t0)[2]); -t3=C_i_cadr(((C_word*)t0)[2]); -t4=C_u_i_cdr(((C_word*)t0)[2]); -t5=C_u_i_cdr(t4); -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_10918,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)li199),tmp=(C_word)a,a+=8,tmp); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10981,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[7],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|6,a[1]=(C_word)f_11002,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[5],a[4]=t6,a[5]=t9,a[6]=((C_word)li201),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_11002(t11,t7,((C_word*)t0)[4],t2);} - -/* merr in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_10918(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_10918,2,t0,t1);} -a=C_alloc(22); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -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)[4],lf[57]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10940,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[6],a[4]=t1,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|5,a[1]=(C_word)f_10942,a[2]=t5,a[3]=t10,a[4]=t6,a[5]=((C_word)li198),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_10942(t12,t8,((C_word*)t0)[4]);} - -/* k10938 in merr in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10940(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_10940,c,av);} -a=C_alloc(12); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* modules.scm:936: err */ -t3=((C_word*)t0)[3]; -f_10901(t3,((C_word*)t0)[4],C_a_i_list(&a,3,lf[220],((C_word*)t0)[5],t2));} - -/* map-loop2938 in merr in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void 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 *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_10942,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k10979 in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_10981(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_10981,c,av);} -a=C_alloc(18); -t2=C_eqp(lf[210],((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[221],t4); -t6=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_list(&a,3,lf[222],t1,t5); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11002(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word 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_11002,4,t0,t1,t2,t3);} -a=C_alloc(10); -if(C_truep(C_i_nullp(t2))){ -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11014,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)li200),tmp=(C_word)a,a+=7,tmp)); -t7=((C_word*)t5)[1]; -f_11014(t7,t1,t3);} -else{ -if(C_truep(C_i_nullp(t3))){ -/* modules.scm:955: merr */ -t4=((C_word*)t0)[4]; -f_10918(t4,t1);} -else{ -t4=C_i_car(t3); -t5=C_i_car(t4); -t6=C_u_i_cdr(t4); -t7=C_i_pairp(t5); -t8=(C_truep(t7)?C_i_car(t5):t5); -t9=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_11089,a[2]=t8,a[3]=t1,a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=t3,a[7]=((C_word*)t0)[2],a[8]=t6,a[9]=((C_word*)t0)[3],tmp=(C_word)a,a+=10,tmp); -/* modules.scm:963: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[62]+1); -av2[1]=t9; -av2[2]=C_i_car(t2); -tp(3,av2);}}}} - -/* loop2 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11014(C_word t0,C_word t1,C_word t2){ -C_word 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_11014,3,t0,t1,t2);} -a=C_alloc(12); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_car(t2); -t4=C_i_car(t3); -if(C_truep(C_i_pairp(t4))){ -t5=C_u_i_cdr(t3); -t6=C_i_caar(t3); -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_11037,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[3],a[7]=t5,a[8]=((C_word*)t0)[4],tmp=(C_word)a,a+=9,tmp); -t8=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11057,a[2]=t7,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:949: scheme#cadar */ -t9=*((C_word*)lf[130]+1);{ -C_word av2[3]; -av2[0]=t9; -av2[1]=t8; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} -else{ -/* modules.scm:953: merr */ -t5=((C_word*)t0)[5]; -f_10918(t5,t1);}}} - -/* k11035 in loop2 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11037(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,5)))){ -C_save_and_reclaim((void *)f_11037,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11040,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); -/* modules.scm:950: match-functor-argument */ -f_11119(t2,((C_word*)t0)[6],t1,((C_word*)t0)[7],((C_word*)t0)[8]);} - -/* k11038 in k11035 in loop2 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11040(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_11040,c,av);} -a=C_alloc(10); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11051,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:951: loop2 */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_11014(t4,t3,C_u_i_cdr(((C_word*)t0)[6]));} - -/* k11049 in k11038 in k11035 in loop2 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11051(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11051,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11055 in loop2 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11057(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11057,c,av);} -/* modules.scm:949: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[62]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k11087 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11089(C_word c,C_word *av){ -C_word tmp; -C_word t0=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,5)))){ -C_save_and_reclaim((void *)f_11089,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_11092,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); -/* modules.scm:964: match-functor-argument */ -f_11119(t2,((C_word*)t0)[7],t1,((C_word*)t0)[8],((C_word*)t0)[9]);} - -/* k11090 in k11087 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11092(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_11092,c,av);} -a=C_alloc(10); -t2=C_a_i_list2(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11103,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:966: loop */ -t4=((C_word*)((C_word*)t0)[5])[1]; -f_11002(t4,t3,C_u_i_cdr(((C_word*)t0)[6]),C_u_i_cdr(((C_word*)t0)[7]));} - -/* k11101 in k11090 in k11087 in loop in k10906 in ##sys#instantiate-functor in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11103(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11103,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11119(C_word t1,C_word t2,C_word t3,C_word t4,C_word t5){ -C_word tmp; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,0,3)))){ -C_save_and_reclaim_args((void *)trf_11119,5,t1,t2,t3,t4,t5);} -a=C_alloc(10); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11123,a[2]=t4,a[3]=t1,a[4]=t5,a[5]=t2,a[6]=t3,tmp=(C_word)a,a+=7,tmp); -t7=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11276,a[2]=t6,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:973: ##sys#resolve-module-name */ -t8=*((C_word*)lf[59]+1);{ -C_word av2[4]; -av2[0]=t8; -av2[1]=t7; -av2[2]=t3; -av2[3]=lf[6]; -((C_proc)(void*)(*((C_word*)t8+1)))(4,av2);}} - -/* k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11123(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word 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_11123,c,av);} -a=C_alloc(21); -t2=C_eqp(((C_word*)t0)[2],lf[210]); -if(C_truep(t2)){ -t3=C_SCHEME_UNDEFINED; -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t3=C_SCHEME_END_OF_LIST; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11130,a[2]=t1,a[3]=t4,a[4]=((C_word)li203),tmp=(C_word)a,a+=5,tmp); -t6=C_i_check_list_2(((C_word*)t0)[2],lf[70]); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_11170,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); -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_11251,a[2]=t9,a[3]=t5,a[4]=((C_word)li205),tmp=(C_word)a,a+=5,tmp)); -t11=((C_word*)t9)[1]; -f_11251(t11,t7,((C_word*)t0)[2]);}} - -/* g2999 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11130(C_word t0,C_word t1,C_word t2){ -C_word 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_11130,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_i_symbolp(t2); -t4=(C_truep(t3)?t2:C_i_car(t2)); -t5=( -/* modules.scm:979: module-vexports */ - f_5440(lf[36],((C_word*)t0)[2]) -); -t6=C_i_assq(t4,t5); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11143,a[2]=t1,a[3]=t4,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -if(C_truep(t6)){ -t8=t7; -f_11143(t8,t6);} -else{ -t8=( -/* modules.scm:980: module-sexports */ - f_5458(lf[39],((C_word*)t0)[2]) -); -t9=t7; -f_11143(t9,C_i_assq(t4,t8));}} - -/* k11141 in g2999 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11143(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_11143,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t2=C_a_i_cons(&a,2,((C_word*)t0)[3],((C_word*)((C_word*)t0)[4])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,t2); -t4=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11170(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_11170,c,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_11183,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11187,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:988: scheme#symbol->string */ -t4=*((C_word*)lf[145]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k11181 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11183,c,av);} -/* modules.scm:984: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[177]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[6]; -av2[3]=t1; -tp(4,av2);}} - -/* k11185 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11187(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11187,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11191,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); -/* modules.scm:989: scheme#symbol->string */ -t3=*((C_word*)lf[145]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11189 in k11185 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11191(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11191,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11195,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:990: scheme#symbol->string */ -t3=*((C_word*)lf[145]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11193 in k11189 in k11185 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11195(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_11195,c,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=((C_word*)((C_word*)t0)[2])[1]; -t7=C_i_check_list_2(t6,lf[57]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_11215,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,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_11217,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li204),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_11217(t12,t8,t6);} - -/* k11207 in map-loop3020 in k11193 in k11189 in k11185 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11209(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11209,c,av);} -/* ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[169]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[169]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[230]; -av2[3]=t1; -tp(4,av2);}} - -/* k11213 in k11193 in k11189 in k11185 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11215(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,11)))){ -C_save_and_reclaim((void *)f_11215,c,av);}{ -C_word *av2; -if(c >= 12) { - av2=av; -} else { - av2=C_alloc(12); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[142]+1); -av2[3]=lf[225]; -av2[4]=((C_word*)t0)[3]; -av2[5]=lf[226]; -av2[6]=lf[227]; -av2[7]=((C_word*)t0)[4]; -av2[8]=lf[228]; -av2[9]=((C_word*)t0)[5]; -av2[10]=lf[229]; -av2[11]=t1; -C_apply(12,av2);}} - -/* map-loop3020 in k11193 in k11189 in k11185 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11217(C_word 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_11217,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_11242,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_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11209,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:991: scheme#symbol->string */ -t6=*((C_word*)lf[145]+1);{ -C_word av2[3]; -av2[0]=t6; -av2[1]=t5; -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);}}} - -/* k11240 in map-loop3020 in k11193 in k11189 in k11185 in k11168 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11242(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_11242,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_11217(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* for-each-loop2998 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11251(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_11251,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11261,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:976: g2999 */ -t4=((C_word*)t0)[3]; -f_11130(t4,t3,C_slot(t2,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);}}} - -/* k11259 in for-each-loop2998 in k11121 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_11261,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_11251(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k11274 in match-functor-argument in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11276,c,av);} -/* modules.scm:973: ##sys#find-module */ -t2=*((C_word*)lf[63]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -av2[4]=lf[6]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11279(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_11279,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11282,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_11674,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:1126: scheme#append */ -t4=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[316]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11282(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11282,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11285,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:1132: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[315]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_END_OF_LIST; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11285(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_11285,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11288,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1133: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[314]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_END_OF_LIST; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11288(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11288,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11291,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1135: ##sys#register-module-alias */ -t3=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[312]; -av2[3]=lf[313]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11291(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_11291,c,av);} -a=C_alloc(12); -t2=C_mutate((C_word*)lf[233]+1 /* (set! se-subset ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11293,a[2]=((C_word)li209),tmp=(C_word)a,a+=3,tmp)); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11345,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11666,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11670,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1297: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t5; -tp(2,av2);}} - -/* se-subset in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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(18,c,3)))){ -C_save_and_reclaim((void *)f_11293,c,av);} -a=C_alloc(18); -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_11298,a[2]=t3,a[3]=((C_word)li207),tmp=(C_word)a,a+=4,tmp); -t9=C_i_check_list_2(t2,lf[57]); -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_11310,a[2]=t8,a[3]=t6,a[4]=t11,a[5]=t7,a[6]=((C_word)li208),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_11310(t13,t1,t2);} - -/* g3062 in se-subset in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_11298(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_assq(t1,((C_word*)t0)[2]));} - -/* map-loop3056 in se-subset in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_11310(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_11310,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* modules.scm:1138: g3062 */ - f_11298(((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t4=C_a_i_cons(&a,2,t3,C_SCHEME_END_OF_LIST); -t5=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t4); -t6=C_mutate(((C_word *)((C_word*)t0)[3])+1,t4); -t8=t1; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -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);}}} - -/* k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_11345,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11348,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11662,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1301: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11348,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11351,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1303: ##sys#register-primitive-module */ -t3=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[306]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=*((C_word*)lf[307]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11351,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11354,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1306: ##sys#register-primitive-module */ -t3=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[304]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=*((C_word*)lf[305]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_11354,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11357,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11658,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1310: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[303]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11357(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_11357,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11360,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11654,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1313: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[301]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11360(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_11360,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11363,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11650,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1316: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[299]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11363(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11363,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11366,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1318: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[295]; -av2[3]=lf[296]; -av2[4]=lf[297]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11366(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_11366,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11369,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11646,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1332: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[293]; -av2[3]=*((C_word*)lf[294]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_11369,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11372,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11642,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1335: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[290]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_11372(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,5)))){ -C_save_and_reclaim((void *)f_11372,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11375,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1337: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[287]; -av2[3]=lf[248]; -av2[4]=C_SCHEME_END_OF_LIST; -av2[5]=*((C_word*)lf[288]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_11375(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_11375,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11378,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=C_i_assq(lf[283],*((C_word*)lf[232]+1)); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11638,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:1348: se-subset */ -t5=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[286]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11378,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11381,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1350: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[281]; -av2[3]=lf[248]; -av2[4]=lf[282]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in ... */ -static void C_ccall f_11381(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11381,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11384,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1357: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[279]; -av2[3]=lf[248]; -av2[4]=lf[280]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in ... */ -static void C_ccall f_11384(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11384,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11387,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1384: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[277]; -av2[3]=lf[248]; -av2[4]=lf[278]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_11387,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11390,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11626,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1397: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[275]; -av2[3]=*((C_word*)lf[276]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in ... */ -static void C_ccall f_11390(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_11390,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11393,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11622,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1400: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[272]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in ... */ -static void C_ccall f_11393(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11393,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11396,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1402: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[268]; -av2[3]=lf[269]; -av2[4]=lf[270]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in ... */ -static void C_ccall f_11396(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_11396,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11399,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11618,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1406: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[267]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in ... */ -static void C_ccall f_11399(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_11399,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11402,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11614,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1409: se-subset */ -t4=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[265]; -av2[3]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in ... */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11402,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11405,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1411: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[262]; -av2[3]=lf[248]; -av2[4]=lf[263]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in ... */ -static void C_ccall f_11405(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_11405,c,av);} -a=C_alloc(9); -t2=C_mutate((C_word*)lf[234]+1 /* (set! chicken.module#module-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11407,a[2]=((C_word)li210),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[238]+1 /* (set! scheme.eval#environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11443,a[2]=((C_word)li215),tmp=(C_word)a,a+=3,tmp)); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11592,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1455: ##sys#register-core-module */ -t5=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[260]; -av2[3]=lf[254]; -av2[4]=lf[261]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* chicken.module#module-environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in ... */ -static void C_ccall f_11407(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_11407,c,av);} -a=C_alloc(5); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?t2:C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11414,a[2]=t1,a[3]=t2,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:1418: find-module/import-library */ -f_9050(t5,t2,lf[235]);} - -/* k11412 in chicken.module#module-environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 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 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_11414,c,av);} -a=C_alloc(6); -if(C_truep(C_i_not(t1))){ -/* modules.scm:1420: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[177]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[235]; -av2[3]=lf[236]; -av2[4]=((C_word*)t0)[3]; -tp(5,av2);}} -else{ -t2=( -/* modules.scm:1422: module-saved-environments */ - f_5494(lf[45],t1) -); -t3=C_i_car(t2); -t4=C_u_i_cdr(t2); -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_record5(&a,5,lf[237],((C_word*)t0)[4],t3,t4,C_SCHEME_TRUE); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +4,c,2)))){ -C_save_and_reclaim((void*)f_11443,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_11447,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:1430: chicken.base#gensym */ -t4=*((C_word*)lf[241]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[242]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_11447,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11449,a[2]=t1,a[3]=((C_word)li212),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11508,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li214),tmp=(C_word)a,a+=5,tmp); -/* modules.scm:1439: scheme#dynamic-wind */ -t4=*((C_word*)lf[239]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=*((C_word*)lf[240]+1); -av2[3]=t3; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* delmod in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in ... */ -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; -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(10,c,3)))){ -C_save_and_reclaim((void *)f_11449,c,av);} -a=C_alloc(10); -t2=C_i_assq(((C_word*)t0)[2],*((C_word*)lf[64]+1)); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11460,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -t4=*((C_word*)lf[64]+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_11468,a[2]=t2,a[3]=t6,a[4]=((C_word)li211),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_11468(t8,t3,*((C_word*)lf[64]+1));} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k11458 in delmod in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in ... */ -static void C_ccall f_11460(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11460,c,av);} -t2=C_mutate((C_word*)lf[64]+1 /* (set! ##sys#module-table ...) */,t1); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* loop in delmod in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in ... */ -static void f_11468(C_word t0,C_word t1,C_word t2){ -C_word 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_11468,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]=t2; -((C_proc)(void*)(*((C_word*)t3+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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11495,a[2]=t1,a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:1438: loop */ -t8=t6; -t9=C_slot(t2,C_fix(1)); -t1=t8; -t2=t9; -goto loop;}}} - -/* k11493 in loop in delmod in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in ... */ -static void C_ccall f_11495(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_11495,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* a11507 in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in ... */ -static void C_ccall f_11508(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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(22,c,3)))){ -C_save_and_reclaim((void *)f_11508,c,av);} -a=C_alloc(22); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11512,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],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_11555,a[2]=((C_word*)t0)[3],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_11557,a[2]=t5,a[3]=t9,a[4]=t6,a[5]=((C_word)li213),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_11557(t11,t7,((C_word*)t0)[2]);} - -/* k11510 in a11507 in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in ... */ -static void C_ccall f_11512(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_11512,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_11515,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:1445: ##sys#find-module */ -t3=*((C_word*)lf[63]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k11513 in k11510 in a11507 in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in ... */ -static void C_ccall f_11515(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_11515,c,av);} -a=C_alloc(9); -t2=( -/* modules.scm:1446: module-saved-environments */ - f_5494(lf[45],t1) -); -t3=C_a_i_cons(&a,2,lf[110],((C_word*)t0)[2]); -t4=C_i_car(t2); -t5=C_u_i_cdr(t2); -t6=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_a_i_record5(&a,5,lf[237],t3,t4,t5,C_SCHEME_TRUE); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k11553 in a11507 in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in ... */ -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; -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_11555,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t1); -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -t4=C_a_i_cons(&a,2,lf[6],t3); -/* modules.scm:1443: scheme#eval */ -t5=*((C_word*)lf[103]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -av2[2]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* map-loop3116 in a11507 in k11445 in scheme.eval#environment in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in ... */ -static void f_11557(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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_11557,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[110],t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k11590 in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in ... */ -static void C_ccall f_11592(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11592,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11595,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1460: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[258]; -av2[3]=lf[254]; -av2[4]=lf[259]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11593 in k11590 in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in ... */ -static void C_ccall f_11595(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11595,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11598,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1464: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[256]; -av2[3]=lf[248]; -av2[4]=lf[257]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11596 in k11593 in k11590 in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in ... */ -static void C_ccall f_11598(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11598,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11601,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1468: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[253]; -av2[3]=lf[254]; -av2[4]=lf[255]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11599 in k11596 in k11593 in k11590 in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in ... */ -static void C_ccall f_11601(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_11601,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11604,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:1472: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[251]; -av2[3]=lf[248]; -av2[4]=lf[252]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k11602 in k11599 in k11596 in k11593 in k11590 in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in ... */ -static void C_ccall f_11604(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11604,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11607,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken.base.import.scm:26: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[247]; -av2[3]=lf[248]; -av2[4]=lf[249]; -av2[5]=*((C_word*)lf[250]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k11605 in k11602 in k11599 in k11596 in k11593 in k11590 in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in ... */ -static void C_ccall f_11607(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11607,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11610,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* chicken.syntax.import.scm:30: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[243]; -av2[3]=lf[244]; -av2[4]=lf[245]; -av2[5]=*((C_word*)lf[246]+1); -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k11608 in k11605 in k11602 in k11599 in k11596 in k11593 in k11590 in k11403 in k11400 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in ... */ -static void C_ccall f_11610(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_11610,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k11612 in k11397 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in ... */ -static void C_ccall f_11614(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11614,c,av);} -/* modules.scm:1408: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[264]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11616 in k11394 in k11391 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in ... */ -static void C_ccall f_11618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11618,c,av);} -/* modules.scm:1405: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[266]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11620 in k11388 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in ... */ -static void C_ccall f_11622(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11622,c,av);} -/* modules.scm:1399: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[271]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11624 in k11385 in k11382 in k11379 in k11376 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in ... */ -static void C_ccall f_11626(C_word c,C_word *av){ -C_word tmp; -C_word 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_11626,c,av);} -/* modules.scm:1393: ##sys#register-core-module */ -t2=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[273]; -av2[3]=lf[248]; -av2[4]=lf[274]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k11636 in k11373 in k11370 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_11638(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_11638,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* modules.scm:1342: ##sys#register-core-module */ -t3=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[284]; -av2[3]=lf[248]; -av2[4]=lf[285]; -av2[5]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(6,av2);}} - -/* k11640 in k11367 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_11642(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11642,c,av);} -/* modules.scm:1334: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[289]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11644 in k11364 in k11361 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_11646(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_11646,c,av);} -/* modules.scm:1321: ##sys#register-core-module */ -t2=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[291]; -av2[3]=lf[248]; -av2[4]=lf[292]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k11648 in k11358 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11650(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11650,c,av);} -/* modules.scm:1315: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[298]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11652 in k11355 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11654(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11654,c,av);} -/* modules.scm:1312: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[300]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11656 in k11352 in k11349 in k11346 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11658,c,av);} -/* modules.scm:1309: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[302]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11660 in k11343 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11662(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_11662,c,av);} -/* modules.scm:1300: ##sys#register-primitive-module */ -t2=*((C_word*)lf[114]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[308]; -av2[3]=C_SCHEME_END_OF_LIST; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k11664 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_11666,c,av);} -/* modules.scm:1140: ##sys#register-core-module */ -t2=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[309]; -av2[3]=lf[248]; -av2[4]=lf[310]; -av2[5]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k11668 in k11289 in k11286 in k11283 in k11280 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11670(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_11670,c,av);} -/* modules.scm:1292: se-subset */ -t2=*((C_word*)lf[233]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[311]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k11672 in k11277 in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_11674(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_11674,c,av);} -/* modules.scm:1124: ##sys#register-core-module */ -t2=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[313]; -av2[3]=lf[248]; -av2[4]=t1; -av2[5]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* k3957 */ -static void C_ccall f_3959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_3959,c,av);} -a=C_alloc(11); -t2=C_a_i_provide(&a,1,lf[0]); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3962,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t3; -C_library_toplevel(2,av2);}} - -/* k3960 in k3957 */ -static void C_ccall f_3962(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3962,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3965,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_internal_toplevel(2,av2);}} - -/* k3963 in k3960 in k3957 */ -static void C_ccall f_3965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3965,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3968,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_expand_toplevel(2,av2);}} - -/* k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_3968(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3968,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3971,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_data_2dstructures_toplevel(2,av2);}} - -/* k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_3971(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_3971,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3974,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_extras_toplevel(2,av2);}} - -/* k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,5)))){ -C_save_and_reclaim((void *)f_3974,c,av);} -a=C_alloc(9); -t2=C_mutate(&lf[1] /* (set! delete ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4465,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate(&lf[2] /* (set! filter-map ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_4629,a[2]=((C_word)li5),tmp=(C_word)a,a+=3,tmp)); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5256,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:78: scheme#make-parameter */ -t5=*((C_word*)lf[318]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(3,av2);}} - -/* delete in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_4465(C_word 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_4465,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_4471,a[2]=t6,a[3]=t4,a[4]=t2,a[5]=((C_word)li0),tmp=(C_word)a,a+=6,tmp)); -t8=((C_word*)t6)[1]; -f_4471(t8,t1,t3);} - -/* loop in delete in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_4471(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_4471,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]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4484,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* mini-srfi-1.scm:106: test */ -t4=((C_word*)t0)[3];{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_i_car(t2); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}}} - -/* k4482 in loop in delete in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_4484(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_4484,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -/* mini-srfi-1.scm:107: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_4471(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t2=C_u_i_car(((C_word*)t0)[4]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4498,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* mini-srfi-1.scm:109: loop */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_4471(t4,t3,C_u_i_cdr(((C_word*)t0)[4]));}} - -/* k4496 in k4482 in loop in delete in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_4498,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* loop in k6760 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_4546(C_word t0,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_4546,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]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_car(t2); -t4=C_u_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_4560,a[2]=t4,a[3]=t1,a[4]=t2,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4573,a[2]=((C_word*)t0)[2],a[3]=t5,tmp=(C_word)a,a+=4,tmp); -/* mini-srfi-1.scm:123: delete */ -f_4465(t6,t3,t4,((C_word*)t0)[3]);}} - -/* k4558 in loop in k6760 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_4560,c,av);} -a=C_alloc(3); -t2=C_i_equalp(((C_word*)t0)[2],t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=(C_truep(t2)?((C_word*)t0)[4]:C_a_i_cons(&a,2,((C_word*)t0)[5],t1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k4571 in loop in k6760 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,c,av);} -/* mini-srfi-1.scm:123: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_4546(t2,((C_word*)t0)[3],t1);} - -/* filter-map in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_4629(C_word t1,C_word 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,3)))){ -C_save_and_reclaim_args((void *)trf_4629,3,t1,t2,t3);} -a=C_alloc(7); -t4=C_i_check_list_2(t3,lf[3]); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4638,a[2]=t2,a[3]=t6,a[4]=((C_word)li4),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_4638(t8,t1,t3);} - -/* foldr339 in filter-map in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_4638(C_word t0,C_word t1,C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_4638,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_4646,a[2]=((C_word*)t0)[2],a[3]=((C_word)li3),tmp=(C_word)a,a+=4,tmp); -t4=C_slot(t2,C_fix(0)); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_4672,a[2]=t3,a[3]=t1,a[4]=t4,tmp=(C_word)a,a+=5,tmp); -t7=t5; -t8=C_slot(t2,C_fix(1)); -t1=t7; -t2=t8; -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);}}} - -/* g344 in foldr339 in filter-map in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_4646(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,0,2)))){ -C_save_and_reclaim_args((void *)trf_4646,4,t0,t1,t2,t3);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4650,a[2]=t3,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* mini-srfi-1.scm:135: pred */ -t5=((C_word*)t0)[2];{ -C_word av2[3]; -av2[0]=t5; -av2[1]=t4; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} - -/* k4648 in g344 in foldr339 in filter-map in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_4650,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_4654,a[2]=((C_word*)t0)[2],a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp); -/* mini-srfi-1.scm:135: g354 */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( -/* mini-srfi-1.scm:135: g354 */ - f_4654(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; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* g354 in k4648 in g344 in foldr339 in filter-map in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_4654(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]));} - -/* k4670 in foldr339 in filter-map in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,3)))){ -C_save_and_reclaim((void *)f_4672,c,av);} -/* mini-srfi-1.scm:134: g344 */ -t2=((C_word*)t0)[2]; -f_4646(t2,((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5256,c,av);} -a=C_alloc(3); -t2=C_mutate((C_word*)lf[4]+1 /* (set! ##sys#current-module ...) */,t1); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5260,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:79: scheme#make-parameter */ -t4=*((C_word*)lf[318]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5260(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(231,c,16)))){ -C_save_and_reclaim((void *)f_5260,c,av);} -a=C_alloc(231); -t2=C_mutate((C_word*)lf[5]+1 /* (set! ##sys#module-alias-environment ...) */,t1); -t3=C_a_i_vector1(&a,1,lf[6]); -t4=C_mutate((C_word*)lf[6]+1 /* (set! module ...) */,t3); -t5=*((C_word*)lf[6]+1); -t6=C_mutate(&lf[7] /* (set! %make-module ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5266,a[2]=t5,a[3]=((C_word)li6),tmp=(C_word)a,a+=4,tmp)); -t7=*((C_word*)lf[6]+1); -t8=*((C_word*)lf[6]+1); -t9=C_mutate(&lf[8] /* (set! module-name ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5278,a[2]=t8,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); -t10=*((C_word*)lf[6]+1); -t11=C_mutate(&lf[10] /* (set! module-library ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5287,a[2]=t10,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp)); -t12=*((C_word*)lf[6]+1); -t13=C_mutate(&lf[12] /* (set! module-export-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5296,a[2]=t12,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); -t14=*((C_word*)lf[6]+1); -t15=C_mutate(&lf[14] /* (set! set-module-export-list! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5305,a[2]=t14,a[3]=((C_word)li10),tmp=(C_word)a,a+=4,tmp)); -t16=*((C_word*)lf[6]+1); -t17=C_mutate(&lf[16] /* (set! module-defined-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5314,a[2]=t16,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp)); -t18=*((C_word*)lf[6]+1); -t19=C_mutate(&lf[18] /* (set! set-module-defined-list! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5323,a[2]=t18,a[3]=((C_word)li12),tmp=(C_word)a,a+=4,tmp)); -t20=*((C_word*)lf[6]+1); -t21=C_mutate(&lf[19] /* (set! module-exist-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5332,a[2]=t20,a[3]=((C_word)li13),tmp=(C_word)a,a+=4,tmp)); -t22=*((C_word*)lf[6]+1); -t23=C_mutate(&lf[21] /* (set! set-module-exist-list! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5341,a[2]=t22,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp)); -t24=*((C_word*)lf[6]+1); -t25=C_mutate(&lf[22] /* (set! module-defined-syntax-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5350,a[2]=t24,a[3]=((C_word)li15),tmp=(C_word)a,a+=4,tmp)); -t26=*((C_word*)lf[6]+1); -t27=C_mutate(&lf[24] /* (set! set-module-defined-syntax-list! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5359,a[2]=t26,a[3]=((C_word)li16),tmp=(C_word)a,a+=4,tmp)); -t28=*((C_word*)lf[6]+1); -t29=C_mutate((C_word*)lf[25]+1 /* (set! module-undefined-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5368,a[2]=t28,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp)); -t30=*((C_word*)lf[6]+1); -t31=C_mutate((C_word*)lf[26]+1 /* (set! set-module-undefined-list! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5377,a[2]=t30,a[3]=((C_word)li18),tmp=(C_word)a,a+=4,tmp)); -t32=*((C_word*)lf[6]+1); -t33=C_mutate(&lf[27] /* (set! module-import-forms ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5386,a[2]=t32,a[3]=((C_word)li19),tmp=(C_word)a,a+=4,tmp)); -t34=*((C_word*)lf[6]+1); -t35=C_mutate(&lf[29] /* (set! set-module-import-forms! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5395,a[2]=t34,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp)); -t36=*((C_word*)lf[6]+1); -t37=C_mutate(&lf[30] /* (set! module-meta-import-forms ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5404,a[2]=t36,a[3]=((C_word)li21),tmp=(C_word)a,a+=4,tmp)); -t38=*((C_word*)lf[6]+1); -t39=C_mutate(&lf[32] /* (set! set-module-meta-import-forms! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5413,a[2]=t38,a[3]=((C_word)li22),tmp=(C_word)a,a+=4,tmp)); -t40=*((C_word*)lf[6]+1); -t41=C_mutate(&lf[33] /* (set! module-meta-expressions ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5422,a[2]=t40,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp)); -t42=*((C_word*)lf[6]+1); -t43=C_mutate(&lf[35] /* (set! set-module-meta-expressions! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5431,a[2]=t42,a[3]=((C_word)li24),tmp=(C_word)a,a+=4,tmp)); -t44=*((C_word*)lf[6]+1); -t45=C_mutate(&lf[36] /* (set! module-vexports ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5440,a[2]=t44,a[3]=((C_word)li25),tmp=(C_word)a,a+=4,tmp)); -t46=*((C_word*)lf[6]+1); -t47=C_mutate(&lf[38] /* (set! set-module-vexports! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5449,a[2]=t46,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp)); -t48=*((C_word*)lf[6]+1); -t49=C_mutate(&lf[39] /* (set! module-sexports ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5458,a[2]=t48,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp)); -t50=*((C_word*)lf[6]+1); -t51=C_mutate(&lf[41] /* (set! set-module-sexports! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5467,a[2]=t50,a[3]=((C_word)li28),tmp=(C_word)a,a+=4,tmp)); -t52=*((C_word*)lf[6]+1); -t53=C_mutate(&lf[42] /* (set! module-iexports ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5476,a[2]=t52,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp)); -t54=*((C_word*)lf[6]+1); -t55=C_mutate(&lf[44] /* (set! set-module-iexports! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5485,a[2]=t54,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp)); -t56=*((C_word*)lf[6]+1); -t57=C_mutate(&lf[45] /* (set! module-saved-environments ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5494,a[2]=t56,a[3]=((C_word)li31),tmp=(C_word)a,a+=4,tmp)); -t58=*((C_word*)lf[6]+1); -t59=C_mutate(&lf[47] /* (set! set-module-saved-environments! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5503,a[2]=t58,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp)); -t60=*((C_word*)lf[6]+1); -t61=C_mutate(&lf[48] /* (set! module-rename-list ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5512,a[2]=t60,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp)); -t62=*((C_word*)lf[6]+1); -t63=C_mutate(&lf[50] /* (set! set-module-rename-list! ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5521,a[2]=t62,a[3]=((C_word)li34),tmp=(C_word)a,a+=4,tmp)); -t64=C_mutate((C_word*)lf[51]+1 /* (set! ##sys#module-name ...) */,lf[8]); -t65=C_mutate((C_word*)lf[52]+1 /* (set! ##sys#module-exports ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5531,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp)); -t66=C_mutate(&lf[53] /* (set! make-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5549,a[2]=((C_word)li36),tmp=(C_word)a,a+=3,tmp)); -t67=C_mutate((C_word*)lf[54]+1 /* (set! ##sys#register-module-alias ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5564,a[2]=((C_word)li37),tmp=(C_word)a,a+=3,tmp)); -t68=C_mutate((C_word*)lf[55]+1 /* (set! ##sys#with-module-aliases ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5582,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp)); -t69=C_mutate((C_word*)lf[59]+1 /* (set! ##sys#resolve-module-name ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5685,a[2]=((C_word)li45),tmp=(C_word)a,a+=3,tmp)); -t70=C_mutate((C_word*)lf[63]+1 /* (set! ##sys#find-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5732,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); -t71=C_SCHEME_FALSE; -t72=(*a=C_VECTOR_TYPE|1,a[1]=t71,tmp=(C_word)a,a+=2,tmp); -t73=C_mutate((C_word*)lf[66]+1 /* (set! ##sys#switch-module ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5786,a[2]=t72,a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp)); -t74=C_mutate((C_word*)lf[69]+1 /* (set! ##sys#add-to-export-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5839,a[2]=((C_word)li52),tmp=(C_word)a,a+=3,tmp)); -t75=C_mutate((C_word*)lf[71]+1 /* (set! ##sys#add-to-export/rename-list ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5928,a[2]=((C_word)li54),tmp=(C_word)a,a+=3,tmp)); -t76=C_mutate((C_word*)lf[72]+1 /* (set! ##sys#toplevel-definition-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5988,a[2]=((C_word)li55),tmp=(C_word)a,a+=3,tmp)); -t77=C_mutate((C_word*)lf[73]+1 /* (set! ##sys#register-meta-expression ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5991,a[2]=((C_word)li56),tmp=(C_word)a,a+=3,tmp)); -t78=C_mutate(&lf[74] /* (set! check-for-redef ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6011,a[2]=((C_word)li57),tmp=(C_word)a,a+=3,tmp)); -t79=C_mutate((C_word*)lf[78]+1 /* (set! ##sys#register-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6032,a[2]=((C_word)li58),tmp=(C_word)a,a+=3,tmp)); -t80=C_mutate((C_word*)lf[82]+1 /* (set! ##sys#register-syntax-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6121,a[2]=((C_word)li59),tmp=(C_word)a,a+=3,tmp)); -t81=C_mutate((C_word*)lf[84]+1 /* (set! ##sys#unregister-syntax-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6202,a[2]=((C_word)li61),tmp=(C_word)a,a+=3,tmp)); -t82=C_mutate((C_word*)lf[85]+1 /* (set! ##sys#register-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6295,a[2]=((C_word)li62),tmp=(C_word)a,a+=3,tmp)); -t83=C_mutate(&lf[86] /* (set! merge-se ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6605,a[2]=((C_word)li67),tmp=(C_word)a,a+=3,tmp)); -t84=C_mutate((C_word*)lf[91]+1 /* (set! ##sys#compiled-module-registration ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6837,a[2]=((C_word)li78),tmp=(C_word)a,a+=3,tmp)); -t85=C_mutate((C_word*)lf[99]+1 /* (set! ##sys#register-compiled-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7336,a[2]=((C_word)li86),tmp=(C_word)a,a+=3,tmp)); -t86=C_mutate((C_word*)lf[112]+1 /* (set! ##sys#register-core-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7670,a[2]=((C_word)li89),tmp=(C_word)a,a+=3,tmp)); -t87=C_mutate((C_word*)lf[114]+1 /* (set! ##sys#register-primitive-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7784,a[2]=((C_word)li90),tmp=(C_word)a,a+=3,tmp)); -t88=C_mutate(&lf[81] /* (set! find-export ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7799,a[2]=((C_word)li92),tmp=(C_word)a,a+=3,tmp)); -t89=C_mutate((C_word*)lf[115]+1 /* (set! ##sys#finalize-module ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7877,a[2]=((C_word)li121),tmp=(C_word)a,a+=3,tmp)); -t90=C_set_block_item(lf[64] /* ##sys#module-table */,0,C_SCHEME_END_OF_LIST); -t91=C_mutate((C_word*)lf[93]+1 /* (set! ##sys#with-environment ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8899,a[2]=((C_word)li125),tmp=(C_word)a,a+=3,tmp)); -t92=C_mutate((C_word*)lf[165]+1 /* (set! ##sys#import-library-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9004,a[2]=((C_word)li130),tmp=(C_word)a,a+=3,tmp)); -t93=C_mutate(&lf[171] /* (set! find-module/import-library ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9050,a[2]=((C_word)li131),tmp=(C_word)a,a+=3,tmp)); -t94=C_mutate((C_word*)lf[105]+1 /* (set! ##sys#decompose-import ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9065,a[2]=((C_word)li170),tmp=(C_word)a,a+=3,tmp)); -t95=C_mutate((C_word*)lf[195]+1 /* (set! ##sys#expand-import ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10060,a[2]=((C_word)li175),tmp=(C_word)a,a+=3,tmp)); -t96=C_mutate((C_word*)lf[197]+1 /* (set! ##sys#import ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10124,a[2]=((C_word)li184),tmp=(C_word)a,a+=3,tmp)); -t97=C_mutate(&lf[80] /* (set! module-rename ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10570,a[2]=((C_word)li185),tmp=(C_word)a,a+=3,tmp)); -t98=C_mutate((C_word*)lf[206]+1 /* (set! ##sys#alias-global-hook ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10588,a[2]=((C_word)li190),tmp=(C_word)a,a+=3,tmp)); -t99=C_mutate((C_word*)lf[207]+1 /* (set! ##sys#validate-exports ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10662,a[2]=((C_word)li195),tmp=(C_word)a,a+=3,tmp)); -t100=C_mutate((C_word*)lf[218]+1 /* (set! ##sys#register-functor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10877,a[2]=((C_word)li196),tmp=(C_word)a,a+=3,tmp)); -t101=C_mutate((C_word*)lf[219]+1 /* (set! ##sys#instantiate-functor ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_10893,a[2]=((C_word)li202),tmp=(C_word)a,a+=3,tmp)); -t102=C_mutate(&lf[223] /* (set! match-functor-argument ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_11119,a[2]=((C_word)li206),tmp=(C_word)a,a+=3,tmp)); -t103=lf[231]; -t104=*((C_word*)lf[232]+1); -t105=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_11279,a[2]=((C_word*)t0)[2],a[3]=t104,a[4]=t103,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:1123: ##sys#register-core-module */ -t106=*((C_word*)lf[112]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t106; -av2[1]=t105; -av2[2]=lf[317]; -av2[3]=lf[248]; -av2[4]=t103; -av2[5]=*((C_word*)lf[232]+1); -((C_proc)(void*)(*((C_word*)t106+1)))(6,av2);}} - -/* %make-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5266(C_word *a,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_word t10,C_word t11,C_word t12,C_word t13,C_word t14,C_word t15){ -C_word tmp; -C_word t16; -C_stack_overflow_check;{} -return(C_a_i_record(&a,16,((C_word*)t0)[2],t1,t2,t3,t4,t5,t6,t7,t8,t9,t10,t11,t12,t13,t14,t15));} - -/* module-name in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5278(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_5278,c,av);} -t3=C_i_check_structure_2(t2,((C_word*)t0)[2],lf[9]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_block_ref(t2,C_fix(1)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* module-library in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5287(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[11]); -return(C_i_block_ref(t1,C_fix(2)));} - -/* module-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5296(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[13]); -return(C_i_block_ref(t1,C_fix(3)));} - -/* set-module-export-list! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5305(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,4)))){ -C_save_and_reclaim_args((void *)trf_5305,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[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);}} - -/* module-defined-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5314(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[17]); -return(C_i_block_ref(t1,C_fix(4)));} - -/* set-module-defined-list! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5323(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,4)))){ -C_save_and_reclaim_args((void *)trf_5323,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(4); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-exist-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5332(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[20]); -return(C_i_block_ref(t1,C_fix(5)));} - -/* set-module-exist-list! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5341(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,4)))){ -C_save_and_reclaim_args((void *)trf_5341,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(5); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-defined-syntax-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5350(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[23]); -return(C_i_block_ref(t1,C_fix(6)));} - -/* set-module-defined-syntax-list! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5359(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,4)))){ -C_save_and_reclaim_args((void *)trf_5359,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[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);}} - -/* module-undefined-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -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_5368,c,av);} -t3=C_i_check_structure_2(t2,((C_word*)t0)[2],lf[25]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_block_ref(t2,C_fix(7)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* set-module-undefined-list! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_5377,c,av);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(7); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-import-forms in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5386(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[28]); -return(C_i_block_ref(t1,C_fix(8)));} - -/* set-module-import-forms! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5395(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,4)))){ -C_save_and_reclaim_args((void *)trf_5395,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(8); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-meta-import-forms in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5404(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[31]); -return(C_i_block_ref(t1,C_fix(9)));} - -/* set-module-meta-import-forms! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5413(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,4)))){ -C_save_and_reclaim_args((void *)trf_5413,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(9); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-meta-expressions in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5422(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[34]); -return(C_i_block_ref(t1,C_fix(10)));} - -/* set-module-meta-expressions! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5431(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,4)))){ -C_save_and_reclaim_args((void *)trf_5431,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(10); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-vexports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5440(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[37]); -return(C_i_block_ref(t1,C_fix(11)));} - -/* set-module-vexports! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5449(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,4)))){ -C_save_and_reclaim_args((void *)trf_5449,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(11); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-sexports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5458(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[40]); -return(C_i_block_ref(t1,C_fix(12)));} - -/* set-module-sexports! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5467(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,4)))){ -C_save_and_reclaim_args((void *)trf_5467,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(12); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-iexports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5476(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[43]); -return(C_i_block_ref(t1,C_fix(13)));} - -/* set-module-iexports! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5485(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,4)))){ -C_save_and_reclaim_args((void *)trf_5485,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(13); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-saved-environments in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5494(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[46]); -return(C_i_block_ref(t1,C_fix(14)));} - -/* set-module-saved-environments! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5503(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,4)))){ -C_save_and_reclaim_args((void *)trf_5503,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(14); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* module-rename-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5512(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_i_check_structure_2(t1,((C_word*)t0)[2],lf[49]); -return(C_i_block_ref(t1,C_fix(15)));} - -/* set-module-rename-list! in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5521(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,4)))){ -C_save_and_reclaim_args((void *)trf_5521,4,t0,t1,t2,t3);} -t4=C_i_check_structure_2(t2,((C_word*)t0)[2],C_SCHEME_FALSE); -/* modules.scm:97: ##sys#block-set! */ -t5=*((C_word*)lf[15]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(15); -av2[4]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* ##sys#module-exports in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_5531,c,av);} -t3=( -/* modules.scm:123: module-export-list */ - f_5296(lf[12],t2) -); -t4=( -/* modules.scm:124: module-vexports */ - f_5440(lf[36],t2) -); -t5=( -/* modules.scm:125: module-sexports */ - f_5458(lf[39],t2) -); -/* modules.scm:122: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -av2[4]=t5; -C_values(5,av2);}} - -/* make-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5549(C_word *a,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_stack_overflow_check;{} -t8=C_i_nullp(t7); -t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_i_car(t7)); -return(( -/* modules.scm:128: %make-module */ - f_5266(C_a_i(&a,17),lf[7],t1,t2,t3,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,t4,t5,t6,C_SCHEME_FALSE,t9) -));} - -/* ##sys#register-module-alias in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_5564,c,av);} -a=C_alloc(7); -t4=C_a_i_cons(&a,2,t2,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5580,a[2]=t4,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:133: ##sys#module-alias-environment */ -t6=*((C_word*)lf[5]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* k5578 in ##sys#register-module-alias in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_5580,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* modules.scm:132: ##sys#module-alias-environment */ -t3=*((C_word*)lf[5]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_5582,c,av);} -a=C_alloc(21); -t4=*((C_word*)lf[5]+1); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5586,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[57]); -t11=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_5645,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_5651,a[2]=t8,a[3]=t13,a[4]=t9,a[5]=((C_word)li41),tmp=(C_word)a,a+=6,tmp)); -t15=((C_word*)t13)[1]; -f_5651(t15,t11,t2);} - -/* k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 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_5586,c,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_5591,a[2]=t3,a[3]=t5,a[4]=((C_word*)t0)[2],a[5]=((C_word)li38),tmp=(C_word)a,a+=6,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5608,a[2]=((C_word*)t0)[3],a[3]=((C_word)li39),tmp=(C_word)a,a+=4,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5614,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp); -/* modules.scm:136: ##sys#dynamic-wind */ -t9=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=((C_word*)t0)[4]; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a5590 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5591(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *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_5591,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5595,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:136: ##sys#module-alias-environment973 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_5595(2,av2);}}} - -/* k5593 in a5590 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5595(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_5595,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5599,a[2]=((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); -/* modules.scm:136: ##sys#module-alias-environment973 */ -t3=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k5597 in k5593 in a5590 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5599(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_5599,c,av);} -a=C_alloc(4); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5602,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:136: ##sys#module-alias-environment973 */ -t4=((C_word*)t0)[5];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k5600 in k5597 in k5593 in a5590 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5602(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_5602,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a5607 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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!=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_5608,c,av);} -/* modules.scm:140: thunk */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* a5613 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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!=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_5614,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5618,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:136: ##sys#module-alias-environment973 */ -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k5616 in a5613 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_5618,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5621,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:136: ##sys#module-alias-environment973 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k5619 in k5616 in a5613 in k5584 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5621(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_5621,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k5643 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5645(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_5645,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5649,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:139: ##sys#module-alias-environment */ -t3=*((C_word*)lf[5]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k5647 in k5643 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_5649,c,av);} -/* modules.scm:137: scheme#append */ -t2=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop982 in ##sys#with-module-aliases in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5651(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -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,2)))){ -C_save_and_reclaim_args((void *)trf_5651,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_i_cadr(t3); -t6=C_a_i_cons(&a,2,t4,t5); -t7=C_a_i_cons(&a,2,t6,C_SCHEME_END_OF_LIST); -t8=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t7); -t9=C_mutate(((C_word *)((C_word*)t0)[2])+1,t7); -t11=t1; -t12=C_slot(t2,C_fix(1)); -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);}}} - -/* ##sys#resolve-module-name in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_5685,c,av);} -a=C_alloc(5); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5693,a[2]=t3,a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:143: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[62]+1); -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k5691 in ##sys#resolve-module-name in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(8,c,4)))){ -C_save_and_reclaim((void *)f_5693,c,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_5695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t3,a[5]=((C_word)li44),tmp=(C_word)a,a+=6,tmp)); -t5=((C_word*)t3)[1]; -f_5695(t5,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST);} - -/* loop in k5691 in ##sys#resolve-module-name in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5695(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_5695,4,t0,t1,t2,t3);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_5730,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:144: ##sys#module-alias-environment */ -t5=*((C_word*)lf[5]+1);{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* g1026 in k5728 in loop in k5691 in ##sys#resolve-module-name in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5703(C_word t0,C_word t1,C_word 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_5703,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:148: chicken.base#error */ -t4=*((C_word*)lf[60]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[61]; -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:149: loop */ -t5=((C_word*)((C_word*)t0)[5])[1]; -f_5695(t5,t1,t3,t4);}} - -/* k5728 in loop in k5691 in ##sys#resolve-module-name in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5730(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_5730,c,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_5703,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=((C_word)li43),tmp=(C_word)a,a+=7,tmp); -/* modules.scm:144: g1026 */ -t4=t3; -f_5703(t4,((C_word*)t0)[7],t2);} -else{ -t3=((C_word*)t0)[7];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* ##sys#find-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5732(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_5732,c,av);} -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?C_SCHEME_TRUE:C_get_rest_arg(c,3,av,3,t0)); -t5=C_rest_nullp(c,3); -t6=C_rest_nullp(c,4); -t7=(C_truep(t6)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,3,t0)); -t8=C_rest_nullp(c,4); -t9=C_i_assq(t2,*((C_word*)lf[64]+1)); -if(C_truep(t9)){ -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_i_cdr(t9); -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}} -else{ -if(C_truep(t4)){ -/* modules.scm:154: chicken.base#error */ -t10=*((C_word*)lf[60]+1);{ -C_word av2[5]; -av2[0]=t10; -av2[1]=t1; -av2[2]=t7; -av2[3]=lf[65]; -av2[4]=t2; -((C_proc)(void*)(*((C_word*)t10+1)))(5,av2);}} -else{ -t10=t1;{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}} - -/* ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5786(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_5786,c,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]=t1,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:160: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k5791 in k5835 in k5831 in ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5793(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_5793,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5796,a[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_5821,a[2]=((C_word*)t0)[5],a[3]=((C_word)li47),tmp=(C_word)a,a+=4,tmp); -/* modules.scm:161: g1064 */ -t4=t3; -f_5821(t4,t2,t1);} -else{ -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,((C_word*)t0)[5]); -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -f_5796(2,av2);}}} - -/* k5794 in k5791 in k5835 in k5831 in ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5796(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_5796,c,av);} -a=C_alloc(8); -t2=(C_truep(((C_word*)t0)[2])?( -/* modules.scm:166: module-saved-environments */ - f_5494(lf[45],((C_word*)t0)[2]) -):((C_word*)((C_word*)t0)[3])[1]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5802,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -if(C_truep(t2)){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5808,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:168: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t4; -av2[2]=C_i_car(t2); -tp(3,av2);}} -else{ -/* modules.scm:170: ##sys#current-module */ -t4=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k5800 in k5794 in k5791 in k5835 in k5831 in ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_5802,c,av);} -/* modules.scm:170: ##sys#current-module */ -t2=*((C_word*)lf[4]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k5806 in k5794 in k5791 in k5835 in k5831 in ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_5808,c,av);} -/* modules.scm:169: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[67]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_u_i_cdr(((C_word*)t0)[3]); -tp(3,av2);}} - -/* g1064 in k5791 in k5835 in k5831 in ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5821(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_5821,3,t0,t1,t2);} -/* modules.scm:163: set-module-saved-environments! */ -t3=lf[47]; -f_5503(t3,t1,t2,((C_word*)t0)[2]);} - -/* k5831 in ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_5833,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5837,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); -/* modules.scm:160: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k5835 in k5831 in ##sys#switch-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5837(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_5837,c,av);} -a=C_alloc(9); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5793,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); -/* modules.scm:161: ##sys#current-module */ -t4=*((C_word*)lf[4]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5839(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_5839,c,av);} -a=C_alloc(6); -t4=( -/* modules.scm:173: module-export-list */ - f_5296(lf[12],t2) -); -t5=C_eqp(t4,C_SCHEME_TRUE); -if(C_truep(t5)){ -t6=( -/* modules.scm:175: module-exist-list */ - f_5332(lf[19],t2) -); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5855,a[2]=t3,a[3]=t1,a[4]=t2,a[5]=t6,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:176: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t7; -tp(2,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5926,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:186: scheme#append */ -t7=*((C_word*)lf[58]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t4; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}}} - -/* k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5855(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_5855,c,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=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5864,a[2]=t3,a[3]=((C_word)li49),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5856,a[2]=t1,a[3]=t4,a[4]=((C_word)li50),tmp=(C_word)a,a+=5,tmp); -t6=C_i_check_list_2(((C_word*)t0)[2],lf[70]); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_5878,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]=t3,tmp=(C_word)a,a+=7,tmp); -t8=C_SCHEME_UNDEFINED; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5898,a[2]=t5,a[3]=t9,a[4]=((C_word)li51),tmp=(C_word)a,a+=5,tmp)); -t11=((C_word*)t9)[1]; -f_5898(t11,t7,((C_word*)t0)[2]);} - -/* g1081 in k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5856(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:180: g1097 */ - f_5864(C_a_i(&a,3),((C_word*)t0)[3],t2) -));} -else{ -t3=C_SCHEME_UNDEFINED; -return(t3);}} - -/* g1097 in k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_5864(C_word *a,C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_stack_overflow_check;{} -t2=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[2])[1]); -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -return(t3);} - -/* k5876 in k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_5878,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_5881,a[2]=((C_word*)t0)[2],a[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_5892,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t4=( -/* modules.scm:184: module-sexports */ - f_5458(lf[39],((C_word*)t0)[3]) -); -/* modules.scm:184: scheme#append */ -t5=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* k5879 in k5876 in k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_5881,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5888,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:185: scheme#append */ -t3=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k5886 in k5879 in k5876 in k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_5888,c,av);} -/* modules.scm:185: set-module-exist-list! */ -t2=lf[21]; -f_5341(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* k5890 in k5876 in k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5892(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_5892,c,av);} -/* modules.scm:184: set-module-sexports! */ -t2=lf[41]; -f_5467(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* for-each-loop1080 in k5853 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5898(C_word 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; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_5898,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* modules.scm:178: g1081 */ - f_5856(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t5=t1; -t6=C_slot(t2,C_fix(1)); -t1=t5; -t2=t6; -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);}}} - -/* k5924 in ##sys#add-to-export-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,3)))){ -C_save_and_reclaim((void *)f_5926,c,av);} -/* modules.scm:186: set-module-export-list! */ -t2=lf[14]; -f_5305(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* ##sys#add-to-export/rename-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_5928,c,av);} -a=C_alloc(9); -t4=( -/* modules.scm:189: module-rename-list */ - f_5512(lf[48],t2) -); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_5935,a[2]=t3,a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5986,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:190: scheme#append */ -t7=*((C_word*)lf[58]+1);{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=t4; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} - -/* k5933 in ##sys#add-to-export/rename-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5935(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ -C_save_and_reclaim((void *)f_5935,c,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_i_check_list_2(((C_word*)t0)[2],lf[57]); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5948,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_5950,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li53),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_5950(t11,t7,((C_word*)t0)[2]);} - -/* k5946 in k5933 in ##sys#add-to-export/rename-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5948(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_5948,c,av);} -/* modules.scm:191: ##sys#add-to-export-list */ -t2=*((C_word*)lf[69]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* map-loop1113 in k5933 in ##sys#add-to-export/rename-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_5950(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_5950,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k5984 in ##sys#add-to-export/rename-list in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_5986,c,av);} -/* modules.scm:190: set-module-rename-list! */ -t2=lf[50]; -f_5521(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* ##sys#toplevel-definition-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_5988,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* ##sys#register-meta-expression in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=av[2]; -C_word t3; -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_5991,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_5995,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:196: ##sys#current-module */ -t4=*((C_word*)lf[4]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k5993 in ##sys#register-meta-expression in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_5995(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_5995,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=( -/* modules.scm:197: module-meta-expressions */ - f_5422(lf[33],t1) -); -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],t2); -/* modules.scm:197: set-module-meta-expressions! */ -t4=lf[35]; -f_5431(t4,((C_word*)t0)[3],t1,t3);} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* check-for-redef in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6011(C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,0,3)))){ -C_save_and_reclaim_args((void *)trf_6011,4,t1,t2,t3,t4);} -a=C_alloc(5); -t5=C_i_assq(t2,t3); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6018,a[2]=t2,a[3]=t4,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t5)){ -/* modules.scm:201: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[75]+1); -av2[1]=t6; -av2[2]=lf[77]; -av2[3]=t2; -tp(4,av2);}} -else{ -t7=t6;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_SCHEME_FALSE; -f_6018(2,av2);}}} - -/* k6016 in check-for-redef in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6018(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6018,c,av);} -if(C_truep(C_i_assq(((C_word*)t0)[2],((C_word*)t0)[3]))){ -/* modules.scm:203: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[75]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[76]; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_6032,c,av);} -a=C_alloc(5); -if(C_truep(t3)){ -t4=( -/* modules.scm:207: module-export-list */ - f_5296(lf[12],t3) -); -t5=C_eqp(C_SCHEME_TRUE,t4); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6042,a[2]=t2,a[3]=t3,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -if(C_truep(t5)){ -t7=t6;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t5; -f_6042(2,av2);}} -else{ -/* modules.scm:208: find-export */ -f_7799(t6,t2,t3,C_SCHEME_TRUE);}} -else{ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_6042,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6045,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); -/* modules.scm:209: module-undefined-list */ -t3=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6045(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_6045,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6048,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|4,a[1]=(C_word)f_6108,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_6112,a[2]=t3,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:211: module-name */ -t5=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=((C_word*)t0)[4]; -f_5278(3,av2);}} - -/* k6046 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,4)))){ -C_save_and_reclaim((void *)f_6048,c,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_6054,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_6104,a[2]=t3,a[3]=((C_word*)t0)[5],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:213: delete */ -f_4465(t4,t2,((C_word*)t0)[3],*((C_word*)lf[79]+1));} -else{ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -f_6054(2,av2);}}} - -/* k6052 in k6046 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_6054,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6093,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:214: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6055 in k6052 in k6046 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -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_6057,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); -t3=( -/* modules.scm:215: module-exist-list */ - f_5332(lf[19],((C_word*)t0)[4]) -); -t4=C_a_i_cons(&a,2,((C_word*)t0)[3],t3); -/* modules.scm:215: set-module-exist-list! */ -t5=lf[21]; -f_5341(t5,t2,((C_word*)t0)[4],t4);} - -/* k6058 in k6055 in k6052 in k6046 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_6060,c,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=( -/* modules.scm:221: module-defined-list */ - f_5314(lf[16],((C_word*)t0)[4]) -); -t4=C_a_i_cons(&a,2,t2,t3); -/* modules.scm:218: set-module-defined-list! */ -t5=lf[18]; -f_5323(t5,((C_word*)t0)[5],((C_word*)t0)[4],t4);} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k6091 in k6052 in k6046 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6093(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_6093,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6097,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:214: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k6095 in k6091 in k6052 in k6046 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6097,c,av);} -/* modules.scm:214: check-for-redef */ -f_6011(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* k6102 in k6046 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6104,c,av);} -/* modules.scm:213: set-module-undefined-list! */ -t2=*((C_word*)lf[26]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k6106 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6108,c,av);} -/* modules.scm:210: ##sys#toplevel-definition-hook */ -t2=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k6110 in k6043 in k6040 in ##sys#register-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6112,c,av);} -/* modules.scm:211: module-rename */ -f_10570(((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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,4)))){ -C_save_and_reclaim((void *)f_6121,c,av);} -a=C_alloc(6); -if(C_truep(t3)){ -t5=( -/* modules.scm:225: module-export-list */ - f_5296(lf[12],t3) -); -t6=C_eqp(C_SCHEME_TRUE,t5); -t7=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6131,a[2]=t2,a[3]=t4,a[4]=t3,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t6)){ -t8=t7;{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t6; -f_6131(2,av2);}} -else{ -/* modules.scm:226: find-export */ -f_7799(t7,t2,t3,C_SCHEME_TRUE);}} -else{ -t5=C_SCHEME_UNDEFINED; -t6=t1;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}}} - -/* k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_6131,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6134,a[2]=((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); -/* modules.scm:227: module-undefined-list */ -t3=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6132 in k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6134(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_6134,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6137,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* modules.scm:228: module-name */ -t3=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -f_5278(3,av2);}} - -/* k6135 in k6132 in k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6137(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_6137,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,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]=((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)[2],((C_word*)t0)[7]))){ -/* modules.scm:230: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[75]+1); -av2[1]=t2; -av2[2]=lf[83]; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_6140(2,av2);}}} - -/* k6138 in k6135 in k6132 in k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_6140,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|6,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],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6183,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:231: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6141 in k6138 in k6135 in k6132 in k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_6143,c,av);} -a=C_alloc(12); -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); -if(C_truep(((C_word*)t0)[6])){ -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t4=( -/* modules.scm:237: module-defined-list */ - f_5314(lf[16],((C_word*)t0)[4]) -); -t5=C_a_i_cons(&a,2,t3,t4); -/* modules.scm:234: set-module-defined-list! */ -t6=lf[18]; -f_5323(t6,t2,((C_word*)t0)[4],t5);} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_6149(2,av2);}}} - -/* k6147 in k6141 in k6138 in k6135 in k6132 in k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,3)))){ -C_save_and_reclaim((void *)f_6149,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],((C_word*)t0)[3]); -t3=( -/* modules.scm:240: module-defined-syntax-list */ - f_5350(lf[22],((C_word*)t0)[4]) -); -t4=C_a_i_cons(&a,2,t2,t3); -/* modules.scm:238: set-module-defined-syntax-list! */ -t5=lf[24]; -f_5359(t5,((C_word*)t0)[5],((C_word*)t0)[4],t4);} - -/* k6181 in k6138 in k6135 in k6132 in k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_6183,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6187,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:231: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k6185 in k6181 in k6138 in k6135 in k6132 in k6129 in ##sys#register-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6187,c,av);} -/* modules.scm:231: check-for-redef */ -f_6011(((C_word*)t0)[2],((C_word*)t0)[3],((C_word*)t0)[4],t1);} - -/* ##sys#unregister-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6202(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_6202,c,av);} -a=C_alloc(7); -if(C_truep(t3)){ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6213,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=( -/* modules.scm:246: module-defined-syntax-list */ - f_5350(lf[22],t3) -); -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6219,a[2]=((C_word)li60),tmp=(C_word)a,a+=3,tmp); -/* modules.scm:246: delete */ -f_4465(t4,t2,t5,t6);} -else{ -t4=C_SCHEME_UNDEFINED; -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k6211 in ##sys#unregister-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,3)))){ -C_save_and_reclaim((void *)f_6213,c,av);} -/* modules.scm:244: set-module-defined-syntax-list! */ -t2=lf[24]; -f_5359(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* a6218 in ##sys#unregister-syntax-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_6219,c,av);} -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_eqp(t2,C_i_car(t3)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k6234 in g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -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_6236,c,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_6243,a[2]=((C_word*)t0)[3],a[3]=((C_word)li186),tmp=(C_word)a,a+=4,tmp); -/* modules.scm:251: g1204 */ -t4=t3; -f_6243(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:256: set-module-undefined-list! */ -t6=*((C_word*)lf[26]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}} -else{ -t3=C_a_i_cons(&a,2,((C_word*)t0)[2],C_SCHEME_END_OF_LIST); -t4=C_a_i_cons(&a,2,t3,t1); -/* modules.scm:256: set-module-undefined-list! */ -t5=*((C_word*)lf[26]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[5]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}}}} - -/* g1204 in k6234 in g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6243(C_word t0,C_word t1,C_word 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_6243,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6250,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=t3; -f_6250(t5,C_i_not(C_i_memq(((C_word*)t0)[2],t4)));} -else{ -t4=t3; -f_6250(t4,C_SCHEME_FALSE);}} - -/* k6248 in g1204 in k6234 in g2849 in k10593 in mrename in ##sys#alias-global-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6250(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_6250,2,t0,t1);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=C_i_cdr(((C_word*)t0)[2]); -t3=C_a_i_cons(&a,2,((C_word*)t0)[3],t2); -t4=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=C_i_set_cdr(((C_word*)t0)[2],t3); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=C_SCHEME_UNDEFINED; -t3=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* ##sys#register-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6295(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_min_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(23,c,1)))){ -C_save_and_reclaim((void *)f_6295,c,av);} -a=C_alloc(23); -t5=C_rest_nullp(c,5); -t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_get_rest_arg(c,5,av,5,t0)); -t7=C_rest_nullp(c,5); -t8=C_rest_nullp(c,6); -t9=(C_truep(t8)?C_SCHEME_END_OF_LIST:C_get_rest_arg(c,6,av,5,t0)); -t10=C_rest_nullp(c,6); -t11=( -/* modules.scm:261: make-module */ - f_5549(C_a_i(&a,17),t2,t3,t4,t6,t9,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST) -); -t12=C_a_i_cons(&a,2,t2,t11); -t13=C_a_i_cons(&a,2,t12,*((C_word*)lf[64]+1)); -t14=C_mutate((C_word*)lf[64]+1 /* (set! ##sys#module-table ...) */,t13); -t15=t1;{ -C_word *av2=av; -av2[0]=t15; -av2[1]=t11; -((C_proc)(void*)(*((C_word*)t15+1)))(2,av2);}} - -/* k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ -C_save_and_reclaim((void *)f_6352,c,av);} -a=C_alloc(13); -t2=( -/* modules.scm:268: module-defined-list */ - f_5314(lf[16],((C_word*)t0)[2]) -); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6401,a[2]=t1,a[3]=((C_word)li109),tmp=(C_word)a,a+=4,tmp); -t4=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[3]); -if(C_truep(t4)){ -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_SCHEME_END_OF_LIST; -f_8471(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_6424,a[2]=t6,a[3]=t3,a[4]=t2,a[5]=t1,a[6]=((C_word)li113),tmp=(C_word)a,a+=7,tmp)); -t8=((C_word*)t6)[1]; -f_6424(t8,((C_word*)t0)[4],((C_word*)t0)[3]);}} - -/* warn in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6401(C_word 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_6401,4,t0,t1,t2,t3);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6409,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6413,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:277: scheme#symbol->string */ -t6=*((C_word*)lf[145]+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);}} - -/* k6407 in warn in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6409(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6409,c,av);} -/* modules.scm:276: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[75]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k6411 in warn in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6413(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_6413,c,av);} -/* modules.scm:277: scheme#string-append */ -t2=*((C_word*)lf[142]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[143]; -av2[4]=t1; -av2[5]=lf[144]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6424(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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_6424,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))){ -/* modules.scm:283: loop */ -t9=t1; -t10=C_u_i_cdr(t2); -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_6451,a[2]=((C_word*)t0)[2],a[3]=t2,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)li112),tmp=(C_word)a,a+=9,tmp)); -t8=((C_word*)t6)[1]; -f_6451(t8,t1,t4);}}} - -/* loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6451(C_word t0,C_word t1,C_word 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_6451,3,t0,t1,t2);} -a=C_alloc(9); -if(C_truep(C_i_nullp(t2))){ -/* modules.scm:286: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_6424(t3,t1,C_i_cdr(((C_word*)t0)[3]));} -else{ -t3=C_i_car(t2); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6599,a[2]=t3,a[3]=((C_word*)t0)[4],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* modules.scm:287: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t4; -tp(2,av2);}}} - -/* k6472 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_6474(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6474,c,av);} -/* modules.scm:289: loop2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6451(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} - -/* g1262 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void 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 t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,0,3)))){ -C_save_and_reclaim_args((void *)trf_6488,3,t0,t1,t2);} -a=C_alloc(13); -t3=C_i_car(((C_word*)t0)[2]); -t4=C_i_cdr(t2); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6513,a[2]=t3,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[2],tmp=(C_word)a,a+=6,tmp); -if(C_truep(t4)){ -t6=C_a_i_cons(&a,2,t3,t4); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f13056,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:296: loop2 */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_6451(t8,t7,C_u_i_cdr(((C_word*)t0)[2]));} -else{ -/* modules.scm:295: module-rename */ -f_10570(t5,C_u_i_car(((C_word*)t0)[2]),((C_word*)t0)[4]);}} - -/* k6511 in g1262 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_6513(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_6513,c,av);} -a=C_alloc(7); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f13052,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:296: loop2 */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_6451(t4,t3,C_u_i_cdr(((C_word*)t0)[5]));} - -/* g1269 in k6587 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_6528(C_word t0,C_word t1,C_word 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_6528,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=C_u_i_cdr(t2); -t6=C_a_i_cons(&a,2,t4,t5); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6546,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:300: loop2 */ -t8=((C_word*)((C_word*)t0)[3])[1]; -f_6451(t8,t7,C_u_i_cdr(((C_word*)t0)[2]));} -else{ -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6557,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:302: warn */ -t5=((C_word*)t0)[4]; -f_6401(t5,t4,lf[147],C_i_car(((C_word*)t0)[2]));}} - -/* k6544 in g1269 in k6587 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_6546(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_6546,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k6555 in g1269 in k6587 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -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,2)))){ -C_save_and_reclaim((void *)f_6557,c,av);} -/* modules.scm:303: loop2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6451(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} - -/* k6574 in k6587 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6576,c,av);} -/* modules.scm:306: loop2 */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6451(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} - -/* k6587 in k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_6589(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_6589,c,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_6528,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word)li111),tmp=(C_word)a,a+=6,tmp); -/* modules.scm:286: g1269 */ -t4=t3; -f_6528(t4,((C_word*)t0)[6],t2);} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6576,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[6],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:305: warn */ -t4=((C_word*)t0)[5]; -f_6401(t4,t3,lf[148],C_u_i_car(((C_word*)t0)[3]));}} - -/* k6597 in loop2 in loop in k6350 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_6599,c,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_6474,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); -/* modules.scm:288: warn */ -t3=((C_word*)t0)[6]; -f_6401(t3,t2,lf[146],C_u_i_car(((C_word*)t0)[5]));} -else{ -t2=C_i_assq(C_u_i_car(((C_word*)t0)[5]),((C_word*)t0)[7]); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6488,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word)li110),tmp=(C_word)a,a+=6,tmp); -/* modules.scm:286: g1262 */ -t4=t3; -f_6488(t4,((C_word*)t0)[4],t2);} -else{ -t3=C_u_i_car(((C_word*)t0)[5]); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6589,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); -/* modules.scm:297: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t4; -tp(2,av2);}}}} - -/* merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6605(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_6605,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6609,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:309: chicken.internal#make-hash-table */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[90]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[90]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_6609,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6612,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:309: scheme#reverse */ -t3=*((C_word*)lf[89]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 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_6612,c,av);} -a=C_alloc(7); -t2=C_i_cdr(t1); -t3=C_u_i_car(t1); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6623,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li66),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_6623(t7,((C_word*)t0)[3],t2,C_SCHEME_FALSE,t3);} - -/* loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void 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 *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(17,0,4)))){ -C_save_and_reclaim_args((void *)trf_6623,5,t0,t1,t2,t3,t4);} -a=C_alloc(17); -if(C_truep(C_i_nullp(t2))){ -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(t3,t5); -t7=(C_truep(t6)?t6:C_i_nullp(C_u_i_car(t2))); -if(C_truep(t7)){ -/* modules.scm:313: loop */ -t15=t1; -t16=C_u_i_cdr(t2); -t17=t3; -t18=t4; -t1=t15; -t2=t16; -t3=t17; -t4=t18; -goto loop;} -else{ -if(C_truep(C_i_not(t3))){ -t8=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6651,a[2]=((C_word*)t0)[3],a[3]=((C_word)li63),tmp=(C_word)a,a+=4,tmp); -t9=C_i_check_list_2(t4,lf[70]); -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6665,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t4,tmp=(C_word)a,a+=6,tmp); -t11=C_SCHEME_UNDEFINED; -t12=(*a=C_VECTOR_TYPE|1,a[1]=t11,tmp=(C_word)a,a+=2,tmp); -t13=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6670,a[2]=t12,a[3]=t8,a[4]=((C_word)li64),tmp=(C_word)a,a+=5,tmp)); -t14=((C_word*)t12)[1]; -f_6670(t14,t10,t4);} -else{ -t8=C_u_i_car(t2); -t9=C_SCHEME_UNDEFINED; -t10=(*a=C_VECTOR_TYPE|1,a[1]=t9,tmp=(C_word)a,a+=2,tmp); -t11=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6698,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t10,a[5]=((C_word*)t0)[3],a[6]=((C_word)li65),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_6698(t12,t1,t8,t4);}}}} - -/* g1300 in loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6651(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_6651,3,t0,t1,t2);} -/* modules.scm:315: chicken.internal#hash-table-set! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[87]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[87]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_i_car(t2); -av2[4]=C_SCHEME_TRUE; -tp(5,av2);}} - -/* k6663 in loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6665(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_6665,c,av);} -/* modules.scm:316: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6623(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[5]);} - -/* for-each-loop1299 in loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6670(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_6670,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6680,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:315: g1300 */ -t4=((C_word*)t0)[3]; -f_6651(t4,t3,C_slot(t2,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);}}} - -/* k6678 in for-each-loop1299 in loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_6680,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6670(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* lp in loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6698(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,0,4)))){ -C_save_and_reclaim_args((void *)trf_6698,4,t0,t1,t2,t3);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t2))){ -/* modules.scm:318: loop */ -t4=((C_word*)((C_word*)t0)[2])[1]; -f_6623(t4,t1,C_i_cdr(((C_word*)t0)[3]),C_u_i_car(((C_word*)t0)[3]),t3);} -else{ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6720,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=t3,a[6]=((C_word*)t0)[5],tmp=(C_word)a,a+=7,tmp); -/* modules.scm:319: chicken.internal#hash-table-ref */ -{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]=t4; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_i_caar(t2); -tp(4,av2);}}} - -/* k6718 in lp in loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6720(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_6720,c,av);} -a=C_alloc(6); -if(C_truep(t1)){ -/* modules.scm:320: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_6698(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]),((C_word*)t0)[5]);} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6728,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); -/* modules.scm:321: chicken.internal#hash-table-set! */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[87]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[87]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_i_caar(((C_word*)t0)[4]); -av2[4]=C_SCHEME_TRUE; -tp(5,av2);}}} - -/* k6726 in k6718 in lp in loop in k6610 in k6607 in merge-se in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_6728,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=C_u_i_car(((C_word*)t0)[2]); -t4=C_a_i_cons(&a,2,t3,((C_word*)t0)[3]); -/* modules.scm:322: lp */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_6698(t5,((C_word*)t0)[5],t2,t4);} - -/* k6760 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,3)))){ -C_save_and_reclaim((void *)f_6762,c,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|4,a[1]=(C_word)f_6773,a[2]=t4,a[3]=t5,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -t7=*((C_word*)lf[79]+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|4,a[1]=(C_word)f_4546,a[2]=t9,a[3]=t7,a[4]=((C_word)li74),tmp=(C_word)a,a+=5,tmp)); -t11=((C_word*)t9)[1]; -f_4546(t11,t6,t1);} - -/* k6771 in k6760 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_6773,c,av);} -a=C_alloc(8); -t2=C_i_check_list_2(t1,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|5,a[1]=(C_word)f_6781,a[2]=((C_word*)t0)[2],a[3]=t4,a[4]=((C_word*)t0)[3],a[5]=((C_word)li73),tmp=(C_word)a,a+=6,tmp)); -t6=((C_word*)t4)[1]; -f_6781(t6,((C_word*)t0)[4],t1);} - -/* map-loop1335 in k6771 in k6760 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6781(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_6781,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[104],t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* a6814 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6815(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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,3)))){ -C_save_and_reclaim((void *)f_6815,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6821,a[2]=t2,a[3]=((C_word)li75),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6827,a[2]=((C_word)li76),tmp=(C_word)a,a+=3,tmp); -/* modules.scm:326: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* a6820 in a6814 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *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_6821,c,av);} -/* modules.scm:326: ##sys#decompose-import */ -t2=*((C_word*)lf[105]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=*((C_word*)lf[106]+1); -av2[4]=*((C_word*)lf[79]+1); -av2[5]=lf[6]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* a6826 in a6814 in k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand((c-2)*C_SIZEOF_PAIR +0,c,1)))){ -C_save_and_reclaim((void*)f_6827,c,av);} -a=C_alloc((c-2)*C_SIZEOF_PAIR+0); -t2=C_build_rest(&a,c,2,av); -C_word t3; -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_i_list_ref(t2,C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6837(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4; -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_6837,c,av);} -a=C_alloc(6); -t4=( -/* modules.scm:332: module-defined-list */ - f_5314(lf[16],t2) -); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6844,a[2]=t2,a[3]=t1,a[4]=t4,a[5]=t3,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:333: module-name */ -t6=lf[8];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -f_5278(3,av2);}} - -/* k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word 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_6844,c,av);} -a=C_alloc(16); -t2=( -/* modules.scm:334: module-import-forms */ - f_5386(lf[27],((C_word*)t0)[2]) -); -t3=( -/* modules.scm:335: module-sexports */ - f_5458(lf[39],((C_word*)t0)[2]) -); -t4=( -/* modules.scm:336: module-meta-import-forms */ - f_5404(lf[30],((C_word*)t0)[2]) -); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6872,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -t6=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_6876,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[4],a[5]=t3,a[6]=t1,a[7]=t4,a[8]=t2,tmp=(C_word)a,a+=9,tmp); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7319,a[2]=t6,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -t8=C_eqp(((C_word*)t0)[5],lf[107]); -if(C_truep(t8)){ -t9=C_i_pairp(t2); -t10=t7; -f_7319(t10,(C_truep(t9)?C_i_pairp(t3):C_SCHEME_FALSE));} -else{ -t9=t7; -f_7319(t9,C_SCHEME_FALSE);}} - -/* k6870 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,1)))){ -C_save_and_reclaim((void *)f_6872,c,av);} -a=C_alloc(15); -t2=C_a_i_cons(&a,2,C_SCHEME_END_OF_LIST,t1); -t3=C_a_i_cons(&a,2,lf[92],t2); -t4=C_a_i_list(&a,2,lf[93],t3); -t5=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=C_a_i_list(&a,1,t4); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6876(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_6876,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6880,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_6884,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); -t4=C_i_pairp(((C_word*)t0)[8]); -t5=(C_truep(t4)?C_i_pairp(((C_word*)t0)[5]):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7310,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:343: chicken.syntax#strip-syntax */ -t7=*((C_word*)lf[98]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -t6=t3; -f_6884(t6,C_SCHEME_END_OF_LIST);}} - -/* k6878 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,3)))){ -C_save_and_reclaim((void *)f_6880,c,av);} -/* modules.scm:337: ##sys#append */ -t2=*((C_word*)lf[94]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6884(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,0,2)))){ -C_save_and_reclaim_args((void *)trf_6884,2,t0,t1);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6888,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_6892,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=C_i_pairp(((C_word*)t0)[7]); -t5=(C_truep(t4)?C_i_pairp(((C_word*)t0)[5]):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7282,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:346: chicken.syntax#strip-syntax */ -t7=*((C_word*)lf[98]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=((C_word*)t0)[7]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -t6=t3; -f_6892(t6,C_SCHEME_END_OF_LIST);}} - -/* k6886 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6888(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_6888,c,av);} -/* modules.scm:337: ##sys#append */ -t2=*((C_word*)lf[94]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6892(C_word t0,C_word t1){ -C_word 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(13,0,2)))){ -C_save_and_reclaim_args((void *)trf_6892,2,t0,t1);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_6896,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_6900,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); -t4=C_i_getprop(((C_word*)t0)[6],lf[100],C_SCHEME_FALSE); -t5=(C_truep(t4)?t4:C_i_pairp(((C_word*)t0)[5])); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7261,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t7=( -/* modules.scm:349: module-meta-expressions */ - f_5422(lf[33],((C_word*)t0)[3]) -); -/* modules.scm:349: chicken.syntax#strip-syntax */ -t8=*((C_word*)lf[98]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t6; -av2[2]=t7; -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t6=t3;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_END_OF_LIST; -f_6900(2,av2);}}} - -/* k6894 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,3)))){ -C_save_and_reclaim((void *)f_6896,c,av);} -/* modules.scm:337: ##sys#append */ -t2=*((C_word*)lf[94]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6900(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_6900,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7246,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* modules.scm:352: module-name */ -t3=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[2]; -f_5278(3,av2);}} - -/* k6930 in k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6932(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(23,0,3)))){ -C_save_and_reclaim_args((void *)trf_6932,2,t0,t1);} -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=( -/* modules.scm:384: module-rename-list */ - f_5512(lf[48],((C_word*)t0)[2]) -); -t7=C_i_check_list_2(t6,lf[57]); -t8=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_6968,a[2]=((C_word*)t0)[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]=t1,a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],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|5,a[1]=(C_word)f_6970,a[2]=t4,a[3]=t10,a[4]=t5,a[5]=((C_word)li69),tmp=(C_word)a,a+=6,tmp)); -t12=((C_word*)t10)[1]; -f_6970(t12,t8,t6);} - -/* k6966 in k6930 in k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_6968(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(30,c,3)))){ -C_save_and_reclaim((void *)f_6968,c,av);} -a=C_alloc(30); -t2=C_a_i_cons(&a,2,lf[96],t1); -t3=C_a_i_list(&a,8,lf[99],((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); -t4=C_a_i_list(&a,1,t3); -/* modules.scm:337: ##sys#append */ -t5=*((C_word*)lf[94]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[8]; -av2[2]=((C_word*)t0)[9]; -av2[3]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* map-loop1479 in k6930 in k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_6970(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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(24,0,2)))){ -C_save_and_reclaim_args((void *)trf_6970,3,t0,t1,t2);} -a=C_alloc(24); -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[95],t4); -t6=C_u_i_cdr(t3); -t7=C_a_i_list(&a,2,lf[95],t6); -t8=C_a_i_list(&a,3,lf[97],t5,t7); -t9=C_a_i_cons(&a,2,t8,C_SCHEME_END_OF_LIST); -t10=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t9); -t11=C_mutate(((C_word *)((C_word*)t0)[2])+1,t9); -t13=t1; -t14=C_slot(t2,C_fix(1)); -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);}}} - -/* k7004 in k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(3,c,1)))){ -C_save_and_reclaim((void *)f_7006,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2]; -f_6932(t2,C_a_i_cons(&a,2,lf[96],t1));} - -/* loop in k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void 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 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(12,0,2)))){ -C_save_and_reclaim_args((void *)trf_7018,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]))){ -/* modules.scm:376: loop */ -t11=t1; -t12=C_u_i_cdr(t2); -t1=t11; -t2=t12; -goto loop;} -else{ -t4=C_i_caar(t2); -t5=C_u_i_car(t2); -t6=C_u_i_car(t5); -t7=C_a_i_list(&a,2,lf[95],t6); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7060,a[2]=t7,a[3]=t1,a[4]=((C_word*)t0)[3],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -t9=C_u_i_car(t2); -/* modules.scm:379: chicken.syntax#strip-syntax */ -t10=*((C_word*)lf[98]+1);{ -C_word av2[3]; -av2[0]=t10; -av2[1]=t8; -av2[2]=C_u_i_cdr(t9); -((C_proc)(void*)(*((C_word*)t10+1)))(3,av2);}}}} - -/* k7048 in k7058 in loop in k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(3,c,1)))){ -C_save_and_reclaim((void *)f_7050,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k7058 in loop in k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7060(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_7060,c,av);} -a=C_alloc(13); -t2=C_a_i_list(&a,3,lf[97],((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7050,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:380: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_7018(t4,t3,C_u_i_cdr(((C_word*)t0)[5]));} - -/* g1432 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7075(C_word t0,C_word t1,C_word 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_7075,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=C_u_i_car(t2); -t6=C_a_i_list(&a,2,lf[95],t5); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7099,a[2]=t1,a[3]=t6,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:366: chicken.syntax#strip-syntax */ -t8=*((C_word*)lf[98]+1);{ -C_word av2[3]; -av2[0]=t8; -av2[1]=t7; -av2[2]=C_u_i_cdr(t4); -((C_proc)(void*)(*((C_word*)t8+1)))(3,av2);}} -else{ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=C_a_i_list(&a,2,lf[95],t3); -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* k7097 in g1432 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7099(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_7099,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list(&a,3,lf[97],((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k7113 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word t3; -C_word t4; -C_word 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_7115,c,av);} -a=C_alloc(23); -t2=C_a_i_cons(&a,2,lf[96],t1); -t3=(*a=C_CLOSURE_TYPE|9,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],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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7006,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_nullp(((C_word*)t0)[9]))){ -t5=t3; -f_6932(t5,C_a_i_cons(&a,2,lf[96],C_SCHEME_END_OF_LIST));} -else{ -t5=( -/* modules.scm:374: module-defined-syntax-list */ - f_5350(lf[22],((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|4,a[1]=(C_word)f_7018,a[2]=((C_word*)t0)[9],a[3]=t7,a[4]=((C_word)li70),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_7018(t9,t4,t5);}} - -/* map-loop1426 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7117(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_7117,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7142,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); -/* modules.scm:362: g1432 */ -t4=((C_word*)t0)[4]; -f_7075(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k7140 in map-loop1426 in k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7142(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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_7142,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_7117(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k7202 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(37,c,3)))){ -C_save_and_reclaim((void *)f_7204,c,av);} -a=C_alloc(37); -t2=C_a_i_cons(&a,2,lf[96],t1); -t3=( -/* modules.scm:360: module-vexports */ - f_5440(lf[36],((C_word*)t0)[2]) -); -t4=C_a_i_list(&a,2,lf[95],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_7075,a[2]=((C_word*)t0)[3],a[3]=((C_word)li68),tmp=(C_word)a,a+=4,tmp); -t10=C_i_check_list_2(((C_word*)t0)[4],lf[57]); -t11=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7115,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t2,a[6]=t4,a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[4],tmp=(C_word)a,a+=10,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_7117,a[2]=t7,a[3]=t13,a[4]=t9,a[5]=t8,a[6]=((C_word)li71),tmp=(C_word)a,a+=7,tmp)); -t15=((C_word*)t13)[1]; -f_7117(t15,t11,((C_word*)t0)[4]);} - -/* map-loop1393 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7206(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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_7206,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_7231,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_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_7231(t9,C_a_i_list(&a,2,lf[95],t8));} -else{ -t6=C_u_i_car(t4); -t7=C_a_i_list(&a,2,lf[95],t6); -t8=C_a_i_list(&a,2,lf[95],C_SCHEME_END_OF_LIST); -t9=C_u_i_cdr(t4); -t10=t3; -f_7231(t10,C_a_i_list(&a,4,lf[96],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);}}} - -/* k7229 in map-loop1393 in k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7231(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,2)))){ -C_save_and_reclaim_args((void *)trf_7231,2,t0,t1);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_7206(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k7244 in k6898 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7246(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(34,c,3)))){ -C_save_and_reclaim((void *)f_7246,c,av);} -a=C_alloc(34); -t2=C_a_i_list(&a,2,lf[95],t1); -t3=( -/* modules.scm:353: module-library */ - f_5287(lf[10],((C_word*)t0)[2]) -); -t4=C_a_i_list(&a,2,lf[95],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=( -/* modules.scm:359: module-iexports */ - f_5476(lf[42],((C_word*)t0)[2]) -); -t10=C_i_check_list_2(t9,lf[57]); -t11=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7204,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t2,a[6]=t4,a[7]=((C_word*)t0)[5],a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); -t12=C_SCHEME_UNDEFINED; -t13=(*a=C_VECTOR_TYPE|1,a[1]=t12,tmp=(C_word)a,a+=2,tmp); -t14=C_set_block_item(t13,0,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7206,a[2]=t7,a[3]=t13,a[4]=t8,a[5]=((C_word)li72),tmp=(C_word)a,a+=6,tmp)); -t15=((C_word*)t13)[1]; -f_7206(t15,t11,t9);} - -/* k7259 in k6890 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7261,c,av);} -/* modules.scm:349: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[101]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[101]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k7280 in k6882 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_7282,c,av);} -a=C_alloc(6); -t2=C_a_i_cons(&a,2,lf[102],t1); -t3=((C_word*)t0)[2]; -f_6892(t3,C_a_i_list(&a,1,t2));} - -/* k7308 in k6874 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7310(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,1)))){ -C_save_and_reclaim((void *)f_7310,c,av);} -a=C_alloc(18); -t2=C_a_i_cons(&a,2,lf[102],t1); -t3=C_a_i_list(&a,2,lf[95],t2); -t4=C_a_i_list(&a,2,lf[103],t3); -t5=((C_word*)t0)[2]; -f_6884(t5,C_a_i_list(&a,1,t4));} - -/* k7317 in k6842 in ##sys#compiled-module-registration in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7319(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_7319,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6762,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_6815,a[2]=((C_word)li77),tmp=(C_word)a,a+=3,tmp); -t4=( -/* modules.scm:327: module-import-forms */ - f_5386(lf[27],((C_word*)t0)[3]) -); -/* modules.scm:325: filter-map */ -f_4629(t2,t3,t4);} -else{ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=C_SCHEME_END_OF_LIST; -f_6876(2,av2);}}} - -/* ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_min_argc_2(c,7,t0); -if(C_unlikely(!C_demand(C_calculate_demand(13,c,3)))){ -C_save_and_reclaim((void *)f_7336,c,av);} -a=C_alloc(13); -t7=C_rest_nullp(c,7); -t8=(C_truep(t7)?C_SCHEME_END_OF_LIST:C_get_rest_arg(c,7,av,7,t0)); -t9=C_rest_nullp(c,7); -t10=C_rest_nullp(c,8); -t11=(C_truep(t10)?C_SCHEME_END_OF_LIST:C_get_rest_arg(c,8,av,7,t0)); -t12=C_rest_nullp(c,8); -t13=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7378,a[2]=t8,a[3]=t2,a[4]=t3,a[5]=t5,a[6]=t4,a[7]=t11,a[8]=t1,a[9]=t6,tmp=(C_word)a,a+=10,tmp); -t14=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7618,a[2]=((C_word)li85),tmp=(C_word)a,a+=3,tmp); -/* modules.scm:400: filter-map */ -f_4629(t13,t14,t6);} - -/* k7373 in a7605 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7375(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_7375,c,av);} -t2=C_i_assq(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=C_i_cdr(t2); -if(C_truep(C_i_pairp(t3))){ -t4=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -/* modules.scm:396: ##sys#error */ -t4=*((C_word*)lf[109]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[110]; -av2[3]=lf[111]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}}} -else{ -/* modules.scm:396: ##sys#error */ -t3=*((C_word*)lf[109]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=lf[110]; -av2[3]=lf[111]; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}}} - -/* k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7378(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_7378,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7381,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7606,a[2]=((C_word)li84),tmp=(C_word)a,a+=3,tmp); -/* modules.scm:405: filter-map */ -f_4629(t2,t3,((C_word*)t0)[9]);} - -/* k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t6; -C_word 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_7381,c,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=C_i_check_list_2(((C_word*)t0)[2],lf[57]); -t7=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7407,a[2]=((C_word*)t0)[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]=t1,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_7572,a[2]=t4,a[3]=t9,a[4]=t5,a[5]=((C_word)li83),tmp=(C_word)a,a+=6,tmp)); -t11=((C_word*)t9)[1]; -f_7572(t11,t7,((C_word*)t0)[2]);} - -/* k7395 in map-loop1541 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7397(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_7397,c,av);} -a=C_alloc(12); -t2=C_a_i_list3(&a,3,((C_word*)t0)[2],C_SCHEME_FALSE,t1); -t3=C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST); -t4=C_i_setslot(((C_word*)((C_word*)t0)[3])[1],C_fix(1),t3); -t5=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); -t6=((C_word*)((C_word*)t0)[4])[1]; -f_7572(t6,((C_word*)t0)[5],C_slot(((C_word*)t0)[6],C_fix(1)));} - -/* k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(10,c,3)))){ -C_save_and_reclaim((void *)f_7407,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_7570,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((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,a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* modules.scm:411: scheme#append */ -t3=*((C_word*)lf[58]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[9]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7413(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_7413,c,av);} -a=C_alloc(20); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7414,a[2]=t1,a[3]=((C_word)li79),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[2],lf[70]); -t4=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_7439,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[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); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_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_7517,a[2]=t6,a[3]=t2,a[4]=((C_word)li82),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_7517(t8,t4,((C_word*)t0)[2]);} - -/* g1574 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7414(C_word 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_7414,3,t0,t1,t2);} -a=C_alloc(10); -t3=C_i_cdr(t2); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7426,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=C_i_cadr(t2); -if(C_truep(t5)){ -/* modules.scm:422: merge-se */ -f_6605(t4,C_a_i_list(&a,2,t5,((C_word*)t0)[2]));} -else{ -/* modules.scm:422: merge-se */ -f_6605(t4,C_a_i_list(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]));}} - -/* k7424 in g1574 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7426,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_set_car(((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7439(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_7439,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7440,a[2]=((C_word*)t0)[2],a[3]=((C_word)li80),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[3],lf[70]); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7465,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_7494,a[2]=t6,a[3]=t2,a[4]=((C_word)li81),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_7494(t8,t4,((C_word*)t0)[3]);} - -/* g1584 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7440(C_word 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_7440,3,t0,t1,t2);} -a=C_alloc(10); -t3=C_i_cdr(t2); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7452,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -t5=C_i_cadr(t2); -if(C_truep(t5)){ -/* modules.scm:426: merge-se */ -f_6605(t4,C_a_i_list(&a,2,t5,((C_word*)t0)[2]));} -else{ -/* modules.scm:426: merge-se */ -f_6605(t4,C_a_i_list(&a,2,C_SCHEME_END_OF_LIST,((C_word*)t0)[2]));}} - -/* k7450 in g1584 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_7452,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_set_car(((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k7463 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -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_7465,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7468,a[2]=((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_7484,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7492,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:430: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t4; -tp(2,av2);}} - -/* k7466 in k7463 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7468(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_7468,c,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[64]+1)); -t4=C_mutate((C_word*)lf[64]+1 /* (set! ##sys#module-table ...) */,t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k7482 in k7463 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7484(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_7484,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7488,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:431: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7486 in k7482 in k7463 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7488(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_7488,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* modules.scm:428: set-module-saved-environments! */ -t3=lf[47]; -f_5503(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);} - -/* k7490 in k7463 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7492(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_7492,c,av);} -a=C_alloc(9); -/* modules.scm:430: merge-se */ -f_6605(((C_word*)t0)[2],C_a_i_list(&a,3,t1,((C_word*)t0)[3],((C_word*)t0)[4]));} - -/* for-each-loop1583 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7494(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_7494,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7504,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:424: g1584 */ -t4=((C_word*)t0)[3]; -f_7440(t4,t3,C_slot(t2,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);}}} - -/* k7502 in for-each-loop1583 in k7437 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7504,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_7494(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* for-each-loop1573 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7517(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_7517,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7527,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:420: g1574 */ -t4=((C_word*)t0)[3]; -f_7414(t4,t3,C_slot(t2,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);}}} - -/* k7525 in for-each-loop1573 in k7411 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7527(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7527,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_7517(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k7549 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7551(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_7551,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7555,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); -/* modules.scm:417: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7553 in k7549 in k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(18,c,2)))){ -C_save_and_reclaim((void *)f_7555,c,av);} -a=C_alloc(18); -/* modules.scm:415: merge-se */ -f_6605(((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]));} - -/* k7568 in k7405 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7570(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(35,c,2)))){ -C_save_and_reclaim((void *)f_7570,c,av);} -a=C_alloc(35); -t2=( -/* modules.scm:411: make-module */ - f_5549(C_a_i(&a,17),((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,((C_word*)t0)[4],t1,((C_word*)t0)[5],C_a_i_list(&a,1,((C_word*)t0)[6])) -); -t3=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_7413,a[2]=((C_word*)t0)[7],a[3]=((C_word*)t0)[8],a[4]=((C_word*)t0)[2],a[5]=t2,a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[4],tmp=(C_word)a,a+=8,tmp); -t4=C_i_nullp(((C_word*)t0)[7]); -t5=C_i_not(t4); -t6=(C_truep(t5)?t5:C_i_not(C_i_nullp(((C_word*)t0)[8]))); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7551,a[2]=t3,a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[7],a[6]=((C_word*)t0)[8],tmp=(C_word)a,a+=7,tmp); -/* modules.scm:416: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t7; -tp(2,av2);}} -else{ -t7=t3;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=C_SCHEME_END_OF_LIST; -f_7413(2,av2);}}} - -/* map-loop1541 in k7379 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7572(C_word 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_7572,3,t0,t1,t2);} -a=C_alloc(7); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7397,a[2]=t4,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=t1,a[6]=t2,tmp=(C_word)a,a+=7,tmp); -/* modules.scm:409: ##sys#ensure-transformer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[108]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[108]+1); -av2[1]=t5; -av2[2]=C_u_i_cdr(t3); -av2[3]=C_u_i_car(t3); -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);}}} - -/* a7605 in k7376 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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); -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_7606,c,av);} -a=C_alloc(4); -if(C_truep(C_i_symbolp(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7375,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:393: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t3; -tp(2,av2);}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* a7617 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7618(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_7618,c,av);} -a=C_alloc(4); -t3=C_i_symbolp(t2); -if(C_truep(C_i_not(t3))){ -t4=C_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7636,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:402: ##sys#ensure-transformer */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[108]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[108]+1); -av2[1]=t5; -av2[2]=C_u_i_cdr(t2); -av2[3]=C_u_i_car(t2); -tp(4,av2);}} -else{ -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* k7634 in a7617 in ##sys#register-compiled-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(9,c,1)))){ -C_save_and_reclaim((void *)f_7636,c,av);} -a=C_alloc(9); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_list3(&a,3,((C_word*)t0)[3],C_SCHEME_FALSE,t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=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_min_argc_2(c,5,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_7670,c,av);} -a=C_alloc(7); -t5=C_rest_nullp(c,5); -t6=(C_truep(t5)?C_SCHEME_END_OF_LIST:C_get_rest_arg(c,5,av,5,t0)); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7677,a[2]=t2,a[3]=t6,a[4]=t3,a[5]=t4,a[6]=t1,tmp=(C_word)a,a+=7,tmp); -/* modules.scm:436: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t7; -tp(2,av2);}} - -/* k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word 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_7677,c,av);} -a=C_alloc(25); -t2=C_a_i_cons(&a,2,C_SCHEME_UNDEFINED,C_SCHEME_END_OF_LIST); -t3=t2; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=((C_word*)t4)[1]; -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7720,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word)li87),tmp=(C_word)a,a+=5,tmp); -t7=C_i_check_list_2(((C_word*)t0)[3],lf[57]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7742,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],tmp=(C_word)a,a+=6,tmp); -t9=C_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_7744,a[2]=t4,a[3]=t10,a[4]=t6,a[5]=t5,a[6]=((C_word)li88),tmp=(C_word)a,a+=7,tmp)); -t12=((C_word*)t10)[1]; -f_7744(t12,t8,((C_word*)t0)[3]);} - -/* k7681 in k7740 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7683(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_7683,c,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[64]+1)); -t4=C_mutate((C_word*)lf[64]+1 /* (set! ##sys#module-table ...) */,t3); -t5=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* k7697 in k7740 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7699(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_7699,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7703,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:454: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k7701 in k7697 in k7740 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7703(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_7703,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* modules.scm:449: set-module-saved-environments! */ -t3=lf[47]; -f_5503(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);} - -/* k7705 in k7740 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7707(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_7707,c,av);} -a=C_alloc(9); -t2=( -/* modules.scm:452: module-vexports */ - f_5440(lf[36],((C_word*)t0)[2]) -); -t3=( -/* modules.scm:453: module-sexports */ - f_5458(lf[39],((C_word*)t0)[2]) -); -/* modules.scm:451: merge-se */ -f_6605(((C_word*)t0)[3],C_a_i_list(&a,3,t1,t2,t3));} - -/* g1642 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7720(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_7720,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:443: ##sys#error */ -t4=*((C_word*)lf[109]+1);{ -C_word av2[5]; -av2[0]=t4; -av2[1]=t1; -av2[2]=lf[113]; -av2[3]=t2; -av2[4]=((C_word*)t0)[3]; -((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);}}} - -/* k7740 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7742(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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,2)))){ -C_save_and_reclaim((void *)f_7742,c,av);} -a=C_alloc(30); -t2=( -/* modules.scm:437: make-module */ - f_5549(C_a_i(&a,17),((C_word*)t0)[2],((C_word*)t0)[3],C_SCHEME_END_OF_LIST,((C_word*)t0)[4],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST) -); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7683,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7699,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7707,a[2]=t2,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:451: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t5; -tp(2,av2);}} - -/* map-loop1636 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7744(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_7744,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7769,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:440: g1642 */ -t4=((C_word*)t0)[4]; -f_7720(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k7767 in map-loop1636 in k7675 in ##sys#register-core-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7769(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_7769,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_7744(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* ##sys#register-primitive-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7784(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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(0,c,5)))){ -C_save_and_reclaim((void *)f_7784,c,av);} -if(C_truep(C_rest_nullp(c,4))){ -/* modules.scm:461: ##sys#register-core-module */ -t4=*((C_word*)lf[112]+1);{ -C_word av2[6]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -av2[4]=t3; -av2[5]=C_SCHEME_END_OF_LIST; -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}} -else{ -/* modules.scm:461: ##sys#register-core-module */ -t4=*((C_word*)lf[112]+1);{ -C_word av2[6]; -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_SCHEME_FALSE; -av2[4]=t3; -av2[5]=C_get_rest_arg(c,4,av,4,t0); -((C_proc)(void*)(*((C_word*)t4+1)))(6,av2);}}} - -/* find-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7799(C_word 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_7799,4,t1,t2,t3,t4);} -a=C_alloc(5); -t5=( -/* modules.scm:464: module-export-list */ - f_5296(lf[12],t3) -); -t6=C_eqp(C_SCHEME_TRUE,t5); -t7=(C_truep(t6)?( -/* modules.scm:465: module-exist-list */ - f_5332(lf[19],t3) -):t5); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7812,a[2]=t2,a[3]=t4,a[4]=((C_word)li91),tmp=(C_word)a,a+=5,tmp); -t9=t1;{ -C_word av2[2]; -av2[0]=t9; -av2[1]=( - f_7812(t8,t7) -); -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* loop in find-export in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_7812(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_stack_overflow_check; -loop:{} -if(C_truep(C_i_nullp(t1))){ -return(C_SCHEME_FALSE);} -else{ -t2=C_i_car(t1); -t3=C_eqp(((C_word*)t0)[2],t2); -if(C_truep(t3)){ -return(t3);} -else{ -if(C_truep(C_i_pairp(C_u_i_car(t1)))){ -t4=C_i_caar(t1); -t5=C_eqp(((C_word*)t0)[2],t4); -if(C_truep(t5)){ -return(t5);} -else{ -if(C_truep(((C_word*)t0)[3])){ -t6=C_u_i_car(t1); -t7=C_i_memq(((C_word*)t0)[2],C_u_i_cdr(t6)); -if(C_truep(t7)){ -return(t7);} -else{ -t9=C_u_i_cdr(t1); -t1=t9; -goto loop;}} -else{ -t9=C_u_i_cdr(t1); -t1=t9; -goto loop;}}} -else{ -t9=C_u_i_cdr(t1); -t1=t9; -goto loop;}}}} - -/* ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7877(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(14,c,3)))){ -C_save_and_reclaim((void *)f_7877,c,av);} -a=C_alloc(14); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8892,a[2]=((C_word)li93),tmp=(C_word)a,a+=3,tmp):C_get_rest_arg(c,3,av,3,t0)); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7883,a[2]=t2,a[3]=((C_word)li104),tmp=(C_word)a,a+=4,tmp); -t6=( -/* modules.scm:546: module-export-list */ - f_5296(lf[12],t2) -); -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8390,a[2]=t2,a[3]=t1,a[4]=t5,a[5]=t6,a[6]=t4,tmp=(C_word)a,a+=7,tmp); -/* modules.scm:547: module-name */ -t8=lf[8];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=t7; -av2[2]=t2; -f_5278(3,av2);}} - -/* report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7883(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_7883,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7887,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:485: scheme#open-output-string */ -t4=*((C_word*)lf[125]+1);{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7887(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_7887,c,av);} -a=C_alloc(6); -t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[116]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7893,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); -/* modules.scm:486: ##sys#print */ -t4=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[140]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_7893,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7896,a[2]=((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_8325,a[2]=t2,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:486: module-name */ -t4=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[5]; -f_5278(3,av2);}} - -/* k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_7896,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7899,a[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:486: ##sys#print */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[139]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 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_7899,c,av);} -a=C_alloc(25); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7902,a[2]=((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_8216,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_check_list_2(((C_word*)t0)[4],lf[57]); -t9=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8287,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_8289,a[2]=t6,a[3]=t11,a[4]=t7,a[5]=((C_word)li103),tmp=(C_word)a,a+=6,tmp)); -t13=((C_word*)t11)[1]; -f_8289(t13,t9,((C_word*)t0)[4]);} - -/* k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7902(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_7902,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7903,a[2]=((C_word*)t0)[2],a[3]=((C_word)li100),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8182,a[2]=((C_word*)t0)[3],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|4,a[1]=(C_word)f_8191,a[2]=t5,a[3]=t2,a[4]=((C_word)li101),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_8191(t7,t3,((C_word*)t0)[4]);} - -/* g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,0,4)))){ -C_save_and_reclaim_args((void *)trf_7903,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[116]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7910,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:501: ##sys#print */ -t5=*((C_word*)lf[119]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[135]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7910(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_7910,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7913,a[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:501: ##sys#print */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_car(((C_word*)t0)[3]); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7913(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_7913,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7916,a[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:501: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[127]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[127]+1); -av2[1]=t2; -av2[2]=C_make_character(39); -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} - -/* k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_7916,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7917,a[2]=((C_word*)t0)[2],a[3]=((C_word)li96),tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8055,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); -/* modules.scm:519: scheme#reverse */ -t4=*((C_word*)lf[89]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=C_u_i_cdr(((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7917(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word 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_7917,3,t0,t1,t2);} -a=C_alloc(12); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_7920,a[2]=((C_word)li94),tmp=(C_word)a,a+=3,tmp); -t4=C_i_pairp(t2); -t5=(C_truep(t4)?(C_truep(C_u_i_car(t2))?C_u_i_cdr(t2):C_SCHEME_FALSE):C_SCHEME_FALSE); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7950,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -if(C_truep(t5)){ -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7960,a[2]=t3,a[3]=t2,a[4]=((C_word)li95),tmp=(C_word)a,a+=5,tmp); -/* modules.scm:511: g1821 */ -t8=t7; -f_7960(t8,t6,t5);} -else{ -t7=C_i_pairp(t2); -t8=(C_truep(t7)?C_u_i_cdr(t2):C_SCHEME_FALSE); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8002,a[2]=t6,a[3]=t3,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:516: scheme#open-output-string */ -t10=*((C_word*)lf[125]+1);{ -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|3,a[1]=(C_word)f_8025,a[2]=t6,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:517: scheme#open-output-string */ -t10=*((C_word*)lf[125]+1);{ -C_word av2[2]; -av2[0]=t10; -av2[1]=t9; -((C_proc)(void*)(*((C_word*)t10+1)))(2,av2);}}}} - -/* ln->num in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7920(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_7920,2,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7924,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:506: chicken.string#string-split */ -t4=*((C_word*)lf[117]+1);{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -av2[3]=lf[118]; -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} - -/* k7922 in ln->num in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_7924(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_7924,c,av);} -if(C_truep(C_i_pairp(t1))){ -t2=C_i_length(t1); -t3=C_eqp(C_fix(2),t2); -t4=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=(C_truep(t3)?C_i_cadr(t1):((C_word*)t0)[3]); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k7948 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_7950(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_7950,c,av);} -a=C_alloc(5); -t2=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[116]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_7956,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:518: ##sys#print */ -t4=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[120]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k7954 in k7948 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7956,c,av);} -/* modules.scm:518: ##sys#print */ -t2=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* g1821 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_7960(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_7960,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_7964,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); -/* modules.scm:514: scheme#open-output-string */ -t4=*((C_word*)lf[125]+1);{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k7962 in g1821 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_7964(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,4)))){ -C_save_and_reclaim((void *)f_7964,c,av);} -a=C_alloc(7); -t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[121]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_7970,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); -/* modules.scm:514: ##sys#print */ -t4=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[124]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k7968 in k7962 in g1821 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_7970,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); -/* modules.scm:514: ##sys#print */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_car(((C_word*)t0)[6]); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k7971 in k7968 in k7962 in g1821 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_7973,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,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],tmp=(C_word)a,a+=6,tmp); -/* modules.scm:514: ##sys#print */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[123]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k7974 in k7971 in k7968 in k7962 in g1821 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_7976(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_7976,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_7979,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_7986,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:514: ln->num */ -f_7920(t3,((C_word*)t0)[5]);} - -/* k7977 in k7974 in k7971 in k7968 in k7962 in g1821 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_7979,c,av);} -/* modules.scm:514: scheme#get-output-string */ -t2=*((C_word*)lf[122]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k7984 in k7974 in k7971 in k7968 in k7962 in g1821 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_7986,c,av);} -/* modules.scm:514: ##sys#print */ -t2=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8000 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -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_8002,c,av);} -a=C_alloc(6); -t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[121]); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8008,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); -/* modules.scm:516: ##sys#print */ -t4=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[126]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k8006 in k8000 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_8008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_8008,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8011,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_8018,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:516: ln->num */ -f_7920(t3,C_i_cdr(((C_word*)t0)[5]));} - -/* k8009 in k8006 in k8000 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8011,c,av);} -/* modules.scm:516: scheme#get-output-string */ -t2=*((C_word*)lf[122]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k8016 in k8006 in k8000 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8018,c,av);} -/* modules.scm:516: ##sys#print */ -t2=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8023 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8025(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_8025,c,av);} -a=C_alloc(5); -t2=C_i_check_port_2(t1,C_fix(2),C_SCHEME_TRUE,lf[121]); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8031,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:517: ##sys#print */ -t4=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=lf[128]; -av2[3]=C_SCHEME_FALSE; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(5,av2);}} - -/* k8029 in k8023 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -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_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_8031,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8034,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:517: ##sys#print */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k8032 in k8029 in k8023 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_8034(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_8034,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8037,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:517: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[127]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[127]+1); -av2[1]=t2; -av2[2]=C_make_character(39); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k8035 in k8032 in k8029 in k8023 in g1794 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_8037(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8037,c,av);} -/* modules.scm:517: scheme#get-output-string */ -t2=*((C_word*)lf[122]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,3)))){ -C_save_and_reclaim((void *)f_8055,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8058,a[2]=((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|4,a[1]=(C_word)f_8152,a[2]=t4,a[3]=((C_word*)t0)[5],a[4]=((C_word)li99),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_8152(t6,t2,t1);} - -/* k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_8058,c,av);} -a=C_alloc(5); -t2=C_u_i_car(((C_word*)t0)[2]); -if(C_truep(t2)){ -t3=C_i_getprop(t2,lf[129],C_SCHEME_FALSE); -if(C_truep(t3)){ -t4=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[116]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8076,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:524: ##sys#print */ -t6=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[134]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t4=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t3=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -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 t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,4)))){ -C_save_and_reclaim((void *)f_8076,c,av);} -a=C_alloc(5); -t2=C_i_length(((C_word*)t0)[2]); -t3=C_eqp(C_fix(1),t2); -if(C_truep(t3)){ -t4=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[116]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8088,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:527: ##sys#print */ -t6=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[131]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -t4=C_i_check_port_2(((C_word*)t0)[3],C_fix(2),C_SCHEME_TRUE,lf[116]); -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8104,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); -/* modules.scm:529: ##sys#print */ -t6=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=lf[133]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} - -/* k8086 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_8088(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_8088,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8091,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_8098,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:527: scheme#cadar */ -t4=*((C_word*)lf[130]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k8089 in k8086 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_8091(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8091,c,av);} -/* modules.scm:527: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[127]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[127]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=C_make_character(39); -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k8096 in k8086 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_8098(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8098,c,av);} -/* modules.scm:527: ##sys#print */ -t2=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8102 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_8104(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,3)))){ -C_save_and_reclaim((void *)f_8104,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8105,a[2]=((C_word*)t0)[2],a[3]=((C_word)li97),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_8124,a[2]=t4,a[3]=t2,a[4]=((C_word)li98),tmp=(C_word)a,a+=5,tmp)); -t6=((C_word*)t4)[1]; -f_8124(t6,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* g1904 in k8102 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void f_8105(C_word t0,C_word t1,C_word 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_8105,3,t0,t1,t2);} -a=C_alloc(5); -t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[116]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8112,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:532: ##sys#print */ -t5=*((C_word*)lf[119]+1);{ -C_word av2[5]; -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[132]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* k8110 in g1904 in k8102 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_8112(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8112,c,av);} -/* modules.scm:532: ##sys#print */ -t2=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=C_i_cadr(((C_word*)t0)[3]); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* for-each-loop1903 in k8102 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void f_8124(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_8124,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8134,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:530: g1904 */ -t4=((C_word*)t0)[3]; -f_8105(t4,t3,C_slot(t2,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);}}} - -/* k8132 in for-each-loop1903 in k8102 in k8074 in k8056 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_8134(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8134,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8124(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* for-each-loop1793 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8152(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_8152,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8162,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:504: g1794 */ -t4=((C_word*)t0)[3]; -f_7917(t4,t3,C_slot(t2,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);}}} - -/* k8160 in for-each-loop1793 in k8053 in k7914 in k7911 in k7908 in g1726 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -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,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8152(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k8180 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8182(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_8182,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8189,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:536: scheme#get-output-string */ -t3=*((C_word*)lf[122]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k8187 in k8180 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8189(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8189,c,av);} -/* modules.scm:536: ##sys#error */ -t2=*((C_word*)lf[109]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* for-each-loop1725 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8191(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_8191,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8201,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:499: g1726 */ -t4=((C_word*)t0)[3]; -f_7903(t4,t3,C_slot(t2,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);}}} - -/* k8199 in for-each-loop1725 in k7900 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8201(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8201,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8191(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k8214 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(7,c,3)))){ -C_save_and_reclaim((void *)f_8216,c,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_8218,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_8218(t5,((C_word*)t0)[3],t1);} - -/* lp in k8214 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8218(C_word t0,C_word t1,C_word t2){ -C_word 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(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_8218,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=C_i_car(t2); -if(C_truep(t3)){ -t4=C_i_pairp(t3); -t5=(C_truep(t4)?C_u_i_cdr(t3):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8248,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); -/* modules.scm:493: chicken.string#string-split */ -t7=*((C_word*)lf[117]+1);{ -C_word av2[4]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t5; -av2[3]=lf[138]; -((C_proc)(void*)(*((C_word*)t7+1)))(4,av2);}} -else{ -/* modules.scm:497: lp */ -t8=t1; -t9=C_u_i_cdr(t2); -t1=t8; -t2=t9; -goto loop;}} -else{ -/* modules.scm:497: lp */ -t8=t1; -t9=C_u_i_cdr(t2); -t1=t8; -t2=t9; -goto loop;}}} - -/* k8246 in lp in k8214 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8248(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8248,c,av);} -a=C_alloc(5); -t2=C_eqp(C_fix(2),C_u_i_length(t1)); -if(C_truep(t2)){ -t3=C_i_check_port_2(((C_word*)t0)[2],C_fix(2),C_SCHEME_TRUE,lf[116]); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8260,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:495: ##sys#print */ -t5=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t5; -av2[1]=t4; -av2[2]=lf[137]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} -else{ -/* modules.scm:497: lp */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_8218(t3,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[5]));}} - -/* k8258 in k8246 in lp in k8214 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8260(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,4)))){ -C_save_and_reclaim((void *)f_8260,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8263,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:495: ##sys#print */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_car(((C_word*)t0)[4]); -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k8261 in k8258 in k8246 in lp in k8214 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,4)))){ -C_save_and_reclaim((void *)f_8263,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8266,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:495: ##sys#print */ -t3=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[136]; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k8264 in k8261 in k8258 in k8246 in lp in k8214 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8266,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_TRUE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8285 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8287(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8287,c,av);}{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=*((C_word*)lf[58]+1); -av2[3]=t1; -C_apply(4,av2);}} - -/* map-loop1761 in k7897 in k7894 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8289(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_8289,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_cdr(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* k8323 in k7891 in k7885 in report-unresolved-identifiers in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8325,c,av);} -/* modules.scm:486: ##sys#print */ -t2=*((C_word*)lf[119]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* loop in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8337(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_8337,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_8380,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:541: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[160]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[160]+1); -av2[1]=t3; -av2[2]=C_i_caar(t2); -av2[3]=lf[161]; -tp(4,av2);}}} - -/* k8364 in k8374 in k8378 in loop in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8366(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8366,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8374 in k8378 in loop in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8376(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_8376,c,av);} -a=C_alloc(4); -t2=C_i_assq(((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8366,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:544: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_8337(t4,t3,C_u_i_cdr(((C_word*)t0)[5]));} - -/* k8378 in loop in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8380(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_8380,c,av);} -a=C_alloc(6); -t2=C_eqp(t1,lf[162]); -if(C_truep(t2)){ -/* modules.scm:542: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_8337(t3,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t3=C_i_caar(((C_word*)t0)[4]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8376,a[2]=t3,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); -/* modules.scm:543: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t4; -tp(2,av2);}}} - -/* k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8390(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_8390,c,av);} -a=C_alloc(19); -t2=( -/* modules.scm:548: module-defined-list */ - f_5314(lf[16],((C_word*)t0)[2]) -); -t3=( -/* modules.scm:549: module-exist-list */ - f_5332(lf[19],((C_word*)t0)[2]) -); -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|10,a[1]=(C_word)f_8399,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t5,a[6]=t1,a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=t2,a[10]=((C_word*)t0)[6],tmp=(C_word)a,a+=11,tmp); -t7=( -/* modules.scm:539: module-defined-syntax-list */ - f_5350(lf[22],((C_word*)t0)[2]) -); -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_8337,a[2]=t9,a[3]=((C_word)li120),tmp=(C_word)a,a+=4,tmp)); -t11=((C_word*)t9)[1]; -f_8337(t11,t6,t7);} - -/* k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8399(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word 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_8399,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8402,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],tmp=(C_word)a,a+=12,tmp); -t3=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[8]); -if(C_truep(t3)){ -t4=( -/* modules.scm:554: module-sexports */ - f_5458(lf[39],((C_word*)t0)[4]) -); -/* modules.scm:554: merge-se */ -f_6605(t2,C_a_i_list(&a,2,t4,t1));} -else{ -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8834,a[2]=((C_word*)t0)[4],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:555: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t4; -tp(2,av2);}}} - -/* k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8402(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_8402,c,av);} -a=C_alloc(21); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8405,a[2]=((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); -t3=C_eqp(C_SCHEME_TRUE,((C_word*)t0)[9]); -t4=(C_truep(t3)?((C_word*)t0)[2]:((C_word*)t0)[9]); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8645,a[2]=t6,a[3]=t1,a[4]=((C_word*)t0)[10],a[5]=((C_word*)t0)[6],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[11],a[8]=((C_word)li118),tmp=(C_word)a,a+=9,tmp)); -t8=((C_word*)t6)[1]; -f_8645(t8,t2,t4);} - -/* k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 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_8405,c,av);} -a=C_alloc(19); -t2=C_SCHEME_END_OF_LIST; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8406,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word)li105),tmp=(C_word)a,a+=5,tmp); -t5=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8424,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],a[11]=t4,tmp=(C_word)a,a+=12,tmp); -/* modules.scm:606: module-undefined-list */ -t6=*((C_word*)lf[25]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* g1996 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_8406(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_car(t1); -if(C_truep(C_i_memq(t2,((C_word*)t0)[2]))){ -t3=C_SCHEME_UNDEFINED; -return(t3);} -else{ -t3=C_a_i_cons(&a,2,t1,((C_word*)((C_word*)t0)[3])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[3])+1,t3); -return(t4);}} - -/* k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8424(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word 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_8424,c,av);} -a=C_alloc(18); -t2=C_i_check_list_2(t1,lf[70]); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8430,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8618,a[2]=((C_word*)t0)[11],a[3]=t5,a[4]=((C_word)li114),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_8618(t7,t3,t1);} - -/* k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8430(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_8430,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8433,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],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_nullp(((C_word*)((C_word*)t0)[9])[1]))){ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_8433(2,av2);}} -else{ -/* modules.scm:608: report-unresolved-identifiers */ -t3=((C_word*)t0)[10]; -f_7883(t3,t2,((C_word*)((C_word*)t0)[9])[1]);}} - -/* k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8433(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_8433,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8436,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:611: ##sys#error */ -t3=*((C_word*)lf[109]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[149]; -av2[3]=((C_word*)t0)[8]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -f_8436(2,av2);}}} - -/* k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word t3; -C_word t4; -C_word 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,2)))){ -C_save_and_reclaim((void *)f_8436,c,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|8,a[1]=(C_word)f_8471,a[2]=((C_word*)t0)[2],a[3]=((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=( -/* modules.scm:266: module-export-list */ - f_5296(lf[12],((C_word*)t0)[4]) -); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_6352,a[2]=((C_word*)t0)[4],a[3]=t7,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:267: module-name */ -t9=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t9; -av2[1]=t8; -av2[2]=((C_word*)t0)[4]; -f_5278(3,av2);}} - -/* k8462 in map-loop2015 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_8464,c,av);} -a=C_alloc(3); -t2=C_i_assq(((C_word*)t0)[2],t1); -if(C_truep(t2)){ -t3=((C_word*)t0)[3]; -f_8585(t3,C_a_i_cons(&a,2,t2,C_SCHEME_END_OF_LIST));} -else{ -/* modules.scm:616: ##sys#error */ -t3=*((C_word*)lf[109]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[141]; -av2[3]=C_u_i_car(((C_word*)t0)[5]); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(15,c,3)))){ -C_save_and_reclaim((void *)f_8471,c,av);} -a=C_alloc(15); -t2=C_i_check_list_2(t1,lf[57]); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8477,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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_8575,a[2]=((C_word*)t0)[7],a[3]=t5,a[4]=((C_word*)t0)[8],a[5]=((C_word)li108),tmp=(C_word)a,a+=6,tmp)); -t7=((C_word*)t5)[1]; -f_8575(t7,t3,t1);} - -/* k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8477(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,2)))){ -C_save_and_reclaim((void *)f_8477,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|7,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]=((C_word*)t0)[6],a[7]=t1,tmp=(C_word)a,a+=8,tmp); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8569,a[2]=t2,a[3]=t1,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:619: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8480(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_8480,c,av);} -a=C_alloc(18); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8481,a[2]=t1,a[3]=((C_word)li106),tmp=(C_word)a,a+=4,tmp); -t3=C_i_check_list_2(((C_word*)t0)[2],lf[70]); -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8503,a[2]=((C_word*)t0)[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); -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_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_8544,a[2]=t6,a[3]=t2,a[4]=((C_word)li107),tmp=(C_word)a,a+=5,tmp)); -t8=((C_word*)t6)[1]; -f_8544(t8,t4,((C_word*)t0)[2]);} - -/* g2051 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8481(C_word t0,C_word t1,C_word 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_8481,3,t0,t1,t2);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8485,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -t4=C_i_cadr(t2); -/* modules.scm:624: merge-se */ -f_6605(t3,C_a_i_list(&a,2,t4,((C_word*)t0)[2]));} - -/* k8483 in g2051 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_8485(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8485,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_i_set_car(C_u_i_cdr(((C_word*)t0)[3]),t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8503(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_8503,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8509,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:635: set-module-vexports! */ -t3=lf[38]; -f_5449(t3,t2,((C_word*)t0)[3],((C_word*)t0)[4]);} - -/* k8507 in k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_8509(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_8509,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_8512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -/* modules.scm:636: set-module-sexports! */ -t3=lf[41]; -f_5467(t3,t2,((C_word*)t0)[3],((C_word*)t0)[5]);} - -/* k8510 in k8507 in k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ -C_save_and_reclaim((void *)f_8512,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8515,a[2]=((C_word*)t0)[2],a[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_8538,a[2]=t2,a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -t4=( -/* modules.scm:639: module-iexports */ - f_5476(lf[42],((C_word*)t0)[3]) -); -/* modules.scm:639: merge-se */ -f_6605(t3,C_a_i_list(&a,2,t4,((C_word*)t0)[6]));} - -/* k8513 in k8510 in k8507 in k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -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(9,c,2)))){ -C_save_and_reclaim((void *)f_8515,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8526,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_8534,a[2]=t2,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:642: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t3; -tp(2,av2);}} - -/* k8524 in k8513 in k8510 in k8507 in k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_8526(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_8526,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8530,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:643: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[67]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k8528 in k8524 in k8513 in k8510 in k8507 in k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in ... */ -static void C_ccall f_8530(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,3)))){ -C_save_and_reclaim((void *)f_8530,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -/* modules.scm:640: set-module-saved-environments! */ -t3=lf[47]; -f_5503(t3,((C_word*)t0)[3],((C_word*)t0)[4],t2);} - -/* k8532 in k8513 in k8510 in k8507 in k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_8534(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_8534,c,av);} -a=C_alloc(9); -/* modules.scm:642: merge-se */ -f_6605(((C_word*)t0)[2],C_a_i_list(&a,3,t1,((C_word*)t0)[3],((C_word*)t0)[4]));} - -/* k8536 in k8510 in k8507 in k8501 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_8538(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_8538,c,av);} -/* modules.scm:637: set-module-iexports! */ -t2=lf[44]; -f_5485(t2,((C_word*)t0)[2],((C_word*)t0)[3],t1);} - -/* for-each-loop2050 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8544(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_8544,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8554,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:622: g2051 */ -t4=((C_word*)t0)[3]; -f_8481(t4,t3,C_slot(t2,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);}}} - -/* k8552 in for-each-loop2050 in k8478 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_8554(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8554,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8544(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k8567 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(8,c,2)))){ -C_save_and_reclaim((void *)f_8569,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8573,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); -/* modules.scm:620: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k8571 in k8567 in k8475 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8573(C_word c,C_word *av){ -C_word tmp; -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_8573,c,av);} -a=C_alloc(18); -/* modules.scm:618: merge-se */ -f_6605(((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-loop2015 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,0,2)))){ -C_save_and_reclaim_args((void *)trf_8575,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_8585,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=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8600,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=C_slot(t2,C_fix(0)); -t6=C_i_cdr(t5); -if(C_truep(C_i_symbolp(t6))){ -t7=t3; -f_8585(t7,C_a_i_cons(&a,2,t5,C_SCHEME_END_OF_LIST));} -else{ -t7=C_u_i_car(t5); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8464,a[2]=t7,a[3]=t3,a[4]=t4,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:615: ##sys#macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[67]+1)); -C_word av2[2]; -av2[0]=*((C_word*)lf[67]+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);}}} - -/* k8583 in map-loop2015 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8585(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_8585,2,t0,t1);} -t2=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t1); -t3=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t4=((C_word*)((C_word*)t0)[3])[1]; -f_8575(t4,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* k8598 in map-loop2015 in k8469 in k8434 in k8431 in k8428 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8600(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8600,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2]; -f_8585(t2,C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST));} - -/* for-each-loop1995 in k8422 in k8403 in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8618(C_word 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; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(3,0,2)))){ -C_save_and_reclaim_args((void *)trf_8618,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=( -/* modules.scm:603: g1996 */ - f_8406(C_a_i(&a,3),((C_word*)t0)[2],C_slot(t2,C_fix(0))) -); -t5=t1; -t6=C_slot(t2,C_fix(1)); -t1=t5; -t2=t6; -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);}}} - -/* loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8645(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,0,3)))){ -C_save_and_reclaim_args((void *)trf_8645,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); -t4=C_i_symbolp(t3); -t5=(C_truep(t4)?t3:C_i_car(t3)); -t6=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8808,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,a[5]=t5,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); -/* modules.scm:568: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[160]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[160]+1); -av2[1]=t6; -av2[2]=t5; -av2[3]=lf[161]; -tp(4,av2);}}} - -/* k8689 in k8698 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8691,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8698 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8700(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_8700,c,av);} -a=C_alloc(7); -t2=C_a_i_cons(&a,2,((C_word*)t0)[2],t1); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8691,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:599: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_8645(t4,t3,C_u_i_cdr(((C_word*)t0)[5]));} - -/* fail in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8711(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_8711,3,t0,t1,t2);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8715,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:580: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[75]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k8713 in fail in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8715(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8715,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_TRUE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* id-string in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8718(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_8718,2,t0,t1);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8726,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:583: scheme#symbol->string */ -t3=*((C_word*)lf[145]+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);}} - -/* k8724 in id-string in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8726(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8726,c,av);} -/* modules.scm:583: scheme#string-append */ -t2=*((C_word*)lf[142]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[151]; -av2[3]=t1; -av2[4]=lf[152]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8745 in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8747(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_8747,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8751,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li117),tmp=(C_word)a,a+=5,tmp); -/* modules.scm:584: g1986 */ -t3=t2; -f_8751(t3,((C_word*)t0)[4],t1);} -else{ -if(C_truep(C_i_not(((C_word*)t0)[5]))){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8779,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_8783,a[2]=t2,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:596: id-string */ -t4=((C_word*)((C_word*)t0)[3])[1]; -f_8718(t4,t3);} -else{ -/* modules.scm:598: bomb */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[158]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[158]+1); -av2[1]=((C_word*)t0)[4]; -av2[2]=lf[159]; -tp(3,av2);}}}} - -/* g1986 in k8745 in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8751(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,0,2)))){ -C_save_and_reclaim_args((void *)trf_8751,3,t0,t1,t2);} -a=C_alloc(8); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8759,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8763,a[2]=t3,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:592: id-string */ -t5=((C_word*)((C_word*)t0)[3])[1]; -f_8718(t5,t4);} - -/* k8757 in g1986 in k8745 in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8759,c,av);} -/* modules.scm:591: fail */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8711(t2,((C_word*)t0)[3],t1);} - -/* k8761 in g1986 in k8745 in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,6)))){ -C_save_and_reclaim((void *)f_8763,c,av);} -/* modules.scm:591: scheme#string-append */ -t2=*((C_word*)lf[142]+1);{ -C_word *av2; -if(c >= 7) { - av2=av; -} else { - av2=C_alloc(7); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[153]; -av2[3]=t1; -av2[4]=lf[154]; -av2[5]=((C_word*)t0)[3]; -av2[6]=lf[155]; -((C_proc)(void*)(*((C_word*)t2+1)))(7,av2);}} - -/* k8777 in k8745 in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8779(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_8779,c,av);} -/* modules.scm:595: fail */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_8711(t2,((C_word*)t0)[3],t1);} - -/* k8781 in k8745 in k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8783(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_8783,c,av);} -/* modules.scm:595: scheme#string-append */ -t2=*((C_word*)lf[142]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=lf[156]; -av2[3]=t1; -av2[4]=lf[157]; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* k8795 in k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word t6; -C_word 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_8797,c,av);} -a=C_alloc(18); -t2=C_i_assq(((C_word*)t0)[2],t1); -t3=C_SCHEME_UNDEFINED; -t4=(*a=C_VECTOR_TYPE|1,a[1]=t3,tmp=(C_word)a,a+=2,tmp); -t5=C_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_8711,a[2]=((C_word*)t0)[3],a[3]=((C_word)li115),tmp=(C_word)a,a+=4,tmp)); -t8=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8718,a[2]=((C_word*)t0)[2],a[3]=((C_word)li116),tmp=(C_word)a,a+=4,tmp)); -t9=(C_truep(t2)?C_i_symbolp(C_i_cdr(t2)):C_SCHEME_FALSE); -if(C_truep(t9)){ -t10=((C_word*)t0)[4];{ -C_word *av2=av; -av2[0]=t10; -av2[1]=C_i_cdr(t2); -f_8700(2,av2);}} -else{ -if(C_truep(((C_word*)t0)[5])){ -/* modules.scm:587: module-rename */ -f_10570(((C_word*)t0)[4],((C_word*)t0)[2],((C_word*)t0)[6]);} -else{ -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8747,a[2]=t4,a[3]=t6,a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* modules.scm:588: invalid-export */ -t11=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t11; -av2[1]=t10; -av2[2]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t11))(3,av2);}}}} - -/* k8806 in loop in k8400 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word 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_8808,c,av);} -a=C_alloc(14); -t2=C_eqp(t1,lf[150]); -if(C_truep(t2)){ -/* modules.scm:569: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_8645(t3,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -if(C_truep(C_i_assq(((C_word*)t0)[5],((C_word*)t0)[6]))){ -/* modules.scm:570: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_8645(t3,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t3=C_i_assq(((C_word*)t0)[5],((C_word*)t0)[7]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8700,a[2]=((C_word*)t0)[5],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); -t5=(C_truep(t3)?C_i_symbolp(C_i_cdr(t3)):C_SCHEME_FALSE); -if(C_truep(t5)){ -t6=t4;{ -C_word *av2=av; -av2[0]=t6; -av2[1]=C_i_cdr(t3); -f_8700(2,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8797,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[8],a[4]=t4,a[5]=t3,a[6]=((C_word*)t0)[9],a[7]=((C_word*)t0)[10],tmp=(C_word)a,a+=8,tmp); -/* modules.scm:578: ##sys#current-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[68]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[68]+1); -av2[1]=t6; -tp(2,av2);}}}}} - -/* k8832 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_8834,c,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_8836,a[2]=t3,a[3]=((C_word*)t0)[2],a[4]=((C_word)li119),tmp=(C_word)a,a+=5,tmp)); -t5=((C_word*)t3)[1]; -f_8836(t5,((C_word*)t0)[3],t1);} - -/* loop in k8832 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_8836(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_8836,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=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8884,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); -/* modules.scm:557: ##sys#get */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[160]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[160]+1); -av2[1]=t3; -av2[2]=C_i_caar(t2); -av2[3]=lf[161]; -tp(4,av2);}}} - -/* k8858 in k8882 in loop in k8832 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_8860,c,av);} -a=C_alloc(4); -if(C_truep(t1)){ -t2=C_u_i_car(((C_word*)t0)[2]); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8869,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:560: loop */ -t4=((C_word*)((C_word*)t0)[4])[1]; -f_8836(t4,t3,C_u_i_cdr(((C_word*)t0)[2]));} -else{ -/* modules.scm:561: loop */ -t2=((C_word*)((C_word*)t0)[4])[1]; -f_8836(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[2]));}} - -/* k8867 in k8858 in k8882 in loop in k8832 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_8869,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k8882 in loop in k8832 in k8397 in k8388 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8884(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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_8884,c,av);} -a=C_alloc(5); -t2=C_eqp(t1,lf[162]); -if(C_truep(t2)){ -/* modules.scm:558: loop */ -t3=((C_word*)((C_word*)t0)[2])[1]; -f_8836(t3,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} -else{ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_8860,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:559: find-export */ -f_7799(t3,C_i_caar(((C_word*)t0)[4]),((C_word*)t0)[5],C_SCHEME_FALSE);}} - -/* f_8892 in ##sys#finalize-module in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8892,c,av);} -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8899(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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,2)))){ -C_save_and_reclaim((void *)f_8899,c,av);} -a=C_alloc(8); -t3=*((C_word*)lf[4]+1); -t4=*((C_word*)lf[68]+1); -t5=*((C_word*)lf[163]+1); -t6=*((C_word*)lf[67]+1); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8903,a[2]=t6,a[3]=t5,a[4]=t4,a[5]=t3,a[6]=t2,a[7]=t1,tmp=(C_word)a,a+=8,tmp); -/* modules.scm:654: ##sys#current-meta-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[163]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[163]+1); -av2[1]=t7; -tp(2,av2);}} - -/* k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8903(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_8903,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_8906,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],tmp=(C_word)a,a+=9,tmp); -/* modules.scm:656: ##sys#meta-macro-environment */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[164]+1)); -C_word *av2=av; -av2[0]=*((C_word*)lf[164]+1); -av2[1]=t2; -tp(2,av2);}} - -/* k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word 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(37,c,4)))){ -C_save_and_reclaim((void *)f_8906,c,av);} -a=C_alloc(37); -t2=C_SCHEME_FALSE; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_SCHEME_END_OF_LIST; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=((C_word*)t0)[2]; -t7=(*a=C_VECTOR_TYPE|1,a[1]=t6,tmp=(C_word)a,a+=2,tmp); -t8=t1; -t9=(*a=C_VECTOR_TYPE|1,a[1]=t8,tmp=(C_word)a,a+=2,tmp); -t10=C_SCHEME_TRUE; -t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); -t12=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8911,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=t11,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[4],a[9]=((C_word*)t0)[5],a[10]=((C_word*)t0)[6],a[11]=((C_word)li122),tmp=(C_word)a,a+=12,tmp); -t13=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8967,a[2]=((C_word*)t0)[7],a[3]=((C_word)li123),tmp=(C_word)a,a+=4,tmp); -t14=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8973,a[2]=t3,a[3]=t5,a[4]=t7,a[5]=t9,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[4],a[8]=((C_word*)t0)[5],a[9]=((C_word*)t0)[6],a[10]=((C_word)li124),tmp=(C_word)a,a+=11,tmp); -/* modules.scm:651: ##sys#dynamic-wind */ -t15=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t15; -av2[1]=((C_word*)t0)[8]; -av2[2]=t12; -av2[3]=t13; -av2[4]=t14; -((C_proc)(void*)(*((C_word*)t15+1)))(5,av2);}} - -/* a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8911(C_word c,C_word *av){ -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_8911,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8915,a[2]=((C_word*)t0)[2],a[3]=((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:651: ##sys#current-module2085 */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -f_8915(2,av2);}}} - -/* k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ -C_save_and_reclaim((void *)f_8915,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8918,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=((C_word*)t0)[11],a[12]=t1,tmp=(C_word)a,a+=13,tmp); -if(C_truep(((C_word*)((C_word*)t0)[6])[1])){ -/* modules.scm:651: ##sys#current-environment2086 */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[3])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[3])[1]; -f_8918(2,av2);}}} - -/* k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(14,c,4)))){ -C_save_and_reclaim((void *)f_8918,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8921,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],a[11]=t1,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:651: ##sys#current-meta-environment2087 */ -t3=((C_word*)t0)[9];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[4])[1]; -f_8921(2,av2);}}} - -/* k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,4)))){ -C_save_and_reclaim((void *)f_8921,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8924,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=t1,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:651: ##sys#macro-environment2088 */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[5])[1]; -av2[3]=C_SCHEME_TRUE; -av2[4]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} -else{ -t3=t2;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[5])[1]; -f_8924(2,av2);}}} - -/* k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8924(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(16,c,2)))){ -C_save_and_reclaim((void *)f_8924,c,av);} -a=C_alloc(16); -t2=(*a=C_CLOSURE_TYPE|15,a[1]=(C_word)f_8928,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:651: ##sys#current-module2085 */ -t3=((C_word*)t0)[13];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8928(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_8928,c,av);} -a=C_alloc(15); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|14,a[1]=(C_word)f_8932,a[2]=((C_word*)t0)[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:651: ##sys#current-environment2086 */ -t4=((C_word*)t0)[12];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k8930 in k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8932(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_8932,c,av);} -a=C_alloc(14); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8936,a[2]=((C_word*)t0)[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:651: ##sys#current-meta-environment2087 */ -t4=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k8934 in k8930 in k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8936(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_8936,c,av);} -a=C_alloc(13); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8940,a[2]=((C_word*)t0)[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:651: ##sys#macro-environment2088 */ -t4=((C_word*)t0)[6];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -((C_proc)C_fast_retrieve_proc(t4))(2,av2);}} - -/* k8938 in k8934 in k8930 in k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -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_8940,c,av);} -a=C_alloc(10); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_8943,a[2]=((C_word*)t0)[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:651: ##sys#current-module2085 */ -t4=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[12]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t4))(5,av2);}} - -/* k8941 in k8938 in k8934 in k8930 in k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,4)))){ -C_save_and_reclaim((void *)f_8943,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_8946,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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:651: ##sys#current-environment2086 */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[9]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8944 in k8941 in k8938 in k8934 in k8930 in k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_8946(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_8946,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_8949,a[2]=((C_word*)t0)[2],a[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:651: ##sys#current-meta-environment2087 */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8947 in k8944 in k8941 in k8938 in k8934 in k8930 in k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_8949(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_8949,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_8952,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:651: ##sys#macro-environment2088 */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8950 in k8947 in k8944 in k8941 in k8938 in k8934 in k8930 in k8926 in k8922 in k8919 in k8916 in k8913 in a8910 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_8952(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8952,c,av);} -t2=C_set_block_item(((C_word*)t0)[2],0,C_SCHEME_FALSE); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* a8966 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8967(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_8967,c,av);} -/* modules.scm:657: thunk */ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)C_fast_retrieve_proc(t2))(2,av2);}} - -/* a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8973(C_word c,C_word *av){ -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_8973,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_8977,a[2]=((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:651: ##sys#current-module2085 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,2)))){ -C_save_and_reclaim((void *)f_8977,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8980,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],tmp=(C_word)a,a+=12,tmp); -/* modules.scm:651: ##sys#current-environment2086 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k8978 in k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8980(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,2)))){ -C_save_and_reclaim((void *)f_8980,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8983,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,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:651: ##sys#current-meta-environment2087 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k8981 in k8978 in k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8983(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,2)))){ -C_save_and_reclaim((void *)f_8983,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8986,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=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],a[12]=((C_word*)t0)[11],a[13]=((C_word*)t0)[12],tmp=(C_word)a,a+=14,tmp); -/* modules.scm:651: ##sys#macro-environment2088 */ -t3=((C_word*)t0)[9];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)C_fast_retrieve_proc(t3))(2,av2);}} - -/* k8984 in k8981 in k8978 in k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,4)))){ -C_save_and_reclaim((void *)f_8986,c,av);} -a=C_alloc(14); -t2=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_8989,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t1,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:651: ##sys#current-module2085 */ -t3=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8987 in k8984 in k8981 in k8978 in k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8989(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_8989,c,av);} -a=C_alloc(13); -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_8992,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:651: ##sys#current-environment2086 */ -t3=((C_word*)t0)[13];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[4])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8990 in k8987 in k8984 in k8981 in k8978 in k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_8992(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_8992,c,av);} -a=C_alloc(12); -t2=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_8995,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],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:651: ##sys#current-meta-environment2087 */ -t3=((C_word*)t0)[12];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[6])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8993 in k8990 in k8987 in k8984 in k8981 in k8978 in k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,4)))){ -C_save_and_reclaim((void *)f_8995,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|10,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],tmp=(C_word)a,a+=11,tmp); -/* modules.scm:651: ##sys#macro-environment2088 */ -t3=((C_word*)t0)[11];{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[8])[1]; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_TRUE; -((C_proc)C_fast_retrieve_proc(t3))(5,av2);}} - -/* k8996 in k8993 in k8990 in k8987 in k8984 in k8981 in k8978 in k8975 in a8972 in k8904 in k8901 in ##sys#with-environment in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_8998,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,((C_word*)t0)[3]); -t3=C_mutate(((C_word *)((C_word*)t0)[4])+1,((C_word*)t0)[5]); -t4=C_mutate(((C_word *)((C_word*)t0)[6])+1,((C_word*)t0)[7]); -t5=C_mutate(((C_word *)((C_word*)t0)[8])+1,((C_word*)t0)[9]); -t6=((C_word*)t0)[10];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} - -/* ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9004(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_9004,c,av);} -a=C_alloc(10); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9008,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9043,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9047,a[2]=t4,tmp=(C_word)a,a+=3,tmp); -/* modules.scm:661: scheme#symbol->string */ -t6=*((C_word*)lf[145]+1);{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t5; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(3,av2);}} - -/* k9006 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9008(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_9008,c,av);} -a=C_alloc(5); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9016,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li129),tmp=(C_word)a,a+=5,tmp); -/* modules.scm:663: ##sys#with-environment */ -t3=*((C_word*)lf[93]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -t2=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* a9015 in k9006 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9016(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(19,c,4)))){ -C_save_and_reclaim((void *)f_9016,c,av);} -a=C_alloc(19); -t2=C_SCHEME_FALSE; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_SCHEME_FALSE; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9022,a[2]=t5,a[3]=t3,a[4]=((C_word)li126),tmp=(C_word)a,a+=5,tmp); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9027,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li127),tmp=(C_word)a,a+=5,tmp); -t8=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9036,a[2]=t3,a[3]=t5,a[4]=((C_word)li128),tmp=(C_word)a,a+=5,tmp); -/* modules.scm:665: ##sys#dynamic-wind */ -t9=*((C_word*)lf[56]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t9; -av2[1]=t1; -av2[2]=t6; -av2[3]=t7; -av2[4]=t8; -((C_proc)(void*)(*((C_word*)t9+1)))(5,av2);}} - -/* a9021 in a9015 in k9006 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 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_9022,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[166]+1)); -t3=C_mutate((C_word*)lf[166]+1 /* (set! ##sys#notices-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* a9026 in a9015 in k9006 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *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_9027,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9031,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:666: scheme#load */ -t3=*((C_word*)lf[167]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k9029 in a9026 in a9015 in k9006 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9031,c,av);} -/* modules.scm:667: ##sys#find-module */ -t2=*((C_word*)lf[63]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[110]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* a9035 in a9015 in k9006 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9036(C_word c,C_word *av){ -C_word tmp; -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_9036,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,*((C_word*)lf[166]+1)); -t3=C_mutate((C_word*)lf[166]+1 /* (set! ##sys#notices-enabled ...) */,((C_word*)((C_word*)t0)[3])[1]); -t4=t1;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} - -/* k9041 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9043,c,av);} -/* modules.scm:660: chicken.load#find-dynamic-extension */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[168]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[168]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_TRUE; -tp(4,av2);}} - -/* k9045 in ##sys#import-library-hook in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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,3)))){ -C_save_and_reclaim((void *)f_9047,c,av);} -/* ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[169]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[169]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[170]; -tp(4,av2);}} - -/* find-module/import-library in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9050(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_9050,3,t1,t2,t3);} -a=C_alloc(4); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9054,a[2]=t1,a[3]=t3,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:670: ##sys#resolve-module-name */ -t5=*((C_word*)lf[59]+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);}} - -/* k9052 in find-module/import-library in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9054(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_9054,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9057,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:671: ##sys#find-module */ -t3=*((C_word*)lf[63]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(5,av2);}} - -/* k9055 in k9052 in find-module/import-library in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9057(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9057,c,av);} -if(C_truep(t1)){ -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} -else{ -/* modules.scm:672: ##sys#import-library-hook */ -t2=*((C_word*)lf[165]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}}} - -/* ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6; -C_word t7; -C_word *a; -if(c!=6) C_bad_argc_2(c,6,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_9065,c,av);} -a=C_alloc(7); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9069,a[2]=t5,a[3]=t4,a[4]=t2,a[5]=t1,a[6]=t3,tmp=(C_word)a,a+=7,tmp); -/* modules.scm:675: r */ -t7=t3;{ -C_word *av2=av; -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[194]; -((C_proc)C_fast_retrieve_proc(t7))(3,av2);}} - -/* k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,2)))){ -C_save_and_reclaim((void *)f_9069,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9072,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); -/* modules.scm:676: r */ -t3=((C_word*)t0)[6];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[193]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_9072,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9075,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -/* modules.scm:677: r */ -t3=((C_word*)t0)[7];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[192]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9075(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_9075,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9078,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); -/* modules.scm:678: r */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=lf[191]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9078(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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,5)))){ -C_save_and_reclaim((void *)f_9078,c,av);} -a=C_alloc(29); -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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9080,a[2]=((C_word)li132),tmp=(C_word)a,a+=3,tmp)); -t9=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9094,a[2]=((C_word*)t0)[2],a[3]=((C_word)li133),tmp=(C_word)a,a+=4,tmp)); -t10=C_set_block_item(t7,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9138,a[2]=((C_word)li137),tmp=(C_word)a,a+=3,tmp)); -t11=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9224,a[2]=t7,a[3]=((C_word*)t0)[2],a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[3],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],a[12]=((C_word)li169),tmp=(C_word)a,a+=13,tmp); -/* modules.scm:697: scheme#call-with-current-continuation */ -t12=*((C_word*)lf[190]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t12; -av2[1]=((C_word*)t0)[8]; -av2[2]=t11; -((C_proc)(void*)(*((C_word*)t12+1)))(3,av2);}} - -/* warn in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9080(C_word 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_9080,4,t1,t2,t3,t4);} -a=C_alloc(8); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9088,a[2]=t1,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9092,a[2]=t5,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:680: scheme#symbol->string */ -t7=*((C_word*)lf[145]+1);{ -C_word av2[3]; -av2[0]=t7; -av2[1]=t6; -av2[2]=t3; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} - -/* k9086 in warn in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9088,c,av);} -/* modules.scm:680: ##sys#warn */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[75]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[75]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=((C_word*)t0)[3]; -tp(4,av2);}} - -/* k9090 in warn in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_9092,c,av);} -/* modules.scm:680: scheme#string-append */ -t2=*((C_word*)lf[142]+1);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[172]; -av2[4]=t1; -av2[5]=lf[173]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} - -/* tostr in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9094(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_9094,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_stringp(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|4,a[1]=(C_word)f_9107,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:683: chicken.keyword#keyword? */ -t4=*((C_word*)lf[179]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}}} - -/* k9105 in tostr in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(3,c,3)))){ -C_save_and_reclaim((void *)f_9107,c,av);} -a=C_alloc(3); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9114,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* modules.scm:683: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[175]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[175]+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:684: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[175]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[175]+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]))){ -/* ##sys#number->string */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[176]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[176]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(10); -tp(4,av2);}} -else{ -/* modules.scm:686: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[177]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[4]; -av2[3]=lf[178]; -tp(4,av2);}}}}} - -/* k9112 in k9105 in tostr in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9114(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9114,c,av);} -/* modules.scm:683: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[169]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[169]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=lf[174]; -tp(4,av2);}} - -/* export-rename in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9138(C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word 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_9138,3,t1,t2,t3);} -a=C_alloc(18); -t4=( -/* modules.scm:688: module-rename-list */ - f_5512(lf[48],t2) -); -if(C_truep(C_i_nullp(t4))){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,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_9152,a[2]=t4,a[3]=((C_word)li135),tmp=(C_word)a,a+=4,tmp); -t10=C_i_check_list_2(t3,lf[57]); -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_9187,a[2]=t7,a[3]=t12,a[4]=t9,a[5]=t8,a[6]=((C_word)li136),tmp=(C_word)a,a+=7,tmp)); -t14=((C_word*)t12)[1]; -f_9187(t14,t1,t3);}} - -/* g2194 in export-rename in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9152(C_word 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_9152,3,t0,t1,t2);} -a=C_alloc(7); -t3=C_i_car(t2); -t4=C_i_assq(t3,((C_word*)t0)[2]); -if(C_truep(t4)){ -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9160,a[2]=t2,a[3]=((C_word)li134),tmp=(C_word)a,a+=4,tmp); -/* modules.scm:692: g2212 */ -t6=t1;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=( -/* modules.scm:692: g2212 */ - f_9160(C_a_i(&a,3),t5,t4) -); -((C_proc)(void*)(*((C_word*)t6+1)))(2,av2);}} -else{ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} - -/* g2212 in g2194 in export-rename in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static C_word f_9160(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_i_cdr(((C_word*)t0)[2]); -return(C_a_i_cons(&a,2,t2,t3));} - -/* map-loop2188 in export-rename in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9187(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_9187,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9212,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); -/* modules.scm:691: g2194 */ -t4=((C_word*)t0)[4]; -f_9152(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k9210 in map-loop2188 in export-rename in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -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_9212,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,C_SCHEME_END_OF_LIST); -t3=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t2); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t2); -t5=((C_word*)((C_word*)t0)[3])[1]; -f_9187(t5,((C_word*)t0)[4],C_slot(((C_word*)t0)[5],C_fix(1)));} - -/* a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9224(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=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,3)))){ -C_save_and_reclaim((void *)f_9224,c,av);} -a=C_alloc(21); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9227,a[2]=t2,a[3]=((C_word*)t0)[2],a[4]=((C_word*)t0)[3],a[5]=((C_word)li138),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|12,a[1]=(C_word)f_9283,a[2]=t3,a[3]=((C_word*)t0)[3],a[4]=t5,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[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)li168),tmp=(C_word)a,a+=13,tmp)); -t7=((C_word*)t5)[1]; -f_9283(t7,t1,((C_word*)t0)[11]);} - -/* module-imports in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9227(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_9227,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9231,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); -/* modules.scm:700: chicken.internal#library-id */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[62]+1)); -C_word av2[3]; -av2[0]=*((C_word*)lf[62]+1); -av2[1]=t3; -av2[2]=t2; -tp(3,av2);}} - -/* k9229 in module-imports in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9231(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_9231,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9234,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); -/* modules.scm:701: find-module/import-library */ -f_9050(t2,t1,((C_word*)t0)[5]);} - -/* k9232 in k9229 in module-imports in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,7)))){ -C_save_and_reclaim((void *)f_9234,c,av);} -a=C_alloc(5); -if(C_truep(C_i_not(t1))){ -/* modules.scm:703: k */ -t2=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[4]; -av2[4]=C_SCHEME_FALSE; -av2[5]=C_SCHEME_FALSE; -av2[6]=C_SCHEME_FALSE; -av2[7]=C_SCHEME_FALSE; -((C_proc)C_fast_retrieve_proc(t2))(8,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9250,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],tmp=(C_word)a,a+=5,tmp); -/* modules.scm:704: module-name */ -t3=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=t1; -f_5278(3,av2);}}} - -/* k9248 in k9232 in k9229 in module-imports in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_9250,c,av);} -a=C_alloc(7); -t2=( -/* modules.scm:705: module-library */ - f_5287(lf[10],((C_word*)t0)[2]) -); -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,a[6]=((C_word*)t0)[4],tmp=(C_word)a,a+=7,tmp); -/* modules.scm:706: module-name */ -t4=lf[8];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -f_5278(3,av2);}} - -/* k9256 in k9248 in k9232 in k9229 in module-imports in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_9258,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9262,a[2]=((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],tmp=(C_word)a,a+=8,tmp); -t3=( -/* modules.scm:707: module-vexports */ - f_5440(lf[36],((C_word*)t0)[2]) -); -/* modules.scm:707: export-rename */ -f_9138(t2,((C_word*)t0)[2],t3);} - -/* k9260 in k9256 in k9248 in k9232 in k9229 in module-imports in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_9262,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9266,a[2]=((C_word*)t0)[2],a[3]=((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); -t3=( -/* modules.scm:708: module-sexports */ - f_5458(lf[39],((C_word*)t0)[2]) -); -/* modules.scm:708: export-rename */ -f_9138(t2,((C_word*)t0)[2],t3);} - -/* k9264 in k9260 in k9256 in k9248 in k9232 in k9229 in module-imports in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9266(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_9266,c,av);} -t2=( -/* modules.scm:709: module-iexports */ - f_5476(lf[42],((C_word*)t0)[2]) -); -/* modules.scm:704: scheme#values */{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=((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]=t2; -C_values(8,av2);}} - -/* outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9283(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,0,4)))){ -C_save_and_reclaim_args((void *)trf_9283,3,t0,t1,t2);} -a=C_alloc(14); -if(C_truep(C_i_symbolp(t2))){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9297,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:712: chicken.syntax#strip-syntax */ -t4=*((C_word*)lf[98]+1);{ -C_word av2[3]; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} -else{ -t3=C_i_pairp(t2); -if(C_truep(C_i_not(t3))){ -/* modules.scm:714: ##sys#syntax-error */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[177]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[177]+1); -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=lf[180]; -av2[4]=t2; -tp(5,av2);}} -else{ -t4=C_i_car(t2); -t5=(*a=C_CLOSURE_TYPE|13,a[1]=(C_word)f_9315,a[2]=((C_word*)t0)[4],a[3]=t2,a[4]=((C_word*)t0)[5],a[5]=t4,a[6]=t1,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[6],a[9]=((C_word*)t0)[2],a[10]=((C_word*)t0)[7],a[11]=((C_word*)t0)[8],a[12]=((C_word*)t0)[9],a[13]=((C_word*)t0)[10],tmp=(C_word)a,a+=14,tmp); -/* modules.scm:717: c */ -t6=((C_word*)t0)[7];{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[11]; -av2[3]=t4; -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}}} - -/* k9295 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9297(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9297,c,av);} -/* modules.scm:712: module-imports */ -t2=((C_word*)t0)[2]; -f_9227(t2,((C_word*)t0)[3],t1);} - -/* k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(13,c,4)))){ -C_save_and_reclaim((void *)f_9315,c,av);} -a=C_alloc(13); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9318,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:718: ##sys#check-syntax */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[182]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[182]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[183]; -tp(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9465,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],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:736: c */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[13]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ -C_save_and_reclaim((void *)f_9318,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9323,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li139),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9333,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word)li145),tmp=(C_word)a,a+=6,tmp); -/* modules.scm:719: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[6]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a9322 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9323(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_9323,c,av);} -/* modules.scm:719: outer */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9283(t2,t1,C_i_cadr(((C_word*)t0)[3]));} - -/* a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8; -C_word t9; -C_word *a; -if(c!=8) C_bad_argc_2(c,8,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_9333,c,av);} -a=C_alloc(11); -t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9337,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t7,a[8]=t5,a[9]=t6,a[10]=t1,tmp=(C_word)a,a+=11,tmp); -/* modules.scm:720: chicken.syntax#strip-syntax */ -t9=*((C_word*)lf[98]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_cddr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9337(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[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,6)))){ -C_save_and_reclaim((void *)f_9337,c,av);} -a=C_alloc(15); -t2=C_SCHEME_UNDEFINED; -t3=(*a=C_VECTOR_TYPE|1,a[1]=t2,tmp=(C_word)a,a+=2,tmp); -t4=C_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|12,a[1]=(C_word)f_9342,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=t1,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]=t3,a[11]=((C_word*)t0)[9],a[12]=((C_word)li144),tmp=(C_word)a,a+=13,tmp)); -t5=((C_word*)t3)[1]; -f_9342(t5,((C_word*)t0)[10],t1,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST,C_SCHEME_END_OF_LIST);} - -/* loop in k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9342(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 *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(23,0,5)))){ -C_save_and_reclaim_args((void *)trf_9342,6,t0,t1,t2,t3,t4,t5);} -a=C_alloc(23); -if(C_truep(C_i_nullp(t2))){ -t6=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9350,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li140),tmp=(C_word)a,a+=5,tmp); -t7=C_i_check_list_2(t5,lf[70]); -t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9360,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=t4,a[10]=((C_word*)t0)[8],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_9373,a[2]=t10,a[3]=t6,a[4]=((C_word)li141),tmp=(C_word)a,a+=5,tmp)); -t12=((C_word*)t10)[1]; -f_9373(t12,t8,t5);} -else{ -t6=C_i_car(t2); -t7=C_i_assq(t6,((C_word*)t0)[9]); -if(C_truep(t7)){ -t8=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9401,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=t4,a[6]=t5,a[7]=((C_word)li142),tmp=(C_word)a,a+=8,tmp); -/* modules.scm:722: g2299 */ -t9=t8; -f_9401(t9,t1,t7);} -else{ -t8=C_i_assq(C_u_i_car(t2),((C_word*)t0)[11]); -if(C_truep(t8)){ -t9=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9423,a[2]=t2,a[3]=t4,a[4]=((C_word*)t0)[10],a[5]=t3,a[6]=t5,a[7]=((C_word)li143),tmp=(C_word)a,a+=8,tmp); -/* modules.scm:722: g2303 */ -t10=t9; -f_9423(t10,t1,t8);} -else{ -t9=C_u_i_cdr(t2); -t10=C_u_i_car(t2); -t11=C_a_i_cons(&a,2,t10,t5); -/* modules.scm:735: loop */ -t13=t1; -t14=t9; -t15=t3; -t16=t4; -t17=t11; -t1=t13; -t2=t14; -t3=t15; -t4=t16; -t5=t17; -goto loop;}}}} - -/* g2279 in loop in k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9350(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_9350,3,t0,t1,t2);} -/* modules.scm:725: warn */ -f_9080(t1,lf[181],((C_word*)t0)[3],t2);} - -/* k9358 in loop in k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9360(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ -C_save_and_reclaim((void *)f_9360,c,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:727: scheme#values */{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -av2[4]=t3; -av2[5]=((C_word*)t0)[8]; -av2[6]=((C_word*)t0)[9]; -av2[7]=((C_word*)t0)[10]; -C_values(8,av2);}} - -/* for-each-loop2278 in loop in k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9373(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_9373,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9383,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:723: g2279 */ -t4=((C_word*)t0)[3]; -f_9350(t4,t3,C_slot(t2,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);}}} - -/* k9381 in for-each-loop2278 in loop in k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_9383(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9383,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9373(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* g2299 in loop in k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9401(C_word t0,C_word t1,C_word 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_9401,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:730: loop */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_9342(t5,t1,t3,t4,((C_word*)t0)[5],((C_word*)t0)[6]);} - -/* g2303 in loop in k9335 in a9332 in k9316 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,0,5)))){ -C_save_and_reclaim_args((void *)trf_9423,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:733: loop */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_9342(t5,t1,t3,((C_word*)t0)[5],t4,((C_word*)t0)[6]);} - -/* k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9465(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(12,c,4)))){ -C_save_and_reclaim((void *)f_9465,c,av);} -a=C_alloc(12); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9468,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:737: ##sys#check-syntax */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[182]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[182]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[185]; -tp(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|11,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]=((C_word*)t0)[7],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:759: c */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[12]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ -C_save_and_reclaim((void *)f_9468,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9473,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li146),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9483,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word)li153),tmp=(C_word)a,a+=6,tmp); -/* modules.scm:738: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[6]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a9472 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9473(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_9473,c,av);} -/* modules.scm:738: outer */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9283(t2,t1,C_i_cadr(((C_word*)t0)[3]));} - -/* a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9483(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8; -C_word t9; -C_word *a; -if(c!=8) C_bad_argc_2(c,8,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_9483,c,av);} -a=C_alloc(11); -t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9487,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t7,a[8]=t6,a[9]=t1,a[10]=t5,tmp=(C_word)a,a+=11,tmp); -/* modules.scm:739: chicken.syntax#strip-syntax */ -t9=*((C_word*)lf[98]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_cddr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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(14,c,5)))){ -C_save_and_reclaim((void *)f_9487,c,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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,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]=t1,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]=t3,a[11]=((C_word)li152),tmp=(C_word)a,a+=12,tmp)); -t5=((C_word*)t3)[1]; -f_9492(t5,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_END_OF_LIST,t1);} - -/* loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void f_9492(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ -C_save_and_reclaim_args((void *)trf_9492,5,t0,t1,t2,t3,t4);} -a=C_alloc(14); -if(C_truep(C_i_nullp(t2))){ -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9504,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=t6,a[11]=((C_word)li150),tmp=(C_word)a,a+=12,tmp)); -t8=((C_word*)t6)[1]; -f_9504(t8,t1,((C_word*)t0)[9],C_SCHEME_END_OF_LIST,t4);} -else{ -t5=C_i_caar(t2); -t6=C_i_memq(t5,t4); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9604,a[2]=t2,a[3]=((C_word*)t0)[10],a[4]=t3,a[5]=t4,a[6]=((C_word)li151),tmp=(C_word)a,a+=7,tmp); -/* modules.scm:741: g2382 */ -t8=t7; -f_9604(t8,t1,t6);} -else{ -t7=C_u_i_cdr(t2); -t8=C_u_i_car(t2); -t9=C_a_i_cons(&a,2,t8,t3); -/* modules.scm:758: loopv */ -t11=t1; -t12=t7; -t13=t9; -t14=t4; -t1=t11; -t2=t12; -t3=t13; -t4=t14; -goto loop;}}} - -/* loops in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void f_9504(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(23,0,4)))){ -C_save_and_reclaim_args((void *)trf_9504,5,t0,t1,t2,t3,t4);} -a=C_alloc(23); -if(C_truep(C_i_nullp(t2))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9512,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li147),tmp=(C_word)a,a+=5,tmp); -t6=C_i_check_list_2(t4,lf[70]); -t7=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9522,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],tmp=(C_word)a,a+=11,tmp); -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_9535,a[2]=t9,a[3]=t5,a[4]=((C_word)li148),tmp=(C_word)a,a+=5,tmp)); -t11=((C_word*)t9)[1]; -f_9535(t11,t7,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_9563,a[2]=t2,a[3]=((C_word*)t0)[10],a[4]=t3,a[5]=t4,a[6]=((C_word)li149),tmp=(C_word)a,a+=7,tmp); -/* modules.scm:743: g2377 */ -t8=t7; -f_9563(t8,t1,t6);} -else{ -t7=C_u_i_cdr(t2); -t8=C_u_i_car(t2); -t9=C_a_i_cons(&a,2,t8,t3); -/* modules.scm:753: loops */ -t12=t1; -t13=t7; -t14=t9; -t15=t4; -t1=t12; -t2=t13; -t3=t14; -t4=t15; -goto loop;}}} - -/* g2357 in loops in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_9512(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_9512,3,t0,t1,t2);} -/* modules.scm:746: warn */ -f_9080(t1,lf[184],((C_word*)t0)[3],t2);} - -/* k9520 in loops in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ -C_save_and_reclaim((void *)f_9522,c,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:748: scheme#values */{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -av2[4]=t3; -av2[5]=((C_word*)t0)[8]; -av2[6]=((C_word*)t0)[9]; -av2[7]=((C_word*)t0)[10]; -C_values(8,av2);}} - -/* for-each-loop2356 in loops in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_9535(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_9535,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9545,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:744: g2357 */ -t4=((C_word*)t0)[3]; -f_9512(t4,t3,C_slot(t2,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);}}} - -/* k9543 in for-each-loop2356 in loops in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_9545(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9545,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9535(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* g2377 in loops in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_9563(C_word t0,C_word t1,C_word t2){ -C_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_9563,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_cdr(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9575,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* modules.scm:751: delete */ -f_4465(t4,C_i_car(t2),((C_word*)t0)[5],*((C_word*)lf[79]+1));} - -/* k9573 in g2377 in loops in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_9575(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9575,c,av);} -/* modules.scm:751: loops */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9504(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* g2382 in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void f_9604(C_word t0,C_word t1,C_word t2){ -C_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_9604,3,t0,t1,t2);} -a=C_alloc(6); -t3=C_i_cdr(((C_word*)t0)[2]); -t4=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9616,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t3,a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* modules.scm:756: delete */ -f_4465(t4,C_i_car(t2),((C_word*)t0)[5],*((C_word*)lf[79]+1));} - -/* k9614 in g2382 in loopv in k9485 in a9482 in k9466 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_9616(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9616,c,av);} -/* modules.scm:756: loopv */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9492(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_9648,c,av);} -a=C_alloc(9); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9651,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:760: ##sys#check-syntax */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[182]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[182]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[187]; -tp(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9898,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[9],tmp=(C_word)a,a+=9,tmp); -/* modules.scm:786: c */ -t3=((C_word*)t0)[10];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[11]; -av2[3]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}}} - -/* k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -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; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ -C_save_and_reclaim((void *)f_9651,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9656,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li154),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9666,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word)li162),tmp=(C_word)a,a+=6,tmp); -/* modules.scm:761: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[6]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a9655 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9656(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_9656,c,av);} -/* modules.scm:761: outer */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9283(t2,t1,C_i_cadr(((C_word*)t0)[3]));} - -/* a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9666(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8; -C_word t9; -C_word *a; -if(c!=8) C_bad_argc_2(c,8,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_9666,c,av);} -a=C_alloc(11); -t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9670,a[2]=((C_word*)t0)[2],a[3]=t2,a[4]=t4,a[5]=((C_word*)t0)[3],a[6]=t3,a[7]=t7,a[8]=t6,a[9]=t1,a[10]=t5,tmp=(C_word)a,a+=11,tmp); -/* modules.scm:762: chicken.syntax#strip-syntax */ -t9=*((C_word*)lf[98]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_cddr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9670(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(14,c,5)))){ -C_save_and_reclaim((void *)f_9670,c,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_set_block_item(t3,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9675,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],a[9]=((C_word*)t0)[8],a[10]=t3,a[11]=((C_word)li161),tmp=(C_word)a,a+=12,tmp)); -t5=((C_word*)t3)[1]; -f_9675(t5,((C_word*)t0)[9],((C_word*)t0)[10],C_SCHEME_END_OF_LIST,t1);} - -/* loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void f_9675(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(14,0,5)))){ -C_save_and_reclaim_args((void *)trf_9675,5,t0,t1,t2,t3,t4);} -a=C_alloc(14); -if(C_truep(C_i_nullp(t2))){ -t5=C_SCHEME_UNDEFINED; -t6=(*a=C_VECTOR_TYPE|1,a[1]=t5,tmp=(C_word)a,a+=2,tmp); -t7=C_set_block_item(t6,0,(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9687,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=t3,a[9]=((C_word*)t0)[8],a[10]=t6,a[11]=((C_word)li159),tmp=(C_word)a,a+=12,tmp)); -t8=((C_word*)t6)[1]; -f_9687(t8,t1,((C_word*)t0)[9],C_SCHEME_END_OF_LIST,t4);} -else{ -t5=C_i_caar(t2); -t6=C_i_assq(t5,t4); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9842,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=t4,a[6]=((C_word)li160),tmp=(C_word)a,a+=7,tmp); -/* modules.scm:764: g2487 */ -t8=t7; -f_9842(t8,t1,t6);} -else{ -t7=C_u_i_cdr(t2); -t8=C_u_i_car(t2); -t9=C_a_i_cons(&a,2,t8,t3); -/* modules.scm:785: loopv */ -t11=t1; -t12=t7; -t13=t9; -t14=t4; -t1=t11; -t2=t12; -t3=t13; -t4=t14; -goto loop;}}} - -/* loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_9687(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4){ -C_word tmp; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word t15; -C_word t16; -C_word t17; -C_word t18; -C_word t19; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(30,0,4)))){ -C_save_and_reclaim_args((void *)trf_9687,5,t0,t1,t2,t3,t4);} -a=C_alloc(30); -if(C_truep(C_i_nullp(t2))){ -t5=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9695,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li155),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(t4,lf[57]); -t11=(*a=C_CLOSURE_TYPE|11,a[1]=(C_word)f_9708,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=t1,a[6]=((C_word*)t0)[3],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=t3,a[10]=((C_word*)t0)[9],a[11]=t5,tmp=(C_word)a,a+=12,tmp); -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_9750,a[2]=t8,a[3]=t13,a[4]=t9,a[5]=((C_word)li157),tmp=(C_word)a,a+=6,tmp)); -t15=((C_word*)t13)[1]; -f_9750(t15,t11,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_9789,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[10],a[5]=t4,a[6]=((C_word)li158),tmp=(C_word)a,a+=7,tmp); -/* modules.scm:766: g2482 */ -t8=t7; -f_9789(t8,t1,t6);} -else{ -t7=C_u_i_cdr(t2); -t8=C_u_i_car(t2); -t9=C_a_i_cons(&a,2,t8,t3); -/* modules.scm:778: loops */ -t16=t1; -t17=t7; -t18=t9; -t19=t4; -t1=t16; -t2=t17; -t3=t18; -t4=t19; -goto loop;}}} - -/* g2436 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void f_9695(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_9695,3,t0,t1,t2);} -/* modules.scm:769: warn */ -f_9080(t1,lf[186],((C_word*)t0)[3],t2);} - -/* k9706 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_9708(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_9708,c,av);} -a=C_alloc(18); -t2=C_i_check_list_2(t1,lf[70]); -t3=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9714,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],a[7]=((C_word*)t0)[7],a[8]=((C_word*)t0)[8],a[9]=((C_word*)t0)[9],a[10]=((C_word*)t0)[10],tmp=(C_word)a,a+=11,tmp); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9727,a[2]=t5,a[3]=((C_word*)t0)[11],a[4]=((C_word)li156),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_9727(t7,t3,t1);} - -/* k9712 in k9706 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -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; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,7)))){ -C_save_and_reclaim((void *)f_9714,c,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:771: scheme#values */{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=0; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -av2[3]=((C_word*)t0)[7]; -av2[4]=t3; -av2[5]=((C_word*)t0)[8]; -av2[6]=((C_word*)t0)[9]; -av2[7]=((C_word*)t0)[10]; -C_values(8,av2);}} - -/* for-each-loop2435 in k9706 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void f_9727(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_9727,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9737,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* modules.scm:767: g2436 */ -t4=((C_word*)t0)[3]; -f_9695(t4,t3,C_slot(t2,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);}}} - -/* k9735 in for-each-loop2435 in k9706 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in ... */ -static void C_ccall f_9737(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9737,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9727(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* map-loop2448 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void f_9750(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -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,2)))){ -C_save_and_reclaim_args((void *)trf_9750,3,t0,t1,t2);} -a=C_alloc(3); -if(C_truep(C_i_pairp(t2))){ -t3=C_slot(t2,C_fix(0)); -t4=C_i_car(t3); -t5=C_a_i_cons(&a,2,t4,C_SCHEME_END_OF_LIST); -t6=C_i_setslot(((C_word*)((C_word*)t0)[2])[1],C_fix(1),t5); -t7=C_mutate(((C_word *)((C_word*)t0)[2])+1,t5); -t9=t1; -t10=C_slot(t2,C_fix(1)); -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);}}} - -/* g2482 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void f_9789(C_word t0,C_word t1,C_word t2){ -C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_9789,3,t0,t1,t2);} -a=C_alloc(12); -t3=C_i_cdr(((C_word*)t0)[2]); -t4=C_i_cadr(t2); -t5=C_i_cdar(((C_word*)t0)[2]); -t6=C_a_i_cons(&a,2,t4,t5); -t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[3]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9805,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:776: delete */ -f_4465(t8,t2,((C_word*)t0)[5],*((C_word*)lf[79]+1));} - -/* k9803 in g2482 in loops in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in ... */ -static void C_ccall f_9805(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9805,c,av);} -/* modules.scm:774: loops */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9687(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* g2487 in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_9842(C_word t0,C_word t1,C_word t2){ -C_word 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,4)))){ -C_save_and_reclaim_args((void *)trf_9842,3,t0,t1,t2);} -a=C_alloc(12); -t3=C_i_cdr(((C_word*)t0)[2]); -t4=C_i_cadr(t2); -t5=C_i_cdar(((C_word*)t0)[2]); -t6=C_a_i_cons(&a,2,t4,t5); -t7=C_a_i_cons(&a,2,t6,((C_word*)t0)[3]); -t8=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9858,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t3,a[5]=t7,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:783: delete */ -f_4465(t8,t2,((C_word*)t0)[5],*((C_word*)lf[79]+1));} - -/* k9856 in g2487 in loopv in k9668 in a9665 in k9649 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_9858,c,av);} -/* modules.scm:781: loopv */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9675(t2,((C_word*)t0)[3],((C_word*)t0)[4],((C_word*)t0)[5],t1);} - -/* k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9898(C_word c,C_word *av){ -C_word tmp; -C_word t0=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_9898,c,av);} -a=C_alloc(7); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_9901,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[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:787: ##sys#check-syntax */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[182]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[182]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=((C_word*)t0)[3]; -av2[4]=lf[189]; -tp(5,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_10054,a[2]=((C_word*)t0)[8],a[3]=((C_word*)t0)[6],tmp=(C_word)a,a+=4,tmp); -/* modules.scm:797: chicken.syntax#strip-syntax */ -t3=*((C_word*)lf[98]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}} - -/* k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9901(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(11,c,8)))){ -C_save_and_reclaim((void *)f_9901,c,av);} -a=C_alloc(11); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9906,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li163),tmp=(C_word)a,a+=5,tmp); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_9916,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[3],a[5]=((C_word)li167),tmp=(C_word)a,a+=6,tmp); -/* modules.scm:788: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=((C_word*)t0)[6]; -av2[2]=t2; -av2[3]=t3; -C_call_with_values(4,av2);}} - -/* a9905 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9906(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *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_9906,c,av);} -/* modules.scm:788: outer */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_9283(t2,t1,C_i_cadr(((C_word*)t0)[3]));} - -/* a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 */ -static void C_ccall f_9916(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5=av[5]; -C_word t6=av[6]; -C_word t7=av[7]; -C_word t8; -C_word t9; -C_word *a; -if(c!=8) C_bad_argc_2(c,8,t0); -if(C_unlikely(!C_demand(C_calculate_demand(11,c,2)))){ -C_save_and_reclaim((void *)f_9916,c,av);} -a=C_alloc(11); -t8=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_9920,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t4,a[5]=t5,a[6]=t6,a[7]=t1,a[8]=t2,a[9]=t3,a[10]=t7,tmp=(C_word)a,a+=11,tmp); -/* modules.scm:789: chicken.syntax#strip-syntax */ -t9=*((C_word*)lf[98]+1);{ -C_word *av2=av; -av2[0]=t9; -av2[1]=t8; -av2[2]=C_i_caddr(((C_word*)t0)[4]); -((C_proc)(void*)(*((C_word*)t9+1)))(3,av2);}} - -/* k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in k3957 in ... */ -static void C_ccall f_9920(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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(37,c,3)))){ -C_save_and_reclaim((void *)f_9920,c,av);} -a=C_alloc(37); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_9922,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word)li164),tmp=(C_word)a,a+=5,tmp); -t3=C_a_i_list(&a,3,((C_word*)t0)[3],((C_word*)t0)[4],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_i_check_list_2(((C_word*)t0)[5],lf[57]); -t9=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_9965,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[7],a[4]=((C_word*)t0)[8],a[5]=((C_word*)t0)[9],a[6]=t3,a[7]=((C_word*)t0)[10],a[8]=t2,tmp=(C_word)a,a+=9,tmp); -t10=C_SCHEME_UNDEFINED; -t11=(*a=C_VECTOR_TYPE|1,a[1]=t10,tmp=(C_word)a,a+=2,tmp); -t12=C_set_block_item(t11,0,(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_10011,a[2]=t6,a[3]=t11,a[4]=t2,a[5]=t7,a[6]=((C_word)li166),tmp=(C_word)a,a+=7,tmp)); -t13=((C_word*)t11)[1]; -f_10011(t13,t9,((C_word*)t0)[5]);} - -/* rename in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void f_9922(C_word 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_9922,3,t0,t1,t2);} -a=C_alloc(11); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9930,a[2]=t2,a[3]=t1,tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_9936,a[2]=t3,tmp=(C_word)a,a+=3,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9940,a[2]=t4,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:793: tostr */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_9094(t6,t5,((C_word*)t0)[3]);} - -/* k9928 in rename in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_9930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_9930,c,av);} -a=C_alloc(3); -t2=C_u_i_cdr(((C_word*)t0)[2]); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_a_i_cons(&a,2,t1,t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k9934 in rename in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_9936,c,av);} -/* modules.scm:792: ##sys#string->symbol */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[188]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[188]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -tp(3,av2);}} - -/* k9938 in rename in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_9940,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_9944,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* modules.scm:793: ##sys#symbol->string/shared */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[175]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[175]+1); -av2[1]=t2; -av2[2]=C_i_car(((C_word*)t0)[3]); -tp(3,av2);}} - -/* k9942 in k9938 in rename in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_9944,c,av);} -/* modules.scm:793: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[169]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[169]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -tp(4,av2);}} - -/* k9963 in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in k3960 in ... */ -static void C_ccall f_9965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word 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_9965,c,av);} -a=C_alloc(22); -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[57]); -t7=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_9975,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[6],a[6]=t1,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|6,a[1]=(C_word)f_9977,a[2]=t4,a[3]=t9,a[4]=((C_word*)t0)[8],a[5]=t5,a[6]=((C_word)li165),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_9977(t11,t7,((C_word*)t0)[2]);} - -/* k9973 in k9963 in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void C_ccall f_9975(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,7)))){ -C_save_and_reclaim((void *)f_9975,c,av);} -/* modules.scm:795: scheme#values */{ -C_word *av2; -if(c >= 8) { - av2=av; -} else { - av2=C_alloc(8); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=((C_word*)t0)[5]; -av2[5]=((C_word*)t0)[6]; -av2[6]=t1; -av2[7]=((C_word*)t0)[7]; -C_values(8,av2);}} - -/* map-loop2553 in k9963 in k9918 in a9915 in k9899 in k9896 in k9646 in k9463 in k9313 in outer in a9223 in k9076 in k9073 in k9070 in k9067 in ##sys#decompose-import in k5258 in k5254 in k3972 in k3969 in k3966 in k3963 in ... */ -static void f_9977(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_9977,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_10002,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* modules.scm:795: g2559 */ -t4=((C_word*)t0)[4]; -f_9922(t4,t3,C_slot(t2,C_fix(0)));} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_slot(((C_word*)t0)[5],C_fix(1)); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_modules_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("modules")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_modules_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(13416))){ -C_save(t1); -C_rereclaim2(13416*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,319); -lf[0]=C_h_intern(&lf[0],7, C_text("modules")); -lf[3]=C_h_intern(&lf[3],5, C_text("foldr")); -lf[4]=C_h_intern(&lf[4],20, C_text("##sys#current-module")); -lf[5]=C_h_intern(&lf[5],30, C_text("##sys#module-alias-environment")); -lf[6]=C_h_intern(&lf[6],6, C_text("module")); -lf[9]=C_h_intern(&lf[9],11, C_text("module-name")); -lf[11]=C_h_intern(&lf[11],14, C_text("module-library")); -lf[13]=C_h_intern(&lf[13],18, C_text("module-export-list")); -lf[15]=C_h_intern(&lf[15],16, C_text("##sys#block-set!")); -lf[17]=C_h_intern(&lf[17],19, C_text("module-defined-list")); -lf[20]=C_h_intern(&lf[20],17, C_text("module-exist-list")); -lf[23]=C_h_intern(&lf[23],26, C_text("module-defined-syntax-list")); -lf[25]=C_h_intern(&lf[25],21, C_text("module-undefined-list")); -lf[26]=C_h_intern(&lf[26],26, C_text("set-module-undefined-list!")); -lf[28]=C_h_intern(&lf[28],19, C_text("module-import-forms")); -lf[31]=C_h_intern(&lf[31],24, C_text("module-meta-import-forms")); -lf[34]=C_h_intern(&lf[34],23, C_text("module-meta-expressions")); -lf[37]=C_h_intern(&lf[37],15, C_text("module-vexports")); -lf[40]=C_h_intern(&lf[40],15, C_text("module-sexports")); -lf[43]=C_h_intern(&lf[43],15, C_text("module-iexports")); -lf[46]=C_h_intern(&lf[46],25, C_text("module-saved-environments")); -lf[49]=C_h_intern(&lf[49],18, C_text("module-rename-list")); -lf[51]=C_h_intern(&lf[51],17, C_text("##sys#module-name")); -lf[52]=C_h_intern(&lf[52],20, C_text("##sys#module-exports")); -lf[54]=C_h_intern(&lf[54],27, C_text("##sys#register-module-alias")); -lf[55]=C_h_intern(&lf[55],25, C_text("##sys#with-module-aliases")); -lf[56]=C_h_intern(&lf[56],18, C_text("##sys#dynamic-wind")); -lf[57]=C_h_intern(&lf[57],3, C_text("map")); -lf[58]=C_h_intern(&lf[58],13, C_text("scheme#append")); -lf[59]=C_h_intern(&lf[59],25, C_text("##sys#resolve-module-name")); -lf[60]=C_h_intern(&lf[60],18, C_text("chicken.base#error")); -lf[61]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\155\157\144\165\154\145\040\141\154\151\141\163\040\162\145\146\145\162\163\040\164\157\040\151\164\163\145\154\146\000")); -lf[62]=C_h_intern(&lf[62],27, C_text("chicken.internal#library-id")); -lf[63]=C_h_intern(&lf[63],17, C_text("##sys#find-module")); -lf[64]=C_h_intern(&lf[64],18, C_text("##sys#module-table")); -lf[65]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\155\157\144\165\154\145\040\156\157\164\040\146\157\165\156\144\000")); -lf[66]=C_h_intern(&lf[66],19, C_text("##sys#switch-module")); -lf[67]=C_h_intern(&lf[67],23, C_text("##sys#macro-environment")); -lf[68]=C_h_intern(&lf[68],25, C_text("##sys#current-environment")); -lf[69]=C_h_intern(&lf[69],24, C_text("##sys#add-to-export-list")); -lf[70]=C_h_intern(&lf[70],8, C_text("for-each")); -lf[71]=C_h_intern(&lf[71],31, C_text("##sys#add-to-export/rename-list")); -lf[72]=C_h_intern(&lf[72],30, C_text("##sys#toplevel-definition-hook")); -lf[73]=C_h_intern(&lf[73],30, C_text("##sys#register-meta-expression")); -lf[75]=C_h_intern(&lf[75],10, C_text("##sys#warn")); -lf[76]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\037\162\145\144\145\146\151\156\151\164\151\157\156\040\157\146\040\163\171\156\164\141\170\040\142\151\156\144\151\156\147\000")); -lf[77]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\162\145\144\145\146\151\156\151\164\151\157\156\040\157\146\040\166\141\154\165\145\040\142\151\156\144\151\156\147\000")); -lf[78]=C_h_intern(&lf[78],21, C_text("##sys#register-export")); -lf[79]=C_h_intern(&lf[79],10, C_text("scheme#eq?")); -lf[82]=C_h_intern(&lf[82],28, C_text("##sys#register-syntax-export")); -lf[83]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\165\163\145\040\157\146\040\163\171\156\164\141\170\040\160\162\145\143\145\144\145\163\040\144\145\146\151\156\151\164\151\157\156\000")); -lf[84]=C_h_intern(&lf[84],30, C_text("##sys#unregister-syntax-export")); -lf[85]=C_h_intern(&lf[85],21, C_text("##sys#register-module")); -lf[87]=C_h_intern(&lf[87],32, C_text("chicken.internal#hash-table-set!")); -lf[88]=C_h_intern(&lf[88],31, C_text("chicken.internal#hash-table-ref")); -lf[89]=C_h_intern(&lf[89],14, C_text("scheme#reverse")); -lf[90]=C_h_intern(&lf[90],32, C_text("chicken.internal#make-hash-table")); -lf[91]=C_h_intern(&lf[91],34, C_text("##sys#compiled-module-registration")); -lf[92]=C_h_intern(&lf[92],6, C_text("lambda")); -lf[93]=C_h_intern(&lf[93],22, C_text("##sys#with-environment")); -lf[94]=C_h_intern(&lf[94],12, C_text("##sys#append")); -lf[95]=C_h_intern(&lf[95],5, C_text("quote")); -lf[96]=C_h_intern(&lf[96],11, C_text("scheme#list")); -lf[97]=C_h_intern(&lf[97],11, C_text("scheme#cons")); -lf[98]=C_h_intern(&lf[98],27, C_text("chicken.syntax#strip-syntax")); -lf[99]=C_h_intern(&lf[99],30, C_text("##sys#register-compiled-module")); -lf[100]=C_h_intern(&lf[100],14, C_text("##core#functor")); -lf[101]=C_h_intern(&lf[101],18, C_text("##sys#fast-reverse")); -lf[102]=C_h_intern(&lf[102],13, C_text("import-syntax")); -lf[103]=C_h_intern(&lf[103],11, C_text("scheme#eval")); -lf[104]=C_h_intern(&lf[104],14, C_text("##core#require")); -lf[105]=C_h_intern(&lf[105],22, C_text("##sys#decompose-import")); -lf[106]=C_h_intern(&lf[106],14, C_text("chicken.base#o")); -lf[107]=C_h_intern(&lf[107],6, C_text("static")); -lf[108]=C_h_intern(&lf[108],24, C_text("##sys#ensure-transformer")); -lf[109]=C_h_intern(&lf[109],11, C_text("##sys#error")); -lf[110]=C_h_intern(&lf[110],6, C_text("import")); -lf[111]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\061\143\141\156\156\157\164\040\146\151\156\144\040\151\155\160\154\145\155\145\156\164\141\164\151\157\156\040\157\146\040\162\145\055\145\170\160\157\162\164\145\144\040\163\171\156\164\141\170\000")); -lf[112]=C_h_intern(&lf[112],26, C_text("##sys#register-core-module")); -lf[113]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\063\165\156\153\156\157\167\156\040\163\171\156\164\141\170\040\162\145\146\145\162\145\156\143\145\144\040\167\150\151\154\145\040\162\145\147\151\163\164\145\162\151\156\147\040\155\157\144\165\154\145\000")); -lf[114]=C_h_intern(&lf[114],31, C_text("##sys#register-primitive-module")); -lf[115]=C_h_intern(&lf[115],21, C_text("##sys#finalize-module")); -lf[116]=C_h_intern(&lf[116],7, C_text("fprintf")); -lf[117]=C_h_intern(&lf[117],27, C_text("chicken.string#string-split")); -lf[118]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000")); -lf[119]=C_h_intern(&lf[119],11, C_text("##sys#print")); -lf[120]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\012\040\040\040\040\000")); -lf[121]=C_h_intern(&lf[121],6, C_text("format")); -lf[122]=C_h_intern(&lf[122],24, C_text("scheme#get-output-string")); -lf[123]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\013\047\040\157\156\040\154\151\156\145\040\000")); -lf[124]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\160\162\157\143\145\144\165\162\145\040\140\000")); -lf[125]=C_h_intern(&lf[125],25, C_text("scheme#open-output-string")); -lf[126]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\117\156\040\154\151\156\145\040\000")); -lf[127]=C_h_intern(&lf[127],18, C_text("##sys#write-char-0")); -lf[128]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\111\156\040\160\162\157\143\145\144\165\162\145\040\140\000")); -lf[129]=C_h_intern(&lf[129],9, C_text("##core#db")); -lf[130]=C_h_intern(&lf[130],12, C_text("scheme#cadar")); -lf[131]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\155\157\144\165\154\145\040\140\000")); -lf[132]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\012\040\040\040\040\000")); -lf[133]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\026\157\156\145\040\157\146\040\164\150\145\163\145\040\155\157\144\165\154\145\163\072\000")); -lf[134]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\036\012\040\040\123\165\147\147\145\163\164\151\157\156\072\040\164\162\171\040\151\155\160\157\162\164\151\156\147\040\000")); -lf[135]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\031\012\012\040\040\125\156\153\156\157\167\156\040\151\144\145\156\164\151\146\151\145\162\040\140\000")); -lf[136]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\047\072\000")); -lf[137]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\012\040\040\111\156\040\146\151\154\145\040\140\000")); -lf[138]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000")); -lf[139]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\047\040\150\141\163\040\165\156\162\145\163\157\154\166\145\144\040\151\144\145\156\164\151\146\151\145\162\163\000")); -lf[140]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\011\115\157\144\165\154\145\040\140\000")); -lf[141]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\050\151\156\164\145\162\156\141\154\051\040\151\156\144\151\162\145\143\164\040\145\170\160\157\162\164\040\156\157\164\040\146\157\165\156\144\000")); -lf[142]=C_h_intern(&lf[142],20, C_text("scheme#string-append")); -lf[143]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\040\151\156\040\155\157\144\165\154\145\040\140\000")); -lf[144]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000")); -lf[145]=C_h_intern(&lf[145],21, C_text("scheme#symbol->string")); -lf[146]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\151\156\144\151\162\145\143\164\040\145\170\160\157\162\164\040\157\146\040\163\171\156\164\141\170\040\142\151\156\144\151\156\147\000")); -lf[147]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\151\156\144\151\162\145\143\164\040\162\145\145\170\160\157\162\164\040\157\146\040\163\171\156\164\141\170\000")); -lf[148]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\043\151\156\144\151\162\145\143\164\040\145\170\160\157\162\164\040\157\146\040\165\156\153\156\157\167\156\040\142\151\156\144\151\156\147\000")); -lf[149]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\155\157\144\165\154\145\040\165\156\162\145\163\157\154\166\145\144\000")); -lf[150]=C_h_intern(&lf[150],6, C_text("syntax")); -lf[151]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\140\000")); -lf[152]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000")); -lf[153]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\103\141\156\156\157\164\040\145\170\160\157\162\164\040\000")); -lf[154]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\040\142\145\143\141\165\163\145\040\151\164\040\151\163\040\000")); -lf[155]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[156]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\105\170\160\157\162\164\145\144\040\151\144\145\156\164\151\146\151\145\162\040\000")); -lf[157]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\040\150\141\163\040\156\157\164\040\142\145\145\156\040\144\145\146\151\156\145\144\056\000")); -lf[158]=C_h_intern(&lf[158],4, C_text("bomb")); -lf[159]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\005\146\141\151\154\000")); -lf[160]=C_h_intern(&lf[160],9, C_text("##sys#get")); -lf[161]=C_h_intern(&lf[161],14, C_text("##sys#override")); -lf[162]=C_h_intern(&lf[162],5, C_text("value")); -lf[163]=C_h_intern(&lf[163],30, C_text("##sys#current-meta-environment")); -lf[164]=C_h_intern(&lf[164],28, C_text("##sys#meta-macro-environment")); -lf[165]=C_h_intern(&lf[165],25, C_text("##sys#import-library-hook")); -lf[166]=C_h_intern(&lf[166],21, C_text("##sys#notices-enabled")); -lf[167]=C_h_intern(&lf[167],11, C_text("scheme#load")); -lf[168]=C_h_intern(&lf[168],35, C_text("chicken.load#find-dynamic-extension")); -lf[169]=C_h_intern(&lf[169],19, C_text("##sys#string-append")); -lf[170]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\010\056\151\155\160\157\162\164\000")); -lf[172]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\015\040\151\156\040\155\157\144\165\154\145\040\140\000")); -lf[173]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\047\000")); -lf[174]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\072\000")); -lf[175]=C_h_intern(&lf[175],27, C_text("##sys#symbol->string/shared")); -lf[176]=C_h_intern(&lf[176],20, C_text("##sys#number->string")); -lf[177]=C_h_intern(&lf[177],18, C_text("##sys#syntax-error")); -lf[178]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\151\156\166\141\154\151\144\040\160\162\145\146\151\170\000")); -lf[179]=C_h_intern(&lf[179],24, C_text("chicken.keyword#keyword?")); -lf[180]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\151\156\166\141\154\151\144\040\151\155\160\157\162\164\040\163\160\145\143\151\146\151\143\141\164\151\157\156\000")); -lf[181]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\151\155\160\157\162\164\145\144\040\151\144\145\156\164\151\146\151\145\162\040\144\157\145\163\156\047\164\040\145\170\151\163\164\000")); -lf[182]=C_h_intern(&lf[182],18, C_text("##sys#check-syntax")); -lf[183]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\377\001\000\000\000\000")); -lf[184]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\145\170\143\154\165\144\145\144\040\151\144\145\156\164\151\146\151\145\162\040\144\157\145\163\156\047\164\040\145\170\151\163\164\000")); -lf[185]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\377\001\000\000\000\000")); -lf[186]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\041\162\145\156\141\155\145\144\040\151\144\145\156\164\151\146\151\145\162\040\144\157\145\163\156\047\164\040\145\170\151\163\164\000")); -lf[187]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\003\000\000\002\376\001\000\000\006\001\163\171\155\142\157\154\376\377\016\376\377\001\000\000\000\000")); -lf[188]=C_h_intern(&lf[188],20, C_text("##sys#string->symbol")); -lf[189]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\003\000\000\002\376\001\000\000\001\001\137\376\377\016")); -lf[190]=C_h_intern(&lf[190],37, C_text("scheme#call-with-current-continuation")); -lf[191]=C_h_intern(&lf[191],6, C_text("prefix")); -lf[192]=C_h_intern(&lf[192],6, C_text("except")); -lf[193]=C_h_intern(&lf[193],6, C_text("rename")); -lf[194]=C_h_intern(&lf[194],4, C_text("only")); -lf[195]=C_h_intern(&lf[195],19, C_text("##sys#expand-import")); -lf[196]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\044\143\141\156\156\157\164\040\151\155\160\157\162\164\040\146\162\157\155\040\165\156\144\145\146\151\156\145\144\040\155\157\144\165\154\145\000")); -lf[197]=C_h_intern(&lf[197],12, C_text("##sys#import")); -lf[198]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\020\001\043\043\143\157\162\145\043\165\156\144\145\146\151\156\145\144\376\377\016")); -lf[199]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\001\001\137\376\000\000\000\002\376\001\000\000\001\001\137\376\377\001\000\000\000\001")); -lf[200]=C_h_intern(&lf[200],12, C_text("##sys#notice")); -lf[201]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\051\162\145\055\151\155\160\157\162\164\151\156\147\040\141\154\162\145\141\144\171\040\151\155\160\157\162\164\145\144\040\151\144\145\156\164\151\146\151\145\162\000")); -lf[202]=C_h_intern(&lf[202],10, C_text("##sys#put!")); -lf[203]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\162\145\055\151\155\160\157\162\164\151\156\147\040\141\154\162\145\141\144\171\040\151\155\160\157\162\164\145\144\040\163\171\156\164\141\170\000")); -lf[204]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\046\140\162\145\145\170\160\157\162\164\047\040\157\156\154\171\040\166\141\154\151\144\040\151\156\163\151\144\145\040\141\040\155\157\144\165\154\145\000")); -lf[205]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\043\000")); -lf[206]=C_h_intern(&lf[206],23, C_text("##sys#alias-global-hook")); -lf[207]=C_h_intern(&lf[207],22, C_text("##sys#validate-exports")); -lf[208]=C_h_intern(&lf[208],16, C_text("##core#interface")); -lf[209]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\165\156\153\156\157\167\156\040\151\156\164\145\162\146\141\143\145\000")); -lf[210]=C_h_intern(&lf[210],1, C_text("*")); -lf[211]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\151\156\166\141\154\151\144\040\145\170\160\157\162\164\163\000")); -lf[212]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\020\151\156\166\141\154\151\144\040\145\170\160\157\162\164\163\000")); -lf[213]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\151\156\166\141\154\151\144\040\145\170\160\157\162\164\000")); -lf[214]=C_h_intern_kw(&lf[214],6, C_text("syntax")); -lf[215]=C_h_intern_kw(&lf[215],9, C_text("interface")); -lf[216]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\040\151\156\166\141\154\151\144\040\151\156\164\145\162\146\141\143\145\040\163\160\145\143\151\146\151\143\141\164\151\157\156\000")); -lf[217]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\151\156\166\141\154\151\144\040\145\170\160\157\162\164\000")); -lf[218]=C_h_intern(&lf[218],22, C_text("##sys#register-functor")); -lf[219]=C_h_intern(&lf[219],25, C_text("##sys#instantiate-functor")); -lf[220]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\060\141\162\147\165\155\145\156\164\040\154\151\163\164\040\155\151\163\155\141\164\143\150\040\151\156\040\146\165\156\143\164\157\162\040\151\156\163\164\141\156\164\151\141\164\151\157\156\000")); -lf[221]=C_h_intern(&lf[221],13, C_text("##core#module")); -lf[222]=C_h_intern(&lf[222],23, C_text("##core#let-module-alias")); -lf[224]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\042\151\156\163\164\141\156\164\141\164\151\157\156\040\157\146\040\165\156\144\145\146\151\156\145\144\040\146\165\156\143\164\157\162\000")); -lf[225]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\022\141\162\147\165\155\145\156\164\040\155\157\144\165\154\145\040\140\000")); -lf[226]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\045\047\040\144\157\145\163\040\156\157\164\040\155\141\164\143\150\040\162\145\161\165\151\162\145\144\040\163\151\147\156\141\164\165\162\145\012\000")); -lf[227]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\023\151\156\040\151\156\163\164\141\156\164\151\141\164\151\157\156\040\140\000")); -lf[228]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\017\047\040\157\146\040\146\165\156\143\164\157\162\040\140\000")); -lf[229]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\070\047\054\040\142\145\143\141\165\163\145\040\164\150\145\040\146\157\154\154\157\167\151\156\147\040\162\145\161\165\151\162\145\144\040\145\170\160\157\162\164\163\040\141\162\145\040\155\151\163\163\151\156\147\072\012\000")); -lf[230]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\012\040\040\000")); -lf[231]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\156\157\164\376\001\000\000\012\001\163\143\150\145\155\145\043\156\157\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\142\157\157\154\145\141\156\077\376\001\000\000\017\001\163\143\150\145\155\145\043\142\157\157\154\145\141\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\145\161\077\376\001\000\000\012\001\163\143\150\145\155\145\043\145\161\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\161\166\077\376\001\000\000\013\001\163\143\150\145\155\145\043\145\161\166\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\145\161\165\141\154\077\376\001\000\000\015\001\163\143\150\145\155\145\043\145\161\165\141\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\160\141\151\162\077\376\001\000\000\014\001\163\143\150\145\155\145\043\160\141\151\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\157\156\163\376\001\000\000\013\001\163\143\150\145\155\145\043\143\157\156\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\143\141\162\376\001\000\000\012\001\163\143\150\145\155\145\043\143\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\143\144\162\376\001\000\000\012\001\163\143\150\145\155\145\043\143\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\141\141\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\141\144\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\144\141\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\144\144\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\141\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\141\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\144\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\144\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\141\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\141\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\144\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\144\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\145\164\055\143\141\162\041\376\001\000\000\017\001\163\143\150\145\155\145\043\163\145\164\055\143\141\162\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\145\164\055\143\144\162\041\376\001\000\000\017\001\163\143\150\145\155\145\043\163\145\164\055\143\144\162\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\156\165\154\154\077\376\001\000\000\014\001\163\143\150\145\155\145\043\156\165\154\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\154\151\163\164\077\376\001\000\000\014\001\163\143\150\145\155\145\043\154\151\163\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\154\151\163\164\376\001\000\000\013\001\163\143\150\145\155\145\043\154\151\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\154\145\156\147\164\150\376\001\000\000\015\001\163\143\150\145\155\145\043\154\145\156\147\164\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\154\151\163\164\055\164\141\151\154\376\001\000\000\020\001\163\143\150\145\155\145\043\154\151\163\164\055\164\141\151\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\154\151\163\164\055\162\145\146\376\001\000\000\017\001\163\143\150\145\155\145\043\154\151\163\164\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\141\160\160\145\156\144\376\001\000\000\015\001\163\143\150\145\155\145\043\141\160\160\145\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\162\145\166\145\162\163\145\376\001\000\000\016\001\163\143\150\145\155\145\043\162\145\166\145\162\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\155\145\155\161\376\001\000\000\013\001\163\143\150\145\155\145\043\155\145\155\161\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\155\145\155\166\376\001\000\000\013\001\163\143\150\145\155\145\043\155\145\155\166\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\155\145\155\142\145\162\376\001\000\000\015\001\163\143\150\145\155\145\043\155\145\155\142\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\163\163\161\376\001\000\000\013\001\163\143\150\145\155\145\043\141\163\163\161\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\163\163\166\376\001\000\000\013\001\163\143\150\145\155\145\043\141\163\163\166\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\163\163\157\143\376\001\000\000\014\001\163\143\150\145\155\145\043\141\163\163\157\143\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\163\171\155\142\157\154\077\376\001\000\000\016\001\163\143\150\145\155\145\043\163\171\155\142\157\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\163\171\155\142\157\154\055\076\163\164\162\151\156\147\376\001\000\000\025\001\163\143\150\145\155\145\043\163\171\155\142\157\154\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\163\164\162\151\156\147\055\076\163\171\155\142\157\154\376\001\000\000\025\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\076\163\171\155\142\157\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\156\165\155\142\145\162\077\376\001\000\000\016\001\163\143\150\145\155\145\043\156\165\155\142\145\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\151\156\164\145\147\145\162\077\376\001\000\000\017\001\163\143\150\145\155\145\043\151\156\164\145\147\145\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\145\170\141\143\164\077\376\001\000\000\015\001\163\143\150\145\155\145\043\145\170\141\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\162\145\141\154\077\376\001\000\000\014\001\163\143\150\145\155\145\043\162\145\141\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\143\157\155\160\154\145\170\077\376\001\000\000\017\001\163\143\150\145\155\145\043\143\157\155\160\154\145\170\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\151\156\145\170\141\143\164\077\376\001\000\000\017\001\163\143\150\145\155\145\043\151\156\145\170\141\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\141\164\151\157\156\141\154\077\376\001\000\000\020\001\163\143\150\145\155\145\043\162\141\164\151\157\156\141\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\172\145\162\157\077\376\001\000\000\014\001\163\143\150\145\155\145\043\172\145\162\157\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\157\144\144\077\376\001\000\000\013\001\163\143\150\145\155\145\043\157\144\144\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\145\166\145\156\077\376\001\000\000\014\001\163\143\150\145\155\145\043\145\166\145\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\160\157\163\151\164\151\166\145\077\376\001\000\000\020\001\163\143\150\145\155\145\043\160\157\163\151\164\151\166\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\156\145\147\141\164\151\166\145\077\376\001\000\000\020\001\163\143\150\145\155\145\043\156\145\147\141\164\151\166\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\155\141\170\376\001\000\000\012\001\163\143\150\145\155\145\043\155\141\170\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\155\151\156\376\001\000\000\012\001\163\143\150\145\155\145\043\155\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\053\376\001\000\000\010\001\163\143\150\145\155\145\043\053\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\055\376\001\000\000\010\001\163\143\150\145\155\145\043\055\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\052\376\001\000\000\010\001\163\143\150\145\155\145\043\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\057\376\001\000\000\010\001\163\143\150\145\155\145\043\057\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\075\376\001\000\000\010\001\163\143\150\145\155\145\043\075\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\076\376\001\000\000\010\001\163\143\150\145\155\145\043\076\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\074\376\001\000\000\010\001\163\143\150\145\155\145\043\074\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001\076\075\376\001\000\000\011\001\163\143\150\145\155\145\043\076\075\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001\074\075\376\001\000\000\011\001\163\143\150\145\155\145\043\074\075\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\161\165\157\164\151\145\156\164\376\001\000\000\017\001\163\143\150\145\155\145\043\161\165\157\164\151\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\145\155\141\151\156\144\145\162\376\001\000\000\020\001\163\143\150\145\155\145\043\162\145\155\141\151\156\144\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\155\157\144\165\154\157\376\001\000\000\015\001\163\143\150\145\155\145\043\155\157\144\165\154\157\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\147\143\144\376\001\000\000\012\001\163\143\150\145\155\145\043\147\143\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\154\143\155\376\001\000\000\012\001\163\143\150\145\155\145\043\154\143\155\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\141\142\163\376\001\000\000\012\001\163\143\150\145\155\145\043\141\142\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\146\154\157\157\162\376\001\000\000\014\001\163\143\150\145\155\145\043\146\154\157\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\145\151\154\151\156\147\376\001\000\000\016\001\163\143\150\145\155\145\043\143\145\151\154\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\164\162\165\156\143\141\164\145\376\001\000\000\017\001\163\143\150\145\155\145\043\164\162\165\156\143\141\164\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\162\157\165\156\144\376\001\000\000\014\001\163\143\150\145\155\145\043\162\157\165\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\162\141\164\151\157\156\141\154\151\172\145\376\001\000\000\022\001\163\143\150\145\155\145\043\162\141\164\151\157\156\141\154\151\172\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\145\170\141\143\164\055\076\151\156\145\170\141\143\164\376\001\000\000\025\001\163\143\150\145\155\145\043\145\170\141\143\164\055\076\151\156\145\170\141\143\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\151\156\145\170\141\143\164\055\076\145\170\141\143\164\376\001\000\000\025\001\163\143\150\145\155\145\043\151\156\145\170\141\143\164\055\076\145\170\141\143\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\145\170\160\376\001\000\000\012\001\163\143\150\145\155\145\043\145\170\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\154\157\147\376\001\000\000\012\001\163\143\150\145\155\145\043\154\157\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\170\160\164\376\001\000\000\013\001\163\143\150\145\155\145\043\145\170\160\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\163\161\162\164\376\001\000\000\013\001\163\143\150\145\155\145\043\163\161\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\163\151\156\376\001\000\000\012\001\163\143\150\145\155\145\043\163\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\143\157\163\376\001\000\000\012\001\163\143\150\145\155\145\043\143\157\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\164\141\156\376\001\000\000\012\001\163\143\150\145\155\145\043\164\141\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\163\151\156\376\001\000\000\013\001\163\143\150\145\155\145\043\141\163\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\143\157\163\376\001\000\000\013\001\163\143\150\145\155\145\043\141\143\157\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\164\141\156\376\001\000\000\013\001\163\143\150\145\155\145\043\141\164\141\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\156\165\155\142\145\162\055\076\163\164\162\151\156\147\376\001\000\000\025\001\163\143\150\145\155\145\043\156\165\155\142\145\162\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\163\164\162\151\156\147\055\076\156\165\155\142\145\162\376\001\000\000\025\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\076\156\165\155\142\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\150\141\162\077\376\001\000\000\014\001\163\143\150\145\155\145\043\143\150\141\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\150\141\162\075\077\376\001\000\000\015\001\163\143\150\145\155\145\043\143\150\141\162\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\150\141\162\076\077\376\001\000\000\015\001\163\143\150\145\155\145\043\143\150\141\162\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\150\141\162\074\077\376\001\000\000\015\001\163\143\150\145\155\145\043\143\150\141\162\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\150\141\162\076\075\077\376\001\000\000\016\001\163\143\150\145\155\145\043\143\150\141\162\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\150\141\162\074\075\077\376\001\000\000\016\001\163\143\150\145\155\145\043\143\150\141\162\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\143\150\141\162\055\143\151\075\077\376\001\000\000\020\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\143\150\141\162\055\143\151\074\077\376\001\000\000\020\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\143\150\141\162\055\143\151\076\077\376\001\000\000\020\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\150\141\162\055\143\151\076\075\077\376\001\000\000\021\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\150\141\162\055\143\151\074\075\077\376\001\000\000\021\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\141\154\160\150\141\142\145\164\151\143\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\141\154\160\150\141\142\145\164\151\143\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\167\150\151\164\145\163\160\141\143\145\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\167\150\151\164\145\163\160\141\143\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\156\165\155\145\162\151\143\077\376\001\000\000\024\001\163\143\150\145\155\145\043\143\150\141\162\055\156\165\155\145\162\151\143\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\165\160\160\145\162\055\143\141\163\145\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\165\160\160\145\162\055\143\141\163\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\154\157\167\145\162\055\143\141\163\145\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\154\157\167\145\162\055\143\141\163\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\143\150\141\162\055\165\160\143\141\163\145\376\001\000\000\022\001\163\143\150\145\155\145\043\143\150\141\162\055\165\160\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\144\157\167\156\143\141\163\145\376\001\000\000\024\001\163\143\150\145\155\145\043\143\150\141\162\055\144\157\167\156\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\076\151\156\164\145\147\145\162\376\001\000\000\024\001\163\143\150\145\155\145\043\143\150\141\162\055\076\151\156\164\145\147\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\151\156\164\145\147\145\162\055\076\143\150\141\162\376\001\000\000\024\001\163\143\150\145\155\145\043\151\156\164\145\147\145\162\055\076\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\163\164\162\151\156\147\077\376\001\000\000\016\001\163\143\150\145\155\145\043\163\164\162\151\156\147\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\164\162\151\156\147\075\077\376\001\000\000\017\001\163\143\150\145\155\145\043\163\164\162\151\156\147\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\164\162\151\156\147\076\077\376\001\000\000\017\001\163\143\150\145\155\145\043\163\164\162\151\156\147\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\164\162\151\156\147\074\077\376\001\000\000\017\001\163\143\150\145\155\145\043\163\164\162\151\156\147\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\163\164\162\151\156\147\076\075\077\376\001\000\000\020\001\163\143\150\145\155\145\043\163\164\162\151\156\147\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\163\164\162\151\156\147\074\075\077\376\001\000\000\020\001\163\143\150\145\155\145\043\163\164\162\151\156\147\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\151\075\077\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\151\074\077\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\151\076\077\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\143\151\076\075\077\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\143\151\074\075\077\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\155\141\153\145\055\163\164\162\151\156\147\376\001\000\000\022\001\163\143\150\145\155\145\043\155\141\153\145\055\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\163\164\162\151\156\147\055\154\145\156\147\164\150\376\001\000\000\024\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\154\145\156\147\164\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\163\164\162\151\156\147\055\162\145\146\376\001\000\000\021\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\163\145\164\041\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\163\145\164\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\163\164\162\151\156\147\055\141\160\160\145\156\144\376\001\000\000\024\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\141\160\160\145\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\157\160\171\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\157\160\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\076\154\151\163\164\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\076\154\151\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\154\151\163\164\055\076\163\164\162\151\156\147\376\001\000\000\023\001\163\143\150\145\155\145\043\154\151\163\164\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\163\165\142\163\164\162\151\156\147\376\001\000\000\020\001\163\143\150\145\155\145\043\163\165\142\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\146\151\154\154\041\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\146\151\154\154\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\166\145\143\164\157\162\077\376\001\000\000\016\001\163\143\150\145\155\145\043\166\145\143\164\157\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\155\141\153\145\055\166\145\143\164\157\162\376\001\000\000\022\001\163\143\150\145\155\145\043\155\141\153\145\055\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\166\145\143\164\157\162\055\162\145\146\376\001\000\000\021\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\166\145\143\164\157\162\055\163\145\164\041\376\001\000\000\022\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\163\145\164\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\001\000\000\015\001\163\143\150\145\155\145\043\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\166\145\143\164\157\162\376\001\000\000\015\001\163\143\150\145\155\145\043\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\166\145\143\164\157\162\055\154\145\156\147\164\150\376\001\000\000\024\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\154\145\156\147\164\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\166\145\143\164\157\162\055\076\154\151\163\164\376\001\000\000\023\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\076\154\151\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\154\151\163\164\055\076\166\145\143\164\157\162\376\001\000\000\023\001\163\143\150\145\155\145\043\154\151\163\164\055\076\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\166\145\143\164\157\162\055\146\151\154\154\041\376\001\000\000\023\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\146\151\154\154\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\160\162\157\143\145\144\165\162\145\077\376\001\000\000\021\001\163\143\150\145\155\145\043\160\162\157\143\145\144\165\162\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\155\141\160\376\001\000\000\012\001\163\143\150\145\155\145\043\155\141\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\146\157\162\055\145\141\143\150\376\001\000\000\017\001\163\143\150\145\155\145\043\146\157\162\055\145\141\143\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\160\160\154\171\376\001\000\000\014\001\163\143\150\145\155\145\043\141\160\160\154\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\146\157\162\143\145\376\001\000\000\014\001\163\143\150\145\155\145\043\146\157\162\143\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001\143\141\154\154\055\167\151\164\150\055\143\165\162\162\145\156\164\055\143\157\156\164\151\156\165\141\164\151\157\156\376\001\000\000\045\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\143\165\162\162\145\156\164\055\143\157\156\164\151\156\165\141\164\151\157\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\151\156\160\165\164\055\160\157\162\164\077\376\001\000\000\022\001\163\143\150\145\155\145\043\151\156\160\165\164\055\160\157\162\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\157\165\164\160\165\164\055\160\157\162\164\077\376\001\000\000\023\001\163\143\150\145\155\145\043\157\165\164\160\165\164\055\160\157\162\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\143\165\162\162\145\156\164\055\151\156\160\165\164\055\160\157\162\164\376\001\000\000\031\001\163\143\150\145\155\145\043\143\165\162\162\145\156\164\055\151\156\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001\143\165\162\162\145\156\164\055\157\165\164\160\165\164\055\160\157\162\164\376\001\000\000\032\001\163\143\150\145\155\145\043\143\165\162\162\145\156\164\055\157\165\164\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001\143\141\154\154\055\167\151\164\150\055\151\156\160\165\164\055\146\151\154\145\376\001\000\000\033\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\151\156\160\165\164\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001\143\141\154\154\055\167\151\164\150\055\157\165\164\160\165\164\055\146\151\154\145\376\001\000\000\034\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\157\165\164\160\165\164\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\157\160\145\156\055\151\156\160\165\164\055\146\151\154\145\376\001\000\000\026\001\163\143\150\145\155\145\043\157\160\145\156\055\151\156\160\165\164\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\157\160\145\156\055\157\165\164\160\165\164\055\146\151\154\145\376\001\000\000\027\001\163\143\150\145\155\145\043\157\160\145\156\055\157\165\164\160\165\164\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\154\157\163\145\055\151\156\160\165\164\055\160\157\162\164\376\001\000\000\027\001\163\143\150\145\155\145\043\143\154\157\163\145\055\151\156\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\143\154\157\163\145\055\157\165\164\160\165\164\055\160\157\162\164\376\001\000\000\030\001\163\143\150\145\155\145\043\143\154\157\163\145\055\157\165\164\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\154\157\141\144\376\001\000\000\013\001\163\143\150\145\155\145\043\154\157\141\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\162\145\141\144\376\001\000\000\013\001\163\143\150\145\155\145\043\162\145\141\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\145\141\144\055\143\150\141\162\376\001\000\000\020\001\163\143\150\145\155\145\043\162\145\141\144\055\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\160\145\145\153\055\143\150\141\162\376\001\000\000\020\001\163\143\150\145\155\145\043\160\145\145\153\055\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\167\162\151\164\145\376\001\000\000\014\001\163\143\150\145\155\145\043\167\162\151\164\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\144\151\163\160\154\141\171\376\001\000\000\016\001\163\143\150\145\155\145\043\144\151\163\160\154\141\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\167\162\151\164\145\055\143\150\141\162\376\001\000\000\021\001\163\143\150\145\155\145\043\167\162\151\164\145\055\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\156\145\167\154\151\156\145\376\001\000\000\016\001\163\143\150\145\155\145\043\156\145\167\154\151\156\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\145\157\146\055\157\142\152\145\143\164\077\376\001\000\000\022\001\163\143\150\145\155\145\043\145\157\146\055\157\142\152\145\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001\167\151\164\150\055\151\156\160\165\164\055\146\162\157\155\055\146\151\154\145\376\001\000\000\033\001\163\143\150\145\155\145\043\167\151\164\150\055\151\156\160\165\164\055\146\162\157\155\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001\167\151\164\150\055\157\165\164\160\165\164\055\164\157\055\146\151\154\145\376\001\000\000\032\001\163\143\150\145\155\145\043\167\151\164\150\055\157\165\164\160\165\164\055\164\157\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\143\150\141\162\055\162\145\141\144\171\077\376\001\000\000\022\001\163\143\150\145\155\145\043\143\150\141\162\055\162\145\141\144\171\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\151\155\141\147\055\160\141\162\164\376\001\000\000\020\001\163\143\150\145\155\145\043\151\155\141\147\055\160\141\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\145\141\154\055\160\141\162\164\376\001\000\000\020\001\163\143\150\145\155\145\043\162\145\141\154\055\160\141\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\155\141\153\145\055\162\145\143\164\141\156\147\165\154\141\162\376\001\000\000\027\001\163\143\150\145\155\145\043\155\141\153\145\055\162\145\143\164\141\156\147\165\154\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\155\141\153\145\055\160\157\154\141\162\376\001\000\000\021\001\163\143\150\145\155\145\043\155\141\153\145\055\160\157\154\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\156\147\154\145\376\001\000\000\014\001\163\143\150\145\155\145\043\141\156\147\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\155\141\147\156\151\164\165\144\145\376\001\000\000\020\001\163\143\150\145\155\145\043\155\141\147\156\151\164\165\144\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\156\165\155\145\162\141\164\157\162\376\001\000\000\020\001\163\143\150\145\155\145\043\156\165\155\145\162\141\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\144\145\156\157\155\151\156\141\164\157\162\376\001\000\000\022\001\163\143\150\145\155\145\043\144\145\156\157\155\151\156\141\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001\163\143\150\145\155\145\055\162\145\160\157\162\164\055\145\156\166\151\162\157\156\155\145\156\164\376\001\000\000\040\001\163\143\150\145\155\145\043\163\143\150\145\155\145\055\162\145\160\157\162\164\055\145\156\166\151\162\157\156\155\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\156\165\154\154\055\145\156\166\151\162\157\156\155\145\156\164\376\001\000\000\027\001\163\143\150\145\155\145\043\156\165\154\154\055\145\156\166\151\162\157\156\155\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001\151\156\164\145\162\141\143\164\151\157\156\055\145\156\166\151\162\157\156\155\145\156\164\376\001\000\000\036\001\163\143\150\145\155\145\043\151\156\164\145\162\141\143\164\151\157\156\055\145\156\166\151\162\157\156\155\145\156\164\376\377\016")); -lf[232]=C_h_intern(&lf[232],30, C_text("##sys#scheme-macro-environment")); -lf[233]=C_h_intern(&lf[233],9, C_text("se-subset")); -lf[234]=C_h_intern(&lf[234],33, C_text("chicken.module#module-environment")); -lf[235]=C_h_intern(&lf[235],18, C_text("module-environment")); -lf[236]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\021\165\156\144\145\146\151\156\145\144\040\155\157\144\165\154\145\000")); -lf[237]=C_h_intern(&lf[237],11, C_text("environment")); -lf[238]=C_h_intern(&lf[238],23, C_text("scheme.eval#environment")); -lf[239]=C_h_intern(&lf[239],19, C_text("scheme#dynamic-wind")); -lf[240]=C_h_intern(&lf[240],17, C_text("chicken.base#void")); -lf[241]=C_h_intern(&lf[241],19, C_text("chicken.base#gensym")); -lf[242]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\024\145\156\166\151\162\157\156\155\145\156\164\055\155\157\144\165\154\145\055\000")); -lf[243]=C_h_intern(&lf[243],14, C_text("chicken.syntax")); -lf[244]=C_h_intern(&lf[244],6, C_text("expand")); -lf[245]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\145\170\160\141\156\144\376\001\000\000\025\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\043\145\170\160\141\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\147\145\164\055\154\151\156\145\055\156\165\155\142\145\162\376\001\000\000\036\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\043\147\145\164\055\154\151\156\145\055\156\165\155\142\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001\162\145\141\144\055\167\151\164\150\055\163\157\165\162\143\145\055\151\156\146\157\376\001\000\000\044\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\043\162\145\141\144\055\167\151\164\150\055\163\157\165\162\143\145\055\151\156\146\157\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\160\055\163\171\156\164\141\170\376\001\000\000\033\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\043\163\164\162\151\160\055\163\171\156\164\141\170\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001\145\162\055\155\141\143\162\157\055\164\162\141\156\163\146\157\162\155\145\162\376\001\000\000\043\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\043\145\162\055\155\141\143\162\157\055\164\162\141\156\163\146\157\162\155\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001\151\162\055\155\141\143\162\157\055\164\162\141\156\163\146\157\162\155\145\162\376\001\000\000\043\001\143\150\151\143\153\145\156\056\163\171\156\164\141\170\043\151\162\055\155\141\143\162\157\055\164\162\141\156\163\146\157\162\155\145\162\376\377\016")); -lf[246]=C_h_intern(&lf[246],38, C_text("##sys#chicken.syntax-macro-environment")); -lf[247]=C_h_intern(&lf[247],12, C_text("chicken.base")); -lf[248]=C_h_intern(&lf[248],7, C_text("library")); -lf[249]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\144\144\061\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\141\144\144\061\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\141\154\151\163\164\055\162\145\146\376\001\000\000\026\001\143\150\151\143\153\145\156\056\142\141\163\145\043\141\154\151\163\164\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\141\154\151\163\164\055\165\160\144\141\164\145\376\001\000\000\031\001\143\150\151\143\153\145\156\056\142\141\163\145\043\141\154\151\163\164\055\165\160\144\141\164\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\141\154\151\163\164\055\165\160\144\141\164\145\041\376\001\000\000\032\001\143\150\151\143\153\145\156\056\142\141\163\145\043\141\154\151\163\164\055\165\160\144\141\164\145\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\164\157\155\077\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\141\164\157\155\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\142\151\147\156\165\155\077\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\142\151\147\156\165\155\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\142\167\160\055\157\142\152\145\143\164\077\376\001\000\000\030\001\143\150\151\143\153\145\156\056\142\141\163\145\043\142\167\160\055\157\142\152\145\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\142\165\164\154\141\163\164\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\142\165\164\154\141\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\143\141\163\145\055\163\145\156\163\151\164\151\166\145\376\001\000\000\033\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\141\163\145\055\163\145\156\163\151\164\151\166\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\143\150\141\162\055\156\141\155\145\376\001\000\000\026\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\150\141\162\055\156\141\155\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\146\157\154\144\143\141\163\145\376\001\000\000\032\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\150\141\162\055\146\157\154\144\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\150\157\160\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\150\157\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\157\155\160\154\145\155\145\156\164\376\001\000\000\027\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\157\155\160\154\145\155\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\157\155\160\157\163\145\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\157\155\160\157\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\143\157\155\160\162\145\163\163\376\001\000\000\025\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\157\155\160\162\145\163\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\157\156\152\157\151\156\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\157\156\152\157\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\157\156\163\164\141\156\164\154\171\376\001\000\000\027\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\157\156\163\164\141\156\164\154\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\143\160\154\170\156\165\155\077\376\001\000\000\025\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\160\154\170\156\165\155\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\143\165\162\162\145\156\164\055\145\162\162\157\162\055\160\157\162\164\376\001\000\000\037\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\165\162\162\145\156\164\055\145\162\162\157\162\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\144\151\163\152\157\151\156\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\144\151\163\152\157\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\141\143\150\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\141\143\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\145\155\145\162\147\145\156\143\171\055\145\170\151\164\376\001\000\000\033\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\155\145\162\147\145\156\143\171\055\145\170\151\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\145\156\141\142\154\145\055\167\141\162\156\151\156\147\163\376\001\000\000\034\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\156\141\142\154\145\055\167\141\162\156\151\156\147\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\145\161\165\141\154\075\077\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\161\165\141\154\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\145\162\162\157\162\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\162\162\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\145\170\141\143\164\055\151\156\164\145\147\145\162\077\376\001\000\000\033\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\170\141\143\164\055\151\156\164\145\147\145\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001\145\170\141\143\164\055\151\156\164\145\147\145\162\055\156\164\150\055\162\157\157\164\376\001\000\000\043\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\170\141\143\164\055\151\156\164\145\147\145\162\055\156\164\150\055\162\157\157\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\170\151\164\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\170\151\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\145\170\151\164\055\150\141\156\144\154\145\162\376\001\000\000\031\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\170\151\164\055\150\141\156\144\154\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\146\151\156\151\164\145\077\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\151\156\151\164\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\146\151\170\156\165\155\077\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\151\170\156\165\155\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\146\154\141\164\164\145\156\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\154\141\164\164\145\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\146\154\151\160\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\154\151\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\146\154\157\156\165\155\077\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\154\157\156\165\155\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\146\154\165\163\150\055\157\165\164\160\165\164\376\001\000\000\031\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\154\165\163\150\055\157\165\164\160\165\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\146\157\154\144\154\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\157\154\144\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\146\157\154\144\162\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\157\154\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\147\145\156\163\171\155\376\001\000\000\023\001\143\150\151\143\153\145\156\056\142\141\163\145\043\147\145\156\163\171\155\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\147\145\164\055\143\141\154\154\055\143\150\141\151\156\376\001\000\000\033\001\143\150\151\143\153\145\156\056\142\141\163\145\043\147\145\164\055\143\141\154\154\055\143\150\141\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\147\145\164\164\145\162\055\167\151\164\150\055\163\145\164\164\145\162\376\001\000\000\037\001\143\150\151\143\153\145\156\056\142\141\163\145\043\147\145\164\164\145\162\055\167\151\164\150\055\163\145\164\164\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\151\144\145\156\164\151\164\171\376\001\000\000\025\001\143\150\151\143\153\145\156\056\142\141\163\145\043\151\144\145\156\164\151\164\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001\151\155\160\154\151\143\151\164\055\145\170\151\164\055\150\141\156\144\154\145\162\376\001\000\000\042\001\143\150\151\143\153\145\156\056\142\141\163\145\043\151\155\160\154\151\143\151\164\055\145\170\151\164\055\150\141\156\144\154\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\151\156\146\151\156\151\164\145\077\376\001\000\000\026\001\143\150\151\143\153\145\156\056\142\141\163\145\043\151\156\146\151\156\151\164\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\151\156\164\145\162\163\160\145\162\163\145\376\001\000\000\030\001\143\150\151\143\153\145\156\056\142\141\163\145\043\151\156\164\145\162\163\160\145\162\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\152\157\151\156\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\152\157\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\153\145\171\167\157\162\144\055\163\164\171\154\145\376\001\000\000\032\001\143\150\151\143\153\145\156\056\142\141\163\145\043\153\145\171\167\157\162\144\055\163\164\171\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\154\151\163\164\055\157\146\077\376\001\000\000\025\001\143\150\151\143\153\145\156\056\142\141\163\145\043\154\151\163\164\055\157\146\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\155\141\153\145\055\160\162\157\155\151\163\145\376\001\000\000\031\001\143\150\151\143\153\145\156\056\142\141\163\145\043\155\141\153\145\055\160\162\157\155\151\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\156\141\156\077\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\156\141\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\156\157\164\151\143\145\376\001\000\000\023\001\143\150\151\143\153\145\156\056\142\141\163\145\043\156\157\164\151\143\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\157\376\001\000\000\016\001\143\150\151\143\153\145\156\056\142\141\163\145\043\157\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\157\156\055\145\170\151\164\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\157\156\055\145\170\151\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001\160\141\162\145\156\164\150\145\163\145\163\055\163\171\156\157\156\171\155\163\376\001\000\000\041\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\141\162\145\156\164\150\145\163\145\163\055\163\171\156\157\156\171\155\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\160\157\162\164\055\143\154\157\163\145\144\077\376\001\000\000\031\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\157\162\164\055\143\154\157\163\145\144\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\160\162\151\156\164\055\143\141\154\154\055\143\150\141\151\156\376\001\000\000\035\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\162\151\156\164\055\143\141\154\154\055\143\150\141\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\160\162\151\156\164\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\162\151\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\160\162\151\156\164\052\376\001\000\000\023\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\162\151\156\164\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001\160\162\157\143\145\144\165\162\145\055\151\156\146\157\162\155\141\164\151\157\156\376\001\000\000\042\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\162\157\143\145\144\165\162\145\055\151\156\146\157\162\155\141\164\151\157\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\160\162\157\155\151\163\145\077\376\001\000\000\025\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\162\157\155\151\163\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\161\165\157\164\151\145\156\164\046\155\157\144\165\154\157\376\001\000\000\034\001\143\150\151\143\153\145\156\056\142\141\163\145\043\161\165\157\164\151\145\156\164\046\155\157\144\165\154\157\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\161\165\157\164\151\145\156\164\046\162\145\155\141\151\156\144\145\162\376\001\000\000\037\001\143\150\151\143\153\145\156\056\142\141\163\145\043\161\165\157\164\151\145\156\164\046\162\145\155\141\151\156\144\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\162\141\163\163\157\143\376\001\000\000\023\001\143\150\151\143\153\145\156\056\142\141\163\145\043\162\141\163\163\157\143\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\162\141\164\156\165\155\077\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\162\141\164\156\165\155\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\162\145\143\157\162\144\055\160\162\151\156\164\145\162\376\001\000\000\033\001\143\150\151\143\153\145\156\056\142\141\163\145\043\162\145\143\157\162\144\055\160\162\151\156\164\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001\163\145\164\055\162\145\143\157\162\144\055\160\162\151\156\164\145\162\041\376\001\000\000\040\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\145\164\055\162\145\143\157\162\144\055\160\162\151\156\164\145\162\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\145\164\164\145\162\376\001\000\000\023\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\145\164\164\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\151\147\156\165\155\376\001\000\000\023\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\151\147\156\165\155\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\163\154\145\145\160\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\154\145\145\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001\163\164\162\151\156\147\055\076\165\156\151\156\164\145\162\156\145\144\055\163\171\155\142\157\154\376\001\000\000\046\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\164\162\151\156\147\055\076\165\156\151\156\164\145\162\156\145\144\055\163\171\155\142\157\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\163\164\162\151\156\147\055\146\157\154\144\143\141\163\145\376\001\000\000\034\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\164\162\151\156\147\055\146\157\154\144\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\163\165\142\061\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\165\142\061\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\163\165\142\166\145\143\164\157\162\376\001\000\000\026\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\165\142\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\163\171\155\142\157\154\055\141\160\160\145\156\144\376\001\000\000\032\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\171\155\142\157\154\055\141\160\160\145\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\163\171\155\142\157\154\055\145\163\143\141\160\145\376\001\000\000\032\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\171\155\142\157\154\055\145\163\143\141\160\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\164\141\151\154\077\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\164\141\151\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\166\145\143\164\157\162\055\143\157\160\171\041\376\001\000\000\023\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\143\157\160\171\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\166\145\143\164\157\162\055\162\145\163\151\172\145\376\001\000\000\032\001\143\150\151\143\153\145\156\056\142\141\163\145\043\166\145\143\164\157\162\055\162\145\163\151\172\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\166\157\151\144\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\166\157\151\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\167\141\162\156\151\156\147\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\167\141\162\156\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\167\145\141\153\055\143\157\156\163\376\001\000\000\026\001\143\150\151\143\153\145\156\056\142\141\163\145\043\167\145\141\153\055\143\157\156\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\167\145\141\153\055\160\141\151\162\077\376\001\000\000\027\001\143\150\151\143\153\145\156\056\142\141\163\145\043\167\145\141\153\055\160\141\151\162\077\376\377\016")); -lf[250]=C_h_intern(&lf[250],36, C_text("##sys#chicken.base-macro-environment")); -lf[251]=C_h_intern(&lf[251],11, C_text("scheme.char")); -lf[252]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\141\154\160\150\141\142\145\164\151\143\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\141\154\160\150\141\142\145\164\151\143\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\150\141\162\055\143\151\074\075\077\376\001\000\000\021\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\143\150\141\162\055\143\151\074\077\376\001\000\000\020\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\143\150\141\162\055\143\151\075\077\376\001\000\000\020\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\150\141\162\055\143\151\076\075\077\376\001\000\000\021\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\143\150\141\162\055\143\151\076\077\376\001\000\000\020\001\163\143\150\145\155\145\043\143\150\141\162\055\143\151\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\144\157\167\156\143\141\163\145\376\001\000\000\024\001\163\143\150\145\155\145\043\143\150\141\162\055\144\157\167\156\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\146\157\154\144\143\141\163\145\376\001\000\000\024\001\163\143\150\145\155\145\043\143\150\141\162\055\146\157\154\144\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\154\157\167\145\162\055\143\141\163\145\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\154\157\167\145\162\055\143\141\163\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\156\165\155\145\162\151\143\077\376\001\000\000\024\001\163\143\150\145\155\145\043\143\150\141\162\055\156\165\155\145\162\151\143\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\143\150\141\162\055\165\160\143\141\163\145\376\001\000\000\022\001\163\143\150\145\155\145\043\143\150\141\162\055\165\160\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\165\160\160\145\162\055\143\141\163\145\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\165\160\160\145\162\055\143\141\163\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\150\141\162\055\167\150\151\164\145\163\160\141\143\145\077\376\001\000\000\027\001\163\143\150\145\155\145\043\143\150\141\162\055\167\150\151\164\145\163\160\141\143\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\144\151\147\151\164\055\166\141\154\165\145\376\001\000\000\027\001\163\143\150\145\155\145\056\143\150\141\162\043\144\151\147\151\164\055\166\141\154\165\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\143\151\074\075\077\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\151\074\077\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\151\075\077\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\143\151\076\075\077\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\151\076\077\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\151\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\163\164\162\151\156\147\055\144\157\167\156\143\141\163\145\376\001\000\000\026\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\144\157\167\156\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\163\164\162\151\156\147\055\146\157\154\144\143\141\163\145\376\001\000\000\026\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\146\157\154\144\143\141\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\163\164\162\151\156\147\055\165\160\143\141\163\145\376\001\000\000\024\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\165\160\143\141\163\145\376\377\016")); -lf[253]=C_h_intern(&lf[253],11, C_text("scheme.repl")); -lf[254]=C_h_intern(&lf[254],4, C_text("eval")); -lf[255]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001\151\156\164\145\162\141\143\164\151\157\156\055\145\156\166\151\162\157\156\155\145\156\164\376\001\000\000\036\001\163\143\150\145\155\145\043\151\156\164\145\162\141\143\164\151\157\156\055\145\156\166\151\162\157\156\155\145\156\164\376\377\016")); -lf[256]=C_h_intern(&lf[256],11, C_text("scheme.read")); -lf[257]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\162\145\141\144\376\001\000\000\013\001\163\143\150\145\155\145\043\162\145\141\144\376\377\016")); -lf[258]=C_h_intern(&lf[258],11, C_text("scheme.load")); -lf[259]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\154\157\141\144\376\001\000\000\013\001\163\143\150\145\155\145\043\154\157\141\144\376\377\016")); -lf[260]=C_h_intern(&lf[260],11, C_text("scheme.eval")); -lf[261]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\166\141\154\376\001\000\000\013\001\163\143\150\145\155\145\043\145\166\141\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\145\156\166\151\162\157\156\155\145\156\164\376\001\000\000\027\001\163\143\150\145\155\145\056\145\166\141\154\043\145\156\166\151\162\157\156\155\145\156\164\376\377\016")); -lf[262]=C_h_intern(&lf[262],7, C_text("srfi-88")); -lf[263]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\153\145\171\167\157\162\144\077\376\001\000\000\030\001\143\150\151\143\153\145\156\056\153\145\171\167\157\162\144\043\153\145\171\167\157\162\144\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\153\145\171\167\157\162\144\055\076\163\164\162\151\156\147\376\001\000\000\037\001\143\150\151\143\153\145\156\056\153\145\171\167\157\162\144\043\153\145\171\167\157\162\144\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\163\164\162\151\156\147\055\076\153\145\171\167\157\162\144\376\001\000\000\037\001\143\150\151\143\153\145\156\056\153\145\171\167\157\162\144\043\163\164\162\151\156\147\055\076\153\145\171\167\157\162\144\376\377\016")); -lf[264]=C_h_intern(&lf[264],7, C_text("srfi-55")); -lf[265]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\021\001\162\145\161\165\151\162\145\055\145\170\164\145\156\163\151\157\156\376\377\016")); -lf[266]=C_h_intern(&lf[266],7, C_text("srfi-31")); -lf[267]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\162\145\143\376\377\016")); -lf[268]=C_h_intern(&lf[268],7, C_text("srfi-28")); -lf[269]=C_h_intern(&lf[269],6, C_text("extras")); -lf[270]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\146\157\162\155\141\164\376\001\000\000\025\001\143\150\151\143\153\145\156\056\146\157\162\155\141\164\043\146\157\162\155\141\164\376\377\016")); -lf[271]=C_h_intern(&lf[271],7, C_text("srfi-26")); -lf[272]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\003\001\143\165\164\376\003\000\000\002\376\001\000\000\004\001\143\165\164\145\376\377\016")); -lf[273]=C_h_intern(&lf[273],7, C_text("srfi-17")); -lf[274]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\147\145\164\164\145\162\055\167\151\164\150\055\163\145\164\164\145\162\376\001\000\000\037\001\143\150\151\143\153\145\156\056\142\141\163\145\043\147\145\164\164\145\162\055\167\151\164\150\055\163\145\164\164\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\145\164\164\145\162\376\001\000\000\023\001\143\150\151\143\153\145\156\056\142\141\163\145\043\163\145\164\164\145\162\376\377\016")); -lf[275]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\004\001\163\145\164\041\376\377\016")); -lf[276]=C_h_intern(&lf[276],31, C_text("##sys#default-macro-environment")); -lf[277]=C_h_intern(&lf[277],14, C_text("scheme.inexact")); -lf[278]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\145\170\160\376\001\000\000\012\001\163\143\150\145\155\145\043\145\170\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\154\157\147\376\001\000\000\012\001\163\143\150\145\155\145\043\154\157\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\170\160\164\376\001\000\000\013\001\163\143\150\145\155\145\043\145\170\160\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\163\161\162\164\376\001\000\000\013\001\163\143\150\145\155\145\043\163\161\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\156\141\156\077\376\001\000\000\021\001\143\150\151\143\153\145\156\056\142\141\163\145\043\156\141\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\163\151\156\376\001\000\000\012\001\163\143\150\145\155\145\043\163\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\143\157\163\376\001\000\000\012\001\163\143\150\145\155\145\043\143\157\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\164\141\156\376\001\000\000\012\001\163\143\150\145\155\145\043\164\141\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\163\151\156\376\001\000\000\013\001\163\143\150\145\155\145\043\141\163\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\143\157\163\376\001\000\000\013\001\163\143\150\145\155\145\043\141\143\157\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\164\141\156\376\001\000\000\013\001\163\143\150\145\155\145\043\141\164\141\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\146\151\156\151\164\145\077\376\001\000\000\024\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\151\156\151\164\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\151\156\146\151\156\151\164\145\077\376\001\000\000\026\001\143\150\151\143\153\145\156\056\142\141\163\145\043\151\156\146\151\156\151\164\145\077\376\377\016")); -lf[279]=C_h_intern(&lf[279],10, C_text("scheme.cxr")); -lf[280]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\141\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\141\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\144\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\141\144\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\141\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\141\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\141\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\144\141\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\144\144\144\162\376\001\000\000\014\001\163\143\150\145\155\145\043\143\144\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\141\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\141\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\141\144\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\141\144\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\141\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\141\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\141\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\141\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\144\141\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\144\144\144\144\162\376\001\000\000\015\001\163\143\150\145\155\145\043\143\144\144\144\144\162\376\377\016")); -lf[281]=C_h_intern(&lf[281],14, C_text("scheme.complex")); -lf[282]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\151\155\141\147\055\160\141\162\164\376\001\000\000\020\001\163\143\150\145\155\145\043\151\155\141\147\055\160\141\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\145\141\154\055\160\141\162\164\376\001\000\000\020\001\163\143\150\145\155\145\043\162\145\141\154\055\160\141\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\155\141\153\145\055\162\145\143\164\141\156\147\165\154\141\162\376\001\000\000\027\001\163\143\150\145\155\145\043\155\141\153\145\055\162\145\143\164\141\156\147\165\154\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\155\141\153\145\055\160\157\154\141\162\376\001\000\000\021\001\163\143\150\145\155\145\043\155\141\153\145\055\160\157\154\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\156\147\154\145\376\001\000\000\014\001\163\143\150\145\155\145\043\141\156\147\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\155\141\147\156\151\164\165\144\145\376\001\000\000\020\001\163\143\150\145\155\145\043\155\141\147\156\151\164\165\144\145\376\377\016")); -lf[283]=C_h_intern(&lf[283],5, C_text("delay")); -lf[284]=C_h_intern(&lf[284],11, C_text("scheme.lazy")); -lf[285]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\146\157\162\143\145\376\001\000\000\014\001\163\143\150\145\155\145\043\146\157\162\143\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\160\162\157\155\151\163\145\077\376\001\000\000\025\001\143\150\151\143\153\145\156\056\142\141\163\145\043\160\162\157\155\151\163\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\155\141\153\145\055\160\162\157\155\151\163\145\376\001\000\000\031\001\143\150\151\143\153\145\156\056\142\141\163\145\043\155\141\153\145\055\160\162\157\155\151\163\145\376\377\016")); -lf[286]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\013\001\144\145\154\141\171\055\146\157\162\143\145\376\377\016")); -lf[287]=C_h_intern(&lf[287],18, C_text("scheme.case-lambda")); -lf[288]=C_h_intern(&lf[288],42, C_text("##sys#scheme.case-lambda-macro-environment")); -lf[289]=C_h_intern(&lf[289],7, C_text("srfi-15")); -lf[290]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\011\001\146\154\165\151\144\055\154\145\164\376\377\016")); -lf[291]=C_h_intern(&lf[291],7, C_text("srfi-12")); -lf[292]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\142\157\162\164\376\001\000\000\027\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\141\142\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\157\156\144\151\164\151\157\156\077\376\001\000\000\034\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\143\157\156\144\151\164\151\157\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001\143\157\156\144\151\164\151\157\156\055\160\162\145\144\151\143\141\164\145\376\001\000\000\045\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\143\157\156\144\151\164\151\157\156\055\160\162\145\144\151\143\141\164\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\033\001\143\157\156\144\151\164\151\157\156\055\160\162\157\160\145\162\164\171\055\141\143\143\145\163\163\157\162\376\001\000\000\055\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\143\157\156\144\151\164\151\157\156\055\160\162\157\160\145\162\164\171\055\141\143\143\145\163\163\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001\143\165\162\162\145\156\164\055\145\170\143\145\160\164\151\157\156\055\150\141\156\144\154\145\162\376\001\000\000\053\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\143\165\162\162\145\156\164\055\145\170\143\145\160\164\151\157\156\055\150\141\156\144\154\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\030\001\155\141\153\145\055\143\157\155\160\157\163\151\164\145\055\143\157\156\144\151\164\151\157\156\376\001\000\000\052\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\155\141\153\145\055\143\157\155\160\157\163\151\164\145\055\143\157\156\144\151\164\151\157\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\027\001\155\141\153\145\055\160\162\157\160\145\162\164\171\055\143\157\156\144\151\164\151\157\156\376\001\000\000\051\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\155\141\153\145\055\160\162\157\160\145\162\164\171\055\143\157\156\144\151\164\151\157\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\151\147\156\141\154\376\001\000\000\030\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\163\151\147\156\141\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001\167\151\164\150\055\145\170\143\145\160\164\151\157\156\055\150\141\156\144\154\145\162\376\001\000\000\050\001\143\150\151\143\153\145\156\056\143\157\156\144\151\164\151\157\156\043\167\151\164\150\055\145\170\143\145\160\164\151\157\156\055\150\141\156\144\154\145\162\376\377\016")); -lf[293]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\021\001\150\141\156\144\154\145\055\145\170\143\145\160\164\151\157\156\163\376\377\016")); -lf[294]=C_h_intern(&lf[294],41, C_text("##sys#chicken.condition-macro-environment")); -lf[295]=C_h_intern(&lf[295],7, C_text("srfi-10")); -lf[296]=C_h_intern(&lf[296],11, C_text("read-syntax")); -lf[297]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\144\145\146\151\156\145\055\162\145\141\144\145\162\055\143\164\157\162\376\001\000\000\046\001\143\150\151\143\153\145\156\056\162\145\141\144\055\163\171\156\164\141\170\043\144\145\146\151\156\145\055\162\145\141\144\145\162\055\143\164\157\162\376\377\016")); -lf[298]=C_h_intern(&lf[298],6, C_text("srfi-9")); -lf[299]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\022\001\144\145\146\151\156\145\055\162\145\143\157\162\144\055\164\171\160\145\376\377\016")); -lf[300]=C_h_intern(&lf[300],6, C_text("srfi-8")); -lf[301]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\007\001\162\145\143\145\151\166\145\376\377\016")); -lf[302]=C_h_intern(&lf[302],6, C_text("srfi-2")); -lf[303]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\010\001\141\156\144\055\154\145\164\052\376\377\016")); -lf[304]=C_h_intern(&lf[304],12, C_text("chicken.type")); -lf[305]=C_h_intern(&lf[305],36, C_text("##sys#chicken.type-macro-environment")); -lf[306]=C_h_intern(&lf[306],14, C_text("chicken.module")); -lf[307]=C_h_intern(&lf[307],38, C_text("##sys#chicken.module-macro-environment")); -lf[308]=C_h_intern(&lf[308],23, C_text("chicken.internal.syntax")); -lf[309]=C_h_intern(&lf[309],11, C_text("scheme.base")); -lf[310]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\156\157\164\376\001\000\000\012\001\163\143\150\145\155\145\043\156\157\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\142\157\157\154\145\141\156\077\376\001\000\000\017\001\163\143\150\145\155\145\043\142\157\157\154\145\141\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\145\161\077\376\001\000\000\012\001\163\143\150\145\155\145\043\145\161\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\161\166\077\376\001\000\000\013\001\163\143\150\145\155\145\043\145\161\166\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\145\161\165\141\154\077\376\001\000\000\015\001\163\143\150\145\155\145\043\145\161\165\141\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\160\141\151\162\077\376\001\000\000\014\001\163\143\150\145\155\145\043\160\141\151\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\157\156\163\376\001\000\000\013\001\163\143\150\145\155\145\043\143\157\156\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\143\141\162\376\001\000\000\012\001\163\143\150\145\155\145\043\143\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\143\144\162\376\001\000\000\012\001\163\143\150\145\155\145\043\143\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\141\141\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\141\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\141\144\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\141\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\144\141\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\144\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\143\144\144\162\376\001\000\000\013\001\163\143\150\145\155\145\043\143\144\144\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\145\164\055\143\141\162\041\376\001\000\000\017\001\163\143\150\145\155\145\043\163\145\164\055\143\141\162\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\145\164\055\143\144\162\041\376\001\000\000\017\001\163\143\150\145\155\145\043\163\145\164\055\143\144\162\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\156\165\154\154\077\376\001\000\000\014\001\163\143\150\145\155\145\043\156\165\154\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\154\151\163\164\077\376\001\000\000\014\001\163\143\150\145\155\145\043\154\151\163\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\154\151\163\164\376\001\000\000\013\001\163\143\150\145\155\145\043\154\151\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\154\145\156\147\164\150\376\001\000\000\015\001\163\143\150\145\155\145\043\154\145\156\147\164\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\154\151\163\164\055\164\141\151\154\376\001\000\000\020\001\163\143\150\145\155\145\043\154\151\163\164\055\164\141\151\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\154\151\163\164\055\162\145\146\376\001\000\000\017\001\163\143\150\145\155\145\043\154\151\163\164\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\154\151\163\164\055\163\145\164\041\376\001\000\000\020\001\163\143\150\145\155\145\043\154\151\163\164\055\163\145\164\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\154\151\163\164\055\143\157\160\171\376\001\000\000\020\001\163\143\150\145\155\145\043\154\151\163\164\055\143\157\160\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\142\157\157\154\145\141\156\075\077\376\001\000\000\020\001\163\143\150\145\155\145\043\142\157\157\154\145\141\156\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\171\155\142\157\154\075\077\376\001\000\000\017\001\163\143\150\145\155\145\043\163\171\155\142\157\154\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\141\160\160\145\156\144\376\001\000\000\015\001\163\143\150\145\155\145\043\141\160\160\145\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\162\145\166\145\162\163\145\376\001\000\000\016\001\163\143\150\145\155\145\043\162\145\166\145\162\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\155\145\155\161\376\001\000\000\013\001\163\143\150\145\155\145\043\155\145\155\161\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\155\145\155\166\376\001\000\000\013\001\163\143\150\145\155\145\043\155\145\155\166\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\155\145\155\142\145\162\376\001\000\000\015\001\163\143\150\145\155\145\043\155\145\155\142\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\163\163\161\376\001\000\000\013\001\163\143\150\145\155\145\043\141\163\163\161\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\141\163\163\166\376\001\000\000\013\001\163\143\150\145\155\145\043\141\163\163\166\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\163\163\157\143\376\001\000\000\014\001\163\143\150\145\155\145\043\141\163\163\157\143\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\163\171\155\142\157\154\077\376\001\000\000\016\001\163\143\150\145\155\145\043\163\171\155\142\157\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\160\157\162\164\077\376\001\000\000\014\001\163\143\150\145\155\145\043\160\157\162\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\151\156\160\165\164\055\160\157\162\164\055\157\160\145\156\077\376\001\000\000\027\001\163\143\150\145\155\145\043\151\156\160\165\164\055\160\157\162\164\055\157\160\145\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\157\165\164\160\165\164\055\160\157\162\164\055\157\160\145\156\077\376\001\000\000\030\001\163\143\150\145\155\145\043\157\165\164\160\165\164\055\160\157\162\164\055\157\160\145\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\143\141\154\154\055\167\151\164\150\055\160\157\162\164\376\001\000\000\025\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\163\171\155\142\157\154\055\076\163\164\162\151\156\147\376\001\000\000\025\001\163\143\150\145\155\145\043\163\171\155\142\157\154\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\163\164\162\151\156\147\055\076\163\171\155\142\157\154\376\001\000\000\025\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\076\163\171\155\142\157\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\163\164\162\151\156\147\055\076\166\145\143\164\157\162\376\001\000\000\025\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\076\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\166\145\143\164\157\162\055\076\163\164\162\151\156\147\376\001\000\000\025\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\166\145\143\164\157\162\055\141\160\160\145\156\144\376\001\000\000\024\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\141\160\160\145\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\166\145\143\164\157\162\055\155\141\160\376\001\000\000\021\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\155\141\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\166\145\143\164\157\162\055\146\157\162\055\145\141\143\150\376\001\000\000\026\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\146\157\162\055\145\141\143\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\163\164\162\151\156\147\055\155\141\160\376\001\000\000\021\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\155\141\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\163\164\162\151\156\147\055\146\157\162\055\145\141\143\150\376\001\000\000\026\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\146\157\162\055\145\141\143\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\156\165\155\142\145\162\077\376\001\000\000\016\001\163\143\150\145\155\145\043\156\165\155\142\145\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\151\156\164\145\147\145\162\077\376\001\000\000\017\001\163\143\150\145\155\145\043\151\156\164\145\147\145\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\145\170\141\143\164\077\376\001\000\000\015\001\163\143\150\145\155\145\043\145\170\141\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\162\145\141\154\077\376\001\000\000\014\001\163\143\150\145\155\145\043\162\145\141\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\143\157\155\160\154\145\170\077\376\001\000\000\017\001\163\143\150\145\155\145\043\143\157\155\160\154\145\170\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\151\156\145\170\141\143\164\077\376\001\000\000\017\001\163\143\150\145\155\145\043\151\156\145\170\141\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\141\164\151\157\156\141\154\077\376\001\000\000\020\001\163\143\150\145\155\145\043\162\141\164\151\157\156\141\154\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\172\145\162\157\077\376\001\000\000\014\001\163\143\150\145\155\145\043\172\145\162\157\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\157\144\144\077\376\001\000\000\013\001\163\143\150\145\155\145\043\157\144\144\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\145\166\145\156\077\376\001\000\000\014\001\163\143\150\145\155\145\043\145\166\145\156\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\160\157\163\151\164\151\166\145\077\376\001\000\000\020\001\163\143\150\145\155\145\043\160\157\163\151\164\151\166\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\156\145\147\141\164\151\166\145\077\376\001\000\000\020\001\163\143\150\145\155\145\043\156\145\147\141\164\151\166\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\155\141\170\376\001\000\000\012\001\163\143\150\145\155\145\043\155\141\170\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\155\151\156\376\001\000\000\012\001\163\143\150\145\155\145\043\155\151\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\053\376\001\000\000\010\001\163\143\150\145\155\145\043\053\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\055\376\001\000\000\010\001\163\143\150\145\155\145\043\055\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\052\376\001\000\000\010\001\163\143\150\145\155\145\043\052\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\057\376\001\000\000\010\001\163\143\150\145\155\145\043\057\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\075\376\001\000\000\010\001\163\143\150\145\155\145\043\075\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\076\376\001\000\000\010\001\163\143\150\145\155\145\043\076\376\003\000\000\002\376\003\000\000\002\376\001\000\000\001\001\074\376\001\000\000\010\001\163\143\150\145\155\145\043\074\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001\076\075\376\001\000\000\011\001\163\143\150\145\155\145\043\076\075\376\003\000\000\002\376\003\000\000\002\376\001\000\000\002\001\074\075\376\001\000\000\011\001\163\143\150\145\155\145\043\074\075\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\161\165\157\164\151\145\156\164\376\001\000\000\017\001\163\143\150\145\155\145\043\161\165\157\164\151\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\145\155\141\151\156\144\145\162\376\001\000\000\020\001\163\143\150\145\155\145\043\162\145\155\141\151\156\144\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\146\154\157\157\162\055\161\165\157\164\151\145\156\164\376\001\000\000\025\001\163\143\150\145\155\145\043\146\154\157\157\162\055\161\165\157\164\151\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\146\154\157\157\162\055\162\145\155\141\151\156\144\145\162\376\001\000\000\026\001\163\143\150\145\155\145\043\146\154\157\157\162\055\162\145\155\141\151\156\144\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\164\162\165\156\143\141\164\145\055\161\165\157\164\151\145\156\164\376\001\000\000\017\001\163\143\150\145\155\145\043\161\165\157\164\151\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\164\162\165\156\143\141\164\145\055\162\145\155\141\151\156\144\145\162\376\001\000\000\020\001\163\143\150\145\155\145\043\162\145\155\141\151\156\144\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\146\154\157\157\162\057\376\001\000\000\015\001\163\143\150\145\155\145\043\146\154\157\157\162\057\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\164\162\165\156\143\141\164\145\057\376\001\000\000\020\001\163\143\150\145\155\145\043\164\162\165\156\143\141\164\145\057\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\155\157\144\165\154\157\376\001\000\000\015\001\163\143\150\145\155\145\043\155\157\144\165\154\157\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\147\143\144\376\001\000\000\012\001\163\143\150\145\155\145\043\147\143\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\154\143\155\376\001\000\000\012\001\163\143\150\145\155\145\043\154\143\155\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\141\142\163\376\001\000\000\012\001\163\143\150\145\155\145\043\141\142\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\146\154\157\157\162\376\001\000\000\014\001\163\143\150\145\155\145\043\146\154\157\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\145\151\154\151\156\147\376\001\000\000\016\001\163\143\150\145\155\145\043\143\145\151\154\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\164\162\165\156\143\141\164\145\376\001\000\000\017\001\163\143\150\145\155\145\043\164\162\165\156\143\141\164\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\162\157\165\156\144\376\001\000\000\014\001\163\143\150\145\155\145\043\162\157\165\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\162\141\164\151\157\156\141\154\151\172\145\376\001\000\000\022\001\163\143\150\145\155\145\043\162\141\164\151\157\156\141\154\151\172\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\151\156\145\170\141\143\164\376\001\000\000\025\001\163\143\150\145\155\145\043\145\170\141\143\164\055\076\151\156\145\170\141\143\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\145\170\141\143\164\376\001\000\000\025\001\163\143\150\145\155\145\043\151\156\145\170\141\143\164\055\076\145\170\141\143\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\163\161\162\164\376\001\000\000\013\001\163\143\150\145\155\145\043\163\161\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\161\165\141\162\145\376\001\000\000\015\001\163\143\150\145\155\145\043\163\161\165\141\162\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\145\170\141\143\164\055\151\156\164\145\147\145\162\055\163\161\162\164\376\001\000\000\031\001\163\143\150\145\155\145\043\145\170\141\143\164\055\151\156\164\145\147\145\162\055\163\161\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\156\165\155\142\145\162\055\076\163\164\162\151\156\147\376\001\000\000\025\001\163\143\150\145\155\145\043\156\165\155\142\145\162\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\163\164\162\151\156\147\055\076\156\165\155\142\145\162\376\001\000\000\025\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\076\156\165\155\142\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\143\150\141\162\077\376\001\000\000\014\001\163\143\150\145\155\145\043\143\150\141\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\150\141\162\075\077\376\001\000\000\015\001\163\143\150\145\155\145\043\143\150\141\162\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\150\141\162\076\077\376\001\000\000\015\001\163\143\150\145\155\145\043\143\150\141\162\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\143\150\141\162\074\077\376\001\000\000\015\001\163\143\150\145\155\145\043\143\150\141\162\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\150\141\162\076\075\077\376\001\000\000\016\001\163\143\150\145\155\145\043\143\150\141\162\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\150\141\162\074\075\077\376\001\000\000\016\001\163\143\150\145\155\145\043\143\150\141\162\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\143\150\141\162\055\076\151\156\164\145\147\145\162\376\001\000\000\024\001\163\143\150\145\155\145\043\143\150\141\162\055\076\151\156\164\145\147\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\151\156\164\145\147\145\162\055\076\143\150\141\162\376\001\000\000\024\001\163\143\150\145\155\145\043\151\156\164\145\147\145\162\055\076\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\163\164\162\151\156\147\077\376\001\000\000\016\001\163\143\150\145\155\145\043\163\164\162\151\156\147\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\164\162\151\156\147\075\077\376\001\000\000\017\001\163\143\150\145\155\145\043\163\164\162\151\156\147\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\164\162\151\156\147\076\077\376\001\000\000\017\001\163\143\150\145\155\145\043\163\164\162\151\156\147\076\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\163\164\162\151\156\147\074\077\376\001\000\000\017\001\163\143\150\145\155\145\043\163\164\162\151\156\147\074\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\163\164\162\151\156\147\076\075\077\376\001\000\000\020\001\163\143\150\145\155\145\043\163\164\162\151\156\147\076\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\163\164\162\151\156\147\074\075\077\376\001\000\000\020\001\163\143\150\145\155\145\043\163\164\162\151\156\147\074\075\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\155\141\153\145\055\163\164\162\151\156\147\376\001\000\000\022\001\163\143\150\145\155\145\043\155\141\153\145\055\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\155\141\153\145\055\154\151\163\164\376\001\000\000\020\001\163\143\150\145\155\145\043\155\141\153\145\055\154\151\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\163\164\162\151\156\147\055\154\145\156\147\164\150\376\001\000\000\024\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\154\145\156\147\164\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\163\164\162\151\156\147\055\162\145\146\376\001\000\000\021\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\163\145\164\041\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\163\145\164\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\163\164\162\151\156\147\055\141\160\160\145\156\144\376\001\000\000\024\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\141\160\160\145\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\163\164\162\151\156\147\055\143\157\160\171\376\001\000\000\022\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\157\160\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\143\157\160\171\041\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\143\157\160\171\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\076\154\151\163\164\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\076\154\151\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\154\151\163\164\055\076\163\164\162\151\156\147\376\001\000\000\023\001\163\143\150\145\155\145\043\154\151\163\164\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\163\165\142\163\164\162\151\156\147\376\001\000\000\020\001\163\143\150\145\155\145\043\163\165\142\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\146\151\154\154\041\376\001\000\000\023\001\163\143\150\145\155\145\043\163\164\162\151\156\147\055\146\151\154\154\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\166\145\143\164\157\162\077\376\001\000\000\016\001\163\143\150\145\155\145\043\166\145\143\164\157\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\155\141\153\145\055\166\145\143\164\157\162\376\001\000\000\022\001\163\143\150\145\155\145\043\155\141\153\145\055\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\166\145\143\164\157\162\055\162\145\146\376\001\000\000\021\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\166\145\143\164\157\162\055\163\145\164\041\376\001\000\000\022\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\163\145\164\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\163\164\162\151\156\147\376\001\000\000\015\001\163\143\150\145\155\145\043\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\166\145\143\164\157\162\376\001\000\000\015\001\163\143\150\145\155\145\043\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\166\145\143\164\157\162\055\154\145\156\147\164\150\376\001\000\000\024\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\154\145\156\147\164\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\166\145\143\164\157\162\055\076\154\151\163\164\376\001\000\000\023\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\076\154\151\163\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\154\151\163\164\055\076\166\145\143\164\157\162\376\001\000\000\023\001\163\143\150\145\155\145\043\154\151\163\164\055\076\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\166\145\143\164\157\162\055\143\157\160\171\376\001\000\000\022\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\143\157\160\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\166\145\143\164\157\162\055\143\157\160\171\041\376\001\000\000\023\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\143\157\160\171\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\166\145\143\164\157\162\055\146\151\154\154\041\376\001\000\000\023\001\163\143\150\145\155\145\043\166\145\143\164\157\162\055\146\151\154\154\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\141\154\154\055\167\151\164\150\055\166\141\154\165\145\163\376\001\000\000\027\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\166\141\154\165\145\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\166\141\154\165\145\163\376\001\000\000\015\001\163\143\150\145\155\145\043\166\141\154\165\145\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\160\162\157\143\145\144\165\162\145\077\376\001\000\000\021\001\163\143\150\145\155\145\043\160\162\157\143\145\144\165\162\145\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\016\001\155\141\153\145\055\160\141\162\141\155\145\164\145\162\376\001\000\000\025\001\163\143\150\145\155\145\043\155\141\153\145\055\160\141\162\141\155\145\164\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\003\001\155\141\160\376\001\000\000\012\001\163\143\150\145\155\145\043\155\141\160\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\146\157\162\055\145\141\143\150\376\001\000\000\017\001\163\143\150\145\155\145\043\146\157\162\055\145\141\143\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\141\160\160\154\171\376\001\000\000\014\001\163\143\150\145\155\145\043\141\160\160\154\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\144\171\156\141\155\151\143\055\167\151\156\144\376\001\000\000\023\001\163\143\150\145\155\145\043\144\171\156\141\155\151\143\055\167\151\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\036\001\143\141\154\154\055\167\151\164\150\055\143\165\162\162\145\156\164\055\143\157\156\164\151\156\165\141\164\151\157\156\376\001\000\000\045\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\143\165\162\162\145\156\164\055\143\157\156\164\151\156\165\141\164\151\157\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\143\141\154\154\057\143\143\376\001\000\000\045\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\143\165\162\162\145\156\164\055\143\157\156\164\151\156\165\141\164\151\157\156\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\151\156\160\165\164\055\160\157\162\164\077\376\001\000\000\022\001\163\143\150\145\155\145\043\151\156\160\165\164\055\160\157\162\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\157\165\164\160\165\164\055\160\157\162\164\077\376\001\000\000\023\001\163\143\150\145\155\145\043\157\165\164\160\165\164\055\160\157\162\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\143\165\162\162\145\156\164\055\151\156\160\165\164\055\160\157\162\164\376\001\000\000\031\001\163\143\150\145\155\145\043\143\165\162\162\145\156\164\055\151\156\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001\143\165\162\162\145\156\164\055\157\165\164\160\165\164\055\160\157\162\164\376\001\000\000\032\001\163\143\150\145\155\145\043\143\165\162\162\145\156\164\055\157\165\164\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\143\165\162\162\145\156\164\055\145\162\162\157\162\055\160\157\162\164\376\001\000\000\037\001\143\150\151\143\153\145\156\056\142\141\163\145\043\143\165\162\162\145\156\164\055\145\162\162\157\162\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\157\160\145\156\055\151\156\160\165\164\055\146\151\154\145\376\001\000\000\026\001\163\143\150\145\155\145\043\157\160\145\156\055\151\156\160\165\164\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\157\160\145\156\055\157\165\164\160\165\164\055\146\151\154\145\376\001\000\000\027\001\163\143\150\145\155\145\043\157\160\145\156\055\157\165\164\160\165\164\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\154\157\163\145\055\151\156\160\165\164\055\160\157\162\164\376\001\000\000\027\001\163\143\150\145\155\145\043\143\154\157\163\145\055\151\156\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\143\154\157\163\145\055\157\165\164\160\165\164\055\160\157\162\164\376\001\000\000\030\001\163\143\150\145\155\145\043\143\154\157\163\145\055\157\165\164\160\165\164\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\145\141\144\055\143\150\141\162\376\001\000\000\020\001\163\143\150\145\155\145\043\162\145\141\144\055\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\160\145\145\153\055\143\150\141\162\376\001\000\000\020\001\163\143\150\145\155\145\043\160\145\145\153\055\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\162\145\141\144\055\163\164\162\151\156\147\376\001\000\000\026\001\143\150\151\143\153\145\156\056\151\157\043\162\145\141\144\055\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\160\145\145\153\055\165\070\376\001\000\000\016\001\163\143\150\145\155\145\043\160\145\145\153\055\165\070\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\146\145\141\164\165\162\145\163\376\001\000\000\017\001\163\143\150\145\155\145\043\146\145\141\164\165\162\145\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\162\145\141\144\055\165\070\376\001\000\000\024\001\143\150\151\143\153\145\156\056\151\157\043\162\145\141\144\055\142\171\164\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\010\001\167\162\151\164\145\055\165\070\376\001\000\000\025\001\143\150\151\143\153\145\156\056\151\157\043\167\162\151\164\145\055\142\171\164\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\167\162\151\164\145\055\143\150\141\162\376\001\000\000\021\001\163\143\150\145\155\145\043\167\162\151\164\145\055\143\150\141\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\007\001\156\145\167\154\151\156\145\376\001\000\000\016\001\163\143\150\145\155\145\043\156\145\167\154\151\156\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\145\157\146\055\157\142\152\145\143\164\077\376\001\000\000\022\001\163\143\150\145\155\145\043\145\157\146\055\157\142\152\145\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\145\157\146\055\157\142\152\145\143\164\376\001\000\000\021\001\163\143\150\145\155\145\043\145\157\146\055\157\142\152\145\143\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\146\154\165\163\150\055\157\165\164\160\165\164\055\160\157\162\164\376\001\000\000\031\001\143\150\151\143\153\145\156\056\142\141\163\145\043\146\154\165\163\150\055\157\165\164\160\165\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001\167\151\164\150\055\151\156\160\165\164\055\146\162\157\155\055\146\151\154\145\376\001\000\000\033\001\163\143\150\145\155\145\043\167\151\164\150\055\151\156\160\165\164\055\146\162\157\155\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\023\001\167\151\164\150\055\157\165\164\160\165\164\055\164\157\055\146\151\154\145\376\001\000\000\032\001\163\143\150\145\155\145\043\167\151\164\150\055\157\165\164\160\165\164\055\164\157\055\146\151\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\143\154\157\163\145\055\160\157\162\164\376\001\000\000\021\001\163\143\150\145\155\145\043\143\154\157\163\145\055\160\157\162\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\143\150\141\162\055\162\145\141\144\171\077\376\001\000\000\022\001\163\143\150\145\155\145\043\143\150\141\162\055\162\145\141\144\171\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\165\070\055\162\145\141\144\171\077\376\001\000\000\020\001\163\143\150\145\155\145\043\165\070\055\162\145\141\144\171\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\156\165\155\145\162\141\164\157\162\376\001\000\000\020\001\163\143\150\145\155\145\043\156\165\155\145\162\141\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\144\145\156\157\155\151\156\141\164\157\162\376\001\000\000\022\001\163\143\150\145\155\145\043\144\145\156\157\155\151\156\141\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\031\001\163\143\150\145\155\145\055\162\145\160\157\162\164\055\145\156\166\151\162\157\156\155\145\156\164\376\001\000\000\040\001\163\143\150\145\155\145\043\163\143\150\145\155\145\055\162\145\160\157\162\164\055\145\156\166\151\162\157\156\155\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\156\165\154\154\055\145\156\166\151\162\157\156\155\145\156\164\376\001\000\000\027\001\163\143\150\145\155\145\043\156\165\154\154\055\145\156\166\151\162\157\156\155\145\156\164\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\157\160\145\156\055\151\156\160\165\164\055\163\164\162\151\156\147\376\001\000\000\030\001\163\143\150\145\155\145\043\157\160\145\156\055\151\156\160\165\164\055\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\157\160\145\156\055\157\165\164\160\165\164\055\163\164\162\151\156\147\376\001\000\000\031\001\163\143\150\145\155\145\043\157\160\145\156\055\157\165\164\160\165\164\055\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001\157\160\145\156\055\157\165\164\160\165\164\055\142\171\164\145\166\145\143\164\157\162\376\001\000\000\035\001\163\143\150\145\155\145\043\157\160\145\156\055\157\165\164\160\165\164\055\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001\157\160\145\156\055\151\156\160\165\164\055\142\171\164\145\166\145\143\164\157\162\376\001\000\000\034\001\163\143\150\145\155\145\043\157\160\145\156\055\151\156\160\165\164\055\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\147\145\164\055\157\165\164\160\165\164\055\163\164\162\151\156\147\376\001\000\000\030\001\163\143\150\145\155\145\043\147\145\164\055\157\165\164\160\165\164\055\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\025\001\147\145\164\055\157\165\164\160\165\164\055\142\171\164\145\166\145\143\164\157\162\376\001\000\000\034\001\163\143\150\145\155\145\043\147\145\164\055\157\165\164\160\165\164\055\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001\167\151\164\150\055\145\170\143\145\160\164\151\157\156\055\150\141\156\144\154\145\162\376\001\000\000\035\001\163\143\150\145\155\145\043\167\151\164\150\055\145\170\143\145\160\164\151\157\156\055\150\141\156\144\154\145\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\162\141\151\163\145\376\001\000\000\014\001\163\143\150\145\155\145\043\162\141\151\163\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\162\141\151\163\145\055\143\157\156\164\151\156\165\141\142\154\145\376\001\000\000\030\001\163\143\150\145\155\145\043\162\141\151\163\145\055\143\157\156\164\151\156\165\141\142\154\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\005\001\145\162\162\157\162\376\001\000\000\022\001\143\150\151\143\153\145\156\056\142\141\163\145\043\145\162\162\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\146\151\154\145\055\145\162\162\157\162\077\376\001\000\000\022\001\163\143\150\145\155\145\043\146\151\154\145\055\145\162\162\157\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\162\145\141\144\055\145\162\162\157\162\077\376\001\000\000\022\001\163\143\150\145\155\145\043\162\145\141\144\055\145\162\162\157\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\015\001\145\162\162\157\162\055\157\142\152\145\143\164\077\376\001\000\000\024\001\163\143\150\145\155\145\043\145\162\162\157\162\055\157\142\152\145\143\164\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\024\001\145\162\162\157\162\055\157\142\152\145\143\164\055\155\145\163\163\141\147\145\376\001\000\000\033\001\163\143\150\145\155\145\043\145\162\162\157\162\055\157\142\152\145\143\164\055\155\145\163\163\141\147\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\026\001\145\162\162\157\162\055\157\142\152\145\143\164\055\151\162\162\151\164\141\156\164\163\376\001\000\000\035\001\163\143\150\145\155\145\043\145\162\162\157\162\055\157\142\152\145\143\164\055\151\162\162\151\164\141\156\164\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\163\164\162\151\156\147\055\076\165\164\146\070\376\001\000\000\037\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\163\164\162\151\156\147\055\076\165\164\146\070\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\165\164\146\070\055\076\163\164\162\151\156\147\376\001\000\000\037\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\165\164\146\070\055\076\163\164\162\151\156\147\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\167\162\151\164\145\055\142\171\164\145\166\145\143\164\157\162\376\001\000\000\027\001\163\143\150\145\155\145\043\167\162\151\164\145\055\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\012\001\142\171\164\145\166\145\143\164\157\162\376\001\000\000\035\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\142\171\164\145\166\145\143\164\157\162\055\154\145\156\147\164\150\376\001\000\000\044\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\154\145\156\147\164\150\376\003\000\000\002\376\003\000\000\002\376\001\000\000\013\001\142\171\164\145\166\145\143\164\157\162\077\376\001\000\000\036\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\077\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\155\141\153\145\055\142\171\164\145\166\145\143\164\157\162\376\001\000\000\042\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\155\141\153\145\055\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\142\171\164\145\166\145\143\164\157\162\055\141\160\160\145\156\144\376\001\000\000\044\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\141\160\160\145\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\142\171\164\145\166\145\143\164\157\162\055\143\157\160\171\376\001\000\000\042\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\143\157\160\171\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\142\171\164\145\166\145\143\164\157\162\055\143\157\160\171\041\376\001\000\000\043\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\143\157\160\171\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\021\001\142\171\164\145\166\145\143\164\157\162\055\165\070\055\162\145\146\376\001\000\000\044\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\165\070\055\162\145\146\376\003\000\000\002\376\003\000\000\002\376\001\000\000\022\001\142\171\164\145\166\145\143\164\157\162\055\165\070\055\163\145\164\041\376\001\000\000\045\001\143\150\151\143\153\145\156\056\142\171\164\145\166\145\143\164\157\162\043\142\171\164\145\166\145\143\164\157\162\055\165\070\055\163\145\164\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\017\001\162\145\141\144\055\142\171\164\145\166\145\143\164\157\162\376\001\000\000\032\001\143\150\151\143\153\145\156\056\151\157\043\162\145\141\144\055\142\171\164\145\166\145\143\164\157\162\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\162\145\141\144\055\142\171\164\145\166\145\143\164\157\162\041\376\001\000\000\033\001\143\150\151\143\153\145\156\056\151\157\043\162\145\141\144\055\142\171\164\145\166\145\143\164\157\162\041\376\003\000\000\002\376\003\000\000\002\376\001\000\000\011\001\162\145\141\144\055\154\151\156\145\376\001\000\000\024\001\143\150\151\143\153\145\156\056\151\157\043\162\145\141\144\055\154\151\156\145\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\167\162\151\164\145\055\163\164\162\151\156\147\376\001\000\000\023\001\163\143\150\145\155\145\043\167\162\151\164\145\055\163\164\162\151\156\147\376\377\016")); -lf[311]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\001\000\000\006\001\144\145\146\151\156\145\376\003\000\000\002\376\001\000\000\003\001\154\145\164\376\003\000\000\002\376\001\000\000\004\001\154\145\164\052\376\003\000\000\002\376\001\000\000\006\001\154\145\164\162\145\143\376\003\000\000\002\376\001\000\000\007\001\154\145\164\162\145\143\052\376\003\000\000\002\376\001\000\000\012\001\154\145\164\055\166\141\154\165\145\163\376\003\000\000\002\376\001\000\000\015\001\144\145\146\151\156\145\055\166\141\154\165\145\163\376\003\000\000\002\376\001\000\000\013\001\154\145\164\052\055\166\141\154\165\145\163\376\003\000\000\002\376\001\000\000\014\001\160\141\162\141\155\145\164\145\162\151\172\145\376\003\000\000\002\376\001\000\000\004\001\167\150\145\156\376\003\000\000\002\376\001\000\000\006\001\165\156\154\145\163\163\376\003\000\000\002\376\001\000\000\002\001\144\157\376\003\000\000\002\376\001\000\000\006\001\144\145\146\151\156\145\376\003\000\000\002\376\001\000\000\015\001\144\145\146\151\156\145\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\004\001\143\141\163\145\376\003\000\000\002\376\001\000\000\004\001\143\157\156\144\376\003\000\000\002\376\001\000\000\005\001\147\165\141\162\144\376\003\000\000\002\376\001\000\000\022\001\144\145\146\151\156\145\055\162\145\143\157\162\144\055\164\171\160\145\376\003\000\000\002\376\001\000\000\007\001\151\156\143\154\165\144\145\376\003\000\000\002\376\001\000\000\012\001\151\156\143\154\165\144\145\055\143\151\376\003\000\000\002\376\001\000\000\004\001\163\145\164\041\376\003\000\000\002\376\001\000\000\014\001\163\171\156\164\141\170\055\162\165\154\145\163\376\003\000\000\002\376\001\000\000\013\001\143\157\156\144\055\145\170\160\141\156\144\376\003\000\000\002\376\001\000\000\006\001\151\155\160\157\162\164\376\003\000\000\002\376\001\000\000\006\001\145\170\160\157\162\164\376\003\000\000\002\376\001\000\000\005\001\142\145\147\151\156\376\003\000\000\002\376\001\000\000\021\001\151\155\160\157\162\164\055\146\157\162\055\163\171\156\164\141\170\376\003\000\000\002\376\001\000\000\003\001\141\156\144\376\003\000\000\002\376\001\000\000\002\001\157\162\376\003\000\000\002\376\001\000\000\006\001\154\141\155\142\144\141\376\003\000\000\002\376\001\000\000\002\001\151\146\376\003\000\000\002\376\001\000\000\005\001\161\165\157\164\145\376\003\000\000\002\376\001\000\000\013\001\143\141\163\145\055\154\141\155\142\144\141\376\003\000\000\002\376\001\000\000\012\001\161\165\141\163\151\161\165\157\164\145\376\003\000\000\002\376\001\000\000\014\001\163\171\156\164\141\170\055\145\162\162\157\162\376\377\016")); -lf[312]=C_h_intern(&lf[312],6, C_text("scheme")); -lf[313]=C_h_intern(&lf[313],11, C_text("scheme.r5rs")); -lf[314]=C_h_intern(&lf[314],16, C_text("scheme.r5rs-null")); -lf[315]=C_h_intern(&lf[315],16, C_text("scheme.r4rs-null")); -lf[316]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\003\000\000\002\376\001\000\000\014\001\144\171\156\141\155\151\143\055\167\151\156\144\376\001\000\000\023\001\163\143\150\145\155\145\043\144\171\156\141\155\151\143\055\167\151\156\144\376\003\000\000\002\376\003\000\000\002\376\001\000\000\004\001\145\166\141\154\376\001\000\000\013\001\163\143\150\145\155\145\043\145\166\141\154\376\003\000\000\002\376\003\000\000\002\376\001\000\000\006\001\166\141\154\165\145\163\376\001\000\000\015\001\163\143\150\145\155\145\043\166\141\154\165\145\163\376\003\000\000\002\376\003\000\000\002\376\001\000\000\020\001\143\141\154\154\055\167\151\164\150\055\166\141\154\165\145\163\376\001\000\000\027\001\163\143\150\145\155\145\043\143\141\154\154\055\167\151\164\150\055\166\141\154\165\145\163\376\377\016")); -lf[317]=C_h_intern(&lf[317],11, C_text("scheme.r4rs")); -lf[318]=C_h_intern(&lf[318],21, C_text("scheme#make-parameter")); -C_register_lf2(lf,319,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_3959,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_chicken_2dsyntax_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[641] = { -{C_text("f12337:modules_2escm"),(void*)f12337}, -{C_text("f12341:modules_2escm"),(void*)f12341}, -{C_text("f13052:modules_2escm"),(void*)f13052}, -{C_text("f13056:modules_2escm"),(void*)f13056}, -{C_text("f_10002:modules_2escm"),(void*)f_10002}, -{C_text("f_10011:modules_2escm"),(void*)f_10011}, -{C_text("f_10036:modules_2escm"),(void*)f_10036}, -{C_text("f_10054:modules_2escm"),(void*)f_10054}, -{C_text("f_10060:modules_2escm"),(void*)f_10060}, -{C_text("f_10064:modules_2escm"),(void*)f_10064}, -{C_text("f_10065:modules_2escm"),(void*)f_10065}, -{C_text("f_10071:modules_2escm"),(void*)f_10071}, -{C_text("f_10077:modules_2escm"),(void*)f_10077}, -{C_text("f_10099:modules_2escm"),(void*)f_10099}, -{C_text("f_10101:modules_2escm"),(void*)f_10101}, -{C_text("f_10111:modules_2escm"),(void*)f_10111}, -{C_text("f_10124:modules_2escm"),(void*)f_10124}, -{C_text("f_10128:modules_2escm"),(void*)f_10128}, -{C_text("f_10131:modules_2escm"),(void*)f_10131}, -{C_text("f_10141:modules_2escm"),(void*)f_10141}, -{C_text("f_10148:modules_2escm"),(void*)f_10148}, -{C_text("f_10179:modules_2escm"),(void*)f_10179}, -{C_text("f_10185:modules_2escm"),(void*)f_10185}, -{C_text("f_10186:modules_2escm"),(void*)f_10186}, -{C_text("f_10193:modules_2escm"),(void*)f_10193}, -{C_text("f_10226:modules_2escm"),(void*)f_10226}, -{C_text("f_10232:modules_2escm"),(void*)f_10232}, -{C_text("f_10235:modules_2escm"),(void*)f_10235}, -{C_text("f_10238:modules_2escm"),(void*)f_10238}, -{C_text("f_10245:modules_2escm"),(void*)f_10245}, -{C_text("f_10249:modules_2escm"),(void*)f_10249}, -{C_text("f_10253:modules_2escm"),(void*)f_10253}, -{C_text("f_10257:modules_2escm"),(void*)f_10257}, -{C_text("f_10260:modules_2escm"),(void*)f_10260}, -{C_text("f_10266:modules_2escm"),(void*)f_10266}, -{C_text("f_10269:modules_2escm"),(void*)f_10269}, -{C_text("f_10276:modules_2escm"),(void*)f_10276}, -{C_text("f_10286:modules_2escm"),(void*)f_10286}, -{C_text("f_10293:modules_2escm"),(void*)f_10293}, -{C_text("f_10304:modules_2escm"),(void*)f_10304}, -{C_text("f_10311:modules_2escm"),(void*)f_10311}, -{C_text("f_10313:modules_2escm"),(void*)f_10313}, -{C_text("f_10347:modules_2escm"),(void*)f_10347}, -{C_text("f_10383:modules_2escm"),(void*)f_10383}, -{C_text("f_10394:modules_2escm"),(void*)f_10394}, -{C_text("f_10408:modules_2escm"),(void*)f_10408}, -{C_text("f_10415:modules_2escm"),(void*)f_10415}, -{C_text("f_10417:modules_2escm"),(void*)f_10417}, -{C_text("f_10451:modules_2escm"),(void*)f_10451}, -{C_text("f_10491:modules_2escm"),(void*)f_10491}, -{C_text("f_10501:modules_2escm"),(void*)f_10501}, -{C_text("f_10514:modules_2escm"),(void*)f_10514}, -{C_text("f_10524:modules_2escm"),(void*)f_10524}, -{C_text("f_10545:modules_2escm"),(void*)f_10545}, -{C_text("f_10560:modules_2escm"),(void*)f_10560}, -{C_text("f_10570:modules_2escm"),(void*)f_10570}, -{C_text("f_10578:modules_2escm"),(void*)f_10578}, -{C_text("f_10582:modules_2escm"),(void*)f_10582}, -{C_text("f_10586:modules_2escm"),(void*)f_10586}, -{C_text("f_10588:modules_2escm"),(void*)f_10588}, -{C_text("f_10591:modules_2escm"),(void*)f_10591}, -{C_text("f_10595:modules_2escm"),(void*)f_10595}, -{C_text("f_10599:modules_2escm"),(void*)f_10599}, -{C_text("f_10606:modules_2escm"),(void*)f_10606}, -{C_text("f_10613:modules_2escm"),(void*)f_10613}, -{C_text("f_10634:modules_2escm"),(void*)f_10634}, -{C_text("f_10660:modules_2escm"),(void*)f_10660}, -{C_text("f_10662:modules_2escm"),(void*)f_10662}, -{C_text("f_10665:modules_2escm"),(void*)f_10665}, -{C_text("f_10671:modules_2escm"),(void*)f_10671}, -{C_text("f_10712:modules_2escm"),(void*)f_10712}, -{C_text("f_10744:modules_2escm"),(void*)f_10744}, -{C_text("f_10770:modules_2escm"),(void*)f_10770}, -{C_text("f_10791:modules_2escm"),(void*)f_10791}, -{C_text("f_10795:modules_2escm"),(void*)f_10795}, -{C_text("f_10821:modules_2escm"),(void*)f_10821}, -{C_text("f_10835:modules_2escm"),(void*)f_10835}, -{C_text("f_10877:modules_2escm"),(void*)f_10877}, -{C_text("f_10893:modules_2escm"),(void*)f_10893}, -{C_text("f_10901:modules_2escm"),(void*)f_10901}, -{C_text("f_10908:modules_2escm"),(void*)f_10908}, -{C_text("f_10918:modules_2escm"),(void*)f_10918}, -{C_text("f_10940:modules_2escm"),(void*)f_10940}, -{C_text("f_10942:modules_2escm"),(void*)f_10942}, -{C_text("f_10981:modules_2escm"),(void*)f_10981}, -{C_text("f_11002:modules_2escm"),(void*)f_11002}, -{C_text("f_11014:modules_2escm"),(void*)f_11014}, -{C_text("f_11037:modules_2escm"),(void*)f_11037}, -{C_text("f_11040:modules_2escm"),(void*)f_11040}, -{C_text("f_11051:modules_2escm"),(void*)f_11051}, -{C_text("f_11057:modules_2escm"),(void*)f_11057}, -{C_text("f_11089:modules_2escm"),(void*)f_11089}, -{C_text("f_11092:modules_2escm"),(void*)f_11092}, -{C_text("f_11103:modules_2escm"),(void*)f_11103}, -{C_text("f_11119:modules_2escm"),(void*)f_11119}, -{C_text("f_11123:modules_2escm"),(void*)f_11123}, -{C_text("f_11130:modules_2escm"),(void*)f_11130}, -{C_text("f_11143:modules_2escm"),(void*)f_11143}, -{C_text("f_11170:modules_2escm"),(void*)f_11170}, -{C_text("f_11183:modules_2escm"),(void*)f_11183}, -{C_text("f_11187:modules_2escm"),(void*)f_11187}, -{C_text("f_11191:modules_2escm"),(void*)f_11191}, -{C_text("f_11195:modules_2escm"),(void*)f_11195}, -{C_text("f_11209:modules_2escm"),(void*)f_11209}, -{C_text("f_11215:modules_2escm"),(void*)f_11215}, -{C_text("f_11217:modules_2escm"),(void*)f_11217}, -{C_text("f_11242:modules_2escm"),(void*)f_11242}, -{C_text("f_11251:modules_2escm"),(void*)f_11251}, -{C_text("f_11261:modules_2escm"),(void*)f_11261}, -{C_text("f_11276:modules_2escm"),(void*)f_11276}, -{C_text("f_11279:modules_2escm"),(void*)f_11279}, -{C_text("f_11282:modules_2escm"),(void*)f_11282}, -{C_text("f_11285:modules_2escm"),(void*)f_11285}, -{C_text("f_11288:modules_2escm"),(void*)f_11288}, -{C_text("f_11291:modules_2escm"),(void*)f_11291}, -{C_text("f_11293:modules_2escm"),(void*)f_11293}, -{C_text("f_11298:modules_2escm"),(void*)f_11298}, -{C_text("f_11310:modules_2escm"),(void*)f_11310}, -{C_text("f_11345:modules_2escm"),(void*)f_11345}, -{C_text("f_11348:modules_2escm"),(void*)f_11348}, -{C_text("f_11351:modules_2escm"),(void*)f_11351}, -{C_text("f_11354:modules_2escm"),(void*)f_11354}, -{C_text("f_11357:modules_2escm"),(void*)f_11357}, -{C_text("f_11360:modules_2escm"),(void*)f_11360}, -{C_text("f_11363:modules_2escm"),(void*)f_11363}, -{C_text("f_11366:modules_2escm"),(void*)f_11366}, -{C_text("f_11369:modules_2escm"),(void*)f_11369}, -{C_text("f_11372:modules_2escm"),(void*)f_11372}, -{C_text("f_11375:modules_2escm"),(void*)f_11375}, -{C_text("f_11378:modules_2escm"),(void*)f_11378}, -{C_text("f_11381:modules_2escm"),(void*)f_11381}, -{C_text("f_11384:modules_2escm"),(void*)f_11384}, -{C_text("f_11387:modules_2escm"),(void*)f_11387}, -{C_text("f_11390:modules_2escm"),(void*)f_11390}, -{C_text("f_11393:modules_2escm"),(void*)f_11393}, -{C_text("f_11396:modules_2escm"),(void*)f_11396}, -{C_text("f_11399:modules_2escm"),(void*)f_11399}, -{C_text("f_11402:modules_2escm"),(void*)f_11402}, -{C_text("f_11405:modules_2escm"),(void*)f_11405}, -{C_text("f_11407:modules_2escm"),(void*)f_11407}, -{C_text("f_11414:modules_2escm"),(void*)f_11414}, -{C_text("f_11443:modules_2escm"),(void*)f_11443}, -{C_text("f_11447:modules_2escm"),(void*)f_11447}, -{C_text("f_11449:modules_2escm"),(void*)f_11449}, -{C_text("f_11460:modules_2escm"),(void*)f_11460}, -{C_text("f_11468:modules_2escm"),(void*)f_11468}, -{C_text("f_11495:modules_2escm"),(void*)f_11495}, -{C_text("f_11508:modules_2escm"),(void*)f_11508}, -{C_text("f_11512:modules_2escm"),(void*)f_11512}, -{C_text("f_11515:modules_2escm"),(void*)f_11515}, -{C_text("f_11555:modules_2escm"),(void*)f_11555}, -{C_text("f_11557:modules_2escm"),(void*)f_11557}, -{C_text("f_11592:modules_2escm"),(void*)f_11592}, -{C_text("f_11595:modules_2escm"),(void*)f_11595}, -{C_text("f_11598:modules_2escm"),(void*)f_11598}, -{C_text("f_11601:modules_2escm"),(void*)f_11601}, -{C_text("f_11604:modules_2escm"),(void*)f_11604}, -{C_text("f_11607:modules_2escm"),(void*)f_11607}, -{C_text("f_11610:modules_2escm"),(void*)f_11610}, -{C_text("f_11614:modules_2escm"),(void*)f_11614}, -{C_text("f_11618:modules_2escm"),(void*)f_11618}, -{C_text("f_11622:modules_2escm"),(void*)f_11622}, -{C_text("f_11626:modules_2escm"),(void*)f_11626}, -{C_text("f_11638:modules_2escm"),(void*)f_11638}, -{C_text("f_11642:modules_2escm"),(void*)f_11642}, -{C_text("f_11646:modules_2escm"),(void*)f_11646}, -{C_text("f_11650:modules_2escm"),(void*)f_11650}, -{C_text("f_11654:modules_2escm"),(void*)f_11654}, -{C_text("f_11658:modules_2escm"),(void*)f_11658}, -{C_text("f_11662:modules_2escm"),(void*)f_11662}, -{C_text("f_11666:modules_2escm"),(void*)f_11666}, -{C_text("f_11670:modules_2escm"),(void*)f_11670}, -{C_text("f_11674:modules_2escm"),(void*)f_11674}, -{C_text("f_3959:modules_2escm"),(void*)f_3959}, -{C_text("f_3962:modules_2escm"),(void*)f_3962}, -{C_text("f_3965:modules_2escm"),(void*)f_3965}, -{C_text("f_3968:modules_2escm"),(void*)f_3968}, -{C_text("f_3971:modules_2escm"),(void*)f_3971}, -{C_text("f_3974:modules_2escm"),(void*)f_3974}, -{C_text("f_4465:modules_2escm"),(void*)f_4465}, -{C_text("f_4471:modules_2escm"),(void*)f_4471}, -{C_text("f_4484:modules_2escm"),(void*)f_4484}, -{C_text("f_4498:modules_2escm"),(void*)f_4498}, -{C_text("f_4546:modules_2escm"),(void*)f_4546}, -{C_text("f_4560:modules_2escm"),(void*)f_4560}, -{C_text("f_4573:modules_2escm"),(void*)f_4573}, -{C_text("f_4629:modules_2escm"),(void*)f_4629}, -{C_text("f_4638:modules_2escm"),(void*)f_4638}, -{C_text("f_4646:modules_2escm"),(void*)f_4646}, -{C_text("f_4650:modules_2escm"),(void*)f_4650}, -{C_text("f_4654:modules_2escm"),(void*)f_4654}, -{C_text("f_4672:modules_2escm"),(void*)f_4672}, -{C_text("f_5256:modules_2escm"),(void*)f_5256}, -{C_text("f_5260:modules_2escm"),(void*)f_5260}, -{C_text("f_5266:modules_2escm"),(void*)f_5266}, -{C_text("f_5278:modules_2escm"),(void*)f_5278}, -{C_text("f_5287:modules_2escm"),(void*)f_5287}, -{C_text("f_5296:modules_2escm"),(void*)f_5296}, -{C_text("f_5305:modules_2escm"),(void*)f_5305}, -{C_text("f_5314:modules_2escm"),(void*)f_5314}, -{C_text("f_5323:modules_2escm"),(void*)f_5323}, -{C_text("f_5332:modules_2escm"),(void*)f_5332}, -{C_text("f_5341:modules_2escm"),(void*)f_5341}, -{C_text("f_5350:modules_2escm"),(void*)f_5350}, -{C_text("f_5359:modules_2escm"),(void*)f_5359}, -{C_text("f_5368:modules_2escm"),(void*)f_5368}, -{C_text("f_5377:modules_2escm"),(void*)f_5377}, -{C_text("f_5386:modules_2escm"),(void*)f_5386}, -{C_text("f_5395:modules_2escm"),(void*)f_5395}, -{C_text("f_5404:modules_2escm"),(void*)f_5404}, -{C_text("f_5413:modules_2escm"),(void*)f_5413}, -{C_text("f_5422:modules_2escm"),(void*)f_5422}, -{C_text("f_5431:modules_2escm"),(void*)f_5431}, -{C_text("f_5440:modules_2escm"),(void*)f_5440}, -{C_text("f_5449:modules_2escm"),(void*)f_5449}, -{C_text("f_5458:modules_2escm"),(void*)f_5458}, -{C_text("f_5467:modules_2escm"),(void*)f_5467}, -{C_text("f_5476:modules_2escm"),(void*)f_5476}, -{C_text("f_5485:modules_2escm"),(void*)f_5485}, -{C_text("f_5494:modules_2escm"),(void*)f_5494}, -{C_text("f_5503:modules_2escm"),(void*)f_5503}, -{C_text("f_5512:modules_2escm"),(void*)f_5512}, -{C_text("f_5521:modules_2escm"),(void*)f_5521}, -{C_text("f_5531:modules_2escm"),(void*)f_5531}, -{C_text("f_5549:modules_2escm"),(void*)f_5549}, -{C_text("f_5564:modules_2escm"),(void*)f_5564}, -{C_text("f_5580:modules_2escm"),(void*)f_5580}, -{C_text("f_5582:modules_2escm"),(void*)f_5582}, -{C_text("f_5586:modules_2escm"),(void*)f_5586}, -{C_text("f_5591:modules_2escm"),(void*)f_5591}, -{C_text("f_5595:modules_2escm"),(void*)f_5595}, -{C_text("f_5599:modules_2escm"),(void*)f_5599}, -{C_text("f_5602:modules_2escm"),(void*)f_5602}, -{C_text("f_5608:modules_2escm"),(void*)f_5608}, -{C_text("f_5614:modules_2escm"),(void*)f_5614}, -{C_text("f_5618:modules_2escm"),(void*)f_5618}, -{C_text("f_5621:modules_2escm"),(void*)f_5621}, -{C_text("f_5645:modules_2escm"),(void*)f_5645}, -{C_text("f_5649:modules_2escm"),(void*)f_5649}, -{C_text("f_5651:modules_2escm"),(void*)f_5651}, -{C_text("f_5685:modules_2escm"),(void*)f_5685}, -{C_text("f_5693:modules_2escm"),(void*)f_5693}, -{C_text("f_5695:modules_2escm"),(void*)f_5695}, -{C_text("f_5703:modules_2escm"),(void*)f_5703}, -{C_text("f_5730:modules_2escm"),(void*)f_5730}, -{C_text("f_5732:modules_2escm"),(void*)f_5732}, -{C_text("f_5786:modules_2escm"),(void*)f_5786}, -{C_text("f_5793:modules_2escm"),(void*)f_5793}, -{C_text("f_5796:modules_2escm"),(void*)f_5796}, -{C_text("f_5802:modules_2escm"),(void*)f_5802}, -{C_text("f_5808:modules_2escm"),(void*)f_5808}, -{C_text("f_5821:modules_2escm"),(void*)f_5821}, -{C_text("f_5833:modules_2escm"),(void*)f_5833}, -{C_text("f_5837:modules_2escm"),(void*)f_5837}, -{C_text("f_5839:modules_2escm"),(void*)f_5839}, -{C_text("f_5855:modules_2escm"),(void*)f_5855}, -{C_text("f_5856:modules_2escm"),(void*)f_5856}, -{C_text("f_5864:modules_2escm"),(void*)f_5864}, -{C_text("f_5878:modules_2escm"),(void*)f_5878}, -{C_text("f_5881:modules_2escm"),(void*)f_5881}, -{C_text("f_5888:modules_2escm"),(void*)f_5888}, -{C_text("f_5892:modules_2escm"),(void*)f_5892}, -{C_text("f_5898:modules_2escm"),(void*)f_5898}, -{C_text("f_5926:modules_2escm"),(void*)f_5926}, -{C_text("f_5928:modules_2escm"),(void*)f_5928}, -{C_text("f_5935:modules_2escm"),(void*)f_5935}, -{C_text("f_5948:modules_2escm"),(void*)f_5948}, -{C_text("f_5950:modules_2escm"),(void*)f_5950}, -{C_text("f_5986:modules_2escm"),(void*)f_5986}, -{C_text("f_5988:modules_2escm"),(void*)f_5988}, -{C_text("f_5991:modules_2escm"),(void*)f_5991}, -{C_text("f_5995:modules_2escm"),(void*)f_5995}, -{C_text("f_6011:modules_2escm"),(void*)f_6011}, -{C_text("f_6018:modules_2escm"),(void*)f_6018}, -{C_text("f_6032:modules_2escm"),(void*)f_6032}, -{C_text("f_6042:modules_2escm"),(void*)f_6042}, -{C_text("f_6045:modules_2escm"),(void*)f_6045}, -{C_text("f_6048:modules_2escm"),(void*)f_6048}, -{C_text("f_6054:modules_2escm"),(void*)f_6054}, -{C_text("f_6057:modules_2escm"),(void*)f_6057}, -{C_text("f_6060:modules_2escm"),(void*)f_6060}, -{C_text("f_6093:modules_2escm"),(void*)f_6093}, -{C_text("f_6097:modules_2escm"),(void*)f_6097}, -{C_text("f_6104:modules_2escm"),(void*)f_6104}, -{C_text("f_6108:modules_2escm"),(void*)f_6108}, -{C_text("f_6112:modules_2escm"),(void*)f_6112}, -{C_text("f_6121:modules_2escm"),(void*)f_6121}, -{C_text("f_6131:modules_2escm"),(void*)f_6131}, -{C_text("f_6134:modules_2escm"),(void*)f_6134}, -{C_text("f_6137:modules_2escm"),(void*)f_6137}, -{C_text("f_6140:modules_2escm"),(void*)f_6140}, -{C_text("f_6143:modules_2escm"),(void*)f_6143}, -{C_text("f_6149:modules_2escm"),(void*)f_6149}, -{C_text("f_6183:modules_2escm"),(void*)f_6183}, -{C_text("f_6187:modules_2escm"),(void*)f_6187}, -{C_text("f_6202:modules_2escm"),(void*)f_6202}, -{C_text("f_6213:modules_2escm"),(void*)f_6213}, -{C_text("f_6219:modules_2escm"),(void*)f_6219}, -{C_text("f_6236:modules_2escm"),(void*)f_6236}, -{C_text("f_6243:modules_2escm"),(void*)f_6243}, -{C_text("f_6250:modules_2escm"),(void*)f_6250}, -{C_text("f_6295:modules_2escm"),(void*)f_6295}, -{C_text("f_6352:modules_2escm"),(void*)f_6352}, -{C_text("f_6401:modules_2escm"),(void*)f_6401}, -{C_text("f_6409:modules_2escm"),(void*)f_6409}, -{C_text("f_6413:modules_2escm"),(void*)f_6413}, -{C_text("f_6424:modules_2escm"),(void*)f_6424}, -{C_text("f_6451:modules_2escm"),(void*)f_6451}, -{C_text("f_6474:modules_2escm"),(void*)f_6474}, -{C_text("f_6488:modules_2escm"),(void*)f_6488}, -{C_text("f_6513:modules_2escm"),(void*)f_6513}, -{C_text("f_6528:modules_2escm"),(void*)f_6528}, -{C_text("f_6546:modules_2escm"),(void*)f_6546}, -{C_text("f_6557:modules_2escm"),(void*)f_6557}, -{C_text("f_6576:modules_2escm"),(void*)f_6576}, -{C_text("f_6589:modules_2escm"),(void*)f_6589}, -{C_text("f_6599:modules_2escm"),(void*)f_6599}, -{C_text("f_6605:modules_2escm"),(void*)f_6605}, -{C_text("f_6609:modules_2escm"),(void*)f_6609}, -{C_text("f_6612:modules_2escm"),(void*)f_6612}, -{C_text("f_6623:modules_2escm"),(void*)f_6623}, -{C_text("f_6651:modules_2escm"),(void*)f_6651}, -{C_text("f_6665:modules_2escm"),(void*)f_6665}, -{C_text("f_6670:modules_2escm"),(void*)f_6670}, -{C_text("f_6680:modules_2escm"),(void*)f_6680}, -{C_text("f_6698:modules_2escm"),(void*)f_6698}, -{C_text("f_6720:modules_2escm"),(void*)f_6720}, -{C_text("f_6728:modules_2escm"),(void*)f_6728}, -{C_text("f_6762:modules_2escm"),(void*)f_6762}, -{C_text("f_6773:modules_2escm"),(void*)f_6773}, -{C_text("f_6781:modules_2escm"),(void*)f_6781}, -{C_text("f_6815:modules_2escm"),(void*)f_6815}, -{C_text("f_6821:modules_2escm"),(void*)f_6821}, -{C_text("f_6827:modules_2escm"),(void*)f_6827}, -{C_text("f_6837:modules_2escm"),(void*)f_6837}, -{C_text("f_6844:modules_2escm"),(void*)f_6844}, -{C_text("f_6872:modules_2escm"),(void*)f_6872}, -{C_text("f_6876:modules_2escm"),(void*)f_6876}, -{C_text("f_6880:modules_2escm"),(void*)f_6880}, -{C_text("f_6884:modules_2escm"),(void*)f_6884}, -{C_text("f_6888:modules_2escm"),(void*)f_6888}, -{C_text("f_6892:modules_2escm"),(void*)f_6892}, -{C_text("f_6896:modules_2escm"),(void*)f_6896}, -{C_text("f_6900:modules_2escm"),(void*)f_6900}, -{C_text("f_6932:modules_2escm"),(void*)f_6932}, -{C_text("f_6968:modules_2escm"),(void*)f_6968}, -{C_text("f_6970:modules_2escm"),(void*)f_6970}, -{C_text("f_7006:modules_2escm"),(void*)f_7006}, -{C_text("f_7018:modules_2escm"),(void*)f_7018}, -{C_text("f_7050:modules_2escm"),(void*)f_7050}, -{C_text("f_7060:modules_2escm"),(void*)f_7060}, -{C_text("f_7075:modules_2escm"),(void*)f_7075}, -{C_text("f_7099:modules_2escm"),(void*)f_7099}, -{C_text("f_7115:modules_2escm"),(void*)f_7115}, -{C_text("f_7117:modules_2escm"),(void*)f_7117}, -{C_text("f_7142:modules_2escm"),(void*)f_7142}, -{C_text("f_7204:modules_2escm"),(void*)f_7204}, -{C_text("f_7206:modules_2escm"),(void*)f_7206}, -{C_text("f_7231:modules_2escm"),(void*)f_7231}, -{C_text("f_7246:modules_2escm"),(void*)f_7246}, -{C_text("f_7261:modules_2escm"),(void*)f_7261}, -{C_text("f_7282:modules_2escm"),(void*)f_7282}, -{C_text("f_7310:modules_2escm"),(void*)f_7310}, -{C_text("f_7319:modules_2escm"),(void*)f_7319}, -{C_text("f_7336:modules_2escm"),(void*)f_7336}, -{C_text("f_7375:modules_2escm"),(void*)f_7375}, -{C_text("f_7378:modules_2escm"),(void*)f_7378}, -{C_text("f_7381:modules_2escm"),(void*)f_7381}, -{C_text("f_7397:modules_2escm"),(void*)f_7397}, -{C_text("f_7407:modules_2escm"),(void*)f_7407}, -{C_text("f_7413:modules_2escm"),(void*)f_7413}, -{C_text("f_7414:modules_2escm"),(void*)f_7414}, -{C_text("f_7426:modules_2escm"),(void*)f_7426}, -{C_text("f_7439:modules_2escm"),(void*)f_7439}, -{C_text("f_7440:modules_2escm"),(void*)f_7440}, -{C_text("f_7452:modules_2escm"),(void*)f_7452}, -{C_text("f_7465:modules_2escm"),(void*)f_7465}, -{C_text("f_7468:modules_2escm"),(void*)f_7468}, -{C_text("f_7484:modules_2escm"),(void*)f_7484}, -{C_text("f_7488:modules_2escm"),(void*)f_7488}, -{C_text("f_7492:modules_2escm"),(void*)f_7492}, -{C_text("f_7494:modules_2escm"),(void*)f_7494}, -{C_text("f_7504:modules_2escm"),(void*)f_7504}, -{C_text("f_7517:modules_2escm"),(void*)f_7517}, -{C_text("f_7527:modules_2escm"),(void*)f_7527}, -{C_text("f_7551:modules_2escm"),(void*)f_7551}, -{C_text("f_7555:modules_2escm"),(void*)f_7555}, -{C_text("f_7570:modules_2escm"),(void*)f_7570}, -{C_text("f_7572:modules_2escm"),(void*)f_7572}, -{C_text("f_7606:modules_2escm"),(void*)f_7606}, -{C_text("f_7618:modules_2escm"),(void*)f_7618}, -{C_text("f_7636:modules_2escm"),(void*)f_7636}, -{C_text("f_7670:modules_2escm"),(void*)f_7670}, -{C_text("f_7677:modules_2escm"),(void*)f_7677}, -{C_text("f_7683:modules_2escm"),(void*)f_7683}, -{C_text("f_7699:modules_2escm"),(void*)f_7699}, -{C_text("f_7703:modules_2escm"),(void*)f_7703}, -{C_text("f_7707:modules_2escm"),(void*)f_7707}, -{C_text("f_7720:modules_2escm"),(void*)f_7720}, -{C_text("f_7742:modules_2escm"),(void*)f_7742}, -{C_text("f_7744:modules_2escm"),(void*)f_7744}, -{C_text("f_7769:modules_2escm"),(void*)f_7769}, -{C_text("f_7784:modules_2escm"),(void*)f_7784}, -{C_text("f_7799:modules_2escm"),(void*)f_7799}, -{C_text("f_7812:modules_2escm"),(void*)f_7812}, -{C_text("f_7877:modules_2escm"),(void*)f_7877}, -{C_text("f_7883:modules_2escm"),(void*)f_7883}, -{C_text("f_7887:modules_2escm"),(void*)f_7887}, -{C_text("f_7893:modules_2escm"),(void*)f_7893}, -{C_text("f_7896:modules_2escm"),(void*)f_7896}, -{C_text("f_7899:modules_2escm"),(void*)f_7899}, -{C_text("f_7902:modules_2escm"),(void*)f_7902}, -{C_text("f_7903:modules_2escm"),(void*)f_7903}, -{C_text("f_7910:modules_2escm"),(void*)f_7910}, -{C_text("f_7913:modules_2escm"),(void*)f_7913}, -{C_text("f_7916:modules_2escm"),(void*)f_7916}, -{C_text("f_7917:modules_2escm"),(void*)f_7917}, -{C_text("f_7920:modules_2escm"),(void*)f_7920}, -{C_text("f_7924:modules_2escm"),(void*)f_7924}, -{C_text("f_7950:modules_2escm"),(void*)f_7950}, -{C_text("f_7956:modules_2escm"),(void*)f_7956}, -{C_text("f_7960:modules_2escm"),(void*)f_7960}, -{C_text("f_7964:modules_2escm"),(void*)f_7964}, -{C_text("f_7970:modules_2escm"),(void*)f_7970}, -{C_text("f_7973:modules_2escm"),(void*)f_7973}, -{C_text("f_7976:modules_2escm"),(void*)f_7976}, -{C_text("f_7979:modules_2escm"),(void*)f_7979}, -{C_text("f_7986:modules_2escm"),(void*)f_7986}, -{C_text("f_8002:modules_2escm"),(void*)f_8002}, -{C_text("f_8008:modules_2escm"),(void*)f_8008}, -{C_text("f_8011:modules_2escm"),(void*)f_8011}, -{C_text("f_8018:modules_2escm"),(void*)f_8018}, -{C_text("f_8025:modules_2escm"),(void*)f_8025}, -{C_text("f_8031:modules_2escm"),(void*)f_8031}, -{C_text("f_8034:modules_2escm"),(void*)f_8034}, -{C_text("f_8037:modules_2escm"),(void*)f_8037}, -{C_text("f_8055:modules_2escm"),(void*)f_8055}, -{C_text("f_8058:modules_2escm"),(void*)f_8058}, -{C_text("f_8076:modules_2escm"),(void*)f_8076}, -{C_text("f_8088:modules_2escm"),(void*)f_8088}, -{C_text("f_8091:modules_2escm"),(void*)f_8091}, -{C_text("f_8098:modules_2escm"),(void*)f_8098}, -{C_text("f_8104:modules_2escm"),(void*)f_8104}, -{C_text("f_8105:modules_2escm"),(void*)f_8105}, -{C_text("f_8112:modules_2escm"),(void*)f_8112}, -{C_text("f_8124:modules_2escm"),(void*)f_8124}, -{C_text("f_8134:modules_2escm"),(void*)f_8134}, -{C_text("f_8152:modules_2escm"),(void*)f_8152}, -{C_text("f_8162:modules_2escm"),(void*)f_8162}, -{C_text("f_8182:modules_2escm"),(void*)f_8182}, -{C_text("f_8189:modules_2escm"),(void*)f_8189}, -{C_text("f_8191:modules_2escm"),(void*)f_8191}, -{C_text("f_8201:modules_2escm"),(void*)f_8201}, -{C_text("f_8216:modules_2escm"),(void*)f_8216}, -{C_text("f_8218:modules_2escm"),(void*)f_8218}, -{C_text("f_8248:modules_2escm"),(void*)f_8248}, -{C_text("f_8260:modules_2escm"),(void*)f_8260}, -{C_text("f_8263:modules_2escm"),(void*)f_8263}, -{C_text("f_8266:modules_2escm"),(void*)f_8266}, -{C_text("f_8287:modules_2escm"),(void*)f_8287}, -{C_text("f_8289:modules_2escm"),(void*)f_8289}, -{C_text("f_8325:modules_2escm"),(void*)f_8325}, -{C_text("f_8337:modules_2escm"),(void*)f_8337}, -{C_text("f_8366:modules_2escm"),(void*)f_8366}, -{C_text("f_8376:modules_2escm"),(void*)f_8376}, -{C_text("f_8380:modules_2escm"),(void*)f_8380}, -{C_text("f_8390:modules_2escm"),(void*)f_8390}, -{C_text("f_8399:modules_2escm"),(void*)f_8399}, -{C_text("f_8402:modules_2escm"),(void*)f_8402}, -{C_text("f_8405:modules_2escm"),(void*)f_8405}, -{C_text("f_8406:modules_2escm"),(void*)f_8406}, -{C_text("f_8424:modules_2escm"),(void*)f_8424}, -{C_text("f_8430:modules_2escm"),(void*)f_8430}, -{C_text("f_8433:modules_2escm"),(void*)f_8433}, -{C_text("f_8436:modules_2escm"),(void*)f_8436}, -{C_text("f_8464:modules_2escm"),(void*)f_8464}, -{C_text("f_8471:modules_2escm"),(void*)f_8471}, -{C_text("f_8477:modules_2escm"),(void*)f_8477}, -{C_text("f_8480:modules_2escm"),(void*)f_8480}, -{C_text("f_8481:modules_2escm"),(void*)f_8481}, -{C_text("f_8485:modules_2escm"),(void*)f_8485}, -{C_text("f_8503:modules_2escm"),(void*)f_8503}, -{C_text("f_8509:modules_2escm"),(void*)f_8509}, -{C_text("f_8512:modules_2escm"),(void*)f_8512}, -{C_text("f_8515:modules_2escm"),(void*)f_8515}, -{C_text("f_8526:modules_2escm"),(void*)f_8526}, -{C_text("f_8530:modules_2escm"),(void*)f_8530}, -{C_text("f_8534:modules_2escm"),(void*)f_8534}, -{C_text("f_8538:modules_2escm"),(void*)f_8538}, -{C_text("f_8544:modules_2escm"),(void*)f_8544}, -{C_text("f_8554:modules_2escm"),(void*)f_8554}, -{C_text("f_8569:modules_2escm"),(void*)f_8569}, -{C_text("f_8573:modules_2escm"),(void*)f_8573}, -{C_text("f_8575:modules_2escm"),(void*)f_8575}, -{C_text("f_8585:modules_2escm"),(void*)f_8585}, -{C_text("f_8600:modules_2escm"),(void*)f_8600}, -{C_text("f_8618:modules_2escm"),(void*)f_8618}, -{C_text("f_8645:modules_2escm"),(void*)f_8645}, -{C_text("f_8691:modules_2escm"),(void*)f_8691}, -{C_text("f_8700:modules_2escm"),(void*)f_8700}, -{C_text("f_8711:modules_2escm"),(void*)f_8711}, -{C_text("f_8715:modules_2escm"),(void*)f_8715}, -{C_text("f_8718:modules_2escm"),(void*)f_8718}, -{C_text("f_8726:modules_2escm"),(void*)f_8726}, -{C_text("f_8747:modules_2escm"),(void*)f_8747}, -{C_text("f_8751:modules_2escm"),(void*)f_8751}, -{C_text("f_8759:modules_2escm"),(void*)f_8759}, -{C_text("f_8763:modules_2escm"),(void*)f_8763}, -{C_text("f_8779:modules_2escm"),(void*)f_8779}, -{C_text("f_8783:modules_2escm"),(void*)f_8783}, -{C_text("f_8797:modules_2escm"),(void*)f_8797}, -{C_text("f_8808:modules_2escm"),(void*)f_8808}, -{C_text("f_8834:modules_2escm"),(void*)f_8834}, -{C_text("f_8836:modules_2escm"),(void*)f_8836}, -{C_text("f_8860:modules_2escm"),(void*)f_8860}, -{C_text("f_8869:modules_2escm"),(void*)f_8869}, -{C_text("f_8884:modules_2escm"),(void*)f_8884}, -{C_text("f_8892:modules_2escm"),(void*)f_8892}, -{C_text("f_8899:modules_2escm"),(void*)f_8899}, -{C_text("f_8903:modules_2escm"),(void*)f_8903}, -{C_text("f_8906:modules_2escm"),(void*)f_8906}, -{C_text("f_8911:modules_2escm"),(void*)f_8911}, -{C_text("f_8915:modules_2escm"),(void*)f_8915}, -{C_text("f_8918:modules_2escm"),(void*)f_8918}, -{C_text("f_8921:modules_2escm"),(void*)f_8921}, -{C_text("f_8924:modules_2escm"),(void*)f_8924}, -{C_text("f_8928:modules_2escm"),(void*)f_8928}, -{C_text("f_8932:modules_2escm"),(void*)f_8932}, -{C_text("f_8936:modules_2escm"),(void*)f_8936}, -{C_text("f_8940:modules_2escm"),(void*)f_8940}, -{C_text("f_8943:modules_2escm"),(void*)f_8943}, -{C_text("f_8946:modules_2escm"),(void*)f_8946}, -{C_text("f_8949:modules_2escm"),(void*)f_8949}, -{C_text("f_8952:modules_2escm"),(void*)f_8952}, -{C_text("f_8967:modules_2escm"),(void*)f_8967}, -{C_text("f_8973:modules_2escm"),(void*)f_8973}, -{C_text("f_8977:modules_2escm"),(void*)f_8977}, -{C_text("f_8980:modules_2escm"),(void*)f_8980}, -{C_text("f_8983:modules_2escm"),(void*)f_8983}, -{C_text("f_8986:modules_2escm"),(void*)f_8986}, -{C_text("f_8989:modules_2escm"),(void*)f_8989}, -{C_text("f_8992:modules_2escm"),(void*)f_8992}, -{C_text("f_8995:modules_2escm"),(void*)f_8995}, -{C_text("f_8998:modules_2escm"),(void*)f_8998}, -{C_text("f_9004:modules_2escm"),(void*)f_9004}, -{C_text("f_9008:modules_2escm"),(void*)f_9008}, -{C_text("f_9016:modules_2escm"),(void*)f_9016}, -{C_text("f_9022:modules_2escm"),(void*)f_9022}, -{C_text("f_9027:modules_2escm"),(void*)f_9027}, -{C_text("f_9031:modules_2escm"),(void*)f_9031}, -{C_text("f_9036:modules_2escm"),(void*)f_9036}, -{C_text("f_9043:modules_2escm"),(void*)f_9043}, -{C_text("f_9047:modules_2escm"),(void*)f_9047}, -{C_text("f_9050:modules_2escm"),(void*)f_9050}, -{C_text("f_9054:modules_2escm"),(void*)f_9054}, -{C_text("f_9057:modules_2escm"),(void*)f_9057}, -{C_text("f_9065:modules_2escm"),(void*)f_9065}, -{C_text("f_9069:modules_2escm"),(void*)f_9069}, -{C_text("f_9072:modules_2escm"),(void*)f_9072}, -{C_text("f_9075:modules_2escm"),(void*)f_9075}, -{C_text("f_9078:modules_2escm"),(void*)f_9078}, -{C_text("f_9080:modules_2escm"),(void*)f_9080}, -{C_text("f_9088:modules_2escm"),(void*)f_9088}, -{C_text("f_9092:modules_2escm"),(void*)f_9092}, -{C_text("f_9094:modules_2escm"),(void*)f_9094}, -{C_text("f_9107:modules_2escm"),(void*)f_9107}, -{C_text("f_9114:modules_2escm"),(void*)f_9114}, -{C_text("f_9138:modules_2escm"),(void*)f_9138}, -{C_text("f_9152:modules_2escm"),(void*)f_9152}, -{C_text("f_9160:modules_2escm"),(void*)f_9160}, -{C_text("f_9187:modules_2escm"),(void*)f_9187}, -{C_text("f_9212:modules_2escm"),(void*)f_9212}, -{C_text("f_9224:modules_2escm"),(void*)f_9224}, -{C_text("f_9227:modules_2escm"),(void*)f_9227}, -{C_text("f_9231:modules_2escm"),(void*)f_9231}, -{C_text("f_9234:modules_2escm"),(void*)f_9234}, -{C_text("f_9250:modules_2escm"),(void*)f_9250}, -{C_text("f_9258:modules_2escm"),(void*)f_9258}, -{C_text("f_9262:modules_2escm"),(void*)f_9262}, -{C_text("f_9266:modules_2escm"),(void*)f_9266}, -{C_text("f_9283:modules_2escm"),(void*)f_9283}, -{C_text("f_9297:modules_2escm"),(void*)f_9297}, -{C_text("f_9315:modules_2escm"),(void*)f_9315}, -{C_text("f_9318:modules_2escm"),(void*)f_9318}, -{C_text("f_9323:modules_2escm"),(void*)f_9323}, -{C_text("f_9333:modules_2escm"),(void*)f_9333}, -{C_text("f_9337:modules_2escm"),(void*)f_9337}, -{C_text("f_9342:modules_2escm"),(void*)f_9342}, -{C_text("f_9350:modules_2escm"),(void*)f_9350}, -{C_text("f_9360:modules_2escm"),(void*)f_9360}, -{C_text("f_9373:modules_2escm"),(void*)f_9373}, -{C_text("f_9383:modules_2escm"),(void*)f_9383}, -{C_text("f_9401:modules_2escm"),(void*)f_9401}, -{C_text("f_9423:modules_2escm"),(void*)f_9423}, -{C_text("f_9465:modules_2escm"),(void*)f_9465}, -{C_text("f_9468:modules_2escm"),(void*)f_9468}, -{C_text("f_9473:modules_2escm"),(void*)f_9473}, -{C_text("f_9483:modules_2escm"),(void*)f_9483}, -{C_text("f_9487:modules_2escm"),(void*)f_9487}, -{C_text("f_9492:modules_2escm"),(void*)f_9492}, -{C_text("f_9504:modules_2escm"),(void*)f_9504}, -{C_text("f_9512:modules_2escm"),(void*)f_9512}, -{C_text("f_9522:modules_2escm"),(void*)f_9522}, -{C_text("f_9535:modules_2escm"),(void*)f_9535}, -{C_text("f_9545:modules_2escm"),(void*)f_9545}, -{C_text("f_9563:modules_2escm"),(void*)f_9563}, -{C_text("f_9575:modules_2escm"),(void*)f_9575}, -{C_text("f_9604:modules_2escm"),(void*)f_9604}, -{C_text("f_9616:modules_2escm"),(void*)f_9616}, -{C_text("f_9648:modules_2escm"),(void*)f_9648}, -{C_text("f_9651:modules_2escm"),(void*)f_9651}, -{C_text("f_9656:modules_2escm"),(void*)f_9656}, -{C_text("f_9666:modules_2escm"),(void*)f_9666}, -{C_text("f_9670:modules_2escm"),(void*)f_9670}, -{C_text("f_9675:modules_2escm"),(void*)f_9675}, -{C_text("f_9687:modules_2escm"),(void*)f_9687}, -{C_text("f_9695:modules_2escm"),(void*)f_9695}, -{C_text("f_9708:modules_2escm"),(void*)f_9708}, -{C_text("f_9714:modules_2escm"),(void*)f_9714}, -{C_text("f_9727:modules_2escm"),(void*)f_9727}, -{C_text("f_9737:modules_2escm"),(void*)f_9737}, -{C_text("f_9750:modules_2escm"),(void*)f_9750}, -{C_text("f_9789:modules_2escm"),(void*)f_9789}, -{C_text("f_9805:modules_2escm"),(void*)f_9805}, -{C_text("f_9842:modules_2escm"),(void*)f_9842}, -{C_text("f_9858:modules_2escm"),(void*)f_9858}, -{C_text("f_9898:modules_2escm"),(void*)f_9898}, -{C_text("f_9901:modules_2escm"),(void*)f_9901}, -{C_text("f_9906:modules_2escm"),(void*)f_9906}, -{C_text("f_9916:modules_2escm"),(void*)f_9916}, -{C_text("f_9920:modules_2escm"),(void*)f_9920}, -{C_text("f_9922:modules_2escm"),(void*)f_9922}, -{C_text("f_9930:modules_2escm"),(void*)f_9930}, -{C_text("f_9936:modules_2escm"),(void*)f_9936}, -{C_text("f_9940:modules_2escm"),(void*)f_9940}, -{C_text("f_9944:modules_2escm"),(void*)f_9944}, -{C_text("f_9965:modules_2escm"),(void*)f_9965}, -{C_text("f_9975:modules_2escm"),(void*)f_9975}, -{C_text("f_9977:modules_2escm"),(void*)f_9977}, -{C_text("toplevel:modules_2escm"),(void*)C_modules_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -S|applied compiler syntax: -S| chicken.format#format 3 -S| chicken.format#fprintf 8 -S| scheme#for-each 16 -S| chicken.base#foldl 3 -S| scheme#map 25 -S| chicken.base#foldr 3 -o|eliminated procedure checks: 483 -o|specializations: -o| 1 (scheme#cddr (pair * pair)) -o| 1 (scheme#number->string *) -o| 2 (scheme#string-append string string) -o| 3 (scheme#= fixnum fixnum) -o| 1 (scheme#length list) -o| 11 (##sys#check-output-port * * *) -o| 2 (scheme#cdar (pair pair *)) -o| 1 (scheme#caar (pair pair *)) -o| 1 (scheme#eqv? * *) -o| 11 (##sys#check-list (or pair list) *) -o| 79 (scheme#cdr pair) -o| 37 (scheme#car pair) -(o e)|safe calls: 1108 -(o e)|dropped branches: 2 -(o e)|assignments to immediate values: 1 -o|safe globals: (posv posq make-list iota find-tail find length+ lset=/eq? lset<=/eq? list-tabulate lset-intersection/eq? lset-union/eq? lset-difference/eq? lset-adjoin/eq? list-index last unzip1 remove filter-map filter alist-cons delete-duplicates fifth fourth third second first delete concatenate cons* any every append-map split-at drop take span partition) -o|removed side-effect free assignment to unused variable: partition -o|removed side-effect free assignment to unused variable: span -o|removed side-effect free assignment to unused variable: drop -o|removed side-effect free assignment to unused variable: split-at -o|removed side-effect free assignment to unused variable: append-map -o|inlining procedure: k4356 -o|inlining procedure: k4356 -o|inlining procedure: k4387 -o|inlining procedure: k4387 -o|removed side-effect free assignment to unused variable: cons* -o|removed side-effect free assignment to unused variable: concatenate -o|inlining procedure: k4473 -o|inlining procedure: k4473 -o|removed side-effect free assignment to unused variable: first -o|removed side-effect free assignment to unused variable: second -o|removed side-effect free assignment to unused variable: third -o|removed side-effect free assignment to unused variable: fourth -o|removed side-effect free assignment to unused variable: fifth -o|removed side-effect free assignment to unused variable: alist-cons -o|inlining procedure: k4604 -o|inlining procedure: k4604 -o|inlining procedure: k4596 -o|inlining procedure: k4596 -o|inlining procedure: k4651 -o|inlining procedure: k4651 -o|inlining procedure: k4640 -o|inlining procedure: k4640 -o|removed side-effect free assignment to unused variable: remove -o|removed side-effect free assignment to unused variable: unzip1 -o|removed side-effect free assignment to unused variable: last -o|removed side-effect free assignment to unused variable: list-index -o|removed side-effect free assignment to unused variable: lset-adjoin/eq? -o|removed side-effect free assignment to unused variable: lset-difference/eq? -o|removed side-effect free assignment to unused variable: lset-union/eq? -o|removed side-effect free assignment to unused variable: lset-intersection/eq? -o|inlining procedure: k4995 -o|inlining procedure: k4995 -o|removed side-effect free assignment to unused variable: lset<=/eq? -o|removed side-effect free assignment to unused variable: lset=/eq? -o|removed side-effect free assignment to unused variable: length+ -o|removed side-effect free assignment to unused variable: find -o|removed side-effect free assignment to unused variable: find-tail -o|removed side-effect free assignment to unused variable: iota -o|removed side-effect free assignment to unused variable: make-list -o|removed side-effect free assignment to unused variable: posq -o|removed side-effect free assignment to unused variable: posv -o|removed side-effect free assignment to unused variable: module? -o|merged explicitly consed rest parameter: rest953960 -o|inlining procedure: k5653 -o|contracted procedure: "(modules.scm:138) g988997" -o|inlining procedure: k5653 -o|inlining procedure: k5708 -o|inlining procedure: k5708 -o|inlining procedure: k5700 -o|inlining procedure: k5700 -o|inlining procedure: k5749 -o|inlining procedure: k5749 -o|inlining procedure: k5800 -o|inlining procedure: k5800 -o|inlining procedure: k5861 -o|inlining procedure: k5861 -o|inlining procedure: k5844 -o|inlining procedure: k5900 -o|inlining procedure: k5900 -o|inlining procedure: k5844 -o|inlining procedure: k5952 -o|inlining procedure: k5952 -o|inlining procedure: k5996 -o|inlining procedure: k5996 -o|inlining procedure: k6022 -o|inlining procedure: k6022 -o|inlining procedure: k6034 -o|inlining procedure: k6034 -o|inlining procedure: k6123 -o|inlining procedure: k6123 -o|inlining procedure: k6204 -o|inlining procedure: k6204 -o|consed rest parameter at call site: "(modules.scm:261) make-module" 7 -o|merged explicitly consed rest parameter: ses*1283 -o|inlining procedure: k6625 -o|inlining procedure: k6625 -o|inlining procedure: k6645 -o|inlining procedure: k6672 -o|inlining procedure: k6672 -o|inlining procedure: k6645 -o|inlining procedure: k6700 -o|inlining procedure: k6700 -o|inlining procedure: k6972 -o|contracted procedure: "(modules.scm:382) g14851494" -o|inlining procedure: k6972 -o|inlining procedure: k7004 -o|inlining procedure: k7004 -o|inlining procedure: k7020 -o|inlining procedure: k7020 -o|inlining procedure: k7083 -o|inlining procedure: k7083 -o|inlining procedure: k7119 -o|inlining procedure: k7119 -o|inlining procedure: k7208 -o|contracted procedure: "(modules.scm:355) g13991408" -o|inlining procedure: k7160 -o|inlining procedure: k7160 -o|inlining procedure: k7208 -o|contracted procedure: "(modules.scm:348) g13871388" -o|contracted procedure: "(modules.scm:340) compiled-module-dependencies" -o|inlining procedure: k6783 -o|contracted procedure: "(modules.scm:328) g13411350" -o|inlining procedure: k6783 -o|contracted procedure: "(modules.scm:329) delete-duplicates" -o|inlining procedure: k4548 -o|inlining procedure: k4548 -o|inlining procedure: k7326 -o|inlining procedure: k7326 -o|consed rest parameter at call site: "(modules.scm:422) merge-se" 1 -o|inlining procedure: k7431 -o|consed rest parameter at call site: "(modules.scm:422) merge-se" 1 -o|inlining procedure: k7431 -o|consed rest parameter at call site: "(modules.scm:422) merge-se" 1 -o|consed rest parameter at call site: "(modules.scm:426) merge-se" 1 -o|inlining procedure: k7457 -o|consed rest parameter at call site: "(modules.scm:426) merge-se" 1 -o|inlining procedure: k7457 -o|consed rest parameter at call site: "(modules.scm:426) merge-se" 1 -o|consed rest parameter at call site: "(modules.scm:430) merge-se" 1 -o|inlining procedure: k7496 -o|inlining procedure: k7496 -o|inlining procedure: k7519 -o|inlining procedure: k7519 -o|consed rest parameter at call site: "(modules.scm:415) merge-se" 1 -o|consed rest parameter at call site: "(modules.scm:411) make-module" 7 -o|inlining procedure: k7574 -o|contracted procedure: "(modules.scm:408) g15471556" -o|inlining procedure: k7574 -o|inlining procedure: k7608 -o|contracted procedure: "(modules.scm:405) find-reexport1528" -o|inlining procedure: k7356 -o|inlining procedure: k7356 -o|inlining procedure: k7608 -o|inlining procedure: k7620 -o|inlining procedure: k7620 -o|consed rest parameter at call site: "(modules.scm:451) merge-se" 1 -o|inlining procedure: k7722 -o|inlining procedure: k7722 -o|consed rest parameter at call site: "(modules.scm:437) make-module" 7 -o|inlining procedure: k7746 -o|inlining procedure: k7746 -o|inlining procedure: k7814 -o|inlining procedure: k7814 -o|inlining procedure: k7826 -o|inlining procedure: k7841 -o|inlining procedure: k7841 -o|inlining procedure: k7826 -o|substituted constant variable: a7889 -o|substituted constant variable: a7890 -o|substituted constant variable: a7906 -o|substituted constant variable: a7907 -o|inlining procedure: k7925 -o|inlining procedure: k7925 -o|substituted constant variable: a7940 -o|substituted constant variable: a7952 -o|substituted constant variable: a7953 -o|substituted constant variable: a7966 -o|substituted constant variable: a7967 -o|substituted constant variable: a8004 -o|substituted constant variable: a8005 -o|inlining procedure: k7994 -o|substituted constant variable: a8027 -o|substituted constant variable: a8028 -o|inlining procedure: k7994 -o|inlining procedure: k8048 -o|inlining procedure: k8048 -o|inlining procedure: k8060 -o|substituted constant variable: a8072 -o|substituted constant variable: a8073 -o|substituted constant variable: a8084 -o|substituted constant variable: a8085 -o|inlining procedure: k8077 -o|substituted constant variable: a8100 -o|substituted constant variable: a8101 -o|substituted constant variable: a8108 -o|substituted constant variable: a8109 -o|inlining procedure: k8077 -o|inlining procedure: k8126 -o|inlining procedure: k8126 -o|substituted constant variable: a8146 -o|contracted procedure: "(modules.scm:523) g18761877" -o|inlining procedure: k8060 -o|inlining procedure: k8154 -o|inlining procedure: k8154 -o|inlining procedure: k8193 -o|inlining procedure: k8193 -o|inlining procedure: k8220 -o|inlining procedure: k8220 -o|inlining procedure: k8243 -o|substituted constant variable: a8256 -o|substituted constant variable: a8257 -o|substituted constant variable: a8271 -o|inlining procedure: k8243 -o|inlining procedure: k8291 -o|inlining procedure: k8291 -o|inlining procedure: k8408 -o|inlining procedure: k8408 -o|consed rest parameter at call site: "(modules.scm:624) merge-se" 1 -o|consed rest parameter at call site: "(modules.scm:642) merge-se" 1 -o|consed rest parameter at call site: "(modules.scm:639) merge-se" 1 -o|inlining procedure: k8546 -o|inlining procedure: k8546 -o|consed rest parameter at call site: "(modules.scm:618) merge-se" 1 -o|inlining procedure: k8577 -o|contracted procedure: "(modules.scm:613) g20212030" -o|inlining procedure: k8442 -o|inlining procedure: k8442 -o|inlining procedure: k8577 -o|contracted procedure: "(modules.scm:617) module-indirect-exports" -o|removed side-effect free assignment to unused variable: indirect?1234 -o|inlining procedure: k6414 -o|inlining procedure: k6414 -o|inlining procedure: k6426 -o|inlining procedure: k6426 -o|inlining procedure: k6453 -o|inlining procedure: k6453 -o|inlining procedure: k6511 -o|inlining procedure: k6511 -o|inlining procedure: k6485 -o|inlining procedure: k6485 -o|inlining procedure: k6530 -o|inlining procedure: k6530 -o|inlining procedure: k8620 -o|inlining procedure: k8620 -o|inlining procedure: k8647 -o|inlining procedure: k8647 -o|inlining procedure: k8670 -o|inlining procedure: k8670 -o|inlining procedure: k8698 -o|inlining procedure: k8698 -o|inlining procedure: k8739 -o|inlining procedure: k8739 -o|inlining procedure: k8767 -o|inlining procedure: k8767 -o|consed rest parameter at call site: "(modules.scm:554) merge-se" 1 -o|inlining procedure: k8838 -o|inlining procedure: k8838 -o|inlining procedure: k8855 -o|inlining procedure: k8855 -o|contracted procedure: "(modules.scm:551) filter-sdlist1717" -o|inlining procedure: k8339 -o|inlining procedure: k8339 -o|substituted constant variable: saved208920902109 -o|substituted constant variable: saved209120922110 -o|inlining procedure: k9009 -o|inlining procedure: k9009 -o|substituted constant variable: a9048 -o|inlining procedure: k9058 -o|inlining procedure: k9058 -o|inlining procedure: k9096 -o|inlining procedure: k9096 -o|inlining procedure: k9115 -o|inlining procedure: k9115 -o|inlining procedure: k9143 -o|inlining procedure: k9157 -o|inlining procedure: k9157 -o|inlining procedure: k9143 -o|inlining procedure: k9189 -o|inlining procedure: k9189 -o|inlining procedure: k9235 -o|inlining procedure: k9235 -o|inlining procedure: k9285 -o|inlining procedure: k9285 -o|inlining procedure: k9310 -o|inlining procedure: k9344 -o|inlining procedure: k9375 -o|inlining procedure: k9375 -o|inlining procedure: k9344 -o|inlining procedure: k9420 -o|inlining procedure: k9420 -o|inlining procedure: k9310 -o|inlining procedure: k9494 -o|inlining procedure: k9506 -o|inlining procedure: k9537 -o|inlining procedure: k9537 -o|inlining procedure: k9506 -o|inlining procedure: k9494 -o|inlining procedure: k9643 -o|inlining procedure: k9677 -o|inlining procedure: k9689 -o|inlining procedure: k9729 -o|inlining procedure: k9729 -o|inlining procedure: k9752 -o|inlining procedure: k9752 -o|inlining procedure: k9689 -o|inlining procedure: k9677 -o|inlining procedure: k9643 -o|inlining procedure: k9979 -o|inlining procedure: k9979 -o|inlining procedure: k10013 -o|inlining procedure: k10013 -o|inlining procedure: k10079 -o|inlining procedure: k10079 -o|inlining procedure: k10103 -o|inlining procedure: k10103 -o|inlining procedure: k10152 -o|inlining procedure: k10162 -o|inlining procedure: k10162 -o|inlining procedure: k10152 -o|inlining procedure: k10197 -o|inlining procedure: k10197 -o|consed rest parameter at call site: "(modules.scm:864) merge-se" 1 -o|consed rest parameter at call site: "(modules.scm:863) merge-se" 1 -o|consed rest parameter at call site: "(modules.scm:861) merge-se" 1 -o|inlining procedure: k10315 -o|inlining procedure: k10315 -o|inlining procedure: k10349 -o|inlining procedure: k10349 -o|inlining procedure: k10419 -o|inlining procedure: k10419 -o|inlining procedure: k10453 -o|inlining procedure: k10453 -o|inlining procedure: k10493 -o|inlining procedure: k10493 -o|inlining procedure: k10516 -o|inlining procedure: k10516 -o|inlining procedure: k10536 -o|inlining procedure: k10536 -o|contracted procedure: "(modules.scm:879) register-undefined" -o|inlining procedure: k6231 -o|inlining procedure: k6245 -o|inlining procedure: k6245 -o|inlining procedure: k6288 -o|inlining procedure: k6288 -o|inlining procedure: k6231 -o|inlining procedure: k10596 -o|inlining procedure: k10596 -o|inlining procedure: k10620 -o|inlining procedure: k10620 -o|inlining procedure: k10642 -o|inlining procedure: k10642 -o|contracted procedure: "(modules.scm:882) g28562857" -o|merged explicitly consed rest parameter: args2877 -o|inlining procedure: k10678 -o|inlining procedure: k10678 -o|consed rest parameter at call site: "(modules.scm:897) err2875" 1 -o|contracted procedure: "(modules.scm:896) g28822883" -o|inlining procedure: k10684 -o|inlining procedure: k10684 -o|inlining procedure: k10699 -o|consed rest parameter at call site: "(modules.scm:901) err2875" 1 -o|inlining procedure: k10699 -o|inlining procedure: k10714 -o|inlining procedure: k10714 -o|consed rest parameter at call site: "(modules.scm:906) err2875" 1 -o|inlining procedure: k10732 -o|inlining procedure: k10732 -o|consed rest parameter at call site: "(modules.scm:911) err2875" 1 -o|inlining procedure: k10756 -o|inlining procedure: k10756 -o|inlining procedure: k10779 -o|inlining procedure: k10779 -o|consed rest parameter at call site: "(modules.scm:917) err2875" 1 -o|inlining procedure: k10823 -o|inlining procedure: k10823 -o|consed rest parameter at call site: "(modules.scm:922) err2875" 1 -o|contracted procedure: "(modules.scm:925) g29132914" -o|merged explicitly consed rest parameter: args2928 -o|consed rest parameter at call site: "(modules.scm:936) err2927" 1 -o|inlining procedure: k10944 -o|inlining procedure: k10944 -o|inlining procedure: k10995 -o|inlining procedure: k10995 -o|inlining procedure: k11004 -o|inlining procedure: k11016 -o|inlining procedure: k11016 -o|removed unused parameter to known procedure: alias2989 "(modules.scm:950) match-functor-argument" -o|inlining procedure: k11004 -o|removed unused parameter to known procedure: alias2989 "(modules.scm:964) match-functor-argument" -o|consed rest parameter at call site: "(modules.scm:931) err2927" 1 -o|contracted procedure: "(modules.scm:928) g29232924" -o|removed unused formal parameters: (alias2989) -o|inlining procedure: k11124 -o|inlining procedure: k11135 -o|inlining procedure: k11135 -o|inlining procedure: k11124 -o|inlining procedure: k11219 -o|contracted procedure: "(modules.scm:991) g30263035" -o|substituted constant variable: a11205 -o|inlining procedure: k11219 -o|inlining procedure: k11253 -o|inlining procedure: k11253 -o|inlining procedure: k11312 -o|inlining procedure: k11312 -o|inlining procedure: k11415 -o|inlining procedure: k11415 -o|inlining procedure: k11454 -o|contracted procedure: "(modules.scm:1433) delq3099" -o|inlining procedure: k11470 -o|inlining procedure: k11470 -o|propagated global variable: lst3103 ##sys#module-table -o|inlining procedure: k11454 -o|inlining procedure: k11559 -o|contracted procedure: "(modules.scm:1444) g31223131" -o|inlining procedure: k11559 -o|propagated global variable: r4rs-syntax3047 ##sys#scheme-macro-environment -o|replaced variables: 1742 -o|removed binding forms: 539 -o|removed side-effect free assignment to unused variable: every -o|removed side-effect free assignment to unused variable: any -o|removed side-effect free assignment to unused variable: filter -o|substituted constant variable: r464111688 -o|removed side-effect free assignment to unused variable: list-tabulate -o|substituted constant variable: r599711718 -o|substituted constant variable: r602311720 -o|removed call to pure procedure with unused result: "(modules.scm:217) chicken.base#void" -o|removed call to pure procedure with unused result: "(modules.scm:232) chicken.base#void" -o|substituted constant variable: r700511737 -o|substituted constant variable: r700511737 -o|substituted constant variable: r702111741 -o|removed call to pure procedure with unused result: "(modules.scm:368) chicken.base#void" -o|substituted constant variable: prop1390 -o|substituted constant variable: r732711756 -o|substituted constant variable: r743211759 -o|substituted constant variable: r743211759 -o|substituted constant variable: r745811763 -o|substituted constant variable: r745811763 -o|substituted constant variable: r760911774 -o|substituted constant variable: r762111776 -o|substituted constant variable: r781511781 -o|substituted constant variable: r804911792 -o|converted assignments to bindings: (ln->num1808) -o|substituted constant variable: prop1879 -o|substituted constant variable: r806111798 -o|substituted constant variable: r824411806 -o|removed call to pure procedure with unused result: "(modules.scm:625) chicken.base#void" -o|removed call to pure procedure with unused result: "(modules.scm:628) chicken.base#void" -o|substituted constant variable: r641511817 -o|substituted constant variable: r642711819 -o|converted assignments to bindings: (warn1235) -o|substituted constant variable: r864811833 -o|removed call to pure procedure with unused result: "(modules.scm:585) chicken.base#void" -o|substituted constant variable: r883911845 -o|substituted constant variable: r834011849 -o|converted assignments to bindings: (report-unresolved-identifiers1716) -o|substituted constant variable: r901011852 -o|converted assignments to bindings: (rename2520) -o|converted assignments to bindings: (module-imports2223) -o|substituted constant variable: r1016311903 -o|substituted constant variable: r1015311904 -o|substituted constant variable: r1019811906 -o|removed call to pure procedure with unused result: "(modules.scm:862) chicken.base#void" -o|removed call to pure procedure with unused result: "(modules.scm:822) chicken.base#void" -o|removed call to pure procedure with unused result: "(modules.scm:821) chicken.base#void" -o|removed call to pure procedure with unused result: "(modules.scm:820) chicken.base#void" -o|substituted constant variable: r628911926 -o|substituted constant variable: r628911926 -o|removed call to pure procedure with unused result: "(modules.scm:877) chicken.base#void" -o|removed call to pure procedure with unused result: "(modules.scm:886) chicken.base#void" -o|converted assignments to bindings: (mrename2841) -o|substituted constant variable: prop2885 -o|substituted constant variable: r1071511941 -o|substituted constant variable: prop2916 -o|substituted constant variable: r1099611953 -o|substituted constant variable: r1099611953 -o|substituted constant variable: r1101711958 -o|converted assignments to bindings: (merr2935) -o|converted assignments to bindings: (err2927) -o|substituted constant variable: prop2926 -o|substituted constant variable: r1145511976 -o|converted assignments to bindings: (delmod3098) -o|simplifications: ((let . 9)) -o|replaced variables: 106 -o|removed binding forms: 1515 -o|contracted procedure: k6064 -o|contracted procedure: k6144 -o|contracted procedure: k7104 -o|inlining procedure: k7786 -o|inlining procedure: k7928 -o|inlining procedure: k8229 -o|inlining procedure: k8229 -o|inlining procedure: k8229 -o|inlining procedure: k8229 -o|contracted procedure: k8486 -o|contracted procedure: k8504 -o|inlining procedure: k8598 -o|inlining procedure: k8598 -o|contracted procedure: k8733 -o|contracted procedure: k10132 -o|contracted procedure: k10135 -o|contracted procedure: k10138 -o|contracted procedure: k10601 -o|inlining procedure: k10604 -o|inlining procedure: k10604 -o|contracted procedure: k10639 -o|removed binding forms: 131 -o|contracted procedure: k7249 -o|inlining procedure: k7359 -o|substituted constant variable: r778712254 -o|inlining procedure: k7838 -o|substituted constant variable: r792912257 -o|contracted procedure: k8065 -o|substituted constant variable: r823012265 -o|substituted constant variable: r823012265 -o|substituted constant variable: r823012267 -o|substituted constant variable: r823012267 -o|substituted constant variable: r823012269 -o|substituted constant variable: r823012269 -o|substituted constant variable: r823012271 -o|substituted constant variable: r823012271 -o|contracted procedure: k10625 -o|contracted procedure: k10675 -o|contracted procedure: k10897 -o|simplifications: ((let . 1)) -o|replaced variables: 2 -o|removed binding forms: 20 -o|removed conditional forms: 5 -o|substituted constant variable: r736012399 -o|substituted constant variable: r783912402 -o|substituted constant variable: r783912402 -o|removed binding forms: 9 -o|removed conditional forms: 2 -o|removed binding forms: 2 -o|simplifications: ((if . 33) (##core#call . 746) (let . 57)) -o| call simplifications: -o| scheme#vector -o| scheme#list? 2 -o| scheme#set-cdr! -o| scheme#caddr -o| scheme#cddr 3 -o| scheme#string? -o| scheme#number? -o| scheme#cdar 3 -o| scheme#apply 4 -o| scheme#length 2 -o| scheme#list 7 -o| scheme#set-car! 3 -o| ##sys#call-with-values 6 -o| scheme#list-ref -o| scheme#equal? -o| scheme#symbol? 17 -o| ##sys#cons 23 -o| ##sys#list 27 -o| scheme#not 15 -o| scheme#caar 14 -o| scheme#eq? 28 -o| scheme#assq 33 -o| scheme#cdr 39 -o| scheme#memq 6 -o| scheme#cadr 15 -o| ##sys#setslot 22 -o| scheme#values 6 -o| ##sys#check-structure 28 -o| ##sys#block-ref 15 -o| ##sys#make-structure 3 -o| ##sys#check-list 31 -o| scheme#pair? 60 -o| ##sys#slot 104 -o| scheme#null? 46 -o| scheme#car 63 -o| scheme#cons 114 -o|contracted procedure: k4476 -o|contracted procedure: k4502 -o|contracted procedure: k4631 -o|contracted procedure: k4643 -o|contracted procedure: k4666 -o|contracted procedure: k4674 -o|contracted procedure: k5262 -o|contracted procedure: k5280 -o|contracted procedure: k5289 -o|contracted procedure: k5298 -o|contracted procedure: k5307 -o|contracted procedure: k5316 -o|contracted procedure: k5325 -o|contracted procedure: k5334 -o|contracted procedure: k5343 -o|contracted procedure: k5352 -o|contracted procedure: k5361 -o|contracted procedure: k5370 -o|contracted procedure: k5379 -o|contracted procedure: k5388 -o|contracted procedure: k5397 -o|contracted procedure: k5406 -o|contracted procedure: k5415 -o|contracted procedure: k5424 -o|contracted procedure: k5433 -o|contracted procedure: k5442 -o|contracted procedure: k5451 -o|contracted procedure: k5460 -o|contracted procedure: k5469 -o|contracted procedure: k5478 -o|contracted procedure: k5487 -o|contracted procedure: k5496 -o|contracted procedure: k5505 -o|contracted procedure: k5514 -o|contracted procedure: k5523 -o|contracted procedure: k5557 -o|contracted procedure: k5551 -o|contracted procedure: k5574 -o|contracted procedure: k5570 -o|contracted procedure: k5624 -o|contracted procedure: k5640 -o|contracted procedure: k5656 -o|contracted procedure: k5678 -o|contracted procedure: k5633 -o|contracted procedure: k5637 -o|contracted procedure: k5674 -o|contracted procedure: k5659 -o|contracted procedure: k5662 -o|contracted procedure: k5670 -o|contracted procedure: k5697 -o|contracted procedure: k5705 -o|contracted procedure: k5711 -o|contracted procedure: k5721 -o|contracted procedure: k5779 -o|contracted procedure: k5734 -o|contracted procedure: k5773 -o|contracted procedure: k5737 -o|contracted procedure: k5767 -o|contracted procedure: k5740 -o|contracted procedure: k5761 -o|contracted procedure: k5743 -o|contracted procedure: k5746 -o|contracted procedure: k5788 -o|contracted procedure: k5815 -o|contracted procedure: k5847 -o|contracted procedure: k5858 -o|contracted procedure: k5867 -o|contracted procedure: k5873 -o|contracted procedure: k5903 -o|contracted procedure: k5913 -o|contracted procedure: k5917 -o|contracted procedure: k5940 -o|contracted procedure: k5943 -o|contracted procedure: k5955 -o|contracted procedure: k5977 -o|contracted procedure: k5973 -o|contracted procedure: k5958 -o|contracted procedure: k5961 -o|contracted procedure: k5969 -o|contracted procedure: k6003 -o|contracted procedure: k6013 -o|contracted procedure: k6019 -o|contracted procedure: k6037 -o|contracted procedure: k6049 -o|contracted procedure: k6075 -o|contracted procedure: k6071 -o|contracted procedure: k6083 -o|contracted procedure: k6126 -o|contracted procedure: k6158 -o|contracted procedure: k6154 -o|contracted procedure: k6173 -o|contracted procedure: k6169 -o|contracted procedure: k6188 -o|contracted procedure: k6225 -o|contracted procedure: k6338 -o|contracted procedure: k6297 -o|contracted procedure: k6332 -o|contracted procedure: k6300 -o|contracted procedure: k6326 -o|contracted procedure: k6303 -o|contracted procedure: k6320 -o|contracted procedure: k6306 -o|contracted procedure: k6317 -o|contracted procedure: k6313 -o|contracted procedure: k6617 -o|contracted procedure: k6628 -o|contracted procedure: k6754 -o|contracted procedure: k6634 -o|contracted procedure: k6637 -o|contracted procedure: k6648 -o|contracted procedure: k6657 -o|contracted procedure: k6660 -o|contracted procedure: k6675 -o|contracted procedure: k6685 -o|contracted procedure: k6689 -o|contracted procedure: k6703 -o|contracted procedure: k6710 -o|contracted procedure: k6735 -o|contracted procedure: k6741 -o|contracted procedure: k6745 -o|contracted procedure: k6866 -o|contracted procedure: k6862 -o|contracted procedure: k6858 -o|contracted procedure: k6910 -o|contracted procedure: k6914 -o|contracted procedure: k7155 -o|contracted procedure: k7199 -o|contracted procedure: k6918 -o|contracted procedure: k6922 -o|contracted procedure: k7072 -o|contracted procedure: k7077 -o|contracted procedure: k7080 -o|contracted procedure: k7086 -o|contracted procedure: k7093 -o|contracted procedure: k7110 -o|contracted procedure: k6926 -o|contracted procedure: k6938 -o|contracted procedure: k6963 -o|contracted procedure: k6934 -o|contracted procedure: k6906 -o|contracted procedure: k6902 -o|contracted procedure: k6975 -o|contracted procedure: k6997 -o|contracted procedure: k6957 -o|contracted procedure: k6947 -o|contracted procedure: k6951 -o|contracted procedure: k6993 -o|contracted procedure: k6978 -o|contracted procedure: k6981 -o|contracted procedure: k6989 -o|contracted procedure: k7007 -o|contracted procedure: k7023 -o|contracted procedure: k7068 -o|contracted procedure: k7029 -o|contracted procedure: k7037 -o|contracted procedure: k7054 -o|contracted procedure: k7044 -o|contracted procedure: k7122 -o|contracted procedure: k7125 -o|contracted procedure: k7128 -o|contracted procedure: k7136 -o|contracted procedure: k7144 -o|contracted procedure: k7211 -o|contracted procedure: k7214 -o|contracted procedure: k7217 -o|contracted procedure: k7225 -o|contracted procedure: k7233 -o|contracted procedure: k7193 -o|contracted procedure: k7163 -o|contracted procedure: k7170 -o|contracted procedure: k7181 -o|contracted procedure: k7185 -o|contracted procedure: k7252 -o|contracted procedure: k7283 -o|contracted procedure: k7269 -o|contracted procedure: k7276 -o|contracted procedure: k7311 -o|contracted procedure: k7289 -o|contracted procedure: k7304 -o|contracted procedure: k7300 -o|contracted procedure: k7296 -o|contracted procedure: k6763 -o|contracted procedure: k6774 -o|contracted procedure: k6786 -o|contracted procedure: k6808 -o|contracted procedure: k6804 -o|contracted procedure: k6789 -o|contracted procedure: k6792 -o|contracted procedure: k6800 -o|contracted procedure: k4551 -o|contracted procedure: k4554 -o|contracted procedure: k4564 -o|contracted procedure: k7323 -o|contracted procedure: k7329 -o|contracted procedure: k7663 -o|contracted procedure: k7338 -o|contracted procedure: k7657 -o|contracted procedure: k7341 -o|contracted procedure: k7651 -o|contracted procedure: k7344 -o|contracted procedure: k7645 -o|contracted procedure: k7347 -o|contracted procedure: k7382 -o|contracted procedure: k7402 -o|contracted procedure: k7420 -o|contracted procedure: k7428 -o|contracted procedure: k7434 -o|contracted procedure: k7446 -o|contracted procedure: k7454 -o|contracted procedure: k7460 -o|contracted procedure: k7474 -o|contracted procedure: k7470 -o|contracted procedure: k7478 -o|contracted procedure: k7499 -o|contracted procedure: k7509 -o|contracted procedure: k7513 -o|contracted procedure: k7522 -o|contracted procedure: k7532 -o|contracted procedure: k7536 -o|contracted procedure: k7564 -o|contracted procedure: k7539 -o|contracted procedure: k7560 -o|contracted procedure: k7577 -o|contracted procedure: k7599 -o|contracted procedure: k7391 -o|contracted procedure: k7595 -o|contracted procedure: k7580 -o|contracted procedure: k7583 -o|contracted procedure: k7591 -o|contracted procedure: k7611 -o|contracted procedure: k7353 -o|contracted procedure: k7369 -o|contracted procedure: k7359 -o|contracted procedure: k7642 -o|contracted procedure: k7623 -o|contracted procedure: k7630 -o|contracted procedure: k7777 -o|contracted procedure: k7672 -o|contracted procedure: k7689 -o|contracted procedure: k7685 -o|contracted procedure: k7693 -o|contracted procedure: k7717 -o|contracted procedure: k7725 -o|contracted procedure: k7728 -o|contracted procedure: k7737 -o|contracted procedure: k7749 -o|contracted procedure: k7752 -o|contracted procedure: k7755 -o|contracted procedure: k7763 -o|contracted procedure: k7771 -o|contracted procedure: k7792 -o|contracted procedure: k7786 -o|contracted procedure: k7817 -o|contracted procedure: k7867 -o|contracted procedure: k7820 -o|contracted procedure: k7829 -o|contracted procedure: k7856 -o|contracted procedure: k7832 -o|contracted procedure: k7838 -o|contracted procedure: k7870 -o|contracted procedure: k8889 -o|contracted procedure: k7879 -o|contracted procedure: k7934 -o|contracted procedure: k7942 -o|contracted procedure: k7928 -o|contracted procedure: k8045 -o|contracted procedure: k7945 -o|contracted procedure: k7988 -o|contracted procedure: k8041 -o|contracted procedure: k7997 -o|contracted procedure: k8020 -o|contracted procedure: k8148 -o|contracted procedure: k8080 -o|contracted procedure: k8117 -o|contracted procedure: k8129 -o|contracted procedure: k8139 -o|contracted procedure: k8143 -o|contracted procedure: k8157 -o|contracted procedure: k8167 -o|contracted procedure: k8171 -o|contracted procedure: k8177 -o|contracted procedure: k8196 -o|contracted procedure: k8206 -o|contracted procedure: k8210 -o|contracted procedure: k8223 -o|contracted procedure: k8226 -o|contracted procedure: k8274 -o|contracted procedure: k8240 -o|contracted procedure: k8249 -o|contracted procedure: k8268 -o|contracted procedure: k8279 -o|contracted procedure: k8282 -o|contracted procedure: k8294 -o|contracted procedure: k8316 -o|contracted procedure: k8312 -o|contracted procedure: k8297 -o|contracted procedure: k8300 -o|contracted procedure: k8308 -o|contracted procedure: k8419 -o|contracted procedure: k8411 -o|contracted procedure: k8415 -o|contracted procedure: k8425 -o|contracted procedure: k8437 -o|contracted procedure: k8472 -o|contracted procedure: k8495 -o|contracted procedure: k8498 -o|contracted procedure: k8520 -o|contracted procedure: k8549 -o|contracted procedure: k8559 -o|contracted procedure: k8563 -o|contracted procedure: k8580 -o|contracted procedure: k8586 -o|contracted procedure: k8594 -o|contracted procedure: k8602 -o|contracted procedure: k8466 -o|contracted procedure: k8445 -o|contracted procedure: k8448 -o|contracted procedure: k6417 -o|contracted procedure: k6429 -o|contracted procedure: k6601 -o|contracted procedure: k6435 -o|contracted procedure: k6447 -o|contracted procedure: k6456 -o|contracted procedure: k6463 -o|contracted procedure: k6593 -o|contracted procedure: k6469 -o|contracted procedure: k6482 -o|contracted procedure: k6504 -o|contracted procedure: k6508 -o|inlining procedure: k6494 -o|inlining procedure: k6494 -o|contracted procedure: k6522 -o|contracted procedure: k6568 -o|contracted procedure: k6533 -o|contracted procedure: k6550 -o|contracted procedure: k6540 -o|contracted procedure: k6564 -o|contracted procedure: k8611 -o|contracted procedure: k8623 -o|contracted procedure: k8633 -o|contracted procedure: k8637 -o|contracted procedure: k8815 -o|contracted procedure: k8641 -o|contracted procedure: k8650 -o|contracted procedure: k8653 -o|contracted procedure: k8809 -o|contracted procedure: k8656 -o|contracted procedure: k8662 -o|contracted procedure: k8673 -o|contracted procedure: k8695 -o|contracted procedure: k8685 -o|contracted procedure: k8707 -o|contracted procedure: k8770 -o|contracted procedure: k8791 -o|contracted procedure: k8802 -o|contracted procedure: k8818 -o|contracted procedure: k8841 -o|contracted procedure: k8847 -o|contracted procedure: k8878 -o|contracted procedure: k8886 -o|contracted procedure: k8342 -o|contracted procedure: k8348 -o|contracted procedure: k8370 -o|contracted procedure: k8360 -o|contracted procedure: k8382 -o|contracted procedure: k9099 -o|contracted procedure: k9118 -o|contracted procedure: k9127 -o|contracted procedure: k9146 -o|contracted procedure: k9149 -o|contracted procedure: k9177 -o|contracted procedure: k9154 -o|contracted procedure: k9166 -o|contracted procedure: k9170 -o|contracted procedure: k9180 -o|contracted procedure: k9192 -o|contracted procedure: k9195 -o|contracted procedure: k9198 -o|contracted procedure: k9206 -o|contracted procedure: k9214 -o|contracted procedure: k9238 -o|contracted procedure: k9288 -o|contracted procedure: k10056 -o|contracted procedure: k9301 -o|contracted procedure: k9307 -o|contracted procedure: k9329 -o|contracted procedure: k9347 -o|contracted procedure: k9355 -o|contracted procedure: k9369 -o|contracted procedure: k9365 -o|contracted procedure: k9378 -o|contracted procedure: k9388 -o|contracted procedure: k9392 -o|contracted procedure: k9453 -o|contracted procedure: k9395 -o|contracted procedure: k9407 -o|contracted procedure: k9411 -o|contracted procedure: k9417 -o|contracted procedure: k9429 -o|contracted procedure: k9433 -o|contracted procedure: k9445 -o|contracted procedure: k9457 -o|contracted procedure: k9479 -o|contracted procedure: k9497 -o|contracted procedure: k9509 -o|contracted procedure: k9517 -o|contracted procedure: k9531 -o|contracted procedure: k9527 -o|contracted procedure: k9540 -o|contracted procedure: k9550 -o|contracted procedure: k9554 -o|contracted procedure: k9595 -o|contracted procedure: k9557 -o|contracted procedure: k9569 -o|contracted procedure: k9577 -o|contracted procedure: k9589 -o|contracted procedure: k9636 -o|contracted procedure: k9598 -o|contracted procedure: k9610 -o|contracted procedure: k9618 -o|contracted procedure: k9630 -o|contracted procedure: k9640 -o|contracted procedure: k9662 -o|contracted procedure: k9680 -o|contracted procedure: k9692 -o|contracted procedure: k9700 -o|contracted procedure: k9703 -o|contracted procedure: k9709 -o|contracted procedure: k9723 -o|contracted procedure: k9719 -o|contracted procedure: k9732 -o|contracted procedure: k9742 -o|contracted procedure: k9746 -o|contracted procedure: k9755 -o|contracted procedure: k9777 -o|contracted procedure: k9773 -o|contracted procedure: k9758 -o|contracted procedure: k9761 -o|contracted procedure: k9769 -o|contracted procedure: k9833 -o|contracted procedure: k9783 -o|contracted procedure: k9795 -o|contracted procedure: k9811 -o|contracted procedure: k9815 -o|contracted procedure: k9807 -o|contracted procedure: k9799 -o|contracted procedure: k9827 -o|contracted procedure: k9886 -o|contracted procedure: k9836 -o|contracted procedure: k9848 -o|contracted procedure: k9864 -o|contracted procedure: k9868 -o|contracted procedure: k9860 -o|contracted procedure: k9852 -o|contracted procedure: k9880 -o|contracted procedure: k9890 -o|contracted procedure: k9912 -o|contracted procedure: k9946 -o|contracted procedure: k9953 -o|contracted procedure: k9957 -o|contracted procedure: k9960 -o|contracted procedure: k9967 -o|contracted procedure: k9970 -o|contracted procedure: k9982 -o|contracted procedure: k9985 -o|contracted procedure: k9988 -o|contracted procedure: k9996 -o|contracted procedure: k10004 -o|contracted procedure: k10016 -o|contracted procedure: k10019 -o|contracted procedure: k10022 -o|contracted procedure: k10030 -o|contracted procedure: k10038 -o|contracted procedure: k10045 -o|contracted procedure: k10082 -o|contracted procedure: k10091 -o|contracted procedure: k10094 -o|contracted procedure: k10106 -o|contracted procedure: k10116 -o|contracted procedure: k10120 -o|contracted procedure: k10143 -o|contracted procedure: k10149 -o|contracted procedure: k10173 -o|contracted procedure: k10169 -o|contracted procedure: k10159 -o|contracted procedure: k10180 -o|contracted procedure: k10188 -o|contracted procedure: k10194 -o|contracted procedure: k10218 -o|contracted procedure: k10212 -o|contracted procedure: k10200 -o|contracted procedure: k10227 -o|contracted procedure: k10281 -o|contracted procedure: k10299 -o|contracted procedure: k10306 -o|contracted procedure: k10318 -o|contracted procedure: k10340 -o|contracted procedure: k10336 -o|contracted procedure: k10321 -o|contracted procedure: k10324 -o|contracted procedure: k10332 -o|contracted procedure: k10352 -o|contracted procedure: k10374 -o|contracted procedure: k10370 -o|contracted procedure: k10355 -o|contracted procedure: k10358 -o|contracted procedure: k10366 -o|contracted procedure: k10484 -o|contracted procedure: k10399 -o|contracted procedure: k10403 -o|contracted procedure: k10410 -o|contracted procedure: k10422 -o|contracted procedure: k10444 -o|contracted procedure: k10440 -o|contracted procedure: k10425 -o|contracted procedure: k10428 -o|contracted procedure: k10436 -o|contracted procedure: k10456 -o|contracted procedure: k10478 -o|contracted procedure: k10474 -o|contracted procedure: k10459 -o|contracted procedure: k10462 -o|contracted procedure: k10470 -o|contracted procedure: k10496 -o|contracted procedure: k10506 -o|contracted procedure: k10510 -o|contracted procedure: k10519 -o|contracted procedure: k10529 -o|contracted procedure: k10533 -o|contracted procedure: k10551 -o|contracted procedure: k10566 -o|contracted procedure: k6237 -o|contracted procedure: k6259 -o|contracted procedure: k6255 -o|contracted procedure: k6270 -o|contracted procedure: k6266 -o|contracted procedure: k6280 -o|contracted procedure: k6288 -o|contracted procedure: k10628 -o|contracted procedure: k10636 -o|contracted procedure: k10645 -o|contracted procedure: k10687 -o|contracted procedure: k10693 -o|contracted procedure: k10873 -o|contracted procedure: k10702 -o|contracted procedure: k10717 -o|contracted procedure: k10869 -o|contracted procedure: k10723 -o|contracted procedure: k10729 -o|contracted procedure: k10735 -o|contracted procedure: k10865 -o|contracted procedure: k10750 -o|contracted procedure: k10861 -o|contracted procedure: k10759 -o|contracted procedure: k10776 -o|contracted procedure: k10799 -o|contracted procedure: k10805 -o|contracted procedure: k10812 -o|contracted procedure: k10826 -o|contracted procedure: k10837 -o|contracted procedure: k10855 -o|contracted procedure: k10843 -o|contracted procedure: k10889 -o|contracted procedure: k10885 -o|contracted procedure: k10909 -o|contracted procedure: k10912 -o|contracted procedure: k10924 -o|contracted procedure: k10932 -o|contracted procedure: k10935 -o|contracted procedure: k10928 -o|contracted procedure: k10947 -o|contracted procedure: k10969 -o|contracted procedure: k10965 -o|contracted procedure: k10950 -o|contracted procedure: k10953 -o|contracted procedure: k10961 -o|contracted procedure: k10998 -o|contracted procedure: k10991 -o|contracted procedure: k10987 -o|contracted procedure: k10983 -o|contracted procedure: k11007 -o|contracted procedure: k11019 -o|contracted procedure: k11022 -o|contracted procedure: k11062 -o|contracted procedure: k11028 -o|contracted procedure: k11032 -o|contracted procedure: k11045 -o|contracted procedure: k11068 -o|contracted procedure: k11074 -o|contracted procedure: k11077 -o|contracted procedure: k11081 -o|contracted procedure: k11084 -o|contracted procedure: k11097 -o|contracted procedure: k11109 -o|contracted procedure: k11127 -o|contracted procedure: k11159 -o|contracted procedure: k11132 -o|contracted procedure: k11138 -o|contracted procedure: k11145 -o|contracted procedure: k11165 -o|contracted procedure: k11174 -o|contracted procedure: k11197 -o|contracted procedure: k11210 -o|contracted procedure: k11222 -o|contracted procedure: k11225 -o|contracted procedure: k11228 -o|contracted procedure: k11236 -o|contracted procedure: k11244 -o|contracted procedure: k11256 -o|contracted procedure: k11266 -o|contracted procedure: k11270 -o|contracted procedure: k11295 -o|contracted procedure: k11303 -o|contracted procedure: k11315 -o|contracted procedure: k11318 -o|contracted procedure: k11321 -o|contracted procedure: k11329 -o|contracted procedure: k11337 -o|contracted procedure: k11436 -o|contracted procedure: k11409 -o|contracted procedure: k11418 -o|contracted procedure: k11431 -o|contracted procedure: k11451 -o|contracted procedure: k11473 -o|contracted procedure: k11501 -o|contracted procedure: k11479 -o|contracted procedure: k11489 -o|contracted procedure: k11497 -o|contracted procedure: k11523 -o|contracted procedure: k11527 -o|contracted procedure: k11545 -o|contracted procedure: k11541 -o|contracted procedure: k11537 -o|contracted procedure: k11533 -o|contracted procedure: k11562 -o|contracted procedure: k11584 -o|contracted procedure: k11580 -o|contracted procedure: k11565 -o|contracted procedure: k11568 -o|contracted procedure: k11576 -o|contracted procedure: k11632 -o|contracted procedure: k11628 -o|simplifications: ((if . 4) (let . 204)) -o|removed binding forms: 640 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest10351037 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest10351037 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest10351037 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest10351037 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest12121216 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest12121216 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest12121216 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest12121216 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest15111517 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest15111517 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest15111517 0 -(o x)|known list op on rest arg sublist: ##core#rest-cdr rest15111517 0 -o|contracted procedure: k7542 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest16221626 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest16221626 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest16701673 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest16701673 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest17071709 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest17071709 0 -o|contracted procedure: k8701 -o|contracted procedure: k8730 -o|inlining procedure: k6284 -o|inlining procedure: k6284 -o|contracted procedure: k10782 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest30853087 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest30853087 0 -o|removed binding forms: 5 -(o x)|known list op on rest arg sublist: ##core#rest-null? r5738 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r5738 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r5738 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r5738 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r6301 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r6301 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r6301 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r6301 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r7342 1 -(o x)|known list op on rest arg sublist: ##core#rest-car r7342 1 -(o x)|known list op on rest arg sublist: ##core#rest-null? r7342 1 -(o x)|known list op on rest arg sublist: ##core#rest-cdr r7342 1 -o|removed binding forms: 1 -o|removed binding forms: 6 -o|direct leaf routine/allocation: g354355 3 -o|direct leaf routine/allocation: %make-module 17 -o|direct leaf routine/allocation: module-library 0 -o|direct leaf routine/allocation: module-export-list 0 -o|direct leaf routine/allocation: module-defined-list 0 -o|direct leaf routine/allocation: module-exist-list 0 -o|direct leaf routine/allocation: module-defined-syntax-list 0 -o|direct leaf routine/allocation: module-import-forms 0 -o|direct leaf routine/allocation: module-meta-import-forms 0 -o|direct leaf routine/allocation: module-meta-expressions 0 -o|direct leaf routine/allocation: module-vexports 0 -o|direct leaf routine/allocation: module-sexports 0 -o|direct leaf routine/allocation: module-iexports 0 -o|direct leaf routine/allocation: module-saved-environments 0 -o|direct leaf routine/allocation: module-rename-list 0 -o|direct leaf routine/allocation: make-module 17 -o|direct leaf routine/allocation: g10971098 3 -o|direct leaf routine/allocation: loop1684 0 -o|direct leaf routine/allocation: g19962003 3 -o|direct leaf routine/allocation: g22122213 3 -o|direct leaf routine/allocation: g30623071 0 -o|contracted procedure: "(modules.scm:123) k5537" -o|contracted procedure: "(modules.scm:124) k5541" -o|contracted procedure: "(modules.scm:125) k5545" -o|contracted procedure: "(modules.scm:173) k5841" -o|contracted procedure: "(modules.scm:175) k5850" -o|contracted procedure: "(modules.scm:184) k5894" -o|contracted procedure: "(modules.scm:189) k5930" -o|contracted procedure: "(modules.scm:197) k6007" -o|contracted procedure: "(modules.scm:207) k6117" -o|contracted procedure: "(modules.scm:221) k6079" -o|contracted procedure: "(modules.scm:215) k6087" -o|contracted procedure: "(modules.scm:225) k6198" -o|contracted procedure: "(modules.scm:240) k6162" -o|contracted procedure: "(modules.scm:237) k6177" -o|contracted procedure: "(modules.scm:246) k6215" -o|contracted procedure: "(modules.scm:261) k6309" -o|contracted procedure: "(modules.scm:332) k6839" -o|contracted procedure: "(modules.scm:334) k6845" -o|contracted procedure: "(modules.scm:335) k6848" -o|contracted procedure: "(modules.scm:336) k6851" -o|contracted procedure: "(modules.scm:353) k7240" -o|contracted procedure: "(modules.scm:359) k7196" -o|contracted procedure: "(modules.scm:360) k7151" -o|contracted procedure: "(modules.scm:384) k6960" -o|contracted procedure: "(modules.scm:374) k7014" -o|contracted procedure: "(modules.scm:349) k7263" -o|contracted procedure: "(modules.scm:327) k6833" -o|contracted procedure: "(modules.scm:411) k7408" -o|contracted procedure: "(modules.scm:437) k7678" -o|contracted procedure: "(modules.scm:452) k7709" -o|contracted procedure: "(modules.scm:453) k7713" -o|contracted procedure: "(modules.scm:464) k7801" -o|converted assignments to bindings: (loop1684) -o|contracted procedure: "(modules.scm:546) k8385" -o|contracted procedure: "(modules.scm:548) k8391" -o|contracted procedure: "(modules.scm:549) k8394" -o|contracted procedure: "(modules.scm:639) k8540" -o|contracted procedure: "(modules.scm:266) k6347" -o|contracted procedure: "(modules.scm:268) k6353" -o|contracted procedure: "(modules.scm:603) k8626" -o|contracted procedure: "(modules.scm:554) k8825" -o|contracted procedure: "(modules.scm:539) k8333" -o|contracted procedure: "(modules.scm:688) k9140" -o|contracted procedure: "(modules.scm:705) k9252" -o|contracted procedure: "(modules.scm:709) k9268" -o|contracted procedure: "(modules.scm:708) k9272" -o|contracted procedure: "(modules.scm:707) k9276" -o|contracted procedure: "(modules.scm:843) k10261" -o|contracted procedure: "(modules.scm:861) k10278" -o|contracted procedure: "(modules.scm:848) k10295" -o|contracted procedure: "(modules.scm:845) k10385" -o|contracted procedure: "(modules.scm:855) k10396" -o|contracted procedure: "(modules.scm:816) k10547" -o|contracted procedure: "(modules.scm:819) k10562" -o|contracted procedure: "(modules.scm:979) k11156" -o|contracted procedure: "(modules.scm:980) k11152" -o|contracted procedure: "(modules.scm:1138) k11333" -o|contracted procedure: "(modules.scm:1422) k11424" -o|contracted procedure: "(modules.scm:1446) k11516" -o|simplifications: ((let . 1) (if . 2)) -o|removed binding forms: 58 -o|contracted procedure: "(modules.scm:166) k5797" -o|contracted procedure: "(modules.scm:465) k7808" -o|removed binding forms: 2 -o|direct leaf routine with hoistable closures/allocation: g10811088 (g10971098) 3 -o|contracted procedure: "(modules.scm:178) k5906" -o|removed binding forms: 2 -o|customizable procedures: (map-loop31163137 loop3104 map-loop30563074 g29993006 for-each-loop29983013 map-loop30203038 k11141 loop2962 merr2935 match-functor-argument loop22969 map-loop29382955 err2927 loop22898 loop2886 iface2876 err2875 g28602861 mrename2841 g28492850 g12041205 k6248 set-module-import-forms! set-module-meta-import-forms! g26572674 for-each-loop26562685 g26672690 for-each-loop26662700 map-loop27662783 map-loop27922809 map-loop27122729 map-loop27382755 k10233 g25962603 for-each-loop25952630 map-loop25272544 rename2520 map-loop25532570 tostr2173 g24872488 loopv2415 g24822483 loops2424 map-loop24482465 g24362443 for-each-loop24352472 g23822383 loopv2336 g23772378 loops2345 g23572364 for-each-loop23562367 g23032304 g22992300 loop2266 g22792286 for-each-loop22782289 warn2172 outer2227 module-imports2223 find-module/import-library export-rename2174 g21942203 map-loop21882215 loop1939 loop1953 g19861987 id-string1978 fail1977 loop1961 for-each-loop19952006 report-unresolved-identifiers1716 g12691270 g12621263 warn1235 loop21253 loop1247 k8583 map-loop20152040 g20512060 for-each-loop20502067 set-module-vexports! set-module-iexports! map-loop17611778 lp1737 g17261785 for-each-loop17251930 g17941805 for-each-loop17931869 g19041911 for-each-loop19031920 g18211822 ln->num1808 g16421651 map-loop16361657 map-loop15411559 g15741591 for-each-loop15731597 g15841602 for-each-loop15831608 merge-se k7317 filter-map loop304 map-loop13351356 k6882 k6890 k7229 map-loop13931417 g14321441 map-loop14261459 loop1466 k6930 map-loop14791500 lp1316 g13001307 for-each-loop12991310 loop1286 set-module-defined-syntax-list! find-export module-rename delete check-for-redef set-module-defined-list! set-module-meta-expressions! set-module-rename-list! map-loop11131130 set-module-export-list! for-each-loop10801100 set-module-sexports! set-module-exist-list! g10641065 set-module-saved-environments! g10261027 loop1017 map-loop9821000 foldr339342 g344345 loop284) -o|calls to known targets: 338 -o|identified direct recursive calls: f_4638 1 -o|identified direct recursive calls: f_5651 1 -o|unused rest argument: rest10351037 f_5732 -o|identified direct recursive calls: f_5898 1 -o|identified direct recursive calls: f_5950 1 -o|unused rest argument: rest12121216 f_6295 -o|identified direct recursive calls: f_6623 1 -o|identified direct recursive calls: f_6970 1 -o|identified direct recursive calls: f_7018 1 -o|identified direct recursive calls: f_6781 1 -o|unused rest argument: rest15111517 f_7336 -o|unused rest argument: rest16221626 f_7670 -o|unused rest argument: rest16701673 f_7784 -o|identified direct recursive calls: f_7812 3 -o|unused rest argument: _1715 f_8892 -o|identified direct recursive calls: f_8218 2 -o|identified direct recursive calls: f_8289 1 -o|identified direct recursive calls: f_6424 1 -o|identified direct recursive calls: f_8618 1 -o|unused rest argument: rest17071709 f_7877 -o|identified direct recursive calls: f_9342 1 -o|identified direct recursive calls: f_9504 1 -o|identified direct recursive calls: f_9492 1 -o|identified direct recursive calls: f_9750 1 -o|identified direct recursive calls: f_9687 1 -o|identified direct recursive calls: f_9675 1 -o|identified direct recursive calls: f_10313 1 -o|identified direct recursive calls: f_10347 1 -o|identified direct recursive calls: f_10417 1 -o|identified direct recursive calls: f_10451 1 -o|identified direct recursive calls: f_10821 1 -o|identified direct recursive calls: f_10712 2 -o|identified direct recursive calls: f_10942 1 -o|identified direct recursive calls: f_11310 1 -o|unused rest argument: rest30853087 f_11407 -o|identified direct recursive calls: f_11468 1 -o|identified direct recursive calls: f_11557 1 -o|fast box initializations: 69 -o|fast global references: 135 -o|fast global assignments: 36 -o|dropping unused closure argument: f_10570 -o|dropping unused closure argument: f_11119 -o|dropping unused closure argument: f_4465 -o|dropping unused closure argument: f_4629 -o|dropping unused closure argument: f_5549 -o|dropping unused closure argument: f_6011 -o|dropping unused closure argument: f_6605 -o|dropping unused closure argument: f_7799 -o|dropping unused closure argument: f_7920 -o|dropping unused closure argument: f_9050 -o|dropping unused closure argument: f_9080 -o|dropping unused closure argument: f_9138 -*/ -/* end of file */ diff --git a/chicken/src/pathname.c b/chicken/src/pathname.c deleted file mode 100644 index c5517c1..0000000 --- a/chicken/src/pathname.c +++ /dev/null @@ -1,3689 +0,0 @@ -/* Generated from pathname.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: pathname.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file pathname.c -emit-import-library chicken.pathname - unit: pathname - uses: data-structures irregex library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_data_2dstructures_toplevel) -C_extern void C_ccall C_data_2dstructures_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_irregex_toplevel) -C_extern void C_ccall C_irregex_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[76]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,63,32,112,110,41}; -static C_char li1[] C_aligned={C_lihdr(0,0,8),40,108,112,32,108,101,110,41}; -static C_char li2[] C_aligned={C_lihdr(0,0,31),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,99,104,111,112,45,112,100,115,32,115,116,114,41,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,11),40,108,111,111,112,32,115,116,114,115,41,0,0,0,0,0}; -static C_char li4[] C_aligned={C_lihdr(0,0,16),40,99,111,110,99,45,100,105,114,115,32,100,105,114,115,41}; -static C_char li5[] C_aligned={C_lihdr(0,0,24),40,99,97,110,111,110,105,99,97,108,105,122,101,45,100,105,114,115,32,100,105,114,115,41}; -static C_char li6[] C_aligned={C_lihdr(0,0,33),40,95,109,97,107,101,45,112,97,116,104,110,97,109,101,32,108,111,99,32,100,105,114,32,102,105,108,101,32,101,120,116,41,0,0,0,0,0,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,109,97,107,101,45,112,97,116,104,110,97,109,101,32,100,105,114,115,32,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,58),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,109,97,107,101,45,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,32,100,105,114,115,32,102,105,108,101,32,46,32,114,101,115,116,41,0,0,0,0,0,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,15),40,115,116,114,105,112,45,112,100,115,32,100,105,114,41,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,100,101,99,111,109,112,111,115,101,45,112,97,116,104,110,97,109,101,32,112,110,41}; -static C_char li11[] C_aligned={C_lihdr(0,0,7),40,97,49,48,49,57,41,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,29),40,97,49,48,50,53,32,100,105,114,50,51,52,32,102,105,108,101,50,51,54,32,101,120,116,50,51,56,41,0,0,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,100,105,114,101,99,116,111,114,121,32,112,110,41}; -static C_char li14[] C_aligned={C_lihdr(0,0,7),40,97,49,48,51,52,41,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,29),40,97,49,48,52,48,32,100,105,114,50,52,56,32,102,105,108,101,50,53,48,32,101,120,116,50,53,50,41,0,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,35),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,102,105,108,101,32,112,110,41,0,0,0,0,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,7),40,97,49,48,52,57,41,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,29),40,97,49,48,53,53,32,100,105,114,50,54,50,32,102,105,108,101,50,54,52,32,101,120,116,50,54,54,41,0,0,0}; -static C_char li19[] C_aligned={C_lihdr(0,0,40),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,101,120,116,101,110,115,105,111,110,32,112,110,41}; -static C_char li20[] C_aligned={C_lihdr(0,0,7),40,97,49,48,54,52,41,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,29),40,97,49,48,55,48,32,100,105,114,50,55,54,32,102,105,108,101,50,55,56,32,101,120,116,50,56,48,41,0,0,0}; -static C_char li22[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,115,116,114,105,112,45,100,105,114,101,99,116,111,114,121,32,112,110,41,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,7),40,97,49,48,56,50,41,0}; -static C_char li24[] C_aligned={C_lihdr(0,0,29),40,97,49,48,56,56,32,100,105,114,50,57,48,32,102,105,108,101,50,57,50,32,101,120,116,50,57,52,41,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,46),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,115,116,114,105,112,45,101,120,116,101,110,115,105,111,110,32,112,110,41,0,0}; -static C_char li26[] C_aligned={C_lihdr(0,0,7),40,97,49,49,48,48,41,0}; -static C_char li27[] C_aligned={C_lihdr(0,0,27),40,97,49,49,48,54,32,95,51,48,53,32,102,105,108,101,51,48,55,32,101,120,116,51,48,57,41,0,0,0,0,0}; -static C_char li28[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,114,101,112,108,97,99,101,45,100,105,114,101,99,116,111,114,121,32,112,110,32,100,105,114,41,0,0,0,0}; -static C_char li29[] C_aligned={C_lihdr(0,0,7),40,97,49,49,49,56,41,0}; -static C_char li30[] C_aligned={C_lihdr(0,0,26),40,97,49,49,50,52,32,100,105,114,51,50,48,32,95,51,50,50,32,101,120,116,51,50,52,41,0,0,0,0,0,0}; -static C_char li31[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,114,101,112,108,97,99,101,45,102,105,108,101,32,112,110,32,102,105,108,101,41}; -static C_char li32[] C_aligned={C_lihdr(0,0,7),40,97,49,49,51,54,41,0}; -static C_char li33[] C_aligned={C_lihdr(0,0,27),40,97,49,49,52,50,32,100,105,114,51,51,53,32,102,105,108,101,51,51,55,32,95,51,51,57,41,0,0,0,0,0}; -static C_char li34[] C_aligned={C_lihdr(0,0,52),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,112,97,116,104,110,97,109,101,45,114,101,112,108,97,99,101,45,101,120,116,101,110,115,105,111,110,32,112,110,32,101,120,116,41,0,0,0,0}; -static C_char li35[] C_aligned={C_lihdr(0,0,15),40,97,100,100,112,97,114,116,32,112,97,114,116,115,41,0}; -static C_char li36[] C_aligned={C_lihdr(0,0,6),40,112,100,115,63,41,0,0}; -static C_char li37[] C_aligned={C_lihdr(0,0,8),40,103,51,57,48,32,112,41}; -static C_char li38[] C_aligned={C_lihdr(0,0,23),40,102,111,114,45,101,97,99,104,45,108,111,111,112,51,56,57,32,103,51,57,54,41,0}; -static C_char li39[] C_aligned={C_lihdr(0,0,19),40,108,111,111,112,32,105,32,112,114,101,118,32,112,97,114,116,115,41,0,0,0,0,0}; -static C_char li40[] C_aligned={C_lihdr(0,0,49),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,110,111,114,109,97,108,105,122,101,45,112,97,116,104,110,97,109,101,32,112,97,116,104,32,46,32,114,101,115,116,41,0,0,0,0,0,0,0}; -static C_char li41[] C_aligned={C_lihdr(0,0,48),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,115,112,108,105,116,45,100,105,114,101,99,116,111,114,121,32,108,111,99,32,100,105,114,32,107,101,101,112,63,41}; -static C_char li42[] C_aligned={C_lihdr(0,0,6),40,108,111,111,112,41,0,0}; -static C_char li43[] C_aligned={C_lihdr(0,0,38),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,100,105,114,101,99,116,111,114,121,45,110,117,108,108,63,32,100,105,114,41,0,0}; -static C_char li44[] C_aligned={C_lihdr(0,0,42),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,100,101,99,111,109,112,111,115,101,45,100,105,114,101,99,116,111,114,121,32,100,105,114,41,0,0,0,0,0,0}; -static C_char li45[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,45,114,111,111,116,32,112,110,41,0,0,0,0}; -static C_char li46[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,111,114,105,103,105,110,32,114,116,41,0,0,0,0,0,0,0}; -static C_char li47[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,100,105,114,101,99,116,111,114,121,32,114,116,41,0,0,0,0}; -static C_char li48[] C_aligned={C_lihdr(0,0,44),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,97,98,115,111,108,117,116,101,45,112,97,116,104,110,97,109,101,45,114,111,111,116,32,112,110,41,0,0,0,0}; -static C_char li49[] C_aligned={C_lihdr(0,0,33),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,111,114,105,103,105,110,32,114,116,41,0,0,0,0,0,0,0}; -static C_char li50[] C_aligned={C_lihdr(0,0,36),40,99,104,105,99,107,101,110,46,112,97,116,104,110,97,109,101,35,114,111,111,116,45,100,105,114,101,99,116,111,114,121,32,114,116,41,0,0,0,0}; -static C_char li51[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; - - -C_noret_decl(f_1003) -static void C_ccall f_1003(C_word c,C_word *av) C_noret; -C_noret_decl(f_1010) -static void C_ccall f_1010(C_word c,C_word *av) C_noret; -C_noret_decl(f_1014) -static void C_ccall f_1014(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_1026) -static void C_ccall f_1026(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(f_1035) -static void C_ccall f_1035(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_1044) -static void C_ccall f_1044(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_1056) -static void C_ccall f_1056(C_word c,C_word *av) C_noret; -C_noret_decl(f_1059) -static void C_ccall f_1059(C_word c,C_word *av) C_noret; -C_noret_decl(f_1065) -static void C_ccall f_1065(C_word c,C_word *av) C_noret; -C_noret_decl(f_1071) -static void C_ccall f_1071(C_word c,C_word *av) C_noret; -C_noret_decl(f_1077) -static void C_ccall f_1077(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(f_1089) -static void C_ccall f_1089(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_1101) -static void C_ccall f_1101(C_word c,C_word *av) C_noret; -C_noret_decl(f_1107) -static void C_ccall f_1107(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_1119) -static void C_ccall f_1119(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_1131) -static void C_ccall f_1131(C_word c,C_word *av) C_noret; -C_noret_decl(f_1137) -static void C_ccall f_1137(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_1153) -static C_word f_1153(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_1188) -static void C_ccall f_1188(C_word c,C_word *av) C_noret; -C_noret_decl(f_1197) -static C_word f_1197(C_word t0,C_word t1); -C_noret_decl(f_1218) -static void f_1218(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_1228) -static void f_1228(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_1255) -static void C_ccall f_1255(C_word c,C_word *av) C_noret; -C_noret_decl(f_1258) -static void C_ccall f_1258(C_word c,C_word *av) C_noret; -C_noret_decl(f_1259) -static void f_1259(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_1263) -static void C_ccall f_1263(C_word c,C_word *av) C_noret; -C_noret_decl(f_1273) -static void C_ccall f_1273(C_word c,C_word *av) C_noret; -C_noret_decl(f_1276) -static void C_ccall f_1276(C_word c,C_word *av) C_noret; -C_noret_decl(f_1279) -static void C_ccall f_1279(C_word c,C_word *av) C_noret; -C_noret_decl(f_1282) -static void f_1282(C_word t0,C_word t1) C_noret; -C_noret_decl(f_1289) -static void C_ccall f_1289(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_1308) -static void f_1308(C_word t0,C_word t1,C_word t2) 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_1344) -static void C_ccall f_1344(C_word c,C_word *av) C_noret; -C_noret_decl(f_1353) -static void f_1353(C_word t0,C_word t1) 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_1405) -static void f_1405(C_word t0,C_word t1) 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_1459) -static void f_1459(C_word t0,C_word t1,C_word t2,C_word t3) 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_1480) -static void C_ccall f_1480(C_word c,C_word *av) C_noret; -C_noret_decl(f_1482) -static C_word f_1482(C_word t0); -C_noret_decl(f_1512) -static void C_ccall f_1512(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_1561) -static void C_ccall f_1561(C_word c,C_word *av) C_noret; -C_noret_decl(f_1568) -static void C_ccall f_1568(C_word c,C_word *av) C_noret; -C_noret_decl(f_1590) -static void C_ccall f_1590(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_1595) -static void C_ccall f_1595(C_word c,C_word *av) C_noret; -C_noret_decl(f_1601) -static void C_ccall f_1601(C_word c,C_word *av) C_noret; -C_noret_decl(f_1610) -static void C_ccall f_1610(C_word c,C_word *av) C_noret; -C_noret_decl(f_1620) -static void C_ccall f_1620(C_word c,C_word *av) C_noret; -C_noret_decl(f_1622) -static void C_ccall f_1622(C_word c,C_word *av) C_noret; -C_noret_decl(f_1628) -static void C_ccall f_1628(C_word c,C_word *av) C_noret; -C_noret_decl(f_1631) -static void C_ccall f_1631(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_605) -static void C_ccall f_605(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_614) -static void f_614(C_word t0,C_word t1) C_noret; -C_noret_decl(f_616) -static void C_ccall f_616(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_629) -static void f_629(C_word t0,C_word t1) C_noret; -C_noret_decl(f_642) -static void f_642(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_649) -static void f_649(C_word t0,C_word t1) C_noret; -C_noret_decl(f_700) -static void f_700(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_709) -static void f_709(C_word t0,C_word t1,C_word t2) 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_741) -static void C_ccall f_741(C_word c,C_word *av) C_noret; -C_noret_decl(f_751) -static void f_751(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_782) -static void f_782(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) 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_812) -static void f_812(C_word t0,C_word t1) C_noret; -C_noret_decl(f_828) -static void f_828(C_word t0,C_word t1) 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_875) -static void C_ccall f_875(C_word c,C_word *av) C_noret; -C_noret_decl(f_883) -static void C_ccall f_883(C_word c,C_word *av) C_noret; -C_noret_decl(f_894) -static void C_ccall f_894(C_word c,C_word *av) C_noret; -C_noret_decl(f_897) -static void C_ccall f_897(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_919) -static void C_ccall f_919(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_923) -static void f_923(C_word t0,C_word t1) C_noret; -C_noret_decl(f_930) -static void C_ccall f_930(C_word c,C_word *av) C_noret; -C_noret_decl(f_944) -static void C_ccall f_944(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_970) -static void C_ccall f_970(C_word c,C_word *av) C_noret; -C_noret_decl(f_974) -static void C_ccall f_974(C_word c,C_word *av) C_noret; -C_noret_decl(f_978) -static void C_ccall f_978(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_985) -static void C_ccall f_985(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_999) -static void C_ccall f_999(C_word c,C_word *av) C_noret; -C_noret_decl(C_pathname_toplevel) -C_extern void C_ccall C_pathname_toplevel(C_word c,C_word *av) C_noret; - -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[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_1218(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_1228) -static void C_ccall trf_1228(C_word c,C_word *av) C_noret; -static void C_ccall trf_1228(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1228(t0,t1);} - -C_noret_decl(trf_1259) -static void C_ccall trf_1259(C_word c,C_word *av) C_noret; -static void C_ccall trf_1259(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1259(t0,t1,t2);} - -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[1]; -C_word t1=av[0]; -f_1282(t0,t1);} - -C_noret_decl(trf_1308) -static void C_ccall trf_1308(C_word c,C_word *av) C_noret; -static void C_ccall trf_1308(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_1308(t0,t1,t2);} - -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[1]; -C_word t1=av[0]; -f_1353(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_1459) -static void C_ccall trf_1459(C_word c,C_word *av) C_noret; -static void C_ccall trf_1459(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_1459(t0,t1,t2,t3);} - -C_noret_decl(trf_614) -static void C_ccall trf_614(C_word c,C_word *av) C_noret; -static void C_ccall trf_614(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_614(t0,t1);} - -C_noret_decl(trf_629) -static void C_ccall trf_629(C_word c,C_word *av) C_noret; -static void C_ccall trf_629(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_629(t0,t1);} - -C_noret_decl(trf_642) -static void C_ccall trf_642(C_word c,C_word *av) C_noret; -static void C_ccall trf_642(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_642(t0,t1,t2);} - -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[1]; -C_word t1=av[0]; -f_649(t0,t1);} - -C_noret_decl(trf_700) -static void C_ccall trf_700(C_word c,C_word *av) C_noret; -static void C_ccall trf_700(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_700(t0,t1,t2);} - -C_noret_decl(trf_709) -static void C_ccall trf_709(C_word c,C_word *av) C_noret; -static void C_ccall trf_709(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_709(t0,t1,t2);} - -C_noret_decl(trf_751) -static void C_ccall trf_751(C_word c,C_word *av) C_noret; -static void C_ccall trf_751(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_751(t0,t1,t2);} - -C_noret_decl(trf_782) -static void C_ccall trf_782(C_word c,C_word *av) C_noret; -static void C_ccall trf_782(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_782(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_812) -static void C_ccall trf_812(C_word c,C_word *av) C_noret; -static void C_ccall trf_812(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_812(t0,t1);} - -C_noret_decl(trf_828) -static void C_ccall trf_828(C_word c,C_word *av) C_noret; -static void C_ccall trf_828(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_828(t0,t1);} - -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);} - -/* k1001 in k983 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1003,c,av);} -/* pathname.scm:185: strip-pds */ -f_923(((C_word*)t0)[3],t1);} - -/* k1008 in k983 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1010(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1010,c,av);} -/* pathname.scm:188: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_FALSE; -C_values(5,av2);}} - -/* chicken.pathname#pathname-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1014(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_1014,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1020,a[2]=t2,a[3]=((C_word)li11),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1026,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:192: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* a1019 in chicken.pathname#pathname-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -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; -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_1020,c,av);} -/* pathname.scm:192: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1025 in chicken.pathname#pathname-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -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=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_1026,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.pathname#pathname-file in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1029(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word 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_1029,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1035,a[2]=t2,a[3]=((C_word)li14),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1041,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:197: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* a1034 in chicken.pathname#pathname-file in k920 in k917 in k612 in k606 in k603 in k600 */ -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; -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_1035,c,av);} -/* pathname.scm:197: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1040 in chicken.pathname#pathname-file in k920 in k917 in k612 in k606 in k603 in k600 */ -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=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_1041,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.pathname#pathname-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_1044,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1050,a[2]=t2,a[3]=((C_word)li17),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1056,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:202: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* a1049 in chicken.pathname#pathname-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *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_1050,c,av);} -/* pathname.scm:202: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1055 in chicken.pathname#pathname-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1056(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=av[4]; -C_word t5; -C_word *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_1056,c,av);} -t5=t1;{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} - -/* chicken.pathname#pathname-strip-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1059(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_1059,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1065,a[2]=t2,a[3]=((C_word)li20),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1071,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:207: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* a1064 in chicken.pathname#pathname-strip-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1065(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_1065,c,av);} -/* pathname.scm:207: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1070 in chicken.pathname#pathname-strip-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1071(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=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_1071,c,av);} -/* pathname.scm:208: make-pathname */ -t5=*((C_word*)lf[12]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=C_SCHEME_FALSE; -av2[3]=t3; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* chicken.pathname#pathname-strip-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1077(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=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_1077,c,av);} -a=C_alloc(7); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1083,a[2]=t2,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1089,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:212: ##sys#call-with-values */{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=0; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -C_call_with_values(4,av2);}} - -/* a1082 in chicken.pathname#pathname-strip-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -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); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1083,c,av);} -/* pathname.scm:212: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1088 in chicken.pathname#pathname-strip-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1089(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=av[3]; -C_word t4=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_1089,c,av);} -/* pathname.scm:213: make-pathname */ -t5=*((C_word*)lf[12]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -((C_proc)(void*)(*((C_word*)t5+1)))(4,av2);}} - -/* chicken.pathname#pathname-replace-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -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=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_1095,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1101,a[2]=t2,a[3]=((C_word)li26),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1107,a[2]=t3,a[3]=((C_word)li27),tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:217: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a1100 in chicken.pathname#pathname-replace-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1101(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_1101,c,av);} -/* pathname.scm:217: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1106 in chicken.pathname#pathname-replace-directory in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1107(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_1107,c,av);} -/* pathname.scm:218: make-pathname */ -t5=*((C_word*)lf[12]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t3; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* chicken.pathname#pathname-replace-file in k920 in k917 in k612 in k606 in k603 in k600 */ -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=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_1113,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1119,a[2]=t2,a[3]=((C_word)li29),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1125,a[2]=t3,a[3]=((C_word)li30),tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:222: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a1118 in chicken.pathname#pathname-replace-file in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *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_1119,c,av);} -/* pathname.scm:222: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1124 in chicken.pathname#pathname-replace-file in k920 in k917 in k612 in k606 in k603 in k600 */ -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=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_1125,c,av);} -/* pathname.scm:223: make-pathname */ -t5=*((C_word*)lf[12]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=((C_word*)t0)[2]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* chicken.pathname#pathname-replace-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1131(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3=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_1131,c,av);} -a=C_alloc(8); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1137,a[2]=t2,a[3]=((C_word)li32),tmp=(C_word)a,a+=4,tmp); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1143,a[2]=t3,a[3]=((C_word)li33),tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:227: ##sys#call-with-values */{ -C_word *av2=av; -av2[0]=0; -av2[1]=t1; -av2[2]=t4; -av2[3]=t5; -C_call_with_values(4,av2);}} - -/* a1136 in chicken.pathname#pathname-replace-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1137(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word 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_1137,c,av);} -/* pathname.scm:227: decompose-pathname */ -t2=*((C_word*)lf[31]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* a1142 in chicken.pathname#pathname-replace-extension in k920 in k917 in k612 in k606 in k603 in k600 */ -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=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_1143,c,av);} -/* pathname.scm:228: make-pathname */ -t5=*((C_word*)lf[12]+1);{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t1; -av2[2]=t2; -av2[3]=t3; -av2[4]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t5+1)))(5,av2);}} - -/* addpart in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static C_word f_1153(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_stack_overflow_check;{} -if(C_truep(C_i_string_equal_p(lf[46],t1))){ -return(t2);} -else{ -if(C_truep(C_i_string_equal_p(lf[47],t1))){ -t3=C_i_nullp(t2); -if(C_truep(t3)){ -return((C_truep(t3)?C_a_i_cons(&a,2,t1,t2):C_i_cdr(t2)));} -else{ -t4=C_i_car(t2); -t5=C_i_string_equal_p(lf[48],t4); -return((C_truep(t5)?C_a_i_cons(&a,2,t1,t2):C_i_cdr(t2)));}} -else{ -return(C_a_i_cons(&a,2,t1,t2));}}} - -/* chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1188(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_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<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(22,c,5)))){ -C_save_and_reclaim((void *)f_1188,c,av);} -a=C_alloc(22); -t3=C_rest_nullp(c,3); -t4=(C_truep(t3)?((C_word*)t0)[2]:C_get_rest_arg(c,3,av,3,t0)); -t5=C_eqp(t4,lf[44]); -t6=(C_truep(t5)?C_make_character(92):C_make_character(47)); -t7=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1197,a[2]=t4,a[3]=((C_word)li36),tmp=(C_word)a,a+=4,tmp); -t8=C_i_check_string_2(t2,lf[51]); -t9=C_u_i_string_length(t2); -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_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|11,a[1]=(C_word)f_1218,a[2]=t9,a[3]=t11,a[4]=t6,a[5]=t13,a[6]=((C_word*)t0)[3],a[7]=t2,a[8]=t7,a[9]=t15,a[10]=t4,a[11]=((C_word)li39),tmp=(C_word)a,a+=12,tmp)); -t17=((C_word*)t15)[1]; -f_1218(t17,t1,C_fix(0),C_fix(0),C_SCHEME_END_OF_LIST);} - -/* pds? in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static C_word f_1197(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_stack_overflow_check;{} -t2=C_eqp(((C_word*)t0)[2],lf[44]); -return((C_truep(t2)?C_u_i_memq(t1,lf[50]):C_eqp(t1,C_make_character(47))));} - -/* loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1218(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(16,0,4)))){ -C_save_and_reclaim_args((void *)trf_1218,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_1228,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_1344,a[2]=((C_word*)t0)[6],a[3]=t5,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:255: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t7; -av2[2]=((C_word*)t0)[7]; -av2[3]=t3; -av2[4]=t2; -tp(5,av2);}} -else{ -t7=t6; -f_1228(t7,C_SCHEME_UNDEFINED);}} -else{ -t6=( -/* pathname.scm:274: pds? */ - f_1197(((C_word*)t0)[8],C_i_string_ref(((C_word*)t0)[7],t2)) -); -if(C_truep(t6)){ -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1353,a[2]=t2,a[3]=t3,a[4]=((C_word*)t0)[9],a[5]=t1,a[6]=t5,a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],tmp=(C_word)a,a+=9,tmp); -if(C_truep(C_i_not(((C_word*)((C_word*)t0)[3])[1]))){ -t8=C_eqp(t2,t3); -if(C_truep(t8)){ -t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[52]); -t10=t7; -f_1353(t10,t9);} -else{ -t9=C_mutate(((C_word *)((C_word*)t0)[3])+1,lf[60]); -t10=t7; -f_1353(t10,t9);}} -else{ -t8=t7; -f_1353(t8,C_SCHEME_UNDEFINED);}} -else{ -t7=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1405,a[2]=((C_word*)t0)[5],a[3]=((C_word*)t0)[9],a[4]=t1,a[5]=t2,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]))){ -t8=C_i_string_ref(((C_word*)t0)[7],t2); -t9=t7; -f_1405(t9,(C_truep(C_u_i_char_equalp(t8,C_make_character(58)))?C_eqp(((C_word*)t0)[10],lf[44]):C_SCHEME_FALSE));} -else{ -t8=t7; -f_1405(t8,C_SCHEME_FALSE);}}}} - -/* k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1228(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_1228,2,t0,t1);} -a=C_alloc(9); -if(C_truep(C_i_nullp(((C_word*)((C_word*)t0)[2])[1]))){ -t2=C_eqp(((C_word*)((C_word*)t0)[3])[1],lf[52]); -if(C_truep(t2)){ -t3=C_a_i_string(&a,1,((C_word*)t0)[4]); -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* pathname.scm:258: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[26]+1); -av2[1]=((C_word*)t0)[6]; -av2[2]=((C_word*)((C_word*)t0)[5])[1]; -av2[3]=t3; -tp(4,av2);}} -else{ -t4=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} -else{ -t3=lf[53]; -if(C_truep(((C_word*)((C_word*)t0)[5])[1])){ -/* pathname.scm:258: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[26]+1); -av2[1]=((C_word*)t0)[6]; -av2[2]=((C_word*)((C_word*)t0)[5])[1]; -av2[3]=t3; -tp(4,av2);}} -else{ -t4=((C_word*)t0)[6];{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}}} -else{ -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1252,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[6],a[5]=((C_word*)t0)[3],a[6]=((C_word*)t0)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word*)t0)[2],tmp=(C_word)a,a+=9,tmp); -/* pathname.scm:259: scheme#open-output-string */ -t3=*((C_word*)lf[59]+1);{ -C_word av2[2]; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,2)))){ -C_save_and_reclaim((void *)f_1252,c,av);} -a=C_alloc(9); -t2=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1255,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],tmp=(C_word)a,a+=9,tmp); -/* pathname.scm:260: ##sys#fast-reverse */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[58]+1)); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=*((C_word*)lf[58]+1); -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[8])[1]; -tp(3,av2);}} - -/* k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_1255,c,av);} -a=C_alloc(10); -t2=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_1258,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[5],a[7]=((C_word*)t0)[6],a[8]=((C_word*)t0)[7],a[9]=((C_word*)t0)[8],tmp=(C_word)a,a+=10,tmp); -/* pathname.scm:261: scheme#display */ -t3=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_car(t1); -av2[3]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1258(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word 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_1258,c,av);} -a=C_alloc(21); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1259,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word)li37),tmp=(C_word)a,a+=5,tmp); -t3=C_u_i_cdr(((C_word*)t0)[4]); -t4=C_i_check_list_2(t3,lf[56]); -t5=(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_1273,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_1308,a[2]=t7,a[3]=t2,a[4]=((C_word)li38),tmp=(C_word)a,a+=5,tmp)); -t9=((C_word*)t7)[1]; -f_1308(t9,t5,t3);} - -/* g390 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1259(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_1259,3,t0,t1,t2);} -a=C_alloc(5); -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1263,a[2]=t1,a[3]=t2,a[4]=((C_word*)t0)[2],tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:264: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[55]+1); -av2[1]=t3; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[2]; -tp(4,av2);}} - -/* k1261 in g390 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,3)))){ -C_save_and_reclaim((void *)f_1263,c,av);} -/* pathname.scm:265: scheme#display */ -t2=*((C_word*)lf[54]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t2+1)))(4,av2);}} - -/* k1271 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1273(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_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_1273,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_1276,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t3=C_eqp(((C_word*)t0)[7],((C_word*)t0)[8]); -if(C_truep(t3)){ -/* pathname.scm:267: ##sys#write-char-0 */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[55]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[55]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[6]; -tp(4,av2);}} -else{ -t4=t2;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_SCHEME_UNDEFINED; -f_1276(2,av2);}}} - -/* k1274 in k1271 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1276(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_1276,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1279,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* pathname.scm:268: scheme#get-output-string */ -t3=*((C_word*)lf[57]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k1277 in k1274 in k1271 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t3; -C_word 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,3)))){ -C_save_and_reclaim((void *)f_1279,c,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|4,a[1]=(C_word)f_1282,a[2]=((C_word*)t0)[2],a[3]=t3,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -t5=C_eqp(((C_word*)((C_word*)t0)[4])[1],lf[52]); -if(C_truep(t5)){ -t6=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1296,a[2]=t3,a[3]=t4,tmp=(C_word)a,a+=4,tmp); -t7=C_a_i_string(&a,1,((C_word*)t0)[5]); -/* pathname.scm:270: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[26]+1); -av2[1]=t6; -av2[2]=t7; -av2[3]=((C_word*)t3)[1]; -tp(4,av2);}} -else{ -t6=t4; -f_1282(t6,C_SCHEME_UNDEFINED);}} - -/* k1280 in k1277 in k1274 in k1271 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1282(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_1282,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_1289,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[4],tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:272: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); -C_word av2[4]; -av2[0]=*((C_word*)lf[26]+1); -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[2])[1]; -av2[3]=((C_word*)((C_word*)t0)[3])[1]; -tp(4,av2);}} -else{ -t2=((C_word*)t0)[4];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=((C_word*)((C_word*)t0)[3])[1]; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k1287 in k1280 in k1277 in k1274 in k1271 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1289(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1289,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=((C_word*)((C_word*)t0)[2])[1]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k1294 in k1277 in k1274 in k1271 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1296,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=((C_word*)t0)[3]; -f_1282(t3,t2);} - -/* for-each-loop389 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1308(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_1308,3,t0,t1,t2);} -a=C_alloc(5); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1318,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:262: g390 */ -t4=((C_word*)t0)[3]; -f_1259(t4,t3,C_slot(t2,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);}}} - -/* k1316 in for-each-loop389 in k1256 in k1253 in k1250 in k1226 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1318,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1308(t2,((C_word*)t0)[3],C_slot(((C_word*)t0)[4],C_fix(1)));} - -/* k1342 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,1)))){ -C_save_and_reclaim((void *)f_1344,c,av);} -a=C_alloc(9); -t2=( -/* pathname.scm:255: addpart */ - f_1153(C_a_i(&a,9),t1,((C_word*)((C_word*)t0)[3])[1]) -); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,t2); -t4=((C_word*)t0)[4]; -f_1228(t4,t3);} - -/* k1351 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1353(C_word 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_1353,2,t0,t1);} -a=C_alloc(8); -t2=C_eqp(((C_word*)t0)[2],((C_word*)t0)[3]); -if(C_truep(t2)){ -/* pathname.scm:278: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_1218(t3,((C_word*)t0)[5],C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),C_fixnum_plus(((C_word*)t0)[2],C_fix(1)),((C_word*)((C_word*)t0)[6])[1]);} -else{ -t3=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t4=C_fixnum_plus(((C_word*)t0)[2],C_fix(1)); -t5=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_1389,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]=t3,a[7]=t4,tmp=(C_word)a,a+=8,tmp); -/* pathname.scm:281: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t5; -av2[2]=((C_word*)t0)[8]; -av2[3]=((C_word*)t0)[3]; -av2[4]=((C_word*)t0)[2]; -tp(5,av2);}}} - -/* k1387 in k1351 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,4)))){ -C_save_and_reclaim((void *)f_1389,c,av);} -a=C_alloc(9); -t2=( -/* pathname.scm:281: addpart */ - f_1153(C_a_i(&a,9),t1,((C_word*)((C_word*)t0)[3])[1]) -); -/* pathname.scm:279: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_1218(t3,((C_word*)t0)[5],((C_word*)t0)[6],((C_word*)t0)[7],t2);} - -/* k1403 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1405(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_1405,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1409,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* pathname.scm:285: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_fix(0); -av2[4]=C_fixnum_plus(((C_word*)t0)[5],C_fix(1)); -tp(5,av2);}} -else{ -/* pathname.scm:287: loop */ -t2=((C_word*)((C_word*)t0)[3])[1]; -f_1218(t2,((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[5],C_fix(1)),((C_word*)t0)[7],((C_word*)((C_word*)t0)[8])[1]);}} - -/* k1407 in k1403 in loop in chicken.pathname#normalize-pathname in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_1409,c,av);} -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -/* pathname.scm:286: loop */ -t3=((C_word*)((C_word*)t0)[3])[1]; -f_1218(t3,((C_word*)t0)[4],C_fixnum_plus(((C_word*)t0)[5],C_fix(1)),C_fixnum_plus(((C_word*)t0)[5],C_fix(1)),C_SCHEME_END_OF_LIST);} - -/* chicken.pathname#split-directory in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_1459(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_1459,4,t1,t2,t3,t4);} -t5=C_i_check_string_2(t3,t2); -if(C_truep(*((C_word*)lf[10]+1))){ -/* pathname.scm:295: chicken.string#string-split */ -t6=*((C_word*)lf[62]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t3; -av2[3]=lf[63]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}} -else{ -/* pathname.scm:295: chicken.string#string-split */ -t6=*((C_word*)lf[62]+1);{ -C_word av2[5]; -av2[0]=t6; -av2[1]=t1; -av2[2]=t3; -av2[3]=lf[64]; -av2[4]=t4; -((C_proc)(void*)(*((C_word*)t6+1)))(5,av2);}}} - -/* chicken.pathname#directory-null? in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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=av[2]; -C_word t3; -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_1472,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1480,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -if(C_truep(C_i_listp(t2))){ -t4=t3;{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t2; -f_1480(2,av2);}} -else{ -/* pathname.scm:301: split-directory */ -f_1459(t3,lf[68],t2,C_SCHEME_TRUE);}} - -/* k1478 in chicken.pathname#directory-null? in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_1480,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1482,a[2]=((C_word)li42),tmp=(C_word)a,a+=3,tmp); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=( - f_1482(t1) -); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* loop in k1478 in chicken.pathname#directory-null? in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static C_word f_1482(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_nullp(t1); -if(C_truep(t2)){ -return(t2);} -else{ -t3=C_i_car(t1); -if(C_truep((C_truep(C_i_equalp(t3,lf[66]))?C_SCHEME_TRUE:(C_truep(C_i_equalp(t3,lf[67]))?C_SCHEME_TRUE:C_SCHEME_FALSE)))){ -t5=C_u_i_cdr(t1); -t1=t5; -goto loop;} -else{ -return(C_SCHEME_FALSE);}}} - -/* chicken.pathname#decompose-directory in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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=av[2]; -C_word t3; -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_1512,c,av);} -a=C_alloc(4); -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1555,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:327: split-directory */ -f_1459(t3,lf[70],t2,C_SCHEME_FALSE);} - -/* k1549 in k1566 in k1559 in k1556 in k1553 in chicken.pathname#decompose-directory in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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(3,c,4)))){ -C_save_and_reclaim((void *)f_1551,c,av);} -a=C_alloc(3); -t2=C_a_i_cons(&a,2,t1,((C_word*)t0)[2]); -/* pathname.scm:330: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[4]; -av2[3]=((C_word*)t0)[5]; -av2[4]=t2; -C_values(5,av2);}} - -/* k1553 in chicken.pathname#decompose-directory in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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(4,c,2)))){ -C_save_and_reclaim((void *)f_1555,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1558,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:328: absolute-pathname-root */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(lf[2]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=lf[2]; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -tp(3,av2);}} - -/* k1556 in k1553 in chicken.pathname#decompose-directory in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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(5,c,2)))){ -C_save_and_reclaim((void *)f_1558,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1561,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:329: root-origin */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(lf[3]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=lf[3]; -av2[1]=t2; -av2[2]=t1; -tp(3,av2);}} - -/* k1559 in k1556 in k1553 in chicken.pathname#decompose-directory in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_1561(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_1561,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1568,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:330: root-directory */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(lf[4]); -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=lf[4]; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -tp(3,av2);}} - -/* k1566 in k1559 in k1556 in k1553 in chicken.pathname#decompose-directory in k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t8; -C_word t9; -C_word t10; -C_word t11; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,4)))){ -C_save_and_reclaim((void *)f_1568,c,av);} -a=C_alloc(6); -t2=C_i_nullp(((C_word*)t0)[2]); -t3=C_i_not(t2); -t4=(C_truep(t3)?((C_word*)t0)[2]:C_SCHEME_FALSE); -if(C_truep(C_i_not(((C_word*)t0)[3]))){ -/* pathname.scm:330: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=t4; -C_values(5,av2);}} -else{ -t5=C_i_car(t4); -t6=C_i_string_length(((C_word*)t0)[3]); -if(C_truep(C_i_not(C_u_i_substring_equal_p(((C_word*)t0)[3],t5,C_fix(0),C_fix(0),t6)))){ -/* pathname.scm:330: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=t4; -C_values(5,av2);}} -else{ -t7=C_u_i_cdr(t4); -t8=C_i_string_length(t5); -t9=C_eqp(t6,t8); -if(C_truep(t9)){ -/* pathname.scm:330: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[4]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=t7; -C_values(5,av2);}} -else{ -t10=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_1551,a[2]=t7,a[3]=((C_word*)t0)[4],a[4]=((C_word*)t0)[3],a[5]=t1,tmp=(C_word)a,a+=6,tmp); -/* pathname.scm:326: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[9]+1); -av2[1]=t10; -av2[2]=t5; -av2[3]=t6; -av2[4]=t8; -tp(5,av2);}}}}} - -/* k1588 in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(17,c,5)))){ -C_save_and_reclaim((void *)f_1590,c,av);} -a=C_alloc(17); -t2=C_eqp(t1,lf[43]); -t3=(C_truep(t2)?lf[44]:lf[45]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1153,a[2]=((C_word)li35),tmp=(C_word)a,a+=3,tmp); -t5=C_mutate((C_word*)lf[49]+1 /* (set! chicken.pathname#normalize-pathname ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_1188,a[2]=t3,a[3]=t4,a[4]=((C_word)li40),tmp=(C_word)a,a+=5,tmp)); -t6=C_mutate(&lf[61] /* (set! chicken.pathname#split-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1459,a[2]=((C_word)li41),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[65]+1 /* (set! chicken.pathname#directory-null? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1472,a[2]=((C_word)li43),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[69]+1 /* (set! chicken.pathname#decompose-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1512,a[2]=((C_word)li44),tmp=(C_word)a,a+=3,tmp)); -t9=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t9; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t9+1)))(2,av2);}} - -/* k1591 in k606 in k603 in k600 */ -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(10,c,3)))){ -C_save_and_reclaim((void *)f_1593,c,av);} -a=C_alloc(10); -t2=C_mutate(&lf[2] /* (set! chicken.pathname#absolute-pathname-root ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1595,a[2]=t1,a[3]=((C_word)li45),tmp=(C_word)a,a+=4,tmp)); -t3=C_mutate(&lf[3] /* (set! chicken.pathname#root-origin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1601,a[2]=((C_word)li46),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate(&lf[4] /* (set! chicken.pathname#root-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1610,a[2]=((C_word)li47),tmp=(C_word)a,a+=3,tmp)); -t5=((C_word*)t0)[2]; -f_614(t5,t4);} - -/* chicken.pathname#absolute-pathname-root in k1591 in k606 in k603 in k600 */ -static void C_ccall f_1595(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_1595,c,av);} -/* pathname.scm:73: chicken.irregex#irregex-match */ -t3=*((C_word*)lf[73]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* chicken.pathname#root-origin in k1591 in k606 in k603 in k600 */ -static void C_ccall f_1601(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word 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_1601,c,av);} -if(C_truep(t2)){ -/* pathname.scm:74: chicken.irregex#irregex-match-substring */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* chicken.pathname#root-directory in k1591 in k606 in k603 in k600 */ -static void C_ccall f_1610(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *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_1610,c,av);} -if(C_truep(t2)){ -/* pathname.scm:75: chicken.irregex#irregex-match-substring */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(2); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k1618 in k606 in k603 in k600 */ -static void C_ccall f_1620(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,3)))){ -C_save_and_reclaim((void *)f_1620,c,av);} -a=C_alloc(10); -t2=C_mutate(&lf[2] /* (set! chicken.pathname#absolute-pathname-root ...) */,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1622,a[2]=t1,a[3]=((C_word)li48),tmp=(C_word)a,a+=4,tmp)); -t3=C_mutate(&lf[3] /* (set! chicken.pathname#root-origin ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1628,a[2]=((C_word)li49),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate(&lf[4] /* (set! chicken.pathname#root-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1631,a[2]=((C_word)li50),tmp=(C_word)a,a+=3,tmp)); -t5=((C_word*)t0)[2]; -f_614(t5,t4);} - -/* chicken.pathname#absolute-pathname-root in k1618 in k606 in k603 in k600 */ -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=av[2]; -C_word 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_1622,c,av);} -/* pathname.scm:77: chicken.irregex#irregex-match */ -t3=*((C_word*)lf[73]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* chicken.pathname#root-origin in k1618 in k606 in k603 in k600 */ -static void C_ccall f_1628(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -if(c!=3) C_bad_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1628,c,av);} -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* chicken.pathname#root-directory in k1618 in k606 in k603 in k600 */ -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=av[2]; -C_word 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_1631,c,av);} -if(C_truep(t2)){ -/* pathname.scm:79: chicken.irregex#irregex-match-substring */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t1; -av2[2]=t2; -av2[3]=C_fix(1); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void *)f_602,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_605,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_irregex_toplevel(2,av2);}} - -/* k603 in k600 */ -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 t4; -C_word t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void *)f_605,c,av);} -a=C_alloc(19); -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_608,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -/* k606 in k603 in k600 */ -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 t6; -C_word t7; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_608,c,av);} -a=C_alloc(6); -t2=lf[2] /* chicken.pathname#absolute-pathname-root */ =C_SCHEME_UNDEFINED;; -t3=lf[3] /* chicken.pathname#root-origin */ =C_SCHEME_UNDEFINED;; -t4=lf[4] /* chicken.pathname#root-directory */ =C_SCHEME_UNDEFINED;; -t5=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_614,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -if(C_truep(*((C_word*)lf[10]+1))){ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1593,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:72: chicken.irregex#irregex */ -t7=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[74]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1620,a[2]=t5,tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:76: chicken.irregex#irregex */ -t7=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t7; -av2[1]=t6; -av2[2]=lf[75]; -((C_proc)(void*)(*((C_word*)t7+1)))(3,av2);}}} - -/* k612 in k606 in k603 in k600 */ -static void f_614(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word 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(38,0,6)))){ -C_save_and_reclaim_args((void *)trf_614,2,t0,t1);} -a=C_alloc(38); -t2=C_mutate((C_word*)lf[5]+1 /* (set! chicken.pathname#absolute-pathname? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_616,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate(&lf[8] /* (set! chicken.pathname#chop-pds ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_629,a[2]=((C_word)li2),tmp=(C_word)a,a+=3,tmp)); -t4=C_set_block_item(lf[12] /* chicken.pathname#make-pathname */,0,C_SCHEME_UNDEFINED); -t5=C_set_block_item(lf[13] /* chicken.pathname#make-absolute-pathname */,0,C_SCHEME_UNDEFINED); -t6=(C_truep(*((C_word*)lf[10]+1))?lf[14]:lf[15]); -t7=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_700,a[2]=t6,a[3]=((C_word)li4),tmp=(C_word)a,a+=4,tmp)); -t14=C_set_block_item(t10,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_751,a[2]=t8,a[3]=((C_word)li5),tmp=(C_word)a,a+=4,tmp)); -t15=C_set_block_item(t12,0,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_782,a[2]=((C_word)li6),tmp=(C_word)a,a+=3,tmp)); -t16=C_mutate((C_word*)lf[12]+1 /* (set! chicken.pathname#make-pathname ...) */,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_864,a[2]=t12,a[3]=t10,a[4]=((C_word)li7),tmp=(C_word)a,a+=5,tmp)); -t17=C_mutate((C_word*)lf[13]+1 /* (set! chicken.pathname#make-absolute-pathname ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_883,a[2]=t12,a[3]=t6,a[4]=t10,a[5]=((C_word)li8),tmp=(C_word)a,a+=6,tmp)); -t18=(C_truep(*((C_word*)lf[10]+1))?lf[27]:lf[28]); -t19=(C_truep(*((C_word*)lf[10]+1))?lf[29]:lf[30]); -t20=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_919,a[2]=((C_word*)t0)[2],a[3]=t19,tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:163: chicken.irregex#irregex */ -t21=*((C_word*)lf[72]+1);{ -C_word av2[3]; -av2[0]=t21; -av2[1]=t20; -av2[2]=t18; -((C_proc)(void*)(*((C_word*)t21+1)))(3,av2);}} - -/* chicken.pathname#absolute-pathname? in k612 in k606 in k603 in k600 */ -static void C_ccall f_616(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_616,c,av);} -a=C_alloc(3); -t3=C_i_check_string_2(t2,lf[6]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_627,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:83: absolute-pathname-root */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(lf[2]); -C_word *av2=av; -av2[0]=lf[2]; -av2[1]=t4; -av2[2]=t2; -tp(3,av2);}} - -/* k625 in chicken.pathname#absolute-pathname? in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_627,c,av);} -/* pathname.scm:83: chicken.irregex#irregex-match-data? */ -t2=*((C_word*)lf[7]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} - -/* chicken.pathname#chop-pds in k612 in k606 in k603 in k600 */ -static void f_629(C_word 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_629,2,t1,t2);} -a=C_alloc(7); -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|4,a[1]=(C_word)f_642,a[2]=t5,a[3]=t2,a[4]=((C_word)li1),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_642(t7,t1,t3);} -else{ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=C_SCHEME_FALSE; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}} - -/* lp in chicken.pathname#chop-pds in k612 in k606 in k603 in k600 */ -static void f_642(C_word 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_642,3,t0,t1,t2);} -a=C_alloc(6); -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_649,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); -if(C_truep(C_fixnum_greater_or_equal_p(t2,C_fix(1)))){ -t4=C_fixnum_difference(t2,C_fix(1)); -t5=C_i_string_ref(((C_word*)t0)[3],t4); -t6=t3; -f_649(t6,(C_truep(*((C_word*)lf[10]+1))?C_u_i_memq(t5,lf[11]):C_eqp(C_make_character(47),t5)));} -else{ -t4=t3; -f_649(t4,C_SCHEME_FALSE);}} - -/* k647 in lp in chicken.pathname#chop-pds in k612 in k606 in k603 in k600 */ -static void f_649(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_649,2,t0,t1);} -if(C_truep(t1)){ -/* pathname.scm:95: lp */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_642(t2,((C_word*)t0)[3],C_fixnum_difference(((C_word*)t0)[4],C_fix(1)));} -else{ -t2=C_i_string_length(((C_word*)t0)[5]); -if(C_truep(C_fixnum_lessp(((C_word*)t0)[4],t2))){ -/* pathname.scm:97: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[5]; -av2[3]=C_fix(0); -av2[4]=((C_word*)t0)[4]; -tp(5,av2);}} -else{ -t3=((C_word*)t0)[3];{ -C_word av2[2]; -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* conc-dirs in k612 in k606 in k603 in k600 */ -static void f_700(C_word t0,C_word 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_700,3,t0,t1,t2);} -a=C_alloc(7); -t3=C_i_check_list_2(t2,lf[16]); -t4=C_SCHEME_UNDEFINED; -t5=(*a=C_VECTOR_TYPE|1,a[1]=t4,tmp=(C_word)a,a+=2,tmp); -t6=C_set_block_item(t5,0,(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_709,a[2]=t5,a[3]=((C_word*)t0)[2],a[4]=((C_word)li3),tmp=(C_word)a,a+=5,tmp)); -t7=((C_word*)t5)[1]; -f_709(t7,t1,t2);} - -/* loop in conc-dirs in k612 in k606 in k603 in k600 */ -static void f_709(C_word t0,C_word t1,C_word t2){ -C_word 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(6,0,2)))){ -C_save_and_reclaim_args((void *)trf_709,3,t0,t1,t2);} -a=C_alloc(6); -if(C_truep(C_i_nullp(t2))){ -t3=t1;{ -C_word av2[2]; -av2[0]=t3; -av2[1]=lf[17]; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -t3=C_i_car(t2); -t4=C_i_string_length(t3); -t5=C_eqp(t4,C_fix(0)); -if(C_truep(t5)){ -/* pathname.scm:112: loop */ -t8=t1; -t9=C_u_i_cdr(t2); -t1=t8; -t2=t9; -goto loop;} -else{ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_737,a[2]=t1,a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[2],a[5]=t2,tmp=(C_word)a,a+=6,tmp); -/* pathname.scm:114: chop-pds */ -f_629(t6,C_u_i_car(t2));}}} - -/* k735 in loop in conc-dirs in k612 in k606 in k603 in k600 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_737,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_741,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:116: loop */ -t3=((C_word*)((C_word*)t0)[4])[1]; -f_709(t3,t2,C_u_i_cdr(((C_word*)t0)[5]));} - -/* k739 in k735 in loop in conc-dirs in k612 in k606 in k603 in k600 */ -static void C_ccall f_741(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_741,c,av);} -/* pathname.scm:113: scheme#string-append */ -t2=*((C_word*)lf[18]+1);{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -((C_proc)(void*)(*((C_word*)t2+1)))(5,av2);}} - -/* canonicalize-dirs in k612 in k606 in k603 in k600 */ -static void f_751(C_word 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_751,3,t0,t1,t2);} -a=C_alloc(3); -t3=C_i_not(t2); -t4=(C_truep(t3)?t3:C_i_nullp(t2)); -if(C_truep(t4)){ -t5=t1;{ -C_word av2[2]; -av2[0]=t5; -av2[1]=lf[19]; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}} -else{ -if(C_truep(C_i_stringp(t2))){ -t5=C_a_i_list1(&a,1,t2); -/* pathname.scm:120: conc-dirs */ -t6=((C_word*)((C_word*)t0)[2])[1]; -f_700(t6,t1,t5);} -else{ -/* pathname.scm:121: conc-dirs */ -t5=((C_word*)((C_word*)t0)[2])[1]; -f_700(t5,t1,t2);}}} - -/* _make-pathname in k612 in k606 in k603 in k600 */ -static void f_782(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(9,0,2)))){ -C_save_and_reclaim_args((void *)trf_782,5,t1,t2,t3,t4,t5);} -a=C_alloc(9); -t6=(C_truep(t5)?t5:lf[20]); -t7=(C_truep(t4)?t4:lf[21]); -t8=C_i_check_string_2(t3,t2); -t9=C_i_check_string_2(t7,t2); -t10=C_i_check_string_2(t6,t2); -t11=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_805,a[2]=t1,a[3]=t3,a[4]=t6,tmp=(C_word)a,a+=5,tmp); -t12=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_828,a[2]=t11,a[3]=t7,tmp=(C_word)a,a+=4,tmp); -if(C_truep(C_fixnum_greater_or_equal_p(C_u_i_string_length(t3),C_fix(1)))){ -if(C_truep(C_fixnum_greater_or_equal_p(C_u_i_string_length(t7),C_fix(1)))){ -t13=C_i_string_ref(t7,C_fix(0)); -t14=t12; -f_828(t14,(C_truep(*((C_word*)lf[10]+1))?C_u_i_memq(t13,lf[24]):C_eqp(C_make_character(47),t13)));} -else{ -t13=t12; -f_828(t13,C_SCHEME_FALSE);}} -else{ -t13=t12; -f_828(t13,C_SCHEME_FALSE);}} - -/* k803 in _make-pathname in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_805,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_812,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_greaterp(C_u_i_string_length(((C_word*)t0)[4]),C_fix(0)))){ -t3=C_i_string_ref(((C_word*)t0)[4],C_fix(0)); -t4=t2; -f_812(t4,C_i_not(C_u_i_char_equalp(t3,C_make_character(46))));} -else{ -t3=t2; -f_812(t3,C_SCHEME_FALSE);}} - -/* k810 in k803 in _make-pathname in k612 in k606 in k603 in k600 */ -static void f_812(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_812,2,t0,t1);} -if(C_truep(t1)){ -/* pathname.scm:129: scheme#string-append */ -t2=*((C_word*)lf[18]+1);{ -C_word av2[6]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=lf[22]; -av2[5]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}} -else{ -/* pathname.scm:129: scheme#string-append */ -t2=*((C_word*)lf[18]+1);{ -C_word av2[6]; -av2[0]=t2; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=lf[23]; -av2[5]=((C_word*)t0)[5]; -((C_proc)(void*)(*((C_word*)t2+1)))(6,av2);}}} - -/* k826 in _make-pathname in k612 in k606 in k603 in k600 */ -static void f_828(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_828,2,t0,t1);} -if(C_truep(t1)){ -/* pathname.scm:134: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word av2[5]; -av2[0]=*((C_word*)lf[9]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(1); -av2[4]=C_u_i_string_length(((C_word*)t0)[3]); -tp(5,av2);}} -else{ -t2=((C_word*)t0)[2];{ -C_word av2[2]; -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -f_805(2,av2);}}} - -/* chicken.pathname#make-pathname in k612 in k606 in k603 in k600 */ -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=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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_864,c,av);} -a=C_alloc(6); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_875,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t5,tmp=(C_word)a,a+=6,tmp); -/* pathname.scm:144: canonicalize-dirs */ -t7=((C_word*)((C_word*)t0)[3])[1]; -f_751(t7,t6,t2);} - -/* k873 in chicken.pathname#make-pathname in k612 in k606 in k603 in k600 */ -static void C_ccall f_875(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_875,c,av);} -/* pathname.scm:144: _make-pathname */ -f_782(((C_word*)t0)[3],lf[16],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* chicken.pathname#make-absolute-pathname in k612 in k606 in k603 in k600 */ -static void C_ccall f_883(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -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_min_argc_2(c,4,t0); -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_883,c,av);} -a=C_alloc(7); -t4=C_rest_nullp(c,4); -t5=(C_truep(t4)?C_SCHEME_FALSE:C_get_rest_arg(c,4,av,4,t0)); -t6=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_894,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=t3,a[5]=t5,a[6]=((C_word*)t0)[3],tmp=(C_word)a,a+=7,tmp); -/* pathname.scm:150: canonicalize-dirs */ -t7=((C_word*)((C_word*)t0)[4])[1]; -f_751(t7,t6,t2);} - -/* k892 in chicken.pathname#make-absolute-pathname in k612 in k606 in k603 in k600 */ -static void C_ccall f_894(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -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_894,c,av);} -a=C_alloc(15); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_897,a[2]=((C_word*)t0)[2],a[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|8,a[1]=(C_word)f_900,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]=t2,a[8]=((C_word*)t0)[6],tmp=(C_word)a,a+=9,tmp); -/* pathname.scm:151: absolute-pathname? */ -t4=*((C_word*)lf[5]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k895 in k892 in chicken.pathname#make-absolute-pathname in k612 in k606 in k603 in k600 */ -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_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_897,c,av);} -/* pathname.scm:148: _make-pathname */ -f_782(((C_word*)t0)[3],lf[25],t1,((C_word*)t0)[4],((C_word*)t0)[5]);} - -/* k898 in k892 in chicken.pathname#make-absolute-pathname in k612 in k606 in k603 in k600 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_900,c,av);} -if(C_truep(t1)){ -/* pathname.scm:148: _make-pathname */ -f_782(((C_word*)t0)[3],lf[25],((C_word*)t0)[4],((C_word*)t0)[5],((C_word*)t0)[6]);} -else{ -/* pathname.scm:153: ##sys#string-append */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[26]+1)); -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=*((C_word*)lf[26]+1); -av2[1]=((C_word*)t0)[7]; -av2[2]=((C_word*)t0)[8]; -av2[3]=((C_word*)t0)[4]; -tp(4,av2);}}} - -/* k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_919(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_919,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_922,a[2]=t1,a[3]=((C_word*)t0)[2],tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:164: chicken.irregex#irregex */ -t3=*((C_word*)lf[72]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} - -/* k920 in k917 in k612 in k606 in k603 in k600 */ -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; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(36,c,4)))){ -C_save_and_reclaim((void *)f_922,c,av);} -a=C_alloc(36); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_923,a[2]=((C_word)li9),tmp=(C_word)a,a+=3,tmp); -t3=C_mutate((C_word*)lf[31]+1 /* (set! chicken.pathname#decompose-pathname ...) */,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_944,a[2]=t2,a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=((C_word)li10),tmp=(C_word)a,a+=6,tmp)); -t4=C_mutate((C_word*)lf[35]+1 /* (set! chicken.pathname#pathname-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1014,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[36]+1 /* (set! chicken.pathname#pathname-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1029,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[37]+1 /* (set! chicken.pathname#pathname-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1044,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[38]+1 /* (set! chicken.pathname#pathname-strip-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1059,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); -t8=C_mutate((C_word*)lf[39]+1 /* (set! chicken.pathname#pathname-strip-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1077,a[2]=((C_word)li25),tmp=(C_word)a,a+=3,tmp)); -t9=C_mutate((C_word*)lf[40]+1 /* (set! chicken.pathname#pathname-replace-directory ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1095,a[2]=((C_word)li28),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[41]+1 /* (set! chicken.pathname#pathname-replace-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1113,a[2]=((C_word)li31),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[42]+1 /* (set! chicken.pathname#pathname-replace-extension ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1131,a[2]=((C_word)li34),tmp=(C_word)a,a+=3,tmp)); -t12=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1590,a[2]=((C_word*)t0)[3],tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:233: chicken.platform#software-version */ -t13=*((C_word*)lf[71]+1);{ -C_word *av2=av; -av2[0]=t13; -av2[1]=t12; -((C_proc)(void*)(*((C_word*)t13+1)))(2,av2);}} - -/* strip-pds in k920 in k917 in k612 in k606 in k603 in k600 */ -static void f_923(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_923,2,t1,t2);} -a=C_alloc(4); -if(C_truep(t2)){ -t3=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_930,a[2]=t1,a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:168: chop-pds */ -f_629(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);}}} - -/* k928 in strip-pds in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_930(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_930,c,av);} -t2=C_i_string_length(t1); -if(C_truep(C_fixnum_greaterp(t2,C_fix(0)))){ -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} -else{ -/* pathname.scm:171: ##sys#substring */ -{C_proc tp=(C_proc)C_fast_retrieve_proc(*((C_word*)lf[9]+1)); -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=*((C_word*)lf[9]+1); -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(0); -av2[4]=C_fix(1); -tp(5,av2);}}} - -/* chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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=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_944,c,av);} -a=C_alloc(6); -t3=C_i_check_string_2(t2,lf[32]); -t4=C_eqp(C_fix(0),C_u_i_string_length(t2)); -if(C_truep(t4)){ -/* pathname.scm:175: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=t1; -av2[2]=C_SCHEME_FALSE; -av2[3]=C_SCHEME_FALSE; -av2[4]=C_SCHEME_FALSE; -C_values(5,av2);}} -else{ -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_960,a[2]=t1,a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=((C_word*)t0)[3],tmp=(C_word)a,a+=6,tmp); -/* pathname.scm:176: chicken.irregex#irregex-search */ -t6=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t6; -av2[1]=t5; -av2[2]=((C_word*)t0)[4]; -av2[3]=t2; -((C_proc)(void*)(*((C_word*)t6+1)))(4,av2);}}} - -/* k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_960,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_970,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_982,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:179: chicken.irregex#irregex-match-substring */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -av2[3]=C_fix(1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_985,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:182: chicken.irregex#irregex-search */ -t3=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[4]; -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}}} - -/* k968 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_970,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_974,a[2]=((C_word*)t0)[2],a[3]=t1,a[4]=((C_word*)t0)[3],tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:180: chicken.irregex#irregex-match-substring */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(2); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k972 in k968 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -static void C_ccall f_974(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,3)))){ -C_save_and_reclaim((void *)f_974,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_978,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=t1,tmp=(C_word)a,a+=5,tmp); -/* pathname.scm:181: chicken.irregex#irregex-match-substring */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[4]; -av2[3]=C_fix(4); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k976 in k972 in k968 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_978,c,av);} -/* pathname.scm:178: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=((C_word*)t0)[4]; -av2[4]=t1; -C_values(5,av2);}} - -/* k980 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_982,c,av);} -/* pathname.scm:179: strip-pds */ -f_923(((C_word*)t0)[3],t1);} - -/* k983 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_985,c,av);} -a=C_alloc(8); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_995,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_1003,a[2]=((C_word*)t0)[3],a[3]=t2,tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:185: chicken.irregex#irregex-match-substring */ -t4=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t3; -av2[2]=t1; -av2[3]=C_fix(1); -((C_proc)(void*)(*((C_word*)t4+1)))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1010,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp); -/* pathname.scm:188: strip-pds */ -f_923(t2,((C_word*)t0)[4]);}} - -/* k993 in k983 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_995,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_999,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* pathname.scm:186: chicken.irregex#irregex-match-substring */ -t3=*((C_word*)lf[33]+1);{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_fix(2); -((C_proc)(void*)(*((C_word*)t3+1)))(4,av2);}} - -/* k997 in k993 in k983 in k958 in chicken.pathname#decompose-pathname in k920 in k917 in k612 in k606 in k603 in k600 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,4)))){ -C_save_and_reclaim((void *)f_999,c,av);} -/* pathname.scm:184: scheme#values */{ -C_word *av2; -if(c >= 5) { - av2=av; -} else { - av2=C_alloc(5); -} -av2[0]=0; -av2[1]=((C_word*)t0)[2]; -av2[2]=((C_word*)t0)[3]; -av2[3]=t1; -av2[4]=C_SCHEME_FALSE; -C_values(5,av2);}} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_pathname_toplevel(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("pathname")); -C_check_nursery_minimum(C_calculate_demand(3,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(3,c,2)))){ -C_save_and_reclaim((void*)C_pathname_toplevel,c,av);} -toplevel_initialized=1; -if(C_unlikely(!C_demand_2(340))){ -C_save(t1); -C_rereclaim2(340*sizeof(C_word),1); -t1=C_restore;} -a=C_alloc(3); -C_initialize_lf(lf,76); -lf[0]=C_h_intern(&lf[0],8, C_text("pathname")); -lf[1]=C_h_intern(&lf[1],17, C_text("chicken.pathname#")); -lf[5]=C_h_intern(&lf[5],35, C_text("chicken.pathname#absolute-pathname?")); -lf[6]=C_h_intern(&lf[6],18, C_text("absolute-pathname?")); -lf[7]=C_h_intern(&lf[7],35, C_text("chicken.irregex#irregex-match-data?")); -lf[9]=C_h_intern(&lf[9],15, C_text("##sys#substring")); -lf[10]=C_h_intern(&lf[10],22, C_text("##sys#windows-platform")); -lf[11]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000\057\376\377\016")); -lf[12]=C_h_intern(&lf[12],30, C_text("chicken.pathname#make-pathname")); -lf[13]=C_h_intern(&lf[13],39, C_text("chicken.pathname#make-absolute-pathname")); -lf[14]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\134\000")); -lf[15]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[16]=C_h_intern(&lf[16],13, C_text("make-pathname")); -lf[17]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[18]=C_h_intern(&lf[18],20, C_text("scheme#string-append")); -lf[19]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[20]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[21]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[22]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[23]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[24]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\134\376\003\000\000\002\376\377\012\000\000\057\376\377\016")); -lf[25]=C_h_intern(&lf[25],22, C_text("make-absolute-pathname")); -lf[26]=C_h_intern(&lf[26],19, C_text("##sys#string-append")); -lf[27]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\047\136\050\056\052\133\134\057\134\134\135\051\077\050\133\136\134\057\134\134\135\053\051\050\134\056\050\133\136\134\057\134\134\056\135\053\051\051\044\000")); -lf[28]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\034\136\050\056\052\057\051\077\050\133\136\057\135\053\051\050\134\056\050\133\136\057\056\135\053\051\051\044\000")); -lf[29]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\035\136\050\056\052\133\134\057\134\134\135\051\077\050\050\134\056\051\077\133\136\134\057\134\134\135\053\051\044\000")); -lf[30]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\025\136\050\056\052\057\051\077\050\050\134\056\051\077\133\136\057\135\053\051\044\000")); -lf[31]=C_h_intern(&lf[31],35, C_text("chicken.pathname#decompose-pathname")); -lf[32]=C_h_intern(&lf[32],18, C_text("decompose-pathname")); -lf[33]=C_h_intern(&lf[33],39, C_text("chicken.irregex#irregex-match-substring")); -lf[34]=C_h_intern(&lf[34],30, C_text("chicken.irregex#irregex-search")); -lf[35]=C_h_intern(&lf[35],35, C_text("chicken.pathname#pathname-directory")); -lf[36]=C_h_intern(&lf[36],30, C_text("chicken.pathname#pathname-file")); -lf[37]=C_h_intern(&lf[37],35, C_text("chicken.pathname#pathname-extension")); -lf[38]=C_h_intern(&lf[38],41, C_text("chicken.pathname#pathname-strip-directory")); -lf[39]=C_h_intern(&lf[39],41, C_text("chicken.pathname#pathname-strip-extension")); -lf[40]=C_h_intern(&lf[40],43, C_text("chicken.pathname#pathname-replace-directory")); -lf[41]=C_h_intern(&lf[41],38, C_text("chicken.pathname#pathname-replace-file")); -lf[42]=C_h_intern(&lf[42],43, C_text("chicken.pathname#pathname-replace-extension")); -lf[43]=C_h_intern(&lf[43],5, C_text("mingw")); -lf[44]=C_h_intern(&lf[44],7, C_text("windows")); -lf[45]=C_h_intern(&lf[45],4, C_text("unix")); -lf[46]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[47]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\056\056\000")); -lf[48]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\056\056\000")); -lf[49]=C_h_intern(&lf[49],35, C_text("chicken.pathname#normalize-pathname")); -lf[50]=C_decode_literal(C_heaptop,C_text("\376\003\000\000\002\376\377\012\000\000\057\376\003\000\000\002\376\377\012\000\000\134\376\377\016")); -lf[51]=C_h_intern(&lf[51],18, C_text("normalize-pathname")); -lf[52]=C_h_intern(&lf[52],3, C_text("abs")); -lf[53]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[54]=C_h_intern(&lf[54],14, C_text("scheme#display")); -lf[55]=C_h_intern(&lf[55],18, C_text("##sys#write-char-0")); -lf[56]=C_h_intern(&lf[56],8, C_text("for-each")); -lf[57]=C_h_intern(&lf[57],24, C_text("scheme#get-output-string")); -lf[58]=C_h_intern(&lf[58],18, C_text("##sys#fast-reverse")); -lf[59]=C_h_intern(&lf[59],25, C_text("scheme#open-output-string")); -lf[60]=C_h_intern(&lf[60],3, C_text("rel")); -lf[62]=C_h_intern(&lf[62],27, C_text("chicken.string#string-split")); -lf[63]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\057\134\000")); -lf[64]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\057\000")); -lf[65]=C_h_intern(&lf[65],32, C_text("chicken.pathname#directory-null?")); -lf[66]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\001\000")); -lf[67]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\002\056\000")); -lf[68]=C_h_intern(&lf[68],15, C_text("directory-null?")); -lf[69]=C_h_intern(&lf[69],36, C_text("chicken.pathname#decompose-directory")); -lf[70]=C_h_intern(&lf[70],19, C_text("decompose-directory")); -lf[71]=C_h_intern(&lf[71],33, C_text("chicken.platform#software-version")); -lf[72]=C_h_intern(&lf[72],23, C_text("chicken.irregex#irregex")); -lf[73]=C_h_intern(&lf[73],29, C_text("chicken.irregex#irregex-match")); -lf[74]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\027\050\133\101\055\132\141\055\172\135\072\051\077\050\133\134\057\134\134\135\051\056\052\000")); -lf[75]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\006\050\057\051\056\052\000")); -C_register_lf2(lf,76,create_ptable());{} -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_602,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t2; -C_data_2dstructures_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[107] = { -{C_text("f_1003:pathname_2escm"),(void*)f_1003}, -{C_text("f_1010:pathname_2escm"),(void*)f_1010}, -{C_text("f_1014:pathname_2escm"),(void*)f_1014}, -{C_text("f_1020:pathname_2escm"),(void*)f_1020}, -{C_text("f_1026:pathname_2escm"),(void*)f_1026}, -{C_text("f_1029:pathname_2escm"),(void*)f_1029}, -{C_text("f_1035:pathname_2escm"),(void*)f_1035}, -{C_text("f_1041:pathname_2escm"),(void*)f_1041}, -{C_text("f_1044:pathname_2escm"),(void*)f_1044}, -{C_text("f_1050:pathname_2escm"),(void*)f_1050}, -{C_text("f_1056:pathname_2escm"),(void*)f_1056}, -{C_text("f_1059:pathname_2escm"),(void*)f_1059}, -{C_text("f_1065:pathname_2escm"),(void*)f_1065}, -{C_text("f_1071:pathname_2escm"),(void*)f_1071}, -{C_text("f_1077:pathname_2escm"),(void*)f_1077}, -{C_text("f_1083:pathname_2escm"),(void*)f_1083}, -{C_text("f_1089:pathname_2escm"),(void*)f_1089}, -{C_text("f_1095:pathname_2escm"),(void*)f_1095}, -{C_text("f_1101:pathname_2escm"),(void*)f_1101}, -{C_text("f_1107:pathname_2escm"),(void*)f_1107}, -{C_text("f_1113:pathname_2escm"),(void*)f_1113}, -{C_text("f_1119:pathname_2escm"),(void*)f_1119}, -{C_text("f_1125:pathname_2escm"),(void*)f_1125}, -{C_text("f_1131:pathname_2escm"),(void*)f_1131}, -{C_text("f_1137:pathname_2escm"),(void*)f_1137}, -{C_text("f_1143:pathname_2escm"),(void*)f_1143}, -{C_text("f_1153:pathname_2escm"),(void*)f_1153}, -{C_text("f_1188:pathname_2escm"),(void*)f_1188}, -{C_text("f_1197:pathname_2escm"),(void*)f_1197}, -{C_text("f_1218:pathname_2escm"),(void*)f_1218}, -{C_text("f_1228:pathname_2escm"),(void*)f_1228}, -{C_text("f_1252:pathname_2escm"),(void*)f_1252}, -{C_text("f_1255:pathname_2escm"),(void*)f_1255}, -{C_text("f_1258:pathname_2escm"),(void*)f_1258}, -{C_text("f_1259:pathname_2escm"),(void*)f_1259}, -{C_text("f_1263:pathname_2escm"),(void*)f_1263}, -{C_text("f_1273:pathname_2escm"),(void*)f_1273}, -{C_text("f_1276:pathname_2escm"),(void*)f_1276}, -{C_text("f_1279:pathname_2escm"),(void*)f_1279}, -{C_text("f_1282:pathname_2escm"),(void*)f_1282}, -{C_text("f_1289:pathname_2escm"),(void*)f_1289}, -{C_text("f_1296:pathname_2escm"),(void*)f_1296}, -{C_text("f_1308:pathname_2escm"),(void*)f_1308}, -{C_text("f_1318:pathname_2escm"),(void*)f_1318}, -{C_text("f_1344:pathname_2escm"),(void*)f_1344}, -{C_text("f_1353:pathname_2escm"),(void*)f_1353}, -{C_text("f_1389:pathname_2escm"),(void*)f_1389}, -{C_text("f_1405:pathname_2escm"),(void*)f_1405}, -{C_text("f_1409:pathname_2escm"),(void*)f_1409}, -{C_text("f_1459:pathname_2escm"),(void*)f_1459}, -{C_text("f_1472:pathname_2escm"),(void*)f_1472}, -{C_text("f_1480:pathname_2escm"),(void*)f_1480}, -{C_text("f_1482:pathname_2escm"),(void*)f_1482}, -{C_text("f_1512:pathname_2escm"),(void*)f_1512}, -{C_text("f_1551:pathname_2escm"),(void*)f_1551}, -{C_text("f_1555:pathname_2escm"),(void*)f_1555}, -{C_text("f_1558:pathname_2escm"),(void*)f_1558}, -{C_text("f_1561:pathname_2escm"),(void*)f_1561}, -{C_text("f_1568:pathname_2escm"),(void*)f_1568}, -{C_text("f_1590:pathname_2escm"),(void*)f_1590}, -{C_text("f_1593:pathname_2escm"),(void*)f_1593}, -{C_text("f_1595:pathname_2escm"),(void*)f_1595}, -{C_text("f_1601:pathname_2escm"),(void*)f_1601}, -{C_text("f_1610:pathname_2escm"),(void*)f_1610}, -{C_text("f_1620:pathname_2escm"),(void*)f_1620}, -{C_text("f_1622:pathname_2escm"),(void*)f_1622}, -{C_text("f_1628:pathname_2escm"),(void*)f_1628}, -{C_text("f_1631:pathname_2escm"),(void*)f_1631}, -{C_text("f_602:pathname_2escm"),(void*)f_602}, -{C_text("f_605:pathname_2escm"),(void*)f_605}, -{C_text("f_608:pathname_2escm"),(void*)f_608}, -{C_text("f_614:pathname_2escm"),(void*)f_614}, -{C_text("f_616:pathname_2escm"),(void*)f_616}, -{C_text("f_627:pathname_2escm"),(void*)f_627}, -{C_text("f_629:pathname_2escm"),(void*)f_629}, -{C_text("f_642:pathname_2escm"),(void*)f_642}, -{C_text("f_649:pathname_2escm"),(void*)f_649}, -{C_text("f_700:pathname_2escm"),(void*)f_700}, -{C_text("f_709:pathname_2escm"),(void*)f_709}, -{C_text("f_737:pathname_2escm"),(void*)f_737}, -{C_text("f_741:pathname_2escm"),(void*)f_741}, -{C_text("f_751:pathname_2escm"),(void*)f_751}, -{C_text("f_782:pathname_2escm"),(void*)f_782}, -{C_text("f_805:pathname_2escm"),(void*)f_805}, -{C_text("f_812:pathname_2escm"),(void*)f_812}, -{C_text("f_828:pathname_2escm"),(void*)f_828}, -{C_text("f_864:pathname_2escm"),(void*)f_864}, -{C_text("f_875:pathname_2escm"),(void*)f_875}, -{C_text("f_883:pathname_2escm"),(void*)f_883}, -{C_text("f_894:pathname_2escm"),(void*)f_894}, -{C_text("f_897:pathname_2escm"),(void*)f_897}, -{C_text("f_900:pathname_2escm"),(void*)f_900}, -{C_text("f_919:pathname_2escm"),(void*)f_919}, -{C_text("f_922:pathname_2escm"),(void*)f_922}, -{C_text("f_923:pathname_2escm"),(void*)f_923}, -{C_text("f_930:pathname_2escm"),(void*)f_930}, -{C_text("f_944:pathname_2escm"),(void*)f_944}, -{C_text("f_960:pathname_2escm"),(void*)f_960}, -{C_text("f_970:pathname_2escm"),(void*)f_970}, -{C_text("f_974:pathname_2escm"),(void*)f_974}, -{C_text("f_978:pathname_2escm"),(void*)f_978}, -{C_text("f_982:pathname_2escm"),(void*)f_982}, -{C_text("f_985:pathname_2escm"),(void*)f_985}, -{C_text("f_995:pathname_2escm"),(void*)f_995}, -{C_text("f_999:pathname_2escm"),(void*)f_999}, -{C_text("toplevel:pathname_2escm"),(void*)C_pathname_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: chicken.pathname#d -o|hiding unexported module binding: chicken.pathname#define-alias -o|hiding unexported module binding: chicken.pathname#absolute-pathname-root -o|hiding unexported module binding: chicken.pathname#root-origin -o|hiding unexported module binding: chicken.pathname#root-directory -o|hiding unexported module binding: chicken.pathname#chop-pds -o|hiding unexported module binding: chicken.pathname#split-directory -S|applied compiler syntax: -S| scheme#for-each 1 -o|eliminated procedure checks: 10 -o|specializations: -o| 3 (scheme#string=? * *) -o| 2 (scheme#char=? char char) -o| 3 (scheme#string-ref string fixnum) -o| 6 (scheme#string-length string) -o| 1 (scheme#car pair) -o| 5 (scheme#cdr pair) -o| 1 (scheme#zero? integer) -o| 3 (scheme#memq * list) -(o e)|safe calls: 150 -o|safe globals: (chicken.pathname#root-directory chicken.pathname#root-origin chicken.pathname#absolute-pathname-root) -o|inlining procedure: k631 -o|inlining procedure: k644 -o|inlining procedure: k644 -o|contracted procedure: "(pathname.scm:94) g145146" -o|inlining procedure: k675 -o|substituted constant variable: a679 -o|inlining procedure: k675 -o|inlining procedure: k631 -o|inlining procedure: k711 -o|inlining procedure: k711 -o|inlining procedure: k753 -o|inlining procedure: k753 -o|inlining procedure: k807 -o|inlining procedure: k807 -o|substituted constant variable: a822 -o|substituted constant variable: a823 -o|inlining procedure: k837 -o|substituted constant variable: a858 -o|contracted procedure: "(pathname.scm:133) g183184" -o|inlining procedure: k845 -o|substituted constant variable: a849 -o|inlining procedure: k845 -o|inlining procedure: k837 -o|inlining procedure: k895 -o|inlining procedure: k895 -o|inlining procedure: k925 -o|inlining procedure: k925 -o|inlining procedure: k949 -o|inlining procedure: k949 -o|inlining procedure: k986 -o|inlining procedure: k986 -o|substituted constant variable: a1158 -o|inlining procedure: k1155 -o|inlining procedure: k1155 -o|substituted constant variable: a1163 -o|inlining procedure: k1165 -o|inlining procedure: k1165 -o|substituted constant variable: a1180 -o|inlining procedure: k1199 -o|substituted constant variable: a1206 -o|inlining procedure: k1199 -o|inlining procedure: k1220 -o|inlining procedure: k1238 -o|inlining procedure: k1238 -o|inlining procedure: k1283 -o|inlining procedure: k1283 -o|inlining procedure: k1310 -o|inlining procedure: k1310 -o|inlining procedure: k1220 -o|inlining procedure: k1354 -o|inlining procedure: k1354 -o|inlining procedure: k1394 -o|inlining procedure: k1394 -o|inlining procedure: k1400 -o|inlining procedure: k1400 -o|substituted constant variable: a1441 -o|inlining procedure: k1435 -o|inlining procedure: k1435 -o|inlining procedure: k1468 -o|inlining procedure: k1468 -o|inlining procedure: k1487 -o|inlining procedure: k1487 -o|contracted procedure: "(pathname.scm:330) strip-origin-prefix437" -o|inlining procedure: k1517 -o|inlining procedure: k1517 -o|inlining procedure: k1539 -o|inlining procedure: k1539 -o|inlining procedure: k1603 -o|inlining procedure: k1603 -o|inlining procedure: k1612 -o|inlining procedure: k1612 -o|inlining procedure: k1633 -o|inlining procedure: k1633 -o|replaced variables: 284 -o|removed binding forms: 80 -o|substituted constant variable: r6321644 -o|substituted constant variable: r7121645 -o|substituted constant variable: r7541647 -o|substituted constant variable: r8081649 -o|substituted constant variable: r8081649 -o|substituted constant variable: r8081651 -o|substituted constant variable: r8081651 -o|substituted constant variable: r8381656 -o|substituted constant variable: r9261662 -o|substituted constant variable: r13951685 -o|substituted constant variable: r13951687 -o|substituted constant variable: r14361692 -o|converted assignments to bindings: (pds?371) -o|substituted constant variable: r14691693 -o|substituted constant variable: r14691693 -o|substituted constant variable: r14691695 -o|substituted constant variable: r14691695 -o|converted assignments to bindings: (addpart349) -o|substituted constant variable: r16041704 -o|substituted constant variable: r16131706 -o|substituted constant variable: r16341708 -o|simplifications: ((let . 2)) -o|replaced variables: 26 -o|removed binding forms: 244 -o|inlining procedure: k1235 -o|inlining procedure: k1570 -o|inlining procedure: k1570 -o|inlining procedure: k1570 -o|removed binding forms: 35 -o|replaced variables: 3 -o|removed binding forms: 1 -o|removed binding forms: 3 -o|simplifications: ((if . 17) (let . 14) (##core#call . 103)) -o| call simplifications: -o| scheme#list? -o| scheme#member -o| chicken.fixnum#fx+ 8 -o| scheme#pair? -o| ##sys#slot 2 -o| scheme#string 2 -o| scheme#cdr -o| scheme#cons 3 -o| ##sys#call-with-values 8 -o| chicken.fixnum#fx= 5 -o| scheme#values 8 -o| chicken.fixnum#fx> 3 -o| scheme#not 6 -o| scheme#string? -o| scheme#list -o| ##sys#check-list 2 -o| scheme#null? 10 -o| scheme#car 8 -o| chicken.fixnum#fx>= 4 -o| scheme#string-ref 2 -o| scheme#eq? 10 -o| scheme#string-length 6 -o| chicken.fixnum#fx< -o| chicken.fixnum#fx- 2 -o| ##sys#check-string 7 -o|contracted procedure: k618 -o|contracted procedure: k638 -o|contracted procedure: k654 -o|contracted procedure: k667 -o|contracted procedure: k660 -o|contracted procedure: k670 -o|contracted procedure: k691 -o|contracted procedure: k687 -o|contracted procedure: k696 -o|contracted procedure: k702 -o|contracted procedure: k714 -o|contracted procedure: k717 -o|contracted procedure: k747 -o|contracted procedure: k723 -o|contracted procedure: k756 -o|contracted procedure: k759 -o|contracted procedure: k765 -o|contracted procedure: k772 -o|contracted procedure: k784 -o|contracted procedure: k787 -o|contracted procedure: k790 -o|contracted procedure: k793 -o|contracted procedure: k796 -o|contracted procedure: k813 -o|contracted procedure: k834 -o|contracted procedure: k840 -o|contracted procedure: k876 -o|contracted procedure: k866 -o|contracted procedure: k904 -o|contracted procedure: k885 -o|contracted procedure: k911 -o|contracted procedure: k914 -o|contracted procedure: k941 -o|contracted procedure: k934 -o|contracted procedure: k946 -o|contracted procedure: k952 -o|contracted procedure: k1584 -o|contracted procedure: k1149 -o|contracted procedure: k1168 -o|inlining procedure: k1171 -o|contracted procedure: k1182 -o|inlining procedure: k1171 -o|contracted procedure: k1452 -o|contracted procedure: k1190 -o|contracted procedure: k1449 -o|contracted procedure: k1193 -o|contracted procedure: k1202 -o|contracted procedure: k1210 -o|contracted procedure: k1223 -o|contracted procedure: k1232 -o|contracted procedure: k1244 -o|contracted procedure: k1235 -o|contracted procedure: k1268 -o|contracted procedure: k1290 -o|contracted procedure: k1298 -o|contracted procedure: k1301 -o|contracted procedure: k1313 -o|contracted procedure: k1323 -o|contracted procedure: k1327 -o|contracted procedure: k1331 -o|contracted procedure: k1334 -o|contracted procedure: k1357 -o|contracted procedure: k1364 -o|contracted procedure: k1368 -o|contracted procedure: k1375 -o|contracted procedure: k1379 -o|contracted procedure: k1390 -o|contracted procedure: k1397 -o|contracted procedure: k1414 -o|contracted procedure: k1418 -o|contracted procedure: k1422 -o|contracted procedure: k1429 -o|contracted procedure: k1432 -o|contracted procedure: k1446 -o|contracted procedure: k1461 -o|contracted procedure: k1484 -o|contracted procedure: k1502 -o|contracted procedure: k1493 -o|contracted procedure: k1505 -o|contracted procedure: k1581 -o|contracted procedure: k1577 -o|contracted procedure: k1574 -o|contracted procedure: k1520 -o|contracted procedure: k1523 -o|contracted procedure: k1526 -o|contracted procedure: k1532 -o|contracted procedure: k1536 -o|contracted procedure: k1542 -o|contracted procedure: k1570 -o|simplifications: ((if . 1) (let . 29)) -o|removed binding forms: 87 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest193196 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest193196 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest205208 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest205208 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest362364 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest362364 0 -o|replaced variables: 3 -o|removed binding forms: 1 -o|removed binding forms: 2 -o|direct leaf routine/allocation: addpart349 9 -o|direct leaf routine/allocation: pds?371 0 -o|direct leaf routine/allocation: loop428 0 -o|contracted procedure: "(pathname.scm:255) k1338" -o|contracted procedure: "(pathname.scm:274) k1348" -o|contracted procedure: "(pathname.scm:281) k1383" -o|converted assignments to bindings: (loop428) -o|simplifications: ((let . 1)) -o|removed binding forms: 3 -o|customizable procedures: (k612 chicken.pathname#split-directory k1403 k1351 loop376 k1226 g390397 for-each-loop389401 k1280 strip-pds224 canonicalize-dirs153 _make-pathname154 k826 k810 conc-dirs152 chicken.pathname#chop-pds loop156 k647 lp138) -o|calls to known targets: 48 -o|identified direct recursive calls: f_709 1 -o|unused rest argument: rest193196 f_864 -o|unused rest argument: rest205208 f_883 -o|unused rest argument: rest362364 f_1188 -o|identified direct recursive calls: f_1482 1 -o|fast box initializations: 7 -o|fast global references: 8 -o|fast global assignments: 11 -o|dropping unused closure argument: f_1153 -o|dropping unused closure argument: f_1459 -o|dropping unused closure argument: f_1482 -o|dropping unused closure argument: f_629 -o|dropping unused closure argument: f_782 -o|dropping unused closure argument: f_923 -*/ -/* end of file */ diff --git a/chicken/src/r7lib.c b/chicken/src/r7lib.c deleted file mode 100644 index 6a6207a..0000000 --- a/chicken/src/r7lib.c +++ /dev/null @@ -1,2069 +0,0 @@ -/* Generated from r7lib.scm by the CHICKEN compiler - http://www.call-cc.org - Version 6.0.0pre1 ((HEAD detached at 6.0.0pre1)) (rev 05be15d4) - linux-unix-gnu-x86-64 [ 64bit dload ptables ] - command line: r7lib.scm -optimize-level 2 -include-path . -include-path ./ -inline -ignore-repository -feature chicken-bootstrap -no-warnings -specialize -consult-types-file ./types.db -explicit-use -no-trace -output-file r7lib.c -emit-import-library scheme.write -emit-import-library scheme.time -emit-import-library scheme.file -emit-import-library scheme.process-context - unit: r7lib - uses: file library -*/ -#include "chicken.h" - -static C_PTABLE_ENTRY *create_ptable(void); -C_noret_decl(C_file_toplevel) -C_extern void C_ccall C_file_toplevel(C_word c,C_word *av) C_noret; -C_noret_decl(C_library_toplevel) -C_extern void C_ccall C_library_toplevel(C_word c,C_word *av) C_noret; - -static C_word lf[36]; -static double C_possibly_force_alignment; -static C_char li0[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,46,119,114,105,116,101,35,105,110,116,101,114,101,115,116,105,110,103,63,41,0,0,0,0,0}; -static C_char li1[] C_aligned={C_lihdr(0,0,33),40,115,99,104,101,109,101,46,119,114,105,116,101,35,100,105,115,112,108,97,121,45,115,116,114,105,110,103,32,115,32,112,41,0,0,0,0,0,0,0}; -static C_char li2[] C_aligned={C_lihdr(0,0,15),40,97,115,115,105,103,110,45,108,97,98,101,108,33,41,0}; -static C_char li3[] C_aligned={C_lihdr(0,0,8),40,108,111,111,112,32,111,41}; -static C_char li4[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,49,56,52,32,105,41,0,0,0}; -static C_char li5[] C_aligned={C_lihdr(0,0,9),40,102,95,55,57,51,32,111,41,0,0,0,0,0,0,0}; -static C_char li6[] C_aligned={C_lihdr(0,0,9),40,102,95,57,50,50,32,111,41,0,0,0,0,0,0,0}; -static C_char li7[] C_aligned={C_lihdr(0,0,7),40,115,101,101,110,63,41,0}; -static C_char li8[] C_aligned={C_lihdr(0,0,7),40,115,101,101,110,33,41,0}; -static C_char li9[] C_aligned={C_lihdr(0,0,20),40,102,111,108,100,108,49,49,49,32,103,49,49,50,32,103,49,49,48,41,0,0,0,0}; -static C_char li10[] C_aligned={C_lihdr(0,0,13),40,100,111,108,111,111,112,49,50,57,32,105,41,0,0,0}; -static C_char li11[] C_aligned={C_lihdr(0,0,9),40,119,97,108,107,33,32,111,41,0,0,0,0,0,0,0}; -static C_char li12[] C_aligned={C_lihdr(0,0,71),40,115,99,104,101,109,101,46,119,114,105,116,101,35,119,114,105,116,101,45,119,105,116,104,45,115,104,97,114,101,100,45,115,116,114,117,99,116,117,114,101,32,119,114,105,116,101,114,32,111,98,106,32,99,121,99,108,101,115,45,111,110,108,121,63,32,112,111,114,116,41,0}; -static C_char li13[] C_aligned={C_lihdr(0,0,31),40,115,99,104,101,109,101,46,119,114,105,116,101,35,100,105,115,112,108,97,121,32,111,32,46,32,114,101,115,116,41,0}; -static C_char li14[] C_aligned={C_lihdr(0,0,29),40,115,99,104,101,109,101,46,119,114,105,116,101,35,119,114,105,116,101,32,111,32,46,32,114,101,115,116,41,0,0,0}; -static C_char li15[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,46,119,114,105,116,101,35,119,114,105,116,101,45,115,104,97,114,101,100,32,111,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li16[] C_aligned={C_lihdr(0,0,28),40,115,99,104,101,109,101,46,116,105,109,101,35,99,117,114,114,101,110,116,45,115,101,99,111,110,100,41,0,0,0,0}; -static C_char li17[] C_aligned={C_lihdr(0,0,27),40,115,99,104,101,109,101,46,116,105,109,101,35,99,117,114,114,101,110,116,45,106,105,102,102,121,41,0,0,0,0,0}; -static C_char li18[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,46,116,105,109,101,35,106,105,102,102,105,101,115,45,112,101,114,45,115,101,99,111,110,100,41}; -static C_char li19[] C_aligned={C_lihdr(0,0,49),40,115,99,104,101,109,101,46,102,105,108,101,35,111,112,101,110,45,98,105,110,97,114,121,45,105,110,112,117,116,45,102,105,108,101,32,102,110,97,109,101,32,46,32,97,114,103,115,41,0,0,0,0,0,0,0}; -static C_char li20[] C_aligned={C_lihdr(0,0,50),40,115,99,104,101,109,101,46,102,105,108,101,35,111,112,101,110,45,98,105,110,97,114,121,45,111,117,116,112,117,116,45,102,105,108,101,32,102,110,97,109,101,32,46,32,97,114,103,115,41,0,0,0,0,0,0}; -static C_char li21[] C_aligned={C_lihdr(0,0,32),40,115,99,104,101,109,101,46,102,105,108,101,35,102,105,108,101,45,101,120,105,115,116,115,63,32,102,110,97,109,101,41}; -static C_char li22[] C_aligned={C_lihdr(0,0,37),40,115,99,104,101,109,101,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,99,111,109,109,97,110,100,45,108,105,110,101,41,0,0,0}; -static C_char li23[] C_aligned={C_lihdr(0,0,8),40,117,110,119,105,110,100,41}; -static C_char li24[] C_aligned={C_lihdr(0,0,36),40,115,99,104,101,109,101,46,112,114,111,99,101,115,115,45,99,111,110,116,101,120,116,35,101,120,105,116,32,46,32,114,101,115,116,41,0,0,0,0}; -static C_char li25[] C_aligned={C_lihdr(0,0,10),40,116,111,112,108,101,118,101,108,41,0,0,0,0,0,0}; - - -/* from scheme.time#current-jiffy in k511 */ -C_regparm static C_word stub282(C_word C_buf){ -C_word C_r=C_SCHEME_UNDEFINED,*C_a=(C_word*)C_buf; -C_r=C_int_to_num(&C_a,clock()); -return C_r;} - -C_noret_decl(f_1012) -static void C_ccall f_1012(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_1035) -static void C_ccall f_1035(C_word c,C_word *av) C_noret; -C_noret_decl(f_1037) -static void C_ccall f_1037(C_word c,C_word *av) C_noret; -C_noret_decl(f_1040) -static void C_ccall f_1040(C_word c,C_word *av) C_noret; -C_noret_decl(f_1044) -static void C_ccall f_1044(C_word c,C_word *av) C_noret; -C_noret_decl(f_1046) -static void C_ccall f_1046(C_word c,C_word *av) C_noret; -C_noret_decl(f_1050) -static void C_ccall f_1050(C_word c,C_word *av) C_noret; -C_noret_decl(f_1055) -static void C_ccall f_1055(C_word c,C_word *av) C_noret; -C_noret_decl(f_1059) -static void C_ccall f_1059(C_word c,C_word *av) C_noret; -C_noret_decl(f_1064) -static void C_ccall f_1064(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_1073) -static void C_ccall f_1073(C_word c,C_word *av) C_noret; -C_noret_decl(f_1081) -static void C_ccall f_1081(C_word c,C_word *av) C_noret; -C_noret_decl(f_1085) -static void C_ccall f_1085(C_word c,C_word *av) C_noret; -C_noret_decl(f_1100) -static void C_ccall f_1100(C_word c,C_word *av) C_noret; -C_noret_decl(f_1107) -static void C_ccall f_1107(C_word c,C_word *av) C_noret; -C_noret_decl(f_1116) -static void f_1116(C_word t0,C_word t1) C_noret; -C_noret_decl(f_1133) -static void C_ccall f_1133(C_word c,C_word *av) C_noret; -C_noret_decl(f_513) -static void C_ccall f_513(C_word c,C_word *av) C_noret; -C_noret_decl(f_515) -static C_word f_515(C_word t0); -C_noret_decl(f_560) -static void f_560(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_588) -static C_word f_588(C_word t0,C_word t1); -C_noret_decl(f_594) -static C_word f_594(C_word *a,C_word t0,C_word t1); -C_noret_decl(f_606) -static void C_ccall f_606(C_word c,C_word *av) C_noret; -C_noret_decl(f_644) -static void f_644(C_word t0,C_word t1,C_word t2,C_word t3) C_noret; -C_noret_decl(f_668) -static void f_668(C_word t0,C_word t1,C_word t2) 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_728) -static void C_ccall f_728(C_word c,C_word *av) C_noret; -C_noret_decl(f_752) -static void f_752(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_762) -static void C_ccall f_762(C_word c,C_word *av) C_noret; -C_noret_decl(f_775) -static void f_775(C_word t0,C_word t1,C_word t2,C_word t3,C_word t4) C_noret; -C_noret_decl(f_779) -static C_word f_779(C_word t0,C_word t1); -C_noret_decl(f_791) -static void C_ccall f_791(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_803) -static void C_ccall f_803(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_813) -static void f_813(C_word t0,C_word t1,C_word t2) C_noret; -C_noret_decl(f_829) -static void f_829(C_word t0,C_word t1) 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_835) -static void C_ccall f_835(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_850) -static void C_ccall f_850(C_word c,C_word *av) C_noret; -C_noret_decl(f_878) -static void C_ccall f_878(C_word c,C_word *av) C_noret; -C_noret_decl(f_881) -static void C_ccall f_881(C_word c,C_word *av) C_noret; -C_noret_decl(f_889) -static void f_889(C_word t0,C_word t1,C_word t2) 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_905) -static void C_ccall f_905(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_956) -static void C_ccall f_956(C_word c,C_word *av) C_noret; -C_noret_decl(f_959) -static void C_ccall f_959(C_word c,C_word *av) C_noret; -C_noret_decl(f_965) -static void C_ccall f_965(C_word c,C_word *av) C_noret; -C_noret_decl(f_968) -static void C_ccall f_968(C_word c,C_word *av) C_noret; -C_noret_decl(f_971) -static void C_ccall f_971(C_word c,C_word *av) C_noret; -C_noret_decl(f_982) -static void C_ccall f_982(C_word c,C_word *av) C_noret; -C_noret_decl(f_997) -static void C_ccall f_997(C_word c,C_word *av) C_noret; -C_noret_decl(C_r7lib_toplevel) -C_extern void C_ccall C_r7lib_toplevel(C_word c,C_word *av) C_noret; - -C_noret_decl(trf_1116) -static void C_ccall trf_1116(C_word c,C_word *av) C_noret; -static void C_ccall trf_1116(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_1116(t0,t1);} - -C_noret_decl(trf_560) -static void C_ccall trf_560(C_word c,C_word *av) C_noret; -static void C_ccall trf_560(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_560(t0,t1,t2);} - -C_noret_decl(trf_644) -static void C_ccall trf_644(C_word c,C_word *av) C_noret; -static void C_ccall trf_644(C_word c,C_word *av){ -C_word t0=av[3]; -C_word t1=av[2]; -C_word t2=av[1]; -C_word t3=av[0]; -f_644(t0,t1,t2,t3);} - -C_noret_decl(trf_668) -static void C_ccall trf_668(C_word c,C_word *av) C_noret; -static void C_ccall trf_668(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_668(t0,t1,t2);} - -C_noret_decl(trf_752) -static void C_ccall trf_752(C_word c,C_word *av) C_noret; -static void C_ccall trf_752(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_752(t0,t1,t2);} - -C_noret_decl(trf_775) -static void C_ccall trf_775(C_word c,C_word *av) C_noret; -static void C_ccall trf_775(C_word c,C_word *av){ -C_word t0=av[4]; -C_word t1=av[3]; -C_word t2=av[2]; -C_word t3=av[1]; -C_word t4=av[0]; -f_775(t0,t1,t2,t3,t4);} - -C_noret_decl(trf_813) -static void C_ccall trf_813(C_word c,C_word *av) C_noret; -static void C_ccall trf_813(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_813(t0,t1,t2);} - -C_noret_decl(trf_829) -static void C_ccall trf_829(C_word c,C_word *av) C_noret; -static void C_ccall trf_829(C_word c,C_word *av){ -C_word t0=av[1]; -C_word t1=av[0]; -f_829(t0,t1);} - -C_noret_decl(trf_889) -static void C_ccall trf_889(C_word c,C_word *av) C_noret; -static void C_ccall trf_889(C_word c,C_word *av){ -C_word t0=av[2]; -C_word t1=av[1]; -C_word t2=av[0]; -f_889(t0,t1,t2);} - -/* scheme.write#write-shared in k511 */ -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=av[2]; -C_word t3; -C_word t4; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_1012,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=*((C_word*)lf[9]+1); -/* r7lib.scm:168: write-with-shared-structure */ -f_775(t1,*((C_word*)lf[12]+1),t2,C_SCHEME_FALSE,*((C_word*)lf[9]+1));} -else{ -/* r7lib.scm:168: write-with-shared-structure */ -f_775(t1,*((C_word*)lf[12]+1),t2,C_SCHEME_FALSE,C_get_rest_arg(c,3,av,3,t0));}} - -/* scheme.time#current-second in k511 */ -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 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_1027,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1035,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* r7lib.scm:187: chicken.time#current-seconds */ -t3=*((C_word*)lf[17]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k1033 in scheme.time#current-second in k511 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(29,c,1)))){ -C_save_and_reclaim((void *)f_1035,c,av);} -a=C_alloc(29); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_s_a_i_plus(&a,2,t1,lf[16]); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme.time#current-jiffy in k511 */ -static void C_ccall f_1037(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(8,c,1)))){ -C_save_and_reclaim((void *)f_1037,c,av);} -a=C_alloc(8); -t2=C_a_i_bytevector(&a,1,C_fix(6)); -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=stub282(t2); -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme.time#jiffies-per-second in k511 */ -static void C_ccall f_1040(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(c!=2) C_bad_argc_2(c,2,t0); -if(C_unlikely(!C_demand(C_calculate_demand(6,c,1)))){ -C_save_and_reclaim((void *)f_1040,c,av);} -a=C_alloc(6); -t2=t1;{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_int_to_num(&a,CLOCKS_PER_SEC); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* k1042 in k511 */ -static void C_ccall f_1044(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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,c,3)))){ -C_save_and_reclaim((void *)f_1044,c,av);} -a=C_alloc(23); -t2=C_mutate((C_word*)lf[21]+1 /* (set! scheme.file#open-binary-input-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1046,a[2]=((C_word)li19),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate((C_word*)lf[25]+1 /* (set! scheme.file#open-binary-output-file ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1055,a[2]=((C_word)li20),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate((C_word*)lf[27]+1 /* (set! scheme.file#file-exists? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1064,a[2]=((C_word)li21),tmp=(C_word)a,a+=3,tmp)); -t5=C_a_i_provide(&a,1,lf[29]); -t6=C_mutate((C_word*)lf[30]+1 /* (set! scheme.process-context#command-line ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1073,a[2]=((C_word)li22),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[33]+1 /* (set! scheme.process-context#exit ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1100,a[2]=((C_word)li24),tmp=(C_word)a,a+=3,tmp)); -t8=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t8; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t8+1)))(2,av2);}} - -/* scheme.file#open-binary-input-file in k1042 in k511 */ -static void C_ccall f_1046(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_1046,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_1050,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=t4; -av2[2]=*((C_word*)lf[23]+1); -av2[3]=t2; -av2[4]=lf[24]; -av2[5]=t3; -C_apply(6,av2);}} - -/* k1048 in scheme.file#open-binary-input-file in k1042 in k511 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1050,c,av);} -t2=C_i_setslot(t1,C_fix(14),lf[22]); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme.file#open-binary-output-file in k1042 in k511 */ -static void C_ccall f_1055(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -C_word *a; -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_1055,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_1059,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2; -if(c >= 6) { - av2=av; -} else { - av2=C_alloc(6); -} -av2[0]=0; -av2[1]=t4; -av2[2]=*((C_word*)lf[26]+1); -av2[3]=t2; -av2[4]=lf[24]; -av2[5]=t3; -C_apply(6,av2);}} - -/* k1057 in scheme.file#open-binary-output-file in k1042 in k511 */ -static void C_ccall f_1059(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1059,c,av);} -t2=C_i_setslot(t1,C_fix(14),lf[22]); -t3=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t1; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* scheme.file#file-exists? in k1042 in k511 */ -static void C_ccall f_1064(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2=av[2]; -C_word t3; -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_1064,c,av);} -a=C_alloc(3); -t3=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1071,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* r7lib.scm:215: chicken.file#file-exists? */ -t4=*((C_word*)lf[28]+1);{ -C_word *av2=av; -av2[0]=t4; -av2[1]=t3; -av2[2]=t2; -((C_proc)(void*)(*((C_word*)t4+1)))(3,av2);}} - -/* k1069 in scheme.file#file-exists? in k1042 in k511 */ -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; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1071,c,av);} -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=(C_truep(t1)?C_SCHEME_TRUE:C_SCHEME_FALSE); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme.process-context#command-line in k1042 in k511 */ -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 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_1073,c,av);} -a=C_alloc(3); -t2=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1081,a[2]=t1,tmp=(C_word)a,a+=3,tmp); -/* r7lib.scm:231: chicken.process-context#program-name */ -t3=*((C_word*)lf[32]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k1079 in scheme.process-context#command-line in k1042 in k511 */ -static void C_ccall f_1081(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_1081,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1085,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* r7lib.scm:231: chicken.process-context#command-line-arguments */ -t3=*((C_word*)lf[31]+1);{ -C_word *av2=av; -av2[0]=t3; -av2[1]=t2; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}} - -/* k1083 in k1079 in scheme.process-context#command-line in k1042 in k511 */ -static void C_ccall f_1085(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(3,c,1)))){ -C_save_and_reclaim((void *)f_1085,c,av);} -a=C_alloc(3); -t2=((C_word*)t0)[2];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_a_i_cons(&a,2,((C_word*)t0)[3],t1); -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}} - -/* scheme.process-context#exit in k1042 in k511 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(10,c,2)))){ -C_save_and_reclaim((void *)f_1100,c,av);} -a=C_alloc(10); -t2=C_rest_nullp(c,2); -t3=(C_truep(t2)?C_fix(0):C_get_rest_arg(c,2,av,2,t0)); -t4=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1107,a[2]=t3,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|3,a[1]=(C_word)f_1116,a[2]=t6,a[3]=((C_word)li23),tmp=(C_word)a,a+=4,tmp)); -t8=((C_word*)t6)[1]; -f_1116(t8,t4);} - -/* k1105 in scheme.process-context#exit in k1042 in k511 */ -static void C_ccall f_1107(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_1107,c,av);} -if(C_truep(C_i_integerp(((C_word*)t0)[2]))){ -/* r7lib.scm:248: chicken.base#exit */ -t2=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t2; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -((C_proc)(void*)(*((C_word*)t2+1)))(3,av2);}} -else{ -t2=C_eqp(((C_word*)t0)[2],C_SCHEME_FALSE); -if(C_truep(t2)){ -/* r7lib.scm:248: chicken.base#exit */ -t3=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_fix(1); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}} -else{ -/* r7lib.scm:248: chicken.base#exit */ -t3=*((C_word*)lf[34]+1);{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=C_fix(0); -((C_proc)(void*)(*((C_word*)t3+1)))(3,av2);}}}} - -/* unwind in scheme.process-context#exit in k1042 in k511 */ -static void f_1116(C_word 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_1116,2,t0,t1);} -a=C_alloc(4); -if(C_truep(C_i_nullp(*((C_word*)lf[35]+1)))){ -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=C_i_cdar(*((C_word*)lf[35]+1)); -t3=C_i_cdr(*((C_word*)lf[35]+1)); -t4=C_mutate((C_word*)lf[35]+1 /* (set! ##sys#dynamic-winds ...) */,t3); -t5=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_1133,a[2]=((C_word*)t0)[2],a[3]=t1,tmp=(C_word)a,a+=4,tmp); -/* r7lib.scm:245: after */ -t6=t2;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=t5; -((C_proc)C_fast_retrieve_proc(t6))(2,av2);}}} - -/* k1131 in unwind in scheme.process-context#exit in k1042 in k511 */ -static void C_ccall f_1133(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,1)))){ -C_save_and_reclaim((void *)f_1133,c,av);} -/* r7lib.scm:246: unwind */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_1116(t2,((C_word*)t0)[3]);} - -/* k511 */ -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 t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word t14; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(46,c,6)))){ -C_save_and_reclaim((void *)f_513,c,av);} -a=C_alloc(46); -t2=C_mutate(&lf[2] /* (set! scheme.write#interesting? ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_515,a[2]=((C_word)li0),tmp=(C_word)a,a+=3,tmp)); -t3=C_mutate(&lf[3] /* (set! scheme.write#display-string ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_560,a[2]=((C_word)li1),tmp=(C_word)a,a+=3,tmp)); -t4=C_mutate(&lf[4] /* (set! scheme.write#write-with-shared-structure ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_775,a[2]=((C_word)li12),tmp=(C_word)a,a+=3,tmp)); -t5=C_mutate((C_word*)lf[8]+1 /* (set! scheme.write#display ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_982,a[2]=((C_word)li13),tmp=(C_word)a,a+=3,tmp)); -t6=C_mutate((C_word*)lf[11]+1 /* (set! scheme.write#write ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_997,a[2]=((C_word)li14),tmp=(C_word)a,a+=3,tmp)); -t7=C_mutate((C_word*)lf[13]+1 /* (set! scheme.write#write-shared ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1012,a[2]=((C_word)li15),tmp=(C_word)a,a+=3,tmp)); -t8=C_a_i_provide(&a,1,lf[14]); -t9=C_mutate((C_word*)lf[15]+1 /* (set! scheme.time#current-second ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1027,a[2]=((C_word)li16),tmp=(C_word)a,a+=3,tmp)); -t10=C_mutate((C_word*)lf[18]+1 /* (set! scheme.time#current-jiffy ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1037,a[2]=((C_word)li17),tmp=(C_word)a,a+=3,tmp)); -t11=C_mutate((C_word*)lf[19]+1 /* (set! scheme.time#jiffies-per-second ...) */,(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1040,a[2]=((C_word)li18),tmp=(C_word)a,a+=3,tmp)); -t12=C_a_i_provide(&a,1,lf[20]); -t13=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_1044,a[2]=((C_word*)t0)[2],tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t13; -C_file_toplevel(2,av2);}} - -/* scheme.write#interesting? in k511 */ -static C_word f_515(C_word t1){ -C_word tmp; -C_word t2; -C_word t3; -C_word t4; -C_stack_overflow_check;{} -t2=C_i_pairp(t1); -if(C_truep(t2)){ -return(t2);} -else{ -t3=C_i_vectorp(t1); -return((C_truep(t3)?C_fixnum_less_or_equal_p(C_fix(1),C_block_size(t1)):C_SCHEME_FALSE));}} - -/* scheme.write#display-string in k511 */ -static void f_560(C_word t1,C_word 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(0,0,5)))){ -C_save_and_reclaim_args((void *)trf_560,3,t1,t2,t3);} -t4=C_slot(t2,C_fix(0)); -t5=C_slot(t3,C_fix(2)); -t6=C_slot(t5,C_fix(3)); -t7=C_block_size(t4); -/* r7lib.scm:52: g97 */ -t8=t6;{ -C_word av2[6]; -av2[0]=t8; -av2[1]=t1; -av2[2]=t3; -av2[3]=t4; -av2[4]=C_fix(0); -av2[5]=C_fixnum_difference(t7,C_fix(1)); -((C_proc)C_fast_retrieve_proc(t8))(6,av2);}} - -/* seen? in scheme.write#write-with-shared-structure in k511 */ -static C_word f_588(C_word t0,C_word t1){ -C_word tmp; -C_word t2; -C_stack_overflow_check;{} -return(C_i_assq(t1,((C_word*)((C_word*)t0)[2])[1]));} - -/* seen! in scheme.write#write-with-shared-structure in k511 */ -static C_word f_594(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_a_i_cons(&a,2,t1,C_fix(1)); -t3=C_a_i_cons(&a,2,t2,((C_word*)((C_word*)t0)[2])[1]); -t4=C_mutate(((C_word *)((C_word*)t0)[2])+1,t3); -return(t4);} - -/* k604 in scheme.write#write-with-shared-structure in k511 */ -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 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_606,c,av);} -a=C_alloc(6); -t2=((C_word*)((C_word*)t0)[2])[1]; -t3=C_i_check_list_2(t2,lf[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|3,a[1]=(C_word)f_644,a[2]=t5,a[3]=((C_word)li9),tmp=(C_word)a,a+=4,tmp)); -t7=((C_word*)t5)[1]; -f_644(t7,((C_word*)t0)[3],t2,C_SCHEME_END_OF_LIST);} - -/* foldl111 in k604 in scheme.write#write-with-shared-structure in k511 */ -static void f_644(C_word t0,C_word t1,C_word t2,C_word t3){ -C_word tmp; -C_word t4; -C_word t5; -C_word t6; -C_word t7; -C_word t8; -C_word t9; -C_word t10; -C_word t11; -C_word t12; -C_word t13; -C_word *a; -loop: -if(C_unlikely(!C_demand(C_calculate_demand(6,0,3)))){ -C_save_and_reclaim_args((void *)trf_644,4,t0,t1,t2,t3);} -a=C_alloc(6); -if(C_truep(C_i_pairp(t2))){ -t4=C_slot(t2,C_fix(1)); -t5=C_slot(t2,C_fix(0)); -t6=C_i_cdr(t5); -if(C_truep(C_fixnum_less_or_equal_p(t6,C_fix(1)))){ -t7=C_u_i_car(t5); -t8=C_a_i_cons(&a,2,t7,C_SCHEME_FALSE); -t9=C_a_i_cons(&a,2,t8,t3); -t11=t1; -t12=t4; -t13=t9; -t1=t11; -t2=t12; -t3=t13; -goto loop;} -else{ -t7=C_u_i_car(t5); -t8=C_a_i_cons(&a,2,t7,C_SCHEME_TRUE); -t9=C_a_i_cons(&a,2,t8,t3); -t11=t1; -t12=t4; -t13=t9; -t1=t11; -t2=t12; -t3=t13; -goto loop;}} -else{ -t4=t1;{ -C_word av2[2]; -av2[0]=t4; -av2[1]=t3; -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}}} - -/* walk! in scheme.write#write-with-shared-structure in k511 */ -static void f_668(C_word t0,C_word t1,C_word t2){ -C_word tmp; -C_word t3; -C_word t4; -C_word t5; -C_word t6; -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(21,0,3)))){ -C_save_and_reclaim_args((void *)trf_668,3,t0,t1,t2);} -a=C_alloc(21); -t3=( -/* r7lib.scm:67: interesting? */ - f_515(t2) -); -if(C_truep(t3)){ -t4=( -/* r7lib.scm:68: seen? */ - f_588(((C_word*)((C_word*)t0)[2])[1],t2) -); -t5=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_681,a[2]=((C_word*)t0)[3],a[3]=((C_word*)t0)[2],a[4]=t2,a[5]=t1,tmp=(C_word)a,a+=6,tmp); -if(C_truep(t4)){ -t6=C_i_cdr(t4); -t7=t5;{ -C_word av2[2]; -av2[0]=t7; -av2[1]=C_i_setslot(t4,C_fix(1),C_fixnum_plus(t6,C_fix(1))); -f_681(2,av2);}} -else{ -if(C_truep(C_i_pairp(t2))){ -t6=( -/* r7lib.scm:72: seen! */ - f_594(C_a_i(&a,6),((C_word*)((C_word*)t0)[4])[1],t2) -); -t7=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_728,a[2]=((C_word*)t0)[5],a[3]=t5,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* r7lib.scm:73: walk! */ -t12=t7; -t13=C_u_i_car(t2); -t1=t12; -t2=t13; -goto loop;} -else{ -if(C_truep(C_i_vectorp(t2))){ -t6=( -/* r7lib.scm:76: seen! */ - f_594(C_a_i(&a,6),((C_word*)((C_word*)t0)[4])[1],t2) -); -t7=C_block_size(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_752,a[2]=t7,a[3]=t9,a[4]=((C_word*)t0)[5],a[5]=t2,a[6]=((C_word)li10),tmp=(C_word)a,a+=7,tmp)); -t11=((C_word*)t9)[1]; -f_752(t11,t5,C_fix(0));} -else{ -t6=t5;{ -C_word av2[2]; -av2[0]=t6; -av2[1]=C_SCHEME_UNDEFINED; -f_681(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);}}} - -/* k679 in walk! in scheme.write#write-with-shared-structure in k511 */ -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; -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_681,c,av);} -if(C_truep(((C_word*)t0)[2])){ -t2=( -/* r7lib.scm:85: seen? */ - f_588(((C_word*)((C_word*)t0)[3])[1],((C_word*)t0)[4]) -); -t3=C_i_cdr(t2); -if(C_truep(C_fixnum_less_or_equal_p(t3,C_fix(1)))){ -t4=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t4; -av2[1]=C_i_set_i_slot(t2,C_fix(1),C_fix(0)); -((C_proc)(void*)(*((C_word*)t4+1)))(2,av2);}} -else{ -t4=C_SCHEME_UNDEFINED; -t5=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t5; -av2[1]=t4; -((C_proc)(void*)(*((C_word*)t5+1)))(2,av2);}}} -else{ -t2=((C_word*)t0)[5];{ -C_word *av2=av; -av2[0]=t2; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t2+1)))(2,av2);}}} - -/* k726 in walk! in scheme.write#write-with-shared-structure in k511 */ -static void C_ccall f_728(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_728,c,av);} -/* r7lib.scm:74: walk! */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_668(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} - -/* doloop129 in walk! in scheme.write#write-with-shared-structure in k511 */ -static void f_752(C_word t0,C_word t1,C_word 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_752,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_762,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,tmp=(C_word)a,a+=5,tmp); -/* r7lib.scm:80: walk! */ -t5=((C_word*)((C_word*)t0)[4])[1]; -f_668(t5,t4,C_slot(((C_word*)t0)[5],t2));}} - -/* k760 in doloop129 in walk! in scheme.write#write-with-shared-structure in k511 */ -static void C_ccall f_762(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_762,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_752(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* scheme.write#write-with-shared-structure in k511 */ -static void f_775(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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(52,0,3)))){ -C_save_and_reclaim_args((void *)trf_775,5,t1,t2,t3,t4,t5);} -a=C_alloc(52); -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,C_fix(0)); -t17=C_set_block_item(t9,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_779,a[2]=t7,a[3]=((C_word)li2),tmp=(C_word)a,a+=4,tmp)); -t18=(*a=C_CLOSURE_TYPE|10,a[1]=(C_word)f_791,a[2]=t11,a[3]=t13,a[4]=t5,a[5]=t15,a[6]=t2,a[7]=t9,a[8]=t7,a[9]=t1,a[10]=t3,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_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_set_block_item(t20,0,C_SCHEME_END_OF_LIST); -t26=C_set_block_item(t22,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_588,a[2]=t20,a[3]=((C_word)li7),tmp=(C_word)a,a+=4,tmp)); -t27=C_set_block_item(t24,0,(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_594,a[2]=t20,a[3]=((C_word)li8),tmp=(C_word)a,a+=4,tmp)); -t28=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_606,a[2]=t20,a[3]=t18,tmp=(C_word)a,a+=4,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|6,a[1]=(C_word)f_668,a[2]=t22,a[3]=t4,a[4]=t24,a[5]=t30,a[6]=((C_word)li11),tmp=(C_word)a,a+=7,tmp)); -t32=((C_word*)t30)[1]; -f_668(t32,t28,t3);} - -/* assign-label! in scheme.write#write-with-shared-structure in k511 */ -static C_word f_779(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_setslot(t1,C_fix(1),((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); -return(t4);} - -/* k789 in scheme.write#write-with-shared-structure in k511 */ -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 t5; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(15,c,3)))){ -C_save_and_reclaim((void *)f_791,c,av);} -a=C_alloc(15); -t2=C_mutate(((C_word *)((C_word*)t0)[2])+1,t1); -t3=C_mutate(((C_word *)((C_word*)t0)[3])+1,(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_793,a[2]=((C_word*)t0)[4],a[3]=((C_word*)t0)[5],a[4]=((C_word*)t0)[2],a[5]=((C_word)li5),tmp=(C_word)a,a+=6,tmp)); -t4=C_mutate(((C_word *)((C_word*)t0)[5])+1,(*a=C_CLOSURE_TYPE|8,a[1]=(C_word)f_922,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)[7],a[7]=((C_word*)t0)[8],a[8]=((C_word)li6),tmp=(C_word)a,a+=9,tmp)); -/* r7lib.scm:151: write/shared */ -t5=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t5; -av2[1]=((C_word*)t0)[9]; -av2[2]=((C_word*)t0)[10]; -((C_proc)C_fast_retrieve_proc(t5))(3,av2);}} - -/* f_793 in k789 in scheme.write#write-with-shared-structure in k511 */ -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=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,3)))){ -C_save_and_reclaim((void *)f_793,c,av);} -a=C_alloc(7); -if(C_truep(C_i_pairp(t2))){ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_803,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_slot(((C_word*)t0)[2],C_fix(2)); -/* r7lib.scm:48: g91 */ -t5=C_slot(t4,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t5; -av2[1]=t3; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(40); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} -else{ -if(C_truep(C_i_vectorp(t2))){ -t3=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_878,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); -/* r7lib.scm:124: display-string */ -f_560(t3,lf[6],((C_word*)t0)[2]);} -else{ -t3=t1;{ -C_word *av2=av; -av2[0]=t3; -av2[1]=C_SCHEME_UNDEFINED; -((C_proc)(void*)(*((C_word*)t3+1)))(2,av2);}}}} - -/* k801 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,2)))){ -C_save_and_reclaim((void *)f_803,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_806,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -/* r7lib.scm:110: write/shared */ -t3=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_u_i_car(((C_word*)t0)[2]); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k804 in k801 */ -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 t6; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(9,c,3)))){ -C_save_and_reclaim((void *)f_806,c,av);} -a=C_alloc(9); -t2=C_u_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|6,a[1]=(C_word)f_813,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)li3),tmp=(C_word)a,a+=7,tmp)); -t6=((C_word*)t4)[1]; -f_813(t6,((C_word*)t0)[6],t2);} - -/* loop in k804 in k801 */ -static void f_813(C_word t0,C_word t1,C_word 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_813,3,t0,t1,t2);} -a=C_alloc(7); -if(C_truep(C_i_nullp(t2))){ -t3=C_slot(((C_word*)t0)[2],C_fix(2)); -/* r7lib.scm:48: g91 */ -t4=C_slot(t3,C_fix(2));{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t1; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(41); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} -else{ -t3=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_829,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[4],a[6]=((C_word*)t0)[2],tmp=(C_word)a,a+=7,tmp); -if(C_truep(C_i_pairp(t2))){ -t4=C_i_assq(t2,((C_word*)((C_word*)t0)[5])[1]); -t5=t3; -f_829(t5,C_i_not(C_i_cdr(t4)));} -else{ -t4=t3; -f_829(t4,C_SCHEME_FALSE);}}} - -/* k827 in loop in k804 in k801 */ -static void f_829(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_829,2,t0,t1);} -a=C_alloc(6); -if(C_truep(t1)){ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_832,a[2]=((C_word*)t0)[2],a[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(2)); -/* r7lib.scm:48: g91 */ -t4=C_slot(t3,C_fix(2));{ -C_word av2[4]; -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[6]; -av2[3]=C_make_character(32); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} -else{ -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_847,a[2]=((C_word*)t0)[6],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[5],a[5]=((C_word*)t0)[4],tmp=(C_word)a,a+=6,tmp); -/* r7lib.scm:120: display-string */ -f_560(t2,lf[5],((C_word*)t0)[6]);}} - -/* k830 in k827 in loop in k804 in k801 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_832,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_835,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* r7lib.scm:117: write/shared */ -t3=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_i_car(((C_word*)t0)[4]); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k833 in k830 in k827 in loop in k804 in k801 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_835,c,av);} -/* r7lib.scm:118: loop */ -t2=((C_word*)((C_word*)t0)[2])[1]; -f_813(t2,((C_word*)t0)[3],C_u_i_cdr(((C_word*)t0)[4]));} - -/* k845 in k827 in loop in k804 in k801 */ -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 t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,2)))){ -C_save_and_reclaim((void *)f_847,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_850,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* r7lib.scm:121: write/shared */ -t3=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k848 in k845 in k827 in loop in k804 in k801 */ -static void C_ccall f_850(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_850,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -/* r7lib.scm:48: g91 */ -t3=C_slot(t2,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(41); -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* k876 */ -static void C_ccall f_878(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(6,c,2)))){ -C_save_and_reclaim((void *)f_878,c,av);} -a=C_alloc(6); -t2=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_881,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],a[5]=((C_word*)t0)[5],tmp=(C_word)a,a+=6,tmp); -/* r7lib.scm:125: write/shared */ -t3=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_slot(((C_word*)t0)[2],C_fix(0)); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k879 in k876 */ -static void C_ccall f_881(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word 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_881,c,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_889,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)li4),tmp=(C_word)a,a+=8,tmp)); -t6=((C_word*)t4)[1]; -f_889(t6,((C_word*)t0)[5],C_fix(1));} - -/* doloop184 in k879 in k876 */ -static void f_889(C_word 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_889,3,t0,t1,t2);} -a=C_alloc(7); -t3=C_eqp(t2,((C_word*)t0)[2]); -if(C_truep(t3)){ -t4=C_slot(((C_word*)t0)[3],C_fix(2)); -/* r7lib.scm:48: g91 */ -t5=C_slot(t4,C_fix(2));{ -C_word av2[4]; -av2[0]=t5; -av2[1]=t1; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_make_character(41); -((C_proc)C_fast_retrieve_proc(t5))(4,av2);}} -else{ -t4=(*a=C_CLOSURE_TYPE|6,a[1]=(C_word)f_902,a[2]=((C_word*)t0)[4],a[3]=t1,a[4]=t2,a[5]=((C_word*)t0)[5],a[6]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t5=C_slot(((C_word*)t0)[3],C_fix(2)); -/* r7lib.scm:48: g91 */ -t6=C_slot(t5,C_fix(2));{ -C_word av2[4]; -av2[0]=t6; -av2[1]=t4; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_make_character(32); -((C_proc)C_fast_retrieve_proc(t6))(4,av2);}}} - -/* k900 in doloop184 in k879 in k876 */ -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; -if(C_unlikely(!C_demand(C_calculate_demand(5,c,2)))){ -C_save_and_reclaim((void *)f_902,c,av);} -a=C_alloc(5); -t2=(*a=C_CLOSURE_TYPE|4,a[1]=(C_word)f_905,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],a[4]=((C_word*)t0)[4],tmp=(C_word)a,a+=5,tmp); -/* r7lib.scm:131: write/shared */ -t3=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=C_slot(((C_word*)t0)[6],((C_word*)t0)[4]); -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* k903 in k900 in doloop184 in k879 in k876 */ -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 *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_905,c,av);} -t2=((C_word*)((C_word*)t0)[2])[1]; -f_889(t2,((C_word*)t0)[3],C_fixnum_plus(((C_word*)t0)[4],C_fix(1)));} - -/* f_922 in k789 in scheme.write#write-with-shared-structure in k511 */ -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 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(10,c,3)))){ -C_save_and_reclaim((void *)f_922,c,av);} -a=C_alloc(10); -t3=( -/* r7lib.scm:46: interesting? */ - f_515(t2) -); -if(C_truep(C_i_not(t3))){ -/* r7lib.scm:135: writer */ -t4=((C_word*)t0)[2];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t1; -av2[2]=t2; -av2[3]=((C_word*)t0)[3]; -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} -else{ -t4=C_i_assq(t2,((C_word*)((C_word*)t0)[4])[1]); -t5=C_i_cdr(t4); -if(C_truep(C_i_not(t5))){ -/* r7lib.scm:139: write-interesting/shared */ -t6=((C_word*)((C_word*)t0)[5])[1];{ -C_word *av2=av; -av2[0]=t6; -av2[1]=t1; -av2[2]=t2; -((C_proc)C_fast_retrieve_proc(t6))(3,av2);}} -else{ -if(C_truep(C_i_numberp(t5))){ -t6=(*a=C_CLOSURE_TYPE|5,a[1]=(C_word)f_956,a[2]=((C_word*)t0)[3],a[3]=t1,a[4]=((C_word*)t0)[2],a[5]=t5,tmp=(C_word)a,a+=6,tmp); -t7=C_slot(((C_word*)t0)[3],C_fix(2)); -/* r7lib.scm:48: g91 */ -t8=C_slot(t7,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t8; -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_make_character(35); -((C_proc)C_fast_retrieve_proc(t8))(4,av2);}} -else{ -t6=(*a=C_CLOSURE_TYPE|9,a[1]=(C_word)f_965,a[2]=((C_word*)t0)[6],a[3]=t4,a[4]=((C_word*)t0)[5],a[5]=t1,a[6]=t2,a[7]=((C_word*)t0)[3],a[8]=((C_word*)t0)[2],a[9]=((C_word*)t0)[7],tmp=(C_word)a,a+=10,tmp); -t7=C_slot(((C_word*)t0)[3],C_fix(2)); -/* r7lib.scm:48: g91 */ -t8=C_slot(t7,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t8; -av2[1]=t6; -av2[2]=((C_word*)t0)[3]; -av2[3]=C_make_character(35); -((C_proc)C_fast_retrieve_proc(t8))(4,av2);}}}}} - -/* k954 */ -static void C_ccall f_956(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(4,c,3)))){ -C_save_and_reclaim((void *)f_956,c,av);} -a=C_alloc(4); -t2=(*a=C_CLOSURE_TYPE|3,a[1]=(C_word)f_959,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],tmp=(C_word)a,a+=4,tmp); -/* r7lib.scm:142: writer */ -t3=((C_word*)t0)[4];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)t0)[5]; -av2[3]=((C_word*)t0)[2]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* k957 in k954 */ -static void C_ccall f_959(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -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_959,c,av);} -t2=C_slot(((C_word*)t0)[2],C_fix(2)); -/* r7lib.scm:48: g91 */ -t3=C_slot(t2,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[3]; -av2[2]=((C_word*)t0)[2]; -av2[3]=C_make_character(35); -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* k963 */ -static void C_ccall f_965(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(8,c,3)))){ -C_save_and_reclaim((void *)f_965,c,av);} -a=C_alloc(8); -t2=(*a=C_CLOSURE_TYPE|7,a[1]=(C_word)f_968,a[2]=((C_word*)t0)[2],a[3]=((C_word*)t0)[3],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); -/* r7lib.scm:146: writer */ -t3=((C_word*)t0)[8];{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t3; -av2[1]=t2; -av2[2]=((C_word*)((C_word*)t0)[9])[1]; -av2[3]=((C_word*)t0)[7]; -((C_proc)C_fast_retrieve_proc(t3))(4,av2);}} - -/* k966 in k963 */ -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 t3; -C_word t4; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(7,c,3)))){ -C_save_and_reclaim((void *)f_968,c,av);} -a=C_alloc(7); -t2=(*a=C_CLOSURE_TYPE|6,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]=((C_word*)t0)[6],tmp=(C_word)a,a+=7,tmp); -t3=C_slot(((C_word*)t0)[7],C_fix(2)); -/* r7lib.scm:48: g91 */ -t4=C_slot(t3,C_fix(2));{ -C_word *av2; -if(c >= 4) { - av2=av; -} else { - av2=C_alloc(4); -} -av2[0]=t4; -av2[1]=t2; -av2[2]=((C_word*)t0)[7]; -av2[3]=C_make_character(61); -((C_proc)C_fast_retrieve_proc(t4))(4,av2);}} - -/* k969 in k966 in k963 */ -static void C_ccall f_971(C_word c,C_word *av){ -C_word tmp; -C_word t0=av[0]; -C_word t1=av[1]; -C_word t2; -C_word t3; -C_word *a; -if(C_unlikely(!C_demand(C_calculate_demand(0,c,2)))){ -C_save_and_reclaim((void *)f_971,c,av);} -t2=( -/* r7lib.scm:148: assign-label! */ - f_779(((C_word*)((C_word*)t0)[2])[1],((C_word*)t0)[3]) -); -/* r7lib.scm:149: write-interesting/shared */ -t3=((C_word*)((C_word*)t0)[4])[1];{ -C_word *av2; -if(c >= 3) { - av2=av; -} else { - av2=C_alloc(3); -} -av2[0]=t3; -av2[1]=((C_word*)t0)[5]; -av2[2]=((C_word*)t0)[6]; -((C_proc)C_fast_retrieve_proc(t3))(3,av2);}} - -/* scheme.write#display in k511 */ -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 *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_982,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=*((C_word*)lf[9]+1); -/* r7lib.scm:154: write-with-shared-structure */ -f_775(t1,*((C_word*)lf[10]+1),t2,C_SCHEME_TRUE,*((C_word*)lf[9]+1));} -else{ -/* r7lib.scm:154: write-with-shared-structure */ -f_775(t1,*((C_word*)lf[10]+1),t2,C_SCHEME_TRUE,C_get_rest_arg(c,3,av,3,t0));}} - -/* scheme.write#write in k511 */ -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; -C_word t4; -C_word *a; -if(c<3) C_bad_min_argc_2(c,3,t0); -if(C_unlikely(!C_demand(C_calculate_demand(0,c,5)))){ -C_save_and_reclaim((void *)f_997,c,av);} -if(C_truep(C_rest_nullp(c,3))){ -t3=*((C_word*)lf[9]+1); -/* r7lib.scm:161: write-with-shared-structure */ -f_775(t1,*((C_word*)lf[12]+1),t2,C_SCHEME_TRUE,*((C_word*)lf[9]+1));} -else{ -/* r7lib.scm:161: write-with-shared-structure */ -f_775(t1,*((C_word*)lf[12]+1),t2,C_SCHEME_TRUE,C_get_rest_arg(c,3,av,3,t0));}} - -/* toplevel */ -static int toplevel_initialized=0; - -void C_ccall C_r7lib_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 *a; -if(toplevel_initialized) {C_kontinue(t1,C_SCHEME_UNDEFINED);} -else C_toplevel_entry(C_text("r7lib")); -C_check_nursery_minimum(C_calculate_demand(19,c,2)); -if(C_unlikely(!C_demand(C_calculate_demand(19,c,2)))){ -C_save_and_reclaim((void*)C_r7lib_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(19); -C_initialize_lf(lf,36); -lf[0]=C_h_intern(&lf[0],5, C_text("r7lib")); -lf[1]=C_h_intern(&lf[1],13, C_text("scheme.write#")); -lf[5]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\004\040\056\040\000")); -lf[6]=C_decode_literal(C_heaptop,C_text("\376\002\000\000\003\043\050\000")); -lf[7]=C_h_intern(&lf[7],5, C_text("foldl")); -lf[8]=C_h_intern(&lf[8],20, C_text("scheme.write#display")); -lf[9]=C_h_intern(&lf[9],21, C_text("##sys#standard-output")); -lf[10]=C_h_intern(&lf[10],14, C_text("scheme#display")); -lf[11]=C_h_intern(&lf[11],18, C_text("scheme.write#write")); -lf[12]=C_h_intern(&lf[12],12, C_text("scheme#write")); -lf[13]=C_h_intern(&lf[13],25, C_text("scheme.write#write-shared")); -lf[14]=C_h_intern(&lf[14],12, C_text("scheme.time#")); -lf[15]=C_h_intern(&lf[15],26, C_text("scheme.time#current-second")); -lf[16]=C_decode_literal(C_heaptop,C_text("\376\12535.0\000")); -lf[17]=C_h_intern(&lf[17],28, C_text("chicken.time#current-seconds")); -lf[18]=C_h_intern(&lf[18],25, C_text("scheme.time#current-jiffy")); -lf[19]=C_h_intern(&lf[19],30, C_text("scheme.time#jiffies-per-second")); -lf[20]=C_h_intern(&lf[20],12, C_text("scheme.file#")); -lf[21]=C_h_intern(&lf[21],34, C_text("scheme.file#open-binary-input-file")); -lf[22]=C_h_intern(&lf[22],6, C_text("binary")); -lf[23]=C_h_intern(&lf[23],22, C_text("scheme#open-input-file")); -lf[24]=C_h_intern_kw(&lf[24],6, C_text("binary")); -lf[25]=C_h_intern(&lf[25],35, C_text("scheme.file#open-binary-output-file")); -lf[26]=C_h_intern(&lf[26],23, C_text("scheme#open-output-file")); -lf[27]=C_h_intern(&lf[27],24, C_text("scheme.file#file-exists?")); -lf[28]=C_h_intern(&lf[28],25, C_text("chicken.file#file-exists?")); -lf[29]=C_h_intern(&lf[29],23, C_text("scheme.process-context#")); -lf[30]=C_h_intern(&lf[30],35, C_text("scheme.process-context#command-line")); -lf[31]=C_h_intern(&lf[31],46, C_text("chicken.process-context#command-line-arguments")); -lf[32]=C_h_intern(&lf[32],36, C_text("chicken.process-context#program-name")); -lf[33]=C_h_intern(&lf[33],27, C_text("scheme.process-context#exit")); -lf[34]=C_h_intern(&lf[34],17, C_text("chicken.base#exit")); -lf[35]=C_h_intern(&lf[35],19, C_text("##sys#dynamic-winds")); -C_register_lf2(lf,36,create_ptable());{} -t2=C_a_i_provide(&a,1,lf[0]); -t3=C_a_i_provide(&a,1,lf[1]); -t4=(*a=C_CLOSURE_TYPE|2,a[1]=(C_word)f_513,a[2]=t1,tmp=(C_word)a,a+=3,tmp);{ -C_word *av2=av; -av2[0]=C_SCHEME_UNDEFINED; -av2[1]=t4; -C_library_toplevel(2,av2);}} - -#ifdef C_ENABLE_PTABLES -static C_PTABLE_ENTRY ptable[58] = { -{C_text("f_1012:r7lib_2escm"),(void*)f_1012}, -{C_text("f_1027:r7lib_2escm"),(void*)f_1027}, -{C_text("f_1035:r7lib_2escm"),(void*)f_1035}, -{C_text("f_1037:r7lib_2escm"),(void*)f_1037}, -{C_text("f_1040:r7lib_2escm"),(void*)f_1040}, -{C_text("f_1044:r7lib_2escm"),(void*)f_1044}, -{C_text("f_1046:r7lib_2escm"),(void*)f_1046}, -{C_text("f_1050:r7lib_2escm"),(void*)f_1050}, -{C_text("f_1055:r7lib_2escm"),(void*)f_1055}, -{C_text("f_1059:r7lib_2escm"),(void*)f_1059}, -{C_text("f_1064:r7lib_2escm"),(void*)f_1064}, -{C_text("f_1071:r7lib_2escm"),(void*)f_1071}, -{C_text("f_1073:r7lib_2escm"),(void*)f_1073}, -{C_text("f_1081:r7lib_2escm"),(void*)f_1081}, -{C_text("f_1085:r7lib_2escm"),(void*)f_1085}, -{C_text("f_1100:r7lib_2escm"),(void*)f_1100}, -{C_text("f_1107:r7lib_2escm"),(void*)f_1107}, -{C_text("f_1116:r7lib_2escm"),(void*)f_1116}, -{C_text("f_1133:r7lib_2escm"),(void*)f_1133}, -{C_text("f_513:r7lib_2escm"),(void*)f_513}, -{C_text("f_515:r7lib_2escm"),(void*)f_515}, -{C_text("f_560:r7lib_2escm"),(void*)f_560}, -{C_text("f_588:r7lib_2escm"),(void*)f_588}, -{C_text("f_594:r7lib_2escm"),(void*)f_594}, -{C_text("f_606:r7lib_2escm"),(void*)f_606}, -{C_text("f_644:r7lib_2escm"),(void*)f_644}, -{C_text("f_668:r7lib_2escm"),(void*)f_668}, -{C_text("f_681:r7lib_2escm"),(void*)f_681}, -{C_text("f_728:r7lib_2escm"),(void*)f_728}, -{C_text("f_752:r7lib_2escm"),(void*)f_752}, -{C_text("f_762:r7lib_2escm"),(void*)f_762}, -{C_text("f_775:r7lib_2escm"),(void*)f_775}, -{C_text("f_779:r7lib_2escm"),(void*)f_779}, -{C_text("f_791:r7lib_2escm"),(void*)f_791}, -{C_text("f_793:r7lib_2escm"),(void*)f_793}, -{C_text("f_803:r7lib_2escm"),(void*)f_803}, -{C_text("f_806:r7lib_2escm"),(void*)f_806}, -{C_text("f_813:r7lib_2escm"),(void*)f_813}, -{C_text("f_829:r7lib_2escm"),(void*)f_829}, -{C_text("f_832:r7lib_2escm"),(void*)f_832}, -{C_text("f_835:r7lib_2escm"),(void*)f_835}, -{C_text("f_847:r7lib_2escm"),(void*)f_847}, -{C_text("f_850:r7lib_2escm"),(void*)f_850}, -{C_text("f_878:r7lib_2escm"),(void*)f_878}, -{C_text("f_881:r7lib_2escm"),(void*)f_881}, -{C_text("f_889:r7lib_2escm"),(void*)f_889}, -{C_text("f_902:r7lib_2escm"),(void*)f_902}, -{C_text("f_905:r7lib_2escm"),(void*)f_905}, -{C_text("f_922:r7lib_2escm"),(void*)f_922}, -{C_text("f_956:r7lib_2escm"),(void*)f_956}, -{C_text("f_959:r7lib_2escm"),(void*)f_959}, -{C_text("f_965:r7lib_2escm"),(void*)f_965}, -{C_text("f_968:r7lib_2escm"),(void*)f_968}, -{C_text("f_971:r7lib_2escm"),(void*)f_971}, -{C_text("f_982:r7lib_2escm"),(void*)f_982}, -{C_text("f_997:r7lib_2escm"),(void*)f_997}, -{C_text("toplevel:r7lib_2escm"),(void*)C_r7lib_toplevel}, -{NULL,NULL}}; -#endif - -static C_PTABLE_ENTRY *create_ptable(void){ -#ifdef C_ENABLE_PTABLES -return ptable; -#else -return NULL; -#endif -} - -/* -o|hiding unexported module binding: scheme.write#interesting? -o|hiding unexported module binding: scheme.write#uninteresting? -o|hiding unexported module binding: scheme.write#display-char -o|hiding unexported module binding: scheme.write#display-string -o|hiding unexported module binding: scheme.write#find-shared -o|hiding unexported module binding: scheme.write#write-with-shared-structure -o|hiding unexported module binding: scheme.process-context#->exit-status -S|applied compiler syntax: -S| chicken.base#foldl 1 -o|eliminated procedure checks: 15 -o|specializations: -o| 1 (scheme#integer? *) -o| 3 (scheme#cdr pair) -o| 4 (scheme#car pair) -(o e)|safe calls: 101 -(o e)|assignments to immediate values: 3 -o|safe globals: (scheme.process-context#exit scheme.process-context#->exit-status scheme.process-context#command-line scheme.file#file-exists? scheme.file#open-binary-output-file scheme.file#open-binary-input-file scheme.time#jiffies-per-second scheme.time#current-jiffy scheme.time#current-second scheme.write#write-shared scheme.write#write scheme.write#display scheme.write#write-with-shared-structure scheme.write#find-shared scheme.write#display-string scheme.write#display-char scheme.write#uninteresting? scheme.write#interesting?) -o|inlining procedure: k520 -o|inlining procedure: k520 -o|inlining procedure: k795 -o|inlining procedure: k815 -o|inlining procedure: k815 -o|inlining procedure: k795 -o|inlining procedure: k891 -o|inlining procedure: k891 -o|inlining procedure: k924 -o|inlining procedure: k924 -o|inlining procedure: k948 -o|inlining procedure: k948 -o|contracted procedure: "(r7lib.scm:134) scheme.write#uninteresting?" -o|contracted procedure: "(r7lib.scm:105) scheme.write#find-shared" -o|inlining procedure: k646 -o|contracted procedure: "(r7lib.scm:90) g109139" -o|inlining procedure: k609 -o|inlining procedure: k609 -o|inlining procedure: k646 -o|substituted constant variable: g110138 -o|inlining procedure: k670 -o|inlining procedure: k688 -o|inlining procedure: k688 -o|contracted procedure: "(r7lib.scm:68) g123124" -o|inlining procedure: k717 -o|inlining procedure: k717 -o|inlining procedure: k754 -o|inlining procedure: k754 -o|inlining procedure: k670 -o|inlining procedure: k1066 -o|inlining procedure: k1066 -o|contracted procedure: "(r7lib.scm:248) scheme.process-context#->exit-status" -o|inlining procedure: k1089 -o|inlining procedure: k1089 -o|inlining procedure: k1118 -o|inlining procedure: k1118 -o|replaced variables: 127 -o|removed binding forms: 74 -o|substituted constant variable: r10671167 -o|substituted constant variable: r10671168 -o|replaced variables: 24 -o|removed binding forms: 122 -o|inlining procedure: k984 -o|propagated global variable: r9851205 ##sys#standard-output -o|inlining procedure: k999 -o|propagated global variable: r10001206 ##sys#standard-output -o|inlining procedure: k1014 -o|propagated global variable: r10151207 ##sys#standard-output -o|inlining procedure: k1112 -o|inlining procedure: k1112 -o|inlining procedure: k1112 -o|removed binding forms: 17 -o|substituted constant variable: r11131209 -o|substituted constant variable: r11131210 -o|replaced variables: 1 -o|removed binding forms: 1 -o|removed binding forms: 3 -o|simplifications: ((if . 2) (let . 4) (##core#call . 74)) -o| call simplifications: -o| scheme#cdar -o| scheme#eq? -o| scheme#apply 2 -o| scheme#+ -o| ##sys#check-list -o| scheme#cons 7 -o| scheme#number? -o| chicken.fixnum#fx= 2 -o| scheme#null? 6 -o| scheme#assq 3 -o| scheme#cdr 6 -o| scheme#not 3 -o| scheme#car 5 -o| ##sys#setslot 5 -o| chicken.fixnum#fx+ 4 -o| chicken.fixnum#fx- -o| ##sys#slot 10 -o| scheme#pair? 5 -o| scheme#vector? 3 -o| ##sys#size 4 -o| chicken.fixnum#fx<= 3 -o|contracted procedure: k517 -o|contracted procedure: k526 -o|contracted procedure: k533 -o|contracted procedure: k556 -o|contracted procedure: k549 -o|contracted procedure: k562 -o|contracted procedure: k580 -o|contracted procedure: k565 -o|contracted procedure: k576 -o|contracted procedure: k572 -o|contracted procedure: k781 -o|contracted procedure: k785 -o|contracted procedure: k798 -o|contracted procedure: k818 -o|contracted procedure: k842 -o|contracted procedure: k854 -o|contracted procedure: k865 -o|contracted procedure: k861 -o|contracted procedure: k873 -o|contracted procedure: k882 -o|contracted procedure: k894 -o|contracted procedure: k910 -o|contracted procedure: k914 -o|contracted procedure: k918 -o|contracted procedure: k927 -o|contracted procedure: k933 -o|contracted procedure: k936 -o|contracted procedure: k942 -o|contracted procedure: k951 -o|contracted procedure: k601 -o|contracted procedure: k597 -o|contracted procedure: k637 -o|contracted procedure: k649 -o|contracted procedure: k656 -o|contracted procedure: k664 -o|contracted procedure: k634 -o|contracted procedure: k612 -o|contracted procedure: k619 -o|inlining procedure: k660 -o|contracted procedure: k628 -o|inlining procedure: k660 -o|contracted procedure: k698 -o|contracted procedure: k691 -o|contracted procedure: k711 -o|contracted procedure: k707 -o|contracted procedure: k720 -o|contracted procedure: k739 -o|contracted procedure: k745 -o|contracted procedure: k757 -o|contracted procedure: k767 -o|contracted procedure: k771 -o|contracted procedure: k990 -o|contracted procedure: k984 -o|contracted procedure: k1005 -o|contracted procedure: k999 -o|contracted procedure: k1020 -o|contracted procedure: k1014 -o|contracted procedure: k1051 -o|contracted procedure: k1060 -o|contracted procedure: k1137 -o|contracted procedure: k1102 -o|contracted procedure: k1096 -o|contracted procedure: k1121 -o|contracted procedure: k1124 -o|contracted procedure: k1128 -o|simplifications: ((if . 1) (let . 30)) -o|removed binding forms: 63 -o|inlining procedure: "(r7lib.scm:113) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:116) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:122) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:109) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:129) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:130) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:143) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:141) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:147) scheme.write#display-char" -o|inlining procedure: "(r7lib.scm:145) scheme.write#display-char" -(o x)|known list op on rest arg sublist: ##core#rest-null? rest214216 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest214216 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest226228 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest226228 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest238240 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest238240 0 -(o x)|known list op on rest arg sublist: ##core#rest-null? rest348349 0 -(o x)|known list op on rest arg sublist: ##core#rest-car rest348349 0 -o|removed binding forms: 1 -o|removed side-effect free assignment to unused variable: scheme.write#display-char -o|substituted constant variable: c891276 -o|substituted constant variable: c891280 -o|substituted constant variable: c891284 -o|substituted constant variable: c891290 -o|substituted constant variable: c891294 -o|substituted constant variable: c891298 -o|substituted constant variable: c891304 -o|substituted constant variable: c891308 -o|substituted constant variable: c891312 -o|substituted constant variable: c891316 -o|replaced variables: 30 -o|removed binding forms: 31 -o|direct leaf routine/allocation: scheme.write#interesting? 0 -o|direct leaf routine/allocation: assign-label!158 0 -o|direct leaf routine/allocation: seen?103 0 -o|direct leaf routine/allocation: seen!104 6 -o|contracted procedure: "(r7lib.scm:46) k543" -o|contracted procedure: "(r7lib.scm:148) k972" -o|contracted procedure: "(r7lib.scm:67) k673" -o|contracted procedure: "(r7lib.scm:68) k676" -o|contracted procedure: "(r7lib.scm:85) k685" -o|contracted procedure: "(r7lib.scm:72) k723" -o|contracted procedure: "(r7lib.scm:76) k742" -o|removed binding forms: 7 -o|customizable procedures: (unwind355 scheme.write#write-with-shared-structure doloop129130 walk!115 foldl111143 doloop184185 k827 scheme.write#display-string loop169) -o|calls to known targets: 27 -o|identified direct recursive calls: f_644 2 -o|identified direct recursive calls: f_668 1 -o|unused rest argument: rest214216 f_982 -o|unused rest argument: rest226228 f_997 -o|unused rest argument: rest238240 f_1012 -o|unused rest argument: rest348349 f_1100 -o|fast box initializations: 9 -o|fast global references: 10 -o|fast global assignments: 3 -o|dropping unused closure argument: f_515 -o|dropping unused closure argument: f_560 -o|dropping unused closure argument: f_775 -*/ -/* end of file */ diff --git a/chicken/src/runtime.c b/chicken/src/runtime.c deleted file mode 100644 index ec40f21..0000000 --- a/chicken/src/runtime.c +++ /dev/null @@ -1,13690 +0,0 @@ -/* runtime.c - Runtime code for compiler generated executables -; -; Copyright (c) 2008-2022, 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 -#include -#include -#include -#include - -#ifdef HAVE_SYSEXITS_H -# include -#endif - -#ifdef __ANDROID__ -# include -#endif - -#if !defined(PIC) -# define NO_DLOAD2 -#endif - -#ifndef NO_DLOAD2 -# ifdef HAVE_DLFCN_H -# include -# endif - -# ifdef HAVE_DL_H -# include -# 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 -#endif - -#if !defined(C_NONUNIX) - -# include -# include -# include -# include - -/* 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 -static 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 -# include -/* Needed for ERROR_OPERATION_ABORTED */ -# include -#endif - -/* For image_info retrieval */ -#if defined(__HAIKU__) -# include -#endif - -/* For _NSGetExecutablePath */ -#if defined(C_MACOSX) -# include -#endif - -/* Parameters: */ - -#define RELAX_MULTIVAL_CHECK - -#ifdef C_SIXTY_FOUR -# define DEFAULT_STACK_SIZE (1024 * 1024) -# define DEFAULT_MAXIMAL_HEAP_SIZE 0x7ffffffffffffff0 -#else -# define DEFAULT_STACK_SIZE (256 * 1024) -# define DEFAULT_MAXIMAL_HEAP_SIZE 0x7ffffff0 -#endif - -#define DEFAULT_SYMBOL_TABLE_SIZE 2999 -#define DEFAULT_KEYWORD_TABLE_SIZE 499 -#define DEFAULT_HEAP_SIZE DEFAULT_STACK_SIZE -#define MINIMAL_HEAP_SIZE DEFAULT_STACK_SIZE -#define DEFAULT_SCRATCH_SPACE_SIZE 256 -#define DEFAULT_HEAP_GROWTH 200 -#define DEFAULT_HEAP_SHRINKAGE 50 -#define DEFAULT_HEAP_SHRINKAGE_USED 25 -#define DEFAULT_HEAP_MIN_FREE (4 * 1024 * 1024) -#define HEAP_SHRINK_COUNTS 10 -#define DEFAULT_FORWARDING_TABLE_SIZE 32 -#define DEFAULT_COLLECTIBLES_SIZE 1024 -#define DEFAULT_TRACE_BUFFER_SIZE 16 -#define MIN_TRACE_BUFFER_SIZE 3 - -#define MAX_HASH_PREFIX 64 - -#define DEFAULT_TEMPORARY_STACK_SIZE 256 -#define STRING_BUFFER_SIZE 4096 -#define DEFAULT_MUTATION_STACK_SIZE 1024 -#define PROFILE_TABLE_SIZE 1024 - -#define MAX_PENDING_INTERRUPTS 100 - -#ifdef C_DOUBLE_IS_32_BITS -# define FLONUM_PRINT_PRECISION 7 -#else -# define FLONUM_PRINT_PRECISION 15 -#endif - -#define WORDS_PER_FLONUM C_SIZEOF_FLONUM -#define INITIAL_TIMER_INTERRUPT_PERIOD 10000 -#define HDUMP_TABLE_SIZE 1001 - -/* only for relevant for Windows: */ - -#define MAXIMAL_NUMBER_OF_COMMAND_LINE_ARGUMENTS 256 - - -/* Constants: */ - -#ifdef C_SIXTY_FOUR -# ifdef C_LLP -# define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffffffffffeLL) -# define UWORD_FORMAT_STRING "0x%016llx" -# define UWORD_COUNT_FORMAT_STRING "%llu" -# else -# define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffffffffffeL) -# define UWORD_FORMAT_STRING "0x%016lx" -# define UWORD_COUNT_FORMAT_STRING "%lu" -# endif -#else -# define ALIGNMENT_HOLE_MARKER ((C_word)0xfffffffe) -# define UWORD_FORMAT_STRING "0x%08x" -# define UWORD_COUNT_FORMAT_STRING "%u" -#endif - -#ifdef C_LLP -# define LONG_FORMAT_STRING "%lld" -#else -# define LONG_FORMAT_STRING "%ld" -#endif - -#define GC_MINOR 0 -#define GC_MAJOR 1 -#define GC_REALLOC 2 - - -/* Macros: */ - -#define nmax(x, y) ((x) > (y) ? (x) : (y)) -#define nmin(x, y) ((x) < (y) ? (x) : (y)) -#define percentage(n, p) ((C_long)(((double)(n) * (double)p) / 100)) - -#define clear_buffer_object(buf, obj) C_migrate_buffer_object(NULL, (C_word *)(buf), C_buf_end(buf), (obj)) -#define move_buffer_object(ptr, buf, obj) C_migrate_buffer_object(ptr, (C_word *)(buf), C_buf_end(buf), (obj)) - -/* The bignum digit representation is fullword- little endian, so on - * LE machines the halfdigits are numbered in the same order. On BE - * machines, we must swap the odd and even positions. - */ -#ifdef C_BIG_ENDIAN -#define C_uhword_ref(x, p) ((C_uhword *)(x))[(p)^1] -#else -#define C_uhword_ref(x, p) ((C_uhword *)(x))[(p)] -#endif -#define C_uhword_set(x, p, d) (C_uhword_ref(x,p) = (d)) - -#define free_tmp_bignum(b) C_free((void *)(b)) - -/* Forwarding pointers abuse the fact that objects must be - * word-aligned, so we can just drop the lowest bit. - */ -#define is_fptr(x) (((x) & C_GC_FORWARDING_BIT) != 0) -#define ptr_to_fptr(x) (((C_uword)(x) >> 1) | C_GC_FORWARDING_BIT) -#define fptr_to_ptr(x) ((C_uword)(x) << 1) - -#define C_check_real(x, w, v) if(((x) & C_FIXNUM_BIT) != 0) v = C_unfix(x); \ - else if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) \ - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, w, x); \ - else v = C_flonum_magnitude(x); - - -#define C_pte(name) pt[ i ].id = #name; pt[ i++ ].ptr = (void *)name; - -#ifndef SIGBUS -# define SIGBUS 0 -#endif - -#define C_thread_id(x) C_block_item((x), 14) - - -/* Type definitions: */ - -typedef C_regparm C_word (*integer_plusmin_op) (C_word **ptr, C_word n, C_word x, C_word y); - -typedef struct lf_list_struct -{ - C_word *lf; - int count; - struct lf_list_struct *next, *prev; - C_PTABLE_ENTRY *ptable; - void *module_handle; - char *module_name; -} LF_LIST; - -typedef struct finalizer_node_struct -{ - struct finalizer_node_struct - *next, - *previous; - C_word - item, - finalizer; -} FINALIZER_NODE; - -typedef struct trace_info_struct -{ - /* Either raw_location is set to a C string or NULL */ - C_char *raw_location; - /* cooked_location is C_SCHEME_FALSE or a Scheme string (when raw_location is NULL) */ - C_word cooked_location, 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_word - *C_temporary_stack, - *C_temporary_stack_bottom, - *C_temporary_stack_limit, - *C_stack_limit, /* "Soft" limit, may be reset to force GC */ - *C_stack_hard_limit, /* Actual stack limit */ - *C_scratchspace_start, - *C_scratchspace_top, - *C_scratchspace_limit, - C_scratch_usage; -C_long - C_timer_interrupt_counter, - C_initial_timer_interrupt_period; -C_byte - *C_fromspace_top, - *C_fromspace_limit; -#ifdef HAVE_SIGSETJMP -sigjmp_buf C_restart; -#else -jmp_buf C_restart; -#endif -void *C_restart_trampoline; -C_word C_restart_c; -int C_entry_point_status; -int (*C_gc_mutation_hook)(C_word *slot, C_word val); -void (*C_gc_trace_hook)(C_word *var, int mode); -void (*C_panic_hook)(C_char *msg) = NULL; -void (*C_pre_gc_hook)(int mode) = NULL; -void (*C_post_gc_hook)(int mode, C_long ms) = NULL; -C_word (*C_debugger_hook)(C_DEBUG_INFO *cell, C_word c, C_word *av, C_char *cloc) = NULL; - -int - C_gui_mode = 0, - C_abort_on_thread_exceptions, - C_interrupts_enabled, - C_disable_overflow_check, - C_heap_size_is_fixed, - C_trace_buffer_size = DEFAULT_TRACE_BUFFER_SIZE, - C_max_pending_finalizers = C_DEFAULT_MAX_PENDING_FINALIZERS, - C_debugging = 0, - C_main_argc; -C_uword - C_heap_growth = DEFAULT_HEAP_GROWTH, - C_heap_shrinkage = DEFAULT_HEAP_SHRINKAGE, - C_heap_shrinkage_used = DEFAULT_HEAP_SHRINKAGE_USED, - C_heap_half_min_free = DEFAULT_HEAP_MIN_FREE, - C_maximal_heap_size = DEFAULT_MAXIMAL_HEAP_SIZE, - heap_shrink_counter = 0; -time_t - C_startup_time_sec, - C_startup_time_msec, - profile_frequency = 10000; -char - **C_main_argv, -#ifdef SEARCH_EXE_PATH - *C_main_exe = NULL, -#endif - *C_dlerror; - -static TRACE_INFO - *trace_buffer, - *trace_buffer_limit, - *trace_buffer_top; - -static C_byte - *heapspace1, - *heapspace2, - *fromspace_start, - *tospace_start, - *tospace_top, - *tospace_limit, - *new_tospace_start, - *new_tospace_top, - *new_tospace_limit; -static C_uword - heapspace1_size, - heapspace2_size, - heap_size, - scratchspace_size, - temporary_stack_size, - fixed_temporary_stack_size = 0, - maximum_heap_usage; -static C_char - buffer[ STRING_BUFFER_SIZE ], - *private_repository = NULL, - *current_module_name, - *save_string; -static C_SYMBOL_TABLE - *symbol_table, - *symbol_table_list, - *keyword_table; -static C_word - **collectibles, - **collectibles_top, - **collectibles_limit, - **mutation_stack_bottom, - **mutation_stack_limit, - **mutation_stack_top, - *stack_bottom, - weak_pair_chain, - locative_chain, - error_location, - interrupt_hook_symbol, - current_thread_symbol, - error_hook_symbol, - pending_finalizers_symbol, - callback_continuation_stack_symbol, - core_provided_symbol, - s8vector_symbol, - u16vector_symbol, - s16vector_symbol, - u32vector_symbol, - s32vector_symbol, - u64vector_symbol, - s64vector_symbol, - f32vector_symbol, - f64vector_symbol, - *forwarding_table; -static int - trace_buffer_full, - forwarding_table_size, - return_to_host, - page_size, - show_trace, - fake_tty_flag, - debug_mode, - dump_heap_on_exit, - gc_bell, - gc_report_flag = 0, - gc_mode, - gc_count_1, - gc_count_1_total, - gc_count_2, - stack_size_changed, - dlopen_flags, - heap_size_changed, - random_state_initialized = 0, - chicken_is_running, - chicken_ran_once, - pass_serious_signals = 1, - callback_continuation_level; -static volatile int - serious_signal_occurred = 0, - profiling = 0; -static unsigned int - mutation_count, - tracked_mutation_count, - stack_check_demand, - stack_size; -static int chicken_is_initialized; -#ifdef HAVE_SIGSETJMP -static sigjmp_buf gc_restart; -#else -static jmp_buf gc_restart; -#endif -static double - timer_start_ms, - gc_ms, - timer_accumulated_gc_ms, - interrupt_time, - last_interrupt_latency; -static LF_LIST *lf_list; -static int signal_mapping_table[ NSIG ]; -static int - live_finalizer_count, - allocated_finalizer_count, - pending_finalizer_count, - callback_returned_flag; -static C_GC_ROOT *gc_root_list = NULL; -static FINALIZER_NODE - *finalizer_list, - *finalizer_free_list, - **pending_finalizer_indices; -static void *current_module_handle; -static int flonum_print_precision = FLONUM_PRINT_PRECISION; -static HDUMP_BUCKET **hdump_table; -static PROFILE_BUCKET - *next_profile_bucket = NULL, - **profile_table = NULL; -static int - pending_interrupts[ MAX_PENDING_INTERRUPTS ], - pending_interrupts_count, - handling_interrupts; -static C_uword random_state[ C_RANDOM_STATE_SIZE / sizeof(C_uword) ]; -static int random_state_index = 0; - - -/* Prototypes: */ - -static void parse_argv(C_char *cmds); -static void initialize_symbol_table(void); -static void global_signal_handler(int signum); -static C_word arg_val(C_char *arg); -static void barf(int code, char *loc, ...) C_noret; -static void try_extended_number(char *ext_proc_name, C_word c, C_word k, ...) C_noret; -static void panic(C_char *msg) C_noret; -static void usual_panic(C_char *msg) C_noret; -static void horror(C_char *msg) C_noret; -static void really_mark(C_word *x, C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) 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_in_new_heapp(C_word x); -static C_regparm C_word bignum_times_bignum_unsigned(C_word **ptr, C_word x, C_word y, C_word negp); -static C_regparm C_word bignum_extract_digits(C_word **ptr, C_word n, C_word x, C_word start, C_word end); - -static C_regparm C_word bignum_times_bignum_karatsuba(C_word **ptr, C_word x, C_word y, C_word negp); -static C_word bignum_plus_unsigned(C_word **ptr, C_word x, C_word y, C_word negp); -static C_word rat_plusmin_integer(C_word **ptr, C_word rat, C_word i, integer_plusmin_op plusmin_op); -static C_word integer_minus_rat(C_word **ptr, C_word i, C_word rat); -static C_word rat_plusmin_rat(C_word **ptr, C_word x, C_word y, integer_plusmin_op plusmin_op); -static C_word rat_times_integer(C_word **ptr, C_word x, C_word y); -static C_word rat_times_rat(C_word **ptr, C_word x, C_word y); -static C_word cplx_times(C_word **ptr, C_word rx, C_word ix, C_word ry, C_word iy); -static C_word bignum_minus_unsigned(C_word **ptr, C_word x, C_word y); -static C_regparm void integer_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); -static C_regparm C_word bignum_remainder_unsigned_halfdigit(C_word x, C_word y); -static C_regparm void bignum_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); -static C_regparm C_word bignum_divide_burnikel_ziegler(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); -static C_regparm void burnikel_ziegler_3n_div_2n(C_word **ptr, C_word a12, C_word a3, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r); -static C_regparm void burnikel_ziegler_2n_div_1n(C_word **ptr, C_word a, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r); -static C_word rat_cmp(C_word x, C_word y); -static void fabs_frexp_to_digits(C_uword exp, double sign, C_uword *start, C_uword *scan); -static C_word int_flo_cmp(C_word intnum, C_word flonum); -static C_word flo_int_cmp(C_word flonum, C_word intnum); -static C_word rat_flo_cmp(C_word ratnum, C_word flonum); -static C_word flo_rat_cmp(C_word flonum, C_word ratnum); -static C_word basic_cmp(C_word x, C_word y, char *loc, int eqp); -static int bignum_cmp_unsigned(C_word x, C_word y); -static C_word hash_string(int len, C_char *str, C_word m, C_word r) C_regparm; -static C_word lookup(C_word key, int len, C_char *str, C_SYMBOL_TABLE *stable) C_regparm; -static C_word lookup_bucket(C_word sym, C_SYMBOL_TABLE *stable) C_regparm; -static double compute_symbol_table_load(double *avg_bucket_len, int *total); -static double decode_flonum_literal(C_char *str) C_regparm; -static C_regparm C_word str_to_bignum(C_word bignum, char *str, char *str_end, int radix); -static void mark_nested_objects(C_byte *heap_scan_top, C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) C_regparm; -static void mark_live_objects(C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) C_regparm; -static void mark_live_heap_only_objects(C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) C_regparm; -static C_word intern0(C_char *name) C_regparm; -static void update_weak_pairs(int mode, C_byte *undead_start, C_byte *undead_end) C_regparm; -static void update_locatives(int mode, C_byte *undead_start, C_byte *undead_end) 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(allocate_bytevector_2) C_noret; -static C_cpsproc(generic_trampoline) C_noret; -static void handle_interrupt(void *trampoline) C_noret; -static C_cpsproc(callback_return_continuation) C_noret; -static C_cpsproc(termination_continuation) C_noret; -static C_cpsproc(become_2) C_noret; -static C_cpsproc(copy_closure_2) C_noret; -static C_cpsproc(dump_heap_state_2) C_noret; -static C_cpsproc(sigsegv_trampoline) C_noret; -static C_cpsproc(sigill_trampoline) C_noret; -static C_cpsproc(sigfpe_trampoline) C_noret; -static C_cpsproc(sigbus_trampoline) C_noret; -static C_cpsproc(bignum_to_str_2) C_noret; - -static C_word allocate_tmp_bignum(C_word size, C_word negp, C_word initp); -static C_word allocate_scratch_bignum(C_word **ptr, C_word size, C_word negp, C_word initp); -static void bignum_digits_destructive_negate(C_word bignum); -static C_uword bignum_digits_destructive_scale_up_with_carry(C_uword *start, C_uword *end, C_uword factor, C_uword carry); -static C_uword bignum_digits_destructive_scale_down(C_uword *start, C_uword *end, C_uword denominator); -static C_uword bignum_digits_destructive_shift_right(C_uword *start, C_uword *end, int shift_right, int negp); -static C_uword bignum_digits_destructive_shift_left(C_uword *start, C_uword *end, int shift_left); -static C_regparm void bignum_digits_multiply(C_word x, C_word y, C_word result); -static void bignum_divide_unsigned(C_word **ptr, C_word num, C_word denom, C_word *q, C_word q_negp, C_word *r, C_word r_negp); -static C_regparm void bignum_destructive_divide_unsigned_small(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r); -static C_regparm void bignum_destructive_divide_full(C_word numerator, C_word denominator, C_word quotient, C_word remainder, C_word return_remainder); -static C_regparm void bignum_destructive_divide_normalized(C_word big_u, C_word big_v, C_word big_q); - -static C_PTABLE_ENTRY *create_initial_ptable(); - -#if !defined(NO_DLOAD2) && (defined(HAVE_DLFCN_H) || defined(HAVE_DL_H) || (defined(HAVE_LOADLIBRARY) && defined(HAVE_GETPROCADDRESS))) -static void C_ccall dload_2(C_word, C_word *) C_noret; -#endif - -static void -C_dbg(C_char *prefix, C_char *fstr, ...) -{ - va_list va; - - va_start(va, fstr); -#ifdef __ANDROID__ - __android_log_vprint(ANDROID_LOG_DEBUG, prefix, fstr, va); -#else - C_fflush(C_stdout); - C_fprintf(C_stderr, "[%s] ", prefix); - C_vfprintf(C_stderr, fstr, va); - C_fflush(C_stderr); -#endif - va_end(va); -} - -/* Startup code: */ - -int CHICKEN_main(int argc, char *argv[], void *toplevel) -{ - C_word h, s, n; - - if(C_gui_mode) { -#ifdef _WIN32 - parse_argv(GetCommandLine()); - argc = C_main_argc; - argv = C_main_argv; -#else - /* ??? */ -#endif - } - - pass_serious_signals = 0; - CHICKEN_parse_command_line(argc, argv, &h, &s, &n); - - if(!CHICKEN_initialize(h, s, n, toplevel)) - panic(C_text("cannot initialize - out of memory")); - - CHICKEN_run(NULL); - return 0; -} - - -/* Custom argv parser for Windoze: */ - -void parse_argv(C_char *cmds) -{ - C_char *ptr = cmds, - *bptr0, *bptr, *aptr; - int n = 0; - - C_main_argv = (C_char **)malloc(MAXIMAL_NUMBER_OF_COMMAND_LINE_ARGUMENTS * sizeof(C_char *)); - - if(C_main_argv == NULL) - panic(C_text("cannot allocate argument-list buffer")); - - C_main_argc = 0; - - for(;;) { - while(C_utf_isspace((int)(*ptr))) ++ptr; - - if(*ptr == '\0') break; - - for(bptr0 = bptr = buffer; !C_utf_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; - } -} - -/* simple linear congruential PRNG, to avoid OpenBSD warnings. - https://stackoverflow.com/questions/26237419/faster-than-rand -*/ - -static int g_seed; - -void C_fast_srand(int seed) { g_seed = seed; } - -/* Output value in range [0, 32767] */ -int C_fast_rand(void) -{ - g_seed = (214013*g_seed+2531011); - return (g_seed>>16)&0x7FFF; -} - - -/* 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? */ -#if defined(__MINGW32__) -# if defined(__MINGW64_VERSION_MAJOR) - ULONGLONG tick_count = GetTickCount64(); -# else - /* mingw doesn't yet have GetTickCount64 support */ - ULONGLONG tick_count = GetTickCount(); -# endif - C_startup_time_sec = tick_count / 1000; - C_startup_time_msec = tick_count % 1000; - /* Make sure _tzname, _timezone, and _daylight are set */ - _tzset(); -#else - struct timeval tv; - C_gettimeofday(&tv, NULL); - C_startup_time_sec = tv.tv_sec; - C_startup_time_msec = tv.tv_usec / 1000; - /* Make sure tzname, timezone, and daylight are set */ - tzset(); -#endif - - if(chicken_is_initialized) return 1; - else chicken_is_initialized = 1; - -#if defined(__ANDROID__) && defined(DEBUGBUILD) - debug_mode = 2; -#endif - - if(debug_mode) - C_dbg(C_text("debug"), C_text("application startup...\n")); - - C_panic_hook = usual_panic; - symbol_table_list = NULL; - - symbol_table = C_new_symbol_table(".", symbols ? symbols : DEFAULT_SYMBOL_TABLE_SIZE); - - if(symbol_table == NULL) - return 0; - - keyword_table = C_new_symbol_table("kw", symbols ? symbols / 4 : DEFAULT_KEYWORD_TABLE_SIZE); - - if(keyword_table == NULL) - return 0; - - page_size = 0; - stack_size = stack ? stack : DEFAULT_STACK_SIZE; - C_set_or_change_heap_size(heap ? heap : DEFAULT_HEAP_SIZE, 0); - - /* Allocate temporary stack: */ - temporary_stack_size = fixed_temporary_stack_size ? fixed_temporary_stack_size : DEFAULT_TEMPORARY_STACK_SIZE; - if((C_temporary_stack_limit = (C_word *)C_malloc(temporary_stack_size * sizeof(C_word))) == NULL) - return 0; - - C_temporary_stack_bottom = C_temporary_stack_limit + temporary_stack_size; - C_temporary_stack = C_temporary_stack_bottom; - - /* Allocate mutation stack: */ - mutation_stack_bottom = (C_word **)C_malloc(DEFAULT_MUTATION_STACK_SIZE * sizeof(C_word *)); - - if(mutation_stack_bottom == NULL) return 0; - - mutation_stack_top = mutation_stack_bottom; - mutation_stack_limit = mutation_stack_bottom + DEFAULT_MUTATION_STACK_SIZE; - C_gc_mutation_hook = NULL; - C_gc_trace_hook = NULL; - - /* Initialize finalizer lists: */ - finalizer_list = NULL; - finalizer_free_list = NULL; - pending_finalizer_indices = - (FINALIZER_NODE **)C_malloc(C_max_pending_finalizers * sizeof(FINALIZER_NODE *)); - - if(pending_finalizer_indices == NULL) return 0; - - /* Initialize forwarding table: */ - forwarding_table = - (C_word *)C_malloc((DEFAULT_FORWARDING_TABLE_SIZE + 1) * 2 * sizeof(C_word)); - - if(forwarding_table == NULL) return 0; - - *forwarding_table = 0; - forwarding_table_size = DEFAULT_FORWARDING_TABLE_SIZE; - - /* 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; - -#if !defined(NO_DLOAD2) && defined(HAVE_DLFCN_H) - dlopen_flags = RTLD_LAZY | RTLD_GLOBAL; -#else - dlopen_flags = 0; -#endif - -#ifdef HAVE_SIGACTION - sa.sa_flags = 0; - sigfillset(&sa.sa_mask); /* See note in C_establish_signal_handler() */ - sa.sa_handler = global_signal_handler; -#endif - - /* setup signal handlers */ - if(!pass_serious_signals) { -#ifdef HAVE_SIGACTION - C_sigaction(SIGBUS, &sa, NULL); - C_sigaction(SIGFPE, &sa, NULL); - C_sigaction(SIGILL, &sa, NULL); - C_sigaction(SIGSEGV, &sa, NULL); -#else - C_signal(SIGBUS, global_signal_handler); - C_signal(SIGILL, global_signal_handler); - C_signal(SIGFPE, global_signal_handler); - C_signal(SIGSEGV, global_signal_handler); -#endif - } - - tracked_mutation_count = mutation_count = gc_count_1 = gc_count_1_total = gc_count_2 = maximum_heap_usage = 0; - lf_list = NULL; - C_register_lf2(NULL, 0, create_initial_ptable()); - C_restart_trampoline = (void *)toplevel; - trace_buffer = NULL; - C_clear_trace_buffer(); - chicken_is_running = chicken_ran_once = 0; - pending_interrupts_count = 0; - handling_interrupts = 0; - last_interrupt_latency = 0; - C_interrupts_enabled = 1; - C_initial_timer_interrupt_period = INITIAL_TIMER_INTERRUPT_PERIOD; - C_timer_interrupt_counter = INITIAL_TIMER_INTERRUPT_PERIOD; - memset(signal_mapping_table, 0, sizeof(int) * NSIG); - C_dlerror = "cannot load compiled code dynamically - this is a statically linked executable"; - error_location = C_SCHEME_FALSE; - C_pre_gc_hook = NULL; - C_post_gc_hook = NULL; - C_scratchspace_start = NULL; - C_scratchspace_top = NULL; - C_scratchspace_limit = NULL; - C_scratch_usage = 0; - scratchspace_size = 0; - live_finalizer_count = 0; - allocated_finalizer_count = 0; - current_module_name = NULL; - current_module_handle = NULL; - callback_continuation_level = 0; - weak_pair_chain = (C_word)NULL; - locative_chain = (C_word)NULL; - gc_ms = 0; - if (!random_state_initialized) { - C_fast_srand(time(NULL)); - random_state_initialized = 1; - } - - for(i = 0; i < C_RANDOM_STATE_SIZE / sizeof(C_uword); ++i) - random_state[ i ] = C_fast_rand(); - - initialize_symbol_table(); - - if (profiling) { -#ifndef C_NONUNIX -# ifdef HAVE_SIGACTION - C_sigaction(C_PROFILE_SIGNAL, &sa, NULL); -# else - C_signal(C_PROFILE_SIGNAL, global_signal_handler); -# endif -#endif - - profile_table = (PROFILE_BUCKET **)C_malloc(PROFILE_TABLE_SIZE * sizeof(PROFILE_BUCKET *)); - - if(profile_table == NULL) - panic(C_text("out of memory - can not allocate profile table")); - - C_memset(profile_table, 0, sizeof(PROFILE_BUCKET *) * PROFILE_TABLE_SIZE); - } - - /* create k to invoke code for system-startup: */ - k0 = (C_SCHEME_BLOCK *)C_align((C_word)C_fromspace_top); - C_fromspace_top += C_align(2 * sizeof(C_word)); - k0->header = C_CLOSURE_TYPE | 1; - C_set_block_item(k0, 0, (C_word)termination_continuation); - C_save(k0); - C_save(C_SCHEME_UNDEFINED); - C_restart_c = 2; - return 1; -} - - -void *C_get_statistics(void) { - static void *stats[ 8 ]; - - stats[ 0 ] = fromspace_start; - stats[ 1 ] = C_fromspace_limit; - stats[ 2 ] = C_scratchspace_start; - stats[ 3 ] = C_scratchspace_limit; - stats[ 4 ] = C_stack_limit; - stats[ 5 ] = stack_bottom; - stats[ 6 ] = C_fromspace_top; - stats[ 7 ] = C_scratchspace_top; - return stats; -} - - -static C_PTABLE_ENTRY *create_initial_ptable() -{ - /* IMPORTANT: hardcoded table size - - this must match the number of C_pte calls + 1 (NULL terminator)! */ - C_PTABLE_ENTRY *pt = (C_PTABLE_ENTRY *)C_malloc(sizeof(C_PTABLE_ENTRY) * 64); - 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_allocate_bytevector); - C_pte(C_make_structure); - C_pte(C_ensure_heap_reserve); - C_pte(C_return_to_host); - C_pte(C_get_symbol_table_info); - C_pte(C_get_memory_info); - C_pte(C_decode_seconds); - C_pte(C_stop_timer); - C_pte(C_dload); - C_pte(C_set_dlopen_flags); - C_pte(C_become); - C_pte(C_apply_values); - C_pte(C_times); - C_pte(C_minus); - C_pte(C_plus); - C_pte(C_nequalp); - C_pte(C_greaterp); - /* IMPORTANT: have you read the comments at the start and the end of this function? */ - C_pte(C_lessp); - C_pte(C_greater_or_equal_p); - C_pte(C_less_or_equal_p); - C_pte(C_number_to_string); - C_pte(C_make_symbol); - C_pte(C_string_to_symbol); - C_pte(C_string_to_keyword); - C_pte(C_apply); - C_pte(C_call_cc); - C_pte(C_values); - C_pte(C_call_with_values); - C_pte(C_continuation_graft); - C_pte(C_open_file_port); - C_pte(C_software_type); - C_pte(C_machine_type); - C_pte(C_machine_byte_order); - C_pte(C_software_version); - C_pte(C_build_platform); - C_pte(C_make_pointer); - /* IMPORTANT: have you read the comments at the start and the end of this function? */ - C_pte(C_make_tagged_pointer); - C_pte(C_peek_signed_integer); - C_pte(C_peek_unsigned_integer); - C_pte(C_peek_int64); - C_pte(C_peek_uint64); - C_pte(C_context_switch); - C_pte(C_register_finalizer); - C_pte(C_copy_closure); - C_pte(C_dump_heap_state); - C_pte(C_filter_heap_objects); - C_pte(C_fixnum_to_string); - C_pte(C_integer_to_string); - C_pte(C_flonum_to_string); - C_pte(C_signum); - C_pte(C_quotient_and_remainder); - C_pte(C_u_integer_quotient_and_remainder); - C_pte(C_bitwise_and); - C_pte(C_bitwise_ior); - C_pte(C_bitwise_xor); - - /* IMPORTANT: did you remember the hardcoded pte table size? */ - pt[ i ].id = NULL; - return pt; -} - - -void *CHICKEN_new_gc_root_2(int finalizable) -{ - C_GC_ROOT *r = (C_GC_ROOT *)C_malloc(sizeof(C_GC_ROOT)); - - if(r == NULL) - panic(C_text("out of memory - cannot allocate GC root")); - - r->value = C_SCHEME_UNDEFINED; - r->next = gc_root_list; - r->prev = NULL; - r->finalizable = finalizable; - - if(gc_root_list != NULL) gc_root_list->prev = r; - - gc_root_list = r; - return (void *)r; -} - - -void *CHICKEN_new_gc_root() -{ - return CHICKEN_new_gc_root_2(0); -} - - -void *CHICKEN_new_finalizable_gc_root() -{ - return CHICKEN_new_gc_root_2(1); -} - - -void CHICKEN_delete_gc_root(void *root) -{ - C_GC_ROOT *r = (C_GC_ROOT *)root; - - if(r->prev == NULL) gc_root_list = r->next; - else r->prev->next = r->next; - - if(r->next != NULL) r->next->prev = r->prev; - - C_free(root); -} - - -void *CHICKEN_global_lookup(char *name) -{ - int - len = C_strlen(name), - key = hash_string(len, name, symbol_table->size, symbol_table->rand); - 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 = C_fast_rand(); - - if((stp->table = (C_word *)C_malloc(size * sizeof(C_word))) == NULL) - return NULL; - - for(i = 0; i < stp->size; stp->table[ i++ ] = C_SCHEME_END_OF_LIST); - - symbol_table_list = stp; - return stp; -} - - -C_regparm C_SYMBOL_TABLE *C_find_symbol_table(char *name) -{ - C_SYMBOL_TABLE *stp; - - for(stp = symbol_table_list; stp != NULL; stp = stp->next) - if(!C_strcmp(name, stp->name)) return stp; - - return NULL; -} - - -C_regparm C_word C_find_symbol(C_word bv, C_SYMBOL_TABLE *stable) -{ - C_char *sptr = C_c_string(bv); - int len = C_header_size(bv) - 1; - int key; - C_word s; - - if(stable == NULL) stable = symbol_table; - - key = hash_string(len, sptr, stable->size, stable->rand); - - if(C_truep(s = lookup(key, len, sptr, stable))) return s; - else return C_SCHEME_FALSE; -} - - -/* Setup symbol-table with internally used symbols; */ - -void initialize_symbol_table(void) -{ - int i; - - for(i = 0; i < symbol_table->size; symbol_table->table[ i++ ] = C_SCHEME_END_OF_LIST); - - /* Obtain reference to hooks for later: */ - core_provided_symbol = C_intern2(C_heaptop, C_text("##core#provided")); - interrupt_hook_symbol = C_intern2(C_heaptop, C_text("##sys#interrupt-hook")); - error_hook_symbol = C_intern2(C_heaptop, C_text("##sys#error-hook")); - callback_continuation_stack_symbol = C_intern3(C_heaptop, C_text("##sys#callback-continuation-stack"), C_SCHEME_END_OF_LIST); - pending_finalizers_symbol = C_intern2(C_heaptop, C_text("##sys#pending-finalizers")); - current_thread_symbol = C_intern3(C_heaptop, C_text("##sys#current-thread"), C_SCHEME_FALSE); - - /* SRFI-4 tags */ - s8vector_symbol = C_intern2(C_heaptop, C_text("s8vector")); - u16vector_symbol = C_intern2(C_heaptop, C_text("u16vector")); - s16vector_symbol = C_intern2(C_heaptop, C_text("s16vector")); - u32vector_symbol = C_intern2(C_heaptop, C_text("u32vector")); - s32vector_symbol = C_intern2(C_heaptop, C_text("s32vector")); - u64vector_symbol = C_intern2(C_heaptop, C_text("u64vector")); - s64vector_symbol = C_intern2(C_heaptop, C_text("s64vector")); - f32vector_symbol = C_intern2(C_heaptop, C_text("f32vector")); - f64vector_symbol = C_intern2(C_heaptop, C_text("f64vector")); -} - - -C_regparm C_word C_find_keyword(C_word str, C_SYMBOL_TABLE *kwtable) -{ - C_char *sptr = C_c_string(str); - int len = C_header_size(str) - 1; - int key; - C_word s; - - if(kwtable == NULL) kwtable = keyword_table; - - key = hash_string(len, sptr, kwtable->size, kwtable->rand); - - if(C_truep(s = lookup(key, len, sptr, kwtable))) return s; - else return C_SCHEME_FALSE; -} - - -void C_ccall sigsegv_trampoline(C_word c, C_word *av) -{ - barf(C_MEMORY_VIOLATION_ERROR, NULL); -} - - -void C_ccall sigbus_trampoline(C_word c, C_word *av) -{ - barf(C_BUS_ERROR, NULL); -} - - -void C_ccall sigfpe_trampoline(C_word c, C_word *av) -{ - barf(C_FLOATING_POINT_EXCEPTION_ERROR, NULL); -} - - -void C_ccall sigill_trampoline(C_word c, C_word *av) -{ - barf(C_ILLEGAL_INSTRUCTION_ERROR, NULL); -} - - -/* This is called from POSIX signals: */ - -void global_signal_handler(int signum) -{ -#if defined(HAVE_SIGPROCMASK) - if(signum == SIGSEGV || signum == SIGFPE || signum == SIGILL || signum == SIGBUS) { - sigset_t sset; - - if(serious_signal_occurred || !chicken_is_running) { - switch(signum) { - case SIGSEGV: panic(C_text("unrecoverable segmentation violation")); - case SIGFPE: panic(C_text("unrecoverable floating-point exception")); - case SIGILL: panic(C_text("unrecoverable illegal instruction error")); - case SIGBUS: panic(C_text("unrecoverable bus error")); - default: panic(C_text("unrecoverable serious condition")); - } - } - else serious_signal_occurred = 1; - - /* unblock signal to avoid nested invocation of the handler */ - sigemptyset(&sset); - sigaddset(&sset, signum); - C_sigprocmask(SIG_UNBLOCK, &sset, NULL); - - switch(signum) { - case SIGSEGV: C_reclaim(sigsegv_trampoline, 0); - case SIGFPE: C_reclaim(sigfpe_trampoline, 0); - case SIGILL: C_reclaim(sigill_trampoline, 0); - case SIGBUS: C_reclaim(sigbus_trampoline, 0); - default: panic(C_text("invalid serious signal")); - } - } -#endif - - /* TODO: Make full use of sigaction: check that /our/ timer expired */ - if (signum == C_PROFILE_SIGNAL && profiling) take_profile_sample(); - else C_raise_interrupt(signal_mapping_table[ signum ]); - -#ifndef HAVE_SIGACTION - /* not necessarily needed, but older UNIXen may not leave the handler installed: */ - C_signal(signum, global_signal_handler); -#endif -} - - -/* Align memory to page boundary */ - -static void *align_to_page(void *mem) -{ - return (void *)C_align((C_uword)mem); -} - - -static C_byte * -heap_alloc (size_t size, C_byte **page_aligned) -{ - C_byte *p; - p = (C_byte *)C_malloc (size + page_size); - - if (p != NULL && page_aligned) *page_aligned = align_to_page (p); - - return p; -} - - -static void -heap_free (C_byte *ptr, size_t size) -{ - C_free (ptr); -} - - -static C_byte * -heap_realloc (C_byte *ptr, size_t old_size, - size_t new_size, C_byte **page_aligned) -{ - C_byte *p; - p = (C_byte *)C_realloc (ptr, new_size + page_size); - - if (p != NULL && page_aligned) *page_aligned = align_to_page (p); - - return p; -} - - -/* Modify heap size at runtime: */ - -void C_set_or_change_heap_size(C_word heap, int reintern) -{ - C_byte *ptr1, *ptr2, *ptr1a, *ptr2a; - C_word size = heap / 2; - - if(heap_size_changed && fromspace_start) return; - - if(fromspace_start && heap_size >= heap) return; - - if(debug_mode) - C_dbg(C_text("debug"), C_text("heap resized to " UWORD_COUNT_FORMAT_STRING " bytes\n"), 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 " UWORD_COUNT_FORMAT_STRING " bytes\n"), 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)) - break; /* Stop parsing on first non-runtime option */ - - ptr = &C_main_argv[ i ][ 2 ]; - if (*ptr == '\0') - break; /* Also stop parsing on first "empty" option (i.e. "-:") */ - - do { - 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" - " -:hfSIZE set minimum unused heap size\n" - " -:hgPERCENTAGE set heap growth percentage\n" - " -:hsPERCENTAGE set heap shrink percentage\n" - " -:huPERCENTAGE set percentage of memory used at which heap will be shrunk\n" - " -:hSIZE set fixed heap size\n" - " -:r write trace output to stderr\n" - " -:RSEED initialize rand() seed with SEED (helpful for benchmark stability)\n" - " -:p collect statistical profile and write to file at exit\n" - " -:PFREQUENCY like -:p, specifying sampling frequency in us (default: 10000)\n" - " -:sSIZE set nursery (stack) size\n" - " -:tSIZE set symbol-table size\n" - " -:fSIZE set maximal number of pending finalizers\n" - " -:x deliver uncaught exceptions of other threads to primordial one\n" - " -:B 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 'f': - C_heap_half_min_free = arg_val(ptr + 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; - case 'u': - C_heap_shrinkage_used = arg_val(ptr + 1); - goto next; - default: - *heap = arg_val(ptr); - heap_size_changed = 1; - C_heap_size_is_fixed = 1; - goto next; - } - - case 'o': - C_disable_overflow_check = 1; - break; - - case 'B': - gc_bell = 1; - break; - - case 'G': - C_gui_mode = 1; - break; - - case 'H': - dump_heap_on_exit = 1; - break; - - case 'S': - pass_serious_signals = 1; - break; - - case 's': - *stack = arg_val(ptr); - stack_size_changed = 1; - goto next; - - case 'f': - C_max_pending_finalizers = arg_val(ptr); - goto next; - - case 'a': - C_trace_buffer_size = arg_val(ptr); - goto next; - - case 'A': - fixed_temporary_stack_size = arg_val(ptr); - goto next; - - case 't': - *symbols = arg_val(ptr); - goto next; - - case 'c': - fake_tty_flag = 1; - break; - - case 'd': - debug_mode = 1; - break; - - case 'D': - debug_mode = 2; - break; - - case 'g': - gc_report_flag = 2; - break; - - case 'P': - profiling = 1; - profile_frequency = arg_val(ptr); - goto next; - - case 'p': - profiling = 1; - break; - - case 'r': - show_trace = 1; - break; - - case 'R': - C_fast_srand((unsigned int)arg_val(ptr)); - random_state_initialized = 1; - goto next; - - case 'x': - C_abort_on_thread_exceptions = 1; - break; - - default: panic(C_text("illegal runtime option")); - } - } while(*ptr != '\0'); - - next:; - } -} - - -C_word arg_val(C_char *arg) -{ - int len; - C_char *end; - C_long val, mul = 1; - - if (arg == NULL) panic(C_text("illegal runtime-option argument")); - - len = C_strlen(arg); - - if(len < 1) panic(C_text("illegal runtime-option argument")); - - switch(arg[ len - 1 ]) { - case 'k': - case 'K': mul = 1024; break; - - case 'm': - case 'M': mul = 1024 * 1024; break; - - case 'g': - case 'G': mul = 1024 * 1024 * 1024; break; - - default: mul = 1; - } - - val = C_strtow(arg, &end, 10); - - if((mul != 1 ? end[ 1 ] != '\0' : end[ 0 ] != '\0')) - panic(C_text("invalid runtime-option argument suffix")); - - return val * mul; -} - - -/* Run embedded code with arguments: */ - -C_word CHICKEN_run(void *toplevel) -{ - if(!chicken_is_initialized && !CHICKEN_initialize(0, 0, 0, toplevel)) - panic(C_text("could not initialize")); - - if(chicken_is_running) - panic(C_text("re-invocation of Scheme world while process is already running")); - - chicken_is_running = chicken_ran_once = 1; - return_to_host = 0; - - if(profiling) set_profile_timer(profile_frequency); - -#if C_STACK_GROWS_DOWNWARD - C_stack_hard_limit = (C_word *)((C_byte *)C_stack_pointer - stack_size); -#else - C_stack_hard_limit = (C_word *)((C_byte *)C_stack_pointer + stack_size); -#endif - C_stack_limit = C_stack_hard_limit; - - stack_bottom = C_stack_pointer; - - if(debug_mode) - C_dbg(C_text("debug"), C_text("stack bottom is 0x%lx\n"), (C_word)stack_bottom); - - /* The point of (usually) no return... */ -#ifdef HAVE_SIGSETJMP - C_sigsetjmp(C_restart, 0); -#else - C_setjmp(C_restart); -#endif - - serious_signal_occurred = 0; - - if(!return_to_host) { - /* We must copy the argvector onto the stack, because - * any subsequent save() will otherwise clobber it. - */ - C_word *p = C_alloc(C_restart_c); - assert(C_restart_c == (C_temporary_stack_bottom - C_temporary_stack)); - C_memcpy(p, C_temporary_stack, C_restart_c * sizeof(C_word)); - C_temporary_stack = C_temporary_stack_bottom; - ((C_proc)C_restart_trampoline)(C_restart_c, p); - } - - if(profiling) set_profile_timer(0); - - chicken_is_running = 0; - return C_restore; -} - - -C_word CHICKEN_continue(C_word k) -{ - if(C_temporary_stack_bottom != C_temporary_stack) - panic(C_text("invalid temporary stack level")); - - if(!chicken_is_initialized) - panic(C_text("runtime system has not been initialized - `CHICKEN_run' has probably not been called")); - - C_save(k); - return CHICKEN_run(NULL); -} - - -/* The final continuation: */ - -void C_ccall termination_continuation(C_word c, C_word *av) -{ - if(debug_mode) { - C_dbg(C_text("debug"), C_text("application terminated normally\n")); - } - - C_exit_runtime(C_fix(0)); -} - - -/* Signal unrecoverable runtime error: */ - -void panic(C_char *msg) -{ - if(C_panic_hook != NULL) C_panic_hook(msg); - - usual_panic(msg); -} - - -void usual_panic(C_char *msg) -{ - C_char *dmp = C_dump_trace(0); - - C_dbg_hook(C_SCHEME_UNDEFINED); - - if(C_gui_mode) { - C_snprintf(buffer, sizeof(buffer), C_text("%s\n\n%s"), msg, dmp); -#if defined(_WIN32) && !defined(__CYGWIN__) - MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONERROR); - ExitProcess(1); -#endif - } /* fall through if not WIN32 GUI app */ - - C_dbg("panic", C_text("%s - execution terminated\n\n%s"), msg, dmp); - C_exit_runtime(C_fix(1)); -} - - -void horror(C_char *msg) -{ - C_dbg_hook(C_SCHEME_UNDEFINED); - - if(C_gui_mode) { - C_snprintf(buffer, sizeof(buffer), C_text("%s"), msg); -#if defined(_WIN32) && !defined(__CYGWIN__) - MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONERROR); - ExitProcess(1); -#endif - } /* fall through */ - - C_dbg("horror", C_text("\n%s - execution terminated"), msg); - C_exit_runtime(C_fix(1)); -} - - -/* Error-hook, called from C-level runtime routines: */ - -void barf(int code, char *loc, ...) -{ - C_char *msg; - C_word err = error_hook_symbol; - int c, i; - va_list v; - C_word *av; - - C_dbg_hook(C_SCHEME_UNDEFINED); - - C_temporary_stack = C_temporary_stack_bottom; - err = C_block_item(err, 0); - - switch(code) { - case C_BAD_ARGUMENT_COUNT_ERROR: - msg = C_text("bad argument count"); - c = 3; - break; - - case C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR: - msg = C_text("too few arguments"); - c = 3; - break; - - case C_BAD_ARGUMENT_TYPE_ERROR: - msg = C_text("bad argument type"); - c = 1; - break; - - case C_UNBOUND_VARIABLE_ERROR: - msg = C_text("unbound variable"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_KEYWORD_ERROR: - msg = C_text("bad argument type - not a keyword"); - c = 1; - break; - - case C_OUT_OF_MEMORY_ERROR: - msg = C_text("not enough memory"); - c = 0; - break; - - case C_DIVISION_BY_ZERO_ERROR: - msg = C_text("division by zero"); - c = 0; - break; - - case C_OUT_OF_BOUNDS_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 bytevector"); - 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 object"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_NUMBER_VECTOR_ERROR: - msg = C_text("bad argument type - not a number vector"); - c = 2; - break; - - case C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR: - msg = C_text("bad argument type - not an integer"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR: - msg = C_text("bad argument type - not an unsigned integer"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR: - msg = C_text("bad argument type - not a pointer"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_TAGGED_POINTER_ERROR: - msg = C_text("bad argument type - not a tagged pointer"); - c = 2; - break; - - case C_BAD_ARGUMENT_TYPE_NO_FLONUM_ERROR: - msg = C_text("bad argument type - not a flonum"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_CLOSURE_ERROR: - msg = C_text("bad argument type - not a procedure"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR: - msg = C_text("bad argument type - invalid base"); - c = 1; - break; - - case C_CIRCULAR_DATA_ERROR: - msg = C_text("recursion too deep or circular data encountered"); - c = 0; - break; - - case C_BAD_ARGUMENT_TYPE_NO_PORT_ERROR: - msg = C_text("bad argument type - not a port"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_PORT_DIRECTION_ERROR: - msg = C_text("bad argument type - not a port of the correct type"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_PORT_NO_INPUT_ERROR: - msg = C_text("bad argument type - not an input-port"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_PORT_NO_OUTPUT_ERROR: - msg = C_text("bad argument type - not an output-port"); - c = 1; - break; - - case C_PORT_CLOSED_ERROR: - msg = C_text("port already closed"); - c = 1; - break; - - case C_ASCIIZ_REPRESENTATION_ERROR: - msg = C_text("cannot represent string with NUL bytes as C string"); - c = 1; - break; - - case C_MEMORY_VIOLATION_ERROR: - msg = C_text("segmentation violation"); - c = 0; - break; - - case C_FLOATING_POINT_EXCEPTION_ERROR: - msg = C_text("floating point exception"); - c = 0; - break; - - case C_ILLEGAL_INSTRUCTION_ERROR: - msg = C_text("illegal instruction"); - c = 0; - break; - - case C_BUS_ERROR: - msg = C_text("bus error"); - c = 0; - break; - - case C_BAD_ARGUMENT_TYPE_NO_EXACT_ERROR: - msg = C_text("bad argument type - not an exact number"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_INEXACT_ERROR: - msg = C_text("bad argument type - not an inexact number"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR: - msg = C_text("bad argument type - not an real"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR: - msg = C_text("bad argument type - complex number has no ordering"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR: - msg = C_text("bad argument type - not an exact integer"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION: - msg = C_text("number does not fit in foreign type"); - c = 1; - break; - - case C_BAD_ARGUMENT_TYPE_COMPLEX_ABS: - msg = C_text("cannot compute absolute value of complex number"); - c = 1; - break; - - case C_REST_ARG_OUT_OF_BOUNDS_ERROR: - msg = C_text("attempted rest argument access beyond end of list"); - c = 3; - break; - - case C_DECODING_ERROR: - msg = C_text("string contains invalid UTF-8 sequence"); - c = 2; - break; - - case C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR: - msg = C_text("bad argument type - value exceeds numeric range"); - c = 1; - break; - - default: panic(C_text("illegal internal error code")); - } - - if(C_immediatep(err)) { - C_dbg(C_text("error"), C_text("%s\n"), msg); - panic(C_text("`##sys#error-hook' is not defined - the `library' unit was probably not linked with this executable")); - } else { - av = C_alloc(c + 4); - va_start(v, loc); - av[ 0 ] = err; - /* No continuation is passed: '##sys#error-hook' may not return: */ - av[ 1 ] = C_SCHEME_UNDEFINED; - av[ 2 ] = C_fix(code); - - if(loc != NULL) - av[ 3 ] = intern0(loc); - else { - av[ 3 ] = error_location; - error_location = C_SCHEME_FALSE; - } - - for(i = 0; i < c; ++i) - av[ i + 4 ] = va_arg(v, C_word); - - va_end(v); - C_do_apply(c + 4, av); - } -} - - -/* Never use extended number hook procedure names longer than this! */ -/* Current longest name: ##sys#integer->string/recursive */ -#define MAX_EXTNUM_HOOK_NAME 32 - -/* This exists so that we don't have to create any extra closures */ -static void try_extended_number(char *ext_proc_name, C_word c, C_word k, ...) -{ - static C_word ab[C_SIZEOF_STRING(MAX_EXTNUM_HOOK_NAME)]; - int i; - va_list v; - C_word ext_proc_sym, ext_proc = C_SCHEME_FALSE, *a = ab; - - ext_proc_sym = C_lookup_symbol(C_intern2(&a, ext_proc_name)); - - if(!C_immediatep(ext_proc_sym)) - ext_proc = C_block_item(ext_proc_sym, 0); - - if (!C_immediatep(ext_proc) && C_closurep(ext_proc)) { - C_word *av = C_alloc(c + 1); - av[ 0 ] = ext_proc; - av[ 1 ] = k; - va_start(v, k); - - for(i = 0; i < c - 1; ++i) - av[ i + 2 ] = va_arg(v, C_word); - - va_end(v); - C_do_apply(c + 1, av); - } else { - barf(C_UNBOUND_VARIABLE_ERROR, NULL, ext_proc_sym); - } -} - - -/* Hook for setting breakpoints */ - -C_word C_dbg_hook(C_word dummy) -{ - return dummy; -} - - -/* Timing routines: */ - -/* DEPRECATED */ -C_regparm C_u64 C_milliseconds(void) -{ - return C_current_process_milliseconds(); -} - -C_regparm C_u64 C_current_process_milliseconds(void) -{ -#if defined(__MINGW32__) -# if defined(__MINGW64_VERSION_MAJOR) - ULONGLONG tick_count = GetTickCount64(); -# else - ULONGLONG tick_count = GetTickCount(); -# endif - return tick_count - (C_startup_time_sec * 1000) - C_startup_time_msec; -#else - struct timeval tv; - - if(C_gettimeofday(&tv, NULL) == -1) return 0; - else return (tv.tv_sec - C_startup_time_sec) * 1000 + tv.tv_usec / 1000 - C_startup_time_msec; -#endif -} - - -C_regparm time_t C_seconds(C_long *ms) -{ -#ifdef C_NONUNIX - if(ms != NULL) *ms = 0; - - return (time_t)(clock() / CLOCKS_PER_SEC); -#else - struct timeval tv; - - if(C_gettimeofday(&tv, NULL) == -1) { - if(ms != NULL) *ms = 0; - - return (time_t)0; - } - else { - if(ms != NULL) *ms = tv.tv_usec / 1000; - - return tv.tv_sec; - } -#endif -} - - -C_regparm C_u64 C_cpu_milliseconds(void) -{ -#if defined(C_NONUNIX) || defined(__CYGWIN__) - if(CLOCKS_PER_SEC == 1000) return clock(); - else return ((C_u64)clock() / CLOCKS_PER_SEC) * 1000; -#else - struct rusage ru; - - if(C_getrusage(RUSAGE_SELF, &ru) == -1) return 0; - else return (((C_u64)ru.ru_utime.tv_sec + ru.ru_stime.tv_sec) * 1000 - + ((C_u64)ru.ru_utime.tv_usec + ru.ru_stime.tv_usec) / 1000); -#endif -} - - -/* Support code for callbacks: */ - -int C_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_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_header_type(p) == C_PAIR_TYPE); - k = C_u_i_car(p); - - C_mutate(&C_block_item(callback_continuation_stack_symbol, 0), C_u_i_cdr(p)); - --callback_continuation_level; - return k; -} - - -C_word C_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_header_type(p) != C_PAIR_TYPE) - panic(C_text("unbalanced callback continuation stack")); - - k = C_u_i_car(p); - - C_mutate(&C_block_item(callback_continuation_stack_symbol, 0), C_u_i_cdr(p)); - --callback_continuation_level; - return k; -} - - -C_word C_callback(C_word closure, int argc) -{ -#ifdef HAVE_SIGSETJMP - sigjmp_buf prev; -#else - jmp_buf prev; -#endif - C_word - *a = C_alloc(C_SIZEOF_CLOSURE(2)), - k = C_closure(&a, 2, (C_word)callback_return_continuation, C_SCHEME_FALSE), - *av; - int old = chicken_is_running; - - if(old && C_block_item(callback_continuation_stack_symbol, 0) == C_SCHEME_END_OF_LIST) - panic(C_text("callback invoked in non-safe context")); - - C_memcpy(&prev, &C_restart, sizeof(C_restart)); - callback_returned_flag = 0; - chicken_is_running = 1; - av = C_alloc(argc + 2); - av[ 0 ] = closure; - av[ 1 ] = k; - /*XXX is the order of arguments an issue? */ - C_memcpy(av + 2, C_temporary_stack, argc * sizeof(C_word)); - C_temporary_stack = C_temporary_stack_bottom; - -#ifdef HAVE_SIGSETJMP - if(!C_sigsetjmp(C_restart, 0)) C_do_apply(argc + 2, av); -#else - if(!C_setjmp(C_restart)) C_do_apply(argc + 2, av); -#endif - - serious_signal_occurred = 0; - - if(!callback_returned_flag) { - /* We must copy the argvector onto the stack, because - * any subsequent save() will otherwise clobber it. - */ - C_word *p = C_alloc(C_restart_c); - assert(C_restart_c == (C_temporary_stack_bottom - C_temporary_stack)); - C_memcpy(p, C_temporary_stack, C_restart_c * sizeof(C_word)); - C_temporary_stack = C_temporary_stack_bottom; - ((C_proc)C_restart_trampoline)(C_restart_c, p); - } - else { - C_memcpy(&C_restart, &prev, sizeof(C_restart)); - callback_returned_flag = 0; - } - - chicken_is_running = old; - return C_restore; -} - - -void C_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_callback_wrapper(void *proc, int argc) -{ - C_word - *a = C_alloc(C_SIZEOF_CLOSURE(1)), - closure = C_closure(&a, 1, (C_word)proc), - result; - - result = C_callback(closure, argc); - assert(C_temporary_stack == C_temporary_stack_bottom); - return result; -} - - -void C_ccall callback_return_continuation(C_word c, C_word *av) -{ - C_word self = av[0]; - C_word r = av[1]; - - if(C_block_item(self, 1) == C_SCHEME_TRUE) - panic(C_text("callback returned twice")); - - assert(callback_returned_flag == 0); - callback_returned_flag = 1; - C_set_block_item(self, 1, C_SCHEME_TRUE); - C_save(r); - C_reclaim(NULL, 0); -} - - -/* Register/unregister literal frame: */ - -void C_initialize_lf(C_word *lf, int count) -{ - while(count-- > 0) - *(lf++) = C_SCHEME_UNBOUND; -} - - -void *C_register_lf(C_word *lf, int count) -{ - return C_register_lf2(lf, count, NULL); -} - - -void *C_register_lf2(C_word *lf, int count, C_PTABLE_ENTRY *ptable) -{ - LF_LIST *node = (LF_LIST *)C_malloc(sizeof(LF_LIST)); - LF_LIST *np; - int status = 0; - - node->lf = lf; - node->count = count; - node->ptable = ptable; - node->module_name = current_module_name; - node->module_handle = current_module_handle; - current_module_handle = NULL; - - if(lf_list) lf_list->prev = node; - - node->next = lf_list; - node->prev = NULL; - lf_list = node; - return (void *)node; -} - - -LF_LIST *find_module_handle(char *name) -{ - LF_LIST *np; - - for(np = lf_list; np != NULL; np = np->next) { - if(np->module_name != NULL && !C_strcmp(np->module_name, name)) - return np; - } - - return NULL; -} - - -void C_unregister_lf(void *handle) -{ - LF_LIST *node = (LF_LIST *) handle; - - if (node->next) node->next->prev = node->prev; - - if (node->prev) node->prev->next = node->next; - - if (lf_list == node) lf_list = node->next; - - C_free(node->module_name); - C_free(node); -} - - -/* Intern symbol into symbol-table: */ - -C_regparm C_word C_intern(C_word **ptr, int len, C_char *str) -{ - return C_intern_in(ptr, len, str, symbol_table); -} - - -C_regparm C_word 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_intern_kw(C_word **ptr, int len, C_char *str) -{ - C_word kw = C_intern_in(ptr, len, str, keyword_table); - C_set_block_item(kw, 0, kw); /* Keywords evaluate to themselves */ - C_set_block_item(kw, 2, C_SCHEME_FALSE); /* Keywords have no plists */ - return kw; -} - - -C_regparm C_word C_h_intern_kw(C_word *slot, int len, C_char *str) -{ - C_word kw = C_h_intern_in(slot, len, str, keyword_table); - C_set_block_item(kw, 0, kw); /* Keywords evaluate to themselves */ - C_set_block_item(kw, 2, C_SCHEME_FALSE); /* Keywords have no plists */ - return kw; -} - -C_regparm C_word C_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); - - if(C_truep(s = lookup(key, len, str, stable))) return s; - - s = C_bytevector(ptr, len + 1, str); - return add_symbol(ptr, key, s, stable); -} - - -C_regparm C_word C_h_intern_in(C_word *slot, int len, C_char *str, C_SYMBOL_TABLE *stable) -{ - /* Intern as usual, but remember slot, and allocate in static - * memory. If symbol already exists, replace its string by a fresh - * statically allocated string to ensure it never gets collected, as - * lf[] entries are not tracked by the GC. - */ - int key; - C_word s, bv; - - if(stable == NULL) stable = symbol_table; - - key = hash_string(len, str, stable->size, stable->rand); - - if(C_truep(s = lookup(key, len, str, stable))) { - if(C_in_stackp(s)) C_mutate_slot(slot, s); - - if(!C_truep(C_permanentp(C_symbol_name(s)))) { - /* Replace by statically allocated string, and persist it */ - bv = C_static_bytevector(C_heaptop, len + 1, str); - C_c_bytevector(bv)[ len ] = 0; - C_set_block_item(s, 1, bv); - C_i_persist_symbol(s); - } - return s; - } - - bv = C_static_bytevector(C_heaptop, len + 1, str); - C_c_bytevector(bv)[ len ] = 0; - return add_symbol(C_heaptop, key, bv, stable); -} - - -C_regparm C_word intern0(C_char *str) -{ - int len = C_strlen(str); - int key = hash_string(len, str, symbol_table->size, symbol_table->rand); - 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_lookup_symbol(C_word sym) -{ - int key; - C_word bv = C_block_item(sym, 1); - int len = C_header_size(bv) - 1; - - key = hash_string(len, C_c_string(bv), symbol_table->size, symbol_table->rand); - - return lookup(key, len, C_c_string(bv), symbol_table); -} - - -C_regparm C_word C_intern2(C_word **ptr, C_char *str) -{ - return C_intern_in(ptr, C_strlen(str), str, symbol_table); -} - - -C_regparm C_word C_intern3(C_word **ptr, C_char *str, C_word value) -{ - C_word s = C_intern_in(ptr, C_strlen(str), str, symbol_table); - - C_mutate(&C_block_item(s,0), value); - C_i_persist_symbol(s); /* Symbol has a value now; persist it */ - return s; -} - - -C_regparm C_word hash_string(int len, C_char *str, C_word m, C_word r) -{ - C_uword key = r; - - while(len--) - key ^= (key << 6) + (key >> 2) + *(str++); - - return (C_word)(key % (C_uword)m); -} - - -C_regparm C_word lookup(C_word key, int len, C_char *str, C_SYMBOL_TABLE *stable) -{ - C_word bucket, last = 0, 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); - - /* If the symbol is unreferenced, drop it: */ - if (sym == C_SCHEME_BROKEN_WEAK_PTR) { - if (last) C_set_block_item(last, 1, C_block_item(bucket, 1)); - else stable->table[ key ] = C_block_item(bucket,1); - } else { - last = bucket; - s = C_block_item(sym, 1); - - if(C_header_size(s) - 1 == (C_word)len - && !C_memcmp(str, (C_char *)C_data_pointer(s), len)) - return sym; - } - } - - return C_SCHEME_FALSE; -} - -/* Mark a symbol as "persistent", to prevent it from being GC'ed */ -C_regparm C_word C_i_persist_symbol(C_word sym) -{ - C_word bucket; - C_SYMBOL_TABLE *stp; - - /* Normally, this will get called with a symbol, but in - * C_h_intern_kw we may call it with keywords too. - */ - if(!C_truep(C_i_symbolp(sym)) && !C_truep(C_i_keywordp(sym))) { - error_location = C_SCHEME_FALSE; - barf(C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR, NULL, sym); - } - - for(stp = symbol_table_list; stp != NULL; stp = stp->next) { - bucket = lookup_bucket(sym, stp); - - if (C_truep(bucket)) { - /* Change weak to strong ref to ensure long-term survival */ - C_block_header(bucket) = C_block_header(bucket) & ~C_SPECIALBLOCK_BIT; - /* Ensure survival on next minor GC */ - if (C_in_stackp(sym)) C_mutate_slot(&C_block_item(bucket, 0), sym); - } - } - return C_SCHEME_UNDEFINED; -} - -/* Possibly remove "persistence" of symbol, to allowed it to be GC'ed. - * This is only done if the symbol is unbound, has an empty plist and - * is allocated in managed memory. - */ -C_regparm C_word C_i_unpersist_symbol(C_word sym) -{ - C_word bucket; - C_SYMBOL_TABLE *stp; - - C_i_check_symbol(sym); - - if (C_persistable_symbol(sym) || - C_truep(C_permanentp(C_symbol_name(sym)))) { - return C_SCHEME_FALSE; - } - - for(stp = symbol_table_list; stp != NULL; stp = stp->next) { - bucket = lookup_bucket(sym, NULL); - - if (C_truep(bucket)) { - /* Turn it into a weak ref */ - C_block_header(bucket) = C_block_header(bucket) | C_SPECIALBLOCK_BIT; - return C_SCHEME_TRUE; - } - } - return C_SCHEME_FALSE; -} - -C_regparm C_word lookup_bucket(C_word sym, C_SYMBOL_TABLE *stable) -{ - C_word bucket, str = C_block_item(sym, 1); - int key, len = C_header_size(str) - 1; - - if (stable == NULL) stable = symbol_table; - - key = hash_string(len, C_c_string(str), stable->size, stable->rand); - - for(bucket = stable->table[ key ]; bucket != C_SCHEME_END_OF_LIST; - bucket = C_block_item(bucket,1)) { - if (C_block_item(bucket,0) == sym) return bucket; - } - return C_SCHEME_FALSE; -} - - -double compute_symbol_table_load(double *avg_bucket_len, int *total_n) -{ - C_word bucket, last; - int i, j, alen = 0, bcount = 0, total = 0; - - for(i = 0; i < symbol_table->size; ++i) { - last = 0; - j = 0; - for(bucket = symbol_table->table[ i ]; bucket != C_SCHEME_END_OF_LIST; - bucket = C_block_item(bucket,1)) { - /* If the symbol is unreferenced, drop it: */ - if (C_block_item(bucket,0) == C_SCHEME_BROKEN_WEAK_PTR) { - if (last) C_set_block_item(last, 1, C_block_item(bucket, 1)); - else symbol_table->table[ i ] = C_block_item(bucket,1); - } else { - last = bucket; - ++j; - } - } - - 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 bv, C_SYMBOL_TABLE *stable) -{ - C_word bucket, sym, b2, *p; - - p = *ptr; - sym = (C_word)p; - p += C_SIZEOF_SYMBOL; - C_block_header_init(sym, C_SYMBOL_TAG); - C_set_block_item(sym, 0, C_SCHEME_UNBOUND); - C_set_block_item(sym, 1, bv); - C_set_block_item(sym, 2, C_SCHEME_END_OF_LIST); - *ptr = p; - b2 = stable->table[ key ]; /* previous bucket */ - - /* Create new weak or strong bucket depending on persistability */ - if (C_truep(C_permanentp(bv))) { - bucket = C_a_pair(ptr, sym, b2); - } else { - bucket = C_a_weak_pair(ptr, sym, b2); - } - - if(ptr != C_heaptop) C_mutate_slot(&stable->table[ key ], bucket); - else { - /* If a stack-allocated bucket was here, and we allocate from - heap-top (say, in a toplevel literal frame allocation) then we have - to inform the memory manager that a 2nd gen. block points to a - 1st gen. block, hence the mutation: */ - C_mutate(&C_block_item(bucket,1), b2); - stable->table[ key ] = bucket; - } - - return sym; -} - - -C_regparm int C_in_stackp(C_word x) -{ - C_word *ptr = (C_word *)(C_uword)x; - -#if C_STACK_GROWS_DOWNWARD - return ptr >= C_stack_pointer_test && ptr <= stack_bottom; -#else - return ptr < C_stack_pointer_test && ptr >= stack_bottom; -#endif -} - - -C_regparm int C_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_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_in_fromspacep(C_word x) -{ - C_byte *ptr = (C_byte *)(C_uword)x; - return (ptr >= fromspace_start && ptr < C_fromspace_limit); -} - -C_regparm int C_in_scratchspacep(C_word x) -{ - C_word *ptr = (C_word *)(C_uword)x; - return (ptr >= C_scratchspace_start && ptr < C_scratchspace_limit); -} - -/* Cons the rest-aguments together: */ - -C_regparm C_word C_build_rest(C_word **ptr, C_word c, C_word n, C_word *av) -{ - C_word - x = C_SCHEME_END_OF_LIST, - *p = *ptr; - C_SCHEME_BLOCK *node; - - av += c; - - while(--c >= n) { - node = (C_SCHEME_BLOCK *)p; - p += 3; - node->header = C_PAIR_TYPE | (C_SIZEOF_PAIR - 1); - node->data[ 0 ] = *(--av); - node->data[ 1 ] = x; - x = (C_word)node; - } - - *ptr = p; - return x; -} - - -/* Print error messages and exit: */ - -void C_bad_memory(void) -{ - panic(C_text("there is not enough stack-space to run this executable")); -} - - -void C_bad_memory_2(void) -{ - panic(C_text("there is not enough heap-space to run this executable - try using the '-:h...' option")); -} - - -/* The following two can be thrown out in the next release... */ - -void C_bad_argc(int c, int n) -{ - C_bad_argc_2(c, n, C_SCHEME_FALSE); -} - - -void C_bad_min_argc(int c, int n) -{ - C_bad_min_argc_2(c, n, C_SCHEME_FALSE); -} - - -void C_bad_argc_2(int c, int n, C_word closure) -{ - barf(C_BAD_ARGUMENT_COUNT_ERROR, NULL, C_fix(n - 2), C_fix(c - 2), closure); -} - - -void C_bad_min_argc_2(int c, int n, C_word closure) -{ - barf(C_BAD_MINIMUM_ARGUMENT_COUNT_ERROR, NULL, C_fix(n - 2), C_fix(c - 2), closure); -} - - -void C_stack_overflow(C_char *loc) -{ - barf(C_STACK_OVERFLOW_ERROR, loc); -} - - -void C_no_closure_error(C_word x) -{ - barf(C_NOT_A_CLOSURE_ERROR, NULL, x); -} - - -void C_div_by_zero_error(C_char *loc) -{ - barf(C_DIVISION_BY_ZERO_ERROR, loc); -} - -void C_unimplemented(C_char *msg) -{ - C_fprintf(C_stderr, C_text("Error: unimplemented feature: %s\n"), msg); - C_exit_runtime(C_fix(EX_SOFTWARE)); -} - -void C_not_an_integer_error(C_char *loc, C_word x) -{ - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, loc, x); -} - -void C_not_an_uinteger_error(C_char *loc, C_word x) -{ - barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, loc, x); -} - -void C_rest_arg_out_of_bounds_error(C_word c, C_word n, C_word ka) -{ - C_rest_arg_out_of_bounds_error_2(c, n, ka, C_SCHEME_FALSE); -} - -void C_rest_arg_out_of_bounds_error_2(C_word c, C_word n, C_word ka, C_word closure) -{ - barf(C_REST_ARG_OUT_OF_BOUNDS_ERROR, NULL, C_u_fixnum_difference(c, ka), C_u_fixnum_difference(n, ka), closure); -} - -/* Allocate and initialize record: */ - -C_regparm C_word C_string(C_word **ptr, int len, C_char *str) -{ - C_word buf = C_bytevector(ptr, len + 1, str); - C_word s = (C_word)(*ptr); - int n; - *ptr += 5; /* C_SIZEOF_STRING */ - C_c_bytevector(buf)[ len ] = 0; - C_block_header_init(s, C_STRING_TAG); - C_set_block_item(s, 0, buf); - n = C_utf_count(str, len); - C_set_block_item(s, 1, C_fix(n)); - C_set_block_item(s, 2, C_fix(0)); - C_set_block_item(s, 3, C_fix(0)); - return s; -} - -C_regparm C_word C_static_string(C_word **ptr, int len, C_char *str) -{ - C_word buf = C_static_bytevector(ptr, len + 1, str); - C_word s = (C_word)(*ptr); - int n; - *ptr += 5; /* C_SIZEOF_STRING */ - C_c_bytevector(buf)[ len ] = 0; - C_block_header_init(s, C_STRING_TAG); - C_set_block_item(s, 0, buf); - n = C_utf_count(str, len); - C_set_block_item(s, 1, C_fix(n)); - C_set_block_item(s, 2, C_fix(0)); - C_set_block_item(s, 3, C_fix(0)); - return s; -} - -C_regparm C_word C_static_bignum(C_word **ptr, int len, C_char *str) -{ - C_word *dptr, bignum, bigvec, retval, size, negp = 0; - - if (*str == '+' || *str == '-') { - negp = ((*str++) == '-') ? 1 : 0; - --len; - } - size = C_BIGNUM_BITS_TO_DIGITS((unsigned int)len << 2); - - dptr = (C_word *)C_malloc(C_wordstobytes(C_SIZEOF_INTERNAL_BIGNUM_VECTOR(size))); - if(dptr == NULL) - panic(C_text("out of memory - cannot allocate static bignum")); - - bigvec = (C_word)dptr; - C_block_header_init(bigvec, C_BYTEVECTOR_TYPE | C_wordstobytes(size + 1)); - C_set_block_item(bigvec, 0, negp); - /* This needs to be allocated at ptr, not dptr, because GC moves type tag */ - bignum = C_a_i_bignum_wrapper(ptr, bigvec); - - retval = str_to_bignum(bignum, str, str + len, 16); - if (retval & C_FIXNUM_BIT) - C_free(dptr); /* Might have been simplified */ - return retval; -} - -C_regparm C_word C_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_bytevector(C_word **ptr, int len, C_char *str) -{ - C_word block = (C_word)(*ptr); - *ptr = (C_word *)((C_word)(*ptr) + sizeof(C_header) + C_align(len)); - C_block_header_init(block, C_BYTEVECTOR_TYPE | len); - C_memcpy(C_data_pointer(block), str, len); - return block; -} - - -C_regparm C_word C_static_bytevector(C_word **ptr, int len, C_char *str) -{ - /* we need to add 4 here, as utf8_decode does 3-byte lookahead */ - C_word *dptr = (C_word *)C_malloc(sizeof(C_header) + C_align(len + 4)); - C_word block; - - if(dptr == NULL) - panic(C_text("out of memory - cannot allocate static bytevector")); - - block = (C_word)dptr; - C_block_header_init(block, C_BYTEVECTOR_TYPE | len); - C_memcpy(C_data_pointer(block), str, len); - return block; -} - - -C_regparm C_word 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 bytevector")); - - pbv->header = C_BYTEVECTOR_TYPE | len; - C_memcpy(pbv->data, str, len); - return (C_word)pbv; -} - - -C_regparm C_word 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); - return C_string(ptr, len, str); -} - - -C_regparm C_word 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); - } - - return C_string(ptr, len, str); -} - - -C_word 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_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_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_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_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_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_taggedmpointer_or_false(C_word **ptr, C_word tag, void *mp) -{ - C_word - *p = *ptr, - *p0 = p; - - if(mp == NULL) return C_SCHEME_FALSE; - - *(p++) = C_TAGGED_POINTER_TAG; - *((void **)p) = mp; - *(++p) = tag; - *ptr = p + 1; - return (C_word)p0; -} - - -C_word C_vector(C_word **ptr, int n, ...) -{ - va_list v; - C_word - *p = *ptr, - *p0 = p; - - *(p++) = C_VECTOR_TYPE | n; - va_start(v, n); - - while(n--) - *(p++) = va_arg(v, C_word); - - *ptr = p; - va_end(v); - return (C_word)p0; -} - - -C_word C_structure(C_word **ptr, int n, ...) -{ - va_list v; - C_word *p = *ptr, - *p0 = p; - - *(p++) = C_STRUCTURE_TYPE | n; - va_start(v, n); - - while(n--) - *(p++) = va_arg(v, C_word); - - *ptr = p; - va_end(v); - return (C_word)p0; -} - - -C_regparm C_word -C_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((C_word)slot) || (!C_in_stackp(val) && !C_in_scratchspacep(val))) - return *slot = val; - -#ifdef C_GC_HOOKS - if(C_gc_mutation_hook != NULL && C_gc_mutation_hook(slot, val)) return val; -#endif - - if(mutation_stack_top >= mutation_stack_limit) { - assert(mutation_stack_top == mutation_stack_limit); - mssize = mutation_stack_top - mutation_stack_bottom; - newmssize = mssize * 2; - bytes = newmssize * sizeof(C_word *); - - if(debug_mode) - C_dbg(C_text("debug"), C_text("resizing mutation stack from %uk to %uk ...\n"), - (mssize * sizeof(C_word *)) / 1024, bytes / 1024); - - mutation_stack_bottom = (C_word **)realloc(mutation_stack_bottom, bytes); - - if(mutation_stack_bottom == NULL) - panic(C_text("out of memory - cannot re-allocate mutation stack")); - - mutation_stack_limit = mutation_stack_bottom + newmssize; - mutation_stack_top = mutation_stack_bottom + mssize; - } - - *(mutation_stack_top++) = slot; - ++tracked_mutation_count; - return *slot = val; -} - -/* Allocate memory in scratch space, "size" is in words, like C_alloc. - * The memory in the scratch space is laid out as follows: First, - * there's a count that indicates how big the object originally was, - * followed by a pointer to the slot in the object which points to the - * object in scratch space, finally followed by the object itself. - * The reason we store the slot pointer is so that we can figure out - * whether the object is still "live" when reallocating; that's - * because we don't have a saved continuation from where we can trace - * the live data. The reason we store the total length of the object - * is because we may be mutating in-place the lengths of the stored - * objects, and we need to know how much to skip over while scanning. - * - * If the allocating function returns, it *must* first mark all the - * values in scratch space as reclaimable. This is needed because - * there is no way to distinguish between a stale pointer into scratch - * space that's still somewhere on the stack in "uninitialized" memory - * versus a word that's been recycled by the next called function, - * which now holds a value that happens to have the same bit pattern - * but represents another thing entirely. - */ -C_regparm C_word C_scratch_alloc(C_uword size) -{ - C_word result; - - if (C_scratchspace_top + size + 2 >= C_scratchspace_limit) { - C_word *new_scratch_start, *new_scratch_top, *new_scratch_limit; - C_uword needed = C_scratch_usage + size + 2, - new_size = nmax(scratchspace_size << 1, 2UL << C_ilen(needed)); - - /* Shrink if the needed size is much smaller, but not below minimum */ - if (needed < (new_size >> 4)) new_size >>= 1; - new_size = nmax(new_size, DEFAULT_SCRATCH_SPACE_SIZE); - - /* TODO: Maybe we should work with two semispaces to reduce mallocs? */ - new_scratch_start = (C_word *)C_malloc(C_wordstobytes(new_size)); - if (new_scratch_start == NULL) - panic(C_text("out of memory - cannot (re-)allocate scratch space")); - new_scratch_top = new_scratch_start; - new_scratch_limit = new_scratch_start + new_size; - - if(debug_mode) { - C_dbg(C_text("debug"), C_text("resizing scratchspace dynamically from " - UWORD_COUNT_FORMAT_STRING "k to " - UWORD_COUNT_FORMAT_STRING "k ...\n"), - C_wordstobytes(scratchspace_size) / 1024, - C_wordstobytes(new_size) / 1024); - } - - if(gc_report_flag) { - C_dbg(C_text("GC"), C_text("(old) scratchspace: \tstart=" UWORD_FORMAT_STRING - ", \tlimit=" UWORD_FORMAT_STRING "\n"), - (C_word)C_scratchspace_start, (C_word)C_scratchspace_limit); - C_dbg(C_text("GC"), C_text("(new) scratchspace: \tstart=" UWORD_FORMAT_STRING - ", \tlimit=" UWORD_FORMAT_STRING "\n"), - (C_word)new_scratch_start, (C_word)new_scratch_limit); - } - - /* Move scratch data into new space and mutate slots pointing there. - * This is basically a much-simplified version of really_mark. - */ - if (C_scratchspace_start != NULL) { - C_word val, *sscan, *slot; - C_uword n, words; - C_header h; - C_SCHEME_BLOCK *p, *p2; - - sscan = C_scratchspace_start; - - while (sscan < C_scratchspace_top) { - words = *sscan; - slot = (C_word *)*(sscan+1); - - if (*(sscan+2) == ALIGNMENT_HOLE_MARKER) val = (C_word)(sscan+3); - else val = (C_word)(sscan+2); - - sscan += words + 2; - - p = (C_SCHEME_BLOCK *)val; - h = p->header; - if (is_fptr(h)) /* TODO: Support scratch->scratch pointers? */ - panic(C_text("Unexpected forwarding pointer in scratch space")); - - p2 = (C_SCHEME_BLOCK *)(new_scratch_top+2); - -#ifndef C_SIXTY_FOUR - if ((h & C_8ALIGN_BIT) && C_aligned8(p2) && - (C_word *)p2 < new_scratch_limit) { - *((C_word *)p2) = ALIGNMENT_HOLE_MARKER; - p2 = (C_SCHEME_BLOCK *)((C_word *)p2 + 1); - } -#endif - - /* If orig slot still points here, copy data and update it */ - if (slot != NULL) { - assert(*slot == val); - n = C_header_size(p); - n = (h & C_BYTEBLOCK_BIT) ? C_bytestowords(n) : n; - - *slot = (C_word)p2; - /* size = header plus block size plus optional alignment hole */ - *new_scratch_top = ((C_word *)p2-(C_word *)new_scratch_top-2) + n + 1; - *(new_scratch_top+1) = (C_word)slot; - - new_scratch_top = (C_word *)p2 + n + 1; - if(new_scratch_top > new_scratch_limit) - panic(C_text("out of memory - scratch space full while resizing")); - - p2->header = h; - p->header = ptr_to_fptr((C_uword)p2); - C_memcpy(p2->data, p->data, C_wordstobytes(n)); - } - } - free(C_scratchspace_start); - } - C_scratchspace_start = new_scratch_start; - C_scratchspace_top = new_scratch_top; - C_scratchspace_limit = new_scratch_limit; - /* Scratch space is now tightly packed */ - C_scratch_usage = (new_scratch_top - new_scratch_start); - scratchspace_size = new_size; - } - assert(C_scratchspace_top + size + 2 <= C_scratchspace_limit); - - *C_scratchspace_top = size; - *(C_scratchspace_top+1) = (C_word)NULL; /* Nothing points here 'til mutated */ - result = (C_word)(C_scratchspace_top+2); - C_scratchspace_top += size + 2; - /* This will only be marked as "used" when it's claimed by a pointer */ - /* C_scratch_usage += size + 2; */ - return result; -} - -/* Given a root object, scan its slots recursively (the objects - * themselves should be shallow and non-recursive), and migrate every - * object stored between the memory boundaries to the supplied - * pointer. Scratch data pointed to by objects between the memory - * boundaries is updated to point to the new memory region. If the - * supplied pointer is NULL, the scratch memory is marked reclaimable. - */ -C_regparm C_word -C_migrate_buffer_object(C_word **ptr, C_word *start, C_word *end, C_word obj) -{ - C_word size, header, *data, *p = NULL, obj_in_buffer; - - if (C_immediatep(obj)) return obj; - - size = C_header_size(obj); - header = C_block_header(obj); - data = C_data_pointer(obj); - obj_in_buffer = (obj >= (C_word)start && obj < (C_word)end); - - /* Only copy object if we have a target pointer and it's in the buffer */ - if (ptr != NULL && obj_in_buffer) { - p = *ptr; - obj = (C_word)p; /* Return the object's new location at the end */ - } - - if (p != NULL) *p++ = header; - - if (header & C_BYTEBLOCK_BIT) { - if (p != NULL) { - *ptr = (C_word *)((C_byte *)(*ptr) + sizeof(C_header) + C_align(size)); - C_memcpy(p, data, size); - } - } else { - if (p != NULL) *ptr += size + 1; - - if(header & C_SPECIALBLOCK_BIT) { - if (p != NULL) *(p++) = *data; - size--; - data++; - } - - /* TODO: See if we can somehow make this use Cheney's algorithm */ - while(size--) { - C_word slot = *data; - - if(!C_immediatep(slot)) { - if (C_in_scratchspacep(slot)) { - if (obj_in_buffer) { /* Otherwise, don't touch scratch backpointer */ - /* TODO: Support recursing into objects in scratch space? */ - C_word *sp = (C_word *)slot; - - if (*(sp-1) == ALIGNMENT_HOLE_MARKER) --sp; - if (*(sp-1) != (C_word)NULL && p == NULL) - C_scratch_usage -= *(sp-2) + 2; - *(sp-1) = (C_word)p; /* This is why we traverse even if p = NULL */ - - *data = C_SCHEME_UNBOUND; /* Ensure old reference is killed dead */ - } - } else { /* Slot is not a scratchspace object: check sub-objects */ - slot = C_migrate_buffer_object(ptr, start, end, slot); - } - } - if (p != NULL) *(p++) = slot; - else *data = slot; /* Sub-object may have moved! */ - data++; - } - } - return obj; /* Should be NULL if ptr was NULL */ -} - -/* Register an object's slot as holding data to scratch space. Only - * one slot can point to a scratch space object; the object in scratch - * space is preceded by a pointer that points to this slot (or NULL). - */ -C_regparm C_word C_mutate_scratch_slot(C_word *slot, C_word val) -{ - C_word *ptr = (C_word *)val; - assert(C_in_scratchspacep(val)); -/* XXX assert(slot == NULL || C_in_stackp((C_word)slot)); -*/ - if (*(ptr-1) == ALIGNMENT_HOLE_MARKER) --ptr; - if (*(ptr-1) == (C_word)NULL && slot != NULL) - C_scratch_usage += *(ptr-2) + 2; - if (*(ptr-1) != (C_word)NULL && slot == NULL) - C_scratch_usage -= *(ptr-2) + 2; - *(ptr-1) = (C_word)slot; /* Remember the slot pointing here, for realloc */ - if (slot != NULL) *slot = val; - return val; -} - -/* Initiate garbage collection: */ - - -void C_save_and_reclaim(void *trampoline, int n, C_word *av) -{ - C_word new_size = nmax((C_word)1 << C_ilen(n), DEFAULT_TEMPORARY_STACK_SIZE); - - assert(av > C_temporary_stack_bottom || av < C_temporary_stack_limit); - assert(C_temporary_stack == C_temporary_stack_bottom); - - /* Don't *immediately* slam back to default size */ - if (new_size < temporary_stack_size / 4) - new_size = temporary_stack_size >> 1; - - if (new_size != temporary_stack_size) { - - if(fixed_temporary_stack_size) - panic(C_text("fixed temporary stack overflow (\"apply\" called with too many arguments?)")); - - if(gc_report_flag) { - C_dbg(C_text("GC"), C_text("resizing temporary stack dynamically from " UWORD_COUNT_FORMAT_STRING "k to " UWORD_COUNT_FORMAT_STRING "k ...\n"), - C_wordstobytes(temporary_stack_size) / 1024, - C_wordstobytes(new_size) / 1024); - } - - C_free(C_temporary_stack_limit); - - if((C_temporary_stack_limit = (C_word *)C_malloc(new_size * sizeof(C_word))) == NULL) - panic(C_text("out of memory - could not resize temporary stack")); - - C_temporary_stack_bottom = C_temporary_stack_limit + new_size; - C_temporary_stack = C_temporary_stack_bottom; - temporary_stack_size = new_size; - } - - C_temporary_stack = C_temporary_stack_bottom - n; - - assert(C_temporary_stack >= C_temporary_stack_limit); - - C_memmove(C_temporary_stack, av, n * sizeof(C_word)); - C_reclaim(trampoline, n); -} - - -void C_save_and_reclaim_args(void *trampoline, int n, ...) -{ - va_list v; - int i; - - va_start(v, n); - - for(i = 0; i < n; ++i) - C_save(va_arg(v, C_word)); - - va_end(v); - C_reclaim(trampoline, n); -} - - -#ifdef __SUNPRO_C -static void _mark(C_word *x, C_byte *s, C_byte **t, C_byte *l) { \ - C_word *_x = (x), _val = *_x; \ - if(!C_immediatep(_val)) really_mark(_x,s,t,l); \ -} -#else -# define _mark(x,s,t,l) \ - C_cblock \ - C_word *_x = (x), _val = *_x; \ - if(!C_immediatep(_val)) really_mark(_x,s,t,l); \ - C_cblockend -#endif - -/* NOTE: This macro is particularly unhygienic! */ -#define mark(x) _mark(x, tgt_space_start, tgt_space_top, tgt_space_limit) - -C_regparm void C_reclaim(void *trampoline, C_word c) -{ - int i, j, fcount; - C_uword count; - C_word **msp, last; - C_byte *tmp, *start; - C_GC_ROOT *gcrp; - double tgc = 0; - volatile int finalizers_checked; - FINALIZER_NODE *flist; - C_DEBUG_INFO cell; - C_byte *tgt_space_start, **tgt_space_top, *tgt_space_limit; - - /* 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 = ""; - cell.val = "GC_MINOR"; - C_debugger(&cell, 0, NULL); - - /* Note: the mode argument will always be GC_MINOR or GC_REALLOC. */ - if(C_pre_gc_hook != NULL) C_pre_gc_hook(GC_MINOR); - - finalizers_checked = 0; - C_restart_trampoline = trampoline; - C_restart_c = c; - gc_mode = GC_MINOR; - tgt_space_start = fromspace_start; - tgt_space_top = &C_fromspace_top; - tgt_space_limit = C_fromspace_limit; - weak_pair_chain = (C_word)NULL; - locative_chain = (C_word)NULL; - - start = C_fromspace_top; - - /* Entry point for second-level GC (on explicit request or because of full fromspace): */ -#ifdef HAVE_SIGSETJMP - if(C_sigsetjmp(gc_restart, 0) || start >= C_fromspace_limit) { -#else - if(C_setjmp(gc_restart) || start >= C_fromspace_limit) { -#endif - if(gc_bell) { - C_putchar(7); - C_fflush(stdout); - } - - tgc = C_cpu_milliseconds(); - - if(gc_mode == GC_REALLOC) { - cell.val = "GC_REALLOC"; - C_debugger(&cell, 0, NULL); - C_rereclaim2(percentage(heap_size, C_heap_growth), 0); - gc_mode = GC_MAJOR; - - tgt_space_start = tospace_start; - tgt_space_top = &tospace_top; - tgt_space_limit= tospace_limit; - - count = (C_uword)tospace_top - (C_uword)tospace_start; - goto never_mind_edsger; - } - - start = (C_byte *)C_align((C_uword)tospace_top); - gc_mode = GC_MAJOR; - tgt_space_start = tospace_start; - tgt_space_top = &tospace_top; - tgt_space_limit= tospace_limit; - weak_pair_chain = (C_word)NULL; /* only chain up weak pairs forwarded into tospace */ - locative_chain = (C_word)NULL; /* same for locatives */ - - cell.val = "GC_MAJOR"; - C_debugger(&cell, 0, NULL); - - mark_live_heap_only_objects(tgt_space_start, tgt_space_top, tgt_space_limit); - - /* mark normal GC roots (see below for finalizer handling): */ - for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next) { - if(!gcrp->finalizable) mark(&gcrp->value); - } - } - else { - /* Mark mutated slots: */ - for(msp = mutation_stack_bottom; msp < mutation_stack_top; ++msp) - mark(*msp); - } - - mark_live_objects(tgt_space_start, tgt_space_top, tgt_space_limit); - - mark_nested_objects(start, tgt_space_start, tgt_space_top, tgt_space_limit); - start = *tgt_space_top; - - if(gc_mode == GC_MINOR) { - count = (C_uword)C_fromspace_top - (C_uword)start; - ++gc_count_1; - ++gc_count_1_total; - update_locatives(GC_MINOR, start, *tgt_space_top); - update_weak_pairs(GC_MINOR, start, *tgt_space_top); - } - else { - /* 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); - - /* Once more mark nested objects after (maybe) copying finalizer objects: */ - mark_nested_objects(start, tgt_space_start, tgt_space_top, tgt_space_limit); - - /* 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_locatives(gc_mode, start, *tgt_space_top); - update_weak_pairs(gc_mode, start, *tgt_space_top); - - count = (C_uword)tospace_top - (C_uword)tospace_start; // Actual used, < heap_size/2 - - { - C_uword min_half = count + C_heap_half_min_free; - C_uword low_half = percentage(heap_size/2, C_heap_shrinkage_used); - C_uword grown = percentage(heap_size, C_heap_growth); - C_uword shrunk = percentage(heap_size, C_heap_shrinkage); - - if (count < low_half) { - heap_shrink_counter++; - } else { - heap_shrink_counter = 0; - } - - /*** isn't gc_mode always GC_MAJOR here? */ - if(gc_mode == GC_MAJOR && !C_heap_size_is_fixed && - C_heap_shrinkage > 0 && - // This prevents grow, shrink, grow, shrink... spam - HEAP_SHRINK_COUNTS < heap_shrink_counter && - (min_half * 2) <= shrunk && // Min. size trumps shrinkage - heap_size > MINIMAL_HEAP_SIZE) { - if(gc_report_flag) { - C_dbg(C_text("GC"), C_text("Heap low water mark hit (%d%%), shrinking...\n"), - C_heap_shrinkage_used); - } - heap_shrink_counter = 0; - C_rereclaim2(shrunk, 0); - } else if (gc_mode == GC_MAJOR && !C_heap_size_is_fixed && - (heap_size / 2) < min_half) { - if(gc_report_flag) { - C_dbg(C_text("GC"), C_text("Heap high water mark hit, growing...\n")); - } - heap_shrink_counter = 0; - C_rereclaim2(grown, 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; - } - } - - never_mind_edsger: - ++gc_count_2; - } - - 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); - } - - /* GC will have copied any live objects out of scratch space: clear it */ - if (C_scratchspace_start != C_scratchspace_top) { - /* And drop the scratchspace in case of a major or reallocating collection */ - if (gc_mode != GC_MINOR) { - C_free(C_scratchspace_start); - C_scratchspace_start = NULL; - C_scratchspace_limit = NULL; - scratchspace_size = 0; - } - C_scratchspace_top = C_scratchspace_start; - C_scratch_usage = 0; - } - - if(gc_mode == GC_MAJOR) { - gc_count_1 = 0; - maximum_heap_usage = count > maximum_heap_usage ? count : maximum_heap_usage; - } - - if(C_post_gc_hook != NULL) C_post_gc_hook(gc_mode, (C_long)tgc); - - /* Unwind stack completely */ -#ifdef HAVE_SIGSETJMP - C_siglongjmp(C_restart, 1); -#else - C_longjmp(C_restart, 1); -#endif -} - - -/* Mark live objects which can exist in the nursery and/or the heap */ -static C_regparm void mark_live_objects(C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) -{ - C_word *p; - TRACE_INFO *tinfo; - - assert(C_temporary_stack >= C_temporary_stack_limit); - - /* Mark live values from the currently running closure: */ - for(p = C_temporary_stack; p < C_temporary_stack_bottom; ++p) - mark(p); - - /* Clear the mutated slot stack: */ - mutation_stack_top = mutation_stack_bottom; - - /* Mark trace-buffer: */ - for(tinfo = trace_buffer; tinfo < trace_buffer_limit; ++tinfo) { - mark(&tinfo->cooked_location); - mark(&tinfo->cooked1); - mark(&tinfo->cooked2); - mark(&tinfo->thread); - } -} - - -/* - * Mark all live *heap* objects that don't need GC mode-specific - * treatment. Thus, no finalizers or other GC roots. - * - * Finalizers are excluded because these need special handling: - * finalizers referring to dead objects must be marked and queued. - * However, *pending* finalizers (for objects previously determined - * to be collectable) are marked so that these objects stick around - * until after the finalizer has been run. - * - * This function does not need to be called on a minor GC, since these - * objects won't ever exist in the nursery. - */ -static C_regparm void mark_live_heap_only_objects(C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) -{ - LF_LIST *lfn; - C_word *p, **msp, last; - unsigned int i; - C_SYMBOL_TABLE *stp; - - /* 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 < (unsigned int)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 system globals */ - mark(&core_provided_symbol); - mark(&interrupt_hook_symbol); - mark(&error_hook_symbol); - mark(&callback_continuation_stack_symbol); - mark(&pending_finalizers_symbol); - mark(¤t_thread_symbol); - - mark(&s8vector_symbol); - mark(&u16vector_symbol); - mark(&s16vector_symbol); - mark(&u32vector_symbol); - mark(&s32vector_symbol); - mark(&u64vector_symbol); - mark(&s64vector_symbol); - mark(&f32vector_symbol); - mark(&f64vector_symbol); -} - - -/* - * Mark nested values in already moved (i.e., marked) blocks in - * breadth-first manner (Cheney's algorithm). - */ -static C_regparm void mark_nested_objects(C_byte *heap_scan_top, C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) -{ - int n; - C_word bytes; - C_word *p; - C_header h; - C_SCHEME_BLOCK *bp; - - while(heap_scan_top < *tgt_space_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); - } -} - - -static C_regparm void really_mark(C_word *x, C_byte *tgt_space_start, C_byte **tgt_space_top, C_byte *tgt_space_limit) -{ - C_word val; - C_uword n, bytes; - C_header h; - C_SCHEME_BLOCK *p, *p2; - - val = *x; - - if (!C_in_stackp(val) && !C_in_heapp(val) && !C_in_scratchspacep(val)) { -#ifdef C_GC_HOOKS - if(C_gc_trace_hook != NULL) - C_gc_trace_hook(x, gc_mode); -#endif - return; - } - - p = (C_SCHEME_BLOCK *)val; - h = p->header; - - while(is_fptr(h)) { /* TODO: Pass in fptr chain limit? */ - val = fptr_to_ptr(h); - p = (C_SCHEME_BLOCK *)val; - h = p->header; - } - - /* Already in target space, probably as result of chasing fptrs */ - if ((C_uword)val >= (C_uword)tgt_space_start && (C_uword)val < (C_uword)*tgt_space_top) { - *x = val; - return; - } - - p2 = (C_SCHEME_BLOCK *)C_align((C_uword)*tgt_space_top); - -#ifndef C_SIXTY_FOUR - if((h & C_8ALIGN_BIT) && C_aligned8(p2) && (C_byte *)p2 < tgt_space_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_unlikely(((C_byte *)p2 + bytes + sizeof(C_word)) > tgt_space_limit)) { - if (gc_mode == GC_MAJOR) { - /* 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; - } else if (gc_mode == GC_REALLOC) { - if (new_tospace_top > new_tospace_limit) { - panic(C_text("out of memory - heap full while resizing")); - } - } -#ifdef HAVE_SIGSETJMP - C_siglongjmp(gc_restart, 1); -#else - C_longjmp(gc_restart, 1); -#endif - } - - *tgt_space_top = (C_byte *)p2 + C_align(bytes) + sizeof(C_word); - - *x = (C_word)p2; - p2->header = h; - p->header = ptr_to_fptr((C_uword)p2); - C_memcpy(p2->data, p->data, bytes); - if (h == C_WEAK_PAIR_TAG && !C_immediatep(p2->data[0])) { - p->data[0] = weak_pair_chain; /* "Recycle" the weak pair's CAR to point to prev head */ - weak_pair_chain = (C_word)p; /* Make this fwd ptr the new head of the weak pair chain */ - } else if (h == C_LOCATIVE_TAG) { - p->data[0] = locative_chain; /* "Recycle" the locative pointer field to point to prev head */ - locative_chain = (C_word)p; /* Make this fwd ptr the new head of the locative chain */ - } -} - - -/* Do a major GC into a freshly allocated heap: */ - -#define remark(x) _mark(x, new_tospace_start, &new_tospace_top, new_tospace_limit) - -C_regparm void C_rereclaim2(C_uword size, int relative_resize) -{ - int i; - C_GC_ROOT *gcrp; - FINALIZER_NODE *flist; - C_byte *new_heapspace, *start; - size_t new_heapspace_size; - - if(C_pre_gc_hook != NULL) C_pre_gc_hook(GC_REALLOC); - - /* - * Normally, size is "absolute": it indicates the desired size of - * the entire new heap. With relative_resize, size is a demanded - * increase of the heap, so we'll have to add it. This calculation - * doubles the current heap size because heap_size is already both - * halves. We add size*2 because we'll eventually divide the size - * by 2 for both halves. We also add stack_size*2 because all the - * nursery data is also copied to the heap on GC, and the requested - * memory "size" must be available after the GC. - */ - if(relative_resize) size = (heap_size + size + stack_size) * 2; - - if(size < MINIMAL_HEAP_SIZE) size = MINIMAL_HEAP_SIZE; - - /* - * When heap grows, ensure it's enough to accommodate first - * generation (nursery). Because we're calculating the total heap - * size here (fromspace *AND* tospace), we have to double the stack - * size, otherwise we'd accommodate only half the stack in the tospace. - */ - if(size > heap_size && size - heap_size < stack_size * 2) - size = heap_size + stack_size * 2; - - /* - * The heap has grown but we've already hit the maximal size with the current - * heap, we can't do anything else but panic. - */ - if(size > heap_size && heap_size >= C_maximal_heap_size) - panic(C_text("out of memory - heap has reached its maximum size")); - - if(size > C_maximal_heap_size) size = C_maximal_heap_size; - - if(debug_mode) { - C_dbg(C_text("debug"), C_text("resizing heap dynamically from " - UWORD_COUNT_FORMAT_STRING "k to " - UWORD_COUNT_FORMAT_STRING "k ...\n"), - heap_size / 1024, size / 1024); - } - - if(gc_report_flag) { - C_dbg(C_text("GC"), C_text("(old) fromspace: \tstart=" UWORD_FORMAT_STRING - ", \tlimit=" UWORD_FORMAT_STRING "\n"), - (C_word)fromspace_start, (C_word)C_fromspace_limit); - C_dbg(C_text("GC"), C_text("(old) tospace: \tstart=" UWORD_FORMAT_STRING - ", \tlimit=" UWORD_FORMAT_STRING "\n"), - (C_word)tospace_start, (C_word)tospace_limit); - } - - heap_size = size; /* Total heap size of the two halves... */ - size /= 2; /* ...each half is this big */ - - /* - * Start by allocating the new heap's fromspace. After remarking, - * allocate the other half of the new heap (its tospace). - * - * To clarify: what we call "new_space" here is what will eventually - * be cycled over to "fromspace" when re-reclamation has finished - * (that is, after the old one has been freed). - */ - if ((new_heapspace = heap_alloc (size, &new_tospace_start)) == NULL) - panic(C_text("out of memory - cannot allocate heap segment")); - new_heapspace_size = size; - - new_tospace_top = new_tospace_start; - new_tospace_limit = new_tospace_start + size; - start = new_tospace_top; - weak_pair_chain = (C_word)NULL; /* only chain up weak pairs forwarded into new heap */ - locative_chain = (C_word)NULL; /* same for locatives */ - - /* Mark standard live objects in nursery and heap */ - mark_live_objects(new_tospace_start, &new_tospace_top, new_tospace_limit); - mark_live_heap_only_objects(new_tospace_start, &new_tospace_top, new_tospace_limit); - - /* Mark finalizer table: */ - for(flist = finalizer_list; flist != NULL; flist = flist->next) { - remark(&flist->item); - remark(&flist->finalizer); - } - - /* Mark *all* GC roots */ - for(gcrp = gc_root_list; gcrp != NULL; gcrp = gcrp->next) { - remark(&gcrp->value); - } - - /* Mark nested values in already moved (marked) blocks in breadth-first manner: */ - mark_nested_objects(start, new_tospace_start, &new_tospace_top, new_tospace_limit); - update_locatives(GC_REALLOC, new_tospace_top, new_tospace_top); - update_weak_pairs(GC_REALLOC, new_tospace_top, new_tospace_top); - - 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); -} - - -/* When a weak pair is encountered by GC, it turns it into a - * forwarding reference as usual, but then it re-uses the now-defunct - * pair's CAR field. It clobbers that field with a plain C pointer to - * the current "weak pair chain". Then, the weak pair chain is - * updated to point to this new forwarding pointer, creating a crude - * linked list of sorts. - * - * We can get away with this because the slots of an object are - * unused/dead when it is turned into a forwarding pointer - the - * forwarding pointer itself is just a header, but those data fields - * remain allocated. Since the weak pair chain is a linked list that - * can *only* contain weak-pairs-turned-forwarding-pointer, we may - * freely access the first slot of such forwarding pointers. - */ -static C_regparm void update_weak_pairs(int mode, C_byte *undead_start, C_byte *undead_end) -{ - int weakn = 0; - C_word p, pair, car, h; - C_byte *car_ptr; - - /* NOTE: Don't use C_block_item() because it asserts the block is - * big enough in DEBUGBUILD, but forwarding pointers have size 0. - */ - for (p = weak_pair_chain; p != (C_word)NULL; p = *((C_word *)C_data_pointer(p))) { - /* NOTE: We only chain up the weak pairs' forwarding pointers into - * the new space. This is safe because already forwarded weak - * pairs in nursery/fromspace will be forwarded *again* into - * tospace/new heap. That forwarding pointer is chained up. - * Still-unforwarded weak pairs will be forwarded straight to the - * new space, and also chained up. - */ - h = C_block_header(p); - assert(is_fptr(h)); - pair = fptr_to_ptr(h); - assert(!is_fptr(C_block_header(pair))); - - /* The pair itself should be live */ - assert((mode == GC_MINOR && !C_in_stackp(pair)) || - (mode == GC_MAJOR && !C_in_stackp(pair) && !C_in_fromspacep(pair)) || - (mode == GC_REALLOC && !C_in_stackp(pair) && !C_in_heapp(pair))); /* NB: *old* heap! */ - - car = C_block_item(pair, 0); - assert(!C_immediatep(car)); /* should be ensured when adding it to the chain */ - h = C_block_header(car); - while (is_fptr(h)) { - car = fptr_to_ptr(h); - h = C_block_header(car); - } - - car_ptr = (C_byte *)(C_uword)car; - /* If the car is unreferenced by anyone else, it wasn't moved by GC. Or, if it's in the "undead" portion of - the new heap, it was moved because it was only referenced by a revived finalizable object. In either case, drop it: */ - if((mode == GC_MINOR && C_in_stackp(car)) || - (mode == GC_MAJOR && (C_in_stackp(car) || C_in_fromspacep(car) || (car_ptr >= undead_start && car_ptr < undead_end))) || - (mode == GC_REALLOC && (C_in_stackp(car) || C_in_heapp(car) || (car_ptr >= undead_start && car_ptr < undead_end)))) { /* NB: *old* heap! */ - - C_set_block_item(pair, 0, C_SCHEME_BROKEN_WEAK_PTR); - ++weakn; - } else { - /* Might have moved, re-set the car to the target value */ - C_set_block_item(pair, 0, car); - } - } - weak_pair_chain = (C_word)NULL; - if(gc_report_flag && weakn) - C_dbg("GC", C_text("%d recoverable weak pairs found\n"), weakn); -} - -/* Same as weak pairs (see above), but for locatives. Note that this - * also includes non-weak locatives, as these point *into* an object, - * so the updating of that pointer is not handled by the GC proper - * (which only deals with full objects). - */ -static C_regparm void update_locatives(int mode, C_byte *undead_start, C_byte *undead_end) -{ - int weakn = 0; - C_word p, loc, ptr, obj, h, offset; - C_byte *obj_ptr; - - for (p = locative_chain; p != (C_word)NULL; p = *((C_word *)C_data_pointer(p))) { - h = C_block_header(p); - assert(is_fptr(h)); - loc = fptr_to_ptr(h); - assert(!is_fptr(C_block_header(loc))); - - /* The locative object itself should be live */ - assert((mode == GC_MINOR && !C_in_stackp(loc)) || - (mode == GC_MAJOR && !C_in_stackp(loc) && !C_in_fromspacep(loc)) || - (mode == GC_REALLOC && !C_in_stackp(loc) && !C_in_heapp(loc))); /* NB: *old* heap! */ - - ptr = C_block_item(loc, 0); /* fix up ptr */ - if (ptr == 0) continue; /* Skip already dropped weak locatives */ - offset = C_unfix(C_block_item(loc, 1)); - obj = ptr - offset; - - h = C_block_header(obj); - while (is_fptr(h)) { - obj = fptr_to_ptr(h); - h = C_block_header(obj); - } - - obj_ptr = (C_byte *)(C_uword)obj; - /* If the object is unreferenced by anyone else, it wasn't moved by GC. Or, if it's in the "undead" portion of - the new heap, it was moved because it was only referenced by a revived finalizable object. In either case, drop it: */ - if((mode == GC_MINOR && C_in_stackp(obj)) || - (mode == GC_MAJOR && (C_in_stackp(obj) || C_in_fromspacep(obj) || (obj_ptr >= undead_start && obj_ptr < undead_end))) || - (mode == GC_REALLOC && (C_in_stackp(obj) || C_in_heapp(obj) || (obj_ptr >= undead_start && obj_ptr < undead_end)))) { /* NB: *old* heap! */ - - /* NOTE: This does *not* use BROKEN_WEAK_POINTER. This slot - * holds an unaligned raw C pointer, not a Scheme object */ - C_set_block_item(loc, 0, 0); - ++weakn; - } else { - /* Might have moved, re-set the object to the target value */ - C_set_block_item(loc, 0, obj + offset); - } - } - locative_chain = (C_word)NULL; - if(gc_report_flag && weakn) - C_dbg("GC", C_text("%d recoverable weak locatives found\n"), weakn); -} - - -void handle_interrupt(void *trampoline) -{ - C_word *p, h, reason, state, proc, n; - double c; - C_word av[ 4 ]; - - /* Build vector with context information: */ - n = C_temporary_stack_bottom - C_temporary_stack; - p = C_alloc(C_SIZEOF_VECTOR(2) + C_SIZEOF_VECTOR(n)); - proc = (C_word)p; - *(p++) = C_VECTOR_TYPE | C_BYTEBLOCK_BIT | sizeof(C_word); - *(p++) = (C_word)trampoline; - state = (C_word)p; - *(p++) = C_VECTOR_TYPE | (n + 1); - *(p++) = proc; - C_memcpy(p, C_temporary_stack, n * sizeof(C_word)); - - /* Restore state to the one at the time of the interrupt: */ - C_temporary_stack = C_temporary_stack_bottom; - C_stack_limit = C_stack_hard_limit; - - /* Invoke high-level interrupt handler: */ - reason = C_fix(pending_interrupts[ --pending_interrupts_count ]); - proc = C_block_item(interrupt_hook_symbol, 0); - - if(C_immediatep(proc)) - panic(C_text("`##sys#interrupt-hook' is not defined")); - - c = C_cpu_milliseconds() - interrupt_time; - last_interrupt_latency = c; - C_timer_interrupt_counter = C_initial_timer_interrupt_period; - /* <- no continuation is passed: "##sys#interrupt-hook" may not return! */ - av[ 0 ] = proc; - av[ 1 ] = C_SCHEME_UNDEFINED; - av[ 2 ] = reason; - av[ 3 ] = state; - C_do_apply(4, av); -} - - -void -C_unbound_variable(C_word sym) -{ - barf(C_UNBOUND_VARIABLE_ERROR, NULL, sym); -} - - -void -C_decoding_error(C_word str, C_word index) -{ - barf(C_DECODING_ERROR, NULL, str, index); -} - - -/* 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_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_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; - } - - if (tb->raw_location != NULL) { - key = tb->raw_location; - } else { - key = ""; /* Location string is GCable, can't use it */ - } - - /* 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); - b = *bp; - - /* First try to find pre-existing item in hash table */ - while(b != NULL) { - if(b->key == key) { - b->sample_count++; - if (prev_key != key && prev_tb != tb) - b->call_count++; - goto done; - } - else b = b->next; - } - - /* Not found, allocate a new item and use it as bucket's new head */ - b = next_profile_bucket; - next_profile_bucket = NULL; - - assert(b != NULL); - - b->next = *bp; - b->key = key; - *bp = b; - b->sample_count = 1; - b->call_count = 1; - -done: - prev_tb = tb; - prev_key = key; -} - - -C_regparm void C_trace(C_char *name) -{ - C_word thread; - - if(show_trace) { - C_fputs(name, C_stderr); - C_fputc('\n', C_stderr); - } - - /* - * When profiling, pre-allocate profile bucket if necessary. This - * is used in the signal handler, because it may not malloc. - */ - if(profiling && next_profile_bucket == NULL) { - next_profile_bucket = (PROFILE_BUCKET *)C_malloc(sizeof(PROFILE_BUCKET)); - if (next_profile_bucket == NULL) { - panic(C_text("out of memory - cannot allocate profile table-bucket")); - } - } - - if(trace_buffer_top >= trace_buffer_limit) { - trace_buffer_top = trace_buffer; - trace_buffer_full = 1; - } - - trace_buffer_top->raw_location = name; - trace_buffer_top->cooked_location = C_SCHEME_FALSE; - trace_buffer_top->cooked1 = C_SCHEME_FALSE; - trace_buffer_top->cooked2 = C_SCHEME_FALSE; - thread = C_block_item(current_thread_symbol, 0); - trace_buffer_top->thread = C_and(C_blockp(thread), C_thread_id(thread)); - ++trace_buffer_top; -} - - -C_regparm C_word C_emit_trace_info2(char *raw, C_word l, C_word x, C_word y, C_word t) -{ - /* See above */ - if(profiling && next_profile_bucket == NULL) { - next_profile_bucket = (PROFILE_BUCKET *)C_malloc(sizeof(PROFILE_BUCKET)); - if (next_profile_bucket == NULL) { - panic(C_text("out of memory - cannot allocate profile table-bucket")); - } - } - - if(trace_buffer_top >= trace_buffer_limit) { - trace_buffer_top = trace_buffer; - trace_buffer_full = 1; - } - - trace_buffer_top->raw_location = raw; - trace_buffer_top->cooked_location = l; - 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")); - } - - if (ptr->raw_location != NULL) { - C_strlcat(result, ptr->raw_location, result_len); - } else if (ptr->cooked_location != C_SCHEME_FALSE) { - C_word bv = C_block_item(ptr->cooked_location, 0); - C_strlcat(result, C_c_string(bv), nmin(C_header_size(bv) - 1, result_len)); - } else { - C_strlcat(result, "", 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_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 ].raw_location = NULL; - trace_buffer[ i ].cooked_location = C_SCHEME_FALSE; - 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 * 5) - panic(C_text("destination buffer too small for call-chain")); - - for(;i--; ++ptr) { - if(ptr >= trace_buffer_limit) ptr = trace_buffer; - - /* outside-pointer, will be ignored by GC */ - C_mutate(&C_block_item(buffer, p++), (C_word)ptr->raw_location); - - /* subject to GC */ - C_mutate(&C_block_item(buffer, p++), ptr->cooked_location); - C_mutate(&C_block_item(buffer, p++), ptr->cooked1); - C_mutate(&C_block_item(buffer, p++), ptr->cooked2); - C_mutate(&C_block_item(buffer, p++), ptr->thread); - } - } - - return C_fix(p); -} - -C_regparm C_word C_u_i_bytevector_hash(C_word str, C_word start, C_word end, C_word rnd) -{ - int len = C_header_size(str); - C_char *ptr = C_c_string(str); - return C_fix(hash_string(C_unfix(end) - C_unfix(start), ptr + C_unfix(start), C_MOST_POSITIVE_FIXNUM, C_unfix(rnd))); -} - -C_regparm void C_toplevel_entry(C_char *name) -{ - if(debug_mode) - C_dbg(C_text("debug"), C_text("entering %s...\n"), name); -} - -C_regparm C_word C_a_i_provide(C_word **a, int c, C_word id) -{ - if (debug_mode == 2) { - C_word str = C_block_item(id, 1); - C_dbg(C_text("debug"), C_text("providing %s...\n"), C_c_string(str)); - } - return C_a_i_putprop(a, 3, core_provided_symbol, id, C_SCHEME_TRUE); -} - -C_regparm C_word C_i_providedp(C_word id) -{ - return C_i_getprop(core_provided_symbol, id, C_SCHEME_FALSE); -} - -C_word C_halt(C_word msg) -{ - C_char *dmp = msg != C_SCHEME_FALSE ? C_dump_trace(0) : NULL; - - if(C_gui_mode) { - if(msg != C_SCHEME_FALSE) { - int n = C_header_size(msg); - - if (n >= sizeof(buffer)) - n = sizeof(buffer) - 1; - C_strlcpy(buffer, (C_char *)C_data_pointer(msg), n); - /* XXX msg isn't checked for NUL bytes, but we can't barf here either! */ - } - else C_strlcpy(buffer, C_text("(aborted)"), sizeof(buffer)); - - C_strlcat(buffer, C_text("\n\n"), sizeof(buffer)); - - if(dmp != NULL) C_strlcat(buffer, dmp, sizeof(buffer)); - -#if defined(_WIN32) && !defined(__CYGWIN__) - MessageBox(NULL, buffer, C_text("CHICKEN runtime"), MB_OK | MB_ICONERROR); - ExitProcess(1); -#endif - } /* otherwise fall through */ - - if(msg != C_SCHEME_FALSE) { - C_fwrite(C_data_pointer(msg), C_header_size(msg), sizeof(C_char), C_stderr); - C_fputc('\n', C_stderr); - } - - if(dmp != NULL) - C_dbg("", C_text("\n%s"), dmp); - - C_exit_runtime(C_fix(EX_SOFTWARE)); - return 0; -} - - -C_word C_message(C_word msg) -{ - C_word m = C_block_item(msg, 0); - unsigned int n = C_header_size(m); - /* - * Strictly speaking this isn't necessary for the non-gui-mode, - * but let's try and keep this consistent across modes. - */ - if (C_memchr(C_c_string(m), '\0', n - 1) != 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(m), 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(m), n, sizeof(C_char), stdout); - C_putchar('\n'); - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word 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; - - /* NOTE: Extra check at the end is special consideration for pairs being equal to weak pairs */ - if((header = C_block_header(x)) != C_block_header(y) && !(C_header_type(x) == C_PAIR_TYPE && C_header_type(y) == C_PAIR_TYPE)) 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_ub_i_flonum_eqvp(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(C_header_bits(x) == C_STRING_TYPE) - return C_equalp(C_block_item(x, 0), C_block_item(y, 0)); - 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_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_i_accumulated_gc_time(void) -{ - double tgc; - - tgc = timer_accumulated_gc_ms; - timer_accumulated_gc_ms = 0; - return C_fix(tgc); -} - -C_regparm C_word C_start_timer(void) -{ - tracked_mutation_count = 0; - mutation_count = 0; - gc_count_1_total = 0; - gc_count_2 = 0; - timer_start_ms = C_cpu_milliseconds(); - gc_ms = 0; - maximum_heap_usage = 0; - return C_SCHEME_UNDEFINED; -} - - -void C_ccall C_stop_timer(C_word c, C_word *av) -{ - C_word - closure = av[ 0 ], - k = av[ 1 ]; - double t0 = C_cpu_milliseconds() - timer_start_ms; - C_word - ab[ WORDS_PER_FLONUM * 2 + C_SIZEOF_BIGNUM(1) + C_SIZEOF_VECTOR(7) ], - *a = ab, - elapsed = C_flonum(&a, t0 / 1000.0), - gc_time = C_flonum(&a, gc_ms / 1000.0), - heap_usage = C_unsigned_int_to_num(&a, maximum_heap_usage), - info; - - info = C_vector(&a, 7, elapsed, gc_time, C_fix(mutation_count), - C_fix(tracked_mutation_count), C_fix(gc_count_1_total), - C_fix(gc_count_2), heap_usage); - C_kontinue(k, info); -} - - -C_word C_exit_runtime(C_word code) -{ - C_fflush(NULL); - C__exit(C_unfix(code)); -} - - -C_regparm C_word C_set_print_precision(C_word n) -{ - flonum_print_precision = C_unfix(n); - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_get_print_precision(void) -{ - return C_fix(flonum_print_precision); -} - - -C_regparm C_word C_read_char(C_word port) -{ - C_FILEPTR fp = C_port_file(port); - C_char buf[ 5 ]; - int n = 0, r, c; - - do { - c = C_getc(fp); - - if(c == EOF) { - if(ferror(fp)) { - clearerr(fp); - if(n == 0) 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) { - if(n == 0) return C_fix(-1); - } -#endif - else if(n == 0) return C_SCHEME_END_OF_FILE; - } - - if(n == 0) r = C_utf_expect(c); - buf[ n++ ] = c; - } while(n < r); - - return C_utf_decode_ptr(buf); -} - - -C_regparm C_word C_execute_shell_command(C_word string) -{ - C_word bv = C_block_item(string, 0); - int n = C_header_size(bv); - 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(bv), n); /* includes 0 */ - if (n - 1 != strlen(buf)) - barf(C_ASCIIZ_REPRESENTATION_ERROR, "system", string); - - n = C_system(C_OS_FILENAME(bv, 0)); - - 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_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_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_i_tty_forcedp(void) -{ - return C_mk_bool(fake_tty_flag); -} - -C_regparm C_word C_i_debug_modep(void) -{ - return C_mk_bool(debug_mode); -} - -C_regparm C_word C_i_dump_heap_on_exitp(void) -{ - return C_mk_bool(dump_heap_on_exit); -} - -C_regparm C_word C_i_profilingp(void) -{ - return C_mk_bool(profiling); -} - -C_regparm C_word C_i_live_finalizer_count(void) -{ - return C_fix(live_finalizer_count); -} - -C_regparm C_word C_i_allocated_finalizer_count(void) -{ - return C_fix(allocated_finalizer_count); -} - - -C_regparm void 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_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_disable_interrupts(void) -{ - C_interrupts_enabled = 0; - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word 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 if(reason == C_SCHEME_TRUE) C_signal(sig, SIG_DFL); - 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_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_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_i_listp(C_word x) -{ - C_word fast = x, slow = x; - - while(fast != C_SCHEME_END_OF_LIST) - if(!C_immediatep(fast) && C_header_type(fast) == C_PAIR_TYPE) { - fast = C_u_i_cdr(fast); - - if(fast == C_SCHEME_END_OF_LIST) return C_SCHEME_TRUE; - else if(!C_immediatep(fast) && C_header_type(fast) == C_PAIR_TYPE) { - 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_i_s8vectorp(C_word x) -{ - return C_i_structurep(x, s8vector_symbol); -} - -C_regparm C_word C_i_u16vectorp(C_word x) -{ - return C_i_structurep(x, u16vector_symbol); -} - -C_regparm C_word C_i_s16vectorp(C_word x) -{ - return C_i_structurep(x, s16vector_symbol); -} - -C_regparm C_word C_i_u32vectorp(C_word x) -{ - return C_i_structurep(x, u32vector_symbol); -} - -C_regparm C_word C_i_s32vectorp(C_word x) -{ - return C_i_structurep(x, s32vector_symbol); -} - -C_regparm C_word C_i_u64vectorp(C_word x) -{ - return C_i_structurep(x, u64vector_symbol); -} - -C_regparm C_word C_i_s64vectorp(C_word x) -{ - return C_i_structurep(x, s64vector_symbol); -} - -C_regparm C_word C_i_f32vectorp(C_word x) -{ - return C_i_structurep(x, f32vector_symbol); -} - -C_regparm C_word C_i_f64vectorp(C_word x) -{ - return C_i_structurep(x, f64vector_symbol); -} - - -C_regparm C_word C_i_string_equal_p(C_word x, C_word y) -{ - 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); - - return C_utf_equal(x, y); -} - - -C_regparm C_word C_i_string_ci_equal_p(C_word x, C_word y) -{ - 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); - - return C_utf_equal_ci(x, y); -} - - -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, b; - char *p; - int len; - - s = (C_word)(*a); - *a = (C_word *)((C_word)(*a) + sizeof(C_word) * 5); /* C_SIZEOF_STRING */ - b = (C_word)(*a); - - C_block_header_init(s, C_STRING_TAG); - C_set_block_item(s, 0, b); - C_set_block_item(s, 1, C_fix(c)); - C_set_block_item(s, 2, C_fix(0)); - C_set_block_item(s, 3, C_fix(0)); - p = (char *)C_data_pointer(b); - va_start(v, c); - - for(; c; c--) { - x = va_arg(v, C_word); - - if((x & C_IMMEDIATE_TYPE_BITS) == C_CHARACTER_BITS) - p = C_utf_encode(p, C_character_code(x)); - else break; - } - - len = p - (char *)C_data_pointer(b) + 1; - *a = (C_word *)((C_word)(*a) + sizeof(C_header) + C_align(len)); - *p = '\0'; - C_block_header_init(b, C_BYTEVECTOR_TYPE | len); - 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_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_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_i_nanp(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_SCHEME_FALSE; - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "nan?", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_u_i_flonum_nanp(x); - } else if (C_truep(C_bignump(x))) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - return C_mk_bool(C_truep(C_i_nanp(C_u_i_cplxnum_real(x))) || - C_truep(C_i_nanp(C_u_i_cplxnum_imag(x)))); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "nan?", x); - } -} - -C_regparm C_word C_i_finitep(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_SCHEME_TRUE; - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "finite?", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_u_i_flonum_finitep(x); - } else if (C_truep(C_bignump(x))) { - return C_SCHEME_TRUE; - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_SCHEME_TRUE; - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - return C_and(C_i_finitep(C_u_i_cplxnum_real(x)), - C_i_finitep(C_u_i_cplxnum_imag(x))); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "finite?", x); - } -} - -C_regparm C_word C_i_infinitep(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_SCHEME_FALSE; - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "infinite?", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_u_i_flonum_infinitep(x); - } else if (C_truep(C_bignump(x))) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - return C_mk_bool(C_truep(C_i_infinitep(C_u_i_cplxnum_real(x))) || - C_truep(C_i_infinitep(C_u_i_cplxnum_imag(x)))); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "infinite?", x); - } -} - -C_regparm C_word C_i_exactp(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_SCHEME_TRUE; - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact?", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_SCHEME_FALSE; - } else if (C_truep(C_bignump(x))) { - return C_SCHEME_TRUE; - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_SCHEME_TRUE; - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - return C_i_exactp(C_u_i_cplxnum_real(x)); /* Exactness of i and r matches */ - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact?", x); - } -} - - -C_regparm C_word C_i_inexactp(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_SCHEME_FALSE; - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "inexact?", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_SCHEME_TRUE; - } else if (C_truep(C_bignump(x))) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_SCHEME_FALSE; - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - return C_i_inexactp(C_u_i_cplxnum_real(x)); /* Exactness of i and r matches */ - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "inexact?", x); - } -} - - -C_regparm C_word C_i_zerop(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_mk_bool(x == C_fix(0)); - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "zero?", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_mk_bool(C_flonum_magnitude(x) == 0.0); - } else if (C_block_header(x) == C_BIGNUM_TAG || - C_block_header(x) == C_RATNUM_TAG || - C_block_header(x) == C_CPLXNUM_TAG) { - return C_SCHEME_FALSE; - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "zero?", x); - } -} - -/* DEPRECATED */ -C_regparm C_word C_u_i_zerop(C_word x) -{ - return C_mk_bool(x == C_fix(0) || - (!C_immediatep(x) && - C_block_header(x) == C_FLONUM_TAG && - C_flonum_magnitude(x) == 0.0)); -} - - -C_regparm C_word C_i_positivep(C_word x) -{ - if (x & C_FIXNUM_BIT) - return C_i_fixnum_positivep(x); - else if (C_immediatep(x)) - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "positive?", x); - else if (C_block_header(x) == C_FLONUM_TAG) - return C_mk_bool(C_flonum_magnitude(x) > 0.0); - else if (C_truep(C_bignump(x))) - return C_mk_nbool(C_bignum_negativep(x)); - else if (C_block_header(x) == C_RATNUM_TAG) - return C_i_integer_positivep(C_u_i_ratnum_num(x)); - else if (C_block_header(x) == C_CPLXNUM_TAG) - barf(C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR, "positive?", x); - else - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "positive?", x); -} - -C_regparm C_word C_i_integer_positivep(C_word x) -{ - if (x & C_FIXNUM_BIT) return C_i_fixnum_positivep(x); - else return C_mk_nbool(C_bignum_negativep(x)); -} - -C_regparm C_word C_i_negativep(C_word x) -{ - if (x & C_FIXNUM_BIT) - return C_i_fixnum_negativep(x); - else if (C_immediatep(x)) - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "negative?", x); - else if (C_block_header(x) == C_FLONUM_TAG) - return C_mk_bool(C_flonum_magnitude(x) < 0.0); - else if (C_truep(C_bignump(x))) - return C_mk_bool(C_bignum_negativep(x)); - else if (C_block_header(x) == C_RATNUM_TAG) - return C_i_integer_negativep(C_u_i_ratnum_num(x)); - else if (C_block_header(x) == C_CPLXNUM_TAG) - barf(C_BAD_ARGUMENT_TYPE_NO_REAL_ERROR, "negative?", x); - else - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "negative?", x); -} - - -C_regparm C_word C_i_integer_negativep(C_word x) -{ - if (x & C_FIXNUM_BIT) return C_i_fixnum_negativep(x); - else return C_mk_bool(C_bignum_negativep(x)); -} - - -C_regparm C_word C_i_evenp(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return C_i_fixnumevenp(x); - } else if(C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "even?", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - double val, dummy; - val = C_flonum_magnitude(x); - if(C_isnan(val) || C_isinf(val) || C_modf(val, &dummy) != 0.0) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "even?", x); - else - return C_mk_bool(fmod(val, 2.0) == 0.0); - } else if (C_truep(C_bignump(x))) { - return C_mk_nbool(C_bignum_digits(x)[0] & 1); - } else { /* No need to try extended number */ - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "even?", x); - } -} - -C_regparm C_word C_i_integer_evenp(C_word x) -{ - if (x & C_FIXNUM_BIT) return C_i_fixnumevenp(x); - return C_mk_nbool(C_bignum_digits(x)[0] & 1); -} - - -C_regparm C_word C_i_oddp(C_word x) -{ - if(x & C_FIXNUM_BIT) { - return C_i_fixnumoddp(x); - } else if(C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "odd?", x); - } else if(C_block_header(x) == C_FLONUM_TAG) { - double val, dummy; - val = C_flonum_magnitude(x); - if(C_isnan(val) || C_isinf(val) || C_modf(val, &dummy) != 0.0) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "odd?", x); - else - return C_mk_bool(fmod(val, 2.0) != 0.0); - } else if (C_truep(C_bignump(x))) { - return C_mk_bool(C_bignum_digits(x)[0] & 1); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "odd?", x); - } -} - - -C_regparm C_word C_i_integer_oddp(C_word x) -{ - if (x & C_FIXNUM_BIT) return C_i_fixnumoddp(x); - return C_mk_bool(C_bignum_digits(x)[0] & 1); -} - - -C_regparm C_word C_i_car(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "car", x); - - return C_u_i_car(x); -} - - -C_regparm C_word C_i_cdr(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "cdr", x); - - return C_u_i_cdr(x); -} - - -C_regparm C_word C_i_caar(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "caar", x); - } - - x = C_u_i_car(x); - - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_car(x); -} - - -C_regparm C_word C_i_cadr(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "cadr", x); - } - - x = C_u_i_cdr(x); - - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_car(x); -} - - -C_regparm C_word C_i_cdar(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "cdar", x); - } - - x = C_u_i_car(x); - - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_cdr(x); -} - - -C_regparm C_word C_i_cddr(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "cddr", x); - } - - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_cdr(x); -} - - -C_regparm C_word C_i_caddr(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "caddr", x); - } - - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_car(x); -} - - -C_regparm C_word C_i_cdddr(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "cdddr", x); - } - - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_cdr(x); -} - - -C_regparm C_word C_i_cadddr(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "cadddr", x); - } - - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_car(x); -} - - -C_regparm C_word C_i_cddddr(C_word x) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - bad: - barf(C_BAD_ARGUMENT_TYPE_ERROR, "cddddr", x); - } - - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - x = C_u_i_cdr(x); - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) goto bad; - - return C_u_i_cdr(x); -} - - -C_regparm C_word 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_header_type(lst) != C_PAIR_TYPE)) - 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_header_type(lst) != C_PAIR_TYPE) - barf(C_OUT_OF_BOUNDS_ERROR, "list-tail", lst0, i); - - lst = C_u_i_cdr(lst); - } - - return lst; -} - - -C_regparm C_word 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_BOUNDS_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_i_bytevector_ref(C_word v, C_word i) -{ - int j; - - if(!C_truep(C_bytevectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "bytevector-u8-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= C_header_size(v)) - barf(C_OUT_OF_BOUNDS_ERROR, "bytevector-u8-ref", v, i); - - return C_fix(((unsigned char *)C_data_pointer(v))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "bytevector-u8-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_s8vector_ref(C_word v, C_word i) -{ - int j; - - if(!C_truep(C_i_s8vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= C_header_size(C_block_item(v, 1))) - barf(C_OUT_OF_BOUNDS_ERROR, "s8vector-ref", v, i); - - return C_fix(((signed char *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_u16vector_ref(C_word v, C_word i) -{ - int j; - - if(!C_truep(C_i_u16vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) - barf(C_OUT_OF_BOUNDS_ERROR, "u16vector-ref", v, i); - - return C_fix(((unsigned short *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_s16vector_ref(C_word v, C_word i) -{ - C_word size; - int j; - - if(C_immediatep(v) || C_header_bits(v) != C_STRUCTURE_TYPE || - C_header_size(v) != 2 || C_block_item(v, 0) != s16vector_symbol) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) - barf(C_OUT_OF_BOUNDS_ERROR, "u16vector-ref", v, i); - - return C_fix(((signed short *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_a_i_u32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) -{ - int j; - - if(!C_truep(C_i_u32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) - barf(C_OUT_OF_BOUNDS_ERROR, "u32vector-ref", v, i); - - return C_unsigned_int_to_num(ptr, ((C_u32 *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_a_i_s32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) -{ - int j; - - if(!C_truep(C_i_s32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) - barf(C_OUT_OF_BOUNDS_ERROR, "s32vector-ref", v, i); - - return C_int_to_num(ptr, ((C_s32 *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_a_i_u64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) -{ - int j; - - if(!C_truep(C_i_u64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) - barf(C_OUT_OF_BOUNDS_ERROR, "u64vector-ref", v, i); - - return C_uint64_to_num(ptr, ((C_u64 *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_a_i_s64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) -{ - int j; - - if(!C_truep(C_i_s64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) - barf(C_OUT_OF_BOUNDS_ERROR, "s64vector-ref", v, i); - - return C_int64_to_num(ptr, ((C_s64 *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_a_i_f32vector_ref(C_word **ptr, C_word c, C_word v, C_word i) -{ - int j; - - if(!C_truep(C_i_f32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) - barf(C_OUT_OF_BOUNDS_ERROR, "f32vector-ref", v, i); - - return C_flonum(ptr, ((float *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-ref", i); - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_a_i_f64vector_ref(C_word **ptr, C_word c, C_word v, C_word i) -{ - C_word size; - int j; - - if(!C_truep(C_i_f64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-ref", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) - barf(C_OUT_OF_BOUNDS_ERROR, "f64vector-ref", v, i); - - return C_flonum(ptr, ((double *)C_data_pointer(C_block_item(v, 1)))[j]); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-ref", i); - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_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_BOUNDS_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_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_unfix(C_block_item(s, 1))) - barf(C_OUT_OF_BOUNDS_ERROR, "string-set!", s, i); - - return C_utf_setsubchar(s, i, c); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-set!", i); - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word 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_unfix(C_block_item(s, 1))) - barf(C_OUT_OF_BOUNDS_ERROR, "string-ref", s, i); - - return C_utf_subchar(s, i); - } - - barf(C_BAD_ARGUMENT_TYPE_ERROR, "string-ref", i); - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word 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_i_bytevector_length(C_word v) -{ - if(!C_truep(C_bytevectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "bytevector-length", v); - - return C_fix(C_header_size(v)); -} - -C_regparm C_word C_i_s8vector_length(C_word v) -{ - if(!C_truep(C_i_s8vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1))); -} - -C_regparm C_word C_i_u16vector_length(C_word v) -{ - if(!C_truep(C_i_u16vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 1); -} - -C_regparm C_word C_i_s16vector_length(C_word v) -{ - if(!C_truep(C_i_s16vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 1); -} - -C_regparm C_word C_i_u32vector_length(C_word v) -{ - if(!C_truep(C_i_u32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 2); -} - -C_regparm C_word C_i_s32vector_length(C_word v) -{ - if(!C_truep(C_i_s32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 2); -} - -C_regparm C_word C_i_u64vector_length(C_word v) -{ - if(!C_truep(C_i_u64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 3); -} - -C_regparm C_word C_i_s64vector_length(C_word v) -{ - if(!C_truep(C_i_s64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 3); -} - - -C_regparm C_word C_i_f32vector_length(C_word v) -{ - if(!C_truep(C_i_f32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 2); -} - -C_regparm C_word C_i_f64vector_length(C_word v) -{ - if(!C_truep(C_i_f64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-length", v); - - return C_fix(C_header_size(C_block_item(v, 1)) >> 3); -} - - -C_regparm C_word C_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_block_item(s, 1); -} - - -C_regparm C_word 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_header_type(fast) == C_PAIR_TYPE) { - fast = C_u_i_cdr(fast); - - if(fast != C_SCHEME_END_OF_LIST) { - if(!C_immediatep(fast) && C_header_type(fast) == C_PAIR_TYPE) { - 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_header_type(slow) != C_PAIR_TYPE) - 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_u_i_length(C_word lst) -{ - int n = 0; - - while(!C_immediatep(lst) && C_header_type(lst) == C_PAIR_TYPE) { - lst = C_u_i_cdr(lst); - ++n; - } - - return C_fix(n); -} - -C_regparm C_word C_i_set_car(C_word x, C_word val) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "set-car!", x); - - C_mutate(&C_u_i_car(x), val); - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_i_set_cdr(C_word x, C_word val) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "set-cdr!", x); - - C_mutate(&C_u_i_cdr(x), val); - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_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_BOUNDS_ERROR, "vector-set!", v, i); - - C_mutate(&C_block_item(v, j), x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "vector-set!", i); - - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_bytevector_set(C_word v, C_word i, C_word x) -{ - int j; - C_word n; - - if(!C_truep(C_bytevectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "bytevector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= C_header_size(v)) - barf(C_OUT_OF_BOUNDS_ERROR, "bytevector-u8-set!", v, i); - - if(x & C_FIXNUM_BIT) { - if (C_unfix(C_i_fixnum_length(x)) <= 8) n = C_unfix(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "bytevector-u8-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "bytevector-u8-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "bytevector-u8-set!", i); - - ((signed char *)C_data_pointer(v))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_s8vector_set(C_word v, C_word i, C_word x) -{ - int j; - C_word n; - - if(!C_truep(C_i_s8vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= C_header_size(C_block_item(v, 1))) - barf(C_OUT_OF_BOUNDS_ERROR, "s8vector-set!", v, i); - - if(x & C_FIXNUM_BIT) { - if (C_unfix(C_i_fixnum_length(x)) <= 8) n = C_unfix(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "s8vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s8vector-set!", i); - - ((signed char *)C_data_pointer(C_block_item(v, 1)))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_u16vector_set(C_word v, C_word i, C_word x) -{ - int j; - C_word n; - - if(!C_truep(C_i_u16vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) - barf(C_OUT_OF_BOUNDS_ERROR, "u16vector-set!", v, i); - - if(x & C_FIXNUM_BIT) { - if (!(x & C_INT_SIGN_BIT) && C_ilen(C_unfix(x)) <= 16) n = C_unfix(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "u16vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u16vector-set!", i); - - ((unsigned short *)C_data_pointer(C_block_item(v, 1)))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_s16vector_set(C_word v, C_word i, C_word x) -{ - int j; - C_word n; - - if(!C_truep(C_i_s16vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 1)) - barf(C_OUT_OF_BOUNDS_ERROR, "u16vector-set!", v, i); - - if(x & C_FIXNUM_BIT) { - if (C_unfix(C_i_fixnum_length(x)) <= 16) n = C_unfix(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "s16vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s16vector-set!", i); - - ((short *)C_data_pointer(C_block_item(v, 1)))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_u32vector_set(C_word v, C_word i, C_word x) -{ - int j; - C_u32 n; - - if(!C_truep(C_i_u32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) - barf(C_OUT_OF_BOUNDS_ERROR, "u32vector-set!", v, i); - - if(C_truep(C_i_exact_integerp(x))) { - if (C_unfix(C_i_integer_length(x)) <= 32) n = C_num_to_unsigned_int(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "u32vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u32vector-set!", i); - - ((C_u32 *)C_data_pointer(C_block_item(v, 1)))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_s32vector_set(C_word v, C_word i, C_word x) -{ - int j; - C_s32 n; - - if(!C_truep(C_i_s32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) - barf(C_OUT_OF_BOUNDS_ERROR, "s32vector-set!", v, i); - - if(C_truep(C_i_exact_integerp(x))) { - if (C_unfix(C_i_integer_length(x)) <= 32) n = C_num_to_int(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "s32vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s32vector-set!", i); - - ((C_s32 *)C_data_pointer(C_block_item(v, 1)))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_u64vector_set(C_word v, C_word i, C_word x) -{ - int j; - C_u64 n; - - if(!C_truep(C_i_u64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) - barf(C_OUT_OF_BOUNDS_ERROR, "u64vector-set!", v, i); - - if(C_truep(C_i_exact_integerp(x))) { - if (C_unfix(C_i_integer_length(x)) <= 64) n = C_num_to_uint64(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "u64vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "u64vector-set!", i); - - ((C_u64 *)C_data_pointer(C_block_item(v, 1)))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_s64vector_set(C_word v, C_word i, C_word x) -{ - int j; - C_s64 n; - - if(!C_truep(C_i_s64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) - barf(C_OUT_OF_BOUNDS_ERROR, "s64vector-set!", v, i); - - if(C_truep(C_i_exact_integerp(x))) { - if (C_unfix(C_i_integer_length(x)) <= 64) n = C_num_to_int64(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "s64vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "s64vector-set!", i); - - ((C_s64 *)C_data_pointer(C_block_item(v, 1)))[j] = n; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_f32vector_set(C_word v, C_word i, C_word x) -{ - int j; - double f; - - if(!C_truep(C_i_f32vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 2)) - barf(C_OUT_OF_BOUNDS_ERROR, "f32vector-set!", v, i); - - if(C_truep(C_i_flonump(x))) f = C_flonum_magnitude(x); - else if(x & C_FIXNUM_BIT) f = C_unfix(x); - else if (C_truep(C_i_bignump(x))) f = C_bignum_to_double(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "f32vector-set!", x); - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "f32vector-set!", i); - - ((float *)C_data_pointer(C_block_item(v, 1)))[j] = (float)f; - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_f64vector_set(C_word v, C_word i, C_word x) -{ - int j; - double f; - - if(!C_truep(C_i_f64vectorp(v))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-set!", v); - - if(i & C_FIXNUM_BIT) { - j = C_unfix(i); - - if(j < 0 || j >= (C_header_size(C_block_item(v, 1)) >> 3)) - barf(C_OUT_OF_BOUNDS_ERROR, "f64vector-set!", v, i); - - if(C_truep(C_i_flonump(x))) f = C_flonum_magnitude(x); - else if(x & C_FIXNUM_BIT) f = C_unfix(x); - else if (C_truep(C_i_bignump(x))) f = C_bignum_to_double(x); - else barf(C_BAD_ARGUMENT_TYPE_NUMERIC_RANGE_ERROR, "f64vector-set!", x); - - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "f64vector-set!", i); - - ((double *)C_data_pointer(C_block_item(v, 1)))[j] = f; - return C_SCHEME_UNDEFINED; -} - - -/* This needs at most C_SIZEOF_FIX_BIGNUM + max(C_SIZEOF_RATNUM, C_SIZEOF_CPLXNUM) so 7 words */ -C_regparm C_word -C_s_a_i_abs(C_word **ptr, C_word n, C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_a_i_fixnum_abs(ptr, 1, x); - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "abs", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_a_i_flonum_abs(ptr, 1, x); - } else if (C_truep(C_bignump(x))) { - return C_s_a_u_i_integer_abs(ptr, 1, x); - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_ratnum(ptr, C_s_a_u_i_integer_abs(ptr, 1, C_u_i_ratnum_num(x)), - C_u_i_ratnum_denom(x)); - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - barf(C_BAD_ARGUMENT_TYPE_COMPLEX_ABS, "abs", x); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "abs", x); - } -} - -void C_ccall C_signum(C_word c, C_word *av) -{ - C_word k = av[ 1 ], x, y; - - if (c != 3) C_bad_argc_2(c, 3, av[ 0 ]); - - x = av[ 2 ]; - y = av[ 3 ]; - - if (x & C_FIXNUM_BIT) { - C_kontinue(k, C_i_fixnum_signum(x)); - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "signum", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - C_word *a = C_alloc(C_SIZEOF_FLONUM); - C_kontinue(k, C_a_u_i_flonum_signum(&a, 1, x)); - } else if (C_truep(C_bignump(x))) { - C_kontinue(k, C_bignum_negativep(x) ? C_fix(-1) : C_fix(1)); - } else { - try_extended_number("##sys#extended-signum", 2, k, x); - } -} - - -/* The maximum this can allocate is a cplxnum which consists of two - * ratnums that consist of 2 fix bignums each. So that's - * C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM * 2 + C_SIZEOF_FIX_BIGNUM * 4 = 29 words! - */ -C_regparm C_word -C_s_a_i_negate(C_word **ptr, C_word n, C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_a_i_fixnum_negate(ptr, 1, x); - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - return C_a_i_flonum_negate(ptr, 1, x); - } else if (C_truep(C_bignump(x))) { - return C_s_a_u_i_integer_negate(ptr, 1, x); - } else if (C_block_header(x) == C_RATNUM_TAG) { - return C_ratnum(ptr, C_s_a_u_i_integer_negate(ptr, 1, C_u_i_ratnum_num(x)), - C_u_i_ratnum_denom(x)); - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - return C_cplxnum(ptr, C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_real(x)), - C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(x))); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); - } -} - -/* Copy all the digits from source to target, obliterating what was - * there. If target is larger than source, the most significant - * digits will remain untouched. - */ -inline static void bignum_digits_destructive_copy(C_word target, C_word source) -{ - C_memcpy(C_bignum_digits(target), C_bignum_digits(source), - C_wordstobytes(C_bignum_size(source))); -} - -C_regparm C_word -C_s_a_u_i_integer_negate(C_word **ptr, C_word n, C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_a_i_fixnum_negate(ptr, 1, x); - } else { - if (C_bignum_negated_fitsinfixnump(x)) { - return C_fix(C_MOST_NEGATIVE_FIXNUM); - } else { - C_word res, negp = C_mk_nbool(C_bignum_negativep(x)), - size = C_fix(C_bignum_size(x)); - res = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); - bignum_digits_destructive_copy(res, x); - return C_bignum_simplify(res); - } - } -} - - -/* Faster version that ignores sign */ -inline static int integer_length_abs(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_ilen(C_wabs(C_unfix(x))); - } else { - C_uword result = (C_bignum_size(x) - 1) * C_BIGNUM_DIGIT_LENGTH, - *last_digit = C_bignum_digits(x) + C_bignum_size(x) - 1, - last_digit_length = C_ilen(*last_digit); - return result + last_digit_length; - } -} - -C_regparm C_word C_i_integer_length(C_word x) -{ - if (x & C_FIXNUM_BIT) { - return C_i_fixnum_length(x); - } else if (C_truep(C_i_bignump(x))) { - C_uword result = (C_bignum_size(x) - 1) * C_BIGNUM_DIGIT_LENGTH, - *last_digit = C_bignum_digits(x) + C_bignum_size(x) - 1, - last_digit_length = C_ilen(*last_digit); - - /* If *only* the highest bit is set, negating will give one less bit */ - if (C_bignum_negativep(x) && - *last_digit == ((C_uword)1 << (last_digit_length-1))) { - C_uword *startx = C_bignum_digits(x); - while (startx < last_digit && *startx == 0) ++startx; - if (startx == last_digit) result--; - } - return C_fix(result + last_digit_length); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "integer-length", x); - } -} - -/* This is currently only used by Karatsuba multiplication and - * Burnikel-Ziegler division. */ -static C_regparm C_word -bignum_extract_digits(C_word **ptr, C_word n, C_word x, C_word start, C_word end) -{ - if (x & C_FIXNUM_BIT) { /* Needed? */ - if (C_unfix(start) == 0 && (end == C_SCHEME_FALSE || C_unfix(end) > 0)) - return x; - else - return C_fix(0); - } else { - C_word negp, size; - - negp = C_mk_bool(C_bignum_negativep(x)); /* Always false */ - - start = C_unfix(start); - /* We might get passed larger values than actually fits; pad w/ zeroes */ - if (end == C_SCHEME_FALSE) end = C_bignum_size(x); - else end = nmin(C_unfix(end), C_bignum_size(x)); - assert(start >= 0); - - size = end - start; - - if (size == 0 || start >= C_bignum_size(x)) { - return C_fix(0); - } else { - C_uword res, *res_digits, *x_digits; - res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); - res_digits = C_bignum_digits(res); - x_digits = C_bignum_digits(x); - /* Can't use bignum_digits_destructive_copy because that assumes - * target is at least as big as source. - */ - C_memcpy(res_digits, x_digits + start, C_wordstobytes(end - start)); - return C_bignum_simplify(res); - } - } -} - -/* This returns a tmp bignum negated copy of X (must be freed!) when - * the number is negative, or #f if it doesn't need to be negated. - * The size can be larger or smaller than X (it may be 1-padded). - */ -inline static C_word maybe_negate_bignum_for_bitwise_op(C_word x, C_word size) -{ - C_word nx = C_SCHEME_FALSE, xsize; - if (C_bignum_negativep(x)) { - nx = allocate_tmp_bignum(C_fix(size), C_SCHEME_FALSE, C_SCHEME_FALSE); - xsize = C_bignum_size(x); - /* Copy up until requested size, and init any remaining upper digits */ - C_memcpy(C_bignum_digits(nx), C_bignum_digits(x), - C_wordstobytes(nmin(size, xsize))); - if (size > xsize) - C_memset(C_bignum_digits(nx)+xsize, 0, C_wordstobytes(size-xsize)); - bignum_digits_destructive_negate(nx); - } - return nx; -} - -/* DEPRECATED */ -C_regparm C_word C_i_bit_to_bool(C_word n, C_word i) -{ - if (!C_truep(C_i_exact_integerp(n))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bit->boolean", n); - } else if (!(i & C_FIXNUM_BIT)) { - if (!C_immediatep(i) && C_truep(C_bignump(i)) && !C_bignum_negativep(i)) { - return C_i_integer_negativep(n); /* A bit silly, but strictly correct */ - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, "bit->boolean", i); - } - } else if (i & C_INT_SIGN_BIT) { - barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, "bit->boolean", i); - } else { - i = C_unfix(i); - if (n & C_FIXNUM_BIT) { - if (i >= C_WORD_SIZE) return C_mk_bool(n & C_INT_SIGN_BIT); - else return C_mk_bool((C_unfix(n) & ((C_word)1 << i)) != 0); - } else { - C_word nn, d; - d = i / C_BIGNUM_DIGIT_LENGTH; - if (d >= C_bignum_size(n)) return C_mk_bool(C_bignum_negativep(n)); - - /* TODO: this isn't necessary, is it? */ - if (C_truep(nn = maybe_negate_bignum_for_bitwise_op(n, d))) n = nn; - - i %= C_BIGNUM_DIGIT_LENGTH; - d = C_mk_bool((C_bignum_digits(n)[d] & (C_uword)1 << i) != 0); - if (C_truep(nn)) free_tmp_bignum(nn); - return d; - } - } -} - -C_regparm C_word -C_s_a_i_bitwise_and(C_word **ptr, C_word n, C_word x, C_word y) -{ - if ((x & y) & C_FIXNUM_BIT) { - return C_u_fixnum_and(x, y); - } else if (!C_truep(C_i_exact_integerp(x))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-and", x); - } else if (!C_truep(C_i_exact_integerp(y))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-and", y); - } else { - C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, negp, size, res, nx, ny; - C_uword *scanr, *endr, *scans1, *ends1, *scans2; - - if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); - if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); - - negp = C_mk_bool(C_bignum_negativep(x) && C_bignum_negativep(y)); - /* Allow negative 1-bits to propagate */ - if (C_bignum_negativep(x) || C_bignum_negativep(y)) - size = nmax(C_bignum_size(x), C_bignum_size(y)) + 1; - else - size = nmin(C_bignum_size(x), C_bignum_size(y)); - - res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); - scanr = C_bignum_digits(res); - endr = scanr + C_bignum_size(res); - - if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) x = nx; - if (C_truep(ny = maybe_negate_bignum_for_bitwise_op(y, size))) y = ny; - - if (C_bignum_size(x) < C_bignum_size(y)) { - scans1 = C_bignum_digits(x); ends1 = scans1 + C_bignum_size(x); - scans2 = C_bignum_digits(y); - } else { - scans1 = C_bignum_digits(y); ends1 = scans1 + C_bignum_size(y); - scans2 = C_bignum_digits(x); - } - - while (scans1 < ends1) *scanr++ = *scans1++ & *scans2++; - C_memset(scanr, 0, C_wordstobytes(endr - scanr)); - - if (C_truep(nx)) free_tmp_bignum(nx); - if (C_truep(ny)) free_tmp_bignum(ny); - if (C_bignum_negativep(res)) bignum_digits_destructive_negate(res); - - return C_bignum_simplify(res); - } -} - -void C_ccall C_bitwise_and(C_word c, C_word *av) -{ - /* C_word closure = av[ 0 ]; */ - C_word k = av[ 1 ]; - C_word next_val, result, prev_result; - C_word ab[2][C_SIZEOF_BIGNUM_WRAPPER], *a; - - c -= 2; - av += 2; - - if (c == 0) C_kontinue(k, C_fix(-1)); - - prev_result = result = *(av++); - - if (c-- == 1 && !C_truep(C_i_exact_integerp(result))) - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-and", result); - - while (c--) { - next_val = *(av++); - a = ab[c&1]; /* One may hold last iteration result, the other is unused */ - result = C_s_a_i_bitwise_and(&a, 2, result, next_val); - result = move_buffer_object(&a, ab[(c+1)&1], result); - clear_buffer_object(ab[(c+1)&1], prev_result); - prev_result = result; - } - - C_kontinue(k, result); -} - -C_regparm C_word -C_s_a_i_bitwise_ior(C_word **ptr, C_word n, C_word x, C_word y) -{ - if ((x & y) & C_FIXNUM_BIT) { - return C_u_fixnum_or(x, y); - } else if (!C_truep(C_i_exact_integerp(x))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-ior", x); - } else if (!C_truep(C_i_exact_integerp(y))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-ior", y); - } else { - C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, negp, size, res, nx, ny; - C_uword *scanr, *endr, *scans1, *ends1, *scans2, *ends2; - - if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); - if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); - - negp = C_mk_bool(C_bignum_negativep(x) || C_bignum_negativep(y)); - size = nmax(C_bignum_size(x), C_bignum_size(y)) + 1; - res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); - scanr = C_bignum_digits(res); - endr = scanr + C_bignum_size(res); - - if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) x = nx; - if (C_truep(ny = maybe_negate_bignum_for_bitwise_op(y, size))) y = ny; - - if (C_bignum_size(x) < C_bignum_size(y)) { - scans1 = C_bignum_digits(x); ends1 = scans1 + C_bignum_size(x); - scans2 = C_bignum_digits(y); ends2 = scans2 + C_bignum_size(y); - } else { - scans1 = C_bignum_digits(y); ends1 = scans1 + C_bignum_size(y); - scans2 = C_bignum_digits(x); ends2 = scans2 + C_bignum_size(x); - } - - while (scans1 < ends1) *scanr++ = *scans1++ | *scans2++; - while (scans2 < ends2) *scanr++ = *scans2++; - if (scanr < endr) *scanr++ = 0; /* Only done when result is positive */ - assert(scanr == endr); - - if (C_truep(nx)) free_tmp_bignum(nx); - if (C_truep(ny)) free_tmp_bignum(ny); - if (C_bignum_negativep(res)) bignum_digits_destructive_negate(res); - - return C_bignum_simplify(res); - } -} - -void C_ccall C_bitwise_ior(C_word c, C_word *av) -{ - /* C_word closure = av[ 0 ]; */ - C_word k = av[ 1 ]; - C_word next_val, result, prev_result; - C_word ab[2][C_SIZEOF_BIGNUM_WRAPPER], *a; - - c -= 2; - av += 2; - - if (c == 0) C_kontinue(k, C_fix(0)); - - prev_result = result = *(av++); - - if (c-- == 1 && !C_truep(C_i_exact_integerp(result))) - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-ior", result); - - while (c--) { - next_val = *(av++); - a = ab[c&1]; /* One may hold prev iteration result, the other is unused */ - result = C_s_a_i_bitwise_ior(&a, 2, result, next_val); - result = move_buffer_object(&a, ab[(c+1)&1], result); - clear_buffer_object(ab[(c+1)&1], prev_result); - prev_result = result; - } - - C_kontinue(k, result); -} - -C_regparm C_word -C_s_a_i_bitwise_xor(C_word **ptr, C_word n, C_word x, C_word y) -{ - if ((x & y) & C_FIXNUM_BIT) { - return C_fixnum_xor(x, y); - } else if (!C_truep(C_i_exact_integerp(x))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-xor", x); - } else if (!C_truep(C_i_exact_integerp(y))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-xor", y); - } else { - C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, negp, size, res, nx, ny; - C_uword *scanr, *endr, *scans1, *ends1, *scans2, *ends2; - - if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); - if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); - - size = nmax(C_bignum_size(x), C_bignum_size(y)) + 1; - negp = C_mk_bool(C_bignum_negativep(x) != C_bignum_negativep(y)); - res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); - scanr = C_bignum_digits(res); - endr = scanr + C_bignum_size(res); - - if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) x = nx; - if (C_truep(ny = maybe_negate_bignum_for_bitwise_op(y, size))) y = ny; - - if (C_bignum_size(x) < C_bignum_size(y)) { - scans1 = C_bignum_digits(x); ends1 = scans1 + C_bignum_size(x); - scans2 = C_bignum_digits(y); ends2 = scans2 + C_bignum_size(y); - } else { - scans1 = C_bignum_digits(y); ends1 = scans1 + C_bignum_size(y); - scans2 = C_bignum_digits(x); ends2 = scans2 + C_bignum_size(x); - } - - while (scans1 < ends1) *scanr++ = *scans1++ ^ *scans2++; - while (scans2 < ends2) *scanr++ = *scans2++; - if (scanr < endr) *scanr++ = 0; /* Only done when result is positive */ - assert(scanr == endr); - - if (C_truep(nx)) free_tmp_bignum(nx); - if (C_truep(ny)) free_tmp_bignum(ny); - if (C_bignum_negativep(res)) bignum_digits_destructive_negate(res); - - return C_bignum_simplify(res); - } -} - -void C_ccall C_bitwise_xor(C_word c, C_word *av) -{ - /* C_word closure = av[ 0 ]; */ - C_word k = av[ 1 ]; - C_word next_val, result, prev_result; - C_word ab[2][C_SIZEOF_BIGNUM_WRAPPER], *a; - - c -= 2; - av += 2; - - if (c == 0) C_kontinue(k, C_fix(0)); - - prev_result = result = *(av++); - - if (c-- == 1 && !C_truep(C_i_exact_integerp(result))) - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-xor", result); - - while (c--) { - next_val = *(av++); - a = ab[c&1]; /* One may hold prev iteration result, the other is unused */ - result = C_s_a_i_bitwise_xor(&a, 2, result, next_val); - result = move_buffer_object(&a, ab[(c+1)&1], result); - clear_buffer_object(ab[(c+1)&1], prev_result); - prev_result = result; - } - - C_kontinue(k, result); -} - -C_regparm C_word -C_s_a_i_bitwise_not(C_word **ptr, C_word n, C_word x) -{ - if (!C_truep(C_i_exact_integerp(x))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "bitwise-not", x); - } else { - return C_s_a_u_i_integer_minus(ptr, 2, C_fix(-1), x); - } -} - -C_regparm C_word -C_s_a_i_arithmetic_shift(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, size, negp, res, - digit_offset, bit_offset; - - if (!(y & C_FIXNUM_BIT)) - barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, "arithmetic-shift", y); - - y = C_unfix(y); - if (y == 0 || x == C_fix(0)) { /* Done (no shift) */ - return x; - } else if (x & C_FIXNUM_BIT) { - if (y < 0) { - /* Don't shift more than a word's length (that's undefined in C!) */ - if (-y < C_WORD_SIZE) { - return C_fix(C_unfix(x) >> -y); - } else { - return (x < 0) ? C_fix(-1) : C_fix(0); - } - } else if (y > 0 && y < C_WORD_SIZE-2 && - /* After shifting, the length still fits a fixnum */ - (C_ilen(C_unfix(x)) + y) < C_WORD_SIZE-2) { - return C_fix((C_uword)C_unfix(x) << y); - } else { - x = C_a_u_i_fix_to_big(&a, x); - } - } else if (!C_truep(C_i_bignump(x))) { - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_INTEGER_ERROR, "arithmetic-shift", x); - } - - negp = C_mk_bool(C_bignum_negativep(x)); - - if (y > 0) { /* Shift left */ - C_uword *startr, *startx, *endx, *endr; - - digit_offset = y / C_BIGNUM_DIGIT_LENGTH; - bit_offset = y % C_BIGNUM_DIGIT_LENGTH; - - size = C_fix(C_bignum_size(x) + digit_offset + 1); - res = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); - - startr = C_bignum_digits(res); - endr = startr + C_bignum_size(res); - - startx = C_bignum_digits(x); - endx = startx + C_bignum_size(x); - - /* Initialize only the lower digits we're skipping and the MSD */ - C_memset(startr, 0, C_wordstobytes(digit_offset)); - *(endr-1) = 0; - startr += digit_offset; - /* Can't use bignum_digits_destructive_copy because it assumes - * we want to copy from the start. - */ - C_memcpy(startr, startx, C_wordstobytes(endx-startx)); - if(bit_offset > 0) - bignum_digits_destructive_shift_left(startr, endr, bit_offset); - - return C_bignum_simplify(res); - } else if (-y >= C_bignum_size(x) * (C_word)C_BIGNUM_DIGIT_LENGTH) { - /* All bits are shifted out, just return 0 or -1 */ - return C_truep(negp) ? C_fix(-1) : C_fix(0); - } else { /* Shift right */ - C_uword *startr, *startx, *endr; - C_word nx; - - digit_offset = -y / C_BIGNUM_DIGIT_LENGTH; - bit_offset = -y % C_BIGNUM_DIGIT_LENGTH; - - size = C_fix(C_bignum_size(x) - digit_offset); - res = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); - - startr = C_bignum_digits(res); - endr = startr + C_bignum_size(res); - - size = C_bignum_size(x) + 1; - if (C_truep(nx = maybe_negate_bignum_for_bitwise_op(x, size))) { - startx = C_bignum_digits(nx) + digit_offset; - } else { - startx = C_bignum_digits(x) + digit_offset; - } - /* Can't use bignum_digits_destructive_copy because that assumes - * target is at least as big as source. - */ - C_memcpy(startr, startx, C_wordstobytes(endr-startr)); - if(bit_offset > 0) - bignum_digits_destructive_shift_right(startr,endr,bit_offset,C_truep(nx)); - - if (C_truep(nx)) { - free_tmp_bignum(nx); - bignum_digits_destructive_negate(res); - } - return C_bignum_simplify(res); - } -} - - -C_regparm C_word C_a_i_exp(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "exp", f); - return C_flonum(a, C_exp(f)); -} - - -C_regparm C_word C_a_i_log(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "log", f); - return C_flonum(a, C_log(f)); -} - - -C_regparm C_word C_a_i_sin(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "sin", f); - return C_flonum(a, C_sin(f)); -} - - -C_regparm C_word C_a_i_cos(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "cos", f); - return C_flonum(a, C_cos(f)); -} - - -C_regparm C_word C_a_i_tan(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "tan", f); - return C_flonum(a, C_tan(f)); -} - - -C_regparm C_word C_a_i_asin(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "asin", f); - return C_flonum(a, C_asin(f)); -} - - -C_regparm C_word C_a_i_acos(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "acos", f); - return C_flonum(a, C_acos(f)); -} - - -C_regparm C_word C_a_i_atan(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "atan", f); - return C_flonum(a, C_atan(f)); -} - - -C_regparm C_word 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, C_atan2(f1, f2)); -} - - -C_regparm C_word C_a_i_sinh(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "sinh", f); - return C_flonum(a, C_sinh(f)); -} - - -C_regparm C_word C_a_i_cosh(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "cosh", f); - return C_flonum(a, C_cosh(f)); -} - - -C_regparm C_word C_a_i_tanh(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "tanh", f); - return C_flonum(a, C_tanh(f)); -} - - -C_regparm C_word C_a_i_asinh(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "asinh", f); - return C_flonum(a, C_asinh(f)); -} - - -C_regparm C_word C_a_i_acosh(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "acosh", f); - return C_flonum(a, C_acosh(f)); -} - - -C_regparm C_word C_a_i_atanh(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "atanh", f); - return C_flonum(a, C_atanh(f)); -} - - -C_regparm C_word C_a_i_sqrt(C_word **a, int c, C_word n) -{ - double f; - - C_check_real(n, "sqrt", f); - return C_flonum(a, C_sqrt(f)); -} - - -C_regparm C_word C_i_assq(C_word x, C_word lst) -{ - C_word a; - - while(!C_immediatep(lst) && C_header_type(lst) == C_PAIR_TYPE) { - a = C_u_i_car(lst); - - if(!C_immediatep(a) && C_header_type(a) == C_PAIR_TYPE) { - 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_i_assv(C_word x, C_word lst) -{ - C_word a; - - while(!C_immediatep(lst) && C_header_type(lst) == C_PAIR_TYPE) { - a = C_u_i_car(lst); - - if(!C_immediatep(a) && C_header_type(a) == C_PAIR_TYPE) { - 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_i_assoc(C_word x, C_word lst) -{ - C_word a; - - while(!C_immediatep(lst) && C_header_type(lst) == C_PAIR_TYPE) { - a = C_u_i_car(lst); - - if(!C_immediatep(a) && C_header_type(a) == C_PAIR_TYPE) { - 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_i_memq(C_word x, C_word lst) -{ - while(!C_immediatep(lst) && C_header_type(lst) == C_PAIR_TYPE) { - 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_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_i_memv(C_word x, C_word lst) -{ - while(!C_immediatep(lst) && C_header_type(lst) == C_PAIR_TYPE) { - 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_i_member(C_word x, C_word lst) -{ - while(!C_immediatep(lst) && C_header_type(lst) == C_PAIR_TYPE) { - 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_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_i_check_fixnum_2(C_word x, C_word loc) -{ - if(!(x & C_FIXNUM_BIT)) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - -/* DEPRECATED */ -C_regparm C_word C_i_check_exact_2(C_word x, C_word loc) -{ - if(C_u_i_exactp(x) == C_SCHEME_FALSE) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_EXACT_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_i_check_inexact_2(C_word x, C_word loc) -{ - if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_INEXACT_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_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_i_check_number_2(C_word x, C_word loc) -{ - if (C_i_numberp(x) == C_SCHEME_FALSE) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_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_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_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_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_i_check_pair_2(C_word x, C_word loc) -{ - if(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_PAIR_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word 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_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_i_check_symbol_2(C_word x, C_word loc) -{ - if(!C_truep(C_i_symbolp(x))) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_SYMBOL_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_i_check_keyword_2(C_word x, C_word loc) -{ - if(!C_truep(C_i_keywordp(x))) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_KEYWORD_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_check_list_2(C_word x, C_word loc) -{ - if(x != C_SCHEME_END_OF_LIST && (C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE)) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_LIST_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_i_check_port_2(C_word x, C_word dir, C_word open, C_word loc) -{ - - if(C_immediatep(x) || C_header_bits(x) != C_PORT_TYPE) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_PORT_ERROR, NULL, x); - } - - if((C_block_item(x, 1) & dir) != dir) { /* slot #1: I/O direction mask */ - error_location = loc; - switch (dir) { - case C_fix(1): - barf(C_BAD_ARGUMENT_TYPE_PORT_NO_INPUT_ERROR, NULL, x); - case C_fix(2): - barf(C_BAD_ARGUMENT_TYPE_PORT_NO_OUTPUT_ERROR, NULL, x); - default: - barf(C_BAD_ARGUMENT_TYPE_PORT_DIRECTION_ERROR, NULL, x); - } - } - - if(open == C_SCHEME_TRUE) { - if(C_block_item(x, 8) == C_FIXNUM_BIT) { /* slot #8: closed mask */ - error_location = loc; - barf(C_PORT_CLOSED_ERROR, NULL, x); - } - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_i_check_range_2(C_word i, C_word f, C_word t, C_word loc) -{ - if(!(i & C_FIXNUM_BIT)) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, NULL, i); - } - - int index = C_unfix(i); - - if(index < C_unfix(f)) { - error_location = loc; - barf(C_OUT_OF_BOUNDS_ERROR, NULL, f, i); - } - - if(index >= C_unfix(t)) { - error_location = loc; - barf(C_OUT_OF_BOUNDS_ERROR, NULL, t, i); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_i_check_range_including_2(C_word i, C_word f, C_word t, C_word loc) -{ - if(!(i & C_FIXNUM_BIT)) { - error_location = loc; - barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, NULL, i); - } - - int index = C_unfix(i); - - if(index < C_unfix(f)) { - error_location = loc; - barf(C_OUT_OF_BOUNDS_ERROR, NULL, f, i); - } - - if(index > C_unfix(t)) { - error_location = loc; - barf(C_OUT_OF_BOUNDS_ERROR, NULL, t, i); - } - - return C_SCHEME_UNDEFINED; -} - - -/*XXX these are not correctly named */ -C_regparm C_word 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_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_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_i_foreign_cplxnum_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_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_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_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_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_i_foreign_pointer_argumentp(C_word x) -{ - if(C_immediatep(x) || (C_header_bits(x) & C_SPECIALBLOCK_BIT) == 0) - barf(C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR, NULL, x); - - return x; -} - - -/* TODO: Is this used? */ -C_regparm C_word C_i_foreign_scheme_or_c_pointer_argumentp(C_word x) -{ - if(C_immediatep(x) || (C_header_bits(x) & C_SPECIALBLOCK_BIT) == 0) - barf(C_BAD_ARGUMENT_TYPE_NO_POINTER_ERROR, NULL, x); - - return x; -} - - -C_regparm C_word C_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_i_foreign_ranged_integer_argumentp(C_word x, C_word bits) -{ - if((x & C_FIXNUM_BIT) != 0) { - if (C_truep(C_fixnum_lessp(C_i_fixnum_length(x), bits))) return x; - else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); - } else if (C_truep(C_i_bignump(x))) { - if (C_truep(C_fixnum_lessp(C_i_integer_length(x), bits))) return x; - else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, NULL, x); - } -} - -C_regparm C_word C_i_foreign_unsigned_ranged_integer_argumentp(C_word x, C_word bits) -{ - if((x & C_FIXNUM_BIT) != 0) { - if(x & C_INT_SIGN_BIT) barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); - else if(C_ilen(C_unfix(x)) <= C_unfix(bits)) return x; - else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); - } else if(C_truep(C_i_bignump(x))) { - if(C_bignum_negativep(x)) barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); - else if(integer_length_abs(x) <= C_unfix(bits)) return x; - else barf(C_BAD_ARGUMENT_TYPE_FOREIGN_LIMITATION, NULL, x); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_UINTEGER_ERROR, NULL, x); - } -} - -/* I */ -C_regparm C_word C_i_not_pair_p_2(C_word x) -{ - return C_mk_bool(C_immediatep(x) || C_header_type(x) != C_PAIR_TYPE); -} - - -C_regparm C_word 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_header_type(x) == C_PAIR_TYPE) 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_i_string_null_p(C_word x) -{ - if(!C_immediatep(x) && C_header_bits(x) == C_STRING_TYPE) - return C_mk_bool(C_unfix(C_block_item(x, 1)) == 0); - else { - barf(C_BAD_ARGUMENT_TYPE_NO_STRING_ERROR, "string-null?", x); - return C_SCHEME_FALSE; - } -} - - -C_regparm C_word 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; -} - -/* only used here for char comparators below: */ -static C_word check_char_internal(C_word x, C_char *loc) -{ - if((x & C_IMMEDIATE_TYPE_BITS) != C_CHARACTER_BITS) { - error_location = intern0(loc); - barf(C_BAD_ARGUMENT_TYPE_NO_CHAR_ERROR, NULL, x); - } - - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_i_char_equalp(C_word x, C_word y) -{ - check_char_internal(x, "char=?"); - check_char_internal(y, "char=?"); - return C_u_i_char_equalp(x, y); -} - -C_regparm C_word C_i_char_greaterp(C_word x, C_word y) -{ - check_char_internal(x, "char>?"); - check_char_internal(y, "char>?"); - return C_u_i_char_greaterp(x, y); -} - -C_regparm C_word C_i_char_lessp(C_word x, C_word y) -{ - check_char_internal(x, "char=?"); - check_char_internal(y, "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) -{ - check_char_internal(x, "char<=?"); - check_char_internal(y, "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_header_type(lst) != C_PAIR_TYPE)) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "apply", lst); - - len = C_unfix(C_u_i_length(lst)); - av2_size = 2 + non_list_args + len; - - if(C_demand(av2_size)) - stack_check_demand = 0; - else if(stack_check_demand) - C_stack_overflow("apply"); - else { - stack_check_demand = av2_size; - C_save_and_reclaim((void *)C_apply, c, av); - } - - av2 = ptr = C_alloc(av2_size); - *(ptr++) = fn; - *(ptr++) = k; - - if(non_list_args > 0) { - C_memcpy(ptr, av + 3, non_list_args * sizeof(C_word)); - ptr += non_list_args; - } - - while(len--) { - *(ptr++) = C_u_i_car(lst); - lst = C_u_i_cdr(lst); - } - - assert((ptr - av2) == av2_size); - - ((C_proc)(void *)C_block_item(fn, 0))(av2_size, av2); -} - - -void C_ccall C_call_cc(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - cont = av[ 2 ], - *a = C_alloc(C_SIZEOF_CLOSURE(2)), - wrapper; - void *pr = (void *)C_block_item(cont,0); - C_word av2[ 3 ]; - - if(C_immediatep(cont) || C_header_bits(cont) != C_CLOSURE_TYPE) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "call-with-current-continuation", cont); - - /* Check for values-continuation: */ - if(C_block_item(k, 0) == (C_word)values_continuation) - wrapper = C_closure(&a, 2, (C_word)call_cc_values_wrapper, k); - else wrapper = C_closure(&a, 2, (C_word)call_cc_wrapper, k); - - av2[ 0 ] = cont; - av2[ 1 ] = k; - av2[ 2 ] = wrapper; - ((C_proc)pr)(3, av2); -} - - -void C_ccall call_cc_wrapper(C_word c, C_word *av) -{ - C_word - closure = av[ 0 ], - /* av[ 1 ] is current k and ignored */ - result, - k = C_block_item(closure, 1); - - if(c != 3) C_bad_argc(c, 3); - - result = av[ 2 ]; - C_kontinue(k, result); -} - - -void C_ccall call_cc_values_wrapper(C_word c, C_word *av) -{ - C_word - closure = av[ 0 ], - /* av[ 1 ] is current k and ignored */ - k = C_block_item(closure, 1), - x1, - n = c; - - av[ 0 ] = k; /* reuse av */ - C_memmove(av + 1, av + 2, (n - 1) * sizeof(C_word)); - C_do_apply(n - 1, av); -} - - -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_header_type(lst) != C_PAIR_TYPE)) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "apply", lst); - - /* Check whether continuation receives multiple values: */ - if(C_block_item(k, 0) == (C_word)values_continuation) { - C_word *av2, *ptr; - - len = C_unfix(C_u_i_length(lst)); - n = len + 1; - - if(C_demand(n)) - stack_check_demand = 0; - else if(stack_check_demand) - C_stack_overflow("apply"); - else { - stack_check_demand = n; - C_save_and_reclaim((void *)C_apply_values, c, av); - } - - av2 = C_alloc(n); - av2[ 0 ] = k; - ptr = av2 + 1; - while(len--) { - *(ptr++) = C_u_i_car(lst); - lst = C_u_i_cdr(lst); - } - - C_do_apply(n, av2); - } - - if(C_immediatep(lst)) { -#ifdef RELAX_MULTIVAL_CHECK - n = C_SCHEME_UNDEFINED; -#else - barf(C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR, "values", k); -#endif - } - else if(C_header_type(lst) == C_PAIR_TYPE) { - if(C_u_i_cdr(lst) == C_SCHEME_END_OF_LIST) - n = C_u_i_car(lst); - else { -#ifdef RELAX_MULTIVAL_CHECK - n = C_u_i_car(lst); -#else - barf(C_CONTINUATION_CANT_RECEIVE_VALUES_ERROR, "values", k); -#endif - } - } - else barf(C_BAD_ARGUMENT_TYPE_ERROR, "apply", lst); - - C_kontinue(k, n); -} - - -void C_ccall C_call_with_values(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - thunk, - kont, - *a = C_alloc(C_SIZEOF_CLOSURE(3)), - kk; - - if(c != 4) C_bad_argc(c, 4); - - thunk = av[ 2 ]; - kont = av[ 3 ]; - - if(C_immediatep(thunk) || C_header_bits(thunk) != C_CLOSURE_TYPE) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "call-with-values", thunk); - - if(C_immediatep(kont) || C_header_bits(kont) != C_CLOSURE_TYPE) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "call-with-values", kont); - - kk = C_closure(&a, 3, (C_word)values_continuation, kont, k); - av[ 0 ] = thunk; /* reuse av */ - av[ 1 ] = kk; - C_do_apply(2, av); -} - - -void C_ccall C_u_call_with_values(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - thunk = av[ 2 ], - kont = av[ 3 ], - *a = C_alloc(C_SIZEOF_CLOSURE(3)), - kk; - - kk = C_closure(&a, 3, (C_word)values_continuation, kont, k); - av[ 0 ] = thunk; /* reuse av */ - av[ 1 ] = kk; - C_do_apply(2, av); -} - - -void C_ccall values_continuation(C_word c, C_word *av) -{ - C_word - closure = av[ 0 ], - kont = C_block_item(closure, 1), - k = C_block_item(closure, 2), - *av2 = C_alloc(c + 1); - - av2[ 0 ] = kont; - av2[ 1 ] = k; - C_memcpy(av2 + 2, av + 1, (c - 1) * sizeof(C_word)); - C_do_apply(c + 1, av2); -} - -static C_word rat_times_integer(C_word **ptr, C_word rat, C_word i) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM * 2], *a = ab, num, denom, gcd, a_div_g; - - switch (i) { - case C_fix(0): return C_fix(0); - case C_fix(1): return rat; - case C_fix(-1): - num = C_s_a_u_i_integer_negate(ptr, 1, C_u_i_ratnum_num(rat)); - return C_ratnum(ptr, num , C_u_i_ratnum_denom(rat)); - /* default: CONTINUE BELOW */ - } - - num = C_u_i_ratnum_num(rat); - denom = C_u_i_ratnum_denom(rat); - - /* a/b * c/d = a*c / b*d [with b = 1] */ - /* = ((a / g) * c) / (d / g) */ - /* With g = gcd(a, d) and a = x [Knuth, 4.5.1] */ - gcd = C_s_a_u_i_integer_gcd(&a, 2, i, denom); - - /* Calculate a/g (= i/gcd), which will later be multiplied by y */ - a_div_g = C_s_a_u_i_integer_quotient(&a, 2, i, gcd); - if (a_div_g == C_fix(0)) { - clear_buffer_object(ab, gcd); - return C_fix(0); /* Save some work */ - } - - /* Final numerator = a/g * c (= a_div_g * num) */ - num = C_s_a_u_i_integer_times(ptr, 2, a_div_g, num); - - /* Final denominator = d/g (= denom/gcd) */ - denom = C_s_a_u_i_integer_quotient(ptr, 2, denom, gcd); - - num = move_buffer_object(ptr, ab, num); - denom = move_buffer_object(ptr, ab, denom); - - clear_buffer_object(ab, gcd); - clear_buffer_object(ab, a_div_g); - - if (denom == C_fix(1)) return num; - else return C_ratnum(ptr, num, denom); -} - -static C_word rat_times_rat(C_word **ptr, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM * 6], *a = ab, - num, denom, xnum, xdenom, ynum, ydenom, - g1, g2, a_div_g1, b_div_g2, c_div_g2, d_div_g1; - - xnum = C_u_i_ratnum_num(x); - xdenom = C_u_i_ratnum_denom(x); - ynum = C_u_i_ratnum_num(y); - ydenom = C_u_i_ratnum_denom(y); - - /* a/b * c/d = a*c / b*d [generic] */ - /* = ((a / g1) * (c / g2)) / ((b / g2) * (d / g1)) */ - /* With g1 = gcd(a, d) and g2 = gcd(b, c) [Knuth, 4.5.1] */ - g1 = C_s_a_u_i_integer_gcd(&a, 2, xnum, ydenom); - g2 = C_s_a_u_i_integer_gcd(&a, 2, ynum, xdenom); - - /* Calculate a/g1 (= xnum/g1), which will later be multiplied by c/g2 */ - a_div_g1 = C_s_a_u_i_integer_quotient(&a, 2, xnum, g1); - - /* Calculate c/g2 (= ynum/g2), which will later be multiplied by a/g1 */ - c_div_g2 = C_s_a_u_i_integer_quotient(&a, 2, ynum, g2); - - /* Final numerator = a/g1 * c/g2 */ - num = C_s_a_u_i_integer_times(ptr, 2, a_div_g1, c_div_g2); - - /* Now, do the same for the denominator.... */ - - /* Calculate b/g2 (= xdenom/g2), which will later be multiplied by d/g1 */ - b_div_g2 = C_s_a_u_i_integer_quotient(&a, 2, xdenom, g2); - - /* Calculate d/g1 (= ydenom/g1), which will later be multiplied by b/g2 */ - d_div_g1 = C_s_a_u_i_integer_quotient(&a, 2, ydenom, g1); - - /* Final denominator = b/g2 * d/g1 */ - denom = C_s_a_u_i_integer_times(ptr, 2, b_div_g2, d_div_g1); - - num = move_buffer_object(ptr, ab, num); - denom = move_buffer_object(ptr, ab, denom); - - clear_buffer_object(ab, g1); - clear_buffer_object(ab, g2); - clear_buffer_object(ab, a_div_g1); - clear_buffer_object(ab, b_div_g2); - clear_buffer_object(ab, c_div_g2); - clear_buffer_object(ab, d_div_g1); - - if (denom == C_fix(1)) return num; - else return C_ratnum(ptr, num, denom); -} - -static C_word -cplx_times(C_word **ptr, C_word rx, C_word ix, C_word ry, C_word iy) -{ - /* Allocation here is kind of tricky: Each intermediate result can - * be at most a ratnum consisting of two bignums (2 digits), so - * C_SIZEOF_RATNUM + C_SIZEOF_BIGNUM(2) = 9 words - */ - C_word ab[(C_SIZEOF_RATNUM + C_SIZEOF_BIGNUM(2))*6], *a = ab, - r1, r2, i1, i2, r, i; - - /* a+bi * c+di = (a*c - b*d) + (a*d + b*c)i */ - /* We call these: r1 = a*c, r2 = b*d, i1 = a*d, i2 = b*c */ - r1 = C_s_a_i_times(&a, 2, rx, ry); - r2 = C_s_a_i_times(&a, 2, ix, iy); - i1 = C_s_a_i_times(&a, 2, rx, iy); - i2 = C_s_a_i_times(&a, 2, ix, ry); - - r = C_s_a_i_minus(ptr, 2, r1, r2); - i = C_s_a_i_plus(ptr, 2, i1, i2); - - r = move_buffer_object(ptr, ab, r); - i = move_buffer_object(ptr, ab, i); - - clear_buffer_object(ab, r1); - clear_buffer_object(ab, r2); - clear_buffer_object(ab, i1); - clear_buffer_object(ab, i2); - - if (C_truep(C_u_i_zerop2(i))) return r; - else return C_cplxnum(ptr, r, i); -} - -/* The maximum size this needs is that required to store a complex - * number result, where both real and imag parts consist of ratnums. - * The maximum size of those ratnums is if they consist of two bignums - * from a fixnum multiplication (2 digits each), so we're looking at - * C_SIZEOF_RATNUM * 3 + C_SIZEOF_BIGNUM(2) * 4 = 33 words! - */ -C_regparm C_word -C_s_a_i_times(C_word **ptr, C_word n, C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_a_i_fixnum_times(ptr, 2, x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_flonum(ptr, (double)C_unfix(x) * C_flonum_magnitude(y)); - } else if (C_truep(C_bignump(y))) { - return C_s_a_u_i_integer_times(ptr, 2, x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return rat_times_integer(ptr, y, x); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - return cplx_times(ptr, x, C_fix(0), - C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); - } - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - if (y & C_FIXNUM_BIT) { - return C_flonum(ptr, C_flonum_magnitude(x) * (double)C_unfix(y)); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_a_i_flonum_times(ptr, 2, x, y); - } else if (C_truep(C_bignump(y))) { - return C_flonum(ptr, C_flonum_magnitude(x) * C_bignum_to_double(y)); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return C_s_a_i_times(ptr, 2, x, C_a_i_exact_to_inexact(ptr, 1, y)); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word ab[C_SIZEOF_FLONUM], *a = ab; - return cplx_times(ptr, x, C_flonum(&a, 0.0), - C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); - } - } else if (C_truep(C_bignump(x))) { - if (y & C_FIXNUM_BIT) { - return C_s_a_u_i_integer_times(ptr, 2, x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", x); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_flonum(ptr, C_bignum_to_double(x) * C_flonum_magnitude(y)); - } else if (C_truep(C_bignump(y))) { - return C_s_a_u_i_integer_times(ptr, 2, x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return rat_times_integer(ptr, y, x); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - return cplx_times(ptr, x, C_fix(0), - C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); - } - } else if (C_block_header(x) == C_RATNUM_TAG) { - if (y & C_FIXNUM_BIT) { - return rat_times_integer(ptr, x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_s_a_i_times(ptr, 2, C_a_i_exact_to_inexact(ptr, 1, x), y); - } else if (C_truep(C_bignump(y))) { - return rat_times_integer(ptr, x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return rat_times_rat(ptr, x, y); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - return cplx_times(ptr, x, C_fix(0), - C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", y); - } - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - if (!C_immediatep(y) && C_block_header(y) == C_CPLXNUM_TAG) { - return cplx_times(ptr, C_u_i_cplxnum_real(x), C_u_i_cplxnum_imag(x), - C_u_i_cplxnum_real(y), C_u_i_cplxnum_imag(y)); - } else { - C_word ab[C_SIZEOF_FLONUM], *a = ab, yi; - yi = C_truep(C_i_flonump(y)) ? C_flonum(&a,0) : C_fix(0); - return cplx_times(ptr, C_u_i_ratnum_num(x), C_u_i_ratnum_denom(x), y, yi); - } - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "*", x); - } -} - - -C_regparm C_word -C_s_a_u_i_integer_times(C_word **ptr, C_word n, C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_a_i_fixnum_times(ptr, 2, x, y); - } else { - C_word tmp = x; /* swap to ensure x is a bignum and y a fixnum */ - x = y; - y = tmp; - } - } - /* Here, we know for sure that X is a bignum */ - if (y == C_fix(0)) { - return C_fix(0); - } else if (y == C_fix(1)) { - return x; - } else if (y == C_fix(-1)) { - return C_s_a_u_i_integer_negate(ptr, 1, x); - } else if (y & C_FIXNUM_BIT) { /* Any other fixnum */ - C_word absy = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y), - negp = C_mk_bool((y & C_INT_SIGN_BIT) ? - !C_bignum_negativep(x) : - C_bignum_negativep(x)); - - if (C_fitsinbignumhalfdigitp(absy) || - (((C_uword)1 << (C_ilen(absy)-1)) == absy && C_fitsinfixnump(absy))) { - C_word size, res; - C_uword *startr, *endr; - int shift; - size = C_bignum_size(x) + 1; /* Needs _at most_ one more digit */ - res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_FALSE); - - bignum_digits_destructive_copy(res, x); - - startr = C_bignum_digits(res); - endr = startr + size - 1; - /* Scale up, and sanitise the result. */ - shift = C_ilen(absy) - 1; - if (((C_uword)1 << shift) == absy) { /* Power of two? */ - *endr = bignum_digits_destructive_shift_left(startr, endr, shift); - } else { - *endr = bignum_digits_destructive_scale_up_with_carry(startr, endr, - absy, 0); - } - return C_bignum_simplify(res); - } else { - C_word *a = C_alloc(C_SIZEOF_FIX_BIGNUM); - y = C_a_u_i_fix_to_big(&a, y); - return bignum_times_bignum_unsigned(ptr, x, y, negp); - } - } else { - C_word negp = C_bignum_negativep(x) ? - !C_bignum_negativep(y) : - C_bignum_negativep(y); - return bignum_times_bignum_unsigned(ptr, x, y, C_mk_bool(negp)); - } -} - -static C_regparm C_word -bignum_times_bignum_unsigned(C_word **ptr, C_word x, C_word y, C_word negp) -{ - C_word size, res = C_SCHEME_FALSE; - if (C_bignum_size(y) < C_bignum_size(x)) { /* Ensure size(x) <= size(y) */ - C_word z = x; - x = y; - y = z; - } - - if (C_bignum_size(x) >= C_KARATSUBA_THRESHOLD) - res = bignum_times_bignum_karatsuba(ptr, x, y, negp); - - if (!C_truep(res)) { - size = C_bignum_size(x) + C_bignum_size(y); - res = C_allocate_scratch_bignum(ptr, C_fix(size), negp, C_SCHEME_TRUE); - bignum_digits_multiply(x, y, res); - res = C_bignum_simplify(res); - } - return res; -} - -/* Karatsuba multiplication: invoked when the two numbers are large - * enough to make it worthwhile, and we still have enough stack left. - * Complexity is O(n^log2(3)), where n is max(len(x), len(y)). The - * description in [Knuth, 4.3.3] leaves a lot to be desired. [MCA, - * 1.3.2] and [MpNT, 3.2] are a bit easier to understand. We assume - * that length(x) <= length(y). - */ -static C_regparm C_word -bignum_times_bignum_karatsuba(C_word **ptr, C_word x, C_word y, C_word negp) -{ - C_word kab[C_SIZEOF_FIX_BIGNUM*15+C_SIZEOF_BIGNUM(2)*3], *ka = kab, o[18], - xhi, xlo, xmid, yhi, ylo, ymid, a, b, c, n, bits; - int i = 0; - - /* Ran out of stack? Fall back to non-recursive multiplication */ - C_stack_check1(return C_SCHEME_FALSE); - - /* Split |x| in half: and |y|: with len(ylo)=len(xlo) */ - x = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, x); - y = o[i++] = C_s_a_u_i_integer_abs(&ka, 1, y); - n = C_fix(C_bignum_size(y) >> 1); - xhi = o[i++] = bignum_extract_digits(&ka, 3, x, n, C_SCHEME_FALSE); - xlo = o[i++] = bignum_extract_digits(&ka, 3, x, C_fix(0), n); - yhi = o[i++] = bignum_extract_digits(&ka, 3, y, n, C_SCHEME_FALSE); - ylo = o[i++] = bignum_extract_digits(&ka, 3, y, C_fix(0), n); - - /* a = xhi * yhi, b = xlo * ylo, c = (xhi - xlo) * (yhi - ylo) */ - a = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xhi, yhi); - b = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xlo, ylo); - xmid = o[i++] = C_s_a_u_i_integer_minus(&ka, 2, xhi, xlo); - ymid = o[i++] = C_s_a_u_i_integer_minus(&ka, 2, yhi, ylo); - c = o[i++] = C_s_a_u_i_integer_times(&ka, 2, xmid, ymid); - - /* top(x) = a << (bits - 1) and bottom(y) = ((b + (a - c)) << bits) + b */ - bits = C_unfix(n) * C_BIGNUM_DIGIT_LENGTH; - x = o[i++] = C_s_a_i_arithmetic_shift(&ka, 2, a, C_fix((C_uword)bits << 1)); - c = o[i++] = C_s_a_u_i_integer_minus(&ka, 2, a, c); - c = o[i++] = C_s_a_u_i_integer_plus(&ka, 2, b, c); - c = o[i++] = C_s_a_i_arithmetic_shift(&ka, 2, c, C_fix(bits)); - y = o[i++] = C_s_a_u_i_integer_plus(&ka, 2, c, b); - /* Finally, return top + bottom, and correct for negative */ - n = o[i++] = C_s_a_u_i_integer_plus(&ka, 2, x, y); - if (C_truep(negp)) n = o[i++] = C_s_a_u_i_integer_negate(&ka, 1, n); - - n = move_buffer_object(ptr, kab, n); - while(i--) clear_buffer_object(kab, o[i]); - return n; -} - -void C_ccall C_times(C_word c, C_word *av) -{ - /* C_word closure = av[ 0 ]; */ - C_word k = av[ 1 ]; - C_word next_val, - result = C_fix(1), - prev_result = result; - C_word ab[2][C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM*2 + C_SIZEOF_BIGNUM(2) * 4], *a; - - c -= 2; - av += 2; - - while (c--) { - next_val = *(av++); - a = ab[c&1]; /* One may hold prev iteration result, the other is unused */ - result = C_s_a_i_times(&a, 2, result, next_val); - result = move_buffer_object(&a, ab[(c+1)&1], result); - clear_buffer_object(ab[(c+1)&1], prev_result); - prev_result = result; - } - - C_kontinue(k, result); -} - - -static C_word bignum_plus_unsigned(C_word **ptr, C_word x, C_word y, C_word negp) -{ - C_word size, result; - C_uword sum, digit, *scan_y, *end_y, *scan_r, *end_r; - int carry = 0; - - if (C_bignum_size(y) > C_bignum_size(x)) { /* Ensure size(y) <= size(x) */ - C_word z = x; - x = y; - y = z; - } - - size = C_fix(C_bignum_size(x) + 1); /* One more digit, for possible carry. */ - result = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); - - scan_y = C_bignum_digits(y); - end_y = scan_y + C_bignum_size(y); - scan_r = C_bignum_digits(result); - end_r = scan_r + C_bignum_size(result); - - /* Copy x into r so we can operate on two pointers, which is faster - * than three, and we can stop earlier after adding y. It's slower - * if x and y have equal length. On average it's slightly faster. - */ - bignum_digits_destructive_copy(result, x); - *(end_r-1) = 0; /* Ensure most significant digit is initialised */ - - /* Move over x and y simultaneously, destructively adding digits w/ carry. */ - while (scan_y < end_y) { - digit = *scan_r; - if (carry) { - sum = digit + *scan_y++ + 1; - carry = sum <= digit; - } else { - sum = digit + *scan_y++; - carry = sum < digit; - } - (*scan_r++) = sum; - } - - /* The end of y, the smaller number. Propagate carry into the rest of x. */ - while (carry) { - sum = (*scan_r) + 1; - carry = (sum == 0); - (*scan_r++) = sum; - } - assert(scan_r <= end_r); - - return C_bignum_simplify(result); -} - -static C_word rat_plusmin_integer(C_word **ptr, C_word rat, C_word i, integer_plusmin_op plusmin_op) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM+C_SIZEOF_BIGNUM(2)], *a = ab, - num, denom, tmp, res; - - if (i == C_fix(0)) return rat; - - num = C_u_i_ratnum_num(rat); - denom = C_u_i_ratnum_denom(rat); - - /* a/b [+-] c/d = (a*d [+-] b*c)/(b*d) | d = 1: (num + denom * i) / denom */ - tmp = C_s_a_u_i_integer_times(&a, 2, denom, i); - res = plusmin_op(&a, 2, num, tmp); - res = move_buffer_object(ptr, ab, res); - clear_buffer_object(ab, tmp); - return C_ratnum(ptr, res, denom); -} - -/* This is needed only for minus: plus is commutative but minus isn't. */ -static C_word integer_minus_rat(C_word **ptr, C_word i, C_word rat) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM+C_SIZEOF_BIGNUM(2)], *a = ab, - num, denom, tmp, res; - - num = C_u_i_ratnum_num(rat); - denom = C_u_i_ratnum_denom(rat); - - if (i == C_fix(0)) - return C_ratnum(ptr, C_s_a_u_i_integer_negate(ptr, 1, num), denom); - - /* a/b - c/d = (a*d - b*c)/(b*d) | b = 1: (denom * i - num) / denom */ - tmp = C_s_a_u_i_integer_times(&a, 2, denom, i); - res = C_s_a_u_i_integer_minus(&a, 2, tmp, num); - res = move_buffer_object(ptr, ab, res); - clear_buffer_object(ab, tmp); - return C_ratnum(ptr, res, denom); -} - -/* This is pretty braindead and ugly */ -static C_word rat_plusmin_rat(C_word **ptr, C_word x, C_word y, integer_plusmin_op plusmin_op) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*6 + C_SIZEOF_BIGNUM(2)*2], *a = ab, - xnum = C_u_i_ratnum_num(x), ynum = C_u_i_ratnum_num(y), - xdenom = C_u_i_ratnum_denom(x), ydenom = C_u_i_ratnum_denom(y), - xnorm, ynorm, tmp_r, g1, ydenom_g1, xdenom_g1, norm_sum, g2, len, - res_num, res_denom; - - /* Knuth, 4.5.1. Start with g1 = gcd(xdenom, ydenom) */ - g1 = C_s_a_u_i_integer_gcd(&a, 2, xdenom, ydenom); - - /* xnorm = xnum * (ydenom/g1) */ - ydenom_g1 = C_s_a_u_i_integer_quotient(&a, 2, ydenom, g1); - xnorm = C_s_a_u_i_integer_times(&a, 2, xnum, ydenom_g1); - - /* ynorm = ynum * (xdenom/g1) */ - xdenom_g1 = C_s_a_u_i_integer_quotient(&a, 2, xdenom, g1); - ynorm = C_s_a_u_i_integer_times(&a, 2, ynum, xdenom_g1); - - /* norm_sum = xnorm [+-] ynorm */ - norm_sum = plusmin_op(&a, 2, xnorm, ynorm); - - /* g2 = gcd(norm_sum, g1) */ - g2 = C_s_a_u_i_integer_gcd(&a, 2, norm_sum, g1); - - /* res_num = norm_sum / g2 */ - res_num = C_s_a_u_i_integer_quotient(ptr, 2, norm_sum, g2); - if (res_num == C_fix(0)) { - res_denom = C_fix(0); /* No need to calculate denom: we'll return 0 */ - } else { - /* res_denom = xdenom_g1 * (ydenom / g2) */ - C_word res_tmp_denom = C_s_a_u_i_integer_quotient(&a, 2, ydenom, g2); - res_denom = C_s_a_u_i_integer_times(ptr, 2, xdenom_g1, res_tmp_denom); - - /* Ensure they're allocated in the correct place */ - res_num = move_buffer_object(ptr, ab, res_num); - res_denom = move_buffer_object(ptr, ab, res_denom); - clear_buffer_object(ab, res_tmp_denom); - } - - clear_buffer_object(ab, xdenom_g1); - clear_buffer_object(ab, ydenom_g1); - clear_buffer_object(ab, xnorm); - clear_buffer_object(ab, ynorm); - clear_buffer_object(ab, norm_sum); - clear_buffer_object(ab, g1); - clear_buffer_object(ab, g2); - - switch (res_denom) { - case C_fix(0): return C_fix(0); - case C_fix(1): return res_num; - default: return C_ratnum(ptr, res_num, res_denom); - } -} - -/* The maximum size this needs is that required to store a complex - * number result, where both real and imag parts consist of ratnums. - * The maximum size of those ratnums is if they consist of two "fix - * bignums", so we're looking at C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM * - * 2 + C_SIZEOF_FIX_BIGNUM * 4 = 29 words! - */ -C_regparm C_word -C_s_a_i_plus(C_word **ptr, C_word n, C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_a_i_fixnum_plus(ptr, 2, x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_flonum(ptr, (double)C_unfix(x) + C_flonum_magnitude(y)); - } else if (C_truep(C_bignump(y))) { - return C_s_a_u_i_integer_plus(ptr, 2, x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return rat_plusmin_integer(ptr, y, x, C_s_a_u_i_integer_plus); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_u_i_cplxnum_imag(y); - if (C_truep(C_u_i_inexactp(real_sum))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_sum, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - if (y & C_FIXNUM_BIT) { - return C_flonum(ptr, C_flonum_magnitude(x) + (double)C_unfix(y)); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_a_i_flonum_plus(ptr, 2, x, y); - } else if (C_truep(C_bignump(y))) { - return C_flonum(ptr, C_flonum_magnitude(x)+C_bignum_to_double(y)); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return C_s_a_i_plus(ptr, 2, x, C_a_i_exact_to_inexact(ptr, 1, y)); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_u_i_cplxnum_imag(y); - if (C_truep(C_u_i_inexactp(real_sum))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_sum, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } - } else if (C_truep(C_bignump(x))) { - if (y & C_FIXNUM_BIT) { - return C_s_a_u_i_integer_plus(ptr, 2, x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_flonum(ptr, C_bignum_to_double(x)+C_flonum_magnitude(y)); - } else if (C_truep(C_bignump(y))) { - return C_s_a_u_i_integer_plus(ptr, 2, x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return rat_plusmin_integer(ptr, y, x, C_s_a_u_i_integer_plus); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_u_i_cplxnum_imag(y); - if (C_truep(C_u_i_inexactp(real_sum))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_sum, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } - } else if (C_block_header(x) == C_RATNUM_TAG) { - if (y & C_FIXNUM_BIT) { - return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_plus); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_s_a_i_plus(ptr, 2, C_a_i_exact_to_inexact(ptr, 1, x), y); - } else if (C_truep(C_bignump(y))) { - return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_plus); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return rat_plusmin_rat(ptr, x, y, C_s_a_u_i_integer_plus); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_sum = C_s_a_i_plus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_u_i_cplxnum_imag(y); - if (C_truep(C_u_i_inexactp(real_sum))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_sum, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", y); - } - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - if (!C_immediatep(y) && C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_sum, imag_sum; - real_sum = C_s_a_i_plus(ptr, 2, C_u_i_cplxnum_real(x), C_u_i_cplxnum_real(y)); - imag_sum = C_s_a_i_plus(ptr, 2, C_u_i_cplxnum_imag(x), C_u_i_cplxnum_imag(y)); - if (C_truep(C_u_i_zerop2(imag_sum))) return real_sum; - else return C_cplxnum(ptr, real_sum, imag_sum); - } else { - C_word real_sum = C_s_a_i_plus(ptr, 2, C_u_i_cplxnum_real(x), y), - imag = C_u_i_cplxnum_imag(x); - if (C_truep(C_u_i_inexactp(real_sum))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_sum, imag); - } - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "+", x); - } -} - -C_regparm C_word -C_s_a_u_i_integer_plus(C_word **ptr, C_word n, C_word x, C_word y) -{ - if ((x & y) & C_FIXNUM_BIT) { - return C_a_i_fixnum_plus(ptr, 2, x, y); - } else { - C_word ab[C_SIZEOF_FIX_BIGNUM * 2 + C_SIZEOF_BIGNUM_WRAPPER], *a = ab; - if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); - if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); - - if (C_bignum_negativep(x)) { - if (C_bignum_negativep(y)) { - return bignum_plus_unsigned(ptr, x, y, C_SCHEME_TRUE); - } else { - return bignum_minus_unsigned(ptr, y, x); - } - } else { - if (C_bignum_negativep(y)) { - return bignum_minus_unsigned(ptr, x, y); - } else { - return bignum_plus_unsigned(ptr, x, y, C_SCHEME_FALSE); - } - } - } -} - -void C_ccall C_plus(C_word c, C_word *av) -{ - /* C_word closure = av[ 0 ]; */ - C_word k = av[ 1 ]; - C_word next_val, - result = C_fix(0), - prev_result = result; - C_word ab[2][C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM*2 + C_SIZEOF_FIX_BIGNUM * 4], *a; - - c -= 2; - av += 2; - - while (c--) { - next_val = *(av++); - a = ab[c&1]; /* One may hold last iteration result, the other is unused */ - result = C_s_a_i_plus(&a, 2, result, next_val); - result = move_buffer_object(&a, ab[(c+1)&1], result); - clear_buffer_object(ab[(c+1)&1], prev_result); - prev_result = result; - } - - C_kontinue(k, result); -} - -static C_word bignum_minus_unsigned(C_word **ptr, C_word x, C_word y) -{ - C_word res, size; - C_uword *scan_r, *end_r, *scan_y, *end_y, difference, digit; - int borrow = 0; - - switch(bignum_cmp_unsigned(x, y)) { - case 0: /* x = y, return 0 */ - return C_fix(0); - case -1: /* abs(x) < abs(y), return -(abs(y) - abs(x)) */ - size = C_fix(C_bignum_size(y)); /* Maximum size of result is length of y. */ - res = C_allocate_scratch_bignum(ptr, size, C_SCHEME_TRUE, C_SCHEME_FALSE); - size = y; - y = x; - x = size; - break; - case 1: /* abs(x) > abs(y), return abs(x) - abs(y) */ - default: - size = C_fix(C_bignum_size(x)); /* Maximum size of result is length of x. */ - res = C_allocate_scratch_bignum(ptr, size, C_SCHEME_FALSE, C_SCHEME_FALSE); - break; - } - - scan_r = C_bignum_digits(res); - end_r = scan_r + C_bignum_size(res); - scan_y = C_bignum_digits(y); - end_y = scan_y + C_bignum_size(y); - - bignum_digits_destructive_copy(res, x); /* See bignum_plus_unsigned */ - - /* Destructively subtract y's digits w/ borrow from and back into r. */ - while (scan_y < end_y) { - digit = *scan_r; - if (borrow) { - difference = digit - *scan_y++ - 1; - borrow = difference >= digit; - } else { - difference = digit - *scan_y++; - borrow = difference > digit; - } - (*scan_r++) = difference; - } - - /* The end of y, the smaller number. Propagate borrow into the rest of x. */ - while (borrow) { - digit = *scan_r; - difference = digit - borrow; - borrow = difference >= digit; - (*scan_r++) = difference; - } - - assert(scan_r <= end_r); - - return C_bignum_simplify(res); -} - -/* Like C_s_a_i_plus, this needs at most 29 words */ -C_regparm C_word -C_s_a_i_minus(C_word **ptr, C_word n, C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_a_i_fixnum_difference(ptr, 2, x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_flonum(ptr, (double)C_unfix(x) - C_flonum_magnitude(y)); - } else if (C_truep(C_bignump(y))) { - return C_s_a_u_i_integer_minus(ptr, 2, x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return integer_minus_rat(ptr, x, y); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); - if (C_truep(C_u_i_inexactp(real_diff))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_diff, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - if (y & C_FIXNUM_BIT) { - return C_flonum(ptr, C_flonum_magnitude(x) - (double)C_unfix(y)); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_a_i_flonum_difference(ptr, 2, x, y); - } else if (C_truep(C_bignump(y))) { - return C_flonum(ptr, C_flonum_magnitude(x)-C_bignum_to_double(y)); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return C_s_a_i_minus(ptr, 2, x, C_a_i_exact_to_inexact(ptr, 1, y)); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); - if (C_truep(C_u_i_inexactp(real_diff))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_diff, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } - } else if (C_truep(C_bignump(x))) { - if (y & C_FIXNUM_BIT) { - return C_s_a_u_i_integer_minus(ptr, 2, x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_flonum(ptr, C_bignum_to_double(x)-C_flonum_magnitude(y)); - } else if (C_truep(C_bignump(y))) { - return C_s_a_u_i_integer_minus(ptr, 2, x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return integer_minus_rat(ptr, x, y); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); - if (C_truep(C_u_i_inexactp(real_diff))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_diff, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } - } else if (C_block_header(x) == C_RATNUM_TAG) { - if (y & C_FIXNUM_BIT) { - return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_minus); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return C_s_a_i_minus(ptr, 2, C_a_i_exact_to_inexact(ptr, 1, x), y); - } else if (C_truep(C_bignump(y))) { - return rat_plusmin_integer(ptr, x, y, C_s_a_u_i_integer_minus); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return rat_plusmin_rat(ptr, x, y, C_s_a_u_i_integer_minus); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_diff = C_s_a_i_minus(ptr, 2, x, C_u_i_cplxnum_real(y)), - imag = C_s_a_i_negate(ptr, 1, C_u_i_cplxnum_imag(y)); - if (C_truep(C_u_i_inexactp(real_diff))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_diff, imag); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", y); - } - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - if (!C_immediatep(y) && C_block_header(y) == C_CPLXNUM_TAG) { - C_word real_diff, imag_diff; - real_diff = C_s_a_i_minus(ptr,2,C_u_i_cplxnum_real(x),C_u_i_cplxnum_real(y)); - imag_diff = C_s_a_i_minus(ptr,2,C_u_i_cplxnum_imag(x),C_u_i_cplxnum_imag(y)); - if (C_truep(C_u_i_zerop2(imag_diff))) return real_diff; - else return C_cplxnum(ptr, real_diff, imag_diff); - } else { - C_word real_diff = C_s_a_i_minus(ptr, 2, C_u_i_cplxnum_real(x), y), - imag = C_u_i_cplxnum_imag(x); - if (C_truep(C_u_i_inexactp(real_diff))) - imag = C_a_i_exact_to_inexact(ptr, 1, imag); - return C_cplxnum(ptr, real_diff, imag); - } - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "-", x); - } -} - -C_regparm C_word -C_s_a_u_i_integer_minus(C_word **ptr, C_word n, C_word x, C_word y) -{ - if ((x & y) & C_FIXNUM_BIT) { - return C_a_i_fixnum_difference(ptr, 2, x, y); - } else { - C_word ab[C_SIZEOF_FIX_BIGNUM * 2 + C_SIZEOF_BIGNUM_WRAPPER], *a = ab; - if (x & C_FIXNUM_BIT) x = C_a_u_i_fix_to_big(&a, x); - if (y & C_FIXNUM_BIT) y = C_a_u_i_fix_to_big(&a, y); - - if (C_bignum_negativep(x)) { - if (C_bignum_negativep(y)) { - return bignum_minus_unsigned(ptr, y, x); - } else { - return bignum_plus_unsigned(ptr, x, y, C_SCHEME_TRUE); - } - } else { - if (C_bignum_negativep(y)) { - return bignum_plus_unsigned(ptr, x, y, C_SCHEME_FALSE); - } else { - return bignum_minus_unsigned(ptr, x, y); - } - } - } -} - -void C_ccall C_minus(C_word c, C_word *av) -{ - /* C_word closure = av[ 0 ]; */ - C_word k = av[ 1 ]; - C_word next_val, result, prev_result; - C_word ab[2][C_SIZEOF_CPLXNUM + C_SIZEOF_RATNUM*2 + C_SIZEOF_FIX_BIGNUM * 4], *a; - - if (c < 3) { - C_bad_min_argc(c, 3); - } else if (c == 3) { - a = ab[0]; - C_kontinue(k, C_s_a_i_negate(&a, 1, av[ 2 ])); - } else { - prev_result = result = av[ 2 ]; - c -= 3; - av += 3; - - while (c--) { - next_val = *(av++); - a = ab[c&1]; /* One may hold last iteration result, the other is unused */ - result = C_s_a_i_minus(&a, 2, result, next_val); - result = move_buffer_object(&a, ab[(c+1)&1], result); - clear_buffer_object(ab[(c+1)&1], prev_result); - prev_result = result; - } - - C_kontinue(k, result); - } -} - - -static C_regparm void -integer_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) -{ - if (!(y & C_FIXNUM_BIT)) { /* y is bignum. */ - if (x & C_FIXNUM_BIT) { - /* abs(x) < abs(y), so it will always be [0, x] except for this case: */ - if (x == C_fix(C_MOST_NEGATIVE_FIXNUM) && - C_bignum_negated_fitsinfixnump(y)) { - if (q != NULL) *q = C_fix(-1); - if (r != NULL) *r = C_fix(0); - } else { - if (q != NULL) *q = C_fix(0); - if (r != NULL) *r = x; - } - } else { - bignum_divrem(ptr, x, y, q, r); - } - } else if (x & C_FIXNUM_BIT) { /* both x and y are fixnum. */ - if (q != NULL) *q = C_a_i_fixnum_quotient_checked(ptr, 2, x, y); - if (r != NULL) *r = C_i_fixnum_remainder_checked(x, y); - } else { /* x is bignum, y is fixnum. */ - C_word absy = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); - - if (y == C_fix(1)) { - if (q != NULL) *q = x; - if (r != NULL) *r = C_fix(0); - } else if (y == C_fix(-1)) { - if (q != NULL) *q = C_s_a_u_i_integer_negate(ptr, 1, x); - if (r != NULL) *r = C_fix(0); - } else if (C_fitsinbignumhalfdigitp(absy) || - ((((C_uword)1 << (C_ilen(absy)-1)) == absy) && - C_fitsinfixnump(absy))) { - assert(y != C_fix(0)); /* _must_ be checked by caller */ - if (q != NULL) { - bignum_destructive_divide_unsigned_small(ptr, x, y, q, r); - } else { /* We assume r isn't NULL here (that makes no sense) */ - C_word rem; - C_uword next_power = (C_uword)1 << (C_ilen(absy)-1); - - if (next_power == absy) { /* Is absy a power of two? */ - rem = *(C_bignum_digits(x)) & (next_power - 1); - } else { /* Too bad, we have to do some real work */ - rem = bignum_remainder_unsigned_halfdigit(x, absy); - } - *r = C_bignum_negativep(x) ? C_fix(-rem) : C_fix(rem); - } - } else { /* Just divide it as two bignums */ - C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab; - bignum_divrem(ptr, x, C_a_u_i_fix_to_big(&a, y), q, r); - if (q != NULL) *q = move_buffer_object(ptr, ab, *q); - if (r != NULL) *r = move_buffer_object(ptr, ab, *r); - } - } -} - -/* This _always_ needs two bignum wrappers in ptr! */ -static C_regparm void -bignum_divrem(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) -{ - C_word q_negp = C_mk_bool(C_bignum_negativep(y) != C_bignum_negativep(x)), - r_negp = C_mk_bool(C_bignum_negativep(x)), res, size; - - switch(bignum_cmp_unsigned(x, y)) { - case 0: - if (q != NULL) *q = C_truep(q_negp) ? C_fix(-1) : C_fix(1); - if (r != NULL) *r = C_fix(0); - break; - case -1: - if (q != NULL) *q = C_fix(0); - if (r != NULL) *r = x; - break; - case 1: - default: - res = C_SCHEME_FALSE; - size = C_bignum_size(x) - C_bignum_size(y); - if (C_bignum_size(y) > C_BURNIKEL_ZIEGLER_THRESHOLD && - size > C_BURNIKEL_ZIEGLER_THRESHOLD) { - res = bignum_divide_burnikel_ziegler(ptr, x, y, q, r); - } - - if (!C_truep(res)) { - bignum_divide_unsigned(ptr, x, y, q, q_negp, r, r_negp); - if (q != NULL) *q = C_bignum_simplify(*q); - if (r != NULL) *r = C_bignum_simplify(*r); - } - break; - } -} - -/* Burnikel-Ziegler recursive division: Split high number (x) in three - * or four parts and divide by the lowest number (y), split in two - * parts. There are descriptions in [MpNT, 4.2], [MCA, 1.4.3] and the - * paper "Fast Recursive Division" by Christoph Burnikel & Joachim - * Ziegler is freely available. There is also a description in Karl - * Hasselstrom's thesis "Fast Division of Integers". - * - * The complexity of this is supposedly O(r*s^{log(3)-1} + r*log(s)), - * where s is the length of x, and r is the length of y (in digits). - * - * TODO: See if it's worthwhile to implement "division without remainder" - * from the Burnikel-Ziegler paper. - */ -static C_regparm C_word -bignum_divide_burnikel_ziegler(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*9], *a = ab, - lab[2][C_SIZEOF_FIX_BIGNUM*10], *la, - q_negp = (C_bignum_negativep(y) ? C_mk_nbool(C_bignum_negativep(x)) : - C_mk_bool(C_bignum_negativep(x))), - r_negp = C_mk_bool(C_bignum_negativep(x)), s, m, n, i, j, l, shift, - yhi, ylo, zi, zi_orig, newx, newy, quot, qi, ri; - - /* Ran out of stack? Fall back to non-recursive division */ - C_stack_check1(return C_SCHEME_FALSE); - - x = C_s_a_u_i_integer_abs(&a, 1, x); - y = C_s_a_u_i_integer_abs(&a, 1, y); - - /* Define m as min{2^k|(2^k)*BURNIKEL_ZIEGLER_DIFF_THRESHOLD > s} - * This ensures we shift as little as possible (less pressure - * on the GC) while maintaining a power of two until we drop - * below the threshold, so we can always split N in half. - */ - s = C_bignum_size(y); - m = 1 << C_ilen(s / C_BURNIKEL_ZIEGLER_THRESHOLD); - j = (s+m-1) / m; /* j = s/m, rounded up */ - n = j * m; - - shift = (C_BIGNUM_DIGIT_LENGTH * n) - integer_length_abs(y); - newx = C_s_a_i_arithmetic_shift(&a, 2, x, C_fix(shift)); - newy = C_s_a_i_arithmetic_shift(&a, 2, y, C_fix(shift)); - if (shift != 0) { - clear_buffer_object(ab, x); - clear_buffer_object(ab, y); - } - x = newx; - y = newy; - - /* l needs to be the smallest value so that a < base^{l*n}/2 */ - l = (C_bignum_size(x) + n) / n; - if ((C_BIGNUM_DIGIT_LENGTH * l) == integer_length_abs(x)) l++; - l = nmax(l, 2); - - yhi = bignum_extract_digits(&a, 3, y, C_fix(n >> 1), C_SCHEME_FALSE); - ylo = bignum_extract_digits(&a, 3, y, C_fix(0), C_fix(n >> 1)); - - s = (l - 2) * n * C_BIGNUM_DIGIT_LENGTH; - zi_orig = zi = C_s_a_i_arithmetic_shift(&a, 2, x, C_fix(-s)); - quot = C_fix(0); - - for(i = l - 2; i >= 0; --i) { - la = lab[i&1]; - - burnikel_ziegler_2n_div_1n(&la, zi, y, yhi, ylo, C_fix(n), &qi, &ri); - - newx = C_s_a_i_arithmetic_shift(&la, 2, quot, C_fix(n*C_BIGNUM_DIGIT_LENGTH)); - clear_buffer_object(lab, quot); - quot = C_s_a_u_i_integer_plus(&la, 2, newx, qi); - move_buffer_object(&la, lab[(i+1)&1], quot); - clear_buffer_object(lab, newx); - clear_buffer_object(lab, qi); - - if (i > 0) { /* Set z_{i-1} = [r{i}, x{i-1}] */ - newx = bignum_extract_digits(&la, 3, x, C_fix(n * (i-1)), C_fix(n * i)); - newy = C_s_a_i_arithmetic_shift(&la, 2, ri, C_fix(n*C_BIGNUM_DIGIT_LENGTH)); - clear_buffer_object(lab, zi); - zi = C_s_a_u_i_integer_plus(&la, 2, newx, newy); - move_buffer_object(&la, lab[(i+1)&1], zi); - move_buffer_object(&la, lab[(i+1)&1], quot); - clear_buffer_object(lab, newx); - clear_buffer_object(lab, newy); - clear_buffer_object(lab, ri); - } - } - clear_buffer_object(ab, x); - clear_buffer_object(ab, y); - clear_buffer_object(ab, yhi); - clear_buffer_object(ab, ylo); - clear_buffer_object(ab, zi_orig); - clear_buffer_object(lab, zi); - - if (q != NULL) { - if (C_truep(q_negp)) { - newx = C_s_a_u_i_integer_negate(&la, 1, quot); - clear_buffer_object(lab, quot); - quot = newx; - } - *q = move_buffer_object(ptr, lab, quot); - } - clear_buffer_object(lab, quot); - - if (r != NULL) { - newx = C_s_a_i_arithmetic_shift(&la, 2, ri, C_fix(-shift)); - if (C_truep(r_negp)) { - newy = C_s_a_u_i_integer_negate(ptr, 1, newx); - clear_buffer_object(lab, newx); - newx = newy; - } - *r = move_buffer_object(ptr, lab, newx); - } - clear_buffer_object(lab, ri); - - return C_SCHEME_TRUE; -} - -static C_regparm void -burnikel_ziegler_3n_div_2n(C_word **ptr, C_word a12, C_word a3, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r) -{ - C_word kab[C_SIZEOF_FIX_BIGNUM*6 + C_SIZEOF_BIGNUM(2)], *ka = kab, - lab[2][C_SIZEOF_FIX_BIGNUM*4], *la, - size, tmp, less, qhat, rhat, r1, r1a3, i = 0; - - size = C_unfix(n) * C_BIGNUM_DIGIT_LENGTH; - tmp = C_s_a_i_arithmetic_shift(&ka, 2, a12, C_fix(-size)); - less = C_i_integer_lessp(tmp, b1); /* a1 < b1 ? */ - clear_buffer_object(kab, tmp); - - if (C_truep(less)) { - C_word atmpb[C_SIZEOF_FIX_BIGNUM*2], *atmp = atmpb, b11, b12, halfn; - - halfn = C_fix(C_unfix(n) >> 1); - b11 = bignum_extract_digits(&atmp, 3, b1, halfn, C_SCHEME_FALSE); - b12 = bignum_extract_digits(&atmp, 3, b1, C_fix(0), halfn); - - burnikel_ziegler_2n_div_1n(&ka, a12, b1, b11, b12, n, &qhat, &r1); - qhat = move_buffer_object(&ka, atmpb, qhat); - r1 = move_buffer_object(&ka, atmpb, r1); - - clear_buffer_object(atmpb, b11); - clear_buffer_object(atmpb, b12); - } else { - C_word atmpb[C_SIZEOF_FIX_BIGNUM*5], *atmp = atmpb, tmp2; - - tmp = C_s_a_i_arithmetic_shift(&atmp, 2, C_fix(1), C_fix(size)); - qhat = C_s_a_u_i_integer_minus(&ka, 2, tmp, C_fix(1)); /* B^n - 1 */ - qhat = move_buffer_object(&ka, atmpb, qhat); - clear_buffer_object(atmpb, tmp); - - /* r1 = (a12 - b1*B^n) + b1 */ - tmp = C_s_a_i_arithmetic_shift(&atmp, 2, b1, C_fix(size)); - tmp2 = C_s_a_u_i_integer_minus(&atmp, 2, a12, tmp); - r1 = C_s_a_u_i_integer_plus(&ka, 2, tmp2, b1); - r1 = move_buffer_object(&ka, atmpb, r1); - clear_buffer_object(atmpb, tmp); - clear_buffer_object(atmpb, tmp2); - } - - tmp = C_s_a_i_arithmetic_shift(&ka, 2, r1, C_fix(size)); - clear_buffer_object(kab, r1); - r1a3 = C_s_a_u_i_integer_plus(&ka, 2, tmp, a3); - b2 = C_s_a_u_i_integer_times(&ka, 2, qhat, b2); - - la = lab[0]; - rhat = C_s_a_u_i_integer_minus(&la, 2, r1a3, b2); - rhat = move_buffer_object(&la, kab, rhat); - qhat = move_buffer_object(&la, kab, qhat); - - clear_buffer_object(kab, tmp); - clear_buffer_object(kab, r1a3); - clear_buffer_object(kab, b2); - - while(C_truep(C_i_negativep(rhat))) { - la = lab[(++i)&1]; - /* rhat += b */ - r1 = C_s_a_u_i_integer_plus(&la, 2, rhat, b); - tmp = move_buffer_object(&la, lab[(i-1)&1], r1); - clear_buffer_object(lab[(i-1)&1], r1); - clear_buffer_object(lab[(i-1)&1], rhat); - clear_buffer_object(kab, rhat); - rhat = tmp; - - /* qhat -= 1 */ - r1 = C_s_a_u_i_integer_minus(&la, 2, qhat, C_fix(1)); - tmp = move_buffer_object(&la, lab[(i-1)&1], r1); - clear_buffer_object(lab[(i-1)&1], r1); - clear_buffer_object(lab[(i-1)&1], qhat); - clear_buffer_object(kab, qhat); - qhat = tmp; - } - - if (q != NULL) *q = move_buffer_object(ptr, lab, qhat); - if (r != NULL) *r = move_buffer_object(ptr, lab, rhat); - clear_buffer_object(lab, qhat); - clear_buffer_object(lab, rhat); -} - -static C_regparm void -burnikel_ziegler_2n_div_1n(C_word **ptr, C_word a, C_word b, C_word b1, C_word b2, C_word n, C_word *q, C_word *r) -{ - C_word kab[2][C_SIZEOF_FIX_BIGNUM*7], *ka, a12, a3, a4, - q1 = C_fix(0), r1, q2 = C_fix(0), r2, *qp; - int stack_full = 0; - - C_stack_check1(stack_full = 1); - - n = C_unfix(n); - if (stack_full || (n & 1) || (n < C_BURNIKEL_ZIEGLER_THRESHOLD)) { - integer_divrem(ptr, a, b, q, r); - } else { - ka = kab[0]; - a12 = bignum_extract_digits(&ka, 3, a, C_fix(n), C_SCHEME_FALSE); - a3 = bignum_extract_digits(&ka, 3, a, C_fix(n >> 1), C_fix(n)); - - qp = (q == NULL) ? NULL : &q1; - ka = kab[1]; - burnikel_ziegler_3n_div_2n(&ka, a12, a3, b, b1, b2, C_fix(n >> 1), qp, &r1); - q1 = move_buffer_object(&ka, kab[0], q1); - r1 = move_buffer_object(&ka, kab[0], r1); - clear_buffer_object(kab[0], a12); - clear_buffer_object(kab[0], a3); - - a4 = bignum_extract_digits(&ka, 3, a, C_fix(0), C_fix(n >> 1)); - - qp = (q == NULL) ? NULL : &q2; - ka = kab[0]; - burnikel_ziegler_3n_div_2n(&ka, r1, a4, b, b1, b2, C_fix(n >> 1), qp, r); - if (r != NULL) *r = move_buffer_object(ptr, kab[0], *r); - clear_buffer_object(kab[1], r1); - - if (q != NULL) { - C_word halfn_bits = (n >> 1) * C_BIGNUM_DIGIT_LENGTH; - r1 = C_s_a_i_arithmetic_shift(&ka, 2, q1, C_fix(halfn_bits)); - *q = C_s_a_i_plus(ptr, 2, r1, q2); /* q = [q1, q2] */ - *q = move_buffer_object(ptr, kab[0], *q); - clear_buffer_object(kab[0], r1); - clear_buffer_object(kab[1], q1); - clear_buffer_object(kab[0], q2); - } - clear_buffer_object(kab[1], a4); - } -} - - -static C_regparm C_word bignum_remainder_unsigned_halfdigit(C_word x, C_word y) -{ - C_uword *start = C_bignum_digits(x), - *scan = start + C_bignum_size(x), - rem = 0, two_digits; - - assert((y > 1) && (C_fitsinbignumhalfdigitp(y))); - while (start < scan) { - two_digits = (*--scan); - rem = C_BIGNUM_DIGIT_COMBINE(rem, C_BIGNUM_DIGIT_HI_HALF(two_digits)) % y; - rem = C_BIGNUM_DIGIT_COMBINE(rem, C_BIGNUM_DIGIT_LO_HALF(two_digits)) % y; - } - return rem; -} - -/* There doesn't seem to be a way to return two values from inline functions */ -void C_ccall C_quotient_and_remainder(C_word c, C_word *av) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*4+C_SIZEOF_FLONUM*2], *a = ab, - nx = C_SCHEME_FALSE, ny = C_SCHEME_FALSE, - q, r, k, x, y; - - if (c != 4) C_bad_argc_2(c, 4, av[ 0 ]); - - k = av[ 1 ]; - x = av[ 2 ]; - y = av[ 3 ]; - - if (!C_truep(C_i_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient&remainder", x); - if (!C_truep(C_i_integerp(y))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient&remainder", y); - if (C_truep(C_i_zerop(y))) C_div_by_zero_error("quotient&remainder"); - - if (C_truep(C_i_flonump(x))) { - if C_truep(C_i_flonump(y)) { - double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), tmp; - - C_modf(dx / dy, &tmp); - q = C_flonum(&a, tmp); - r = C_flonum(&a, dx - tmp * dy); - /* reuse av */ - av[ 0 ] = C_SCHEME_UNDEFINED; - /* av[ 1 ] = k; */ /* stays the same */ - av[ 2 ] = q; - av[ 3 ] = r; - C_values(4, av); - } - x = nx = C_s_a_u_i_flo_to_int(&a, 1, x); - } - if (C_truep(C_i_flonump(y))) { - y = ny = C_s_a_u_i_flo_to_int(&a, 1, y); - } - - integer_divrem(&a, x, y, &q, &r); - - if (C_truep(nx) || C_truep(ny)) { - C_word newq, newr; - newq = C_a_i_exact_to_inexact(&a, 1, q); - newr = C_a_i_exact_to_inexact(&a, 1, r); - clear_buffer_object(ab, q); - clear_buffer_object(ab, r); - q = newq; - r = newr; - - clear_buffer_object(ab, nx); - clear_buffer_object(ab, ny); - } - /* reuse av */ - av[ 0 ] = C_SCHEME_UNDEFINED; - /* av[ 1 ] = k; */ /* stays the same */ - av[ 2 ] = q; - av[ 3 ] = r; - C_values(4, av); -} - -void C_ccall C_u_integer_quotient_and_remainder(C_word c, C_word *av) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, q, r; - - if (av[ 3 ] == C_fix(0)) C_div_by_zero_error("quotient&remainder"); - - integer_divrem(&a, av[ 2 ], av[ 3 ], &q, &r); - - /* reuse av */ - av[ 0 ] = C_SCHEME_UNDEFINED; - /* av[ 1 ] = k; */ /* stays the same */ - av[ 2 ] = q; - av[ 3 ] = r; - C_values(4, av); -} - -C_regparm C_word -C_s_a_i_remainder(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*4+C_SIZEOF_FLONUM*2], *a = ab, r, - nx = C_SCHEME_FALSE, ny = C_SCHEME_FALSE; - - if (!C_truep(C_i_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "remainder", x); - if (!C_truep(C_i_integerp(y))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "remainder", y); - if (C_truep(C_i_zerop(y))) C_div_by_zero_error("remainder"); - - if (C_truep(C_i_flonump(x))) { - if C_truep(C_i_flonump(y)) { - double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), tmp; - - C_modf(dx / dy, &tmp); - return C_flonum(ptr, dx - tmp * dy); - } - x = nx = C_s_a_u_i_flo_to_int(&a, 1, x); - } - if (C_truep(C_i_flonump(y))) { - y = ny = C_s_a_u_i_flo_to_int(&a, 1, y); - } - - integer_divrem(&a, x, y, NULL, &r); - - if (C_truep(nx) || C_truep(ny)) { - C_word newr = C_a_i_exact_to_inexact(ptr, 1, r); - clear_buffer_object(ab, r); - r = newr; - - clear_buffer_object(ab, nx); - clear_buffer_object(ab, ny); - } - return move_buffer_object(ptr, ab, r); -} - -C_regparm C_word -C_s_a_u_i_integer_remainder(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, r; - if (y == C_fix(0)) C_div_by_zero_error("remainder"); - integer_divrem(&a, x, y, NULL, &r); - return move_buffer_object(ptr, ab, r); -} - -/* Modulo's sign follows y (whereas remainder's sign follows x) */ -C_regparm C_word -C_s_a_i_modulo(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, r, - nx = C_SCHEME_FALSE, ny = C_SCHEME_FALSE; - - if (!C_truep(C_i_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "modulo", x); - if (!C_truep(C_i_integerp(y))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "modulo", y); - if (C_truep(C_i_zerop(y))) C_div_by_zero_error("modulo"); - - if (C_truep(C_i_flonump(x))) { - if C_truep(C_i_flonump(y)) { - double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), tmp; - - C_modf(dx / dy, &tmp); - tmp = dx - tmp * dy; - if ((dx > 0.0) != (dy > 0.0) && tmp != 0.0) { - return C_flonum(ptr, tmp + dy); - } else { - return C_flonum(ptr, tmp); - } - } - x = nx = C_s_a_u_i_flo_to_int(&a, 1, x); - } - if (C_truep(C_i_flonump(y))) { - y = ny = C_s_a_u_i_flo_to_int(&a, 1, y); - } - - integer_divrem(&a, x, y, NULL, &r); - if (C_i_positivep(y) != C_i_positivep(r) && r != C_fix(0)) { - C_word m = C_s_a_i_plus(ptr, 2, r, y); - m = move_buffer_object(ptr, ab, m); - clear_buffer_object(ab, r); - r = m; - } - - if (C_truep(nx) || C_truep(ny)) { - C_word newr = C_a_i_exact_to_inexact(ptr, 1, r); - clear_buffer_object(ab, r); - r = newr; - - clear_buffer_object(ab, nx); - clear_buffer_object(ab, ny); - } - - return move_buffer_object(ptr, ab, r); -} - -C_regparm C_word -C_s_a_u_i_integer_modulo(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab, r; - if (y == C_fix(0)) C_div_by_zero_error("modulo"); - - integer_divrem(&a, x, y, NULL, &r); - if (C_i_positivep(y) != C_i_positivep(r) && r != C_fix(0)) { - C_word m = C_s_a_u_i_integer_plus(ptr, 2, r, y); - m = move_buffer_object(ptr, ab, m); - clear_buffer_object(ab, r); - r = m; - } - return move_buffer_object(ptr, ab, r); -} - -C_regparm C_word -C_s_a_i_quotient(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*4+C_SIZEOF_FLONUM*2], *a = ab, q, - nx = C_SCHEME_FALSE, ny = C_SCHEME_FALSE; - - if (!C_truep(C_i_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient", x); - if (!C_truep(C_i_integerp(y))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "quotient", y); - if (C_truep(C_i_zerop(y))) C_div_by_zero_error("quotient"); - - if (C_truep(C_i_flonump(x))) { - if C_truep(C_i_flonump(y)) { - double dx = C_flonum_magnitude(x), dy = C_flonum_magnitude(y), tmp; - - C_modf(dx / dy, &tmp); - return C_flonum(ptr, tmp); - } - x = nx = C_s_a_u_i_flo_to_int(&a, 1, x); - } - if (C_truep(C_i_flonump(y))) { - y = ny = C_s_a_u_i_flo_to_int(&a, 1, y); - } - - integer_divrem(&a, x, y, &q, NULL); - - if (C_truep(nx) || C_truep(ny)) { - C_word newq = C_a_i_exact_to_inexact(ptr, 1, q); - clear_buffer_object(ab, q); - q = newq; - - clear_buffer_object(ab, nx); - clear_buffer_object(ab, ny); - } - return move_buffer_object(ptr, ab, q); -} - -C_regparm C_word -C_s_a_u_i_integer_quotient(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*2], *a = ab, q; - if (y == C_fix(0)) C_div_by_zero_error("quotient"); - integer_divrem(&a, x, y, &q, NULL); - return move_buffer_object(ptr, ab, q); -} - - -/* For help understanding this algorithm, see: - Knuth, Donald E., "The Art of Computer Programming", - volume 2, "Seminumerical Algorithms" - section 4.3.1, "Multiple-Precision Arithmetic". - - [Yeah, that's a nice book but that particular section is not - helpful at all, which is also pointed out by P. Brinch Hansen's - "Multiple-Length Division Revisited: A Tour Of The Minefield". - That's a more down-to-earth step-by-step explanation of the - algorithm. Add to this the C implementation in Hacker's Delight - (section 9-2, p141--142) and you may be able to grok this... - ...barely, if you're as math-challenged as I am -- sjamaan] - - This assumes that numerator >= denominator! -*/ -static void -bignum_divide_unsigned(C_word **ptr, C_word num, C_word denom, C_word *q, C_word q_negp, C_word *r, C_word r_negp) -{ - C_word quotient = C_SCHEME_UNDEFINED, remainder = C_SCHEME_UNDEFINED, - return_rem = C_mk_nbool(r == NULL), size; - - if (q != NULL) { - size = C_fix(C_bignum_size(num) + 1 - C_bignum_size(denom)); - quotient = C_allocate_scratch_bignum(ptr, size, q_negp, C_SCHEME_FALSE); - } - - /* An object is always required to receive the remainder */ - size = C_fix(C_bignum_size(num) + 1); - remainder = C_allocate_scratch_bignum(ptr, size, r_negp, C_SCHEME_FALSE); - bignum_destructive_divide_full(num, denom, quotient, remainder, return_rem); - - /* Simplification must be done by the caller, for consistency */ - if (q != NULL) *q = quotient; - if (r == NULL) { - C_mutate_scratch_slot(NULL, C_internal_bignum_vector(remainder)); - } else { - *r = remainder; - } -} - -/* Compare two numbers as ratnums. Either may be rat-, fix- or bignums */ -static C_word rat_cmp(C_word x, C_word y) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM*4], *a = ab, x1, x2, y1, y2, - s, t, ssize, tsize, result, negp; - C_uword *scan; - - /* Check for 1 or 0; if x or y is this, the other must be the ratnum */ - if (x == C_fix(0)) { /* Only the sign of y1 matters */ - return basic_cmp(x, C_u_i_ratnum_num(y), "ratcmp", 0); - } else if (x == C_fix(1)) { /* x1*y1 <> x2*y2 --> y2 <> y1 | x1/x2 = 1/1 */ - return basic_cmp(C_u_i_ratnum_denom(y), C_u_i_ratnum_num(y), "ratcmp", 0); - } else if (y == C_fix(0)) { /* Only the sign of x1 matters */ - return basic_cmp(C_u_i_ratnum_num(x), y, "ratcmp", 0); - } else if (y == C_fix(1)) { /* x1*y1 <> x2*y2 --> x1 <> x2 | y1/y2 = 1/1 */ - return basic_cmp(C_u_i_ratnum_num(x), C_u_i_ratnum_denom(x), "ratcmp", 0); - } - - /* Extract components x=x1/x2 and y=y1/y2 */ - if (x & C_FIXNUM_BIT || C_truep(C_bignump(x))) { - x1 = x; - x2 = C_fix(1); - } else { - x1 = C_u_i_ratnum_num(x); - x2 = C_u_i_ratnum_denom(x); - } - - if (y & C_FIXNUM_BIT || C_truep(C_bignump(y))) { - y1 = y; - y2 = C_fix(1); - } else { - y1 = C_u_i_ratnum_num(y); - y2 = C_u_i_ratnum_denom(y); - } - - /* We only want to deal with bignums (this is tricky enough) */ - if (x1 & C_FIXNUM_BIT) x1 = C_a_u_i_fix_to_big(&a, x1); - if (x2 & C_FIXNUM_BIT) x2 = C_a_u_i_fix_to_big(&a, x2); - if (y1 & C_FIXNUM_BIT) y1 = C_a_u_i_fix_to_big(&a, y1); - if (y2 & C_FIXNUM_BIT) y2 = C_a_u_i_fix_to_big(&a, y2); - - /* We multiply using schoolbook method, so this will be very slow in - * extreme cases. This is a tradeoff we make so that comparisons - * are inlineable, which makes a big difference for the common case. - */ - ssize = C_bignum_size(x1) + C_bignum_size(y2); - negp = C_mk_bool(C_bignum_negativep(x1)); - s = allocate_tmp_bignum(C_fix(ssize), negp, C_SCHEME_TRUE); - bignum_digits_multiply(x1, y2, s); /* Swap args if x1 < y2? */ - - tsize = C_bignum_size(y1) + C_bignum_size(x2); - negp = C_mk_bool(C_bignum_negativep(y1)); - t = allocate_tmp_bignum(C_fix(tsize), negp, C_SCHEME_TRUE); - bignum_digits_multiply(y1, x2, t); /* Swap args if y1 < x2? */ - - /* Shorten the numbers if needed */ - for (scan = C_bignum_digits(s)+ssize-1; *scan == 0; scan--) ssize--; - C_bignum_mutate_size(s, ssize); - for (scan = C_bignum_digits(t)+tsize-1; *scan == 0; scan--) tsize--; - C_bignum_mutate_size(t, tsize); - - result = C_i_bignum_cmp(s, t); - - free_tmp_bignum(t); - free_tmp_bignum(s); - return result; -} - -C_regparm double C_bignum_to_double(C_word bignum) -{ - double accumulator = 0; - C_uword *start = C_bignum_digits(bignum), - *scan = start + C_bignum_size(bignum); - while (start < scan) { - accumulator *= (C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH; - accumulator *= (C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH; - accumulator += (*--scan); - } - return(C_bignum_negativep(bignum) ? -accumulator : accumulator); -} - -C_regparm C_word -C_s_a_u_i_flo_to_int(C_word **ptr, C_word n, C_word x) -{ - int exponent; - double significand = frexp(C_flonum_magnitude(x), &exponent); - - assert(C_truep(C_u_i_fpintegerp(x))); - - if (exponent <= 0) { - return C_fix(0); - } else if (exponent == 1) { /* TODO: check significand * 2^exp fits fixnum? */ - return significand < 0.0 ? C_fix(-1) : C_fix(1); - } else { - C_word size, negp = C_mk_bool(C_flonum_magnitude(x) < 0.0), result; - C_uword *start, *end; - - size = C_fix(C_BIGNUM_BITS_TO_DIGITS(exponent)); - result = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); - - start = C_bignum_digits(result); - end = start + C_bignum_size(result); - - fabs_frexp_to_digits(exponent, fabs(significand), start, end); - return C_bignum_simplify(result); - } -} - -static void -fabs_frexp_to_digits(C_uword exp, double sign, C_uword *start, C_uword *scan) -{ - C_uword digit, odd_bits = exp % C_BIGNUM_DIGIT_LENGTH; - - assert(C_isfinite(sign)); - assert(0.5 <= sign && sign < 1); /* Guaranteed by frexp() and fabs() */ - assert((scan - start) == C_BIGNUM_BITS_TO_DIGITS(exp)); - - if (odd_bits > 0) { /* Handle most significant digit first */ - sign *= (C_uword)1 << odd_bits; - digit = (C_uword)sign; - (*--scan) = digit; - sign -= (double)digit; - } - - while (start < scan && sign > 0) { - sign *= pow(2.0, C_BIGNUM_DIGIT_LENGTH); - digit = (C_uword)sign; - (*--scan) = digit; - sign -= (double)digit; - } - - /* Finish up by clearing any remaining, lower, digits */ - while (start < scan) - (*--scan) = 0; -} - -/* This is a bit weird: We have to compare flonums as bignums due to - * precision loss on 64-bit platforms. For simplicity, we convert - * fixnums to bignums here. - */ -static C_word int_flo_cmp(C_word intnum, C_word flonum) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM + C_SIZEOF_FLONUM], *a = ab, flo_int, res; - double i, f; - - f = C_flonum_magnitude(flonum); - - if (C_isnan(f)) { - return C_SCHEME_FALSE; /* "mu" */ - } else if (C_isinf(f)) { - return C_fix((f > 0.0) ? -1 : 1); /* x is smaller if f is +inf.0 */ - } else { - f = modf(f, &i); - - flo_int = C_s_a_u_i_flo_to_int(&a, 1, C_flonum(&a, i)); - - res = basic_cmp(intnum, flo_int, "int_flo_cmp", 0); - clear_buffer_object(ab, flo_int); - - if (res == C_fix(0)) /* Use fraction to break tie. If f > 0, x is smaller */ - return C_fix((f > 0.0) ? -1 : ((f < 0.0) ? 1 : 0)); - else - return res; - } -} - -/* For convenience (ie, to reduce the degree of mindfuck) */ -static C_word flo_int_cmp(C_word flonum, C_word intnum) -{ - C_word res = int_flo_cmp(intnum, flonum); - switch(res) { - case C_fix(1): return C_fix(-1); - case C_fix(-1): return C_fix(1); - default: return res; /* Can be either C_fix(0) or C_SCHEME_FALSE(!) */ - } -} - -/* This code is a bit tedious, but it makes inline comparisons possible! */ -static C_word rat_flo_cmp(C_word ratnum, C_word flonum) -{ - C_word ab[C_SIZEOF_FIX_BIGNUM * 4 + C_SIZEOF_FLONUM], *a = ab, - num, denom, i_int, res, nscaled, iscaled, negp, shift_amount; - C_uword *scan; - double i, f; - - f = C_flonum_magnitude(flonum); - - if (C_isnan(f)) { - return C_SCHEME_FALSE; /* "mu" */ - } else if (C_isinf(f)) { - return C_fix((f > 0.0) ? -1 : 1); /* x is smaller if f is +inf.0 */ - } else { - /* Scale up the floating-point number to become a whole integer, - * and remember power of two (# of bits) to shift the numerator. - */ - shift_amount = 0; - - /* TODO: This doesn't work for denormalized flonums! */ - while (modf(f, &i) != 0.0) { - f = ldexp(f, 1); - shift_amount++; - } - - i = f; /* TODO: split i and f so it'll work for denormalized flonums */ - - num = C_u_i_ratnum_num(ratnum); - negp = C_i_negativep(num); - - if (C_truep(negp) && i >= 0.0) { /* Save some time if signs differ */ - return C_fix(-1); - } else if (!C_truep(negp) && i <= 0.0) { /* num is never 0 */ - return C_fix(1); - } else { - denom = C_u_i_ratnum_denom(ratnum); - i_int = C_s_a_u_i_flo_to_int(&a, 1, C_flonum(&a, i)); - - /* Multiply the scaled flonum integer by the denominator, and - * shift the numerator so that they may be directly compared. */ - iscaled = C_s_a_u_i_integer_times(&a, 2, i_int, denom); - nscaled = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(shift_amount)); - - /* Finally, we're ready to compare them! */ - res = basic_cmp(nscaled, iscaled, "rat_flo_cmp", 0); - clear_buffer_object(ab, nscaled); - clear_buffer_object(ab, iscaled); - clear_buffer_object(ab, i_int); - - return res; - } - } -} - -static C_word flo_rat_cmp(C_word flonum, C_word ratnum) -{ - C_word res = rat_flo_cmp(ratnum, flonum); - switch(res) { - case C_fix(1): return C_fix(-1); - case C_fix(-1): return C_fix(1); - default: return res; /* Can be either C_fix(0) or C_SCHEME_FALSE(!) */ - } -} - -/* The primitive comparison operator. eqp should be 1 if we're only - * interested in equality testing (can speed things up and in case of - * compnums, equality checking is the only available operation). This - * may return #f, in case there is no answer (for NaNs) or as a quick - * and dirty non-zero answer when eqp is true. Ugly but effective :) - */ -static C_word basic_cmp(C_word x, C_word y, char *loc, int eqp) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_fix((x < y) ? -1 : ((x > y) ? 1 : 0)); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return int_flo_cmp(x, y); - } else if (C_truep(C_bignump(y))) { - C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab; - return C_i_bignum_cmp(C_a_u_i_fix_to_big(&a, x), y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - if (eqp) return C_SCHEME_FALSE; - else return rat_cmp(x, y); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - if (eqp) return C_SCHEME_FALSE; - else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } - } else if (C_immediatep(x)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, x); - } else if (C_block_header(x) == C_FLONUM_TAG) { - if (y & C_FIXNUM_BIT) { - return flo_int_cmp(x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - double a = C_flonum_magnitude(x), b = C_flonum_magnitude(y); - if (C_isnan(a) || C_isnan(b)) return C_SCHEME_FALSE; /* "mu" */ - else return C_fix((a < b) ? -1 : ((a > b) ? 1 : 0)); - } else if (C_truep(C_bignump(y))) { - return flo_int_cmp(x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - return flo_rat_cmp(x, y); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - if (eqp) return C_SCHEME_FALSE; - else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } - } else if (C_truep(C_bignump(x))) { - if (y & C_FIXNUM_BIT) { - C_word ab[C_SIZEOF_FIX_BIGNUM], *a = ab; - return C_i_bignum_cmp(x, C_a_u_i_fix_to_big(&a, y)); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return int_flo_cmp(x, y); - } else if (C_truep(C_bignump(y))) { - return C_i_bignum_cmp(x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - if (eqp) return C_SCHEME_FALSE; - else return rat_cmp(x, y); - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - if (eqp) return C_SCHEME_FALSE; - else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } - } else if (C_block_header(x) == C_RATNUM_TAG) { - if (y & C_FIXNUM_BIT) { - if (eqp) return C_SCHEME_FALSE; - else return rat_cmp(x, y); - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } else if (C_block_header(y) == C_FLONUM_TAG) { - return rat_flo_cmp(x, y); - } else if (C_truep(C_bignump(y))) { - if (eqp) return C_SCHEME_FALSE; - else return rat_cmp(x, y); - } else if (C_block_header(y) == C_RATNUM_TAG) { - if (eqp) { - return C_and(C_and(C_i_integer_equalp(C_u_i_ratnum_num(x), - C_u_i_ratnum_num(y)), - C_i_integer_equalp(C_u_i_ratnum_denom(x), - C_u_i_ratnum_denom(y))), - C_fix(0)); - } else { - return rat_cmp(x, y); - } - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - if (eqp) return C_SCHEME_FALSE; - else barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, y); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } - } else if (C_block_header(x) == C_CPLXNUM_TAG) { - if (!eqp) { - barf(C_BAD_ARGUMENT_TYPE_COMPLEX_NO_ORDERING_ERROR, loc, x); - } else if (y & C_FIXNUM_BIT) { - return C_SCHEME_FALSE; - } else if (C_immediatep(y)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } else if (C_block_header(y) == C_FLONUM_TAG || - C_truep(C_bignump(x)) || - C_block_header(y) == C_RATNUM_TAG) { - return C_SCHEME_FALSE; - } else if (C_block_header(y) == C_CPLXNUM_TAG) { - return C_and(C_and(C_i_nequalp(C_u_i_cplxnum_real(x), C_u_i_cplxnum_real(y)), - C_i_nequalp(C_u_i_cplxnum_imag(x), C_u_i_cplxnum_imag(y))), - C_fix(0)); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, y); - } - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, loc, x); - } -} - -static int bignum_cmp_unsigned(C_word x, C_word y) -{ - C_word xlen = C_bignum_size(x), ylen = C_bignum_size(y); - - if (xlen < ylen) { - return -1; - } else if (xlen > ylen) { - return 1; - } else if (x == y) { - return 0; - } else { - C_uword *startx = C_bignum_digits(x), - *scanx = startx + xlen, - *scany = C_bignum_digits(y) + ylen; - - while (startx < scanx) { - C_uword xdigit = (*--scanx), ydigit = (*--scany); - if (xdigit < ydigit) - return -1; - if (xdigit > ydigit) - return 1; - } - return 0; - } -} - -C_regparm C_word C_i_bignum_cmp(C_word x, C_word y) -{ - if (C_bignum_negativep(x)) { - if (C_bignum_negativep(y)) { /* Largest negative number is smallest */ - return C_fix(bignum_cmp_unsigned(y, x)); - } else { - return C_fix(-1); - } - } else { - if (C_bignum_negativep(y)) { - return C_fix(1); - } else { - return C_fix(bignum_cmp_unsigned(x, y)); - } - } -} - -void C_ccall C_nequalp(C_word c, C_word *av) -{ - /* C_word closure = av[ 0 ]; */ - C_word k = av[ 1 ]; - C_word x, y, result = C_SCHEME_TRUE; - - c -= 2; - av += 2; - if (c == 0) C_kontinue(k, result); - x = *(av++); - - if (c == 1 && !C_truep(C_i_numberp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "=", x); - - while(--c) { - y = *(av++); - result = C_i_nequalp(x, y); - if (result == C_SCHEME_FALSE) break; - } - - C_kontinue(k, result); -} - -C_regparm C_word C_i_nequalp(C_word x, C_word y) -{ - return C_mk_bool(basic_cmp(x, y, "=", 1) == C_fix(0)); -} - -C_regparm C_word C_i_integer_equalp(C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) - return C_mk_bool(x == y); - else if (y & C_FIXNUM_BIT) - return C_SCHEME_FALSE; - else - return C_mk_bool(C_i_bignum_cmp(x, y) == C_fix(0)); -} - - -void C_ccall C_greaterp(C_word c, C_word *av) -{ - C_word x, y, - /* closure = av[ 0 ] */ - k = av[ 1 ], - result = C_SCHEME_TRUE; - - c -= 2; - av += 2; - if (c == 0) C_kontinue(k, result); - - x = *(av++); - - if (c == 1 && !C_truep(C_i_numberp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">", x); - - while(--c) { - y = *(av++); - result = C_i_greaterp(x, y); - if (result == C_SCHEME_FALSE) break; - x = y; - } - - C_kontinue(k, result); -} - - -C_regparm C_word C_i_greaterp(C_word x, C_word y) -{ - return C_mk_bool(basic_cmp(x, y, ">", 0) == C_fix(1)); -} - -C_regparm C_word C_i_integer_greaterp(C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_mk_bool(C_unfix(x) > C_unfix(y)); - } else { - return C_mk_bool(C_bignum_negativep(y)); - } - } else if (y & C_FIXNUM_BIT) { - return C_mk_nbool(C_bignum_negativep(x)); - } else { - return C_mk_bool(C_i_bignum_cmp(x, y) == C_fix(1)); - } -} - -void C_ccall C_lessp(C_word c, C_word *av) -{ - C_word x, y, - /* closure = av[ 0 ] */ - k = av[ 1 ], - result = C_SCHEME_TRUE; - - c -= 2; - av += 2; - if (c == 0) C_kontinue(k, result); - - x = *(av++); - - if (c == 1 && !C_truep(C_i_numberp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<", x); - - while(--c) { - y = *(av++); - result = C_i_lessp(x, y); - if (result == C_SCHEME_FALSE) break; - x = y; - } - - C_kontinue(k, result); -} - - -C_regparm C_word C_i_lessp(C_word x, C_word y) -{ - return C_mk_bool(basic_cmp(x, y, "<", 0) == C_fix(-1)); -} - -C_regparm C_word C_i_integer_lessp(C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_mk_bool(C_unfix(x) < C_unfix(y)); - } else { - return C_mk_nbool(C_bignum_negativep(y)); - } - } else if (y & C_FIXNUM_BIT) { - return C_mk_bool(C_bignum_negativep(x)); - } else { - return C_mk_bool(C_i_bignum_cmp(x, y) == C_fix(-1)); - } -} - -void C_ccall C_greater_or_equal_p(C_word c, C_word *av) -{ - C_word x, y, - /* closure = av[ 0 ] */ - k = av[ 1 ], - result = C_SCHEME_TRUE; - - c -= 2; - av += 2; - if (c == 0) C_kontinue(k, result); - - x = *(av++); - - if (c == 1 && !C_truep(C_i_numberp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, ">=", x); - - while(--c) { - y = *(av++); - result = C_i_greater_or_equalp(x, y); - if (result == C_SCHEME_FALSE) break; - x = y; - } - - C_kontinue(k, result); -} - - -C_regparm C_word C_i_greater_or_equalp(C_word x, C_word y) -{ - C_word res = basic_cmp(x, y, ">=", 0); - return C_mk_bool(res == C_fix(0) || res == C_fix(1)); -} - -C_regparm C_word C_i_integer_greater_or_equalp(C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_mk_bool(C_unfix(x) >= C_unfix(y)); - } else { - return C_mk_bool(C_bignum_negativep(y)); - } - } else if (y & C_FIXNUM_BIT) { - return C_mk_nbool(C_bignum_negativep(x)); - } else { - C_word res = C_i_bignum_cmp(x, y); - return C_mk_bool(res == C_fix(0) || res == C_fix(1)); - } -} - -void C_ccall C_less_or_equal_p(C_word c, C_word *av) -{ - C_word x, y, - /* closure = av[ 0 ] */ - k = av[ 1 ], - result = C_SCHEME_TRUE; - - c -= 2; - av += 2; - if (c == 0) C_kontinue(k, result); - - x = *(av++); - - if (c == 1 && !C_truep(C_i_numberp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "<=", x); - - while(--c) { - y = *(av++); - result = C_i_less_or_equalp(x, y); - if (result == C_SCHEME_FALSE) break; - x = y; - } - - C_kontinue(k, result); -} - - -C_regparm C_word C_i_less_or_equalp(C_word x, C_word y) -{ - C_word res = basic_cmp(x, y, "<=", 0); - return C_mk_bool(res == C_fix(0) || res == C_fix(-1)); -} - - -C_regparm C_word C_i_integer_less_or_equalp(C_word x, C_word y) -{ - if (x & C_FIXNUM_BIT) { - if (y & C_FIXNUM_BIT) { - return C_mk_bool(C_unfix(x) <= C_unfix(y)); - } else { - return C_mk_nbool(C_bignum_negativep(y)); - } - } else if (y & C_FIXNUM_BIT) { - return C_mk_bool(C_bignum_negativep(x)); - } else { - C_word res = C_i_bignum_cmp(x, y); - return C_mk_bool(res == C_fix(0) || res == C_fix(-1)); - } -} - - -void C_ccall C_gc(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ]; - int f; - C_word - arg, *p, - size = 0; - - if(c == 3) { - arg = av[ 2 ]; - f = C_truep(arg); - } - else if(c != 2) C_bad_min_argc(c, 2); - else f = 1; - - C_save(k); - p = C_temporary_stack; - - if(c == 3) { - if((arg & C_FIXNUM_BIT) != 0) size = C_unfix(arg); - else if(arg == C_SCHEME_END_OF_LIST) size = percentage(heap_size, C_heap_growth); - } - - if(size && !C_heap_size_is_fixed) { - C_rereclaim2(size, 0); - C_temporary_stack = C_temporary_stack_bottom; - gc_2(0, p); - } - else if(f) C_fromspace_top = C_fromspace_limit; - - C_reclaim((void *)gc_2, 1); -} - - -void C_ccall gc_2(C_word c, C_word *av) -{ - C_word k = av[ 0 ]; - C_kontinue(k, C_fix((C_uword)C_fromspace_limit - (C_uword)C_fromspace_top)); -} - - -void C_ccall C_open_file_port(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - port = av[ 2 ], - channel = av[ 3 ], - mode = av[ 4 ]; - C_FILEPTR fp = (C_FILEPTR)NULL; - C_char *fmode; - C_word n, bv, fbv; - C_char *buf; - C_WCHAR *fbuf; - - 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: - bv = C_block_item(channel, 0); - buf = C_c_string(bv); - fbv = C_block_item(mode, 0); - fmode = C_c_string(fbv); - if (C_header_size(C_block_item(channel, 0)) - 1 != strlen(buf)) - barf(C_ASCIIZ_REPRESENTATION_ERROR, "open", channel); - if (C_header_size(C_block_item(mode, 0)) - 1 != strlen(fmode)) - barf(C_ASCIIZ_REPRESENTATION_ERROR, "open", mode); - fbuf = C_OS_FILENAME(bv, 0); - fp = C_fopen(fbuf, C_OS_FILENAME(fbv, 1)); - } - - 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, init, bytes, n, *p; - - if(c != 4) C_bad_argc(c, 4); - - size = av[ 2 ]; - init = av[ 3 ]; - n = C_unfix(size); - - if(n > C_HEADER_SIZE_MASK || n < 0) - barf(C_OUT_OF_BOUNDS_ERROR, NULL, size, C_fix(C_HEADER_SIZE_MASK)); - - bytes = C_wordstobytes(n) + sizeof(C_word); - - C_save(k); - C_save(size); - C_save(init); - 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 5 here, that's the number of things saved. - * That's the arguments, plus one additional thing: the mode. - */ - C_reclaim((void *)allocate_vector_2, 5); - } - - 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 ]), - init = av[ 2 ], - size = C_unfix(av[ 3 ]), - k = av[ 4 ], - *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)); - - v = (C_word)v0; - *(v0++) = C_VECTOR_TYPE | size; - while(size--) *(v0++) = init; - C_kontinue(k, v); -} - -void C_ccall C_allocate_bytevector(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - size, init, align8, bytes, str, n, *p; - - if(c != 4) C_bad_argc(c, 4); - - size = av[ 2 ]; - init = av[ 3 ]; - n = C_unfix(size); - - if(n > C_HEADER_SIZE_MASK || n < 0) - barf(C_OUT_OF_BOUNDS_ERROR, NULL, size, C_fix(C_HEADER_SIZE_MASK)); - - bytes = n + sizeof(C_word) * 2; - - C_save(k); - C_save(size); - C_save(init); - 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 5 here, that's the number of things saved. - * That's the arguments, plus one additional thing: the mode. - */ - C_reclaim((void *)allocate_bytevector_2, 5); - } - - C_save(C_SCHEME_FALSE); - p = C_temporary_stack; - C_temporary_stack = C_temporary_stack_bottom; - allocate_bytevector_2(0, p); -} - - -void C_ccall allocate_bytevector_2(C_word c, C_word *av) -{ - C_word - mode = av[ 0 ], - bytes = C_unfix(av[ 1 ]), - init = av[ 2 ], - size = C_unfix(av[ 3 ]), - k = av[ 4 ], - *v0, v; - char buf[ 4 ]; - - 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_aligned8(v0)) ++v0; -#endif - - v = (C_word)v0; - *(v0++) = C_BYTEVECTOR_TYPE | size; - - if(C_truep(init)) C_memset(v0, C_unfix(init), size); - - C_kontinue(k, v); -} - -static C_word allocate_tmp_bignum(C_word size, C_word negp, C_word initp) -{ - C_word *mem = C_malloc(C_wordstobytes(C_SIZEOF_BIGNUM(C_unfix(size)))), - bigvec = (C_word)(mem + C_SIZEOF_BIGNUM_WRAPPER); - if (mem == NULL) abort(); /* TODO: panic */ - - C_block_header_init(bigvec, C_BYTEVECTOR_TYPE | C_wordstobytes(C_unfix(size)+1)); - C_set_block_item(bigvec, 0, C_truep(negp)); - - if (C_truep(initp)) { - C_memset(((C_uword *)C_data_pointer(bigvec))+1, - 0, C_wordstobytes(C_unfix(size))); - } - - return C_a_i_bignum_wrapper(&mem, bigvec); -} - -C_regparm C_word -C_allocate_scratch_bignum(C_word **ptr, C_word size, C_word negp, C_word initp) -{ - C_word big, bigvec = C_scratch_alloc(C_SIZEOF_INTERNAL_BIGNUM_VECTOR(C_unfix(size))); - - C_block_header_init(bigvec, C_BYTEVECTOR_TYPE | C_wordstobytes(C_unfix(size)+1)); - C_set_block_item(bigvec, 0, C_truep(negp)); - - if (C_truep(initp)) { - C_memset(((C_uword *)C_data_pointer(bigvec))+1, - 0, C_wordstobytes(C_unfix(size))); - } - - big = C_a_i_bignum_wrapper(ptr, bigvec); - C_mutate_scratch_slot(&C_internal_bignum_vector(big), bigvec); - return big; -} - -/* Simplification: scan trailing zeroes, then return a fixnum if the - * value fits, or trim the bignum's length. If the bignum was stored - * in scratch space, we mark it as reclaimable. This means any - * references to the original bignum are invalid after simplification! - */ -C_regparm C_word C_bignum_simplify(C_word big) -{ - C_uword *start = C_bignum_digits(big), - *last_digit = start + C_bignum_size(big) - 1, - *scan = last_digit, tmp; - int length; - - while (scan >= start && *scan == 0) - scan--; - length = scan - start + 1; - - switch(length) { - case 0: - if (C_in_scratchspacep(C_internal_bignum_vector(big))) - C_mutate_scratch_slot(NULL, C_internal_bignum_vector(big)); - return C_fix(0); - case 1: - tmp = *start; - if (C_bignum_negativep(big) ? - !(tmp & C_INT_SIGN_BIT) && C_fitsinfixnump(-(C_word)tmp) : - C_ufitsinfixnump(tmp)) { - if (C_in_scratchspacep(C_internal_bignum_vector(big))) - C_mutate_scratch_slot(NULL, C_internal_bignum_vector(big)); - return C_bignum_negativep(big) ? C_fix(-(C_word)tmp) : C_fix(tmp); - } - /* FALLTHROUGH */ - default: - if (scan < last_digit) C_bignum_mutate_size(big, length); - return big; - } -} - -static void bignum_digits_destructive_negate(C_word result) -{ - C_uword *scan, *end, digit, sum; - - scan = C_bignum_digits(result); - end = scan + C_bignum_size(result); - - do { - digit = ~*scan; - sum = digit + 1; - *scan++ = sum; - } while (sum == 0 && scan < end); - - for (; scan < end; scan++) { - *scan = ~*scan; - } -} - -static C_uword -bignum_digits_destructive_scale_up_with_carry(C_uword *start, C_uword *end, C_uword factor, C_uword carry) -{ - C_uword digit, p; - - assert(C_fitsinbignumhalfdigitp(carry)); - assert(C_fitsinbignumhalfdigitp(factor)); - - /* See fixnum_times. Substitute xlo = factor, xhi = 0, y = digit - * and simplify the result to reduce variable usage. - */ - while (start < end) { - digit = (*start); - - p = factor * C_BIGNUM_DIGIT_LO_HALF(digit) + carry; - carry = C_BIGNUM_DIGIT_LO_HALF(p); - - p = factor * C_BIGNUM_DIGIT_HI_HALF(digit) + C_BIGNUM_DIGIT_HI_HALF(p); - (*start++) = C_BIGNUM_DIGIT_COMBINE(C_BIGNUM_DIGIT_LO_HALF(p), carry); - carry = C_BIGNUM_DIGIT_HI_HALF(p); - } - return carry; -} - -static C_uword -bignum_digits_destructive_scale_down(C_uword *start, C_uword *end, C_uword denominator) -{ - C_uword digit, k = 0; - C_uhword q_j_hi, q_j_lo; - - /* Single digit divisor case from Hacker's Delight, Figure 9-1, - * adapted to modify u[] in-place instead of writing to q[]. - */ - while (start < end) { - digit = (*--end); - - k = C_BIGNUM_DIGIT_COMBINE(k, C_BIGNUM_DIGIT_HI_HALF(digit)); /* j */ - q_j_hi = k / denominator; - k -= q_j_hi * denominator; - - k = C_BIGNUM_DIGIT_COMBINE(k, C_BIGNUM_DIGIT_LO_HALF(digit)); /* j-1 */ - q_j_lo = k / denominator; - k -= q_j_lo * denominator; - - *end = C_BIGNUM_DIGIT_COMBINE(q_j_hi, q_j_lo); - } - return k; -} - -static C_uword -bignum_digits_destructive_shift_right(C_uword *start, C_uword *end, int shift_right, int negp) -{ - int shift_left = C_BIGNUM_DIGIT_LENGTH - shift_right; - C_uword digit, carry = negp ? ((~(C_uword)0) << shift_left) : 0; - - assert(shift_right < C_BIGNUM_DIGIT_LENGTH); - - while (start < end) { - digit = *(--end); - *end = (digit >> shift_right) | carry; - carry = digit << shift_left; - } - return carry >> shift_left; /* The bits that were shifted out to the right */ -} - -static C_uword -bignum_digits_destructive_shift_left(C_uword *start, C_uword *end, int shift_left) -{ - C_uword carry = 0, digit; - int shift_right = C_BIGNUM_DIGIT_LENGTH - shift_left; - - assert(shift_left < C_BIGNUM_DIGIT_LENGTH); - - while (start < end) { - digit = *start; - (*start++) = (digit << shift_left) | carry; - carry = digit >> shift_right; - } - return carry; /* This would end up as most significant digit if it fit */ -} - -static C_regparm void -bignum_digits_multiply(C_word x, C_word y, C_word result) -{ - C_uword product, - *xd = C_bignum_digits(x), - *yd = C_bignum_digits(y), - *rd = C_bignum_digits(result); - C_uhword carry, yj; - /* Lengths in halfwords */ - int i, j, length_x = C_bignum_size(x) * 2, length_y = C_bignum_size(y) * 2; - - /* From Hacker's Delight, Figure 8-1 (top part) */ - for (j = 0; j < length_y; ++j) { - yj = C_uhword_ref(yd, j); - if (yj == 0) continue; - carry = 0; - for (i = 0; i < length_x; ++i) { - product = (C_uword)C_uhword_ref(xd, i) * yj + - (C_uword)C_uhword_ref(rd, i + j) + carry; - C_uhword_set(rd, i + j, product); - carry = C_BIGNUM_DIGIT_HI_HALF(product); - } - C_uhword_set(rd, j + length_x, carry); - } -} - - -/* "small" is either a number that fits a halfdigit, or a power of two */ -static C_regparm void -bignum_destructive_divide_unsigned_small(C_word **ptr, C_word x, C_word y, C_word *q, C_word *r) -{ - C_word size, quotient, q_negp = C_mk_bool((y & C_INT_SIGN_BIT) ? - !(C_bignum_negativep(x)) : - C_bignum_negativep(x)), - r_negp = C_mk_bool(C_bignum_negativep(x)); - C_uword *start, *end, remainder; - int shift_amount; - - size = C_fix(C_bignum_size(x)); - quotient = C_allocate_scratch_bignum(ptr, size, q_negp, C_SCHEME_FALSE); - bignum_digits_destructive_copy(quotient, x); - - start = C_bignum_digits(quotient); - end = start + C_bignum_size(quotient); - - y = (y & C_INT_SIGN_BIT) ? -C_unfix(y) : C_unfix(y); - - shift_amount = C_ilen(y) - 1; - if (((C_uword)1 << shift_amount) == y) { /* Power of two? Shift! */ - remainder = bignum_digits_destructive_shift_right(start,end,shift_amount,0); - assert(C_ufitsinfixnump(remainder)); - } else { - remainder = bignum_digits_destructive_scale_down(start, end, y); - assert(C_fitsinbignumhalfdigitp(remainder)); - } - - if (r != NULL) *r = C_truep(r_negp) ? C_fix(-remainder) : C_fix(remainder); - /* Calling this function only makes sense if quotient is needed */ - *q = C_bignum_simplify(quotient); -} - -static C_regparm void -bignum_destructive_divide_full(C_word numerator, C_word denominator, C_word quotient, C_word remainder, C_word return_remainder) -{ - C_word length = C_bignum_size(denominator); - C_uword d1 = *(C_bignum_digits(denominator) + length - 1), - *startr = C_bignum_digits(remainder), - *endr = startr + C_bignum_size(remainder); - int shift; - - shift = C_BIGNUM_DIGIT_LENGTH - C_ilen(d1); /* nlz */ - - /* We have to work on halfdigits, so we shift out only the necessary - * amount in order fill out that halfdigit (base is halved). - * This trick is shamelessly stolen from Gauche :) - * See below for part 2 of the trick. - */ - if (shift >= C_BIGNUM_HALF_DIGIT_LENGTH) - shift -= C_BIGNUM_HALF_DIGIT_LENGTH; - - /* Code below won't always set high halfdigit of quotient, so do it here. */ - if (quotient != C_SCHEME_UNDEFINED) - C_bignum_digits(quotient)[C_bignum_size(quotient)-1] = 0; - - bignum_digits_destructive_copy(remainder, numerator); - *(endr-1) = 0; /* Ensure most significant digit is initialised */ - if (shift == 0) { /* Already normalized */ - bignum_destructive_divide_normalized(remainder, denominator, quotient); - } else { /* Requires normalisation; allocate scratch denominator for this */ - C_uword *startnd; - C_word ndenom; - - bignum_digits_destructive_shift_left(startr, endr, shift); - - ndenom = allocate_tmp_bignum(C_fix(length), C_SCHEME_FALSE, C_SCHEME_FALSE); - startnd = C_bignum_digits(ndenom); - bignum_digits_destructive_copy(ndenom, denominator); - bignum_digits_destructive_shift_left(startnd, startnd+length, shift); - - bignum_destructive_divide_normalized(remainder, ndenom, quotient); - if (C_truep(return_remainder)) /* Otherwise, don't bother shifting back */ - bignum_digits_destructive_shift_right(startr, endr, shift, 0); - - free_tmp_bignum(ndenom); - } -} - -static C_regparm void -bignum_destructive_divide_normalized(C_word big_u, C_word big_v, C_word big_q) -{ - C_uword *v = C_bignum_digits(big_v), - *u = C_bignum_digits(big_u), - *q = big_q == C_SCHEME_UNDEFINED ? NULL : C_bignum_digits(big_q), - p, /* product of estimated quotient & "denominator" */ - hat, qhat, rhat, /* estimated quotient and remainder digit */ - vn_1, vn_2; /* "cached" values v[n-1], v[n-2] */ - C_word t, k; /* Two helpers: temp/final remainder and "borrow" */ - /* We use plain ints here, which theoretically may not be enough on - * 64-bit for an insanely huge number, but it is a _lot_ faster. - */ - int n = C_bignum_size(big_v) * 2, /* in halfwords */ - m = (C_bignum_size(big_u) * 2) - 2; /* Correct for extra digit */ - int i, j; /* loop vars */ - - /* Part 2 of Gauche's aforementioned trick: */ - if (C_uhword_ref(v, n-1) == 0) n--; - - /* These won't change during the loop, but are used in every step. */ - vn_1 = C_uhword_ref(v, n-1); - vn_2 = C_uhword_ref(v, n-2); - - /* See also Hacker's Delight, Figure 9-1. This is almost exactly that. */ - for (j = m - n; j >= 0; j--) { - hat = C_BIGNUM_DIGIT_COMBINE(C_uhword_ref(u, j+n), C_uhword_ref(u, j+n-1)); - if (hat == 0) { - if (q != NULL) C_uhword_set(q, j, 0); - continue; - } - qhat = hat / vn_1; - rhat = hat % vn_1; - - /* Two whiles is faster than one big check with an OR. Thanks, Gauche! */ - while(qhat >= ((C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH)) { qhat--; rhat += vn_1; } - while(qhat * vn_2 > C_BIGNUM_DIGIT_COMBINE(rhat, C_uhword_ref(u, j+n-2)) - && rhat < ((C_uword)1 << C_BIGNUM_HALF_DIGIT_LENGTH)) { - qhat--; - rhat += vn_1; - } - - /* Multiply and subtract */ - k = 0; - for (i = 0; i < n; i++) { - p = qhat * C_uhword_ref(v, i); - t = C_uhword_ref(u, i+j) - k - C_BIGNUM_DIGIT_LO_HALF(p); - C_uhword_set(u, i+j, t); - k = C_BIGNUM_DIGIT_HI_HALF(p) - (t >> C_BIGNUM_HALF_DIGIT_LENGTH); - } - t = C_uhword_ref(u,j+n) - k; - C_uhword_set(u, j+n, t); - - if (t < 0) { /* Subtracted too much? */ - qhat--; - k = 0; - for (i = 0; i < n; i++) { - t = (C_uword)C_uhword_ref(u, i+j) + C_uhword_ref(v, i) + k; - C_uhword_set(u, i+j, t); - k = t >> C_BIGNUM_HALF_DIGIT_LENGTH; - } - C_uhword_set(u, j+n, (C_uhword_ref(u, j+n) + k)); - } - if (q != NULL) C_uhword_set(q, j, qhat); - } /* end j */ -} - - -/* XXX this should be an inline_allocate routine */ -void C_ccall C_string_to_symbol(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ]; - int len, key; - C_word s, *a = C_alloc(C_SIZEOF_SYMBOL + C_SIZEOF_PAIR), b; - C_char *name; - - b = av[ 2 ]; - len = C_header_size(b) - 1; - name = C_c_string(b); - - key = hash_string(len, name, symbol_table->size, symbol_table->rand); - if(!C_truep(s = lookup(key, len, name, symbol_table))) - s = add_symbol(&a, key, b, symbol_table); - - C_kontinue(k, s); -} - -/* XXX this should be an inline_allocate routine */ -void C_ccall C_string_to_keyword(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ]; - int len, key; - C_word s, *a = C_alloc(C_SIZEOF_SYMBOL + C_SIZEOF_PAIR), b; - C_char *name; - - b = av[ 2 ]; - len = C_header_size(b) - 1; - name = C_c_string(b); - key = hash_string(len, name, keyword_table->size, keyword_table->rand); - - if(!C_truep(s = lookup(key, len, name, keyword_table))) { - s = add_symbol(&a, key, b, keyword_table); - C_set_block_item(s, 0, s); /* Keywords evaluate to themselves */ - C_set_block_item(s, 2, C_SCHEME_FALSE); /* Keywords have no plists */ - } - C_kontinue(k, s); -} - -/* This will usually return a flonum, but it may also return a cplxnum - * consisting of two flonums, making for a total of 11 words. - */ -C_regparm C_word -C_a_i_exact_to_inexact(C_word **ptr, int c, C_word n) -{ - if (n & C_FIXNUM_BIT) { - return C_flonum(ptr, (double)C_unfix(n)); - } else if (C_immediatep(n)) { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact->inexact", n); - } else if (C_block_header(n) == C_FLONUM_TAG) { - return n; - } else if (C_truep(C_bignump(n))) { - return C_a_u_i_big_to_flo(ptr, c, n); - } else if (C_block_header(n) == C_CPLXNUM_TAG) { - return C_cplxnum(ptr, C_a_i_exact_to_inexact(ptr, 1, C_u_i_cplxnum_real(n)), - C_a_i_exact_to_inexact(ptr, 1, C_u_i_cplxnum_imag(n))); - /* The horribly painful case: ratnums */ - } else if (C_block_header(n) == C_RATNUM_TAG) { - /* This tries to keep the numbers within representable ranges and - * tries to drop as few significant digits as possible by bringing - * the two numbers to within the same powers of two. See - * algorithms M & N in Knuth, 4.2.1. - */ - C_word num = C_u_i_ratnum_num(n), denom = C_u_i_ratnum_denom(n), - /* e = approx. distance between the numbers in powers of 2. - * ie, 2^e-1 < n/d < 2^e+1 (e is the *un*biased value of - * e_w in M2. TODO: What if b!=2 (ie, flonum-radix isn't 2)? - */ - e = integer_length_abs(num) - integer_length_abs(denom), - ab[C_SIZEOF_FIX_BIGNUM*5+C_SIZEOF_FLONUM], *a = ab, tmp, q, r, len, - shift_amount, negp = C_i_integer_negativep(num); - C_uword *d; - double res, fraction; - - /* Align by shifting the smaller to the size of the larger */ - if (e < 0) num = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(-e)); - else if (e > 0) denom = C_s_a_i_arithmetic_shift(&a, 2, denom, C_fix(e)); - - /* Here, 1/2 <= n/d < 2 [N3] */ - if (C_truep(C_i_integer_lessp(num, denom))) { /* n/d < 1? */ - tmp = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(1)); - clear_buffer_object(ab, num); /* "knows" shift creates fresh numbers */ - num = tmp; - e--; - } - - /* Here, 1 <= n/d < 2 (normalized) [N5] */ - shift_amount = nmin(DBL_MANT_DIG-1, e - (DBL_MIN_EXP - DBL_MANT_DIG)); - - tmp = C_s_a_i_arithmetic_shift(&a, 2, num, C_fix(shift_amount)); - clear_buffer_object(ab, num); /* "knows" shift creates fresh numbers */ - num = tmp; - - /* Now, calculate round(num/denom). We start with a quotient&remainder */ - integer_divrem(&a, num, denom, &q, &r); - - /* We multiply the remainder by two to simulate adding 1/2 for - * round. However, we don't do it if num = denom (q=1,r=0) */ - if (!((q == C_fix(1) || q == C_fix(-1)) && r == C_fix(0))) { - tmp = C_s_a_i_arithmetic_shift(&a, 2, r, C_fix(1)); - clear_buffer_object(ab, r); /* "knows" shift creates fresh numbers */ - r = tmp; - } - - /* Now q is the quotient, but to "round" result we need to - * adjust. This follows the semantics of the "round" procedure: - * Round away from zero on positive numbers (ignoring sign). In - * case of exactly halfway, we round up if odd. - */ - tmp = C_a_i_exact_to_inexact(&a, 1, q); - fraction = fabs(C_flonum_magnitude(tmp)); - switch (basic_cmp(r, denom, "", 0)) { - case C_fix(0): - if (C_truep(C_i_oddp(q))) fraction += 1.0; - break; - case C_fix(1): - fraction += 1.0; - break; - default: /* if r <= denom, we're done */ break; - } - - clear_buffer_object(ab, num); - clear_buffer_object(ab, denom); - clear_buffer_object(ab, q); - clear_buffer_object(ab, r); - - shift_amount = nmin(DBL_MANT_DIG-1, e - (DBL_MIN_EXP - DBL_MANT_DIG)); - res = ldexp(fraction, e - shift_amount); - return C_flonum(ptr, C_truep(negp) ? -res : res); - } else { - barf(C_BAD_ARGUMENT_TYPE_NO_NUMBER_ERROR, "exact->inexact", n); - } -} - - -/* this is different from C_a_i_flonum_round, for R5RS compatibility */ -C_regparm C_word C_a_i_flonum_round_proper(C_word **ptr, int c, C_word n) -{ - double fn, i, f, i2, r; - - fn = C_flonum_magnitude(n); - if(fn < 0.0) { - f = modf(-fn, &i); - if(f < 0.5 || (f == 0.5 && modf(i * 0.5, &i2) == 0.0)) - r = -i; - else - r = -(i + 1.0); - } - else if(fn == 0.0/* || fn == -0.0*/) - r = fn; - else { - f = modf(fn, &i); - if(f < 0.5 || (f == 0.5 && modf(i * 0.5, &i2) == 0.0)) - r = i; - else - r = i + 1.0; - } - - return C_flonum(ptr, r); -} - -C_regparm C_word -C_a_i_flonum_gcd(C_word **p, C_word n, C_word x, C_word y) -{ - double xub, yub, r; - - if (!C_truep(C_u_i_fpintegerp(x))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "gcd", x); - if (!C_truep(C_u_i_fpintegerp(y))) - barf(C_BAD_ARGUMENT_TYPE_NO_INTEGER_ERROR, "gcd", y); - - xub = C_flonum_magnitude(x); - yub = C_flonum_magnitude(y); - - if (xub < 0.0) xub = -xub; - if (yub < 0.0) yub = -yub; - - while(yub != 0.0) { - r = fmod(xub, yub); - xub = yub; - yub = r; - } - return C_flonum(p, xub); -} - -/* This is Lehmer's GCD algorithm with Jebelean's quotient test, as - * it is presented in the paper "An Analysis of Lehmer’s Euclidean - * GCD Algorithm", by J. Sorenson. Fuck the ACM and their goddamn - * paywall; you can currently find the paper here: - * http://www.csie.nuk.edu.tw/~cychen/gcd/An%20analysis%20of%20Lehmer%27s%20Euclidean%20GCD%20algorithm.pdf - * If that URI fails, it's also explained in [MpNT, 5.2] - * - * The basic idea is to avoid divisions which yield only small - * quotients, in which the remainder won't reduce the numbers by - * much. This can be detected by dividing only the leading k bits. - * In our case, k = C_WORD_SIZE - 2. - */ -inline static void lehmer_gcd(C_word **ptr, C_word u, C_word v, C_word *x, C_word *y) -{ - int i_even = 1, done = 0; - C_word shift_amount = integer_length_abs(u) - (C_WORD_SIZE - 2), - ab[C_SIZEOF_BIGNUM(2)*2+C_SIZEOF_FIX_BIGNUM*2], *a = ab, - uhat, vhat, qhat, xnext, ynext, - xprev = 1, yprev = 0, xcurr = 0, ycurr = 1; - - uhat = C_s_a_i_arithmetic_shift(&a, 2, u, C_fix(-shift_amount)); - vhat = C_s_a_i_arithmetic_shift(&a, 2, v, C_fix(-shift_amount)); - assert(uhat & C_FIXNUM_BIT); uhat = C_unfix(uhat); - assert(vhat & C_FIXNUM_BIT); vhat = C_unfix(vhat); - - do { - qhat = uhat / vhat; /* Estimated quotient for this step */ - xnext = xprev - qhat * xcurr; - ynext = yprev - qhat * ycurr; - - /* Euclidean GCD swap on uhat and vhat (shift_amount is not needed): */ - shift_amount = vhat; - vhat = uhat - qhat * vhat; - uhat = shift_amount; - - i_even = !i_even; - if (i_even) - done = (vhat < -xnext) || ((uhat - vhat) < (ynext - ycurr)); - else - done = (vhat < -ynext) || ((uhat - vhat) < (xnext - xcurr)); - - if (!done) { - xprev = xcurr; yprev = ycurr; - xcurr = xnext; ycurr = ynext; - } - } while (!done); - - /* x = xprev * u + yprev * v */ - uhat = C_s_a_u_i_integer_times(&a, 2, C_fix(xprev), u); - vhat = C_s_a_u_i_integer_times(&a, 2, C_fix(yprev), v); - *x = C_s_a_u_i_integer_plus(ptr, 2, uhat, vhat); - *x = move_buffer_object(ptr, ab, *x); - clear_buffer_object(ab, uhat); - clear_buffer_object(ab, vhat); - - /* y = xcurr * u + ycurr * v */ - uhat = C_s_a_u_i_integer_times(&a, 2, C_fix(xcurr), u); - vhat = C_s_a_u_i_integer_times(&a, 2, C_fix(ycurr), v); - *y = C_s_a_u_i_integer_plus(ptr, 2, uhat, vhat); - *y = move_buffer_object(ptr, ab, *y); - clear_buffer_object(ab, uhat); - clear_buffer_object(ab, vhat); -} - -/* Because this must be inlineable (due to + and - using this for - * ratnums), we can't use burnikel-ziegler division here, until we - * have a C implementation that doesn't consume stack. However, - * we *can* use Lehmer's GCD. - */ -C_regparm C_word -C_s_a_u_i_integer_gcd(C_word **ptr, C_word n, C_word x, C_word y) -{ - C_word ab[2][C_SIZEOF_BIGNUM(2) * 2], *a, newx, newy, size, i = 0; - - if (x & C_FIXNUM_BIT && y & C_FIXNUM_BIT) return C_i_fixnum_gcd(x, y); - - a = ab[i++]; - x = C_s_a_u_i_integer_abs(&a, 1, x); - y = C_s_a_u_i_integer_abs(&a, 1, y); - - if (!C_truep(C_i_integer_greaterp(x, y))) { - newx = y; y = x; x = newx; /* Ensure loop invariant: abs(x) >= abs(y) */ - } - - while(y != C_fix(0)) { - assert(integer_length_abs(x) >= integer_length_abs(y)); - /* x and y are stored in the same buffer, as well as a result */ - a = ab[i++]; - if (i == 2) i = 0; - - if (x & C_FIXNUM_BIT) return C_i_fixnum_gcd(x, y); - - /* First, see if we should run a Lehmer step */ - if ((integer_length_abs(x) - integer_length_abs(y)) < C_HALF_WORD_SIZE) { - lehmer_gcd(&a, x, y, &newx, &newy); - newx = move_buffer_object(&a, ab[i], newx); - newy = move_buffer_object(&a, ab[i], newy); - clear_buffer_object(ab[i], x); - clear_buffer_object(ab[i], y); - x = newx; - y = newy; - a = ab[i++]; /* Ensure x and y get cleared correctly below */ - if (i == 2) i = 0; - } - - newy = C_s_a_u_i_integer_remainder(&a, 2, x, y); - newy = move_buffer_object(&a, ab[i], newy); - newx = move_buffer_object(&a, ab[i], y); - clear_buffer_object(ab[i], x); - clear_buffer_object(ab[i], y); - x = newx; - y = newy; - } - - newx = C_s_a_u_i_integer_abs(ptr, 1, x); - newx = move_buffer_object(ptr, ab, newx); - clear_buffer_object(ab, x); - clear_buffer_object(ab, y); - return newx; -} - - -C_regparm C_word -C_s_a_i_digits_to_integer(C_word **ptr, C_word n, C_word str, C_word start, C_word end, C_word radix, C_word negp) -{ - if (start == end) { - return C_SCHEME_FALSE; - } else { - size_t nbits; - char *s = C_c_string(C_block_item(str, 0)); - C_word result, size; - end = C_unfix(end); - start = C_unfix(start); - radix = C_unfix(radix); - - assert((radix > 1) && C_fitsinbignumhalfdigitp(radix)); - - nbits = (end - start) * C_ilen(radix - 1); - size = C_BIGNUM_BITS_TO_DIGITS(nbits); - if (size == 1) { - result = C_bignum1(ptr, C_truep(negp), 0); - } else if (size == 2) { - result = C_bignum2(ptr, C_truep(negp), 0, 0); - } else { - size = C_fix(size); - result = C_allocate_scratch_bignum(ptr, size, negp, C_SCHEME_FALSE); - } - - return str_to_bignum(result, s + start, s + end, radix); - } -} - -inline static int hex_char_to_digit(int ch) -{ - if (ch == (int)'#') return 0; /* Hash characters in numbers are mapped to 0 */ - else if (ch >= (int)'a') return ch - (int)'a' + 10; /* lower hex */ - else if (ch >= (int)'A') return ch - (int)'A' + 10; /* upper hex */ - else return ch - (int)'0'; /* decimal (OR INVALID; handled elsewhere) */ -} - -/* Write from digit character stream to bignum. Bignum does not need - * to be initialised. Returns the bignum, or a fixnum. Assumes the - * string contains only digits that fit within radix (checked by - * string->number). - */ -static C_regparm C_word -str_to_bignum(C_word bignum, char *str, char *str_end, int radix) -{ - int radix_shift, str_digit; - C_uword *digits = C_bignum_digits(bignum), - *end_digits = digits + C_bignum_size(bignum), big_digit = 0; - - /* Below, we try to save up as much as possible in big_digit, and - * only when it exceeds what we would be able to multiply easily, we - * scale up the bignum and add what we saved up. - */ - radix_shift = C_ilen(radix) - 1; - if (((C_uword)1 << radix_shift) == radix) { /* Power of two? */ - int n = 0; /* Number of bits read so far into current big digit */ - - /* Read from least to most significant digit to avoid shifting or scaling */ - while (str_end > str) { - str_digit = hex_char_to_digit((int)*--str_end); - - big_digit |= (C_uword)str_digit << n; - n += radix_shift; - - if (n >= C_BIGNUM_DIGIT_LENGTH) { - n -= C_BIGNUM_DIGIT_LENGTH; - *digits++ = big_digit; - big_digit = str_digit >> (radix_shift - n); - } - } - assert(n < C_BIGNUM_DIGIT_LENGTH); - /* If radix isn't an exact divisor of digit length, write final digit */ - if (n > 0) *digits++ = big_digit; - assert(digits == end_digits); - } else { /* Not a power of two */ - C_uword *last_digit = digits, factor; /* bignum starts as zero */ - - do { - factor = radix; - while (str < str_end && C_fitsinbignumhalfdigitp(factor)) { - str_digit = hex_char_to_digit((int)*str++); - factor *= radix; - big_digit = radix * big_digit + str_digit; - } - - big_digit = bignum_digits_destructive_scale_up_with_carry( - digits, last_digit, factor / radix, big_digit); - - if (big_digit) { - (*last_digit++) = big_digit; /* Move end */ - big_digit = 0; - } - } while (str < str_end); - - /* Set remaining digits to zero so bignum_simplify can do its work */ - assert(last_digit <= end_digits); - while (last_digit < end_digits) *last_digit++ = 0; - } - - return C_bignum_simplify(bignum); -} - - -static C_regparm double decode_flonum_literal(C_char *str) -{ - C_char *eptr; - double flo; - int len = C_strlen(str); - - /* We only need to be able to parse what C_flonum_to_string() emits, - * so we avoid too much error checking. - */ - if (len == 6) { /* Only perform comparisons when necessary */ - if (!C_strcmp(str, "-inf.0")) return -1.0 / 0.0; - if (!C_strcmp(str, "+inf.0")) return 1.0 / 0.0; - if (!C_strcmp(str, "+nan.0")) return 0.0 / 0.0; - } - - errno = 0; - flo = C_strtod(str, &eptr); - - if((flo == HUGE_VAL && errno != 0) || - (flo == -HUGE_VAL && errno != 0) || - (*eptr != '\0' && C_strcmp(eptr, ".0") != 0)) { - panic(C_text("could not decode flonum literal")); - } - - return flo; -} - - -static char *to_n_nary(C_uword num, C_uword base, int negp, int as_flonum) -{ - static char *digits = "0123456789abcdef"; - char *p; - C_uword shift = C_ilen(base) - 1; - int mask = (1 << shift) - 1; - if (as_flonum) { - buffer[68] = '\0'; - buffer[67] = '0'; - buffer[66] = '.'; - } else { - buffer[66] = '\0'; - } - p = buffer + 66; - if (mask == base - 1) { - do { - *(--p) = digits [ num & mask ]; - num >>= shift; - } while (num); - } else { - do { - *(--p) = digits [ num % base ]; - num /= base; - } while (num); - } - if (negp) *(--p) = '-'; - return p; -} - - -void C_ccall C_number_to_string(C_word c, C_word *av) -{ - C_word radix, num; - - if(c == 3) { - radix = C_fix(10); - } else if(c == 4) { - radix = av[ 3 ]; - if(!(radix & C_FIXNUM_BIT)) - barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", radix); - } else { - C_bad_argc(c, 3); - } - - num = av[ 2 ]; - - if(num & C_FIXNUM_BIT) { - C_fixnum_to_string(c, av); /* reuse av */ - } else if (C_immediatep(num)) { - barf(C_BAD_ARGUMENT_TYPE_ERROR, "number->string", num); - } else if(C_block_header(num) == C_FLONUM_TAG) { - C_flonum_to_string(c, av); /* reuse av */ - } else if (C_truep(C_bignump(num))) { - C_integer_to_string(c, av); /* reuse av */ - } else { - C_word k = av[ 1 ]; - try_extended_number("##sys#extended-number->string", 3, k, num, radix); - } -} - -void C_ccall C_fixnum_to_string(C_word c, C_word *av) -{ - C_char *p; - C_word *a, - /* self = av[ 0 ] */ - k = av[ 1 ], - num = av[ 2 ], - radix = ((c == 3) ? 10 : C_unfix(av[ 3 ])), - neg = ((num & C_INT_SIGN_BIT) ? 1 : 0); - - if (radix < 2 || radix > 16) { - barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); - } - - num = neg ? -C_unfix(num) : C_unfix(num); - p = to_n_nary(num, radix, neg, 0); - - num = C_strlen(p); - a = C_alloc(C_SIZEOF_STRING(num)); - C_kontinue(k, C_string(&a, num, p)); -} - -void C_ccall C_flonum_to_string(C_word c, C_word *av) -{ - C_char *p; - double f, fa, m; - C_word *a, - /* self = av[ 0 ] */ - k = av[ 1 ], - num = av[ 2 ], - radix = ((c == 3) ? 10 : C_unfix(av[ 3 ])); - - f = C_flonum_magnitude(num); - fa = fabs(f); - - /* XXX TODO: Should inexacts be printable in other bases than 10? - * Perhaps output a string starting with #i? - * Right now something like (number->string 1e40 16) results in - * a string that can't be read back using string->number. - */ - if((radix < 2) || (radix > 16)){ - barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); - } - - if(f == 0.0 || (C_modf(f, &m) == 0.0 && log2(fa) < C_WORD_SIZE)) { /* Use fast int code */ - if(signbit(f)) { - p = to_n_nary((C_uword)-f, radix, 1, 1); - } else { - p = to_n_nary((C_uword)f, radix, 0, 1); - } - } else if(C_isnan(f)) { - p = "+nan.0"; - } else if(C_isinf(f)) { - p = f > 0 ? "+inf.0" : "-inf.0"; - } else { /* Doesn't fit an unsigned int and not "special"; use system libc */ - C_snprintf(buffer, STRING_BUFFER_SIZE, C_text("%.*g"), - /* XXX: flonum_print_precision */ - (int)C_unfix(C_get_print_precision()), f); - buffer[STRING_BUFFER_SIZE-1] = '\0'; - - if((p = C_strpbrk(buffer, C_text(".eE"))) == NULL) { - /* Already checked for these, so shouldn't happen */ - assert(*buffer != 'i'); /* "inf" */ - assert(*buffer != 'n'); /* "nan" */ - /* Ensure integral flonums w/o expt are always terminated by .0 */ -#if defined(HAVE_STRLCAT) || !defined(C_strcat) - C_strlcat(buffer, C_text(".0"), sizeof(buffer)); -#else - C_strcat(buffer, C_text(".0")); -#endif - } - p = buffer; - } - - radix = C_strlen(p); - a = C_alloc(C_SIZEOF_STRING(radix)); - radix = C_string(&a, radix, p); - C_kontinue(k, radix); -} - -void C_ccall C_integer_to_string(C_word c, C_word *av) -{ - C_word - /* self = av[ 0 ] */ - k = av[ 1 ], - num = av[ 2 ], - radix = ((c == 3) ? 10 : C_unfix(av[ 3 ])); - - if (num & C_FIXNUM_BIT) { - C_fixnum_to_string(4, av); /* reuse av */ - } else { - int len, radix_shift; - size_t nbits; - - if ((radix < 2) || (radix > 16)) { - barf(C_BAD_ARGUMENT_TYPE_BAD_BASE_ERROR, "number->string", C_fix(radix)); - } - - /* Approximation of the number of radix digits we'll need. We try - * to be as precise as possible to avoid memmove overhead at the end - * of the non-powers of two part of the conversion procedure, which - * we may need to do because we write strings back-to-front, and - * pointers must be aligned (even for byte blocks). - */ - len = C_bignum_size(num)-1; - - nbits = (size_t)len * C_BIGNUM_DIGIT_LENGTH; - nbits += C_ilen(C_bignum_digits(num)[len]); - - len = C_ilen(radix)-1; - len = (nbits + len - 1) / len; - len += C_bignum_negativep(num) ? 1 : 0; /* Add space for negative sign */ - - radix_shift = C_ilen(radix) - 1; - if (len > C_RECURSIVE_TO_STRING_THRESHOLD && - /* The power of two fast path is much faster than recursion */ - ((C_uword)1 << radix_shift) != radix) { - try_extended_number("##sys#integer->string/recursive", - 4, k, num, C_fix(radix), C_fix(len)); - } else { - C_word kab[C_SIZEOF_CLOSURE(4)], *ka = kab, kav[4]; - - kav[ 0 ] = (C_word)NULL; /* No "self" closure */ - kav[ 1 ] = C_closure(&ka, 4, (C_word)bignum_to_str_2, - k, num, C_fix(radix)); - kav[ 2 ] = C_fix(len + 1); - kav[ 3 ] = C_SCHEME_FALSE; /* No initialization */ - C_allocate_bytevector(4, kav); - } - } -} - -static void bignum_to_str_2(C_word c, C_word *av) -{ - static char *characters = "0123456789abcdef"; - C_word - self = av[ 0 ], - string = av[ 1 ], - k = C_block_item(self, 1), - bignum = C_block_item(self, 2), - radix = C_unfix(C_block_item(self, 3)); - char - *buf = C_c_string(string), - *index = buf + C_header_size(string) - 2; - int radix_shift, - negp = (C_bignum_negativep(bignum) ? 1 : 0); - C_word us[ 5 ], *a = us; - - *(index + 1) = '\0'; - radix_shift = C_ilen(radix) - 1; - if (((C_uword)1 << radix_shift) == radix) { /* Power of two? */ - int radix_mask = radix - 1, big_digit_len = 0, radix_digit; - C_uword *scan, *end, big_digit = 0; - - scan = C_bignum_digits(bignum); - end = scan + C_bignum_size(bignum); - - while (scan < end) { - /* If radix isn't an exact divisor of digit length, handle overlap */ - if (big_digit_len == 0) { - big_digit = *scan++; - big_digit_len = C_BIGNUM_DIGIT_LENGTH; - } else { - assert(index >= buf); - radix_digit = big_digit; - big_digit = *scan++; - radix_digit |= ((unsigned int)big_digit << big_digit_len) & radix_mask; - *index-- = characters[radix_digit]; - big_digit >>= (radix_shift - big_digit_len); - big_digit_len = C_BIGNUM_DIGIT_LENGTH - (radix_shift - big_digit_len); - } - - while(big_digit_len >= radix_shift && index >= buf) { - radix_digit = big_digit & radix_mask; - *index-- = characters[radix_digit]; - big_digit >>= radix_shift; - big_digit_len -= radix_shift; - } - } - - assert(big_digit < radix); - - /* Final digit (like overlap at start of while loop) */ - if (big_digit) *index-- = characters[big_digit]; - - if (negp) { - /* Loop above might've overwritten sign position with a zero */ - if (*(index+1) == '0') *(index+1) = '-'; - else *index-- = '-'; - } - - /* Length calculation is always precise for radix powers of two. */ - assert(index == buf-1); - } else { - C_uword base, *start, *scan, big_digit; - C_word working_copy; - int steps, i; - - working_copy = allocate_tmp_bignum(C_fix(C_bignum_size(bignum)), - C_mk_bool(negp), C_SCHEME_FALSE); - bignum_digits_destructive_copy(working_copy, bignum); - - start = C_bignum_digits(working_copy); - - scan = start + C_bignum_size(bignum); - /* Calculate the largest power of radix that fits a halfdigit: - * steps = log10(2^halfdigit_bits), base = 10^steps - */ - for(steps = 0, base = radix; C_fitsinbignumhalfdigitp(base); base *= radix) - steps++; - - base /= radix; /* Back down: we overshot in the loop */ - - while (scan > start) { - big_digit = bignum_digits_destructive_scale_down(start, scan, base); - - if (*(scan-1) == 0) scan--; /* Adjust if we exhausted the highest digit */ - - for(i = 0; i < steps && index >= buf; ++i) { - C_word tmp = big_digit / radix; - *index-- = characters[big_digit - (tmp*radix)]; /* big_digit % radix */ - big_digit = tmp; - } - } - assert(index >= buf-1); - free_tmp_bignum(working_copy); - - /* Move index onto first nonzero digit. We're writing a bignum - here: it can't consist of only zeroes. */ - while(*++index == '0'); - - if (negp) *--index = '-'; - - /* Shorten with distance between start and index. */ - if (buf != index) { - i = C_header_size(string) - (index - buf); - C_memmove(buf, index, i); /* Move start of number to beginning. */ - buf[ i ] = '\0'; /* terminating 0 */ - C_block_header(string) = C_BYTEVECTOR_TYPE | i; /* Mutate strlength. */ - } - } - - C_kontinue(k, C_a_ustring(&a, 0, string, C_fix(C_header_size(string) - 1))); -} - - -/* XXX replace with inline routine */ -void C_ccall C_make_structure(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - type = av[ 2 ], - size = c - 3, - *s, s0; - - if(!C_demand(size + 2)) - C_save_and_reclaim((void *)C_make_structure, c, av); - - s = C_alloc(C_SIZEOF_STRUCTURE(size + 1)), - s0 = (C_word)s; - *(s++) = C_STRUCTURE_TYPE | (size + 1); - *(s++) = type; - av += 3; - - while(size--) - *(s++) = *(av++); - - C_kontinue(k, s0); -} - - -/* XXX replace with inline routine */ -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); -} - - -/* XXX replace with inline routine */ -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); -} - - -/* XXX replace with inline routine */ -void C_ccall C_make_tagged_pointer(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - tag = av[ 2 ], - ab[ 3 ], - *a = ab, - p; - - p = C_taggedmpointer(&a, tag, NULL); - C_kontinue(k, p); -} - - -void C_ccall C_ensure_heap_reserve(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - n = av[ 2 ], - *p; - - C_save(k); - - if(!C_demand(C_bytestowords(C_unfix(n)))) - C_reclaim((void *)generic_trampoline, 1); - - p = C_temporary_stack; - C_temporary_stack = C_temporary_stack_bottom; - generic_trampoline(0, p); -} - - -void C_ccall generic_trampoline(C_word c, C_word *av) -{ - C_word k = av[ 0 ]; - - C_kontinue(k, C_SCHEME_UNDEFINED); -} - - -void C_ccall C_return_to_host(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ]; - - return_to_host = 1; - C_save(k); - C_reclaim((void *)generic_trampoline, 1); -} - - -void C_ccall C_get_symbol_table_info(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ]; - double d1, d2; - int n = 0, total; - C_SYMBOL_TABLE *stp; - C_word - x, y, - ab[ WORDS_PER_FLONUM * 2 + C_SIZEOF_VECTOR(4) ], - *a = ab; - - for(stp = symbol_table_list; stp != NULL; stp = stp->next) - ++n; - - d1 = compute_symbol_table_load(&d2, &total); - x = C_flonum(&a, d1); /* load */ - y = C_flonum(&a, d2); /* avg bucket length */ - C_kontinue(k, C_vector(&a, 4, x, y, C_fix(total), C_fix(n))); -} - - -void C_ccall C_get_memory_info(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - ab[ C_SIZEOF_VECTOR(2) ], - *a = ab; - - C_kontinue(k, C_vector(&a, 2, C_fix(heap_size), C_fix(stack_size))); -} - - -void C_ccall C_context_switch(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - state = av[ 2 ], - n = C_header_size(state) - 1, - adrs = C_block_item(state, 0), - *av2; - C_proc tp = (C_proc)C_block_item(adrs,0); - - /* Copy argvector because it may be mutated in-place. The state - * vector should not be re-invoked(?), but it can be kept alive - * during GC, so the mutated argvector/state slots may turn stale. - */ - av2 = C_alloc(n); - C_memcpy(av2, (C_word *)state + 2, n * sizeof(C_word)); - tp(n, av2); -} - - -void C_ccall C_peek_signed_integer(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - v = av[ 2 ], - index = av[ 3 ], - x = C_block_item(v, C_unfix(index)), - ab[C_SIZEOF_BIGNUM(1)], *a = ab; - - C_uword num = ((C_word *)C_data_pointer(v))[ C_unfix(index) ]; - - C_kontinue(k, C_int_to_num(&a, num)); -} - - -void C_ccall C_peek_unsigned_integer(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - v = av[ 2 ], - index = av[ 3 ], - x = C_block_item(v, C_unfix(index)), - ab[C_SIZEOF_BIGNUM(1)], *a = ab; - - C_uword num = ((C_word *)C_data_pointer(v))[ C_unfix(index) ]; - - C_kontinue(k, C_unsigned_int_to_num(&a, num)); -} - -void C_ccall C_peek_int64(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - v = av[ 2 ], - index = av[ 3 ], - x = C_block_item(v, C_unfix(index)), - ab[C_SIZEOF_BIGNUM(2)], *a = ab; - - C_s64 num = ((C_s64 *)C_data_pointer(v))[ C_unfix(index) ]; - - C_kontinue(k, C_int64_to_num(&a, num)); -} - - -void C_ccall C_peek_uint64(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - v = av[ 2 ], - index = av[ 3 ], - x = C_block_item(v, C_unfix(index)), - ab[C_SIZEOF_BIGNUM(2)], *a = ab; - - C_u64 num = ((C_u64 *)C_data_pointer(v))[ C_unfix(index) ]; - - C_kontinue(k, C_uint64_to_num(&a, num)); -} - - -void C_ccall C_decode_seconds(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - secs = av[ 2 ], - mode = av[ 3 ]; - time_t tsecs; - struct tm *tmt; - C_word - ab[ C_SIZEOF_VECTOR(10) ], - *a = ab, - info; - - tsecs = (time_t)C_num_to_int64(secs); - - if(mode == C_SCHEME_FALSE) tmt = C_localtime(&tsecs); - else tmt = C_gmtime(&tsecs); - - if(tmt == NULL) - C_kontinue(k, C_SCHEME_FALSE); - - info = C_vector(&a, 10, C_fix(tmt->tm_sec), C_fix(tmt->tm_min), C_fix(tmt->tm_hour), - C_fix(tmt->tm_mday), C_fix(tmt->tm_mon), C_fix(tmt->tm_year), - C_fix(tmt->tm_wday), C_fix(tmt->tm_yday), - tmt->tm_isdst > 0 ? C_SCHEME_TRUE : C_SCHEME_FALSE, -#ifdef C_GNU_ENV - /* negative for west of UTC, but we want positive */ - C_fix(-tmt->tm_gmtoff) -#elif defined(__CYGWIN__) || defined(__MINGW32__) || defined(_WIN32) || defined(__WINNT__) - C_fix(mode == C_SCHEME_FALSE ? _timezone : 0) /* does not account for DST */ -#else - C_fix(mode == C_SCHEME_FALSE ? timezone : 0) /* does not account for DST */ -#endif - ); - C_kontinue(k, info); -} - - -void C_ccall C_machine_byte_order(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ]; - char *str; - C_word *a, s; - - if(c != 2) C_bad_argc(c, 2); - -#if defined(C_MACHINE_BYTE_ORDER) - str = C_MACHINE_BYTE_ORDER; -#else - C_cblock - static C_word one_two_three = 123; - str = (*((C_char *)&one_two_three) != 123) ? "big-endian" : "little-endian"; - C_cblockend; -#endif - - a = C_alloc(C_SIZEOF_STRING(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(C_SIZEOF_STRING(C_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(C_SIZEOF_STRING(C_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(C_SIZEOF_STRING(C_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(C_SIZEOF_STRING(C_strlen(C_SOFTWARE_VERSION))); - s = C_string2(&a, C_SOFTWARE_VERSION); - - C_kontinue(k, s); -} - - -/* Register finalizer: */ - -void C_ccall C_register_finalizer(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ]) */ - k = av[ 1 ], - x = av[ 2 ], - proc = av[ 3 ]; - - if(C_immediatep(x) || - (!C_in_stackp(x) && !C_in_heapp(x) && !C_in_scratchspacep(x))) - C_kontinue(k, x); /* not GCable */ - - C_do_register_finalizer(x, proc); - C_kontinue(k, x); -} - - -/*XXX could this be made static? is it used in eggs somewhere? - if not, declare as fcall/regparm (and static, remove from chicken.h) - */ -void C_ccall C_do_register_finalizer(C_word x, C_word proc) -{ - C_word *ptr; - int n, i; - FINALIZER_NODE *flist; - - if(finalizer_free_list == NULL) { - if((flist = (FINALIZER_NODE *)C_malloc(sizeof(FINALIZER_NODE))) == NULL) - panic(C_text("out of memory - cannot allocate finalizer node")); - - ++allocated_finalizer_count; - } - else { - flist = finalizer_free_list; - finalizer_free_list = flist->next; - } - - if(finalizer_list != NULL) finalizer_list->previous = flist; - - flist->previous = NULL; - flist->next = finalizer_list; - finalizer_list = flist; - - if(C_in_stackp(x)) C_mutate_slot(&flist->item, x); - else flist->item = x; - - if(C_in_stackp(proc)) C_mutate_slot(&flist->finalizer, proc); - else flist->finalizer = proc; - - ++live_finalizer_count; -} - - -/*XXX same here */ -int C_do_unregister_finalizer(C_word x) -{ - int n; - FINALIZER_NODE *flist; - - for(flist = finalizer_list; flist != NULL; flist = flist->next) { - if(flist->item == x) { - if(flist->previous == NULL) finalizer_list = flist->next; - else flist->previous->next = flist->next; - - return 1; - } - } - - return 0; -} - - -/* Dynamic loading of shared objects: */ - -void C_ccall C_set_dlopen_flags(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - now = av[ 2 ], - global = av[ 3 ]; - -#if !defined(NO_DLOAD2) && defined(HAVE_DLFCN_H) - dlopen_flags = (C_truep(now) ? RTLD_NOW : RTLD_LAZY) | (C_truep(global) ? RTLD_GLOBAL : RTLD_LOCAL); -#endif - C_kontinue(k, C_SCHEME_UNDEFINED); -} - - -void C_ccall C_dload(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - name = av[ 2 ], - entry = av[ 3 ]; - -#if !defined(NO_DLOAD2) && (defined(HAVE_DLFCN_H) || defined(HAVE_DL_H) || (defined(HAVE_LOADLIBRARY) && defined(HAVE_GETPROCADDRESS))) - /* Force minor GC: otherwise the lf may contain pointers to stack-data - (stack allocated interned symbols, for example) */ - C_save_and_reclaim_args((void *)dload_2, 3, k, name, entry); -#endif - - C_kontinue(k, C_SCHEME_FALSE); -} - - -#ifdef DLOAD_2_DEFINED -# undef DLOAD_2_DEFINED -#endif - -#if !defined(NO_DLOAD2) && defined(HAVE_DL_H) && !defined(DLOAD_2_DEFINED) -# ifdef __hpux__ -# define DLOAD_2_DEFINED -void C_ccall dload_2(C_word c, C_word *av0) -{ - void *handle, *p; - C_word - entry = av0[ 0 ], - name = av0[ 1 ], - k = av0[ 2 ],, - av[ 2 ]; - C_char *mname = C_c_string(name); - - /* - * C_fprintf(C_stderr, - * "shl_loading %s : %s\n", - * (char *) C_c_string(name), - * (char *) C_c_string(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_c_string(entry), TYPE_PROCEDURE, &p) == 0) { - current_module_name = C_strdup(mname); - current_module_handle = handle; - - if(debug_mode) { - C_dbg(C_text("debug"), C_text("loading compiled library %s (" UWORD_FORMAT_STRING ")\n"), - current_module_name, (C_uword)current_module_handle); - } - - av[ 0 ] = C_SCHEME_UNDEFINED; - av[ 1 ] = k; - ((C_proc)p)(2, av); /* doesn't return */ - } else { - C_dlerror = (char *) C_strerror(errno); - shl_unload(shl_handle); - } - } else { - C_dlerror = (char *) C_strerror(errno); - } - - C_kontinue(k, C_SCHEME_FALSE); -} -# endif -#endif - - -#if !defined(NO_DLOAD2) && defined(HAVE_DLFCN_H) && !defined(DLOAD_2_DEFINED) -# ifndef __hpux__ -# define DLOAD_2_DEFINED -void C_ccall dload_2(C_word c, C_word *av0) -{ - void *handle, *p, *p2; - C_word - entry = av0[ 0 ], - name = av0[ 1 ], - k = av0[ 2 ], - av[ 2 ]; - C_char *topname = (C_char *)C_c_string(entry); - C_char *mname = (C_char *)C_c_string(name); - C_char *tmp; - int tmp_len = 0; - - if((handle = C_dlopen(mname, dlopen_flags)) != NULL) { - if((p = C_dlsym(handle, topname)) == NULL) { - tmp_len = C_strlen(topname) + 2; - tmp = (C_char *)C_malloc(tmp_len); - - if(tmp == NULL) - panic(C_text("out of memory - cannot allocate toplevel name string")); - - C_strlcpy(tmp, C_text("_"), tmp_len); - C_strlcat(tmp, topname, tmp_len); - p = C_dlsym(handle, tmp); - C_free(tmp); - } - - if(p != NULL) { - current_module_name = C_strdup(mname); - current_module_handle = handle; - - if(debug_mode) { - C_dbg(C_text("debug"), C_text("loading compiled library %s (" UWORD_FORMAT_STRING ")\n"), - current_module_name, (C_uword)current_module_handle); - } - - av[ 0 ] = C_SCHEME_UNDEFINED; - av[ 1 ] = k; - ((C_proc)p)(2, av); /* doesn't return */ - } - - C_dlclose(handle); - } - - C_dlerror = (char *)dlerror(); - C_kontinue(k, C_SCHEME_FALSE); -} -# endif -#endif - - -#if !defined(NO_DLOAD2) && (defined(HAVE_LOADLIBRARY) && defined(HAVE_GETPROCADDRESS)) && !defined(DLOAD_2_DEFINED) -# define DLOAD_2_DEFINED -void C_ccall dload_2(C_word c, C_word *av0) -{ - HINSTANCE handle; - FARPROC p = NULL, p2; - C_word - entry = av0[ 0 ], - name = av0[ 1 ], - k = av0[ 2 ], - av[ 2 ]; - C_char *topname = (C_char *)C_c_string(entry); - C_char *mname = (C_char *)C_c_string(name); - - /* cannot use LoadLibrary on non-DLLs, so we use extension checking */ - if (C_strlen(mname) >= 5) { - C_char *n = mname; - int l = C_strlen(mname); - if (C_strncmp(".dll", n+l-4, 4) && - C_strncmp(".DLL", n+l-4, 4) && - C_strncmp(".so", n+l-3, 3) && - C_strncmp(".SO", n+l-3, 3)) - C_kontinue(k, C_SCHEME_FALSE); - } - - if((handle = LoadLibrary(mname)) != NULL) { - if ((p = GetProcAddress(handle, topname)) != NULL) { - current_module_name = C_strdup(mname); - current_module_handle = handle; - - if(debug_mode) { - C_dbg(C_text("debug"), C_text("loading compiled library %s (" UWORD_FORMAT_STRING ")\n"), - current_module_name, (C_uword)current_module_handle); - } - - av[ 0 ] = C_SCHEME_UNDEFINED; - av[ 1 ] = k; - ((C_proc)p)(2, av); /* doesn't return */ - } - else FreeLibrary(handle); - } - - C_dlerror = (char *) C_strerror(errno); - C_kontinue(k, C_SCHEME_FALSE); -} -#endif - - -void C_ccall C_become(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - table = av[ 2 ], - tp, x, old, neu, i, *p; - - i = forwarding_table_size; - p = forwarding_table; - - for(tp = table; tp != C_SCHEME_END_OF_LIST; tp = C_u_i_cdr(tp)) { - x = C_u_i_car(tp); - old = C_u_i_car(x); - neu = C_u_i_cdr(x); - - if(i == 0) { - if((forwarding_table = (C_word *)realloc(forwarding_table, (forwarding_table_size + 1) * 4 * sizeof(C_word))) == NULL) - panic(C_text("out of memory - cannot re-allocate forwarding table")); - - i = forwarding_table_size; - p = forwarding_table + forwarding_table_size * 2; - forwarding_table_size *= 2; - } - - *(p++) = old; - *(p++) = neu; - --i; - } - - *p = 0; - C_fromspace_top = C_fromspace_limit; - C_save_and_reclaim_args((void *)become_2, 1, k); -} - - -void C_ccall become_2(C_word c, C_word *av) -{ - C_word k = av[ 0 ]; - - *forwarding_table = 0; - C_kontinue(k, C_SCHEME_UNDEFINED); -} - - -C_regparm C_word -C_a_i_cpu_time(C_word **a, int c, C_word buf) -{ - C_word u, s = C_fix(0); - -#if defined(C_NONUNIX) || defined(__CYGWIN__) - if(CLOCKS_PER_SEC == 1000) u = clock(); - else u = C_uint64_to_num(a, ((C_u64)clock() / CLOCKS_PER_SEC) * 1000); -#else - struct rusage ru; - - if(C_getrusage(RUSAGE_SELF, &ru) == -1) u = 0; - else { - u = C_uint64_to_num(a, (C_u64)ru.ru_utime.tv_sec * 1000 + ru.ru_utime.tv_usec / 1000); - s = C_uint64_to_num(a, (C_u64)ru.ru_stime.tv_sec * 1000 + ru.ru_stime.tv_usec / 1000); - } -#endif - - /* buf must not be in nursery */ - C_set_block_item(buf, 0, u); - C_set_block_item(buf, 1, s); - return buf; -} - - -C_regparm C_word C_a_i_make_locative(C_word **a, int c, C_word type, C_word object, C_word index, C_word weak) -{ - C_word *loc = *a; - int offset, i, in = C_unfix(index); - *a = loc + C_SIZEOF_LOCATIVE; - - loc[ 0 ] = C_LOCATIVE_TAG; - - switch(C_unfix(type)) { - case C_SLOT_LOCATIVE: in *= sizeof(C_word); break; - case C_U16_LOCATIVE: - case C_S16_LOCATIVE: in *= 2; break; - case C_U32_LOCATIVE: - case C_F32_LOCATIVE: - case C_S32_LOCATIVE: in *= 4; break; - case C_U64_LOCATIVE: - case C_S64_LOCATIVE: - case C_F64_LOCATIVE: in *= 8; break; - } - - offset = in + sizeof(C_header); - loc[ 1 ] = object + offset; - loc[ 2 ] = C_fix(offset); - loc[ 3 ] = type; - loc[ 4 ] = C_truep(weak) ? C_SCHEME_FALSE : object; - - return (C_word)loc; -} - -C_regparm C_word 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_utf_decode_ptr((C_char *)ptr); - case C_U8_LOCATIVE: return C_fix(*((unsigned char *)ptr)); - case C_S8_LOCATIVE: return C_fix(*((char *)ptr)); - case C_U16_LOCATIVE: return C_fix(*((unsigned short *)ptr)); - case C_S16_LOCATIVE: return C_fix(*((short *)ptr)); - case C_U32_LOCATIVE: return C_unsigned_int_to_num(a, *((C_u32 *)ptr)); - case C_S32_LOCATIVE: return C_int_to_num(a, *((C_s32 *)ptr)); - case C_U64_LOCATIVE: return C_uint64_to_num(a, *((C_u64 *)ptr)); - case C_S64_LOCATIVE: return C_int64_to_num(a, *((C_s64 *)ptr)); - case C_F32_LOCATIVE: return C_flonum(a, *((float *)ptr)); - case C_F64_LOCATIVE: return C_flonum(a, *((double *)ptr)); - default: panic(C_text("bad locative type")); - } -} - -C_regparm C_word C_i_locative_set(C_word loc, C_word x) -{ - C_word *ptr, val; - - if(C_immediatep(loc) || C_block_header(loc) != C_LOCATIVE_TAG) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", loc); - - ptr = (C_word *)C_block_item(loc, 0); - - if(ptr == NULL) - barf(C_LOST_LOCATIVE_ERROR, "locative-set!", loc); - - switch(C_unfix(C_block_item(loc, 2))) { - case C_SLOT_LOCATIVE: C_mutate(ptr, x); break; - - case C_CHAR_LOCATIVE: - if((x & C_IMMEDIATE_TYPE_BITS) != C_CHARACTER_BITS) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - /* does not check for exceeded buffer length! */ - C_utf_encode((C_char *)ptr, C_character_code(x)); - break; - - case C_U8_LOCATIVE: - if((x & C_FIXNUM_BIT) == 0) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((unsigned char *)ptr) = C_unfix(x); - break; - - case C_S8_LOCATIVE: - if((x & C_FIXNUM_BIT) == 0) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((char *)ptr) = C_unfix(x); - break; - - case C_U16_LOCATIVE: - if((x & C_FIXNUM_BIT) == 0) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((unsigned short *)ptr) = C_unfix(x); - break; - - case C_S16_LOCATIVE: - if((x & C_FIXNUM_BIT) == 0) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((short *)ptr) = C_unfix(x); - break; - - case C_U32_LOCATIVE: - if(!C_truep(C_i_exact_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((C_u32 *)ptr) = C_num_to_unsigned_int(x); - break; - - case C_S32_LOCATIVE: - if(!C_truep(C_i_exact_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((C_s32 *)ptr) = C_num_to_int(x); - break; - - case C_U64_LOCATIVE: - if(!C_truep(C_i_exact_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((C_u64 *)ptr) = C_num_to_uint64(x); - break; - - case C_S64_LOCATIVE: - if(!C_truep(C_i_exact_integerp(x))) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((C_s64 *)ptr) = C_num_to_int64(x); - break; - - case C_F32_LOCATIVE: - if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((float *)ptr) = C_flonum_magnitude(x); - break; - - case C_F64_LOCATIVE: - if(C_immediatep(x) || C_block_header(x) != C_FLONUM_TAG) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-set!", x); - - *((double *)ptr) = C_flonum_magnitude(x); - break; - - default: panic(C_text("bad locative type")); - } - - return C_SCHEME_UNDEFINED; -} - - -C_regparm C_word C_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)); -} - - -C_regparm C_word C_i_locative_index(C_word loc) -{ - int bytes; - - if(C_immediatep(loc) || C_block_header(loc) != C_LOCATIVE_TAG) - barf(C_BAD_ARGUMENT_TYPE_ERROR, "locative-index", loc); - - bytes = C_unfix(C_block_item(loc, 1)) - sizeof(C_header); - - switch(C_unfix(C_block_item(loc, 2))) { - case C_SLOT_LOCATIVE: return C_fix(bytes/sizeof(C_word)); break; - - case C_CHAR_LOCATIVE: - { C_word x = C_i_locative_to_object(loc); - if(x == C_SCHEME_FALSE) - barf(C_LOST_LOCATIVE_ERROR, "locative-index", loc); - return C_fix(C_utf_char_position(x, bytes)); } - - case C_U8_LOCATIVE: - case C_S8_LOCATIVE: return C_fix(bytes); break; - - case C_U16_LOCATIVE: - case C_S16_LOCATIVE: return C_fix(bytes/2); break; - - case C_U32_LOCATIVE: - case C_S32_LOCATIVE: - case C_F32_LOCATIVE: return C_fix(bytes/4); break; - - case C_U64_LOCATIVE: - case C_S64_LOCATIVE: - case C_F64_LOCATIVE: return C_fix(bytes/8); break; - - default: panic(C_text("bad locative type")); - } -} - - -/* GC protection of user-variables: */ - -C_regparm void 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_gc_unprotect(int n) -{ - collectibles_top -= n; -} - - -/* Map procedure-ptr to id or id to ptr: */ - -C_char *C_lookup_procedure_id(void *ptr) -{ - LF_LIST *lfl; - C_PTABLE_ENTRY *pt; - - for(lfl = lf_list; lfl != NULL; lfl = lfl->next) { - pt = lfl->ptable; - - if(pt != NULL) { - while(pt->id != NULL) { - if(pt->ptr == ptr) return pt->id; - else ++pt; - } - } - } - - return NULL; -} - - -void *C_lookup_procedure_ptr(C_char *id) -{ - LF_LIST *lfl; - C_PTABLE_ENTRY *pt; - - for(lfl = lf_list; lfl != NULL; lfl = lfl->next) { - pt = lfl->ptable; - - if(pt != NULL) { - while(pt->id != NULL) { - if(!C_strcmp(id, pt->id)) return pt->ptr; - else ++pt; - } - } - } - - return NULL; -} - - -void C_ccall C_copy_closure(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - proc = av[ 2 ], - *p; - int n = C_header_size(proc); - - if(!C_demand(n + 1)) - C_save_and_reclaim_args((void *)copy_closure_2, 2, proc, k); - else { - C_save(proc); - C_save(k); - p = C_temporary_stack; - C_temporary_stack = C_temporary_stack_bottom; - copy_closure_2(0, p); - } -} - - -static void C_ccall copy_closure_2(C_word c, C_word *av) -{ - C_word - k = av[ 0 ], - proc = av[ 1 ]; - int cells = C_header_size(proc); - C_word - *ptr = C_alloc(C_SIZEOF_CLOSURE(cells)), - *p = ptr; - - *(p++) = C_CLOSURE_TYPE | cells; - /* this is only allowed because the storage is freshly allocated: */ - C_memcpy_slots(p, C_data_pointer(proc), cells); - C_kontinue(k, (C_word)ptr); -} - - -/* Ph'nglui mglw'nafh Cthulhu R'lyeh wgah'nagl fhtagn */ - -void C_ccall C_call_with_cthulhu(C_word c, C_word *av) -{ - C_word - proc = av[ 2 ], - *a = C_alloc(C_SIZEOF_CLOSURE(1)), - av2[ 2 ]; - - av2[ 0 ] = proc; - av2[ 1 ] = C_closure(&a, 1, (C_word)termination_continuation); /* k */ - C_do_apply(2, av2); -} - - -/* fixnum arithmetic with overflow detection (from "Hacker's Delight" by Hank Warren) - These routines return #f if the operation failed due to overflow. - */ - -C_regparm C_word C_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_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_i_o_fixnum_times(C_word n1, C_word n2) -{ - C_word x1, x2; - C_uword x1u, x2u; -#ifdef C_SIXTY_FOUR -# ifdef C_LLP - C_uword c = 1ULL<<63ULL; -# else - C_uword c = 1UL<<63UL; -# endif -#else - C_uword c = 1UL<<31UL; -#endif - - if((n1 & C_FIXNUM_BIT) == 0 || (n2 & C_FIXNUM_BIT) == 0) return C_SCHEME_FALSE; - - if((n1 & C_INT_SIGN_BIT) == (n2 & C_INT_SIGN_BIT)) --c; - - x1 = C_unfix(n1); - x2 = C_unfix(n2); - x1u = x1 < 0 ? -x1 : x1; - x2u = x2 < 0 ? -x2 : x2; - - if(x2u != 0 && x1u > (c / x2u)) return C_SCHEME_FALSE; - - x1 = x1 * x2; - - if(C_fitsinfixnump(x1)) return C_fix(x1); - else return C_SCHEME_FALSE; -} - - -C_regparm C_word C_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_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_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_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 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 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: - case C_SCHEME_BROKEN_WEAK_PTR: - 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); - -/* XXX Handle legacy bignum encoding */ -#ifdef C_SIXTY_FOUR - case ((C_STRING_TYPE | C_GC_FORWARDING_BIT) >> (24 + 32)) & 0xff: -#else - case ((C_STRING_TYPE | C_GC_FORWARDING_BIT) >> 24) & 0xff: -#endif - bits = (C_STRING_TYPE | C_GC_FORWARDING_BIT); - break; -/* XXX */ - -#ifdef C_SIXTY_FOUR - case ((C_BYTEVECTOR_TYPE | C_GC_FORWARDING_BIT) >> (24 + 32)) & 0xff: -#else - case ((C_BYTEVECTOR_TYPE | C_GC_FORWARDING_BIT) >> 24) & 0xff: -#endif - bits = (C_BYTEVECTOR_TYPE | C_GC_FORWARDING_BIT); - break; - - default: - panic(C_text("invalid encoded special literal")); - } - } - -#ifndef C_SIXTY_FOUR - if((bits & C_8ALIGN_BIT) != 0) { - /* Align _data_ on 8-byte boundary: */ - if(C_aligned8(*ptr)) ++(*ptr); - } -#endif - - val = (C_word)(*ptr); - - if((bits & C_SPECIALBLOCK_BIT) != 0) - panic(C_text("literals with special bit cannot be decoded")); - - if(bits == C_FLONUM_TYPE) { - val = C_flonum(ptr, decode_flonum_literal(*str)); - while(*((*str)++) != '\0'); /* skip terminating '\0' */ - return val; - } - - size = decode_size(str); - - switch(bits) { - /* This cannot be encoded as a bytevector due to endianness differences */ - - /* XXX legacy bignum encoding: */ - case (C_STRING_TYPE | C_BYTEBLOCK_BIT | C_GC_FORWARDING_BIT): /* This represents "exact int" */ - /* XXX */ - case (C_BYTEVECTOR_TYPE | C_GC_FORWARDING_BIT): /* This represents "exact int" */ - /* bignums are also allocated statically */ - val = C_static_bignum(ptr, size, *str); - *str += size; - break; - - /* XXX legacy encoding: */ - case (C_STRING_TYPE | C_BYTEBLOCK_BIT): - /* strings are always allocated statically */ - val = C_static_string(ptr, size, *str); - *str += size; - break; - /* XXX */ - - case C_STRING_TYPE: - /* strings are always allocated statically */ - val = C_static_string(ptr, size - 1, *str); - *str += size; - break; - - case C_BYTEVECTOR_TYPE: - /* ... as are bytevectors */ - val = C_static_bytevector(ptr, size, *str); - *str += size; - break; - - case C_SYMBOL_TYPE: - if(dest == NULL) - panic(C_text("invalid literal symbol destination")); - - if (**str == '\1') { - val = C_h_intern(dest, size, ++*str); - } else if (**str == '\2') { - val = C_h_intern_kw(dest, size, ++*str); - } else { - C_snprintf(buffer, sizeof(buffer), C_text("Unknown symbol subtype: %d"), (int)**str); - panic(buffer); - } - *str += size; - break; - - case C_LAMBDA_INFO_TYPE: - /* lambda infos are always allocated statically */ - val = C_static_lambda_info(ptr, size, *str); - *str += size; - break; - - default: - *((*ptr)++) = C_make_header(bits, size); - data = *ptr; - - if((bits & C_BYTEBLOCK_BIT) != 0) { - C_memcpy(data, *str, size); - size = C_align(size); - *str += size; - *ptr = (C_word *)C_align((C_word)(*ptr) + size); - } - else { - C_word *dptr = *ptr; - *ptr += size; - - while(size--) { - *dptr = decode_literal2(ptr, str, dptr); - ++dptr; - } - } - } - - return val; -} - - -C_regparm C_word -C_decode_literal(C_word **ptr, C_char *str) -{ - return decode_literal2(ptr, &str, NULL); -} - - -void -C_use_private_repository(C_char *path) -{ - private_repository = path; -} - - -C_char * -C_private_repository_path() -{ - return private_repository; -} - -C_char * -C_executable_pathname() { -#ifdef SEARCH_EXE_PATH - return C_main_exe == NULL ? NULL : C_strdup(C_main_exe); -#else - return C_resolve_executable_pathname(NULL); -#endif -} - -C_char * -C_executable_dirname() { - int len; - C_char *path; - - if((path = C_executable_pathname()) == NULL) - return NULL; - -#if defined(_WIN32) && !defined(__CYGWIN__) - for(len = C_strlen(path); len >= 0 && path[len] != '\\'; len--); -#else - for(len = C_strlen(path); len >= 0 && path[len] != '/'; len--); -#endif - - path[len] = '\0'; - return path; -} - -C_char * -C_resolve_executable_pathname(C_char *fname) -{ - int n; - C_WCHAR *buffer = (C_WCHAR *) C_malloc(C_MAX_PATH); - - if(buffer == NULL) return NULL; - -#if defined(__linux__) || defined(__sun) - C_char linkname[64]; /* /proc//exe */ - pid_t pid = C_getpid(); - -# ifdef __linux__ - C_snprintf(linkname, sizeof(linkname), "/proc/%i/exe", pid); -# else - C_snprintf(linkname, sizeof(linkname), "/proc/%i/path/a.out", pid); /* SunOS / Solaris */ -# endif - - n = C_readlink(linkname, buffer, C_MAX_PATH); - if(n < 0 || n >= C_MAX_PATH) - goto error; - - buffer[n] = '\0'; - return buffer; -#elif defined(_WIN32) && !defined(__CYGWIN__) - n = GetModuleFileNameW(NULL, buffer, C_MAX_PATH); - if(n == 0 || n >= C_MAX_PATH) - goto error; - - C_char *buf2 = C_strdup(C_utf8(buffer)); - C_free(buffer); - return buf2; -#elif defined(C_MACOSX) - C_char buf[C_MAX_PATH]; - C_u32 size = C_MAX_PATH; - - if(_NSGetExecutablePath(buf, &size) != 0) - goto error; - - if(C_realpath(buf, buffer) == NULL) - goto error; - - return buffer; -#elif defined(__HAIKU__) -{ - image_info info; - int32 cookie = 0; - - while (get_next_image_info(0, &cookie, &info) == B_OK) { - if (info.type == B_APP_IMAGE) { - C_strlcpy(buffer, info.name, C_MAX_PATH); - return buffer; - } - } -} -#elif defined(SEARCH_EXE_PATH) - int len; - C_char *path, buf[C_MAX_PATH]; - - /* no name given (execve) */ - if(fname == NULL) - goto error; - - /* absolute pathname */ - if(fname[0] == '/') { - if(C_realpath(fname, buffer) == NULL) - goto error; - else - return buffer; - } - - /* current directory */ - if(C_strchr(fname, '/') != NULL) { - if(C_getcwd(buffer, C_MAX_PATH) == NULL) - goto error; - - n = C_snprintf(buf, C_MAX_PATH, "%s/%s", buffer, fname); - if(n < 0 || n >= C_MAX_PATH) - goto error; - - if(C_access(buf, X_OK) == 0) { - if(C_realpath(buf, buffer) == NULL) - goto error; - else - return buffer; - } - } - - /* walk PATH */ - if((path = getenv("PATH")) == NULL) - goto error; - - do { - /* check PATH entry length */ - len = C_strcspn(path, ":"); - if(len == 0 || len >= C_MAX_PATH) - continue; - - /* "/" to buf */ - C_strncpy(buf, path, len); - n = C_snprintf(buf + len, C_MAX_PATH - len, "/%s", fname); - if(n < 0 || n + len >= C_MAX_PATH) - continue; - - if(C_access(buf, X_OK) != 0) - continue; - - /* fname found, resolve links */ - if(C_realpath(buf, buffer) != NULL) - return buffer; - - /* seek next entry, skip colon */ - } while (path += len, *path++); -#else -# error "Please either define SEARCH_EXE_PATH in Makefile. or implement C_resolve_executable_pathname for your platform!" -#endif - -error: - C_free(buffer); - return NULL; -} - -C_regparm C_word -C_i_getprop(C_word sym, C_word prop, C_word def) -{ - C_word pl = C_symbol_plist(sym); - - while(pl != C_SCHEME_END_OF_LIST) { - if(C_block_item(pl, 0) == prop) - return C_u_i_car(C_u_i_cdr(pl)); - else pl = C_u_i_cdr(C_u_i_cdr(pl)); - } - - return def; -} - - -C_regparm C_word -C_putprop(C_word **ptr, C_word sym, C_word prop, C_word val) -{ - C_word pl = C_symbol_plist(sym); - - /* Newly added plist? Ensure the symbol stays! */ - if (pl == C_SCHEME_END_OF_LIST) C_i_persist_symbol(sym); - - while(pl != C_SCHEME_END_OF_LIST) { - if(C_block_item(pl, 0) == prop) { - C_mutate(&C_u_i_car(C_u_i_cdr(pl)), val); - return val; - } - else pl = C_u_i_cdr(C_u_i_cdr(pl)); - } - - pl = C_a_pair(ptr, val, C_symbol_plist(sym)); - pl = C_a_pair(ptr, prop, pl); - C_mutate_slot(&C_symbol_plist(sym), pl); - return val; -} - - -C_regparm C_word -C_i_get_keyword(C_word kw, C_word args, C_word def) -{ - while(!C_immediatep(args)) { - if(C_header_type(args) == C_PAIR_TYPE) { - if(kw == C_u_i_car(args)) { - args = C_u_i_cdr(args); - - if(C_immediatep(args) || C_header_type(args) != C_PAIR_TYPE) - return def; - else return C_u_i_car(args); - } - else { - args = C_u_i_cdr(args); - - if(C_immediatep(args) || C_header_type(args) != C_PAIR_TYPE) - 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 = fopen(buffer, "w"); - if (fp == NULL) - panic(C_text("could not write profile!")); - - C_fputs(C_text("statistical\n"), fp); - for(n = 0; n < PROFILE_TABLE_SIZE; ++n) { - for(b = bp[ n ]; b != NULL; b = b2) { - b2 = b->next; - - k1 = b->key; - C_fputs(C_text("(|"), fp); - /* Dump raw C string as if it were a symbol */ - while((k2 = C_strpbrk(k1, C_text("\\|"))) != NULL) { - C_fwrite(k1, 1, k2-k1, fp); - C_fputc('\\', fp); - C_fputc(*k2, fp); - k1 = k2+1; - } - C_fputs(k1, fp); - ms = (double)b->sample_count * (double)profile_frequency / 1000.0; - C_fprintf(fp, C_text("| " UWORD_COUNT_FORMAT_STRING " %lf)\n"), - b->call_count, ms); - C_free(b); - } - } - - C_fclose(fp); - C_free(profile_table); - profile_table = NULL; - - return C_SCHEME_UNDEFINED; -} - -void C_ccall C_dump_heap_state(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ]; - - /* make sure heap is compacted */ - C_save(k); - C_fromspace_top = C_fromspace_limit; /* force major GC */ - C_reclaim((void *)dump_heap_state_2, 1); -} - - -static C_ulong -hdump_hash(C_word key) -{ - return (C_ulong)key % HDUMP_TABLE_SIZE; -} - - -static void -hdump_count(C_word key, int n, int t) -{ - HDUMP_BUCKET **bp = hdump_table + hdump_hash(key); - HDUMP_BUCKET *b = *bp; - - while(b != NULL) { - if(b->key == key) { - b->count += n; - b->total += t; - return; - } - else b = b->next; - } - - b = (HDUMP_BUCKET *)C_malloc(sizeof(HDUMP_BUCKET)); - - if(b == 0) - panic(C_text("out of memory - can not allocate heap-dump table-bucket")); - - b->next = *bp; - b->key = key; - *bp = b; - b->count = n; - b->total = t; -} - - -static void C_ccall dump_heap_state_2(C_word c, C_word *av) -{ - C_word k = av[ 0 ]; - HDUMP_BUCKET *b, *b2, **bp; - int n, bytes; - C_byte *scan; - C_SCHEME_BLOCK *sbp; - C_header h; - C_word x, key, *p; - int imm = 0, blk = 0; - - hdump_table = (HDUMP_BUCKET **)C_malloc(HDUMP_TABLE_SIZE * sizeof(HDUMP_BUCKET *)); - - if(hdump_table == NULL) - panic(C_text("out of memory - can not allocate heap-dump table")); - - C_memset(hdump_table, 0, sizeof(HDUMP_BUCKET *) * HDUMP_TABLE_SIZE); - - scan = fromspace_start; - - while(scan < C_fromspace_top) { - ++blk; - sbp = (C_SCHEME_BLOCK *)scan; - - if(*((C_word *)sbp) == ALIGNMENT_HOLE_MARKER) - sbp = (C_SCHEME_BLOCK *)((C_word *)sbp + 1); - - n = C_header_size(sbp); - h = sbp->header; - bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); - key = (C_word)(h & C_HEADER_BITS_MASK); - p = sbp->data; - - if(key == C_STRUCTURE_TYPE) key = *p; - - hdump_count(key, 1, bytes); - - if(n > 0 && (h & C_BYTEBLOCK_BIT) == 0) { - if((h & C_SPECIALBLOCK_BIT) != 0) { - --n; - ++p; - } - - while(n--) { - x = *(p++); - - if(C_immediatep(x)) { - ++imm; - - if((x & C_FIXNUM_BIT) != 0) key = C_fix(1); - else { - switch(x & C_IMMEDIATE_TYPE_BITS) { - case C_BOOLEAN_BITS: key = C_SCHEME_TRUE; break; - case C_CHARACTER_BITS: key = C_make_character('A'); break; - default: key = x; - } - } - - hdump_count(key, 1, 0); - } - } - } - - scan = (C_byte *)sbp + C_align(bytes) + sizeof(C_word); - } - - bp = hdump_table; - /* HACK */ -#define C_WEAK_PAIR_TYPE (C_PAIR_TYPE | C_SPECIALBLOCK_BIT) - - for(n = 0; n < HDUMP_TABLE_SIZE; ++n) { - for(b = bp[ n ]; b != NULL; b = b2) { - b2 = b->next; - - switch(b->key) { - case C_fix(1): C_fprintf(C_stderr, C_text("fixnum ")); break; - case C_SCHEME_TRUE: C_fprintf(C_stderr, C_text("boolean ")); break; - case C_SCHEME_END_OF_LIST: C_fprintf(C_stderr, C_text("null ")); break; - case C_SCHEME_UNDEFINED : C_fprintf(C_stderr, C_text("void ")); break; - case C_SCHEME_BROKEN_WEAK_PTR: C_fprintf(C_stderr, C_text("broken weak ptr")); break; - case C_make_character('A'): C_fprintf(C_stderr, C_text("character ")); break; - case C_SCHEME_END_OF_FILE: C_fprintf(C_stderr, C_text("eof ")); break; - case C_SCHEME_UNBOUND: C_fprintf(C_stderr, C_text("unbound ")); break; - case C_SYMBOL_TYPE: C_fprintf(C_stderr, C_text("symbol ")); break; - case C_STRING_TYPE: C_fprintf(C_stderr, C_text("string ")); break; - case C_PAIR_TYPE: C_fprintf(C_stderr, C_text("pair ")); break; - case C_CLOSURE_TYPE: C_fprintf(C_stderr, C_text("closure ")); break; - case C_FLONUM_TYPE: C_fprintf(C_stderr, C_text("flonum ")); break; - case C_PORT_TYPE: C_fprintf(C_stderr, C_text("port ")); break; - case C_POINTER_TYPE: C_fprintf(C_stderr, C_text("pointer ")); break; - case C_LOCATIVE_TYPE: C_fprintf(C_stderr, C_text("locative ")); break; - case C_TAGGED_POINTER_TYPE: C_fprintf(C_stderr, C_text("tagged pointer ")); break; - case C_LAMBDA_INFO_TYPE: C_fprintf(C_stderr, C_text("lambda info ")); break; - case C_WEAK_PAIR_TYPE: C_fprintf(C_stderr, C_text("weak pair ")); break; - case C_VECTOR_TYPE: C_fprintf(C_stderr, C_text("vector ")); break; - case C_BYTEVECTOR_TYPE: C_fprintf(C_stderr, C_text("bytevector ")); break; - case C_BIGNUM_TYPE: C_fprintf(C_stderr, C_text("bignum ")); break; - case C_CPLXNUM_TYPE: C_fprintf(C_stderr, C_text("cplxnum ")); break; - case C_RATNUM_TYPE: C_fprintf(C_stderr, C_text("ratnum ")); break; - /* XXX this is sort of funny: */ - case C_BYTEBLOCK_BIT: C_fprintf(C_stderr, C_text("bytevector ")); break; - default: - x = b->key; - - if(!C_immediatep(x) && C_header_bits(x) == C_SYMBOL_TYPE) { - x = C_block_item(x, 1); - C_fprintf(C_stderr, C_text("`%.*s'"), (int)C_header_size(x), C_c_string(x)); - } - else C_fprintf(C_stderr, C_text("unknown key " UWORD_FORMAT_STRING), (C_uword)b->key); - } - - C_fprintf(C_stderr, C_text("\t%d"), b->count); - - if(b->total > 0) - C_fprintf(C_stderr, C_text("\t%d bytes"), b->total); - - C_fputc('\n', C_stderr); - C_free(b); - } - } - - C_fprintf(C_stderr, C_text("\ntotal number of blocks: %d, immediates: %d\n"), - blk, imm); - C_free(hdump_table); - C_kontinue(k, C_SCHEME_UNDEFINED); -} - - -static void C_ccall filter_heap_objects_2(C_word c, C_word *av) -{ - void *func = C_pointer_address(av[ 0 ]); - C_word - userarg = av[ 1 ], - vector = av[ 2 ], - k = av[ 3 ]; - int n, bytes; - C_byte *scan; - C_SCHEME_BLOCK *sbp; - C_header h; - C_word *p; - int vecsize = C_header_size(vector); - typedef int (*filterfunc)(C_word x, C_word userarg); - filterfunc ff = (filterfunc)func; - int vcount = 0; - - scan = fromspace_start; - - while(scan < C_fromspace_top) { - sbp = (C_SCHEME_BLOCK *)scan; - - if(*((C_word *)sbp) == ALIGNMENT_HOLE_MARKER) - sbp = (C_SCHEME_BLOCK *)((C_word *)sbp + 1); - - n = C_header_size(sbp); - h = sbp->header; - bytes = (h & C_BYTEBLOCK_BIT) ? n : n * sizeof(C_word); - p = sbp->data; - - if(ff((C_word)sbp, userarg)) { - if(vcount < vecsize) { - C_set_block_item(vector, vcount, (C_word)sbp); - ++vcount; - } - else { - C_kontinue(k, C_fix(-1)); - } - } - - scan = (C_byte *)sbp + C_align(bytes) + sizeof(C_word); - } - - C_kontinue(k, C_fix(vcount)); -} - - -void C_ccall C_filter_heap_objects(C_word c, C_word *av) -{ - C_word - /* closure = av[ 0 ] */ - k = av[ 1 ], - func = av[ 2 ], - vector = av[ 3 ], - userarg = av[ 4 ]; - - /* make sure heap is compacted */ - C_save(k); - C_save(vector); - C_save(userarg); - C_save(func); - C_fromspace_top = C_fromspace_limit; /* force major GC */ - C_reclaim((void *)filter_heap_objects_2, 4); -} - -C_regparm C_word C_i_process_sleep(C_word n) -{ -#if defined(_WIN32) && !defined(__CYGWIN__) - Sleep(C_unfix(n) * 1000); - return C_fix(0); -#else - return C_fix(sleep(C_unfix(n))); -#endif -} - -C_regparm C_word -C_i_file_exists_p(C_word name, C_word file, C_word dir) -{ -#if defined(_WIN32) && !defined(__CYGWIN__) - struct _stat64i32 buf; -#else - struct stat buf; -#endif - int res; - - res = C_stat(C_OS_FILENAME(name, 0), &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_i_pending_interrupt(C_word dummy) -{ - if(pending_interrupts_count > 0) { - handling_interrupts = 1; /* Lock out further forced GCs until we're done */ - return C_fix(pending_interrupts[ --pending_interrupts_count ]); - } else { - handling_interrupts = 0; /* OK, can go on */ - return C_SCHEME_FALSE; - } -} - - -/* random numbers, mostly lifted from - https://github.com/jedisct1/libsodium/blob/master/src/libsodium/randombytes/sysrandom/randombytes_sysrandom.c -*/ - -#ifdef __linux__ -# include -#endif - - -#if !defined(_WIN32) -static C_word random_urandom(C_word buf, int count) -{ - static int fd = -1; - int off = 0, r; - - if(fd == -1) { - fd = open("/dev/urandom", O_RDONLY); - - if(fd == -1) return C_SCHEME_FALSE; - } - - while(count > 0) { - r = read(fd, C_data_pointer(buf) + off, count); - - if(r == -1) { - if(errno != EINTR && errno != EAGAIN) return C_SCHEME_FALSE; - else r = 0; - } - - count -= r; - off += r; - } - - return C_SCHEME_TRUE; -} -#endif - - -C_word C_random_bytes(C_word buf, C_word size) -{ - int count = C_unfix(size); - int r = 0; - int off = 0; - -#if defined(__OpenBSD__) || defined(__FreeBSD__) - arc4random_buf(C_data_pointer(buf), count); -#elif defined(SYS_getrandom) && defined(__NR_getrandom) - static int use_urandom = 0; - - if(use_urandom) return random_urandom(buf, count); - - while(count > 0) { - /* GRND_NONBLOCK = 0x0001 */ - r = syscall(SYS_getrandom, C_data_pointer(buf) + off, count, 1); - - if(r == -1) { - if(errno == ENOSYS) { - use_urandom = 1; - return random_urandom(buf, count); - } - else if(errno != EINTR) return C_SCHEME_FALSE; - else r = 0; - } - - count -= r; - off += r; - } -#elif defined(_WIN32) && !defined(__CYGWIN__) - typedef BOOLEAN (*func)(PVOID, ULONG); - static func RtlGenRandom = NULL; - - if(RtlGenRandom == NULL) { - HMODULE mod = LoadLibrary("advapi32.dll"); - - if(mod == NULL) return C_SCHEME_FALSE; - - if((RtlGenRandom = (func)GetProcAddress(mod, "SystemFunction036")) == NULL) - return C_SCHEME_FALSE; - } - - if(!RtlGenRandom((PVOID)C_data_pointer(buf), (LONG)count)) - return C_SCHEME_FALSE; -#else - return random_urandom(buf, count); -#endif - - return C_SCHEME_TRUE; -} - - -/* WELL512 pseudo random number generator, see also: - https://en.wikipedia.org/wiki/Well_equidistributed_long-period_linear - http://lomont.org/Math/Papers/2008/Lomont_PRNG_2008.pdf -*/ - -static C_uword random_word(void) -{ - C_uword a, b, c, d, r; - a = random_state[random_state_index]; - c = random_state[(random_state_index+13)&15]; - b = a^c^(a<<16)^(c<<15); - c = random_state[(random_state_index+9)&15]; - c ^= (c>>11); - a = random_state[random_state_index] = b^c; - d = a^((a<<5)&0xDA442D24UL); - random_state_index = (random_state_index + 15)&15; - a = random_state[random_state_index]; - random_state[random_state_index] = a^b^d^(a<<2)^(b<<18)^(c<<28); - r = random_state[random_state_index]; - return r; -} - - -static C_uword random_uniform(C_uword bound) -{ - C_uword r, min; - - if (bound < 2) return 0; - - min = (1U + ~bound) % bound; /* = 2** mod bound */ - - do r = random_word(); while (r < min); - - /* r is now clamped to a set whose size mod upper_bound == 0 - * the worst case (2**+1) requires ~ 2 attempts */ - - return r % bound; -} - - -C_regparm C_word C_random_fixnum(C_word n) -{ - C_word nf; - - if (!(n & C_FIXNUM_BIT)) - barf(C_BAD_ARGUMENT_TYPE_NO_FIXNUM_ERROR, "pseudo-random-integer", n); - - nf = C_unfix(n); - - if(nf < 0) - barf(C_OUT_OF_BOUNDS_ERROR, "pseudo-random-integer", n, C_fix(0)); - - return C_fix(random_uniform(nf)); -} - - -C_regparm C_word -C_s_a_u_i_random_int(C_word **ptr, C_word n, C_word rn) -{ - C_uword *start, *end; - - if(C_bignum_negativep(rn)) - barf(C_OUT_OF_BOUNDS_ERROR, "pseudo-random-integer", rn, C_fix(0)); - - int len = integer_length_abs(rn); - C_word size = C_fix(C_BIGNUM_BITS_TO_DIGITS(len)); - C_word result = C_allocate_scratch_bignum(ptr, size, C_SCHEME_FALSE, C_SCHEME_FALSE); - C_uword *p; - C_uword highest_word = C_bignum_digits(rn)[C_bignum_size(rn)-1]; - start = C_bignum_digits(result); - end = start + C_bignum_size(result); - - for(p = start; p < (end - 1); ++p) { - *p = random_word(); - len -= sizeof(C_uword); - } - - *p = random_uniform(highest_word); - return C_bignum_simplify(result); -} - -/* - * C_a_i_random_real: Generate a stream of bits uniformly at random and - * interpret it as the fractional part of the binary expansion of a - * number in [0, 1], 0.00001010011111010100...; then round it. - * More information on https://mumble.net/~campbell/2014/04/28/uniform-random-float - */ - -static inline C_u64 random64() { -#ifdef C_SIXTY_FOUR - return random_word(); -#else - C_u64 v = 0; - v |= ((C_u64) random_word()) << 32; - v |= (C_u64) random_word(); - return v; -#endif -} - -#if defined(__GNUC__) && !defined(__TINYC__) -# define clz64 __builtin_clzll -#else -/* https://en.wikipedia.org/wiki/Find_first_set#CLZ */ -static const C_uchar clz_table_4bit[16] = { 4, 3, 2, 2, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0 }; - -int clz32(C_u32 x) -{ - int n; - if ((x & 0xFFFF0000) == 0) {n = 16; x <<= 16;} else {n = 0;} - if ((x & 0xFF000000) == 0) {n += 8; x <<= 8;} - if ((x & 0xF0000000) == 0) {n += 4; x <<= 4;} - n += (int)clz_table_4bit[x >> (32-4)]; - return n; -} - -int clz64(C_u64 x) -{ - int y = clz32(x >> 32); - - if(y == 32) return y + clz32(x); - - return y; -} -#endif - -C_regparm C_word -C_a_i_random_real(C_word **ptr, C_word n) { - int exponent = -64; - uint64_t significand; - unsigned shift; - - while (C_unlikely((significand = random64()) == 0)) { - exponent -= 64; - if (C_unlikely(exponent < -1074)) - return 0; - } - - shift = clz64(significand); - if (shift != 0) { - exponent -= shift; - significand <<= shift; - significand |= (random64() >> (64 - shift)); - } - - significand |= 1; - return C_flonum(ptr, ldexp((double)significand, exponent)); -} - -C_word C_set_random_seed(C_word buf, C_word n) -{ - int i, nsu = C_unfix(n) / sizeof(C_uword); - int off = 0; - - for(i = 0; i < (C_RANDOM_STATE_SIZE / sizeof(C_uword)); ++i) { - if(off >= nsu) off = 0; - - random_state[ i ] = *((C_uword *)C_data_pointer(buf) + off); - ++off; - } - - random_state_index = 0; - return C_SCHEME_FALSE; -} - -C_word C_a_extract_struct_2(C_word **ptr, size_t sz, void *sp) -{ - C_word bv = C_scratch_alloc(C_SIZEOF_BYTEVECTOR(sz)); - C_word w; - C_block_header_init(bv, C_make_header(C_BYTEVECTOR_TYPE, sz)); - C_memcpy(C_data_pointer(bv), sp, sz); - w = C_a_i_record2(ptr, 2, C_SCHEME_FALSE, bv); - return w; -} - -C_regparm C_word C_i_setenv(C_word var, C_word val) -{ -#if defined(_WIN32) && !defined(__CYGWIN__) - C_WCHAR *wvar = C_utf16(var,0); - C_WCHAR *wval = val == C_SCHEME_FALSE ? NULL : C_utf16(val, 1); - SetEnvironmentVariableW(wvar, wval); - return C_fix(0); -#elif defined(HAVE_SETENV) - C_char *cvar = C_c_string(var); - if(val == C_SCHEME_FALSE) unsetenv(C_c_string(var)); - else setenv(C_c_string(var), C_c_string(val), 1); - return(C_fix(0)); -#else - char *sx = C_c_string(C_var), - *sy = (val == C_SCHEME_FALSE ? "" : C_c_string(val)); - 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 -} - -C_char *C_getenv(C_word var) -{ -#if defined(_WIN32) && !defined(__CYGWIN__) - C_WCHAR *wvar = C_utf16(var, 0); - if(GetEnvironmentVariableW(wvar, (C_WCHAR *)buffer, STRING_BUFFER_SIZE) == - 0) return NULL; - return C_utf8((C_WCHAR *)buffer); -#else - return getenv(C_c_string(var)); -#endif -} - -#ifdef HAVE_CRT_EXTERNS_H -# include -# define environ (*_NSGetEnviron()) -#elif !defined(_WIN32) || defined(__CYGWIN__) -extern char **environ; -#endif - -C_char *C_getenventry(int i) -{ -#if defined(_WIN32) && !defined(__CYGWIN__) - C_WCHAR *env = GetEnvironmentStringsW(); - C_WCHAR *p = env; - while(i--) { - while(*p != 0) ++p; - if(*(++p) == 0) return NULL; - } - C_char *s = C_strdup(C_utf8(p)); - FreeEnvironmentStringsW(env); - return s; -#else - return environ[ i ] == NULL ? NULL : C_strdup(environ[ i ]); -#endif -} diff --git a/chicken/src/utf.c b/chicken/src/utf.c deleted file mode 100644 index a4a42c5..0000000 --- a/chicken/src/utf.c +++ /dev/null @@ -1,3748 +0,0 @@ -/* utf.c - UTF-8 support code -; -; Copyright (c) 2022-2022, The CHICKEN Team -; All rights reserved. -; -; Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following -; conditions are met: -; -; Redistributions of source code must retain the above copyright notice, this list of conditions and the following -; disclaimer. -; Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following -; disclaimer in the documentation and/or other materials provided with the distribution. -; Neither the name of the author nor the names of its contributors may be used to endorse or promote -; products derived from this software without specific prior written permission. -; -; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS -; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY -; AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR -; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR -; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR -; SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR -; OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE -; POSSIBILITY OF SUCH DAMAGE. -*/ - - -#include "chicken.h" - -#if defined(_WIN32) && !defined(__CYGWIN__) -# include -#endif - -/* partially generated by mkrunetype.awk from http://git.suckless.org/ubase/ - see LICENSE for more information */ - -#define nelem(x) (sizeof (x) / sizeof *(x)) - -static int -rune1cmp(const void *v1, const void *v2) -{ - int r1 = *(int *)v1, r2 = *(int *)v2; - - return r1 - r2; -} - -static int -rune2cmp(const void *v1, const void *v2) -{ - int r = *(int *)v1, *p = (int *)v2; - - if(r >= p[0] && r <= p[1]) - return 0; - else - return r - p[0]; -} - -static int -runemapcmp(const void *v1, const void *v2) -{ - return *(int *)v1 - *(int *)v2; -} - -/* generated by mkrunetype.awk from http://git.suckless.org/ubase/ - see LICENSE for more information */ - -static int upper3[][2] = { - { 0x0100, 0x012E }, - { 0x0132, 0x0136 }, - { 0x0139, 0x0147 }, - { 0x014A, 0x0176 }, - { 0x0179, 0x017D }, - { 0x0182, 0x0184 }, - { 0x01A0, 0x01A4 }, - { 0x01B3, 0x01B5 }, - { 0x01CD, 0x01DB }, - { 0x01DE, 0x01EE }, - { 0x01F8, 0x021E }, - { 0x0222, 0x0232 }, - { 0x0246, 0x024E }, - { 0x0370, 0x0372 }, - { 0x03D8, 0x03EE }, - { 0x0460, 0x0480 }, - { 0x048A, 0x04BE }, - { 0x04C1, 0x04CD }, - { 0x04D0, 0x052E }, - { 0x1E00, 0x1E94 }, - { 0x1EA0, 0x1EFE }, - { 0x2C67, 0x2C6B }, - { 0x2C80, 0x2CE2 }, - { 0x2CEB, 0x2CED }, - { 0xA640, 0xA66C }, - { 0xA680, 0xA69A }, - { 0xA722, 0xA72E }, - { 0xA732, 0xA76E }, - { 0xA779, 0xA77B }, - { 0xA77E, 0xA786 }, - { 0xA790, 0xA792 }, - { 0xA796, 0xA7A8 }, - { 0xA7B4, 0xA7C2 }, - { 0xA7C7, 0xA7C9 }, - { 0xA7D6, 0xA7D8 }, -}; - -static int upper2[][3] = { - { 0x0041, 0x005A, 0x0061 }, - { 0x00C0, 0x00D6, 0x00E0 }, - { 0x00D8, 0x00DE, 0x00F8 }, - { 0x0189, 0x018A, 0x0256 }, - { 0x01B1, 0x01B2, 0x028A }, - { 0x0388, 0x038A, 0x03AD }, - { 0x038E, 0x038F, 0x03CD }, - { 0x0391, 0x03A1, 0x03B1 }, - { 0x03A3, 0x03AB, 0x03C3 }, - { 0x03D2, 0x03D4, 0x03D2 }, - { 0x03FD, 0x03FF, 0x037B }, - { 0x0400, 0x040F, 0x0450 }, - { 0x0410, 0x042F, 0x0430 }, - { 0x0531, 0x0556, 0x0561 }, - { 0x10A0, 0x10C5, 0x2D00 }, - { 0x13A0, 0x13EF, 0xAB70 }, - { 0x13F0, 0x13F5, 0x13F8 }, - { 0x1C90, 0x1CBA, 0x10D0 }, - { 0x1CBD, 0x1CBF, 0x10FD }, - { 0x1F08, 0x1F0F, 0x1F00 }, - { 0x1F18, 0x1F1D, 0x1F10 }, - { 0x1F28, 0x1F2F, 0x1F20 }, - { 0x1F38, 0x1F3F, 0x1F30 }, - { 0x1F48, 0x1F4D, 0x1F40 }, - { 0x1F68, 0x1F6F, 0x1F60 }, - { 0x1FB8, 0x1FB9, 0x1FB0 }, - { 0x1FBA, 0x1FBB, 0x1F70 }, - { 0x1FC8, 0x1FCB, 0x1F72 }, - { 0x1FD8, 0x1FD9, 0x1FD0 }, - { 0x1FDA, 0x1FDB, 0x1F76 }, - { 0x1FE8, 0x1FE9, 0x1FE0 }, - { 0x1FEA, 0x1FEB, 0x1F7A }, - { 0x1FF8, 0x1FF9, 0x1F78 }, - { 0x1FFA, 0x1FFB, 0x1F7C }, - { 0x210B, 0x210D, 0x210B }, - { 0x2110, 0x2112, 0x2110 }, - { 0x2119, 0x211D, 0x2119 }, - { 0x212C, 0x212D, 0x212C }, - { 0x2130, 0x2131, 0x2130 }, - { 0x213E, 0x213F, 0x213E }, - { 0x2C00, 0x2C2F, 0x2C30 }, - { 0x2C7E, 0x2C7F, 0x023F }, - { 0xFF21, 0xFF3A, 0xFF41 }, - { 0x10400, 0x10427, 0x10428 }, - { 0x104B0, 0x104D3, 0x104D8 }, - { 0x10570, 0x1057A, 0x10597 }, - { 0x1057C, 0x1058A, 0x105A3 }, - { 0x1058C, 0x10592, 0x105B3 }, - { 0x10594, 0x10595, 0x105BB }, - { 0x10C80, 0x10CB2, 0x10CC0 }, - { 0x118A0, 0x118BF, 0x118C0 }, - { 0x16E40, 0x16E5F, 0x16E60 }, - { 0x1D400, 0x1D419, 0x1D400 }, - { 0x1D434, 0x1D44D, 0x1D434 }, - { 0x1D468, 0x1D481, 0x1D468 }, - { 0x1D49E, 0x1D49F, 0x1D49E }, - { 0x1D4A5, 0x1D4A6, 0x1D4A5 }, - { 0x1D4A9, 0x1D4AC, 0x1D4A9 }, - { 0x1D4AE, 0x1D4B5, 0x1D4AE }, - { 0x1D4D0, 0x1D4E9, 0x1D4D0 }, - { 0x1D504, 0x1D505, 0x1D504 }, - { 0x1D507, 0x1D50A, 0x1D507 }, - { 0x1D50D, 0x1D514, 0x1D50D }, - { 0x1D516, 0x1D51C, 0x1D516 }, - { 0x1D538, 0x1D539, 0x1D538 }, - { 0x1D53B, 0x1D53E, 0x1D53B }, - { 0x1D540, 0x1D544, 0x1D540 }, - { 0x1D54A, 0x1D550, 0x1D54A }, - { 0x1D56C, 0x1D585, 0x1D56C }, - { 0x1D5A0, 0x1D5B9, 0x1D5A0 }, - { 0x1D5D4, 0x1D5ED, 0x1D5D4 }, - { 0x1D608, 0x1D621, 0x1D608 }, - { 0x1D63C, 0x1D655, 0x1D63C }, - { 0x1D670, 0x1D689, 0x1D670 }, - { 0x1D6A8, 0x1D6C0, 0x1D6A8 }, - { 0x1D6E2, 0x1D6FA, 0x1D6E2 }, - { 0x1D71C, 0x1D734, 0x1D71C }, - { 0x1D756, 0x1D76E, 0x1D756 }, - { 0x1D790, 0x1D7A8, 0x1D790 }, - { 0x1E900, 0x1E921, 0x1E922 }, -}; - -static int upper1[][2] = { - { 0x0130, 0x0069 }, - { 0x0178, 0x00FF }, - { 0x0181, 0x0253 }, - { 0x0186, 0x0254 }, - { 0x0187, 0x0188 }, - { 0x018B, 0x018C }, - { 0x018E, 0x01DD }, - { 0x018F, 0x0259 }, - { 0x0190, 0x025B }, - { 0x0191, 0x0192 }, - { 0x0193, 0x0260 }, - { 0x0194, 0x0263 }, - { 0x0196, 0x0269 }, - { 0x0197, 0x0268 }, - { 0x0198, 0x0199 }, - { 0x019C, 0x026F }, - { 0x019D, 0x0272 }, - { 0x019F, 0x0275 }, - { 0x01A6, 0x0280 }, - { 0x01A7, 0x01A8 }, - { 0x01A9, 0x0283 }, - { 0x01AC, 0x01AD }, - { 0x01AE, 0x0288 }, - { 0x01AF, 0x01B0 }, - { 0x01B7, 0x0292 }, - { 0x01B8, 0x01B9 }, - { 0x01BC, 0x01BD }, - { 0x01C4, 0x01C6 }, - { 0x01C7, 0x01C9 }, - { 0x01CA, 0x01CC }, - { 0x01F1, 0x01F3 }, - { 0x01F4, 0x01F5 }, - { 0x01F6, 0x0195 }, - { 0x01F7, 0x01BF }, - { 0x0220, 0x019E }, - { 0x023A, 0x2C65 }, - { 0x023B, 0x023C }, - { 0x023D, 0x019A }, - { 0x023E, 0x2C66 }, - { 0x0241, 0x0242 }, - { 0x0243, 0x0180 }, - { 0x0244, 0x0289 }, - { 0x0245, 0x028C }, - { 0x0376, 0x0377 }, - { 0x037F, 0x03F3 }, - { 0x0386, 0x03AC }, - { 0x038C, 0x03CC }, - { 0x03CF, 0x03D7 }, - { 0x03F4, 0x03B8 }, - { 0x03F7, 0x03F8 }, - { 0x03F9, 0x03F2 }, - { 0x03FA, 0x03FB }, - { 0x04C0, 0x04CF }, - { 0x10C7, 0x2D27 }, - { 0x10CD, 0x2D2D }, - { 0x1E9E, 0x00DF }, - { 0x1F59, 0x1F51 }, - { 0x1F5B, 0x1F53 }, - { 0x1F5D, 0x1F55 }, - { 0x1F5F, 0x1F57 }, - { 0x1FEC, 0x1FE5 }, - { 0x2102, 0x2102 }, - { 0x2107, 0x2107 }, - { 0x2115, 0x2115 }, - { 0x2124, 0x2124 }, - { 0x2126, 0x03C9 }, - { 0x2128, 0x2128 }, - { 0x212A, 0x006B }, - { 0x212B, 0x00E5 }, - { 0x2132, 0x214E }, - { 0x2133, 0x2133 }, - { 0x2145, 0x2145 }, - { 0x2183, 0x2184 }, - { 0x2C60, 0x2C61 }, - { 0x2C62, 0x026B }, - { 0x2C63, 0x1D7D }, - { 0x2C64, 0x027D }, - { 0x2C6D, 0x0251 }, - { 0x2C6E, 0x0271 }, - { 0x2C6F, 0x0250 }, - { 0x2C70, 0x0252 }, - { 0x2C72, 0x2C73 }, - { 0x2C75, 0x2C76 }, - { 0x2CF2, 0x2CF3 }, - { 0xA77D, 0x1D79 }, - { 0xA78B, 0xA78C }, - { 0xA78D, 0x0265 }, - { 0xA7AA, 0x0266 }, - { 0xA7AB, 0x025C }, - { 0xA7AC, 0x0261 }, - { 0xA7AD, 0x026C }, - { 0xA7AE, 0x026A }, - { 0xA7B0, 0x029E }, - { 0xA7B1, 0x0287 }, - { 0xA7B2, 0x029D }, - { 0xA7B3, 0xAB53 }, - { 0xA7C4, 0xA794 }, - { 0xA7C5, 0x0282 }, - { 0xA7C6, 0x1D8E }, - { 0xA7D0, 0xA7D1 }, - { 0xA7F5, 0xA7F6 }, - { 0x1D49C, 0x1D49C }, - { 0x1D4A2, 0x1D4A2 }, - { 0x1D546, 0x1D546 }, - { 0x1D7CA, 0x1D7CA }, -}; - -C_regparm int C_utf_isupper(int r) -{ - int *match; - - if((match = bsearch(&r, upper3, nelem(upper3), sizeof *upper3, &rune2cmp))) - return !((r - match[0]) % 2); - if(bsearch(&r, upper2, nelem(upper2), sizeof *upper2, &rune2cmp)) - return 1; - if(bsearch(&r, upper1, nelem(upper1), sizeof *upper1, &rune1cmp)) - return 1; - return 0; -} - -C_regparm int C_utf_char_downcase(int r) -{ - int *match; - - match = bsearch(&r, upper3, nelem(upper3), sizeof *upper3, &rune2cmp); - if (match) - return ((r - match[0]) % 2) ? r : r + 1; - match = bsearch(&r, upper2, nelem(upper2), sizeof *upper2, &rune2cmp); - if (match) - return match[2] + (r - match[0]); - match = bsearch(&r, upper1, nelem(upper1), sizeof *upper1, &rune1cmp); - if (match) - return match[1]; - return r; -} - -static int lower4[][2] = { - { 0x0101, 0x012F }, - { 0x0133, 0x0137 }, - { 0x013A, 0x0148 }, - { 0x014B, 0x0177 }, - { 0x017A, 0x017E }, - { 0x0183, 0x0185 }, - { 0x01A1, 0x01A5 }, - { 0x01B4, 0x01B6 }, - { 0x01CE, 0x01DC }, - { 0x01DF, 0x01EF }, - { 0x01F9, 0x021F }, - { 0x0223, 0x0233 }, - { 0x0247, 0x024F }, - { 0x0371, 0x0373 }, - { 0x03D9, 0x03EF }, - { 0x0461, 0x0481 }, - { 0x048B, 0x04BF }, - { 0x04C2, 0x04CE }, - { 0x04D1, 0x052F }, - { 0x1E01, 0x1E95 }, - { 0x1EA1, 0x1EFF }, - { 0x2C68, 0x2C6C }, - { 0x2C81, 0x2CE3 }, - { 0x2CEC, 0x2CEE }, - { 0xA641, 0xA66D }, - { 0xA681, 0xA69B }, - { 0xA723, 0xA72F }, - { 0xA733, 0xA76F }, - { 0xA77A, 0xA77C }, - { 0xA77F, 0xA787 }, - { 0xA791, 0xA793 }, - { 0xA797, 0xA7A9 }, - { 0xA7B5, 0xA7C3 }, - { 0xA7C8, 0xA7CA }, - { 0xA7D7, 0xA7D9 }, -}; - -static int lower2[][3] = { - { 0x0061, 0x007A, 0x0041 }, - { 0x00E0, 0x00F6, 0x00C0 }, - { 0x00F8, 0x00FE, 0x00D8 }, - { 0x01AA, 0x01AB, 0x01AA }, - { 0x0234, 0x0239, 0x0234 }, - { 0x023F, 0x0240, 0x2C7E }, - { 0x0256, 0x0257, 0x0189 }, - { 0x025D, 0x025F, 0x025D }, - { 0x026D, 0x026E, 0x026D }, - { 0x0273, 0x0274, 0x0273 }, - { 0x0276, 0x027C, 0x0276 }, - { 0x027E, 0x027F, 0x027E }, - { 0x0284, 0x0286, 0x0284 }, - { 0x028A, 0x028B, 0x01B1 }, - { 0x028D, 0x0291, 0x028D }, - { 0x0295, 0x029C, 0x0295 }, - { 0x029F, 0x02AF, 0x029F }, - { 0x037B, 0x037D, 0x03FD }, - { 0x03AD, 0x03AF, 0x0388 }, - { 0x03B1, 0x03C1, 0x0391 }, - { 0x03C3, 0x03CB, 0x03A3 }, - { 0x03CD, 0x03CE, 0x038E }, - { 0x0430, 0x044F, 0x0410 }, - { 0x0450, 0x045F, 0x0400 }, - { 0x0561, 0x0586, 0x0531 }, - { 0x0587, 0x0588, 0x0587 }, - { 0x10D0, 0x10FA, 0x1C90 }, - { 0x10FD, 0x10FF, 0x1CBD }, - { 0x13F8, 0x13FD, 0x13F0 }, - { 0x1C83, 0x1C84, 0x0421 }, - { 0x1D00, 0x1D2B, 0x1D00 }, - { 0x1D6B, 0x1D77, 0x1D6B }, - { 0x1D7A, 0x1D7C, 0x1D7A }, - { 0x1D7E, 0x1D8D, 0x1D7E }, - { 0x1D8F, 0x1D9A, 0x1D8F }, - { 0x1E96, 0x1E9A, 0x1E96 }, - { 0x1E9C, 0x1E9D, 0x1E9C }, - { 0x1F00, 0x1F07, 0x1F08 }, - { 0x1F10, 0x1F15, 0x1F18 }, - { 0x1F20, 0x1F27, 0x1F28 }, - { 0x1F30, 0x1F37, 0x1F38 }, - { 0x1F40, 0x1F45, 0x1F48 }, - { 0x1F60, 0x1F67, 0x1F68 }, - { 0x1F70, 0x1F71, 0x1FBA }, - { 0x1F72, 0x1F75, 0x1FC8 }, - { 0x1F76, 0x1F77, 0x1FDA }, - { 0x1F78, 0x1F79, 0x1FF8 }, - { 0x1F7A, 0x1F7B, 0x1FEA }, - { 0x1F7C, 0x1F7D, 0x1FFA }, - { 0x1F80, 0x1F87, 0x1F88 }, - { 0x1F90, 0x1F97, 0x1F98 }, - { 0x1FA0, 0x1FA7, 0x1FA8 }, - { 0x1FB0, 0x1FB1, 0x1FB8 }, - { 0x1FB6, 0x1FB7, 0x1FB6 }, - { 0x1FC6, 0x1FC7, 0x1FC6 }, - { 0x1FD0, 0x1FD1, 0x1FD8 }, - { 0x1FD2, 0x1FD3, 0x1FD2 }, - { 0x1FD6, 0x1FD7, 0x1FD6 }, - { 0x1FE0, 0x1FE1, 0x1FE8 }, - { 0x1FE2, 0x1FE4, 0x1FE2 }, - { 0x1FE6, 0x1FE7, 0x1FE6 }, - { 0x1FF6, 0x1FF7, 0x1FF6 }, - { 0x210E, 0x210F, 0x210E }, - { 0x213C, 0x213D, 0x213C }, - { 0x2146, 0x2149, 0x2146 }, - { 0x2C30, 0x2C5F, 0x2C00 }, - { 0x2C77, 0x2C7B, 0x2C77 }, - { 0x2D00, 0x2D25, 0x10A0 }, - { 0xA730, 0xA731, 0xA730 }, - { 0xA771, 0xA778, 0xA771 }, - { 0xAB30, 0xAB52, 0xAB30 }, - { 0xAB54, 0xAB5A, 0xAB54 }, - { 0xAB60, 0xAB68, 0xAB60 }, - { 0xAB70, 0xABBF, 0x13A0 }, - { 0xFB00, 0xFB06, 0xFB00 }, - { 0xFB13, 0xFB17, 0xFB13 }, - { 0xFF41, 0xFF5A, 0xFF21 }, - { 0x10428, 0x1044F, 0x10400 }, - { 0x104D8, 0x104FB, 0x104B0 }, - { 0x10597, 0x105A1, 0x10570 }, - { 0x105A3, 0x105B1, 0x1057C }, - { 0x105B3, 0x105B9, 0x1058C }, - { 0x105BB, 0x105BC, 0x10594 }, - { 0x10CC0, 0x10CF2, 0x10C80 }, - { 0x118C0, 0x118DF, 0x118A0 }, - { 0x16E60, 0x16E7F, 0x16E40 }, - { 0x1D41A, 0x1D433, 0x1D41A }, - { 0x1D44E, 0x1D454, 0x1D44E }, - { 0x1D456, 0x1D467, 0x1D456 }, - { 0x1D482, 0x1D49B, 0x1D482 }, - { 0x1D4B6, 0x1D4B9, 0x1D4B6 }, - { 0x1D4BD, 0x1D4C3, 0x1D4BD }, - { 0x1D4C5, 0x1D4CF, 0x1D4C5 }, - { 0x1D4EA, 0x1D503, 0x1D4EA }, - { 0x1D51E, 0x1D537, 0x1D51E }, - { 0x1D552, 0x1D56B, 0x1D552 }, - { 0x1D586, 0x1D59F, 0x1D586 }, - { 0x1D5BA, 0x1D5D3, 0x1D5BA }, - { 0x1D5EE, 0x1D607, 0x1D5EE }, - { 0x1D622, 0x1D63B, 0x1D622 }, - { 0x1D656, 0x1D66F, 0x1D656 }, - { 0x1D68A, 0x1D6A5, 0x1D68A }, - { 0x1D6C2, 0x1D6DA, 0x1D6C2 }, - { 0x1D6DC, 0x1D6E1, 0x1D6DC }, - { 0x1D6FC, 0x1D714, 0x1D6FC }, - { 0x1D716, 0x1D71B, 0x1D716 }, - { 0x1D736, 0x1D74E, 0x1D736 }, - { 0x1D750, 0x1D755, 0x1D750 }, - { 0x1D770, 0x1D788, 0x1D770 }, - { 0x1D78A, 0x1D78F, 0x1D78A }, - { 0x1D7AA, 0x1D7C2, 0x1D7AA }, - { 0x1D7C4, 0x1D7C9, 0x1D7C4 }, - { 0x1DF00, 0x1DF09, 0x1DF00 }, - { 0x1DF0B, 0x1DF1E, 0x1DF0B }, - { 0x1E922, 0x1E943, 0x1E900 }, -}; - -static int lower1[][2] = { - { 0x00B5, 0x039C }, - { 0x00DF, 0x00DF }, - { 0x00FF, 0x0178 }, - { 0x0131, 0x0049 }, - { 0x0138, 0x0138 }, - { 0x0149, 0x0149 }, - { 0x017F, 0x0053 }, - { 0x0180, 0x0243 }, - { 0x0188, 0x0187 }, - { 0x018C, 0x018B }, - { 0x018D, 0x018D }, - { 0x0192, 0x0191 }, - { 0x0195, 0x01F6 }, - { 0x0199, 0x0198 }, - { 0x019A, 0x023D }, - { 0x019B, 0x019B }, - { 0x019E, 0x0220 }, - { 0x01A8, 0x01A7 }, - { 0x01AD, 0x01AC }, - { 0x01B0, 0x01AF }, - { 0x01B9, 0x01B8 }, - { 0x01BA, 0x01BA }, - { 0x01BD, 0x01BC }, - { 0x01BE, 0x01BE }, - { 0x01BF, 0x01F7 }, - { 0x01C6, 0x01C4 }, - { 0x01C9, 0x01C7 }, - { 0x01CC, 0x01CA }, - { 0x01DD, 0x018E }, - { 0x01F0, 0x01F0 }, - { 0x01F3, 0x01F1 }, - { 0x01F5, 0x01F4 }, - { 0x0221, 0x0221 }, - { 0x023C, 0x023B }, - { 0x0242, 0x0241 }, - { 0x0250, 0x2C6F }, - { 0x0251, 0x2C6D }, - { 0x0252, 0x2C70 }, - { 0x0253, 0x0181 }, - { 0x0254, 0x0186 }, - { 0x0255, 0x0255 }, - { 0x0258, 0x0258 }, - { 0x0259, 0x018F }, - { 0x025A, 0x025A }, - { 0x025B, 0x0190 }, - { 0x025C, 0xA7AB }, - { 0x0260, 0x0193 }, - { 0x0261, 0xA7AC }, - { 0x0262, 0x0262 }, - { 0x0263, 0x0194 }, - { 0x0264, 0x0264 }, - { 0x0265, 0xA78D }, - { 0x0266, 0xA7AA }, - { 0x0267, 0x0267 }, - { 0x0268, 0x0197 }, - { 0x0269, 0x0196 }, - { 0x026A, 0xA7AE }, - { 0x026B, 0x2C62 }, - { 0x026C, 0xA7AD }, - { 0x026F, 0x019C }, - { 0x0270, 0x0270 }, - { 0x0271, 0x2C6E }, - { 0x0272, 0x019D }, - { 0x0275, 0x019F }, - { 0x027D, 0x2C64 }, - { 0x0280, 0x01A6 }, - { 0x0281, 0x0281 }, - { 0x0282, 0xA7C5 }, - { 0x0283, 0x01A9 }, - { 0x0287, 0xA7B1 }, - { 0x0288, 0x01AE }, - { 0x0289, 0x0244 }, - { 0x028C, 0x0245 }, - { 0x0292, 0x01B7 }, - { 0x0293, 0x0293 }, - { 0x029D, 0xA7B2 }, - { 0x029E, 0xA7B0 }, - { 0x0377, 0x0376 }, - { 0x0390, 0x0390 }, - { 0x03AC, 0x0386 }, - { 0x03B0, 0x03B0 }, - { 0x03C2, 0x03A3 }, - { 0x03CC, 0x038C }, - { 0x03D0, 0x0392 }, - { 0x03D1, 0x0398 }, - { 0x03D5, 0x03A6 }, - { 0x03D6, 0x03A0 }, - { 0x03D7, 0x03CF }, - { 0x03F0, 0x039A }, - { 0x03F1, 0x03A1 }, - { 0x03F2, 0x03F9 }, - { 0x03F3, 0x037F }, - { 0x03F5, 0x0395 }, - { 0x03F8, 0x03F7 }, - { 0x03FB, 0x03FA }, - { 0x03FC, 0x03FC }, - { 0x04CF, 0x04C0 }, - { 0x0560, 0x0560 }, - { 0x1C80, 0x0412 }, - { 0x1C81, 0x0414 }, - { 0x1C82, 0x041E }, - { 0x1C85, 0x0422 }, - { 0x1C86, 0x042A }, - { 0x1C87, 0x0462 }, - { 0x1C88, 0xA64A }, - { 0x1D79, 0xA77D }, - { 0x1D7D, 0x2C63 }, - { 0x1D8E, 0xA7C6 }, - { 0x1E9B, 0x1E60 }, - { 0x1E9F, 0x1E9F }, - { 0x1F50, 0x1F50 }, - { 0x1F51, 0x1F59 }, - { 0x1F52, 0x1F52 }, - { 0x1F53, 0x1F5B }, - { 0x1F54, 0x1F54 }, - { 0x1F55, 0x1F5D }, - { 0x1F56, 0x1F56 }, - { 0x1F57, 0x1F5F }, - { 0x1FB2, 0x1FB2 }, - { 0x1FB3, 0x1FBC }, - { 0x1FB4, 0x1FB4 }, - { 0x1FBE, 0x0399 }, - { 0x1FC2, 0x1FC2 }, - { 0x1FC3, 0x1FCC }, - { 0x1FC4, 0x1FC4 }, - { 0x1FE5, 0x1FEC }, - { 0x1FF2, 0x1FF2 }, - { 0x1FF3, 0x1FFC }, - { 0x1FF4, 0x1FF4 }, - { 0x210A, 0x210A }, - { 0x2113, 0x2113 }, - { 0x212F, 0x212F }, - { 0x2134, 0x2134 }, - { 0x2139, 0x2139 }, - { 0x214E, 0x2132 }, - { 0x2184, 0x2183 }, - { 0x2C61, 0x2C60 }, - { 0x2C65, 0x023A }, - { 0x2C66, 0x023E }, - { 0x2C71, 0x2C71 }, - { 0x2C73, 0x2C72 }, - { 0x2C74, 0x2C74 }, - { 0x2C76, 0x2C75 }, - { 0x2CE4, 0x2CE4 }, - { 0x2CF3, 0x2CF2 }, - { 0x2D27, 0x10C7 }, - { 0x2D2D, 0x10CD }, - { 0xA78C, 0xA78B }, - { 0xA78E, 0xA78E }, - { 0xA794, 0xA7C4 }, - { 0xA795, 0xA795 }, - { 0xA7AF, 0xA7AF }, - { 0xA7D1, 0xA7D0 }, - { 0xA7D3, 0xA7D3 }, - { 0xA7D5, 0xA7D5 }, - { 0xA7F6, 0xA7F5 }, - { 0xA7FA, 0xA7FA }, - { 0xAB53, 0xA7B3 }, - { 0x1D4BB, 0x1D4BB }, - { 0x1D7CB, 0x1D7CB }, -}; - -C_regparm int C_utf_islower(int r) -{ - int *match; - - if((match = bsearch(&r, lower4, nelem(lower4), sizeof *lower4, &rune2cmp))) - return !((r - match[0]) % 2); - if(bsearch(&r, lower2, nelem(lower2), sizeof *lower2, &rune2cmp)) - return 1; - if(bsearch(&r, lower1, nelem(lower1), sizeof *lower1, &rune1cmp)) - return 1; - return 0; -} - -C_regparm int C_utf_char_upcase(int r) -{ - int *match; - - match = bsearch(&r, lower4, nelem(lower4), sizeof *lower4, &rune2cmp); - if (match) - return ((r - match[0]) % 2) ? r : r - 1; - match = bsearch(&r, lower2, nelem(lower2), sizeof *lower2, &rune2cmp); - if (match) - return match[2] + (r - match[0]); - match = bsearch(&r, lower1, nelem(lower1), sizeof *lower1, &rune1cmp); - if (match) - return match[1]; - return r; -} - -static int digit2[][2] = { - { 0x0030, 0x0039 }, - { 0x0660, 0x0669 }, - { 0x06F0, 0x06F9 }, - { 0x07C0, 0x07C9 }, - { 0x0966, 0x096F }, - { 0x09E6, 0x09EF }, - { 0x0A66, 0x0A6F }, - { 0x0AE6, 0x0AEF }, - { 0x0B66, 0x0B6F }, - { 0x0BE6, 0x0BEF }, - { 0x0C66, 0x0C6F }, - { 0x0CE6, 0x0CEF }, - { 0x0D66, 0x0D6F }, - { 0x0DE6, 0x0DEF }, - { 0x0E50, 0x0E59 }, - { 0x0ED0, 0x0ED9 }, - { 0x0F20, 0x0F29 }, - { 0x1040, 0x1049 }, - { 0x1090, 0x1099 }, - { 0x17E0, 0x17E9 }, - { 0x1810, 0x1819 }, - { 0x1946, 0x194F }, - { 0x19D0, 0x19D9 }, - { 0x1A80, 0x1A89 }, - { 0x1A90, 0x1A99 }, - { 0x1B50, 0x1B59 }, - { 0x1BB0, 0x1BB9 }, - { 0x1C40, 0x1C49 }, - { 0x1C50, 0x1C59 }, - { 0xA620, 0xA629 }, - { 0xA8D0, 0xA8D9 }, - { 0xA900, 0xA909 }, - { 0xA9D0, 0xA9D9 }, - { 0xA9F0, 0xA9F9 }, - { 0xAA50, 0xAA59 }, - { 0xABF0, 0xABF9 }, - { 0xFF10, 0xFF19 }, - { 0x104A0, 0x104A9 }, - { 0x10D30, 0x10D39 }, - { 0x11066, 0x1106F }, - { 0x110F0, 0x110F9 }, - { 0x11136, 0x1113F }, - { 0x111D0, 0x111D9 }, - { 0x112F0, 0x112F9 }, - { 0x11450, 0x11459 }, - { 0x114D0, 0x114D9 }, - { 0x11650, 0x11659 }, - { 0x116C0, 0x116C9 }, - { 0x11730, 0x11739 }, - { 0x118E0, 0x118E9 }, - { 0x11950, 0x11959 }, - { 0x11C50, 0x11C59 }, - { 0x11D50, 0x11D59 }, - { 0x11DA0, 0x11DA9 }, - { 0x16A60, 0x16A69 }, - { 0x16AC0, 0x16AC9 }, - { 0x16B50, 0x16B59 }, - { 0x1D7CE, 0x1D7FF }, - { 0x1E140, 0x1E149 }, - { 0x1E2F0, 0x1E2F9 }, - { 0x1E950, 0x1E959 }, - { 0x1FBF0, 0x1FBF9 }, -}; - -C_regparm int C_utf_isdigit(int r) -{ - int *dp = bsearch(&r, digit2, nelem(digit2), sizeof *digit2, &rune2cmp); - if(dp != NULL) return 1 + r - dp[ 0 ]; - return 0; -} - -static int alpha3[][2] = { - { 0x00D6, 0x00D8 }, - { 0x00F6, 0x00F8 }, - { 0x02EC, 0x02EE }, - { 0x0374, 0x0376 }, - { 0x037D, 0x037F }, - { 0x0386, 0x0388 }, - { 0x038A, 0x038E }, - { 0x03A1, 0x03A3 }, - { 0x03F5, 0x03F7 }, - { 0x052F, 0x0531 }, - { 0x066F, 0x0671 }, - { 0x06D3, 0x06D5 }, - { 0x0710, 0x0712 }, - { 0x0887, 0x0889 }, - { 0x09A8, 0x09AA }, - { 0x09B0, 0x09B2 }, - { 0x09DD, 0x09DF }, - { 0x0A28, 0x0A2A }, - { 0x0A30, 0x0A32 }, - { 0x0A33, 0x0A35 }, - { 0x0A36, 0x0A38 }, - { 0x0A5C, 0x0A5E }, - { 0x0A8D, 0x0A8F }, - { 0x0A91, 0x0A93 }, - { 0x0AA8, 0x0AAA }, - { 0x0AB0, 0x0AB2 }, - { 0x0AB3, 0x0AB5 }, - { 0x0B28, 0x0B2A }, - { 0x0B30, 0x0B32 }, - { 0x0B33, 0x0B35 }, - { 0x0B5D, 0x0B5F }, - { 0x0B83, 0x0B85 }, - { 0x0B90, 0x0B92 }, - { 0x0B9A, 0x0B9E }, - { 0x0C0C, 0x0C0E }, - { 0x0C10, 0x0C12 }, - { 0x0C28, 0x0C2A }, - { 0x0C8C, 0x0C8E }, - { 0x0C90, 0x0C92 }, - { 0x0CA8, 0x0CAA }, - { 0x0CB3, 0x0CB5 }, - { 0x0CDE, 0x0CE0 }, - { 0x0D0C, 0x0D0E }, - { 0x0D10, 0x0D12 }, - { 0x0DB1, 0x0DB3 }, - { 0x0DBB, 0x0DBD }, - { 0x0E30, 0x0E32 }, - { 0x0E82, 0x0E86 }, - { 0x0E8A, 0x0E8C }, - { 0x0EA3, 0x0EA7 }, - { 0x0EB0, 0x0EB2 }, - { 0x0EC4, 0x0EC6 }, - { 0x0F47, 0x0F49 }, - { 0x10C5, 0x10C7 }, - { 0x10FA, 0x10FC }, - { 0x1248, 0x124A }, - { 0x1256, 0x125A }, - { 0x1288, 0x128A }, - { 0x12B0, 0x12B2 }, - { 0x12BE, 0x12C2 }, - { 0x12D6, 0x12D8 }, - { 0x1310, 0x1312 }, - { 0x167F, 0x1681 }, - { 0x176C, 0x176E }, - { 0x18A8, 0x18AA }, - { 0x1CEC, 0x1CEE }, - { 0x1CF3, 0x1CF5 }, - { 0x1F57, 0x1F5F }, - { 0x1FB4, 0x1FB6 }, - { 0x1FBC, 0x1FBE }, - { 0x1FC4, 0x1FC6 }, - { 0x1FF4, 0x1FF6 }, - { 0x2113, 0x2115 }, - { 0x2124, 0x212A }, - { 0x212D, 0x212F }, - { 0x2D25, 0x2D27 }, - { 0x2DA6, 0x2DA8 }, - { 0x2DAE, 0x2DB0 }, - { 0x2DB6, 0x2DB8 }, - { 0x2DBE, 0x2DC0 }, - { 0x2DC6, 0x2DC8 }, - { 0x2DCE, 0x2DD0 }, - { 0x2DD6, 0x2DD8 }, - { 0x309F, 0x30A1 }, - { 0x30FA, 0x30FC }, - { 0x312F, 0x3131 }, - { 0xA7D1, 0xA7D5 }, - { 0xA801, 0xA803 }, - { 0xA805, 0xA807 }, - { 0xA80A, 0xA80C }, - { 0xA8FB, 0xA8FD }, - { 0xA9E4, 0xA9E6 }, - { 0xA9FE, 0xAA00 }, - { 0xAA42, 0xAA44 }, - { 0xAAAF, 0xAAB1 }, - { 0xAAC0, 0xAAC2 }, - { 0xAB26, 0xAB28 }, - { 0xAB2E, 0xAB30 }, - { 0xAB5A, 0xAB5C }, - { 0xFB1D, 0xFB1F }, - { 0xFB28, 0xFB2A }, - { 0xFB36, 0xFB38 }, - { 0xFB3C, 0xFB40 }, - { 0xFB41, 0xFB43 }, - { 0xFB44, 0xFB46 }, - { 0xFE74, 0xFE76 }, - { 0x1000B, 0x1000D }, - { 0x10026, 0x10028 }, - { 0x1003A, 0x1003C }, - { 0x1003D, 0x1003F }, - { 0x10340, 0x10342 }, - { 0x1057A, 0x1057C }, - { 0x1058A, 0x1058C }, - { 0x10592, 0x10594 }, - { 0x10595, 0x10597 }, - { 0x105A1, 0x105A3 }, - { 0x105B1, 0x105B3 }, - { 0x105B9, 0x105BB }, - { 0x10785, 0x10787 }, - { 0x107B0, 0x107B2 }, - { 0x10808, 0x1080A }, - { 0x10835, 0x10837 }, - { 0x108F2, 0x108F4 }, - { 0x10A13, 0x10A15 }, - { 0x10A17, 0x10A19 }, - { 0x10AC7, 0x10AC9 }, - { 0x111DA, 0x111DC }, - { 0x11211, 0x11213 }, - { 0x11286, 0x1128A }, - { 0x1128D, 0x1128F }, - { 0x1129D, 0x1129F }, - { 0x11328, 0x1132A }, - { 0x11330, 0x11332 }, - { 0x11333, 0x11335 }, - { 0x114C5, 0x114C7 }, - { 0x11913, 0x11915 }, - { 0x11916, 0x11918 }, - { 0x1193F, 0x11941 }, - { 0x119E1, 0x119E3 }, - { 0x11C08, 0x11C0A }, - { 0x11D06, 0x11D08 }, - { 0x11D09, 0x11D0B }, - { 0x11D65, 0x11D67 }, - { 0x11D68, 0x11D6A }, - { 0x16FE1, 0x16FE3 }, - { 0x1AFF3, 0x1AFF5 }, - { 0x1AFFB, 0x1AFFD }, - { 0x1AFFE, 0x1B000 }, - { 0x1D454, 0x1D456 }, - { 0x1D49C, 0x1D49E }, - { 0x1D4AC, 0x1D4AE }, - { 0x1D4B9, 0x1D4BD }, - { 0x1D4C3, 0x1D4C5 }, - { 0x1D505, 0x1D507 }, - { 0x1D514, 0x1D516 }, - { 0x1D51C, 0x1D51E }, - { 0x1D539, 0x1D53B }, - { 0x1D53E, 0x1D540 }, - { 0x1D544, 0x1D546 }, - { 0x1D550, 0x1D552 }, - { 0x1D6C0, 0x1D6C2 }, - { 0x1D6DA, 0x1D6DC }, - { 0x1D6FA, 0x1D6FC }, - { 0x1D714, 0x1D716 }, - { 0x1D734, 0x1D736 }, - { 0x1D74E, 0x1D750 }, - { 0x1D76E, 0x1D770 }, - { 0x1D788, 0x1D78A }, - { 0x1D7A8, 0x1D7AA }, - { 0x1D7C2, 0x1D7C4 }, - { 0x1E7E6, 0x1E7E8 }, - { 0x1E7EB, 0x1E7ED }, - { 0x1E7EE, 0x1E7F0 }, - { 0x1E7FE, 0x1E800 }, - { 0x1EE03, 0x1EE05 }, - { 0x1EE1F, 0x1EE21 }, - { 0x1EE22, 0x1EE24 }, - { 0x1EE27, 0x1EE29 }, - { 0x1EE32, 0x1EE34 }, - { 0x1EE37, 0x1EE3B }, - { 0x1EE47, 0x1EE4D }, - { 0x1EE4F, 0x1EE51 }, - { 0x1EE52, 0x1EE54 }, - { 0x1EE57, 0x1EE61 }, - { 0x1EE62, 0x1EE64 }, - { 0x1EE6A, 0x1EE6C }, - { 0x1EE72, 0x1EE74 }, - { 0x1EE77, 0x1EE79 }, - { 0x1EE7C, 0x1EE80 }, - { 0x1EE89, 0x1EE8B }, - { 0x1EEA3, 0x1EEA5 }, - { 0x1EEA9, 0x1EEAB }, -}; - -static int alpha2[][2] = { - { 0x0041, 0x005A }, - { 0x0061, 0x007A }, - { 0x00C0, 0x00D6 }, - { 0x00D8, 0x00F6 }, - { 0x00F8, 0x02C1 }, - { 0x02C6, 0x02D1 }, - { 0x02E0, 0x02E4 }, - { 0x0370, 0x0374 }, - { 0x0376, 0x0377 }, - { 0x037A, 0x037D }, - { 0x0388, 0x038A }, - { 0x038E, 0x03A1 }, - { 0x03A3, 0x03F5 }, - { 0x03F7, 0x0481 }, - { 0x048A, 0x052F }, - { 0x0531, 0x0556 }, - { 0x0560, 0x0588 }, - { 0x05D0, 0x05EA }, - { 0x05EF, 0x05F2 }, - { 0x0620, 0x064A }, - { 0x066E, 0x066F }, - { 0x0671, 0x06D3 }, - { 0x06E5, 0x06E6 }, - { 0x06EE, 0x06EF }, - { 0x06FA, 0x06FC }, - { 0x0712, 0x072F }, - { 0x074D, 0x07A5 }, - { 0x07CA, 0x07EA }, - { 0x07F4, 0x07F5 }, - { 0x0800, 0x0815 }, - { 0x0840, 0x0858 }, - { 0x0860, 0x086A }, - { 0x0870, 0x0887 }, - { 0x0889, 0x088E }, - { 0x08A0, 0x08C9 }, - { 0x0904, 0x0939 }, - { 0x0958, 0x0961 }, - { 0x0971, 0x0980 }, - { 0x0985, 0x098C }, - { 0x098F, 0x0990 }, - { 0x0993, 0x09A8 }, - { 0x09AA, 0x09B0 }, - { 0x09B6, 0x09B9 }, - { 0x09DC, 0x09DD }, - { 0x09DF, 0x09E1 }, - { 0x09F0, 0x09F1 }, - { 0x0A05, 0x0A0A }, - { 0x0A0F, 0x0A10 }, - { 0x0A13, 0x0A28 }, - { 0x0A2A, 0x0A30 }, - { 0x0A32, 0x0A33 }, - { 0x0A35, 0x0A36 }, - { 0x0A38, 0x0A39 }, - { 0x0A59, 0x0A5C }, - { 0x0A72, 0x0A74 }, - { 0x0A85, 0x0A8D }, - { 0x0A8F, 0x0A91 }, - { 0x0A93, 0x0AA8 }, - { 0x0AAA, 0x0AB0 }, - { 0x0AB2, 0x0AB3 }, - { 0x0AB5, 0x0AB9 }, - { 0x0AE0, 0x0AE1 }, - { 0x0B05, 0x0B0C }, - { 0x0B0F, 0x0B10 }, - { 0x0B13, 0x0B28 }, - { 0x0B2A, 0x0B30 }, - { 0x0B32, 0x0B33 }, - { 0x0B35, 0x0B39 }, - { 0x0B5C, 0x0B5D }, - { 0x0B5F, 0x0B61 }, - { 0x0B85, 0x0B8A }, - { 0x0B8E, 0x0B90 }, - { 0x0B92, 0x0B95 }, - { 0x0B99, 0x0B9A }, - { 0x0B9E, 0x0B9F }, - { 0x0BA3, 0x0BA4 }, - { 0x0BA8, 0x0BAA }, - { 0x0BAE, 0x0BB9 }, - { 0x0C05, 0x0C0C }, - { 0x0C0E, 0x0C10 }, - { 0x0C12, 0x0C28 }, - { 0x0C2A, 0x0C39 }, - { 0x0C58, 0x0C5A }, - { 0x0C60, 0x0C61 }, - { 0x0C85, 0x0C8C }, - { 0x0C8E, 0x0C90 }, - { 0x0C92, 0x0CA8 }, - { 0x0CAA, 0x0CB3 }, - { 0x0CB5, 0x0CB9 }, - { 0x0CDD, 0x0CDE }, - { 0x0CE0, 0x0CE1 }, - { 0x0CF1, 0x0CF2 }, - { 0x0D04, 0x0D0C }, - { 0x0D0E, 0x0D10 }, - { 0x0D12, 0x0D3A }, - { 0x0D54, 0x0D56 }, - { 0x0D5F, 0x0D61 }, - { 0x0D7A, 0x0D7F }, - { 0x0D85, 0x0D96 }, - { 0x0D9A, 0x0DB1 }, - { 0x0DB3, 0x0DBB }, - { 0x0DC0, 0x0DC6 }, - { 0x0E01, 0x0E30 }, - { 0x0E32, 0x0E33 }, - { 0x0E40, 0x0E46 }, - { 0x0E81, 0x0E82 }, - { 0x0E86, 0x0E8A }, - { 0x0E8C, 0x0EA3 }, - { 0x0EA7, 0x0EB0 }, - { 0x0EB2, 0x0EB3 }, - { 0x0EC0, 0x0EC4 }, - { 0x0EDC, 0x0EDF }, - { 0x0F40, 0x0F47 }, - { 0x0F49, 0x0F6C }, - { 0x0F88, 0x0F8C }, - { 0x1000, 0x102A }, - { 0x1050, 0x1055 }, - { 0x105A, 0x105D }, - { 0x1065, 0x1066 }, - { 0x106E, 0x1070 }, - { 0x1075, 0x1081 }, - { 0x10A0, 0x10C5 }, - { 0x10D0, 0x10FA }, - { 0x10FC, 0x1248 }, - { 0x124A, 0x124D }, - { 0x1250, 0x1256 }, - { 0x125A, 0x125D }, - { 0x1260, 0x1288 }, - { 0x128A, 0x128D }, - { 0x1290, 0x12B0 }, - { 0x12B2, 0x12B5 }, - { 0x12B8, 0x12BE }, - { 0x12C2, 0x12C5 }, - { 0x12C8, 0x12D6 }, - { 0x12D8, 0x1310 }, - { 0x1312, 0x1315 }, - { 0x1318, 0x135A }, - { 0x1380, 0x138F }, - { 0x13A0, 0x13F5 }, - { 0x13F8, 0x13FD }, - { 0x1401, 0x166C }, - { 0x166F, 0x167F }, - { 0x1681, 0x169A }, - { 0x16A0, 0x16EA }, - { 0x16F1, 0x16F8 }, - { 0x1700, 0x1711 }, - { 0x171F, 0x1731 }, - { 0x1740, 0x1751 }, - { 0x1760, 0x176C }, - { 0x176E, 0x1770 }, - { 0x1780, 0x17B3 }, - { 0x1820, 0x1878 }, - { 0x1880, 0x1884 }, - { 0x1887, 0x18A8 }, - { 0x18B0, 0x18F5 }, - { 0x1900, 0x191E }, - { 0x1950, 0x196D }, - { 0x1970, 0x1974 }, - { 0x1980, 0x19AB }, - { 0x19B0, 0x19C9 }, - { 0x1A00, 0x1A16 }, - { 0x1A20, 0x1A54 }, - { 0x1B05, 0x1B33 }, - { 0x1B45, 0x1B4C }, - { 0x1B83, 0x1BA0 }, - { 0x1BAE, 0x1BAF }, - { 0x1BBA, 0x1BE5 }, - { 0x1C00, 0x1C23 }, - { 0x1C4D, 0x1C4F }, - { 0x1C5A, 0x1C7D }, - { 0x1C80, 0x1C88 }, - { 0x1C90, 0x1CBA }, - { 0x1CBD, 0x1CBF }, - { 0x1CE9, 0x1CEC }, - { 0x1CEE, 0x1CF3 }, - { 0x1CF5, 0x1CF6 }, - { 0x1D00, 0x1DBF }, - { 0x1E00, 0x1F15 }, - { 0x1F18, 0x1F1D }, - { 0x1F20, 0x1F45 }, - { 0x1F48, 0x1F4D }, - { 0x1F50, 0x1F57 }, - { 0x1F5F, 0x1F7D }, - { 0x1F80, 0x1FB4 }, - { 0x1FB6, 0x1FBC }, - { 0x1FC2, 0x1FC4 }, - { 0x1FC6, 0x1FCC }, - { 0x1FD0, 0x1FD3 }, - { 0x1FD6, 0x1FDB }, - { 0x1FE0, 0x1FEC }, - { 0x1FF2, 0x1FF4 }, - { 0x1FF6, 0x1FFC }, - { 0x2090, 0x209C }, - { 0x210A, 0x2113 }, - { 0x2119, 0x211D }, - { 0x212A, 0x212D }, - { 0x212F, 0x2139 }, - { 0x213C, 0x213F }, - { 0x2145, 0x2149 }, - { 0x2183, 0x2184 }, - { 0x2C00, 0x2CE4 }, - { 0x2CEB, 0x2CEE }, - { 0x2CF2, 0x2CF3 }, - { 0x2D00, 0x2D25 }, - { 0x2D30, 0x2D67 }, - { 0x2D80, 0x2D96 }, - { 0x2DA0, 0x2DA6 }, - { 0x2DA8, 0x2DAE }, - { 0x2DB0, 0x2DB6 }, - { 0x2DB8, 0x2DBE }, - { 0x2DC0, 0x2DC6 }, - { 0x2DC8, 0x2DCE }, - { 0x2DD0, 0x2DD6 }, - { 0x2DD8, 0x2DDE }, - { 0x3005, 0x3006 }, - { 0x3031, 0x3035 }, - { 0x303B, 0x303C }, - { 0x3041, 0x3096 }, - { 0x309D, 0x309F }, - { 0x30A1, 0x30FA }, - { 0x30FC, 0x30FF }, - { 0x3105, 0x312F }, - { 0x3131, 0x318E }, - { 0x31A0, 0x31BF }, - { 0x31F0, 0x31FF }, - { 0x9FFF, 0xA48C }, - { 0xA4D0, 0xA4FD }, - { 0xA500, 0xA60C }, - { 0xA610, 0xA61F }, - { 0xA62A, 0xA62B }, - { 0xA640, 0xA66E }, - { 0xA67F, 0xA69D }, - { 0xA6A0, 0xA6E5 }, - { 0xA717, 0xA71F }, - { 0xA722, 0xA788 }, - { 0xA78B, 0xA7CA }, - { 0xA7D0, 0xA7D1 }, - { 0xA7D5, 0xA7D9 }, - { 0xA7F2, 0xA801 }, - { 0xA803, 0xA805 }, - { 0xA807, 0xA80A }, - { 0xA80C, 0xA822 }, - { 0xA840, 0xA873 }, - { 0xA882, 0xA8B3 }, - { 0xA8F2, 0xA8F7 }, - { 0xA8FD, 0xA8FE }, - { 0xA90A, 0xA925 }, - { 0xA930, 0xA946 }, - { 0xA960, 0xA97C }, - { 0xA984, 0xA9B2 }, - { 0xA9E0, 0xA9E4 }, - { 0xA9E6, 0xA9EF }, - { 0xA9FA, 0xA9FE }, - { 0xAA00, 0xAA28 }, - { 0xAA40, 0xAA42 }, - { 0xAA44, 0xAA4B }, - { 0xAA60, 0xAA76 }, - { 0xAA7E, 0xAAAF }, - { 0xAAB5, 0xAAB6 }, - { 0xAAB9, 0xAABD }, - { 0xAADB, 0xAADD }, - { 0xAAE0, 0xAAEA }, - { 0xAAF2, 0xAAF4 }, - { 0xAB01, 0xAB06 }, - { 0xAB09, 0xAB0E }, - { 0xAB11, 0xAB16 }, - { 0xAB20, 0xAB26 }, - { 0xAB28, 0xAB2E }, - { 0xAB30, 0xAB5A }, - { 0xAB5C, 0xAB69 }, - { 0xAB70, 0xABE2 }, - { 0xD7B0, 0xD7C6 }, - { 0xD7CB, 0xD7FB }, - { 0xF900, 0xFA6D }, - { 0xFA70, 0xFAD9 }, - { 0xFB00, 0xFB06 }, - { 0xFB13, 0xFB17 }, - { 0xFB1F, 0xFB28 }, - { 0xFB2A, 0xFB36 }, - { 0xFB38, 0xFB3C }, - { 0xFB40, 0xFB41 }, - { 0xFB43, 0xFB44 }, - { 0xFB46, 0xFBB1 }, - { 0xFBD3, 0xFD3D }, - { 0xFD50, 0xFD8F }, - { 0xFD92, 0xFDC7 }, - { 0xFDF0, 0xFDFB }, - { 0xFE70, 0xFE74 }, - { 0xFE76, 0xFEFC }, - { 0xFF21, 0xFF3A }, - { 0xFF41, 0xFF5A }, - { 0xFF66, 0xFFBE }, - { 0xFFC2, 0xFFC7 }, - { 0xFFCA, 0xFFCF }, - { 0xFFD2, 0xFFD7 }, - { 0xFFDA, 0xFFDC }, - { 0x10000, 0x1000B }, - { 0x1000D, 0x10026 }, - { 0x10028, 0x1003A }, - { 0x1003C, 0x1003D }, - { 0x1003F, 0x1004D }, - { 0x10050, 0x1005D }, - { 0x10080, 0x100FA }, - { 0x10280, 0x1029C }, - { 0x102A0, 0x102D0 }, - { 0x10300, 0x1031F }, - { 0x1032D, 0x10340 }, - { 0x10342, 0x10349 }, - { 0x10350, 0x10375 }, - { 0x10380, 0x1039D }, - { 0x103A0, 0x103C3 }, - { 0x103C8, 0x103CF }, - { 0x10400, 0x1049D }, - { 0x104B0, 0x104D3 }, - { 0x104D8, 0x104FB }, - { 0x10500, 0x10527 }, - { 0x10530, 0x10563 }, - { 0x10570, 0x1057A }, - { 0x1057C, 0x1058A }, - { 0x1058C, 0x10592 }, - { 0x10594, 0x10595 }, - { 0x10597, 0x105A1 }, - { 0x105A3, 0x105B1 }, - { 0x105B3, 0x105B9 }, - { 0x105BB, 0x105BC }, - { 0x10600, 0x10736 }, - { 0x10740, 0x10755 }, - { 0x10760, 0x10767 }, - { 0x10780, 0x10785 }, - { 0x10787, 0x107B0 }, - { 0x107B2, 0x107BA }, - { 0x10800, 0x10805 }, - { 0x1080A, 0x10835 }, - { 0x10837, 0x10838 }, - { 0x1083F, 0x10855 }, - { 0x10860, 0x10876 }, - { 0x10880, 0x1089E }, - { 0x108E0, 0x108F2 }, - { 0x108F4, 0x108F5 }, - { 0x10900, 0x10915 }, - { 0x10920, 0x10939 }, - { 0x10980, 0x109B7 }, - { 0x109BE, 0x109BF }, - { 0x10A10, 0x10A13 }, - { 0x10A15, 0x10A17 }, - { 0x10A19, 0x10A35 }, - { 0x10A60, 0x10A7C }, - { 0x10A80, 0x10A9C }, - { 0x10AC0, 0x10AC7 }, - { 0x10AC9, 0x10AE4 }, - { 0x10B00, 0x10B35 }, - { 0x10B40, 0x10B55 }, - { 0x10B60, 0x10B72 }, - { 0x10B80, 0x10B91 }, - { 0x10C00, 0x10C48 }, - { 0x10C80, 0x10CB2 }, - { 0x10CC0, 0x10CF2 }, - { 0x10D00, 0x10D23 }, - { 0x10E80, 0x10EA9 }, - { 0x10EB0, 0x10EB1 }, - { 0x10F00, 0x10F1C }, - { 0x10F30, 0x10F45 }, - { 0x10F70, 0x10F81 }, - { 0x10FB0, 0x10FC4 }, - { 0x10FE0, 0x10FF6 }, - { 0x11003, 0x11037 }, - { 0x11071, 0x11072 }, - { 0x11083, 0x110AF }, - { 0x110D0, 0x110E8 }, - { 0x11103, 0x11126 }, - { 0x11150, 0x11172 }, - { 0x11183, 0x111B2 }, - { 0x111C1, 0x111C4 }, - { 0x11200, 0x11211 }, - { 0x11213, 0x1122B }, - { 0x11280, 0x11286 }, - { 0x1128A, 0x1128D }, - { 0x1128F, 0x1129D }, - { 0x1129F, 0x112A8 }, - { 0x112B0, 0x112DE }, - { 0x11305, 0x1130C }, - { 0x1130F, 0x11310 }, - { 0x11313, 0x11328 }, - { 0x1132A, 0x11330 }, - { 0x11332, 0x11333 }, - { 0x11335, 0x11339 }, - { 0x1135D, 0x11361 }, - { 0x11400, 0x11434 }, - { 0x11447, 0x1144A }, - { 0x1145F, 0x11461 }, - { 0x11480, 0x114AF }, - { 0x114C4, 0x114C5 }, - { 0x11580, 0x115AE }, - { 0x115D8, 0x115DB }, - { 0x11600, 0x1162F }, - { 0x11680, 0x116AA }, - { 0x11700, 0x1171A }, - { 0x11740, 0x11746 }, - { 0x11800, 0x1182B }, - { 0x118A0, 0x118DF }, - { 0x118FF, 0x11906 }, - { 0x1190C, 0x11913 }, - { 0x11915, 0x11916 }, - { 0x11918, 0x1192F }, - { 0x119A0, 0x119A7 }, - { 0x119AA, 0x119D0 }, - { 0x11A0B, 0x11A32 }, - { 0x11A5C, 0x11A89 }, - { 0x11AB0, 0x11AF8 }, - { 0x11C00, 0x11C08 }, - { 0x11C0A, 0x11C2E }, - { 0x11C72, 0x11C8F }, - { 0x11D00, 0x11D06 }, - { 0x11D08, 0x11D09 }, - { 0x11D0B, 0x11D30 }, - { 0x11D60, 0x11D65 }, - { 0x11D67, 0x11D68 }, - { 0x11D6A, 0x11D89 }, - { 0x11EE0, 0x11EF2 }, - { 0x12000, 0x12399 }, - { 0x12480, 0x12543 }, - { 0x12F90, 0x12FF0 }, - { 0x13000, 0x1342E }, - { 0x14400, 0x14646 }, - { 0x16800, 0x16A38 }, - { 0x16A40, 0x16A5E }, - { 0x16A70, 0x16ABE }, - { 0x16AD0, 0x16AED }, - { 0x16B00, 0x16B2F }, - { 0x16B40, 0x16B43 }, - { 0x16B63, 0x16B77 }, - { 0x16B7D, 0x16B8F }, - { 0x16E40, 0x16E7F }, - { 0x16F00, 0x16F4A }, - { 0x16F93, 0x16F9F }, - { 0x16FE0, 0x16FE1 }, - { 0x18800, 0x18CD5 }, - { 0x1AFF0, 0x1AFF3 }, - { 0x1AFF5, 0x1AFFB }, - { 0x1AFFD, 0x1AFFE }, - { 0x1B000, 0x1B122 }, - { 0x1B150, 0x1B152 }, - { 0x1B164, 0x1B167 }, - { 0x1B170, 0x1B2FB }, - { 0x1BC00, 0x1BC6A }, - { 0x1BC70, 0x1BC7C }, - { 0x1BC80, 0x1BC88 }, - { 0x1BC90, 0x1BC99 }, - { 0x1D400, 0x1D454 }, - { 0x1D456, 0x1D49C }, - { 0x1D49E, 0x1D49F }, - { 0x1D4A5, 0x1D4A6 }, - { 0x1D4A9, 0x1D4AC }, - { 0x1D4AE, 0x1D4B9 }, - { 0x1D4BD, 0x1D4C3 }, - { 0x1D4C5, 0x1D505 }, - { 0x1D507, 0x1D50A }, - { 0x1D50D, 0x1D514 }, - { 0x1D516, 0x1D51C }, - { 0x1D51E, 0x1D539 }, - { 0x1D53B, 0x1D53E }, - { 0x1D540, 0x1D544 }, - { 0x1D54A, 0x1D550 }, - { 0x1D552, 0x1D6A5 }, - { 0x1D6A8, 0x1D6C0 }, - { 0x1D6C2, 0x1D6DA }, - { 0x1D6DC, 0x1D6FA }, - { 0x1D6FC, 0x1D714 }, - { 0x1D716, 0x1D734 }, - { 0x1D736, 0x1D74E }, - { 0x1D750, 0x1D76E }, - { 0x1D770, 0x1D788 }, - { 0x1D78A, 0x1D7A8 }, - { 0x1D7AA, 0x1D7C2 }, - { 0x1D7C4, 0x1D7CB }, - { 0x1DF00, 0x1DF1E }, - { 0x1E100, 0x1E12C }, - { 0x1E137, 0x1E13D }, - { 0x1E290, 0x1E2AD }, - { 0x1E2C0, 0x1E2EB }, - { 0x1E7E0, 0x1E7E6 }, - { 0x1E7E8, 0x1E7EB }, - { 0x1E7ED, 0x1E7EE }, - { 0x1E7F0, 0x1E7FE }, - { 0x1E800, 0x1E8C4 }, - { 0x1E900, 0x1E943 }, - { 0x1EE00, 0x1EE03 }, - { 0x1EE05, 0x1EE1F }, - { 0x1EE21, 0x1EE22 }, - { 0x1EE29, 0x1EE32 }, - { 0x1EE34, 0x1EE37 }, - { 0x1EE4D, 0x1EE4F }, - { 0x1EE51, 0x1EE52 }, - { 0x1EE61, 0x1EE62 }, - { 0x1EE67, 0x1EE6A }, - { 0x1EE6C, 0x1EE72 }, - { 0x1EE74, 0x1EE77 }, - { 0x1EE79, 0x1EE7C }, - { 0x1EE80, 0x1EE89 }, - { 0x1EE8B, 0x1EE9B }, - { 0x1EEA1, 0x1EEA3 }, - { 0x1EEA5, 0x1EEA9 }, - { 0x1EEAB, 0x1EEBB }, - { 0x2F800, 0x2FA1D }, -}; - -static int alpha1[] = { - 0x00AA, - 0x00B5, - 0x00BA, - 0x0559, - 0x06FF, - 0x07B1, - 0x07FA, - 0x081A, - 0x0824, - 0x0828, - 0x093D, - 0x0950, - 0x09BD, - 0x09CE, - 0x09FC, - 0x0ABD, - 0x0AD0, - 0x0AF9, - 0x0B3D, - 0x0B71, - 0x0BD0, - 0x0C3D, - 0x0C5D, - 0x0C80, - 0x0CBD, - 0x0D3D, - 0x0D4E, - 0x0EBD, - 0x0F00, - 0x103F, - 0x1061, - 0x108E, - 0x10CD, - 0x17D7, - 0x17DC, - 0x1AA7, - 0x1CFA, - 0x2071, - 0x207F, - 0x2102, - 0x2107, - 0x214E, - 0x2D2D, - 0x2D6F, - 0x2E2F, - 0x3400, - 0x4DBF, - 0x4E00, - 0xA9CF, - 0xAA7A, - 0xAC00, - 0xD7A3, - 0x1083C, - 0x10A00, - 0x10F27, - 0x11075, - 0x11144, - 0x11147, - 0x11176, - 0x1133D, - 0x11350, - 0x11644, - 0x116B8, - 0x11909, - 0x11A00, - 0x11A3A, - 0x11A50, - 0x11A9D, - 0x11C40, - 0x11D46, - 0x11D98, - 0x11FB0, - 0x16F50, - 0x17000, - 0x187F7, - 0x18D00, - 0x18D08, - 0x1D4A2, - 0x1E14E, - 0x1E94B, - 0x1EE42, - 0x20000, - 0x2A6DF, - 0x2A700, - 0x2B738, - 0x2B740, - 0x2B81D, - 0x2B820, - 0x2CEA1, - 0x2CEB0, - 0x2EBE0, - 0x30000, - 0x3134A, -}; - -C_regparm int C_utf_isalpha(int r) -{ - int *match; - - if((match = bsearch(&r, alpha3, nelem(alpha3), sizeof *alpha3, &rune2cmp))) - return !((r - match[0]) % 2); - if(bsearch(&r, alpha2, nelem(alpha2), sizeof *alpha2, &rune2cmp)) - return 1; - if(bsearch(&r, alpha1, nelem(alpha1), sizeof *alpha1, &rune1cmp)) - return 1; - return 0; -} - -static int space2[][2] = { - { 0x0009, 0x000D }, - { 0x001C, 0x0020 }, - { 0x2000, 0x200A }, - { 0x2028, 0x2029 }, -}; - -static int space1[] = { - 0x0085, - 0x00A0, - 0x1680, - 0x202F, - 0x205F, - 0x3000, -}; - -C_regparm int C_utf_isspace(int r) -{ - if(bsearch(&r, space2, nelem(space2), sizeof *space2, &rune2cmp)) - return 1; - if(bsearch(&r, space1, nelem(space1), sizeof *space1, &rune1cmp)) - return 1; - return 0; -} - -static int fold1[][ 2 ] = { - {0x0041, 0x0061}, - {0x0042, 0x0062}, - {0x0043, 0x0063}, - {0x0044, 0x0064}, - {0x0045, 0x0065}, - {0x0046, 0x0066}, - {0x0047, 0x0067}, - {0x0048, 0x0068}, - {0x0049, 0x0069}, - {0x004A, 0x006A}, - {0x004B, 0x006B}, - {0x004C, 0x006C}, - {0x004D, 0x006D}, - {0x004E, 0x006E}, - {0x004F, 0x006F}, - {0x0050, 0x0070}, - {0x0051, 0x0071}, - {0x0052, 0x0072}, - {0x0053, 0x0073}, - {0x0054, 0x0074}, - {0x0055, 0x0075}, - {0x0056, 0x0076}, - {0x0057, 0x0077}, - {0x0058, 0x0078}, - {0x0059, 0x0079}, - {0x005A, 0x007A}, - {0x00B5, 0x03BC}, - {0x00C0, 0x00E0}, - {0x00C1, 0x00E1}, - {0x00C2, 0x00E2}, - {0x00C3, 0x00E3}, - {0x00C4, 0x00E4}, - {0x00C5, 0x00E5}, - {0x00C6, 0x00E6}, - {0x00C7, 0x00E7}, - {0x00C8, 0x00E8}, - {0x00C9, 0x00E9}, - {0x00CA, 0x00EA}, - {0x00CB, 0x00EB}, - {0x00CC, 0x00EC}, - {0x00CD, 0x00ED}, - {0x00CE, 0x00EE}, - {0x00CF, 0x00EF}, - {0x00D0, 0x00F0}, - {0x00D1, 0x00F1}, - {0x00D2, 0x00F2}, - {0x00D3, 0x00F3}, - {0x00D4, 0x00F4}, - {0x00D5, 0x00F5}, - {0x00D6, 0x00F6}, - {0x00D8, 0x00F8}, - {0x00D9, 0x00F9}, - {0x00DA, 0x00FA}, - {0x00DB, 0x00FB}, - {0x00DC, 0x00FC}, - {0x00DD, 0x00FD}, - {0x00DE, 0x00FE}, - {0x0100, 0x0101}, - {0x0102, 0x0103}, - {0x0104, 0x0105}, - {0x0106, 0x0107}, - {0x0108, 0x0109}, - {0x010A, 0x010B}, - {0x010C, 0x010D}, - {0x010E, 0x010F}, - {0x0110, 0x0111}, - {0x0112, 0x0113}, - {0x0114, 0x0115}, - {0x0116, 0x0117}, - {0x0118, 0x0119}, - {0x011A, 0x011B}, - {0x011C, 0x011D}, - {0x011E, 0x011F}, - {0x0120, 0x0121}, - {0x0122, 0x0123}, - {0x0124, 0x0125}, - {0x0126, 0x0127}, - {0x0128, 0x0129}, - {0x012A, 0x012B}, - {0x012C, 0x012D}, - {0x012E, 0x012F}, - {0x0132, 0x0133}, - {0x0134, 0x0135}, - {0x0136, 0x0137}, - {0x0139, 0x013A}, - {0x013B, 0x013C}, - {0x013D, 0x013E}, - {0x013F, 0x0140}, - {0x0141, 0x0142}, - {0x0143, 0x0144}, - {0x0145, 0x0146}, - {0x0147, 0x0148}, - {0x014A, 0x014B}, - {0x014C, 0x014D}, - {0x014E, 0x014F}, - {0x0150, 0x0151}, - {0x0152, 0x0153}, - {0x0154, 0x0155}, - {0x0156, 0x0157}, - {0x0158, 0x0159}, - {0x015A, 0x015B}, - {0x015C, 0x015D}, - {0x015E, 0x015F}, - {0x0160, 0x0161}, - {0x0162, 0x0163}, - {0x0164, 0x0165}, - {0x0166, 0x0167}, - {0x0168, 0x0169}, - {0x016A, 0x016B}, - {0x016C, 0x016D}, - {0x016E, 0x016F}, - {0x0170, 0x0171}, - {0x0172, 0x0173}, - {0x0174, 0x0175}, - {0x0176, 0x0177}, - {0x0178, 0x00FF}, - {0x0179, 0x017A}, - {0x017B, 0x017C}, - {0x017D, 0x017E}, - {0x017F, 0x0073}, - {0x0181, 0x0253}, - {0x0182, 0x0183}, - {0x0184, 0x0185}, - {0x0186, 0x0254}, - {0x0187, 0x0188}, - {0x0189, 0x0256}, - {0x018A, 0x0257}, - {0x018B, 0x018C}, - {0x018E, 0x01DD}, - {0x018F, 0x0259}, - {0x0190, 0x025B}, - {0x0191, 0x0192}, - {0x0193, 0x0260}, - {0x0194, 0x0263}, - {0x0196, 0x0269}, - {0x0197, 0x0268}, - {0x0198, 0x0199}, - {0x019C, 0x026F}, - {0x019D, 0x0272}, - {0x019F, 0x0275}, - {0x01A0, 0x01A1}, - {0x01A2, 0x01A3}, - {0x01A4, 0x01A5}, - {0x01A6, 0x0280}, - {0x01A7, 0x01A8}, - {0x01A9, 0x0283}, - {0x01AC, 0x01AD}, - {0x01AE, 0x0288}, - {0x01AF, 0x01B0}, - {0x01B1, 0x028A}, - {0x01B2, 0x028B}, - {0x01B3, 0x01B4}, - {0x01B5, 0x01B6}, - {0x01B7, 0x0292}, - {0x01B8, 0x01B9}, - {0x01BC, 0x01BD}, - {0x01C4, 0x01C6}, - {0x01C5, 0x01C6}, - {0x01C7, 0x01C9}, - {0x01C8, 0x01C9}, - {0x01CA, 0x01CC}, - {0x01CB, 0x01CC}, - {0x01CD, 0x01CE}, - {0x01CF, 0x01D0}, - {0x01D1, 0x01D2}, - {0x01D3, 0x01D4}, - {0x01D5, 0x01D6}, - {0x01D7, 0x01D8}, - {0x01D9, 0x01DA}, - {0x01DB, 0x01DC}, - {0x01DE, 0x01DF}, - {0x01E0, 0x01E1}, - {0x01E2, 0x01E3}, - {0x01E4, 0x01E5}, - {0x01E6, 0x01E7}, - {0x01E8, 0x01E9}, - {0x01EA, 0x01EB}, - {0x01EC, 0x01ED}, - {0x01EE, 0x01EF}, - {0x01F1, 0x01F3}, - {0x01F2, 0x01F3}, - {0x01F4, 0x01F5}, - {0x01F6, 0x0195}, - {0x01F7, 0x01BF}, - {0x01F8, 0x01F9}, - {0x01FA, 0x01FB}, - {0x01FC, 0x01FD}, - {0x01FE, 0x01FF}, - {0x0200, 0x0201}, - {0x0202, 0x0203}, - {0x0204, 0x0205}, - {0x0206, 0x0207}, - {0x0208, 0x0209}, - {0x020A, 0x020B}, - {0x020C, 0x020D}, - {0x020E, 0x020F}, - {0x0210, 0x0211}, - {0x0212, 0x0213}, - {0x0214, 0x0215}, - {0x0216, 0x0217}, - {0x0218, 0x0219}, - {0x021A, 0x021B}, - {0x021C, 0x021D}, - {0x021E, 0x021F}, - {0x0220, 0x019E}, - {0x0222, 0x0223}, - {0x0224, 0x0225}, - {0x0226, 0x0227}, - {0x0228, 0x0229}, - {0x022A, 0x022B}, - {0x022C, 0x022D}, - {0x022E, 0x022F}, - {0x0230, 0x0231}, - {0x0232, 0x0233}, - {0x023A, 0x2C65}, - {0x023B, 0x023C}, - {0x023D, 0x019A}, - {0x023E, 0x2C66}, - {0x0241, 0x0242}, - {0x0243, 0x0180}, - {0x0244, 0x0289}, - {0x0245, 0x028C}, - {0x0246, 0x0247}, - {0x0248, 0x0249}, - {0x024A, 0x024B}, - {0x024C, 0x024D}, - {0x024E, 0x024F}, - {0x0345, 0x03B9}, - {0x0370, 0x0371}, - {0x0372, 0x0373}, - {0x0376, 0x0377}, - {0x037F, 0x03F3}, - {0x0386, 0x03AC}, - {0x0388, 0x03AD}, - {0x0389, 0x03AE}, - {0x038A, 0x03AF}, - {0x038C, 0x03CC}, - {0x038E, 0x03CD}, - {0x038F, 0x03CE}, - {0x0391, 0x03B1}, - {0x0392, 0x03B2}, - {0x0393, 0x03B3}, - {0x0394, 0x03B4}, - {0x0395, 0x03B5}, - {0x0396, 0x03B6}, - {0x0397, 0x03B7}, - {0x0398, 0x03B8}, - {0x0399, 0x03B9}, - {0x039A, 0x03BA}, - {0x039B, 0x03BB}, - {0x039C, 0x03BC}, - {0x039D, 0x03BD}, - {0x039E, 0x03BE}, - {0x039F, 0x03BF}, - {0x03A0, 0x03C0}, - {0x03A1, 0x03C1}, - {0x03A3, 0x03C3}, - {0x03A4, 0x03C4}, - {0x03A5, 0x03C5}, - {0x03A6, 0x03C6}, - {0x03A7, 0x03C7}, - {0x03A8, 0x03C8}, - {0x03A9, 0x03C9}, - {0x03AA, 0x03CA}, - {0x03AB, 0x03CB}, - {0x03C2, 0x03C3}, - {0x03CF, 0x03D7}, - {0x03D0, 0x03B2}, - {0x03D1, 0x03B8}, - {0x03D5, 0x03C6}, - {0x03D6, 0x03C0}, - {0x03D8, 0x03D9}, - {0x03DA, 0x03DB}, - {0x03DC, 0x03DD}, - {0x03DE, 0x03DF}, - {0x03E0, 0x03E1}, - {0x03E2, 0x03E3}, - {0x03E4, 0x03E5}, - {0x03E6, 0x03E7}, - {0x03E8, 0x03E9}, - {0x03EA, 0x03EB}, - {0x03EC, 0x03ED}, - {0x03EE, 0x03EF}, - {0x03F0, 0x03BA}, - {0x03F1, 0x03C1}, - {0x03F4, 0x03B8}, - {0x03F5, 0x03B5}, - {0x03F7, 0x03F8}, - {0x03F9, 0x03F2}, - {0x03FA, 0x03FB}, - {0x03FD, 0x037B}, - {0x03FE, 0x037C}, - {0x03FF, 0x037D}, - {0x0400, 0x0450}, - {0x0401, 0x0451}, - {0x0402, 0x0452}, - {0x0403, 0x0453}, - {0x0404, 0x0454}, - {0x0405, 0x0455}, - {0x0406, 0x0456}, - {0x0407, 0x0457}, - {0x0408, 0x0458}, - {0x0409, 0x0459}, - {0x040A, 0x045A}, - {0x040B, 0x045B}, - {0x040C, 0x045C}, - {0x040D, 0x045D}, - {0x040E, 0x045E}, - {0x040F, 0x045F}, - {0x0410, 0x0430}, - {0x0411, 0x0431}, - {0x0412, 0x0432}, - {0x0413, 0x0433}, - {0x0414, 0x0434}, - {0x0415, 0x0435}, - {0x0416, 0x0436}, - {0x0417, 0x0437}, - {0x0418, 0x0438}, - {0x0419, 0x0439}, - {0x041A, 0x043A}, - {0x041B, 0x043B}, - {0x041C, 0x043C}, - {0x041D, 0x043D}, - {0x041E, 0x043E}, - {0x041F, 0x043F}, - {0x0420, 0x0440}, - {0x0421, 0x0441}, - {0x0422, 0x0442}, - {0x0423, 0x0443}, - {0x0424, 0x0444}, - {0x0425, 0x0445}, - {0x0426, 0x0446}, - {0x0427, 0x0447}, - {0x0428, 0x0448}, - {0x0429, 0x0449}, - {0x042A, 0x044A}, - {0x042B, 0x044B}, - {0x042C, 0x044C}, - {0x042D, 0x044D}, - {0x042E, 0x044E}, - {0x042F, 0x044F}, - {0x0460, 0x0461}, - {0x0462, 0x0463}, - {0x0464, 0x0465}, - {0x0466, 0x0467}, - {0x0468, 0x0469}, - {0x046A, 0x046B}, - {0x046C, 0x046D}, - {0x046E, 0x046F}, - {0x0470, 0x0471}, - {0x0472, 0x0473}, - {0x0474, 0x0475}, - {0x0476, 0x0477}, - {0x0478, 0x0479}, - {0x047A, 0x047B}, - {0x047C, 0x047D}, - {0x047E, 0x047F}, - {0x0480, 0x0481}, - {0x048A, 0x048B}, - {0x048C, 0x048D}, - {0x048E, 0x048F}, - {0x0490, 0x0491}, - {0x0492, 0x0493}, - {0x0494, 0x0495}, - {0x0496, 0x0497}, - {0x0498, 0x0499}, - {0x049A, 0x049B}, - {0x049C, 0x049D}, - {0x049E, 0x049F}, - {0x04A0, 0x04A1}, - {0x04A2, 0x04A3}, - {0x04A4, 0x04A5}, - {0x04A6, 0x04A7}, - {0x04A8, 0x04A9}, - {0x04AA, 0x04AB}, - {0x04AC, 0x04AD}, - {0x04AE, 0x04AF}, - {0x04B0, 0x04B1}, - {0x04B2, 0x04B3}, - {0x04B4, 0x04B5}, - {0x04B6, 0x04B7}, - {0x04B8, 0x04B9}, - {0x04BA, 0x04BB}, - {0x04BC, 0x04BD}, - {0x04BE, 0x04BF}, - {0x04C0, 0x04CF}, - {0x04C1, 0x04C2}, - {0x04C3, 0x04C4}, - {0x04C5, 0x04C6}, - {0x04C7, 0x04C8}, - {0x04C9, 0x04CA}, - {0x04CB, 0x04CC}, - {0x04CD, 0x04CE}, - {0x04D0, 0x04D1}, - {0x04D2, 0x04D3}, - {0x04D4, 0x04D5}, - {0x04D6, 0x04D7}, - {0x04D8, 0x04D9}, - {0x04DA, 0x04DB}, - {0x04DC, 0x04DD}, - {0x04DE, 0x04DF}, - {0x04E0, 0x04E1}, - {0x04E2, 0x04E3}, - {0x04E4, 0x04E5}, - {0x04E6, 0x04E7}, - {0x04E8, 0x04E9}, - {0x04EA, 0x04EB}, - {0x04EC, 0x04ED}, - {0x04EE, 0x04EF}, - {0x04F0, 0x04F1}, - {0x04F2, 0x04F3}, - {0x04F4, 0x04F5}, - {0x04F6, 0x04F7}, - {0x04F8, 0x04F9}, - {0x04FA, 0x04FB}, - {0x04FC, 0x04FD}, - {0x04FE, 0x04FF}, - {0x0500, 0x0501}, - {0x0502, 0x0503}, - {0x0504, 0x0505}, - {0x0506, 0x0507}, - {0x0508, 0x0509}, - {0x050A, 0x050B}, - {0x050C, 0x050D}, - {0x050E, 0x050F}, - {0x0510, 0x0511}, - {0x0512, 0x0513}, - {0x0514, 0x0515}, - {0x0516, 0x0517}, - {0x0518, 0x0519}, - {0x051A, 0x051B}, - {0x051C, 0x051D}, - {0x051E, 0x051F}, - {0x0520, 0x0521}, - {0x0522, 0x0523}, - {0x0524, 0x0525}, - {0x0526, 0x0527}, - {0x0528, 0x0529}, - {0x052A, 0x052B}, - {0x052C, 0x052D}, - {0x052E, 0x052F}, - {0x0531, 0x0561}, - {0x0532, 0x0562}, - {0x0533, 0x0563}, - {0x0534, 0x0564}, - {0x0535, 0x0565}, - {0x0536, 0x0566}, - {0x0537, 0x0567}, - {0x0538, 0x0568}, - {0x0539, 0x0569}, - {0x053A, 0x056A}, - {0x053B, 0x056B}, - {0x053C, 0x056C}, - {0x053D, 0x056D}, - {0x053E, 0x056E}, - {0x053F, 0x056F}, - {0x0540, 0x0570}, - {0x0541, 0x0571}, - {0x0542, 0x0572}, - {0x0543, 0x0573}, - {0x0544, 0x0574}, - {0x0545, 0x0575}, - {0x0546, 0x0576}, - {0x0547, 0x0577}, - {0x0548, 0x0578}, - {0x0549, 0x0579}, - {0x054A, 0x057A}, - {0x054B, 0x057B}, - {0x054C, 0x057C}, - {0x054D, 0x057D}, - {0x054E, 0x057E}, - {0x054F, 0x057F}, - {0x0550, 0x0580}, - {0x0551, 0x0581}, - {0x0552, 0x0582}, - {0x0553, 0x0583}, - {0x0554, 0x0584}, - {0x0555, 0x0585}, - {0x0556, 0x0586}, - {0x10A0, 0x2D00}, - {0x10A1, 0x2D01}, - {0x10A2, 0x2D02}, - {0x10A3, 0x2D03}, - {0x10A4, 0x2D04}, - {0x10A5, 0x2D05}, - {0x10A6, 0x2D06}, - {0x10A7, 0x2D07}, - {0x10A8, 0x2D08}, - {0x10A9, 0x2D09}, - {0x10AA, 0x2D0A}, - {0x10AB, 0x2D0B}, - {0x10AC, 0x2D0C}, - {0x10AD, 0x2D0D}, - {0x10AE, 0x2D0E}, - {0x10AF, 0x2D0F}, - {0x10B0, 0x2D10}, - {0x10B1, 0x2D11}, - {0x10B2, 0x2D12}, - {0x10B3, 0x2D13}, - {0x10B4, 0x2D14}, - {0x10B5, 0x2D15}, - {0x10B6, 0x2D16}, - {0x10B7, 0x2D17}, - {0x10B8, 0x2D18}, - {0x10B9, 0x2D19}, - {0x10BA, 0x2D1A}, - {0x10BB, 0x2D1B}, - {0x10BC, 0x2D1C}, - {0x10BD, 0x2D1D}, - {0x10BE, 0x2D1E}, - {0x10BF, 0x2D1F}, - {0x10C0, 0x2D20}, - {0x10C1, 0x2D21}, - {0x10C2, 0x2D22}, - {0x10C3, 0x2D23}, - {0x10C4, 0x2D24}, - {0x10C5, 0x2D25}, - {0x10C7, 0x2D27}, - {0x10CD, 0x2D2D}, - {0x13F8, 0x13F0}, - {0x13F9, 0x13F1}, - {0x13FA, 0x13F2}, - {0x13FB, 0x13F3}, - {0x13FC, 0x13F4}, - {0x13FD, 0x13F5}, - {0x1C80, 0x0432}, - {0x1C81, 0x0434}, - {0x1C82, 0x043E}, - {0x1C83, 0x0441}, - {0x1C84, 0x0442}, - {0x1C85, 0x0442}, - {0x1C86, 0x044A}, - {0x1C87, 0x0463}, - {0x1C88, 0xA64B}, - {0x1C90, 0x10D0}, - {0x1C91, 0x10D1}, - {0x1C92, 0x10D2}, - {0x1C93, 0x10D3}, - {0x1C94, 0x10D4}, - {0x1C95, 0x10D5}, - {0x1C96, 0x10D6}, - {0x1C97, 0x10D7}, - {0x1C98, 0x10D8}, - {0x1C99, 0x10D9}, - {0x1C9A, 0x10DA}, - {0x1C9B, 0x10DB}, - {0x1C9C, 0x10DC}, - {0x1C9D, 0x10DD}, - {0x1C9E, 0x10DE}, - {0x1C9F, 0x10DF}, - {0x1CA0, 0x10E0}, - {0x1CA1, 0x10E1}, - {0x1CA2, 0x10E2}, - {0x1CA3, 0x10E3}, - {0x1CA4, 0x10E4}, - {0x1CA5, 0x10E5}, - {0x1CA6, 0x10E6}, - {0x1CA7, 0x10E7}, - {0x1CA8, 0x10E8}, - {0x1CA9, 0x10E9}, - {0x1CAA, 0x10EA}, - {0x1CAB, 0x10EB}, - {0x1CAC, 0x10EC}, - {0x1CAD, 0x10ED}, - {0x1CAE, 0x10EE}, - {0x1CAF, 0x10EF}, - {0x1CB0, 0x10F0}, - {0x1CB1, 0x10F1}, - {0x1CB2, 0x10F2}, - {0x1CB3, 0x10F3}, - {0x1CB4, 0x10F4}, - {0x1CB5, 0x10F5}, - {0x1CB6, 0x10F6}, - {0x1CB7, 0x10F7}, - {0x1CB8, 0x10F8}, - {0x1CB9, 0x10F9}, - {0x1CBA, 0x10FA}, - {0x1CBD, 0x10FD}, - {0x1CBE, 0x10FE}, - {0x1CBF, 0x10FF}, - {0x1E00, 0x1E01}, - {0x1E02, 0x1E03}, - {0x1E04, 0x1E05}, - {0x1E06, 0x1E07}, - {0x1E08, 0x1E09}, - {0x1E0A, 0x1E0B}, - {0x1E0C, 0x1E0D}, - {0x1E0E, 0x1E0F}, - {0x1E10, 0x1E11}, - {0x1E12, 0x1E13}, - {0x1E14, 0x1E15}, - {0x1E16, 0x1E17}, - {0x1E18, 0x1E19}, - {0x1E1A, 0x1E1B}, - {0x1E1C, 0x1E1D}, - {0x1E1E, 0x1E1F}, - {0x1E20, 0x1E21}, - {0x1E22, 0x1E23}, - {0x1E24, 0x1E25}, - {0x1E26, 0x1E27}, - {0x1E28, 0x1E29}, - {0x1E2A, 0x1E2B}, - {0x1E2C, 0x1E2D}, - {0x1E2E, 0x1E2F}, - {0x1E30, 0x1E31}, - {0x1E32, 0x1E33}, - {0x1E34, 0x1E35}, - {0x1E36, 0x1E37}, - {0x1E38, 0x1E39}, - {0x1E3A, 0x1E3B}, - {0x1E3C, 0x1E3D}, - {0x1E3E, 0x1E3F}, - {0x1E40, 0x1E41}, - {0x1E42, 0x1E43}, - {0x1E44, 0x1E45}, - {0x1E46, 0x1E47}, - {0x1E48, 0x1E49}, - {0x1E4A, 0x1E4B}, - {0x1E4C, 0x1E4D}, - {0x1E4E, 0x1E4F}, - {0x1E50, 0x1E51}, - {0x1E52, 0x1E53}, - {0x1E54, 0x1E55}, - {0x1E56, 0x1E57}, - {0x1E58, 0x1E59}, - {0x1E5A, 0x1E5B}, - {0x1E5C, 0x1E5D}, - {0x1E5E, 0x1E5F}, - {0x1E60, 0x1E61}, - {0x1E62, 0x1E63}, - {0x1E64, 0x1E65}, - {0x1E66, 0x1E67}, - {0x1E68, 0x1E69}, - {0x1E6A, 0x1E6B}, - {0x1E6C, 0x1E6D}, - {0x1E6E, 0x1E6F}, - {0x1E70, 0x1E71}, - {0x1E72, 0x1E73}, - {0x1E74, 0x1E75}, - {0x1E76, 0x1E77}, - {0x1E78, 0x1E79}, - {0x1E7A, 0x1E7B}, - {0x1E7C, 0x1E7D}, - {0x1E7E, 0x1E7F}, - {0x1E80, 0x1E81}, - {0x1E82, 0x1E83}, - {0x1E84, 0x1E85}, - {0x1E86, 0x1E87}, - {0x1E88, 0x1E89}, - {0x1E8A, 0x1E8B}, - {0x1E8C, 0x1E8D}, - {0x1E8E, 0x1E8F}, - {0x1E90, 0x1E91}, - {0x1E92, 0x1E93}, - {0x1E94, 0x1E95}, - {0x1E9B, 0x1E61}, - {0x1E9E, 0x00DF}, - {0x1EA0, 0x1EA1}, - {0x1EA2, 0x1EA3}, - {0x1EA4, 0x1EA5}, - {0x1EA6, 0x1EA7}, - {0x1EA8, 0x1EA9}, - {0x1EAA, 0x1EAB}, - {0x1EAC, 0x1EAD}, - {0x1EAE, 0x1EAF}, - {0x1EB0, 0x1EB1}, - {0x1EB2, 0x1EB3}, - {0x1EB4, 0x1EB5}, - {0x1EB6, 0x1EB7}, - {0x1EB8, 0x1EB9}, - {0x1EBA, 0x1EBB}, - {0x1EBC, 0x1EBD}, - {0x1EBE, 0x1EBF}, - {0x1EC0, 0x1EC1}, - {0x1EC2, 0x1EC3}, - {0x1EC4, 0x1EC5}, - {0x1EC6, 0x1EC7}, - {0x1EC8, 0x1EC9}, - {0x1ECA, 0x1ECB}, - {0x1ECC, 0x1ECD}, - {0x1ECE, 0x1ECF}, - {0x1ED0, 0x1ED1}, - {0x1ED2, 0x1ED3}, - {0x1ED4, 0x1ED5}, - {0x1ED6, 0x1ED7}, - {0x1ED8, 0x1ED9}, - {0x1EDA, 0x1EDB}, - {0x1EDC, 0x1EDD}, - {0x1EDE, 0x1EDF}, - {0x1EE0, 0x1EE1}, - {0x1EE2, 0x1EE3}, - {0x1EE4, 0x1EE5}, - {0x1EE6, 0x1EE7}, - {0x1EE8, 0x1EE9}, - {0x1EEA, 0x1EEB}, - {0x1EEC, 0x1EED}, - {0x1EEE, 0x1EEF}, - {0x1EF0, 0x1EF1}, - {0x1EF2, 0x1EF3}, - {0x1EF4, 0x1EF5}, - {0x1EF6, 0x1EF7}, - {0x1EF8, 0x1EF9}, - {0x1EFA, 0x1EFB}, - {0x1EFC, 0x1EFD}, - {0x1EFE, 0x1EFF}, - {0x1F08, 0x1F00}, - {0x1F09, 0x1F01}, - {0x1F0A, 0x1F02}, - {0x1F0B, 0x1F03}, - {0x1F0C, 0x1F04}, - {0x1F0D, 0x1F05}, - {0x1F0E, 0x1F06}, - {0x1F0F, 0x1F07}, - {0x1F18, 0x1F10}, - {0x1F19, 0x1F11}, - {0x1F1A, 0x1F12}, - {0x1F1B, 0x1F13}, - {0x1F1C, 0x1F14}, - {0x1F1D, 0x1F15}, - {0x1F28, 0x1F20}, - {0x1F29, 0x1F21}, - {0x1F2A, 0x1F22}, - {0x1F2B, 0x1F23}, - {0x1F2C, 0x1F24}, - {0x1F2D, 0x1F25}, - {0x1F2E, 0x1F26}, - {0x1F2F, 0x1F27}, - {0x1F38, 0x1F30}, - {0x1F39, 0x1F31}, - {0x1F3A, 0x1F32}, - {0x1F3B, 0x1F33}, - {0x1F3C, 0x1F34}, - {0x1F3D, 0x1F35}, - {0x1F3E, 0x1F36}, - {0x1F3F, 0x1F37}, - {0x1F48, 0x1F40}, - {0x1F49, 0x1F41}, - {0x1F4A, 0x1F42}, - {0x1F4B, 0x1F43}, - {0x1F4C, 0x1F44}, - {0x1F4D, 0x1F45}, - {0x1F59, 0x1F51}, - {0x1F5B, 0x1F53}, - {0x1F5D, 0x1F55}, - {0x1F5F, 0x1F57}, - {0x1F68, 0x1F60}, - {0x1F69, 0x1F61}, - {0x1F6A, 0x1F62}, - {0x1F6B, 0x1F63}, - {0x1F6C, 0x1F64}, - {0x1F6D, 0x1F65}, - {0x1F6E, 0x1F66}, - {0x1F6F, 0x1F67}, - {0x1F88, 0x1F80}, - {0x1F89, 0x1F81}, - {0x1F8A, 0x1F82}, - {0x1F8B, 0x1F83}, - {0x1F8C, 0x1F84}, - {0x1F8D, 0x1F85}, - {0x1F8E, 0x1F86}, - {0x1F8F, 0x1F87}, - {0x1F98, 0x1F90}, - {0x1F99, 0x1F91}, - {0x1F9A, 0x1F92}, - {0x1F9B, 0x1F93}, - {0x1F9C, 0x1F94}, - {0x1F9D, 0x1F95}, - {0x1F9E, 0x1F96}, - {0x1F9F, 0x1F97}, - {0x1FA8, 0x1FA0}, - {0x1FA9, 0x1FA1}, - {0x1FAA, 0x1FA2}, - {0x1FAB, 0x1FA3}, - {0x1FAC, 0x1FA4}, - {0x1FAD, 0x1FA5}, - {0x1FAE, 0x1FA6}, - {0x1FAF, 0x1FA7}, - {0x1FB8, 0x1FB0}, - {0x1FB9, 0x1FB1}, - {0x1FBA, 0x1F70}, - {0x1FBB, 0x1F71}, - {0x1FBC, 0x1FB3}, - {0x1FBE, 0x03B9}, - {0x1FC8, 0x1F72}, - {0x1FC9, 0x1F73}, - {0x1FCA, 0x1F74}, - {0x1FCB, 0x1F75}, - {0x1FCC, 0x1FC3}, - {0x1FD8, 0x1FD0}, - {0x1FD9, 0x1FD1}, - {0x1FDA, 0x1F76}, - {0x1FDB, 0x1F77}, - {0x1FE8, 0x1FE0}, - {0x1FE9, 0x1FE1}, - {0x1FEA, 0x1F7A}, - {0x1FEB, 0x1F7B}, - {0x1FEC, 0x1FE5}, - {0x1FF8, 0x1F78}, - {0x1FF9, 0x1F79}, - {0x1FFA, 0x1F7C}, - {0x1FFB, 0x1F7D}, - {0x1FFC, 0x1FF3}, - {0x2126, 0x03C9}, - {0x212A, 0x006B}, - {0x212B, 0x00E5}, - {0x2132, 0x214E}, - {0x2160, 0x2170}, - {0x2161, 0x2171}, - {0x2162, 0x2172}, - {0x2163, 0x2173}, - {0x2164, 0x2174}, - {0x2165, 0x2175}, - {0x2166, 0x2176}, - {0x2167, 0x2177}, - {0x2168, 0x2178}, - {0x2169, 0x2179}, - {0x216A, 0x217A}, - {0x216B, 0x217B}, - {0x216C, 0x217C}, - {0x216D, 0x217D}, - {0x216E, 0x217E}, - {0x216F, 0x217F}, - {0x2183, 0x2184}, - {0x24B6, 0x24D0}, - {0x24B7, 0x24D1}, - {0x24B8, 0x24D2}, - {0x24B9, 0x24D3}, - {0x24BA, 0x24D4}, - {0x24BB, 0x24D5}, - {0x24BC, 0x24D6}, - {0x24BD, 0x24D7}, - {0x24BE, 0x24D8}, - {0x24BF, 0x24D9}, - {0x24C0, 0x24DA}, - {0x24C1, 0x24DB}, - {0x24C2, 0x24DC}, - {0x24C3, 0x24DD}, - {0x24C4, 0x24DE}, - {0x24C5, 0x24DF}, - {0x24C6, 0x24E0}, - {0x24C7, 0x24E1}, - {0x24C8, 0x24E2}, - {0x24C9, 0x24E3}, - {0x24CA, 0x24E4}, - {0x24CB, 0x24E5}, - {0x24CC, 0x24E6}, - {0x24CD, 0x24E7}, - {0x24CE, 0x24E8}, - {0x24CF, 0x24E9}, - {0x2C00, 0x2C30}, - {0x2C01, 0x2C31}, - {0x2C02, 0x2C32}, - {0x2C03, 0x2C33}, - {0x2C04, 0x2C34}, - {0x2C05, 0x2C35}, - {0x2C06, 0x2C36}, - {0x2C07, 0x2C37}, - {0x2C08, 0x2C38}, - {0x2C09, 0x2C39}, - {0x2C0A, 0x2C3A}, - {0x2C0B, 0x2C3B}, - {0x2C0C, 0x2C3C}, - {0x2C0D, 0x2C3D}, - {0x2C0E, 0x2C3E}, - {0x2C0F, 0x2C3F}, - {0x2C10, 0x2C40}, - {0x2C11, 0x2C41}, - {0x2C12, 0x2C42}, - {0x2C13, 0x2C43}, - {0x2C14, 0x2C44}, - {0x2C15, 0x2C45}, - {0x2C16, 0x2C46}, - {0x2C17, 0x2C47}, - {0x2C18, 0x2C48}, - {0x2C19, 0x2C49}, - {0x2C1A, 0x2C4A}, - {0x2C1B, 0x2C4B}, - {0x2C1C, 0x2C4C}, - {0x2C1D, 0x2C4D}, - {0x2C1E, 0x2C4E}, - {0x2C1F, 0x2C4F}, - {0x2C20, 0x2C50}, - {0x2C21, 0x2C51}, - {0x2C22, 0x2C52}, - {0x2C23, 0x2C53}, - {0x2C24, 0x2C54}, - {0x2C25, 0x2C55}, - {0x2C26, 0x2C56}, - {0x2C27, 0x2C57}, - {0x2C28, 0x2C58}, - {0x2C29, 0x2C59}, - {0x2C2A, 0x2C5A}, - {0x2C2B, 0x2C5B}, - {0x2C2C, 0x2C5C}, - {0x2C2D, 0x2C5D}, - {0x2C2E, 0x2C5E}, - {0x2C2F, 0x2C5F}, - {0x2C60, 0x2C61}, - {0x2C62, 0x026B}, - {0x2C63, 0x1D7D}, - {0x2C64, 0x027D}, - {0x2C67, 0x2C68}, - {0x2C69, 0x2C6A}, - {0x2C6B, 0x2C6C}, - {0x2C6D, 0x0251}, - {0x2C6E, 0x0271}, - {0x2C6F, 0x0250}, - {0x2C70, 0x0252}, - {0x2C72, 0x2C73}, - {0x2C75, 0x2C76}, - {0x2C7E, 0x023F}, - {0x2C7F, 0x0240}, - {0x2C80, 0x2C81}, - {0x2C82, 0x2C83}, - {0x2C84, 0x2C85}, - {0x2C86, 0x2C87}, - {0x2C88, 0x2C89}, - {0x2C8A, 0x2C8B}, - {0x2C8C, 0x2C8D}, - {0x2C8E, 0x2C8F}, - {0x2C90, 0x2C91}, - {0x2C92, 0x2C93}, - {0x2C94, 0x2C95}, - {0x2C96, 0x2C97}, - {0x2C98, 0x2C99}, - {0x2C9A, 0x2C9B}, - {0x2C9C, 0x2C9D}, - {0x2C9E, 0x2C9F}, - {0x2CA0, 0x2CA1}, - {0x2CA2, 0x2CA3}, - {0x2CA4, 0x2CA5}, - {0x2CA6, 0x2CA7}, - {0x2CA8, 0x2CA9}, - {0x2CAA, 0x2CAB}, - {0x2CAC, 0x2CAD}, - {0x2CAE, 0x2CAF}, - {0x2CB0, 0x2CB1}, - {0x2CB2, 0x2CB3}, - {0x2CB4, 0x2CB5}, - {0x2CB6, 0x2CB7}, - {0x2CB8, 0x2CB9}, - {0x2CBA, 0x2CBB}, - {0x2CBC, 0x2CBD}, - {0x2CBE, 0x2CBF}, - {0x2CC0, 0x2CC1}, - {0x2CC2, 0x2CC3}, - {0x2CC4, 0x2CC5}, - {0x2CC6, 0x2CC7}, - {0x2CC8, 0x2CC9}, - {0x2CCA, 0x2CCB}, - {0x2CCC, 0x2CCD}, - {0x2CCE, 0x2CCF}, - {0x2CD0, 0x2CD1}, - {0x2CD2, 0x2CD3}, - {0x2CD4, 0x2CD5}, - {0x2CD6, 0x2CD7}, - {0x2CD8, 0x2CD9}, - {0x2CDA, 0x2CDB}, - {0x2CDC, 0x2CDD}, - {0x2CDE, 0x2CDF}, - {0x2CE0, 0x2CE1}, - {0x2CE2, 0x2CE3}, - {0x2CEB, 0x2CEC}, - {0x2CED, 0x2CEE}, - {0x2CF2, 0x2CF3}, - {0xA640, 0xA641}, - {0xA642, 0xA643}, - {0xA644, 0xA645}, - {0xA646, 0xA647}, - {0xA648, 0xA649}, - {0xA64A, 0xA64B}, - {0xA64C, 0xA64D}, - {0xA64E, 0xA64F}, - {0xA650, 0xA651}, - {0xA652, 0xA653}, - {0xA654, 0xA655}, - {0xA656, 0xA657}, - {0xA658, 0xA659}, - {0xA65A, 0xA65B}, - {0xA65C, 0xA65D}, - {0xA65E, 0xA65F}, - {0xA660, 0xA661}, - {0xA662, 0xA663}, - {0xA664, 0xA665}, - {0xA666, 0xA667}, - {0xA668, 0xA669}, - {0xA66A, 0xA66B}, - {0xA66C, 0xA66D}, - {0xA680, 0xA681}, - {0xA682, 0xA683}, - {0xA684, 0xA685}, - {0xA686, 0xA687}, - {0xA688, 0xA689}, - {0xA68A, 0xA68B}, - {0xA68C, 0xA68D}, - {0xA68E, 0xA68F}, - {0xA690, 0xA691}, - {0xA692, 0xA693}, - {0xA694, 0xA695}, - {0xA696, 0xA697}, - {0xA698, 0xA699}, - {0xA69A, 0xA69B}, - {0xA722, 0xA723}, - {0xA724, 0xA725}, - {0xA726, 0xA727}, - {0xA728, 0xA729}, - {0xA72A, 0xA72B}, - {0xA72C, 0xA72D}, - {0xA72E, 0xA72F}, - {0xA732, 0xA733}, - {0xA734, 0xA735}, - {0xA736, 0xA737}, - {0xA738, 0xA739}, - {0xA73A, 0xA73B}, - {0xA73C, 0xA73D}, - {0xA73E, 0xA73F}, - {0xA740, 0xA741}, - {0xA742, 0xA743}, - {0xA744, 0xA745}, - {0xA746, 0xA747}, - {0xA748, 0xA749}, - {0xA74A, 0xA74B}, - {0xA74C, 0xA74D}, - {0xA74E, 0xA74F}, - {0xA750, 0xA751}, - {0xA752, 0xA753}, - {0xA754, 0xA755}, - {0xA756, 0xA757}, - {0xA758, 0xA759}, - {0xA75A, 0xA75B}, - {0xA75C, 0xA75D}, - {0xA75E, 0xA75F}, - {0xA760, 0xA761}, - {0xA762, 0xA763}, - {0xA764, 0xA765}, - {0xA766, 0xA767}, - {0xA768, 0xA769}, - {0xA76A, 0xA76B}, - {0xA76C, 0xA76D}, - {0xA76E, 0xA76F}, - {0xA779, 0xA77A}, - {0xA77B, 0xA77C}, - {0xA77D, 0x1D79}, - {0xA77E, 0xA77F}, - {0xA780, 0xA781}, - {0xA782, 0xA783}, - {0xA784, 0xA785}, - {0xA786, 0xA787}, - {0xA78B, 0xA78C}, - {0xA78D, 0x0265}, - {0xA790, 0xA791}, - {0xA792, 0xA793}, - {0xA796, 0xA797}, - {0xA798, 0xA799}, - {0xA79A, 0xA79B}, - {0xA79C, 0xA79D}, - {0xA79E, 0xA79F}, - {0xA7A0, 0xA7A1}, - {0xA7A2, 0xA7A3}, - {0xA7A4, 0xA7A5}, - {0xA7A6, 0xA7A7}, - {0xA7A8, 0xA7A9}, - {0xA7AA, 0x0266}, - {0xA7AB, 0x025C}, - {0xA7AC, 0x0261}, - {0xA7AD, 0x026C}, - {0xA7AE, 0x026A}, - {0xA7B0, 0x029E}, - {0xA7B1, 0x0287}, - {0xA7B2, 0x029D}, - {0xA7B3, 0xAB53}, - {0xA7B4, 0xA7B5}, - {0xA7B6, 0xA7B7}, - {0xA7B8, 0xA7B9}, - {0xA7BA, 0xA7BB}, - {0xA7BC, 0xA7BD}, - {0xA7BE, 0xA7BF}, - {0xA7C0, 0xA7C1}, - {0xA7C2, 0xA7C3}, - {0xA7C4, 0xA794}, - {0xA7C5, 0x0282}, - {0xA7C6, 0x1D8E}, - {0xA7C7, 0xA7C8}, - {0xA7C9, 0xA7CA}, - {0xA7D0, 0xA7D1}, - {0xA7D6, 0xA7D7}, - {0xA7D8, 0xA7D9}, - {0xA7F5, 0xA7F6}, - {0xAB70, 0x13A0}, - {0xAB71, 0x13A1}, - {0xAB72, 0x13A2}, - {0xAB73, 0x13A3}, - {0xAB74, 0x13A4}, - {0xAB75, 0x13A5}, - {0xAB76, 0x13A6}, - {0xAB77, 0x13A7}, - {0xAB78, 0x13A8}, - {0xAB79, 0x13A9}, - {0xAB7A, 0x13AA}, - {0xAB7B, 0x13AB}, - {0xAB7C, 0x13AC}, - {0xAB7D, 0x13AD}, - {0xAB7E, 0x13AE}, - {0xAB7F, 0x13AF}, - {0xAB80, 0x13B0}, - {0xAB81, 0x13B1}, - {0xAB82, 0x13B2}, - {0xAB83, 0x13B3}, - {0xAB84, 0x13B4}, - {0xAB85, 0x13B5}, - {0xAB86, 0x13B6}, - {0xAB87, 0x13B7}, - {0xAB88, 0x13B8}, - {0xAB89, 0x13B9}, - {0xAB8A, 0x13BA}, - {0xAB8B, 0x13BB}, - {0xAB8C, 0x13BC}, - {0xAB8D, 0x13BD}, - {0xAB8E, 0x13BE}, - {0xAB8F, 0x13BF}, - {0xAB90, 0x13C0}, - {0xAB91, 0x13C1}, - {0xAB92, 0x13C2}, - {0xAB93, 0x13C3}, - {0xAB94, 0x13C4}, - {0xAB95, 0x13C5}, - {0xAB96, 0x13C6}, - {0xAB97, 0x13C7}, - {0xAB98, 0x13C8}, - {0xAB99, 0x13C9}, - {0xAB9A, 0x13CA}, - {0xAB9B, 0x13CB}, - {0xAB9C, 0x13CC}, - {0xAB9D, 0x13CD}, - {0xAB9E, 0x13CE}, - {0xAB9F, 0x13CF}, - {0xABA0, 0x13D0}, - {0xABA1, 0x13D1}, - {0xABA2, 0x13D2}, - {0xABA3, 0x13D3}, - {0xABA4, 0x13D4}, - {0xABA5, 0x13D5}, - {0xABA6, 0x13D6}, - {0xABA7, 0x13D7}, - {0xABA8, 0x13D8}, - {0xABA9, 0x13D9}, - {0xABAA, 0x13DA}, - {0xABAB, 0x13DB}, - {0xABAC, 0x13DC}, - {0xABAD, 0x13DD}, - {0xABAE, 0x13DE}, - {0xABAF, 0x13DF}, - {0xABB0, 0x13E0}, - {0xABB1, 0x13E1}, - {0xABB2, 0x13E2}, - {0xABB3, 0x13E3}, - {0xABB4, 0x13E4}, - {0xABB5, 0x13E5}, - {0xABB6, 0x13E6}, - {0xABB7, 0x13E7}, - {0xABB8, 0x13E8}, - {0xABB9, 0x13E9}, - {0xABBA, 0x13EA}, - {0xABBB, 0x13EB}, - {0xABBC, 0x13EC}, - {0xABBD, 0x13ED}, - {0xABBE, 0x13EE}, - {0xABBF, 0x13EF}, - {0xFF21, 0xFF41}, - {0xFF22, 0xFF42}, - {0xFF23, 0xFF43}, - {0xFF24, 0xFF44}, - {0xFF25, 0xFF45}, - {0xFF26, 0xFF46}, - {0xFF27, 0xFF47}, - {0xFF28, 0xFF48}, - {0xFF29, 0xFF49}, - {0xFF2A, 0xFF4A}, - {0xFF2B, 0xFF4B}, - {0xFF2C, 0xFF4C}, - {0xFF2D, 0xFF4D}, - {0xFF2E, 0xFF4E}, - {0xFF2F, 0xFF4F}, - {0xFF30, 0xFF50}, - {0xFF31, 0xFF51}, - {0xFF32, 0xFF52}, - {0xFF33, 0xFF53}, - {0xFF34, 0xFF54}, - {0xFF35, 0xFF55}, - {0xFF36, 0xFF56}, - {0xFF37, 0xFF57}, - {0xFF38, 0xFF58}, - {0xFF39, 0xFF59}, - {0xFF3A, 0xFF5A}, - {0x10400, 0x10428}, - {0x10401, 0x10429}, - {0x10402, 0x1042A}, - {0x10403, 0x1042B}, - {0x10404, 0x1042C}, - {0x10405, 0x1042D}, - {0x10406, 0x1042E}, - {0x10407, 0x1042F}, - {0x10408, 0x10430}, - {0x10409, 0x10431}, - {0x1040A, 0x10432}, - {0x1040B, 0x10433}, - {0x1040C, 0x10434}, - {0x1040D, 0x10435}, - {0x1040E, 0x10436}, - {0x1040F, 0x10437}, - {0x10410, 0x10438}, - {0x10411, 0x10439}, - {0x10412, 0x1043A}, - {0x10413, 0x1043B}, - {0x10414, 0x1043C}, - {0x10415, 0x1043D}, - {0x10416, 0x1043E}, - {0x10417, 0x1043F}, - {0x10418, 0x10440}, - {0x10419, 0x10441}, - {0x1041A, 0x10442}, - {0x1041B, 0x10443}, - {0x1041C, 0x10444}, - {0x1041D, 0x10445}, - {0x1041E, 0x10446}, - {0x1041F, 0x10447}, - {0x10420, 0x10448}, - {0x10421, 0x10449}, - {0x10422, 0x1044A}, - {0x10423, 0x1044B}, - {0x10424, 0x1044C}, - {0x10425, 0x1044D}, - {0x10426, 0x1044E}, - {0x10427, 0x1044F}, - {0x104B0, 0x104D8}, - {0x104B1, 0x104D9}, - {0x104B2, 0x104DA}, - {0x104B3, 0x104DB}, - {0x104B4, 0x104DC}, - {0x104B5, 0x104DD}, - {0x104B6, 0x104DE}, - {0x104B7, 0x104DF}, - {0x104B8, 0x104E0}, - {0x104B9, 0x104E1}, - {0x104BA, 0x104E2}, - {0x104BB, 0x104E3}, - {0x104BC, 0x104E4}, - {0x104BD, 0x104E5}, - {0x104BE, 0x104E6}, - {0x104BF, 0x104E7}, - {0x104C0, 0x104E8}, - {0x104C1, 0x104E9}, - {0x104C2, 0x104EA}, - {0x104C3, 0x104EB}, - {0x104C4, 0x104EC}, - {0x104C5, 0x104ED}, - {0x104C6, 0x104EE}, - {0x104C7, 0x104EF}, - {0x104C8, 0x104F0}, - {0x104C9, 0x104F1}, - {0x104CA, 0x104F2}, - {0x104CB, 0x104F3}, - {0x104CC, 0x104F4}, - {0x104CD, 0x104F5}, - {0x104CE, 0x104F6}, - {0x104CF, 0x104F7}, - {0x104D0, 0x104F8}, - {0x104D1, 0x104F9}, - {0x104D2, 0x104FA}, - {0x104D3, 0x104FB}, - {0x10570, 0x10597}, - {0x10571, 0x10598}, - {0x10572, 0x10599}, - {0x10573, 0x1059A}, - {0x10574, 0x1059B}, - {0x10575, 0x1059C}, - {0x10576, 0x1059D}, - {0x10577, 0x1059E}, - {0x10578, 0x1059F}, - {0x10579, 0x105A0}, - {0x1057A, 0x105A1}, - {0x1057C, 0x105A3}, - {0x1057D, 0x105A4}, - {0x1057E, 0x105A5}, - {0x1057F, 0x105A6}, - {0x10580, 0x105A7}, - {0x10581, 0x105A8}, - {0x10582, 0x105A9}, - {0x10583, 0x105AA}, - {0x10584, 0x105AB}, - {0x10585, 0x105AC}, - {0x10586, 0x105AD}, - {0x10587, 0x105AE}, - {0x10588, 0x105AF}, - {0x10589, 0x105B0}, - {0x1058A, 0x105B1}, - {0x1058C, 0x105B3}, - {0x1058D, 0x105B4}, - {0x1058E, 0x105B5}, - {0x1058F, 0x105B6}, - {0x10590, 0x105B7}, - {0x10591, 0x105B8}, - {0x10592, 0x105B9}, - {0x10594, 0x105BB}, - {0x10595, 0x105BC}, - {0x10C80, 0x10CC0}, - {0x10C81, 0x10CC1}, - {0x10C82, 0x10CC2}, - {0x10C83, 0x10CC3}, - {0x10C84, 0x10CC4}, - {0x10C85, 0x10CC5}, - {0x10C86, 0x10CC6}, - {0x10C87, 0x10CC7}, - {0x10C88, 0x10CC8}, - {0x10C89, 0x10CC9}, - {0x10C8A, 0x10CCA}, - {0x10C8B, 0x10CCB}, - {0x10C8C, 0x10CCC}, - {0x10C8D, 0x10CCD}, - {0x10C8E, 0x10CCE}, - {0x10C8F, 0x10CCF}, - {0x10C90, 0x10CD0}, - {0x10C91, 0x10CD1}, - {0x10C92, 0x10CD2}, - {0x10C93, 0x10CD3}, - {0x10C94, 0x10CD4}, - {0x10C95, 0x10CD5}, - {0x10C96, 0x10CD6}, - {0x10C97, 0x10CD7}, - {0x10C98, 0x10CD8}, - {0x10C99, 0x10CD9}, - {0x10C9A, 0x10CDA}, - {0x10C9B, 0x10CDB}, - {0x10C9C, 0x10CDC}, - {0x10C9D, 0x10CDD}, - {0x10C9E, 0x10CDE}, - {0x10C9F, 0x10CDF}, - {0x10CA0, 0x10CE0}, - {0x10CA1, 0x10CE1}, - {0x10CA2, 0x10CE2}, - {0x10CA3, 0x10CE3}, - {0x10CA4, 0x10CE4}, - {0x10CA5, 0x10CE5}, - {0x10CA6, 0x10CE6}, - {0x10CA7, 0x10CE7}, - {0x10CA8, 0x10CE8}, - {0x10CA9, 0x10CE9}, - {0x10CAA, 0x10CEA}, - {0x10CAB, 0x10CEB}, - {0x10CAC, 0x10CEC}, - {0x10CAD, 0x10CED}, - {0x10CAE, 0x10CEE}, - {0x10CAF, 0x10CEF}, - {0x10CB0, 0x10CF0}, - {0x10CB1, 0x10CF1}, - {0x10CB2, 0x10CF2}, - {0x118A0, 0x118C0}, - {0x118A1, 0x118C1}, - {0x118A2, 0x118C2}, - {0x118A3, 0x118C3}, - {0x118A4, 0x118C4}, - {0x118A5, 0x118C5}, - {0x118A6, 0x118C6}, - {0x118A7, 0x118C7}, - {0x118A8, 0x118C8}, - {0x118A9, 0x118C9}, - {0x118AA, 0x118CA}, - {0x118AB, 0x118CB}, - {0x118AC, 0x118CC}, - {0x118AD, 0x118CD}, - {0x118AE, 0x118CE}, - {0x118AF, 0x118CF}, - {0x118B0, 0x118D0}, - {0x118B1, 0x118D1}, - {0x118B2, 0x118D2}, - {0x118B3, 0x118D3}, - {0x118B4, 0x118D4}, - {0x118B5, 0x118D5}, - {0x118B6, 0x118D6}, - {0x118B7, 0x118D7}, - {0x118B8, 0x118D8}, - {0x118B9, 0x118D9}, - {0x118BA, 0x118DA}, - {0x118BB, 0x118DB}, - {0x118BC, 0x118DC}, - {0x118BD, 0x118DD}, - {0x118BE, 0x118DE}, - {0x118BF, 0x118DF}, - {0x16E40, 0x16E60}, - {0x16E41, 0x16E61}, - {0x16E42, 0x16E62}, - {0x16E43, 0x16E63}, - {0x16E44, 0x16E64}, - {0x16E45, 0x16E65}, - {0x16E46, 0x16E66}, - {0x16E47, 0x16E67}, - {0x16E48, 0x16E68}, - {0x16E49, 0x16E69}, - {0x16E4A, 0x16E6A}, - {0x16E4B, 0x16E6B}, - {0x16E4C, 0x16E6C}, - {0x16E4D, 0x16E6D}, - {0x16E4E, 0x16E6E}, - {0x16E4F, 0x16E6F}, - {0x16E50, 0x16E70}, - {0x16E51, 0x16E71}, - {0x16E52, 0x16E72}, - {0x16E53, 0x16E73}, - {0x16E54, 0x16E74}, - {0x16E55, 0x16E75}, - {0x16E56, 0x16E76}, - {0x16E57, 0x16E77}, - {0x16E58, 0x16E78}, - {0x16E59, 0x16E79}, - {0x16E5A, 0x16E7A}, - {0x16E5B, 0x16E7B}, - {0x16E5C, 0x16E7C}, - {0x16E5D, 0x16E7D}, - {0x16E5E, 0x16E7E}, - {0x16E5F, 0x16E7F}, - {0x1E900, 0x1E922}, - {0x1E901, 0x1E923}, - {0x1E902, 0x1E924}, - {0x1E903, 0x1E925}, - {0x1E904, 0x1E926}, - {0x1E905, 0x1E927}, - {0x1E906, 0x1E928}, - {0x1E907, 0x1E929}, - {0x1E908, 0x1E92A}, - {0x1E909, 0x1E92B}, - {0x1E90A, 0x1E92C}, - {0x1E90B, 0x1E92D}, - {0x1E90C, 0x1E92E}, - {0x1E90D, 0x1E92F}, - {0x1E90E, 0x1E930}, - {0x1E90F, 0x1E931}, - {0x1E910, 0x1E932}, - {0x1E911, 0x1E933}, - {0x1E912, 0x1E934}, - {0x1E913, 0x1E935}, - {0x1E914, 0x1E936}, - {0x1E915, 0x1E937}, - {0x1E916, 0x1E938}, - {0x1E917, 0x1E939}, - {0x1E918, 0x1E93A}, - {0x1E919, 0x1E93B}, - {0x1E91A, 0x1E93C}, - {0x1E91B, 0x1E93D}, - {0x1E91C, 0x1E93E}, - {0x1E91D, 0x1E93F}, - {0x1E91E, 0x1E940}, - {0x1E91F, 0x1E941}, - {0x1E920, 0x1E942}, - {0x1E921, 0x1E943}, -}; - -static int fold2[][ 4 ] = { - {0x00DF, 0x0073, 0x0073, 0x0}, - {0x0130, 0x0069, 0x0307, 0x0}, - {0x0149, 0x02BC, 0x006E, 0x0}, - {0x01F0, 0x006A, 0x030C, 0x0}, - {0x0390, 0x03B9, 0x0308, 0x0301}, - {0x03B0, 0x03C5, 0x0308, 0x0301}, - {0x0587, 0x0565, 0x0582, 0x0}, - {0x1E96, 0x0068, 0x0331, 0x0}, - {0x1E97, 0x0074, 0x0308, 0x0}, - {0x1E98, 0x0077, 0x030A, 0x0}, - {0x1E99, 0x0079, 0x030A, 0x0}, - {0x1E9A, 0x0061, 0x02BE, 0x0}, - {0x1E9E, 0x0073, 0x0073, 0x0}, - {0x1F50, 0x03C5, 0x0313, 0x0}, - {0x1F52, 0x03C5, 0x0313, 0x0300}, - {0x1F54, 0x03C5, 0x0313, 0x0301}, - {0x1F56, 0x03C5, 0x0313, 0x0342}, - {0x1F80, 0x1F00, 0x03B9, 0x0}, - {0x1F81, 0x1F01, 0x03B9, 0x0}, - {0x1F82, 0x1F02, 0x03B9, 0x0}, - {0x1F83, 0x1F03, 0x03B9, 0x0}, - {0x1F84, 0x1F04, 0x03B9, 0x0}, - {0x1F85, 0x1F05, 0x03B9, 0x0}, - {0x1F86, 0x1F06, 0x03B9, 0x0}, - {0x1F87, 0x1F07, 0x03B9, 0x0}, - {0x1F88, 0x1F00, 0x03B9, 0x0}, - {0x1F89, 0x1F01, 0x03B9, 0x0}, - {0x1F8A, 0x1F02, 0x03B9, 0x0}, - {0x1F8B, 0x1F03, 0x03B9, 0x0}, - {0x1F8C, 0x1F04, 0x03B9, 0x0}, - {0x1F8D, 0x1F05, 0x03B9, 0x0}, - {0x1F8E, 0x1F06, 0x03B9, 0x0}, - {0x1F8F, 0x1F07, 0x03B9, 0x0}, - {0x1F90, 0x1F20, 0x03B9, 0x0}, - {0x1F91, 0x1F21, 0x03B9, 0x0}, - {0x1F92, 0x1F22, 0x03B9, 0x0}, - {0x1F93, 0x1F23, 0x03B9, 0x0}, - {0x1F94, 0x1F24, 0x03B9, 0x0}, - {0x1F95, 0x1F25, 0x03B9, 0x0}, - {0x1F96, 0x1F26, 0x03B9, 0x0}, - {0x1F97, 0x1F27, 0x03B9, 0x0}, - {0x1F98, 0x1F20, 0x03B9, 0x0}, - {0x1F99, 0x1F21, 0x03B9, 0x0}, - {0x1F9A, 0x1F22, 0x03B9, 0x0}, - {0x1F9B, 0x1F23, 0x03B9, 0x0}, - {0x1F9C, 0x1F24, 0x03B9, 0x0}, - {0x1F9D, 0x1F25, 0x03B9, 0x0}, - {0x1F9E, 0x1F26, 0x03B9, 0x0}, - {0x1F9F, 0x1F27, 0x03B9, 0x0}, - {0x1FA0, 0x1F60, 0x03B9, 0x0}, - {0x1FA1, 0x1F61, 0x03B9, 0x0}, - {0x1FA2, 0x1F62, 0x03B9, 0x0}, - {0x1FA3, 0x1F63, 0x03B9, 0x0}, - {0x1FA4, 0x1F64, 0x03B9, 0x0}, - {0x1FA5, 0x1F65, 0x03B9, 0x0}, - {0x1FA6, 0x1F66, 0x03B9, 0x0}, - {0x1FA7, 0x1F67, 0x03B9, 0x0}, - {0x1FA8, 0x1F60, 0x03B9, 0x0}, - {0x1FA9, 0x1F61, 0x03B9, 0x0}, - {0x1FAA, 0x1F62, 0x03B9, 0x0}, - {0x1FAB, 0x1F63, 0x03B9, 0x0}, - {0x1FAC, 0x1F64, 0x03B9, 0x0}, - {0x1FAD, 0x1F65, 0x03B9, 0x0}, - {0x1FAE, 0x1F66, 0x03B9, 0x0}, - {0x1FAF, 0x1F67, 0x03B9, 0x0}, - {0x1FB2, 0x1F70, 0x03B9, 0x0}, - {0x1FB3, 0x03B1, 0x03B9, 0x0}, - {0x1FB4, 0x03AC, 0x03B9, 0x0}, - {0x1FB6, 0x03B1, 0x0342, 0x0}, - {0x1FB7, 0x03B1, 0x0342, 0x03B9}, - {0x1FBC, 0x03B1, 0x03B9, 0x0}, - {0x1FC2, 0x1F74, 0x03B9, 0x0}, - {0x1FC3, 0x03B7, 0x03B9, 0x0}, - {0x1FC4, 0x03AE, 0x03B9, 0x0}, - {0x1FC6, 0x03B7, 0x0342, 0x0}, - {0x1FC7, 0x03B7, 0x0342, 0x03B9}, - {0x1FCC, 0x03B7, 0x03B9, 0x0}, - {0x1FD2, 0x03B9, 0x0308, 0x0300}, - {0x1FD3, 0x03B9, 0x0308, 0x0301}, - {0x1FD6, 0x03B9, 0x0342, 0x0}, - {0x1FD7, 0x03B9, 0x0308, 0x0342}, - {0x1FE2, 0x03C5, 0x0308, 0x0300}, - {0x1FE3, 0x03C5, 0x0308, 0x0301}, - {0x1FE4, 0x03C1, 0x0313, 0x0}, - {0x1FE6, 0x03C5, 0x0342, 0x0}, - {0x1FE7, 0x03C5, 0x0308, 0x0342}, - {0x1FF2, 0x1F7C, 0x03B9, 0x0}, - {0x1FF3, 0x03C9, 0x03B9, 0x0}, - {0x1FF4, 0x03CE, 0x03B9, 0x0}, - {0x1FF6, 0x03C9, 0x0342, 0x0}, - {0x1FF7, 0x03C9, 0x0342, 0x03B9}, - {0x1FFC, 0x03C9, 0x03B9, 0x0}, - {0xFB00, 0x0066, 0x0066, 0x0}, - {0xFB01, 0x0066, 0x0069, 0x0}, - {0xFB02, 0x0066, 0x006C, 0x0}, - {0xFB03, 0x0066, 0x0066, 0x0069}, - {0xFB04, 0x0066, 0x0066, 0x006C}, - {0xFB05, 0x0073, 0x0074, 0x0}, - {0xFB06, 0x0073, 0x0074, 0x0}, - {0xFB13, 0x0574, 0x0576, 0x0}, - {0xFB14, 0x0574, 0x0565, 0x0}, - {0xFB15, 0x0574, 0x056B, 0x0}, - {0xFB16, 0x057E, 0x0576, 0x0}, - {0xFB17, 0x0574, 0x056D, 0x0}, -}; - - -/* Branchless UTF-8 decoder - * https://raw.githubusercontent.com/skeeto/branchless-utf8/ - * This is free and unencumbered software released into the public domain. - */ - -/* Decode the next character, C, from BUF, reporting errors in E. - * - * Since this is a branchless decoder, four bytes will be read from the - * buffer regardless of the actual length of the next character. This - * means the buffer _must_ have at least three bytes of zero padding - * following the end of the data stream. - * - * Errors are reported in E, which will be non-zero if the parsed - * character was somehow invalid: invalid byte sequence, non-canonical - * encoding, or a surrogate half. - * - * The function returns a pointer to the next character. When an error - * occurs, this pointer will be a guess that depends on the particular - * error, but it will always advance at least one byte. - */ -static const char lengths[] = { - 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, - 0, 0, 0, 0, 0, 0, 0, 0, 2, 2, 2, 2, 3, 3, 4, 0 -}; - -static C_char *utf8_decode(C_char *buf, C_u32 *c, int *e) -{ - static const int masks[] = {0x00, 0x7f, 0x1f, 0x0f, 0x07}; - static const uint32_t mins[] = {4194304, 0, 128, 2048, 65536}; - static const int shiftc[] = {0, 18, 12, 6, 0}; - static const int shifte[] = {0, 6, 4, 2, 0}; - -#ifdef DEBUGBUILD - if(buf == NULL) - C_panic_hook(C_text("possibly invalid string index")); -#endif - - unsigned char *s = (unsigned char *)buf; - int len = lengths[s[0] >> 3]; - - /* Compute the pointer to the next character early so that the next - * iteration can start working on the next character. Neither Clang - * nor GCC figure out this reordering on their own. - */ - unsigned char *next = s + len + !len; - - /* Assume a four-byte character and load four bytes. Unused bits are - * shifted out. - */ - *c = (C_u32)(s[0] & masks[len]) << 18; - *c |= (C_u32)(s[1] & 0x3f) << 12; - *c |= (C_u32)(s[2] & 0x3f) << 6; - *c |= (C_u32)(s[3] & 0x3f) << 0; - *c >>= shiftc[len]; - - /* Accumulate the various error conditions. */ - *e = (*c < mins[len]) << 6; // non-canonical encoding - *e |= ((*c >> 11) == 0x1b) << 7; // surrogate half? - *e |= (*c > 0x10FFFF) << 8; // out of range? - *e |= (s[1] & 0xc0) >> 2; - *e |= (s[2] & 0xc0) >> 4; - *e |= (s[3] ) >> 6; - *e ^= 0x2a; // top two bits of each tail byte correct? - *e >>= shifte[len]; - - /* now make all that optimization pointless... */ - if(*e) { - *c = 0xdc00 | *s; - return (C_char *)s + 1; - } - - return (C_char *)next; -} -/* */ - -static C_char *utf8_encode(C_u32 u, C_char *p1) -{ - unsigned char *p = (unsigned char *)p1; - if(u < 0x80) *(p++) = u; - else if((u & 0xff00) == 0xdc00) { - *(p++) = u & 0xff; - } else if(u < 0x800) { - *(p++) = (u >> 6) | 0xC0; - *(p++) = (u & 0x3F) | 0x80; - } else if(u < 0x10000) { - *(p++) = (u >> 12) | 0xE0; - *(p++) = ((u >> 6) & 0x3F) | 0x80; - *(p++) = (u & 0x3F) | 0x80; - } else if(u < 0x110000) { - *(p++) = (u >> 18) | 0xF0; - *(p++) = ((u >> 12) & 0x3F) | 0x80; - *(p++) = ((u >> 6) & 0x3F) | 0x80; - *(p++) = (u & 0x3F) | 0x80; - } - return (C_char *)p; -} - -static C_char *utf_index1(C_word s, C_word i) -{ - C_word i0 = C_unfix(C_block_item(s, 2)); - C_word count = C_unfix(C_block_item(s, 1)); - C_word off = 0, index = 0; - C_char *p1, *p = C_c_string(C_block_item(s, 0)); - int e; - C_u32 c; - if(i >= i0) { - p += off = C_unfix(C_block_item(s, 3)); - index = i0; - } - while(index <= count) { - if(index == i) { - C_set_block_item(s, 2, C_fix(index)); - C_set_block_item(s, 3, C_fix(off)); - return p; - } - p1 = p; - p = utf8_decode(p, &c, &e); - ++index; - off += p - p1; - } - return NULL; -} - -static C_char *utf_index(C_word s, C_word i) -{ - C_word bv = C_block_item(s, 0); - if(i == 0) { - C_set_block_item(s, 2, C_fix(0)); - C_set_block_item(s, 3, C_fix(0)); - return C_c_string(bv); - } else if(C_header_size(bv) - 1 == C_unfix(C_block_item(s, 1))) { - /* len == codepoints */ - C_set_block_item(s, 2, C_fix(i)); - C_set_block_item(s, 3, C_fix(i)); - return C_c_string(bv) + i; - } - return utf_index1(s, i); -} - -C_regparm C_word C_utf_subchar(C_word s, C_word i) -{ - C_char *p = utf_index(s, C_unfix(i)); - int e; - C_u32 c; - utf8_decode(p, &c, &e); - return C_make_character(c); -} - -C_regparm C_word C_utf_setsubchar(C_word s, C_word i, C_word c) -{ - C_char buf[ 4 ]; - C_char *p = utf8_encode(C_character_code(c), buf); - int e; - C_u32 old; - C_char *p1 = utf_index(s, C_unfix(i)); - C_char *p2 = utf8_decode(p1, &old, &e); - int nl = p - buf, ol = p2 - p1; - C_word bv = C_block_item(s, 0); - C_word bvlen = C_header_size(bv) - 1; - int prefix = C_unfix(C_block_item(s, 3)); /* offset */ - int suffix = bvlen - prefix - ol; - - if(nl > ol) { - int tl = bvlen + nl - ol; - if(C_in_scratchspacep(bv)) C_mutate_scratch_slot(NULL, bv); - C_word bvn = C_scratch_alloc(C_SIZEOF_BYTEVECTOR(tl + 1)); - C_block_header_init(bvn, C_make_header(C_BYTEVECTOR_TYPE, tl + 1)); - if(prefix) C_memcpy(C_c_string(bvn), C_c_string(bv), prefix); - C_memcpy((C_char *)C_data_pointer(bvn) + prefix, buf, nl); - C_memcpy((C_char *)C_data_pointer(bvn) + prefix + nl, - (C_char *)C_data_pointer(bv) + prefix + ol, suffix + 1); /* include 0 byte */ - C_mutate_slot(&C_block_item(s, 0), bvn); - C_mutate_scratch_slot(&C_block_item(s, 0), bvn); - } else if(nl < ol) { - C_memcpy(p1, buf, nl); - C_memmove(p1 + nl, p1 + ol, suffix + 1); /* include 0 byte */ - C_block_header_init(bv, C_make_header(C_BYTEVECTOR_TYPE, bvlen - (ol - nl) + 1)); - } else C_memcpy(p1, buf, nl); - - return C_SCHEME_UNDEFINED; -} - -/* copy c bytes of bv into s at position i, occupying len characters */ -C_regparm C_word C_utf_overwrite(C_word s, C_word i, C_word len, C_word bv, - C_word c) -{ - C_word bvs = C_block_item(s, 0); - C_word bvlen = C_header_size(bvs) - 1; - C_char *p1 = utf_index(s, C_unfix(i)); - C_char *p2 = utf_index(s, C_unfix(i) + C_unfix(len)); - int count = C_unfix(c); - int d = p2 - p1; - int prefix = p1 - (C_char *)C_data_pointer(bvs); - int suffix = bvlen - prefix - d; - - if(count > d) { - int tl = bvlen + count - d; - C_word bvn = C_scratch_alloc(C_SIZEOF_BYTEVECTOR(tl + 1)); - if(C_in_scratchspacep(bvs)) C_mutate_scratch_slot(NULL, bvs); - C_block_header_init(bvn, C_make_header(C_BYTEVECTOR_TYPE, tl + 1)); - if(prefix) C_memcpy(C_c_string(bvn), C_data_pointer(bvs), prefix); - C_memcpy((C_char *)C_data_pointer(bvn) + prefix, (C_char *)C_data_pointer(bv), - count); - C_memcpy((C_char *)C_data_pointer(bvn) + prefix + count, - p2, suffix + 1); /* include 0 byte */ - C_mutate_slot(&C_block_item(s, 0), bvn); - C_mutate_scratch_slot(&C_block_item(s, 0), bvn); - } else if(count < d && count) { - C_memcpy(p1, C_data_pointer(bv), count); - C_memmove(p1 + count, p2, suffix + 1); /* include 0 byte */ - C_block_header_init(bvs, C_make_header(C_BYTEVECTOR_TYPE, - bvlen - (d - count) + 1)); - } else if(count) C_memcpy(p1, C_data_pointer(bv), count); - - return C_SCHEME_UNDEFINED; -} - -C_regparm C_word C_utf_compare(C_word s1, C_word s2, C_word start1, C_word start2, - C_word len) -{ - C_char *p1 = utf_index(s1, C_unfix(start1)); - C_char *p2 = utf_index(s2, C_unfix(start2)); - int e, n = C_unfix(len); - while(n--) { - C_u32 c1, c2; - p1 = utf8_decode(p1, &c1, &e); - p2 = utf8_decode(p2, &c2, &e); - if(c1 != c2) return C_fix((C_word)c1 - (C_word)c2); - } - return C_fix(0); -} - -C_regparm C_word C_utf_compare_ci(C_word s1, C_word s2, C_word start1, C_word start2, C_word len) -{ - C_char *p1 = utf_index(s1, C_unfix(start1)); - C_char *p2 = utf_index(s2, C_unfix(start2)); - int e, n = C_unfix(len); - while(n--) { - C_u32 c1, c2; - int *m, r1, r2, i; - p1 = utf8_decode(p1, &c1, &e); - p2 = utf8_decode(p2, &c2, &e); - if(c1 >= 'A' && c1 <= 'Z') r1 = c1 + 32; - else r1 = c1; - if(c2 >= 'A' && c2 <= 'Z') r2 = c2 + 32; - else r2 = c2; - if(r1 == r2) continue; - if(r1 < 128 || r2 < 128) goto fail; - m = bsearch(&r1, fold2, nelem(fold2), sizeof(*fold2), &runemapcmp); - if(m) { - for(i = 1; i < 3; ++i) { - if(m[ i ] == 0) break; - if(m[ i ] != c2) return C_fix(m[ i ] - c2); - if(i != 2 && m[ i + 1 ] != 0) p2 = utf8_decode(p2, &c2, &e); - } - } else { - m = bsearch(&r1, fold1, nelem(fold1), sizeof(*fold1), &runemapcmp); - if(m) { - if(m[ 1 ] != c2) return C_fix(m[ 1 ] - c2); - } - } - m = bsearch(&r2, fold2, nelem(fold2), sizeof(*fold2), &runemapcmp); - if(m) { - for(i = 1; i < 3; ++i) { - if(m[ i ] == 0) break; - if(c1 != m[ i ]) return C_fix(c1 - m[ i ]); - if(i != 2 && m[ i + 1 ]) p1 = utf8_decode(p1, &c1, &e); - } - } else { - m = bsearch(&r2, fold1, nelem(fold1), sizeof(*fold1), &runemapcmp); - if(m) { - if(c1 != m[ 1 ]) return C_fix(c1 - m[ 1 ]); - } - } - continue; -fail: - return C_fix(r1 - r2); - } - return C_fix(0); -} - -/* XXX inline this? */ -C_regparm C_word C_utf_equal(C_word s1, C_word s2) -{ - C_word b1 = C_block_item(s1, 0); - C_word b2 = C_block_item(s2, 0); - int n1 = C_header_size(b1); - int n2 = C_header_size(b2); - if(n1 != n2) return C_SCHEME_FALSE; - return C_mk_bool(C_memcmp(C_c_string(b1), C_c_string(b2), n1) == 0); -} - -/* XXX inline this? */ -C_regparm C_word C_utf_equal_ci(C_word s1, C_word s2) -{ - C_word n1 = C_block_item(s1, 1); - if(n1 != C_block_item(s2, 1)) return C_SCHEME_FALSE; - return C_mk_bool(C_utf_compare_ci(s1, s2, C_fix(0), C_fix(0), n1) == C_fix(0)); -} - -C_regparm C_word C_utf_copy(C_word from, C_word to, C_word start1, C_word end1, C_word start2) -{ - C_char *p1 = utf_index(from, C_unfix(start1)); - C_char *p2 = utf_index(to, C_unfix(start2)); - C_char *p3 = utf_index(from, C_unfix(end1)); - C_memcpy(p2, p1, p3 - p1); - return C_SCHEME_UNDEFINED; -} - -/* compute byte-index from char-index */ -C_regparm C_word C_utf_position(C_word str, C_word index) -{ - C_char *p1 = utf_index(str, C_unfix(index)); - return C_fix(p1 - C_c_string(C_block_item(str, 0))); -} - -/* compute char-index from byte-index (slow, uncached) */ -C_regparm int C_utf_char_position(C_word bv, int pos) -{ - int p = 0; - C_u32 c; - int e; - C_char *ptr = C_c_string(bv), *ptr2; - while(pos > 0) { - ptr2 = utf8_decode(ptr, &c, &e); - pos -= ptr2 - ptr; - ptr = ptr2; - ++p; - } - return p; -} - -/* compute byte-offset between two char-indices */ -C_regparm C_word C_utf_range(C_word str, C_word start, C_word end) -{ - C_char *p1 = utf_index(str, C_unfix(start)); - C_char *p2 = utf_index(str, C_unfix(end)); - return C_fix(p2 - p1); -} - -/* Count characters - slow variant, handles invalid sequences */ -C_regparm int C_utf_count(C_char *s, int len) -{ - int i = 0; - C_u32 c; - int e; - C_char *s2; - while (len > 0) { - s2 = utf8_decode(s, &c, &e); - len -= (s2 - s); - s = s2; - i++; - } - return i; -} - -/* Count characters - slow variant, detects invalid sequences */ -C_regparm C_word C_utf_validate(C_word bv, C_word blen) -{ - int i = 0; - C_u32 c; - int e; - C_char *s = C_c_string(bv), *s2; - int len = C_unfix(blen); - while (len > 0) { - s2 = utf8_decode(s, &c, &e); - if(e) return C_SCHEME_FALSE; - len -= (s2 - s); - s = s2; - i++; - } - return C_fix(i); -} - -/* count characters, fast, unsafe variant - http://canonical.org/~kragen/strlen-utf8.html */ -C_regparm int C_utf_fast_count(C_char *s, int len) -{ - int i = 0, j = 0; - while (len--) { - if ((s[i] & 0xc0) != 0x80) j++; - i++; - } - return j; -} - -C_regparm C_word C_utf_bytes(C_word chr) -{ - int e; - char buf[ 5 ]; - C_char *p1 = utf8_encode(C_character_code(chr), buf); - return C_fix(p1 - buf); -} - -C_regparm C_char * C_utf_encode(C_char *str, int chr) -{ - return utf8_encode(chr, str); -} - -C_regparm C_word C_utf_decode(C_word bv, C_word pos) -{ - C_u32 c; - int e; - utf8_decode(C_c_string(bv) + C_unfix(pos), &c, &e); - return C_make_character(c); -} - -C_regparm C_word C_utf_decode_ptr(C_char *bv) -{ - C_u32 c; - int e; - utf8_decode(bv, &c, &e); - return C_make_character(c); -} - -C_regparm C_word C_utf_advance(C_word bv, C_word pos) -{ - C_char *p1 = (C_char *)C_data_pointer(bv) + C_unfix(pos); - C_u32 c; - int e; - C_char *p2 = utf8_decode(p1, &c, &e); - return C_fix(C_unfix(pos) + p2 - p1); -} - -C_regparm C_word C_utf_insert(C_word bv, C_word pos, C_word c) -{ - C_char *p1 = C_c_string(bv) + C_unfix(pos); - C_char *p2 = utf8_encode(C_character_code(c), p1); - return C_fix(C_unfix(pos) + p2 - p1); -} - -C_regparm C_word C_utf_fill(C_word bv, C_word chr) -{ - char buf[ 5 ]; - int size = C_header_size(bv) - 1; - int len = C_utf_encode(buf, C_character_code(chr)) - buf; - C_char *p; - int n; - - if(len == 1) { - C_memset(C_data_pointer(bv), *buf, size); - return bv; - } - - p = C_data_pointer(bv); - n = size / len; - - while(n--) { - C_memcpy(p, buf, len); - p += len; - } - ((C_char *)C_data_pointer(bv))[ size ] = 0; /* terminating zero */ - return bv; -} - -C_regparm int C_utf_expect(int byte) -{ - int len = lengths[ byte >> 3 ]; - return len + !len; -} - -/* take bytevector section and compute full + incomplete codepoints */ -C_regparm C_word C_utf_fragment_counts(C_word bv, C_word pos, C_word len) -{ - int full = 0; - C_uchar *ptr = C_data_pointer(bv) + C_unfix(pos); - int count = C_unfix(len); - - while(count) { - unsigned int byte = *(ptr++); - int n = lengths[ byte >> 3 ]; - int bn = n + !n; - if(count >= bn) { - ++full; - count -= bn; - ptr += bn - 1; - } else return C_fix((full << 4) | (bn - count)); - } - - return C_fix(full << 4); -} - -C_regparm void C_utf_putc(int chr, C_FILEPTR fp) -{ - C_char buf[ 5 ]; - C_char *p = utf8_encode(chr, buf); - *p = '\0'; - C_fputs(buf, fp); -} - -C_regparm C_word C_utf_list_size(C_word lst) -{ - int n = 0; - while(!C_immediatep(lst) && C_header_bits(lst) == C_PAIR_TYPE) { - C_word x = C_block_item(lst, 0); - if(((x) & C_IMMEDIATE_TYPE_BITS) == C_CHARACTER_BITS) - n += C_unfix(C_utf_bytes(x)); - lst = C_block_item(lst, 1); - } - return C_fix(n); -} - -C_regparm C_word C_latin_to_utf(C_word from, C_word to, C_word start, C_word len) -{ - int n = C_unfix(len); - C_uchar *pf = (C_uchar *)C_c_string(from) + C_unfix(start); - C_char *pt = C_c_string(to), *pt0 = pt; - while(n-- > 0) { - C_u32 c = *(pf++); - pt = utf8_encode(c, pt); - } - return C_fix(pt - pt0); -} - -C_regparm C_word C_utf_to_latin(C_word from, C_word to, C_word start, C_word blen) -{ - int n = C_unfix(blen); - C_char *pf = C_c_string(from) + C_unfix(start), *pf2; - C_char *pt = C_c_string(to), *pt0 = pt; - C_u32 c; - int e; - while(n > 0) { - pf2 = utf8_decode(pf, &c, &e); - n -= pf2 - pf; - pf = pf2; - *(pt++) = c & 0xff; - } - *pt = '\0'; - return C_fix(pt - pt0); -} - -C_regparm C_word C_utf_char_foldcase(C_word c) -{ - int r = C_character_code(c); - int *m = bsearch(&r, fold1, nelem(fold1), sizeof(*fold1), &runemapcmp); - if(m) return C_make_character(m[ 1 ]); - return c; -} - -C_regparm C_word C_utf_string_foldcase(C_word from, C_word to, C_word len) -{ - C_u32 c; - int e; - C_char *pf = C_c_string(from), *pf2; - C_char *pt = C_c_string(to), *pt0 = pt; - int count = C_unfix(len); - while(count > 0) { - pf2 = utf8_decode(pf, &c, &e); - if(!e) { - int r = c; - int *m = bsearch(&r, fold2, nelem(fold2), sizeof(*fold2), &runemapcmp); - if(m) { - pt = utf8_encode(m[ 1 ], pt); - if(m[ 3 ] != 0) { - pt = utf8_encode(m[ 2 ], pt); - c = m[ 3 ]; - } else c = m[ 2 ]; - } else { - m = bsearch(&r, fold1, nelem(fold1), sizeof(*fold1), &runemapcmp); - if(m) c = m[ 1 ]; - } - } - pt = utf8_encode(c, pt); - count -= pf2 - pf; - pf = pf2; - } - return C_fix(pt - pt0); -} - -#if defined(_WIN32) && !defined(__CYGWIN__) -#define C_WCHAR_FNBUF_SIZE 2048 -static C_WCHAR fnbuf[ C_WCHAR_FNBUF_SIZE ], *pfnbuf; -C_regparm C_WCHAR *C_utf16(C_word bv, int cont) -{ - int len = C_header_size(bv) - 1; - C_WCHAR *p; - if(!cont) pfnbuf = fnbuf; - p = pfnbuf; - int n = MultiByteToWideChar(CP_UTF8, - 0, - C_c_string(bv), - -1, - pfnbuf, - C_WCHAR_FNBUF_SIZE - (pfnbuf - fnbuf)); - if(n == 0) C_decoding_error(bv, C_fix(0)); - pfnbuf += n; - return p; -} - -C_regparm C_char *C_utf8(C_WCHAR *str) -{ - int n = WideCharToMultiByte(CP_UTF8, - 0, - str, - -1, - (C_char *)fnbuf, - C_WCHAR_FNBUF_SIZE, - NULL, NULL); - if(n == 0) C_decoding_error(C_SCHEME_UNDEFINED, C_fix(0)); - ((C_char *)fnbuf)[ n ] = '\0'; - return (C_char *)fnbuf; -} -#endif diff --git a/compile-r7rs.scm b/compile-r7rs.scm index 2b7b730..33e2d90 100644 --- a/compile-r7rs.scm +++ b/compile-r7rs.scm @@ -80,13 +80,13 @@ (looper (command-line) (list)))) (cond-expand - (windows (pffi-define-library c-libstd '("libstd.h") "ucrtbase")) - (else (pffi-define-library c-libstd - '("libstd.h") + (windows (pffi-define-library c-stdlib '("stdlib.h") "ucrtbase")) + (else (pffi-define-library c-stdlib + '("stdlib.h") "c" '((additional-versions ("6")))))) -(pffi-define c-system c-libstd 'system 'int '(pointer)) +(pffi-define c-system c-stdlib 'system 'int '(pointer)) (define search-library-files (lambda (directory) diff --git a/libs/data.sld b/libs/data.sld index 02fb9b5..c4a9cc8 100644 --- a/libs/data.sld +++ b/libs/data.sld @@ -1,6 +1,10 @@ (define-library (libs data) - (import (scheme base)) + (import (scheme base) + (scheme write) + (scheme file) + (libs util) + (srfi 170)) (export data) (begin (define data diff --git a/snow/retropikzel/pffi.sld b/snow/retropikzel/pffi.sld index 13b871d..9f8752d 100644 --- a/snow/retropikzel/pffi.sld +++ b/snow/retropikzel/pffi.sld @@ -167,7 +167,8 @@ pffi-define-callback) (cond-expand (chibi (include "pffi/chibi.scm")) - (chicken (include-relative "pffi/chicken.scm")) + (chicken-5 (include "pffi/chicken.scm")) + (chicken-6 (include-relative "pffi/chicken.scm")) (cyclone (include "pffi/cyclone.scm")) (gambit (include "pffi/gambit.scm")) (gauche (include "pffi/gauche.scm")) @@ -183,7 +184,12 @@ (tr7 (include "pffi/tr7.scm")) (ypsilon (include "pffi/ypsilon.scm"))) ;(include "pffi/shared/union.scm") - (include "pffi/shared/main.scm") - (include "pffi/shared/pointer.scm") - (include "pffi/shared/array.scm") - (include "pffi/shared/struct.scm")) + (cond-expand + (chicken-6 (include-relative "pffi/shared/main.scm") + (include-relative "pffi/shared/pointer.scm") + (include-relative "pffi/shared/array.scm") + (include-relative "pffi/shared/struct.scm")) + (else (include "pffi/shared/main.scm") + (include "pffi/shared/pointer.scm") + (include "pffi/shared/array.scm") + (include "pffi/shared/struct.scm")))) diff --git a/snow/retropikzel/pffi/shared/struct.scm b/snow/retropikzel/pffi/shared/struct.scm index 22a433f..01938a5 100644 --- a/snow/retropikzel/pffi/shared/struct.scm +++ b/snow/retropikzel/pffi/shared/struct.scm @@ -52,7 +52,7 @@ (define round-to-next-modulo-of (lambda (to-round roundee) - (if (= (floor-remainder to-round roundee) 0) + (if (= (modulo to-round roundee) 0) to-round (round-to-next-modulo-of (+ to-round 1) roundee)))) @@ -67,7 +67,7 @@ (when (> (size-of-type type) largest-member-size) (set! largest-member-size (size-of-type type))) (if (or (= size 0) - (= (floor-remainder size type-alignment) 0)) + (= (modulo size type-alignment) 0)) (begin (set! size (+ size type-alignment)) (list name type (- size type-alignment)))